Released RA*5*127 SEQ #115 Extracted from mail message **KIDS**:RA*5.0*127^ **INSTALL NAME** RA*5.0*127 "BLD",9718,0) RA*5.0*127^RADIOLOGY/NUCLEAR MEDICINE^0^3161209^y "BLD",9718,4,0) ^9.64PA^71.11^4 "BLD",9718,4,71,0) 71 "BLD",9718,4,71,2,0) ^9.641^71^1 "BLD",9718,4,71,2,71,0) RAD/NUC MED PROCEDURES (File-top level) "BLD",9718,4,71,2,71,1,0) ^9.6411^903^4 "BLD",9718,4,71,2,71,1,900,0) MRPF NAME "BLD",9718,4,71,2,71,1,901,0) Exception Flag "BLD",9718,4,71,2,71,1,902,0) ENTRY CREATION DATE "BLD",9718,4,71,2,71,1,903,0) LOINC "BLD",9718,4,71,222) y^n^p^^^^n^^n "BLD",9718,4,71,224) "BLD",9718,4,71.11,0) 71.11 "BLD",9718,4,71.11,222) y^y^f^^^^n "BLD",9718,4,71.98,0) 71.98 "BLD",9718,4,71.98,222) y^y^f^^^^n "BLD",9718,4,71.99,0) 71.99 "BLD",9718,4,71.99,222) y^y^f^^^^n^^ "BLD",9718,4,71.99,224) "BLD",9718,4,"APDD",71,71) "BLD",9718,4,"APDD",71,71,900) "BLD",9718,4,"APDD",71,71,901) "BLD",9718,4,"APDD",71,71,902) "BLD",9718,4,"APDD",71,71,903) "BLD",9718,4,"B",71,71) "BLD",9718,4,"B",71.11,71.11) "BLD",9718,4,"B",71.98,71.98) "BLD",9718,4,"B",71.99,71.99) "BLD",9718,6) 22^ "BLD",9718,6.3) 119 "BLD",9718,"ABPKG") n "BLD",9718,"INID") ^n "BLD",9718,"INIT") RA127PO "BLD",9718,"KRN",0) ^9.67PA^779.2^20 "BLD",9718,"KRN",.4,0) .4 "BLD",9718,"KRN",.4,"NM",0) ^9.68A^^ "BLD",9718,"KRN",.401,0) .401 "BLD",9718,"KRN",.402,0) .402 "BLD",9718,"KRN",.402,"NM",0) ^9.68A^3^3 "BLD",9718,"KRN",.402,"NM",1,0) RA PRO TO RMPF FILE #71^71^0 "BLD",9718,"KRN",.402,"NM",2,0) RA PROCEDURE EDIT FILE #71^71^0 "BLD",9718,"KRN",.402,"NM",3,0) NEW RAD PROCEDURE FILE #71.11^71.11^0 "BLD",9718,"KRN",.402,"NM","B","NEW RAD PROCEDURE FILE #71.11",3) "BLD",9718,"KRN",.402,"NM","B","RA PRO TO RMPF FILE #71",1) "BLD",9718,"KRN",.402,"NM","B","RA PROCEDURE EDIT FILE #71",2) "BLD",9718,"KRN",.403,0) .403 "BLD",9718,"KRN",.5,0) .5 "BLD",9718,"KRN",.84,0) .84 "BLD",9718,"KRN",3.6,0) 3.6 "BLD",9718,"KRN",3.6,"NM",0) ^9.68A^2^1 "BLD",9718,"KRN",3.6,"NM",2,0) UNMATCHED RADIOLOGY PROCEDURE^^0 "BLD",9718,"KRN",3.6,"NM","B","UNMATCHED RADIOLOGY PROCEDURE",2) "BLD",9718,"KRN",3.8,0) 3.8 "BLD",9718,"KRN",3.8,"NM",0) ^9.68A^1^1 "BLD",9718,"KRN",3.8,"NM",1,0) RADNTRT^^0 "BLD",9718,"KRN",3.8,"NM","B","RADNTRT",1) "BLD",9718,"KRN",9.2,0) 9.2 "BLD",9718,"KRN",9.8,0) 9.8 "BLD",9718,"KRN",9.8,"NM",0) ^9.68A^17^16 "BLD",9718,"KRN",9.8,"NM",1,0) RAMAIN2^^0^B63613910 "BLD",9718,"KRN",9.8,"NM",3,0) RAMAIN4^^0^B30460135 "BLD",9718,"KRN",9.8,"NM",4,0) RAMAIN5^^0^B38646269 "BLD",9718,"KRN",9.8,"NM",5,0) RAONDEM^^0^B16252030 "BLD",9718,"KRN",9.8,"NM",6,0) RADELSVR^^0^B227624 "BLD",9718,"KRN",9.8,"NM",7,0) RATIMBUL^^0^B5729443 "BLD",9718,"KRN",9.8,"NM",8,0) RA127PO^^0^B8722416 "BLD",9718,"KRN",9.8,"NM",9,0) RANEWPRO^^0^B6425688 "BLD",9718,"KRN",9.8,"NM",10,0) RAUTL23^^0^B26946304 "BLD",9718,"KRN",9.8,"NM",11,0) RAXMLSND^^0^B52260194 "BLD",9718,"KRN",9.8,"NM",12,0) RAMRPIN^^0^B14323288 "BLD",9718,"KRN",9.8,"NM",13,0) RANPRO^^0^B93138436 "BLD",9718,"KRN",9.8,"NM",14,0) RANPRO4^^0^B38023574 "BLD",9718,"KRN",9.8,"NM",15,0) RANPRO5^^0^B42155834 "BLD",9718,"KRN",9.8,"NM",16,0) RANPROU^^0^B5444307 "BLD",9718,"KRN",9.8,"NM",17,0) RANPROU2^^0^B15193434 "BLD",9718,"KRN",9.8,"NM","B","RA127PO",8) "BLD",9718,"KRN",9.8,"NM","B","RADELSVR",6) "BLD",9718,"KRN",9.8,"NM","B","RAMAIN2",1) "BLD",9718,"KRN",9.8,"NM","B","RAMAIN4",3) "BLD",9718,"KRN",9.8,"NM","B","RAMAIN5",4) "BLD",9718,"KRN",9.8,"NM","B","RAMRPIN",12) "BLD",9718,"KRN",9.8,"NM","B","RANEWPRO",9) "BLD",9718,"KRN",9.8,"NM","B","RANPRO",13) "BLD",9718,"KRN",9.8,"NM","B","RANPRO4",14) "BLD",9718,"KRN",9.8,"NM","B","RANPRO5",15) "BLD",9718,"KRN",9.8,"NM","B","RANPROU",16) "BLD",9718,"KRN",9.8,"NM","B","RANPROU2",17) "BLD",9718,"KRN",9.8,"NM","B","RAONDEM",5) "BLD",9718,"KRN",9.8,"NM","B","RATIMBUL",7) "BLD",9718,"KRN",9.8,"NM","B","RAUTL23",10) "BLD",9718,"KRN",9.8,"NM","B","RAXMLSND",11) "BLD",9718,"KRN",19,0) 19 "BLD",9718,"KRN",19,"NM",0) ^9.68A^13^11 "BLD",9718,"KRN",19,"NM",1,0) RADIOLOGY INACTIVATE^^0 "BLD",9718,"KRN",19,"NM",2,0) RADIOLOGY ON DEMAND^^0 "BLD",9718,"KRN",19,"NM",4,0) RA MAP TO MRPF^^0 "BLD",9718,"KRN",19,"NM",6,0) RA NEW PROCEDURE TIME BULLETIN^^0 "BLD",9718,"KRN",19,"NM",7,0) RA SUPERVISOR^^3 "BLD",9718,"KRN",19,"NM",8,0) RANEWPRO^^0 "BLD",9718,"KRN",19,"NM",9,0) RA SEEDING DONE^^0 "BLD",9718,"KRN",19,"NM",10,0) RA MAP ONE^^0 "BLD",9718,"KRN",19,"NM",11,0) RALOINC ENTER^^0 "BLD",9718,"KRN",19,"NM",12,0) RA MRPF PIN^^0 "BLD",9718,"KRN",19,"NM",13,0) RA PROCEDURE^^0 "BLD",9718,"KRN",19,"NM","B","RA MAP ONE",10) "BLD",9718,"KRN",19,"NM","B","RA MAP TO MRPF",4) "BLD",9718,"KRN",19,"NM","B","RA MRPF PIN",12) "BLD",9718,"KRN",19,"NM","B","RA NEW PROCEDURE TIME BULLETIN",6) "BLD",9718,"KRN",19,"NM","B","RA PROCEDURE",13) "BLD",9718,"KRN",19,"NM","B","RA SEEDING DONE",9) "BLD",9718,"KRN",19,"NM","B","RA SUPERVISOR",7) "BLD",9718,"KRN",19,"NM","B","RADIOLOGY INACTIVATE",1) "BLD",9718,"KRN",19,"NM","B","RADIOLOGY ON DEMAND",2) "BLD",9718,"KRN",19,"NM","B","RALOINC ENTER",11) "BLD",9718,"KRN",19,"NM","B","RANEWPRO",8) "BLD",9718,"KRN",19.1,0) 19.1 "BLD",9718,"KRN",101,0) 101 "BLD",9718,"KRN",409.61,0) 409.61 "BLD",9718,"KRN",771,0) 771 "BLD",9718,"KRN",779.2,0) 779.2 "BLD",9718,"KRN",870,0) 870 "BLD",9718,"KRN",8989.51,0) 8989.51 "BLD",9718,"KRN",8989.52,0) 8989.52 "BLD",9718,"KRN",8994,0) 8994 "BLD",9718,"KRN","B",.4,.4) "BLD",9718,"KRN","B",.401,.401) "BLD",9718,"KRN","B",.402,.402) "BLD",9718,"KRN","B",.403,.403) "BLD",9718,"KRN","B",.5,.5) "BLD",9718,"KRN","B",.84,.84) "BLD",9718,"KRN","B",3.6,3.6) "BLD",9718,"KRN","B",3.8,3.8) "BLD",9718,"KRN","B",9.2,9.2) "BLD",9718,"KRN","B",9.8,9.8) "BLD",9718,"KRN","B",19,19) "BLD",9718,"KRN","B",19.1,19.1) "BLD",9718,"KRN","B",101,101) "BLD",9718,"KRN","B",409.61,409.61) "BLD",9718,"KRN","B",771,771) "BLD",9718,"KRN","B",779.2,779.2) "BLD",9718,"KRN","B",870,870) "BLD",9718,"KRN","B",8989.51,8989.51) "BLD",9718,"KRN","B",8989.52,8989.52) "BLD",9718,"KRN","B",8994,8994) "BLD",9718,"QDEF") ^^^^NO^^^^YES^^NO "BLD",9718,"QUES",0) ^9.62^^ "BLD",9718,"REQB",0) ^9.611^2^2 "BLD",9718,"REQB",1,0) XU*8.0*666^2 "BLD",9718,"REQB",2,0) HDI*1.0*16^2 "BLD",9718,"REQB","B","HDI*1.0*16",2) "BLD",9718,"REQB","B","XU*8.0*666",1) "FIA",71) RAD/NUC MED PROCEDURES "FIA",71,0) ^RAMIS(71, "FIA",71,0,0) 71I "FIA",71,0,1) y^n^p^^^^n^^n "FIA",71,0,10) "FIA",71,0,11) "FIA",71,0,"RLRO") "FIA",71,0,"VR") 5.0^RA "FIA",71,71) 1 "FIA",71,71,900) "FIA",71,71,901) "FIA",71,71,902) "FIA",71,71,903) "FIA",71.11) NEW RAD PROCEDURE WORKUP "FIA",71.11,0) ^RAMRPF(71.11, "FIA",71.11,0,0) 71.11 "FIA",71.11,0,1) y^y^f^^^^n "FIA",71.11,0,10) "FIA",71.11,0,11) "FIA",71.11,0,"RLRO") "FIA",71.11,0,"VR") 5.0^RA "FIA",71.11,71.11) 0 "FIA",71.11,71.1102) 0 "FIA",71.11,71.1103) 0 "FIA",71.11,71.1105) 0 "FIA",71.11,71.1108) 0 "FIA",71.11,71.111) 0 "FIA",71.11,71.11125) 0 "FIA",71.11,71.11135) 0 "FIA",71.11,71.1155) 0 "FIA",71.11,71.11731) 0 "FIA",71.11,71.12) 0 "FIA",71.11,71.13) 0 "FIA",71.98) MASTER RADIOLOGY SITE "FIA",71.98,0) ^RAMRPF(71.98, "FIA",71.98,0,0) 71.98 "FIA",71.98,0,1) y^y^f^^^^n "FIA",71.98,0,10) "FIA",71.98,0,11) "FIA",71.98,0,"RLRO") "FIA",71.98,0,"VR") 5.0^RA "FIA",71.98,71.98) 0 "FIA",71.99) MASTER RADIOLOGY PROCEDURE "FIA",71.99,0) ^RAMRPF(71.99, "FIA",71.99,0,0) 71.99 "FIA",71.99,0,1) y^y^f^^^^n^^ "FIA",71.99,0,10) "FIA",71.99,0,11) "FIA",71.99,0,"RLRO") "FIA",71.99,0,"VR") 5.0^RA "FIA",71.99,71.99) 0 "FIA",71.99,71.9901) 0 "FIA",71.99,71.993) 0 "FIA",71.99,71.9999) 0 "INIT") RA127PO "IX",71.99,71.99,"AMASTERVUID",0) 71.99^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^71.99^^^^^S "IX",71.99,71.99,"AMASTERVUID",.1,0) ^^3^3^3160308 "IX",71.99,71.99,"AMASTERVUID",.1,1,0) If multiple entries have the same VUID in the file, this cross-reference "IX",71.99,71.99,"AMASTERVUID",.1,2,0) can be used to identify the Master entry for a VUID associated with a "IX",71.99,71.99,"AMASTERVUID",.1,3,0) Term/Concept. "IX",71.99,71.99,"AMASTERVUID",1) S ^RAMRPF(71.99,"AMASTERVUID",$E(X(1),1,30),X(2),DA)="" "IX",71.99,71.99,"AMASTERVUID",2) K ^RAMRPF(71.99,"AMASTERVUID",$E(X(1),1,30),X(2),DA) "IX",71.99,71.99,"AMASTERVUID",2.5) K ^RAMRPF(71.99,"AMASTERVUID") "IX",71.99,71.99,"AMASTERVUID",11.1,0) ^.114IA^2^2 "IX",71.99,71.99,"AMASTERVUID",11.1,1,0) 1^F^71.99^99.99^30^1^F "IX",71.99,71.99,"AMASTERVUID",11.1,2,0) 2^F^71.99^99.98^^2^F "KRN",.402,777,-1) 0^2 "KRN",.402,777,0) RA PROCEDURE EDIT^3160926.101^^71^^^3161208 "KRN",.402,777,"DIAB",1,1,71.01,0) ALL "KRN",.402,777,"DIAB",1,1,71.0125,0) ALL "KRN",.402,777,"DIAB",1,1,71.0135,0) ALL "KRN",.402,777,"DIAB",1,1,71.04,0) ALL "KRN",.402,777,"DIAB",1,1,71.0731,0) ALL "KRN",.402,777,"DIAB",3,1,71.08,0) LOW ADULT DOSE;T "KRN",.402,777,"DIAB",5,1,71.08,0) HIGH ADULT DOSE;T "KRN",.402,777,"DIAB",6,0,71,11) DISPLAY ED DESC WHEN ORDERED;"DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED" "KRN",.402,777,"DIAB",8,1,71.08,0) USUAL DOSE;T "KRN",.402,777,"DR",1,71) S DIE("NO^")="BACKOUTOK";S:$P(^RAMIS(71,DA,0),U,8)="Y" Y="@01";S:$G(RAEND)=1 Y="@999";.01;@01;S RARMPF=$P($G(^RAMIS(71,DA,"NTRT")),U,1),RAEXC=$P($G(^RAMIS(71,DA,"NTRT")),U,2);12;S RAIMAG=$$IMAG^RASITE(+X);K RADIO; "KRN",.402,777,"DR",1,71,1) S:$P($G(^RA(79.2,+$P($G(^RAMIS(71,DA,0)),"^",12),0)),"^",5)="Y" RADIO="";6//BROAD;S RAPTY=$E(X);I $P($G(^RAMIS(71,DA,"NTRT")),U,1)'="" W !!?3,"Mapped to MRPF procedure: "_$P(^RAMRPF(71.99,$P(^RAMIS(71,DA,"NTRT"),U,1),0),U,1),!; "KRN",.402,777,"DR",1,71,2) K DIE("NO^");S:(RAPTY="B")!(RAPTY="P") Y="@7";20//NO;S RAREM="check if user answered 'no' to 'CM Used'" K RAREM;S:$P($G(^RAMIS(71,DA,0)),U,20)="Y" Y="@5";N RADELCMQ S RAREM="if 'no' or null to 'CM Used' kill CM data" K RAREM; "KRN",.402,777,"DR",1,71,3) S:+$O(^RAMIS(71,DA,"CM",0))=0 Y="@6";S RADELCMQ=$$DELCM^RAUTL2(DA);S:$G(RADELCMQ)="^" Y="@999";S:$G(RADELCMQ)="N" Y="@5";K ^RAMIS(71,DA,"CM") S Y="@6";@5;125;@6;731;@7;S:RAPTY'="P" Y="@10";18;@10;13;150;S:"BP"[RAPTY Y="@50";5; "KRN",.402,777,"DR",1,71,4) K RA65 S RA65="P";55///^S X=$$RXMEDIT^RAPSAPI3(.RA65,","_DA_",",71,55,DT);S:$G(RA65("RESULT"))'="" Y="DEFAULT MEDICATIONS";S:'$D(RADIO) Y="@50";@20;W !!?3,"Reminder --"; "KRN",.402,777,"DR",1,71,5) W !!?3,"Selection of 'Suppress' for 'SUPPRESS RADIOPHARM PROMPT' will result in";W !?3,"the deletion of all default radiopharmaceutical information for this";W !?3,"procedure.",!;2;S:X'=1 Y="@40"; "KRN",.402,777,"DR",1,71,6) S:'$O(^RAMIS(71,DA,"NUC",0))&($P(^RAMIS(71,DA,0),U,19)="") Y="@70";W:$O(^RAMIS(71,DA,"NUC",0)) !!?3,"Radiopharmaceutical information entered previously",!?3,"for this procedure will be delete.",$C(7); "KRN",.402,777,"DR",1,71,7) W:$P(^RAMIS(71,DA,0),U,19)]"" !!?3,"PROMPT FOR RADIOPHARM RX will be deleted.",$C(7);S RAASK="" R !!,"Are you sure you want those data deleted ? : N//",RAASK;S:$E(RAASK)=""!("Yy"'[$E(RAASK)) Y="@20"; "KRN",.402,777,"DR",1,71,8) S RAREM="default radiopharms will be deleted from calling rtn RAMAIN2" K RAREM;19///@;S:RAPTY="B" Y="@150";S:RAPTY="P" Y="@200";S Y="@70";@40;19;@50;S:RAPTY="B" Y="@150";S:RAPTY="P" Y="@200";S:'$D(RADIO) Y="@70";K RA65 S RA65="R"; "KRN",.402,777,"DR",1,71,9) 50///^S X=$$RXMEDIT^RAPSAPI3(.RA65,","_DA_",",71,50,DT);S:$G(RA65("RESULT"))'="" Y="DEFAULT RADIOPHARMACEUTICALS";@70;175;S RAREM="edit CPT for new records only RAPNM=proc. name" K RAREM;S:'RANEW71 Y="@15";D CPT^RAMAINU(DA,RAPNM); "KRN",.402,777,"DR",1,71,10) @15;W:'RANEW71 !,"CPT CODE// "_$P($$NAMCODE^RACPTMSC($P(^RAMIS(71,DA,0),U,9),DT),U)_" (no editing)";D:$T(DISDCM^RACPTMSC)]"" DISDCM^RACPTMSC;135;7//NO;11//NO;@150;3;4;75;@200;S:"BP"'[RAPTY Y="@250";11//NO;@250;200; "KRN",.402,777,"DR",1,71,11) S:RAPTY'="P" Y="@290";300;@290;500;S:'$O(^RAMIS(71,DA,"EDU",0)) Y="@300";17DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED~;@300;100//^S X=$S(RAPTY="P"&('$O(^RAMIS(71,DA,4,0))):DT,1:"");@999; "KRN",.402,777,"DR",1,71,12) K RADIO,RAMIS,RAPTY,RAIMAG,RA65,RARMPF,RAEXC; "KRN",.402,777,"DR",2,71.01) .01 "KRN",.402,777,"DR",2,71.0125) .01 "KRN",.402,777,"DR",2,71.0135) .01 "KRN",.402,777,"DR",2,71.02) .01;2; "KRN",.402,777,"DR",2,71.03) .01;S RAMIS=X;2;S:$P(RAIMAG,U,3)="NM" Y="@99";3;S:RAMIS'=21 Y="@99";4;@99; "KRN",.402,777,"DR",2,71.04) .01 "KRN",.402,777,"DR",2,71.05) .01; "KRN",.402,777,"DR",2,71.055) S:$G(X)="" Y=0;.01///^S X=$$RXMEDIT^RAPSAPI3(.RA65,DA_","_DA(1)_",");2; "KRN",.402,777,"DR",2,71.0731) .01 "KRN",.402,777,"DR",2,71.08) S:$G(X)="" Y=0;.01///^S X=$$RXMEDIT^RAPSAPI3(.RA65,DA_","_DA(1)_",");6T~;S X=X;5T~;S X=X;D EN^DDIOL("Input a 'Usual Dose' value within the range of: "_$$RANGE^RADD2(.DA),"","!?5");2T~;S X=X;3;S RAROUTE=+$G(X); "KRN",.402,777,"DR",2,71.08,1) S:'$O(^RAMIS(71.6,RAROUTE,"SITE",0)) Y="@49";S:$P(^RAMIS(71.6,RAROUTE,0),U,3)="Y" Y="@49";4;S Y="@55";@49;4///@;@55;7; "KRN",.402,2762,-1) 0^1 "KRN",.402,2762,0) RA PRO TO RMPF^3160609.1118^@^71^^@^3160609 "KRN",.402,2762,"DR",1,71) .01;I X["^" S RACONT="^",Y="@99";9;@99; "KRN",.402,2778,-1) 0^3 "KRN",.402,2778,0) NEW RAD PROCEDURE^3161129.2043^^71.11^^^3161208 "KRN",.402,2778,"DIAB",1,1,71.111,0) ALL "KRN",.402,2778,"DIAB",1,1,71.11125,0) ALL "KRN",.402,2778,"DIAB",1,1,71.11135,0) ALL "KRN",.402,2778,"DIAB",1,1,71.11731,0) ALL "KRN",.402,2778,"DIAB",1,1,71.12,0) ALL "KRN",.402,2778,"DIAB",3,1,71.1108,0) LOW ADULT DOSE;T "KRN",.402,2778,"DIAB",5,1,71.1108,0) HIGH ADULT DOSE;T "KRN",.402,2778,"DIAB",6,0,71.11,12) DISPLAY ED DESC WHEN ORDERED;"DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED" "KRN",.402,2778,"DIAB",8,1,71.1108,0) USUAL DOSE;T "KRN",.402,2778,"DR",1,71.11) S DIE("NO^")="BACKOUTOK";S:$P($G(^RAMRPF(71.11,DA,0)),U,8)="Y" Y="@01";S:$G(RAEND)=1 Y="@999";.01//^S X=RANM;@01;S RARMPF=$P($G(^RAMRPF(71.11,DA,"NTRT")),U,1),RAEXC=$P($G(^RAMRPF(71.11,DA,"NTRT")),U,2);12; "KRN",.402,2778,"DR",1,71.11,1) S RAIMAG=$$IMAG^RASITE(+X);K RADIO;S:$P($G(^RA(79.2,+$P($G(^RAMRPF(71.11,DA,0)),"^",12),0)),"^",5)="Y" RADIO="";6//BROAD;S RAPTY=$E(X); "KRN",.402,2778,"DR",1,71.11,2) I $P($G(^RAMRPF(71.11,DA,"NTRT")),U,1)'="" W !!?3,"Mapped to MRPF procedure: "_$P(^RAMRPF(71.99,$P(^RAMRPF(71.11,DA,"NTRT"),U,1),0),U,1),!;K DIE("NO^");S:(RAPTY="B")!(RAPTY="P") Y="@7";20//NO; "KRN",.402,2778,"DR",1,71.11,3) S RAREM="check if user answered 'no' to 'CM Used'" K RAREM;S:$P($G(^RAMRPF(71.11,DA,0)),U,20)="Y" Y="@5";N RADELCMQ S RAREM="if 'no' or null to 'CM Used' kill CM data" K RAREM;S:+$O(^RAMRPF(71.11,DA,"CM",0))=0 Y="@6"; "KRN",.402,2778,"DR",1,71.11,4) S RADELCMQ=$$DELCM^RAUTL2(DA);S:$G(RADELCMQ)="^" Y="@999";S:$G(RADELCMQ)="N" Y="@5";K ^RAMRPF(71.11,DA,"CM") S Y="@6";@5;125;@6;731;@7;S:RAPTY'="P" Y="@10";18;@10;13;150;S:"BP"[RAPTY Y="@50";5;K RA65 S RA65="P"; "KRN",.402,2778,"DR",1,71.11,5) 55///^S X=$$RXMEDIT^RAPSAPI3(.RA65,","_DA_",",71.11,55,DT);S:$G(RA65("RESULT"))'="" Y="DEFAULT MEDICATIONS";S:'$D(RADIO) Y="@50";@20;W !!?3,"Reminder --"; "KRN",.402,2778,"DR",1,71.11,6) W !!?3,"Selection of 'Suppress' for 'SUPPRESS RADIOPHARM PROMPT' will result in";W !?3,"the deletion of all default radiopharmaceutical information for this";W !?3,"procedure.",!;2;S:X'=1 Y="@40"; "KRN",.402,2778,"DR",1,71.11,7) S:'$O(^RAMRPF(71.11,DA,"NUC",0))&($P(^RAMRPF(71.11,DA,0),U,19)="") Y="@70";W:$O(^RAMRPF(71.11,DA,"NUC",0)) !!?3,"Radiopharmaceutical information entered previously",!?3,"for this procedure will be delete.",$C(7); "KRN",.402,2778,"DR",1,71.11,8) W:$P(^RAMRPF(71.11,DA,0),U,19)]"" !!?3,"PROMPT FOR RADIOPHARM RX will be deleted.",$C(7);S RAASK="" R !!,"Are you sure you want those data deleted ? : N//",RAASK;S:$E(RAASK)=""!("Yy"'[$E(RAASK)) Y="@20"; "KRN",.402,2778,"DR",1,71.11,9) S RAREM="default radiopharms will be deleted from calling rtn RAMAIN2" K RAREM;S:RAPTY="B" Y="@150";S:RAPTY="B" Y="@200";S Y="@70";@40;19;@50;S:RAPTY="B" Y="@150";S:RAPTY="P" Y="@200";S:'$D(RADIO) Y="@70";K RA65 S RA65="R"; "KRN",.402,2778,"DR",1,71.11,10) 50///^S X=$$RXMEDIT^RAPSAPI3(.RA65,","_DA_",",71.11,50,DT);S:$G(RA65("RESULT"))'="" Y="DEFAULT RADIOPHARMACEUTICALS";@70;175;S RAREM="edit CPT for new records only RAPNM=proc. name" K RAREM;S:'RANEW Y="@15";D CPT^RANPROU(DA,RAPNM); "KRN",.402,2778,"DR",1,71.11,11) @15;W:'RANEW !,"CPT CODE// "_$P($$NAMCODE^RACPTMSC($P(^RAMRPF(71.11,DA,0),U,9),DT),U)_" (no editing)";D:$T(DISDCM^RACPTMSC)]"" DISDCM^RACPTMSC;135;7//NO;11//NO;@150;3;4;75;@200;S:"BP"'[RAPTY Y="@250";11//NO;@250;200; "KRN",.402,2778,"DR",1,71.11,12) S:RAPTY'="P" Y="@290";300;@290;500;S:'$O(^RAMRPF(71.11,DA,"EDU",0)) Y="@300";17DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED~;@300;100//^S X=$S(RAPTY="P"&('$O(^RAMRPF(71.11,DA,71.1105,0))):DT,1:"");@999; "KRN",.402,2778,"DR",1,71.11,13) K RADIO,RAMIS,RAPTY,RAIMAG,RA65,RARMPF,RAEXC; "KRN",.402,2778,"DR",2,71.1102) .01; "KRN",.402,2778,"DR",2,71.1103) .01;S RAMIS=X;2;S:$P(RAIMAG,U,3)="NM" Y="@99";3;S:RAMIS'=21 Y="@99";@99; "KRN",.402,2778,"DR",2,71.1105) .01; "KRN",.402,2778,"DR",2,71.1108) S:$G(X)="" Y=0;.01///^S X=$$RXMEDIT^RAPSAPI3(.RA65,DA_","_DA(1)_",");6T~;S X=X;5T~;S X=X;D EN^DDIOL("Input a 'Usual Dose' value within the range of: "_$$RANGE^RADD2(.DA),"","!?5");2T~;S X=X;3;S RAROUTE=+$G(X); "KRN",.402,2778,"DR",2,71.1108,1) S:'$O(^RAMIS(71.6,RAROUTE,"SITE",0)) Y="@49";4;S Y="@55";@49;4///@;@55;7; "KRN",.402,2778,"DR",2,71.111) .01 "KRN",.402,2778,"DR",2,71.11125) .01 "KRN",.402,2778,"DR",2,71.11135) .01 "KRN",.402,2778,"DR",2,71.1155) S:$G(X)="" Y=0;.01///^S X=$$RXMEDIT^RAPSAPI3(.RA65,DA_","_DA(1)_",");2; "KRN",.402,2778,"DR",2,71.11731) .01 "KRN",.402,2778,"DR",2,71.12) .01 "KRN",3.6,261,-1) 0^2 "KRN",3.6,261,0) UNMATCHED RADIOLOGY PROCEDURE^Unmatched Radiology Procedure^30^0 "KRN",3.6,261,1,0) ^3.61A^10^10^3160418^^^^ "KRN",3.6,261,1,1,0) A new Radiology Procedure has been marked as having been submitted to NTRT "KRN",3.6,261,1,2,0) |1| days ago and is not yet matched to a Master Radiology Procedure "KRN",3.6,261,1,3,0) File entry. "KRN",3.6,261,1,4,0) Procedure: |2| "KRN",3.6,261,1,5,0) CPT: |3| "KRN",3.6,261,1,6,0) Created: |5| "KRN",3.6,261,1,7,0) "KRN",3.6,261,1,8,0) Facility/Facility number: |4| "KRN",3.6,261,1,9,0) "KRN",3.6,261,1,10,0) Local IEN: |7| "KRN",3.6,261,3,0) ^3.63^3^3^3160418^^^^ "KRN",3.6,261,3,1,0) This bulletin is posted when an unmatched radiology procedure reaches "KRN",3.6,261,3,2,0) X+days after NTRT is given with new entry and it has not been matched "KRN",3.6,261,3,3,0) to an entry in the MRPF file. "KRN",3.6,261,4,0) ^3.64A^7^7 "KRN",3.6,261,4,1,0) 1 "KRN",3.6,261,4,1,1,0) ^3.65^1^1^3160218^^ "KRN",3.6,261,4,1,1,1,0) Number of days since creation "KRN",3.6,261,4,2,0) 2 "KRN",3.6,261,4,2,1,0) ^3.65^1^1^3160218^^ "KRN",3.6,261,4,2,1,1,0) New procedure name "KRN",3.6,261,4,3,0) 3 "KRN",3.6,261,4,3,1,0) ^3.65^1^1^3160218^^ "KRN",3.6,261,4,3,1,1,0) procedure CPT code "KRN",3.6,261,4,4,0) 4 "KRN",3.6,261,4,4,1,0) ^3.65^1^1^3160218^^ "KRN",3.6,261,4,4,1,1,0) Facility name and number "KRN",3.6,261,4,5,0) 5 "KRN",3.6,261,4,5,1,0) ^3.65^1^1^3160218^^ "KRN",3.6,261,4,5,1,1,0) Creation date "KRN",3.6,261,4,6,0) 6 "KRN",3.6,261,4,6,1,0) ^3.65^1^1^3160217^^^^ "KRN",3.6,261,4,6,1,1,0) Local creation date "KRN",3.6,261,4,7,0) 7 "KRN",3.6,261,4,7,1,0) ^3.65^1^1^3160418^^^^ "KRN",3.6,261,4,7,1,1,0) IEN in file 71 for this entry "KRN",3.8,1388,-1) 0^1 "KRN",3.8,1388,0) RADNTRT^PU^n^^^^ "KRN",3.8,1388,3) "KRN",19,998,-1) 3^7 "KRN",19,998,0) RA SUPERVISOR^Supervisor Menu^^M^^^^^^^^^^1^1 "KRN",19,998,1,0) ^19.06^3^3^3161201^^^^ "KRN",19,998,1,1,0) This menu provides many functions which should only be used by "KRN",19,998,1,2,0) the package coordinator. The functions involve very sensitive "KRN",19,998,1,3,0) aspects of the system; incorrect usage can cause problems. "KRN",19,998,10,0) ^19.01IP^48^48 "KRN",19,998,10,44,0) 2921288^ASC "KRN",19,998,10,44,"^") RA MAP TO MRPF "KRN",19,998,10,45,0) 2921298^SEED "KRN",19,998,10,45,"^") RA SEEDING DONE "KRN",19,998,10,46,0) 2921299^AON "KRN",19,998,10,46,"^") RA MAP ONE "KRN",19,998,10,47,0) 2921314^LNC "KRN",19,998,10,47,"^") RALOINC ENTER "KRN",19,998,10,48,0) 2921355^PIN "KRN",19,998,10,48,"^") RA MRPF PIN "KRN",19,998,15) D KILL^RAPSET1 "KRN",19,998,20) D SET^RAPSET1 "KRN",19,998,99) 64218,35052 "KRN",19,998,99.1) 64127,49137 "KRN",19,998,"U") SUPERVISOR MENU "KRN",19,1010,-1) 0^13 "KRN",19,1010,0) RA PROCEDURE^Procedure Enter/Edit^^R^^^^^^^y^^^^ "KRN",19,1010,1,0) ^19.06^46^46^3161201^^^^ "KRN",19,1010,1,1,0) This function allows the package coordinator to enter new "KRN",19,1010,1,2,0) procedures into the system and to edit existing procedures. "KRN",19,1010,1,3,0) "KRN",19,1010,1,4,0) Entries in this 'procedure' file are the allowable choices the "KRN",19,1010,1,5,0) user will be able to choose from at the 'Procedure' prompt. "KRN",19,1010,1,6,0) This prompt appears as part of the 'Request an Exam', 'Register' exam, "KRN",19,1010,1,7,0) 'Case No. Edit', and the 'Exam Status Tracking' functions. "KRN",19,1010,1,8,0) "KRN",19,1010,1,9,0) If the procedure has an inactivation date of less than the current "KRN",19,1010,1,10,0) date then the procedure is not a valid choice and will not appear "KRN",19,1010,1,11,0) on the list of valid/active procedures when displayed to the user. "KRN",19,1010,1,12,0) "KRN",19,1010,1,13,0) There are four types of procedures. They are the following: "KRN",19,1010,1,14,0) "KRN",19,1010,1,15,0) 1) Detailed - Procedure is associated with one or more AMIS codes "KRN",19,1010,1,16,0) and must have a CPT (Current Procedural Terminology) "KRN",19,1010,1,17,0) code assigned to it. "KRN",19,1010,1,18,0) "KRN",19,1010,1,19,0) 2) Series - Procedure is associated with more than one AMIS "KRN",19,1010,1,20,0) code and must have a CPT code assigned to it. "KRN",19,1010,1,21,0) "KRN",19,1010,1,22,0) 3) Broad - Procedure is mainly used by the receptionist when "KRN",19,1010,1,23,0) scheduling a patient for an exam. It is used "KRN",19,1010,1,24,0) when he/she is not exactly sure which 'detailed' or "KRN",19,1010,1,25,0) 'series' procedure will be performed. However, "KRN",19,1010,1,26,0) before the exam can be considered 'complete', the "KRN",19,1010,1,27,0) procedure must be changed to 'detailed' or 'series'. "KRN",19,1010,1,28,0) "KRN",19,1010,1,29,0) If the 'division' parameter requiring a 'detailed' "KRN",19,1010,1,30,0) or 'series' procedure upon initial exam registration "KRN",19,1010,1,31,0) is set to 'yes', then the receptionist will not be "KRN",19,1010,1,32,0) allowed to select a 'broad' procedure. "KRN",19,1010,1,33,0) "KRN",19,1010,1,34,0) 4) Parent - Procedure is a "placeholder" used for ordering. It "KRN",19,1010,1,35,0) does not have a CPT and cannot be registered. Parent "KRN",19,1010,1,36,0) procedures must have one or more descendant procedures "KRN",19,1010,1,37,0) associated with them. The descendants should be "KRN",19,1010,1,38,0) detailed procedures with valid CPT codes. During "KRN",19,1010,1,39,0) Registration, the system automatically cycles through "KRN",19,1010,1,40,0) each descendant and asks if you want to register it. "KRN",19,1010,1,41,0) After each descendant is either registered or "KRN",19,1010,1,42,0) bypassed, the opportunity to add additional procedures "KRN",19,1010,1,43,0) is given. All are registered under the same exam "KRN",19,1010,1,44,0) date/time. Parent procedures can be set up to require "KRN",19,1010,1,45,0) a single report for all CPT's, or individual reports "KRN",19,1010,1,46,0) for each CPT. "KRN",19,1010,15) "KRN",19,1010,20) "KRN",19,1010,25) EN^RANPRO "KRN",19,1010,99.1) 57013,51400 "KRN",19,1010,"U") PROCEDURE ENTER/EDIT "KRN",19,2921284,-1) 0^1 "KRN",19,2921284,0) RADIOLOGY INACTIVATE^Inactivate a Procedure^^S^^^^^^^^RADIOLOGY/NUCLEAR MEDICINE "KRN",19,2921284,1,0) ^19.06^2^2^3160318^^^^ "KRN",19,2921284,1,1,0) This is a server option that will inactivate a procedure based on the "KRN",19,2921284,1,2,0) receipt of a S. message requesting deactivation "KRN",19,2921284,25) RADELSVR "KRN",19,2921284,220) ^R^^N^N^^1 "KRN",19,2921284,"U") INACTIVATE A PROCEDURE "KRN",19,2921285,-1) 0^2 "KRN",19,2921285,0) RADIOLOGY ON DEMAND^On Demand Radiology Report^^S^^^^^^^^ "KRN",19,2921285,1,0) ^19.06^2^2^3160715^^^ "KRN",19,2921285,1,1,0) This server option will produce a report that is emailed to the Radiology "KRN",19,2921285,1,2,0) Program Office "KRN",19,2921285,25) RAONDEM "KRN",19,2921285,220) ^R^ "KRN",19,2921285,"U") ON DEMAND RADIOLOGY REPORT "KRN",19,2921288,-1) 0^4 "KRN",19,2921288,0) RA MAP TO MRPF^Associate Local Procedures to MRPF^^R^^^^^^^^RADIOLOGY/NUCLEAR MEDICINE "KRN",19,2921288,1,0) ^19.06^3^3^3161114^^^ "KRN",19,2921288,1,1,0) This option allows users to map their local radiology procedures to the "KRN",19,2921288,1,2,0) MASTER RADIOLOGY PROCEDURE file. This option can be stopped and will "KRN",19,2921288,1,3,0) restart where the user left off. "KRN",19,2921288,25) EN^RAMAIN5 "KRN",19,2921288,"U") ASSOCIATE LOCAL PROCEDURES TO "KRN",19,2921289,-1) 0^6 "KRN",19,2921289,0) RA NEW PROCEDURE TIME BULLETIN^New Procedure Time Bulletin^^R^^^^^^^^ "KRN",19,2921289,1,0) ^^2^2^3160218^ "KRN",19,2921289,1,1,0) This option generates the bulletin for new procedures which have not been "KRN",19,2921289,1,2,0) completed based on a selectable timeframe. "KRN",19,2921289,25) RATIMBUL "KRN",19,2921289,"U") NEW PROCEDURE TIME BULLETIN "KRN",19,2921290,-1) 0^8 "KRN",19,2921290,0) RANEWPRO^NTRT Response to New Procedure^^S^^^^^^^^ "KRN",19,2921290,1,0) ^19.06^2^2^3160224^^ "KRN",19,2921290,1,1,0) This is the server option assigned to an NTRT response to a new "KRN",19,2921290,1,2,0) procedure submittal "KRN",19,2921290,25) RANEWPRO "KRN",19,2921290,220) ^R^RADNTRT "KRN",19,2921290,"U") NTRT RESPONSE TO NEW PROCEDURE "KRN",19,2921298,-1) 0^9 "KRN",19,2921298,0) RA SEEDING DONE^Master Procedure file seeding Complete^^A^^^^^^^^^^1 "KRN",19,2921298,1,0) ^19.06^2^2^3161102^^^^ "KRN",19,2921298,1,1,0) This option will allow radiology to indicate whether or not the MASTER "KRN",19,2921298,1,2,0) RADIOLOGY PROCEDURE file (#71.99) has been seeded. "KRN",19,2921298,20) D SEED^RAUTL23 "KRN",19,2921298,"U") MASTER PROCEDURE FILE SEEDING "KRN",19,2921299,-1) 0^10 "KRN",19,2921299,0) RA MAP ONE^Edit MRPF Association on One Procedure^^A^^^^^^^^^^1 "KRN",19,2921299,1,0) ^19.06^1^1^3161201^^^^ "KRN",19,2921299,1,1,0) Map or edit mapping of onw procedure to one MRPF "KRN",19,2921299,20) D ONE^RAUTL23 "KRN",19,2921299,"U") EDIT MRPF ASSOCIATION ON ONE P "KRN",19,2921314,-1) 0^11 "KRN",19,2921314,0) RALOINC ENTER^Enter/Edit LOINC for one procedure^^A^^^^^^^^^^1 "KRN",19,2921314,20) D LOINC^RAUTL23 "KRN",19,2921314,"U") ENTER/EDIT LOINC FOR ONE PROCE "KRN",19,2921355,-1) 0^12 "KRN",19,2921355,0) RA MRPF PIN^Print Active Procedures with inactive CPT/LOINC^^R^^^^^^^^RADIOLOGY/NUCLEAR MEDICINE "KRN",19,2921355,1,0) ^^2^2^3160610^ "KRN",19,2921355,1,1,0) This option prints a list of active Radiology procedures with inactive "KRN",19,2921355,1,2,0) CPT code or MRPF LOINC "KRN",19,2921355,25) RAMRPIN "KRN",19,2921355,"U") PRINT ACTIVE PROCEDURES WITH I "MBREQ") 0 "ORD",2,3.6) 3.6;2;1;;BUL^XPDTA1;;BULE1^XPDIA1;;;BULDEL^XPDIA1 "ORD",2,3.6,0) BULLETIN "ORD",7,.402) .402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%) "ORD",7,.402,0) INPUT TEMPLATE "ORD",11,3.8) 3.8;11;;;MAILG^XPDTA1;MAILGF1^XPDIA1;MAILGE1^XPDIA1;MAILGF2^XPDIA1;;MAILGDEL^XPDIA1(%) "ORD",11,3.8,0) MAIL GROUP "ORD",18,19) 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA "ORD",18,19,0) OPTION "PKG",31,-1) 1^1 "PKG",31,0) RADIOLOGY/NUCLEAR MEDICINE^RA^REGISTERS PATIENTS,RECORDS EXAMS,PROFILES,AMIS REPORTS "PKG",31,20,0) ^9.402P^^ "PKG",31,22,0) ^9.49I^1^1 "PKG",31,22,1,0) 5.0^2980317^2980805^1 "PKG",31,22,1,"PAH",1,0) 127^3161209^520651123 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") YES "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 16 "RTN","RA127PO") 0^8^B8722416^n/a "RTN","RA127PO",1,0) RA127PO ;BPFO/CLT - PATCH RA*5.0*127 POST INSTALL ; 23 Sep 2016 3:33 PM "RTN","RA127PO",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RA127PO",3,0) ; "RTN","RA127PO",4,0) ; This routine uses the following IAs: "RTN","RA127PO",5,0) ; #4640 - ^HDISVF01 calls (supported) "RTN","RA127PO",6,0) ; #4639 - ^HDISVCMR calls (supported) "RTN","RA127PO",7,0) ; #4651 - ^HDISVF09 calls (supported) "RTN","RA127PO",8,0) ; "RTN","RA127PO",9,0) EN ;MAIN ENTRY POINT "RTN","RA127PO",10,0) N RAFAC,X,Y,DA,X1,X2,ZTRTN,ZTDESC,ZTDTH,TMP,DOMPTR,DIE,DA,DR,RADNTRT "RTN","RA127PO",11,0) S RAFAC=$$KSP^XUPARAM("INST") "RTN","RA127PO",12,0) S DIC="^RAMRPF(71.98,",DIC(0)="L",X=RAFAC D ^DIC S DA=+Y "RTN","RA127PO",13,0) S $P(^RAMRPF(71.98,1,0),U,6)="M",$P(^RAMRPF(71.98,1,0),U,1)=RAFAC,^RAMRPF(71.98,"B",RAFAC,1)="" "RTN","RA127PO",14,0) S RADNTRT="RADNTRT",DA=1 "RTN","RA127PO",15,0) ;S DIE="^RAMRPF(71.98,",DIE(0)="",DR="6///RADNTRT;11///"_"//vaauscttweb80.aac.domain.ext;11.5///isaac-rest/rest/1/request/termRequest;10///8080" D ^DIE "RTN","RA127PO",16,0) ;S DIE="^RAMRPF(71.98,",DIE(0)="",DR="6///RADNTRT;11///isaac-rest/rest/1/request/termRequest;11.5///vaauscttweb80.aac.domain.ext;10///8080" "RTN","RA127PO",17,0) S DIE="^RAMRPF(71.98,",DIE(0)="",DR="6///RADNTRT;11///vaauscttweb80.aac.domain.ext;11.5///isaac-rest/rest/1/request/termRequest;10///8080" "RTN","RA127PO",18,0) S DR=DR_";11.6///MASTER-NTRT-RECEIVE_1.XSD" D ^DIE "RTN","RA127PO",19,0) ; "RTN","RA127PO",20,0) TIMBUL ;QUEUE THE TIME BULLETIN "RTN","RA127PO",21,0) S ZTRTN="RATIMBUL",ZTDESC="Radiology new procedure time bulletin" "RTN","RA127PO",22,0) S X1=DT,X2=1 D C^%DTC S ZTDTH=X_.0300 "RTN","RA127PO",23,0) D ^%ZTLOAD "RTN","RA127PO",24,0) ; "RTN","RA127PO",25,0) ; "RTN","RA127PO",26,0) HDIS ; do HDIS 'seeding' "RTN","RA127PO",27,0) N DOMPTR,TMP,DOMAIN,FIL,HDIMSG,A,B,C "RTN","RA127PO",28,0) ; first check if 71.99 file has a .01 field "RTN","RA127PO",29,0) S A=0,A=$O(^RAMRPF(71.99,A)) I 'A D ;< "RTN","RA127PO",30,0) . N INS,DIC,DA,XUMF,NITM "RTN","RA127PO",31,0) . D INISEED "RTN","RA127PO",32,0) ; "RTN","RA127PO",33,0) ; check if process has already been done "RTN","RA127PO",34,0) S DOMAIN="RADIOLOGY",FIL=71.99 "RTN","RA127PO",35,0) S A=$P($$GETSTAT^HDISVF01(FIL),U) I A S MSG="File: "_FIL_" Has already been seeded. Status is: "_A D PSTHALT(MSG) Q "RTN","RA127PO",36,0) ; "RTN","RA127PO",37,0) S TMP=$$GETIEN^HDISVF09(DOMAIN,.DOMPTR) "RTN","RA127PO",38,0) I '+DOMPTR D MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain."),PSTHALT("") Q "RTN","RA127PO",39,0) D EN^HDISVCMR(DOMPTR,FIL) "RTN","RA127PO",40,0) Q "RTN","RA127PO",41,0) ; "RTN","RA127PO",42,0) PSTHALT(MSG) ; display error message "RTN","RA127PO",43,0) S HDIMSG(1)="" "RTN","RA127PO",44,0) S HDIMSG(2)=MSG "RTN","RA127PO",45,0) S HDIMSG(3)="***** Post-installation of Patch RA*5.0*127 HDIS 'seeding' has been halted." "RTN","RA127PO",46,0) S HDIMSG(4)="***** Please contact Enterprise VistA Support." "RTN","RA127PO",47,0) S HDIMSG(5)="" "RTN","RA127PO",48,0) D MES^XPDUTL(.HDIMSG) "RTN","RA127PO",49,0) Q "RTN","RA127PO",50,0) ; "RTN","RA127PO",51,0) ; "RTN","RA127PO",52,0) INISEED ; set initial items into ^RAMRPF(71.99 "RTN","RA127PO",53,0) N INS,DIC,DA,XUMF,NITM "RTN","RA127PO",54,0) S INS="SPECT flow W RNC IV Liver+Spleen^US Guidance for Thoracentesis^US RUQ^US Spleen^US Aorta^Angio Adrenal Unilat^MRI Kidney(s) WO Contr^MRI Abd WO+W contr IV^XR Knee(s) Tunnel View" "RTN","RA127PO",55,0) F NITM=1:1:9 S X=$P(INS,U,NITM) S DIC="^RAMRPF(71.99,",DIC(0)="F",XUMF=1 D FILE^DICN "RTN","RA127PO",56,0) Q "RTN","RADELSVR") 0^6^B227624^n/a "RTN","RADELSVR",1,0) RADELSVR ;BPFO/CLT - DEACTIVATE A PROCEDURE SERVER ; 27 May 2016 2:48 PM "RTN","RADELSVR",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RADELSVR",3,0) ;;Per VHA Directive 10-93-142, this routine should not be modified. "RTN","RADELSVR",4,0) ; "RTN","RADELSVR",5,0) EN ;MAIN ENTRY POINT "RTN","RAMAIN2") 0^1^B63613910^B53609974 "RTN","RAMAIN2",1,0) RAMAIN2 ;HISC/GJC-Radiology Utility File Maintenance (Part Two) ; 21 Oct 2016 3:21 PM "RTN","RAMAIN2",2,0) ;;5.0;Radiology/Nuclear Medicine;**45,62,71,65,127**;Mar 16, 1998;Build 119 "RTN","RAMAIN2",3,0) ; 08/12/2005 bay/kam Remedy Call 104630 Patch 62 "RTN","RAMAIN2",4,0) ; 03/02/2006 BAY/KAM Remedy Call 131482 Patch RA*5*71 "RTN","RAMAIN2",5,0) ; "RTN","RAMAIN2",6,0) ;Supported IA #10141 reference to MES^XPDUTL "RTN","RAMAIN2",7,0) ;Supported IA #10142 reference to EN^DDIOL "RTN","RAMAIN2",8,0) ;Supported IA #10103 reference to DT^XLFDT "RTN","RAMAIN2",9,0) ; "RTN","RAMAIN2",10,0) 2 ;;Procedure Enter/Edit "RTN","RAMAIN2",11,0) ; *** This subroutine once resided in RAMAIN i.e, '2^RAMAIN'. *** "RTN","RAMAIN2",12,0) ; RA PROCEDURE option "RTN","RAMAIN2",13,0) N RACTIVE,RAENALL,RAY,RAFILE,RASTAT,RAXIT,RAIEN,RANEW,RASEED,RANEWPRO K ^XTMP("RAMAIN4",$J) "RTN","RAMAIN2",14,0) S (RAENALL,RANEW71,RAXIT,RANEW)=0 K ^XTMP("RAMAIN4",$J) "RTN","RAMAIN2",15,0) N RADIO,RAPTY,RAASK,RAROUTE ;used by the edit template "RTN","RAMAIN2",16,0) F D Q:$G(RAXIT)=0!($G(RAXIT)="")!($G(^XTMP("RAMAIN4",$J,"RAEND"))=1) G:$G(^XTMP("RAMAIN4",$J,"RAEND"))=1 END "RTN","RAMAIN2",17,0) . K DA,DD,DIC,DINUM,DLAYGO,DO,RACMDIFF,RATRKCMA,RATRKCMB "RTN","RAMAIN2",18,0) . S DIC="^RAMIS(71,",DIC(0)="QEAMLZ",DLAYGO=71,DIC("DR")=6 "RTN","RAMAIN2",19,0) . W ! D ^DIC K D,DD,DIC,DINUM,DLAYGO,DO "RTN","RAMAIN2",20,0) . I $G(Y)<0!($G(Y)="") S ^XTMP("RAMAIN4",$J,"RAEND")=1 Q "RTN","RAMAIN2",21,0) . S (DA,RADA)=+Y,RAY=Y,RAFILE=71 "RTN","RAMAIN2",22,0) . ;RA*5*71 changed next line for Remedy Call 131482 "RTN","RAMAIN2",23,0) . S RANEW71=$S($P(Y,U,3)=1:1,1:0) ;used in template, edit CPT Code if new rec. "RTN","RAMAIN2",24,0) . L +^RAMIS(RAFILE,RADA):5 "RTN","RAMAIN2",25,0) . I '$T D Q "RTN","RAMAIN2",26,0) .. W !?5,"This record is currently being edited by another user." "RTN","RAMAIN2",27,0) .. W !?5,"Try again later!",$C(7) S RAXIT=1 "RTN","RAMAIN2",28,0) .. Q "RTN","RAMAIN2",29,0) . Q "RTN","RAMAIN2",30,0) 21 ;ENTRY POINT FROM RANPRO, RA*5.0*127 "RTN","RAMAIN2",31,0) S (RAENALL,RANEW71,RAXIT,RANEW)=0 S:$G(RACTIVE)="" RACTIVE="" K ^XTMP("RAMAIN4",$J) "RTN","RAMAIN2",32,0) I RACTIVE="" S RACTIVE=$P($G(^RAMIS(71,RADA,"I")),"^") "RTN","RAMAIN2",33,0) S RAFILE=71,RAY=RAYY S:$G(RASTAT)="" RASTAT=$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RAMAIN2",34,0) D ;ENTER INTO STRUCTURE PROCESS "RTN","RAMAIN2",35,0) . S RAPNM=$P($G(Y(0)),U) ;proc. name for display purposes in template "RTN","RAMAIN2",36,0) . S RACTIVE=$P($G(^RAMIS(71,RADA,"I")),"^") "RTN","RAMAIN2",37,0) . S RASTAT=$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RAMAIN2",38,0) . D TRKCMB^RAMAINU(DA,.RATRKCMB) ;tracks existing "RTN","RAMAIN2",39,0) . ; CM definition before editing. RATRKCMB ids the before CM values "RTN","RAMAIN2",40,0) . I $G(RANEW)=1 Q ;RA*50*127 NEW PROCEDURE "RTN","RAMAIN2",41,0) . S DIE="^RAMIS(71,",DR="[RA PROCEDURE EDIT]" D ^DIE "RTN","RAMAIN2",42,0) . S RACPT=$P(^RAMIS(71,RADA,0),U,9) "RTN","RAMAIN2",43,0) . K RAPNM S RAPROC(0)=$G(^RAMIS(71,RADA,0)) "RTN","RAMAIN2",44,0) . ; "RTN","RAMAIN2",45,0) . ;check for data consistency between the 'CONTRAST MEDIA USED' & "RTN","RAMAIN2",46,0) . ;'CONTRAST MEDIA' fields. "RTN","RAMAIN2",47,0) . D CMINTEG^RAMAINU1(RADA,RAPROC(0)) "RTN","RAMAIN2",48,0) . ; "RTN","RAMAIN2",49,0) . D TRKCMA^RAMAINU(RADA,RATRKCMB,.RATRKCMA,.RACMDIFF) "RTN","RAMAIN2",50,0) . I $O(^RAMIS(71,RADA,"NUC",0)),($P(RAPROC(0),"^",2)=1) D DELRADE(RADA) "RTN","RAMAIN2",51,0) . S RACTIVE=$P($G(^RAMIS(71,RADA,"I")),"^") "RTN","RAMAIN2",52,0) . S RASTAT=RASTAT_"^"_$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RAMAIN2",53,0) . ; 08/12/2005 104630 KAM - added '$G(RANEW71) to next line "RTN","RAMAIN2",54,0) . I RAPROC(0)]"",("^B^P^"'[(U_$P(RAPROC(0),"^",6)_U)),('+$P(RAPROC(0),"^",9)),'+$G(RANEW71) D "RTN","RAMAIN2",55,0) .. K %,C,D0,DE,DI,DIE,DQ,DR "RTN","RAMAIN2",56,0) .. W !?5,$C(7),"...no CPT code entered..." "RTN","RAMAIN2",57,0) .. W !?5,"...will change type to a 'broad' procedure.",! "RTN","RAMAIN2",58,0) .. S DA=RADA,DIE="^RAMIS(71,",DR="6///B" D ^DIE "RTN","RAMAIN2",59,0) .. Q "RTN","RAMAIN2",60,0) . ;08/12/2005 104630 - KAM added next 5 lines "RTN","RAMAIN2",61,0) . I RAPROC(0)]"",("^B^P^"'[(U_$P(RAPROC(0),"^",6)_U)),('+$P(RAPROC(0),"^",9)),+$G(RANEW71) D "RTN","RAMAIN2",62,0) .. K %,C,D0,DE,DI,DIK,DQ,DR "RTN","RAMAIN2",63,0) .. W !?5,$C(7),"...no CPT code entered..." "RTN","RAMAIN2",64,0) .. W !?5,"...will delete the record at this time.",! "RTN","RAMAIN2",65,0) .. S DIK="^RAMIS(71,",DA=RADA D ^DIK K DIK "RTN","RAMAIN2",66,0) . ;if an active parent w/o descendants, inactivate the parent "RTN","RAMAIN2",67,0) . I $P(RASTAT,U,2),($P(RAPROC(0),U,6)="P"),('$O(^RAMIS(71,RADA,4,0))) D "RTN","RAMAIN2",68,0) .. K D,D0,D1,DA,DI,DIC,DIE,DQ,DR "RTN","RAMAIN2",69,0) .. W !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7) "RTN","RAMAIN2",70,0) .. S DA=RADA,DIE="^RAMIS(71,",DR="100///"_$S($D(DT):DT,1:$$DT^XLFDT()) "RTN","RAMAIN2",71,0) .. D ^DIE K D,D0,D1,DA,DI,DIC,DIE,DQ,DR S $P(RASTAT,U,2)=0 ;inactive "RTN","RAMAIN2",72,0) .. Q "RTN","RAMAIN2",73,0) . I $P($G(^RA(79.2,+$P(RAPROC(0),U,12),0)),U,5)="Y",(+$O(^RAMIS(71,RADA,"NUC",0))) D VRDIO(RADA) "RTN","RAMAIN2",74,0) . I "^B^P^"[(U_$P(RAPROC(0),U,6)_U),($P(RAPROC(0),U,9)]"") D "RTN","RAMAIN2",75,0) .. K %,D,D0,DA,DE,DIC,DIE,DQ,DR "RTN","RAMAIN2",76,0) .. S DA=RADA,DIE="^RAMIS(71,",DR="9///@" D ^DIE "RTN","RAMAIN2",77,0) .. W !!?5,"...CPT code deleted because "_$S($P(RAPROC(0),U,6)="B":"Broad",1:"Parent")_" procedures",!?5,"should not have CPT codes.",!,$C(7) "RTN","RAMAIN2",78,0) .. Q "RTN","RAMAIN2",79,0) . K %,%X,%Y,C,D,D0,D1,DA,DE,DI,DIE,DQ,DR,RAIMAG,RAMIS,RAPROC,X,Y "RTN","RAMAIN2",80,0) .;send Orderable Item HL7 msg to CPRS if the ORDER DIALOG (#101.41) "RTN","RAMAIN2",81,0) .;file exists unconditionally "RTN","RAMAIN2",82,0) .D:$$ORQUIK^RAORDU()=1 PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) "RTN","RAMAIN2",83,0) .; "RTN","RAMAIN2",84,0) . L -^RAMIS(RAFILE,RADA) K RADA "RTN","RAMAIN2",85,0) .;unconditionally update the parent procedure if the descendent "RTN","RAMAIN2",86,0) .I $O(^RAMIS(71,"ADESC",+RAY,0)) D UPDATP^RAO7UTL(RAY) "RTN","RAMAIN2",87,0) .;has been edited "RTN","RAMAIN2",88,0) . Q "RTN","RAMAIN2",89,0) I $G(RANEW)=1 D EN^RANPRO(RAYY,RATYPE,RANEW) ;RA*5.0*127 NEW PROCEDURE "RTN","RAMAIN2",90,0) K DIR,RACMDIFF,RATRKCMA,RATRKCMB "RTN","RAMAIN2",91,0) I $G(^XTMP("RAMAIN4",$J,"RAEND"))=1 G END "RTN","RAMAIN2",92,0) W !,?3,"Running validity check on CPT and stop codes." H 1 D ^RAPERR G EXIT ;RA*5*127 "RTN","RAMAIN2",93,0) 22 ; RA*5*127 "RTN","RAMAIN2",94,0) K DIR "RTN","RAMAIN2",95,0) S DIR(0)="YAO",DIR("B")="NO" "RTN","RAMAIN2",96,0) S DIR("A")="Want to run a validity check on CPT and stop codes? " "RTN","RAMAIN2",97,0) S DIR("?",1)="Answer 'YES' to print a list of Radiology/Nuclear Medicine Procedures" "RTN","RAMAIN2",98,0) S DIR("?",2)="with missing or invalid CPT's and/or Credit Clinic Stop Code(s)." "RTN","RAMAIN2",99,0) S DIR("?",3)="Broad procedures with invalid codes are included for information" "RTN","RAMAIN2",100,0) S DIR("?",4)="only. Inactive procedures are not required to have valid codes." "RTN","RAMAIN2",101,0) S DIR("?",5)="To be valid, Stop Codes must be in the Imaging Stop Codes file 71.5;" "RTN","RAMAIN2",102,0) S DIR("?",6)="CPT's must be nationally active." "RTN","RAMAIN2",103,0) S DIR("?")="Please answer 'YES' or 'NO'." "RTN","RAMAIN2",104,0) W ! D ^DIR K DIR G:$D(DIRUT) EXIT "RTN","RAMAIN2",105,0) D:Y ^RAPERR "RTN","RAMAIN2",106,0) EXIT K RADA,RANEW71,X,Y "RTN","RAMAIN2",107,0) Q "RTN","RAMAIN2",108,0) 13 ;;Rad/Nuc Med Common Procedure File Enter/Edit "RTN","RAMAIN2",109,0) ; RA COMMON PROCEDURE option "RTN","RAMAIN2",110,0) N RADA,RAENALL,RAY,RAFILE,RALOW,RAMIS713,RASTAT,RAIMGTYI S RAENALL=0 "RTN","RAMAIN2",111,0) W ! D EN1^RAUTL17 G:Y'>0 Q13 S RAIMGTYI=Y "RTN","RAMAIN2",112,0) 131 S DIC="^RAMIS(71.3,",DIC(0)="AELMQZ",DLAYGO=71.3 "RTN","RAMAIN2",113,0) S DIC("S")="N RA S RA=+$P(^(0),U) I RAIMGTYI=$P($G(^RAMIS(71,RA,0)),U,12)" "RTN","RAMAIN2",114,0) S DIC("W")="N RA4 S RA4=$P($G(^(0)),""^"",4) W:RA4]"""" "" (""_RA4_"")"" W:RA4']"""" "" (no sequence number)""" "RTN","RAMAIN2",115,0) W ! D ^DIC K DIC,DLAYGO,D,X "RTN","RAMAIN2",116,0) I Y<0 D Q13 G RESEQ "RTN","RAMAIN2",117,0) ; If a sequence # exists, the Common Proc. is active "RTN","RAMAIN2",118,0) S RADA=+Y,RAY=Y,RAFILE=71.3 L +^RAMIS(RAFILE,RADA):5 "RTN","RAMAIN2",119,0) I '$T D G Q13 "RTN","RAMAIN2",120,0) . W !?5,"This record is currently being edited by another user." "RTN","RAMAIN2",121,0) . W !?5,"Try again later!",$C(7) "RTN","RAMAIN2",122,0) . Q "RTN","RAMAIN2",123,0) S RASTAT=$S($P(Y(0),"^",4)]"":1,1:0)_"^" "RTN","RAMAIN2",124,0) I '+$P(RASTAT,"^") S RALOW=$$LOW(RAIMGTYI) "RTN","RAMAIN2",125,0) S DA=RADA,DIE="^RAMIS(71.3,",DR="[RA COMMON PROCEDURE EDIT]" D ^DIE "RTN","RAMAIN2",126,0) S RAMIS713(0)=$G(^RAMIS(71.3,RADA,0)) "RTN","RAMAIN2",127,0) ; If the procedure is different than the one originally selected and "RTN","RAMAIN2",128,0) ; the CPRS Order Dialog file exists, send the Orderable Item Update "RTN","RAMAIN2",129,0) ; message to CPRS. "RTN","RAMAIN2",130,0) I $P(RAMIS713(0),"^")'=$P(RAY,"^",2),($$ORQUIK^RAORDU()=1) D "RTN","RAMAIN2",131,0) . S RASTAT=RASTAT_0 D PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) "RTN","RAMAIN2",132,0) . S RAY=RADA_"^"_$P($G(^RAMIS(71.3,RADA,0)),"^")_"^"_1,RASTAT=0_"^" "RTN","RAMAIN2",133,0) . Q "RTN","RAMAIN2",134,0) K %,%X,%Y,C,D,D0,DA,DE,DI,DIE,DQ,DR,X,Y "RTN","RAMAIN2",135,0) S RASTAT=RASTAT_$S($P($G(^RAMIS(71.3,+RAY,0)),"^",4)]"":1,1:0) "RTN","RAMAIN2",136,0) ; If before & after statuses differ, and the CPRS Order Dialog file "RTN","RAMAIN2",137,0) ; exists, send the Orderable Item Update message to CPRS. "RTN","RAMAIN2",138,0) I $$ORQUIK^RAORDU()=1,(($P(RASTAT,"^")+$P(RASTAT,"^",2))=1) D "RTN","RAMAIN2",139,0) . D PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) "RTN","RAMAIN2",140,0) . Q "RTN","RAMAIN2",141,0) L -^RAMIS(RAFILE,RADA) "RTN","RAMAIN2",142,0) G 131 "RTN","RAMAIN2",143,0) Q13 K DDC,DDH,DISYS,I,POP,RA713 "RTN","RAMAIN2",144,0) Q "RTN","RAMAIN2",145,0) RESEQ ;Resequence the common procedure list "RTN","RAMAIN2",146,0) N D,D0,DI,DQ,H,I,J,CNT,DIC,DIE,DR,DA,TXT,X "RTN","RAMAIN2",147,0) I $D(XPDNM) D ; if called during package install "RTN","RAMAIN2",148,0) . S TXT(1)=" " "RTN","RAMAIN2",149,0) . S TXT(2)="Resequencing the Rad/Nuc Med Common Procedure List." "RTN","RAMAIN2",150,0) . Q "RTN","RAMAIN2",151,0) E W !!?5,"Resequencing the Rad/Nuc Med Common Procedure List" "RTN","RAMAIN2",152,0) S DIE="^RAMIS(71.3,",(I,CNT)=0 "RTN","RAMAIN2",153,0) F S I=$O(^RAMIS(71.3,"AA",RAIMGTYI,I)) Q:I'>0 D "RTN","RAMAIN2",154,0) . S J=0 "RTN","RAMAIN2",155,0) . F S J=$O(^RAMIS(71.3,"AA",RAIMGTYI,I,J)) Q:J'>0 I $D(^RAMIS(71.3,J,0)) D "RTN","RAMAIN2",156,0) .. S DA=J,CNT=CNT+1 N I,J "RTN","RAMAIN2",157,0) .. S DR="3////^S X=CNT" D ^DIE W:'$D(XPDNM) "." "RTN","RAMAIN2",158,0) .. Q "RTN","RAMAIN2",159,0) . Q "RTN","RAMAIN2",160,0) I $D(XPDNM) D ; if called during package install "RTN","RAMAIN2",161,0) . S TXT(2)=$G(TXT(2))_" Done!" "RTN","RAMAIN2",162,0) . D MES^XPDUTL(.TXT) "RTN","RAMAIN2",163,0) . Q "RTN","RAMAIN2",164,0) E W " Done!" "RTN","RAMAIN2",165,0) Q "RTN","RAMAIN2",166,0) LOW(X) ; Find the lowest available sequence number for a procedure within "RTN","RAMAIN2",167,0) ; a specific Imaging Type. Seq. #'s range from 1 to 40. If the "RTN","RAMAIN2",168,0) ; range changes in the DD i.e, ^DD(71.3,3, this code as well as the "RTN","RAMAIN2",169,0) ; code if EN3^RAUTL18 must also be altered. "RTN","RAMAIN2",170,0) ; If RAHIT is passed back as "", there is no available sequence number. "RTN","RAMAIN2",171,0) N RA,RAHIT S RAHIT="" "RTN","RAMAIN2",172,0) F RA=1:1:40 D Q:RAHIT "RTN","RAMAIN2",173,0) . Q:$D(^RAMIS(71.3,"AA",X,RA)) "RTN","RAMAIN2",174,0) . S:RAHIT="" RAHIT=RA "RTN","RAMAIN2",175,0) . Q "RTN","RAMAIN2",176,0) Q RAHIT "RTN","RAMAIN2",177,0) VRDIO(RADA) ; Validate the 'Usual Dose' field within the 'Default Radiopha- "RTN","RAMAIN2",178,0) ; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult "RTN","RAMAIN2",179,0) ; Dose' & 'High Adult Dose' range. This subroutine will display the "RTN","RAMAIN2",180,0) ; Radiopharmaceutical in question along with the values in question if "RTN","RAMAIN2",181,0) ; inconsistencies are found. "RTN","RAMAIN2",182,0) ; "RTN","RAMAIN2",183,0) ; Input Variable: 'RADA' the ien of the Procedure "RTN","RAMAIN2",184,0) N RANUC S RADA(1)=RADA,RADA=0 D EN^DDIOL("","","!") "RTN","RAMAIN2",185,0) F S RADA=$O(^RAMIS(71,RADA(1),"NUC",RADA)) Q:RADA'>0 D "RTN","RAMAIN2",186,0) . S RANUC(0)=$G(^RAMIS(71,RADA(1),"NUC",RADA,0)) "RTN","RAMAIN2",187,0) . Q:$P(RANUC(0),"^",2)="" ; no need to validate, nothing input "RTN","RAMAIN2",188,0) . I '$$USUAL^RADD2(.RADA,$P(RANUC(0),"^",2)) D "RTN","RAMAIN2",189,0) .. N RARRY S RARRY(1)="For Radiopharmaceutical: " "RTN","RAMAIN2",190,0) .. S RARRY(1)=RARRY(1)_$$EN1^RAPSAPI(+$P(RANUC(0),"^"),.01)_$C(7) "RTN","RAMAIN2",191,0) .. S RARRY(2)="" D EN^DDIOL(.RARRY,"") "RTN","RAMAIN2",192,0) .. Q "RTN","RAMAIN2",193,0) . Q "RTN","RAMAIN2",194,0) Q "RTN","RAMAIN2",195,0) DELRADE(RADA) ; Delete the Default Radiopharmaceuticals multiple "RTN","RAMAIN2",196,0) N RADA1 S RADA1=0 "RTN","RAMAIN2",197,0) W !!?3,"Deleting default radiopharmaceuticals for this procedure...",! "RTN","RAMAIN2",198,0) F S RADA1=$O(^RAMIS(71,RADA,"NUC",RADA1)) Q:RADA1'>0 D "RTN","RAMAIN2",199,0) . K %,%X,%Y,D,D0,DA,DI,DIC,DIE,DQ,DR,X,Y "RTN","RAMAIN2",200,0) . S DA(1)=RADA,DA=RADA1,DIE="^RAMIS(71,"_RADA_",""NUC""," "RTN","RAMAIN2",201,0) . S DR=".01///@" D ^DIE "RTN","RAMAIN2",202,0) . Q "RTN","RAMAIN2",203,0) K %,%X,%Y,D,D0,DA,DI,DIC,DIE,DQ,DR,X,Y "RTN","RAMAIN2",204,0) Q "RTN","RAMAIN2",205,0) ; "RTN","RAMAIN2",206,0) END ;KILL LOGIC AND END ROUTINE "RTN","RAMAIN2",207,0) K RACODE,RACPT,RAGOLD,RAMATCH,RANEW71,RANM,RAPROIEN,RATYPE,RAYY "RTN","RAMAIN2",208,0) K DDC,DDH,DISYS,I,POP,RA713,DIK,DA "RTN","RAMAIN2",209,0) Q "RTN","RAMAIN4") 0^3^B30460135^n/a "RTN","RAMAIN4",1,0) RAMAIN4 ;BPFO/CLT - RADIOLOGY NEW PROCEDURE UTILITIES ; 28 Sep 2016 12:04 PM "RTN","RAMAIN4",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RAMAIN4",3,0) ; "RTN","RAMAIN4",4,0) Q "RTN","RAMAIN4",5,0) EN(RADA) ;PRIMARY ENTRY POINT "RTN","RAMAIN4",6,0) N DIR,RATYPE,RAFAC,RAFN,RACODE,RAGOLD,RAMATCH,RANM,RANOT,RAPLUSY,RAPROIEN,RAYY,XMDUN,RANEWPRO "RTN","RAMAIN4",7,0) N P1,P2,RA901 "RTN","RAMAIN4",8,0) I $G(DA)'="",$G(RADA)="" S RADA=DA "RTN","RAMAIN4",9,0) S RANM=$P(^RAMIS(71,+RADA,0),U,1),^XTMP("RAMAIN4",$J,"RAEND")=0,RADA=+RADA "RTN","RAMAIN4",10,0) GOOD ;ACCEPT ENTRY AND ASSIGN CPT "RTN","RAMAIN4",11,0) S RATYPE=$P(^RAMIS(71,RADA,0),U,6) D:RATYPE'="D" "RTN","RAMAIN4",12,0) .W !!?3,"The type of this exam has been chosen not to be DETAILED."," An NTRT process",!?3,"will not be initiated. And no MRPF matching will be performed.",! "RTN","RAMAIN4",13,0) .Q "RTN","RAMAIN4",14,0) Q:RATYPE'="D" "RTN","RAMAIN4",15,0) K DIR S DIR(0)="Y",DIR("A")="Are you sure you are entering "_RANM_" as a new procedure" "RTN","RAMAIN4",16,0) S RASEED=" " S RASEED=$S($P($G(^RAMRPF(71.98,1,0)),U,10)'="Y":" not ",1:" ") "RTN","RAMAIN4",17,0) S DIR("A",1)="This entry will"_RASEED_"be submitted for NTRT processing." "RTN","RAMAIN4",18,0) S DIR("B")="YES" "RTN","RAMAIN4",19,0) W ! D ^DIR S:Y=0 ^XTMP("RAMAIN4",$J,"RAEND")=1 G:^XTMP("RAMAIN4",$J,"RAEND")=1 END "RTN","RAMAIN4",20,0) CPTEN ;Enter the CPT code "RTN","RAMAIN4",21,0) I $G(RAX)="QUIT"!(X["^") G END "RTN","RAMAIN4",22,0) W !!,"The CPT code is needed to match to an entry within the MASTER",!,"RADIOLOGY PROCEDURE file." "RTN","RAMAIN4",23,0) I $G(RACPT)'="" W !!,"The CPT code for this procedure is ",RACPT,"." "RTN","RAMAIN4",24,0) I $G(RACPT)="" K DIR S DIR(0)="71,9^^",DIR("A")="Enter the CPT code for this procedure, if the CPT code is known" "RTN","RAMAIN4",25,0) I $G(RACPT)="" K DIRUT,DIROUT,DUOUT W ! D ^DIR I $G(DIRUT)=1 G END "RTN","RAMAIN4",26,0) S:X>0 $P(^RAMIS(71,RADA,0),U,9)=X,RACPT=X "RTN","RAMAIN4",27,0) S DA=RADA,RAGOLD=$$MRPF^RAMAIN5() I $G(DUOUT)=1!($G(Y(0))="") W !!,*7,"No MRPF match made. Use the Edit MRPF Association on One Procedure",!,"option to make a match later.",!! G END "RTN","RAMAIN4",28,0) I $G(RAPROIEN)'="",$D(^RAMIS(71,"MRPF",$S($G(RAPROIEN)'="":RAPROIEN,1:0))) S RAMTCH=1 D MTCH^RAUTL23 "RTN","RAMAIN4",29,0) G:$G(^XTMP("RAMAIN4",$J,"RAEND"))=1 END "RTN","RAMAIN4",30,0) I Y(0)'["NONE LISTED" S DA=RADA,DIE="^RAMIS(71,",DIE(0)="L",DR="900///"_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,1)_";902///"_DT S DA=RADA D ^DIE D "RTN","RAMAIN4",31,0) . I $G(RAPROIEN)'="" W !?3,"You have mapped this procedure to "_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,1) Q "RTN","RAMAIN4",32,0) I $G(Y(0))["NONE LISTED" D "RTN","RAMAIN4",33,0) . S DA=RADA,DIE="^RAMIA(71,",DIE(0)="L" "RTN","RAMAIN4",34,0) . S DR="901///" S RA901=$S($P($G(^RAMRPF(71.98,1,0)),U,10)="Y":"Y",1:"") "RTN","RAMAIN4",35,0) . S DR=DR_RA901_";902///"_DT D ^DIE "RTN","RAMAIN4",36,0) . Q "RTN","RAMAIN4",37,0) S $P(^RAMIS(71,RADA,"NTRT"),U,3)=DT,^RAMIS(71,"CREAT",DT,RADA)="" "RTN","RAMAIN4",38,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" S $P(^RAMIS(71,RADA,"NTRT"),U,3)="" "RTN","RAMAIN4",39,0) MSG ;SEND A MESSAGE TO GATEKEEPER "RTN","RAMAIN4",40,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q RADA "RTN","RAMAIN4",41,0) N XMSUB,XMY,XMTEXT,RATXT Q:$P($G(^RAMIS(71,RADA,"NTRT")),U,1)'="" RADA "RTN","RAMAIN4",42,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RAMAIN4",43,0) S XMY(DUZ)="" "RTN","RAMAIN4",44,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RAMAIN4",45,0) S RATXT(1)="A new Radiology procedure has been entered." "RTN","RAMAIN4",46,0) S RATXT(3)="This procedure will be submitted for NTRT processing." "RTN","RAMAIN4",47,0) S RATXT(4)=" " "RTN","RAMAIN4",48,0) S RATXT(5)=" " "RTN","RAMAIN4",49,0) ;S RATXT(7)=" " "RTN","RAMAIN4",50,0) S RATXT(7)="Procedure Name: "_RANM "RTN","RAMAIN4",51,0) S RATXT(7)="CPT: "_$P($G(^RAMIS(71,RADA,0)),U,9) "RTN","RAMAIN4",52,0) S XMTEXT="RATXT(" D ^XMD "RTN","RAMAIN4",53,0) ;G END "RTN","RAMAIN4",54,0) MSG1 ;MESSAGE TO NTRT "RTN","RAMAIN4",55,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q RADA "RTN","RAMAIN4",56,0) N XMSUB,XMY,XMTEXT,RATXT Q:$P($G(^RAMIS(71,RADA,"NTRT")),U,1)'="" RADA "RTN","RAMAIN4",57,0) S RAFAC=$$KSP^XUPARAM("INST"),RAFAC=$$NS^XUAF4(RAFAC) "RTN","RAMAIN4",58,0) S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2),$P(^RAMIS(71,RADA,"NTRT"),U,2)="Y" "RTN","RAMAIN4",59,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RAMAIN4",60,0) S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RAMAIN4",61,0) S XMY("G.RADNTRT")="" "RTN","RAMAIN4",62,0) S XMDUZ("G.RADNTRT")="" "RTN","RAMAIN4",63,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RAMAIN4",64,0) ;S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RAMAIN4",65,0) S RATXT(1)="A new Radiology procedure has been entered at "_RAFN "RTN","RAMAIN4",66,0) S RATXT(2)=" " "RTN","RAMAIN4",67,0) S RATXT(3)="Facility Name/number: "_RAFN_" / "_RAFAC "RTN","RAMAIN4",68,0) S RATXT(4)=" " "RTN","RAMAIN4",69,0) S RATXT(5)="Procedure name: "_RANM "RTN","RAMAIN4",70,0) S RATXT(6)=" " "RTN","RAMAIN4",71,0) S RATXT(7)="CPT code: "_$P($G(^RAMIS(71,RADA,0)),U,9) "RTN","RAMAIN4",72,0) S RATXT(8)="Local IEN: "_RADA "RTN","RAMAIN4",73,0) S RATXT(9)="For questions or notification respond to: "_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE") "RTN","RAMAIN4",74,0) S RATXT(10)="For NTRT results respond to: "_"S.RANEWPRO@"_$$KSP^XUPARAM("WHERE") "RTN","RAMAIN4",75,0) I $P($G(^RAMRPF(71.98,1,0)),U,9)="Y" D XML G END "RTN","RAMAIN4",76,0) S $P(^RAMIS(71,RADA,"NTRT"),U,4)=DT "RTN","RAMAIN4",77,0) S XMTEXT="RATXT(" D ^XMD "RTN","RAMAIN4",78,0) S $P(^RAMIS(71,RADA,"NTRT"),U,4)=DT "RTN","RAMAIN4",79,0) G END "RTN","RAMAIN4",80,0) XML ; NTRT message for ISAAC "RTN","RAMAIN4",81,0) ; Need P1 ISAAC SCHEMA NAME "RTN","RAMAIN4",82,0) ; Need P2 ISAAC SCHEMA PATH "RTN","RAMAIN4",83,0) ; get the schemea name and the schema path "RTN","RAMAIN4",84,0) S P1=$$GET1^DIQ(71.98,"1,",11) "RTN","RAMAIN4",85,0) S P2=$$GET1^DIQ(71.98,"1,",11.5) "RTN","RAMAIN4",86,0) S A=$TR(P1,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") "RTN","RAMAIN4",87,0) I P1'=""&($E(A,($L(A)-4),$L(A)))'=".XSD" S P1=P1_".XSD" "RTN","RAMAIN4",88,0) I P2'="" D ;< "RTN","RAMAIN4",89,0) . I $E(P2,1,2)'="//" S P2="//"_P2 "RTN","RAMAIN4",90,0) . I $E(P2,$L(P2))'="/" S P2=P2_"/" "RTN","RAMAIN4",91,0) S A="uri:"_P2_P1 "RTN","RAMAIN4",92,0) K RATXT "RTN","RAMAIN4",93,0) S RATXT(1)=$$XMLHDR^MXMLUTL() "RTN","RAMAIN4",94,0) S RATXT(2)="" "RTN","RAMAIN4",98,0) S RATXT(6)=""_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE")_"" "RTN","RAMAIN4",99,0) S RATXT(7)=""_RANM_"" "RTN","RAMAIN4",100,0) S RATXT(8)=""_$P($G(^RAMIS(71,RADA,0)),U,9)_"" "RTN","RAMAIN4",101,0) S RATXT(9)=""_RADA_"" "RTN","RAMAIN4",102,0) S RATXT(10)=""_"S.RANEWPRO@"_$$KSP^XUPARAM("WHERE")_"" "RTN","RAMAIN4",103,0) S RATXT(11)="" "RTN","RAMAIN4",104,0) S RATXT(12)="" "RTN","RAMAIN4",105,0) S RAXTMPNM=XMSUB "RTN","RAMAIN4",106,0) D XMLSND^RAXMLSND(RAXTMPNM) "RTN","RAMAIN4",107,0) Q "RTN","RAMAIN4",108,0) ; "RTN","RAMAIN4",109,0) DEACT ;BLOCK INACTIVATION DATE "RTN","RAMAIN4",110,0) Q "RTN","RAMAIN4",111,0) I $P($G(^RAMRPF(71.98,1,0)),U,3)'="" D "RTN","RAMAIN4",112,0) . S X1=DT,X2=$P(^RAMRPF(71.98,1,0),U,3) "RTN","RAMAIN4",113,0) . D C^%DTC "RTN","RAMAIN4",114,0) . S ^RAMIS(71,RADA,"I")=X,$P(^RAMIS(71,RADA,"NTRT"),U,2)="Y" "RTN","RAMAIN4",115,0) Q "RTN","RAMAIN4",116,0) END ;KILL LOCAL VARIABLES AND END "RTN","RAMAIN4",117,0) K RATXT,XMZ,XMDUN,XMDUZ,RAIEN,X,Y "RTN","RAMAIN4",118,0) Q $G(RANEWPRO) "RTN","RAMAIN5") 0^4^B38646269^n/a "RTN","RAMAIN5",1,0) RAMAIN5 ;BPFO/CLT - RADIOLOGY MAPPING TO MRPF ; 28 Oct 2016 3:08 PM "RTN","RAMAIN5",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RAMAIN5",3,0) ; "RTN","RAMAIN5",4,0) ; This routine uses the following IA's: "RTN","RAMAIN5",5,0) ; #1995 - CPT calls (supported) "RTN","RAMAIN5",6,0) Q "RTN","RAMAIN5",7,0) EN ;MAIN ENTRY POINT "RTN","RAMAIN5",8,0) N RADA,RAIEN,RAPROIEN,DIE,DIC,DA,DR,X,Y,RACONT,RAMATCH,XC,RANOT,RAX,RACODE,RAFN,RAFAC,DUOUT,DIR "RTN","RAMAIN5",9,0) N DTOUT,DUOUT,DIRUT,DIROUT,RATMP,XC2,RAXTMP,DIWF,DIWL,DIWR,RA99,RAWALK "RTN","RAMAIN5",10,0) S RADA="",RACONT="" K ^XTMP("RAMAIN4") S ^XTMP("RAMAIN4",$J,0)="" "RTN","RAMAIN5",11,0) LOOK ;LOOK FOR MAPPABLE PROCEDURES "RTN","RAMAIN5",12,0) S RADA=$P($G(^RAMRPF(71.98,1,0)),U,5) S:$G(RADA)="" RADA="" S:$G(RAWALK)="" RAWALK="" "RTN","RAMAIN5",13,0) I $P($G(^RAMRPF(71.98,1,0)),U,4)="Y" W !!?3,"Matching has been completed.",!?3,"Do you want to map exceptions?" S DIR(0)="Y",DIR("B")="NO" D ^DIR G:Y=0 END "RTN","RAMAIN5",14,0) F W !! S RACODE="",RATMP="",RADA=$O(^RAMIS(71,"B",RADA)) S:RADA="" $P(^RAMRPF(71.98,1,0),U,4)="Y" Q:RADA=""!(RACONT["^")!($G(RAX)="QUIT"&($G(RAWALK)=1)) D "RTN","RAMAIN5",15,0) . S $P(^RAMRPF(71.98,1,0),U,5)=RADA "RTN","RAMAIN5",16,0) . S RAIEN=$O(^RAMIS(71,"B",RADA,"")) Q:RAIEN="" D Q:$G(DIRUT)=1 "RTN","RAMAIN5",17,0) .. I $P(^RAMIS(71,RAIEN,0),U,6)'="D" Q "RTN","RAMAIN5",18,0) .. I $G(^RAMIS(71,RAIEN,"I"))'=""&($G(^RAMIS(71,RAIEN,"I")) to continue:" R X:600 Q "RTN","RAMAIN5",75,0) I $G(XC2)=1 S RAXTMP=^XTMP("RAMAIN4",$J,"C") D "RTN","RAMAIN5",76,0) . S RACPT=$P(RAXTMP,U,1),RACODE=$P(RAXTMP,U,2),RAMATCH=$P(RAXTMP,U,3),RAPROIEN=$P(RAXTMP,U,4),XC=$P(RAXTMP,U,5),RANOT=$P(RAXTMP,U,7),(RAPLUSY,Y)=$P(RAXTMP,U,8) S I="" "RTN","RAMAIN5",77,0) G:$G(XC2)=1 MRPF3 S:$G(Y)'=$G(RANOT) RAMATCH=$P(RACODE,";",RAPLUSY),RAMATCH=$P(RAMATCH,":",2) "RTN","RAMAIN5",78,0) I RACODE'="1:NONE LISTED"&(Y(0)'="NONE LISTED") S:$G(RAPROIEN)="" RAPROIEN=^XTMP("RAMAIN4",$J,+Y) "RTN","RAMAIN5",79,0) I $G(RACODE)["1:NONE LISTED"!($G(Y(0))["NONE LISTED") S RAX="QUIT",RAMATCH="",RAWALK=0 G MEND "RTN","RAMAIN5",80,0) I $G(RAPROIEN)'="",$D(^RAMIS(71,"MRPF",$S($G(RAPROIEN)'="":RAPROIEN,1:0))) S RAMTCH=2 D:RAMATCH'="GO" MTCH^RAUTL23 "RTN","RAMAIN5",81,0) S:+Y'=RANOT RAMATCH=$P(RAMATCH,"/",1) I $P(RACODE,";",Y)'["NONE LISTED" S RAPROIEN=^XTMP("RAMAIN4",$J,+Y) "RTN","RAMAIN5",82,0) MEND ;GO HERE WHEN AN UPARROW ENTERED ON A DIR "RTN","RAMAIN5",83,0) ;W !!,X," ",$G(DUOUT,999)," ",$G(RAMATCH,9999) "RTN","RAMAIN5",84,0) I $D(DUOUT) S RAX="QUIT",RAMATCH="" Q RAX "RTN","RAMAIN5",85,0) I $G(RAMATCH)="NONE LISTED" S RAMATCH="" Q "RTN","RAMAIN5",86,0) I $G(RAMATCH)="",$G(Y(0))["NONE LISTED" S RAMATCH="QUIT" Q RAMATCH "RTN","RAMAIN5",87,0) I $G(DUOUT)=1 S RAX="QUIT",RAMATCH="" Q RAMATCH "RTN","RAMAIN5",88,0) S RAMATCH="GO" Q RAMATCH "RTN","RAMAIN5",89,0) END ;END ROUTINE "RTN","RAMAIN5",90,0) K RACPT,RACODE,DIR,D,I,%X,%Y,D0,DI,DQ,DIRUT,DUOUT,XMDUN,XMDUZ,XMZ,^XTMP("RAMAIN4"),RALOINC "RTN","RAMAIN5",91,0) K RAPLUSY,RAPRO1,X1,XC,XY,Z,DA,^UTILITY($J,"W") "RTN","RAMAIN5",92,0) K ^XTMP("RAMAIN4",$J),RAMATCH,RAMTCH "RTN","RAMAIN5",93,0) Q "RTN","RAMAIN5",94,0) MSG K RACPT,RACODE,DIR,D,I,%X,%Y,D0,DI,DQ,DIRUT,DUOUT "RTN","RAMAIN5",95,0) I $P($G(^RARMPF(71.98,1,0)),U,10)'="Y" G END "RTN","RAMAIN5",96,0) N XMSUB,XMY,XMTEXT,RATXT "RTN","RAMAIN5",97,0) S RAFAC=$$KSP^XUPARAM("INST"),RAFAC=$$NS^XUAF4(RAFAC) "RTN","RAMAIN5",98,0) S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2),$P(^RAMIS(71,DA,"NTRT"),U,2)="Y" "RTN","RAMAIN5",99,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RAMAIN5",100,0) S XMY(DUZ)="" "RTN","RAMAIN5",101,0) S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RAMAIN5",102,0) S XMY("G.NTRT")="" "RTN","RAMAIN5",103,0) S XMDUZ("G.RADNTRT")="" "RTN","RAMAIN5",104,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RAMAIN5",105,0) S RATXT(1)="An existing Radiology procedure at "_RAFN "RTN","RAMAIN5",106,0) S RATXT(2)="does not have a match in the MASTER RADIOLOGY PROCEDURE file" "RTN","RAMAIN5",107,0) S RATXT(3)=" " "RTN","RAMAIN5",108,0) S RATXT(4)="Facility Name/number: "_RAFN_" / "_RAFAC "RTN","RAMAIN5",109,0) S RATXT(5)=" " "RTN","RAMAIN5",110,0) S RATXT(6)="Procedure name: "_RADA "RTN","RAMAIN5",111,0) S RATXT(7)=" " "RTN","RAMAIN5",112,0) S RATXT(8)="CPT code: "_$P($G(^RAMIS(71,DA,0)),U,9) "RTN","RAMAIN5",113,0) S RATXT(9)="Local IEN: "_DA "RTN","RAMAIN5",114,0) S RATXT(10)="For questions or notification respond to: "_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE") "RTN","RAMAIN5",115,0) S RATXT(11)="For NTRT results respond to: "_"S.RADNEWPRO@"_$$KSP^XUPARAM("WHERE") "RTN","RAMAIN5",116,0) S $P(^RAMIS(71,DA,"NTRT"),U,3)=DT "RTN","RAMAIN5",117,0) S XMTEXT="RATXT(" D ^XMD "RTN","RAMAIN5",118,0) S $P(^RAMIS(71,DA,"NTRT"),U,3)=DT "RTN","RAMAIN5",119,0) G END "RTN","RAMRPIN") 0^12^B14323288^n/a "RTN","RAMRPIN",1,0) RAMRPIN ;BPFO/CLT - LIST ACTVE PROCEDURES WITH INACTIVE MRPF ; 12 Sep 2016 2:17 PM "RTN","RAMRPIN",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RAMRPIN",3,0) ; "RTN","RAMRPIN",4,0) ; This routine uses the following IA's: "RTN","RAMRPIN",5,0) ; #1995 - CPT calls (supported) "RTN","RAMRPIN",6,0) EN ;PRIMARY ENTRY POINT "RTN","RAMRPIN",7,0) N RAMRPF,RAIEN,%ZIS "RTN","RAMRPIN",8,0) G TASK "RTN","RAMRPIN",9,0) LOOK ;BEGIN LOOKING FOR ACTIVE PROCEDURES WITH INACTIVE CPT OR MRPF "RTN","RAMRPIN",10,0) N RAMRPF,RAIEN,RADT,RACPT,RANAME,RATS,PAGE,RARTN,MRPFNM,RACINF S PAGE=0 K ^XTMP("RAMRPIN",$J) "RTN","RAMRPIN",11,0) S RANAME="" F S RANAME=$O(^RAMIS(71,"B",RANAME)) Q:RANAME="" S RAIEN=$O(^RAMIS(71,"B",RANAME,"")) D:$G(RAIEN)'="" "RTN","RAMRPIN",12,0) . I $G(^RAMIS(71,RAIEN,0))="" Q "RTN","RAMRPIN",13,0) . I $P(^RAMIS(71,RAIEN,0),U,6)'="D" Q "RTN","RAMRPIN",14,0) . I $G(^RAMIS(71,RAIEN,"I"))'="",^RAMIS(71,RAIEN,"I")
0:0,1:1) I +RACINF=1 D "RTN","RAMRPIN",21,0) .. I +RACINF'=1 Q "RTN","RAMRPIN",22,0) .. ;I $P(^ICPT(RACPT,0),U,4)'=1 Q "RTN","RAMRPIN",23,0) .. S RACINF=$$CPT^ICPTCOD(RACPT) "RTN","RAMRPIN",24,0) .. ;S ^XTMP("RAMRPIN",$J,RANAME,1)=RACPT_U_$P($G(^ICPT(RACPT,0)),U,7) "RTN","RAMRPIN",25,0) .. S ^XTMP("RAMRPIN",$J,RANAME,1)=RACPT_U_$P(RACINF,"^",8) "RTN","RAMRPIN",26,0) .. Q "RTN","RAMRPIN",27,0) . I $G(RAMRPF)'="" S RATS=$P($G(^RAMRPF(71.99,RAMRPF,"TERMSTATUS",0)),U,3) D:RATS'="" Q "RTN","RAMRPIN",28,0) .. I $P($G(^RAMRPF(71.99,RAMRPF,"TERMSTATUS",RATS,0)),U,2)=0 D "RTN","RAMRPIN",29,0) ... S ^XTMP("RAMRPIN",$J,$P(^RAMIS(71,RAIEN,0),U,1),1)=$P(^RAMRPF(71.99,RAMRPF,0),U,1)_U_$P(^RAMRPF(71.99,RAMRPF,"TERMSTATUS",RATS,0),U,1) "RTN","RAMRPIN",30,0) ... Q "RTN","RAMRPIN",31,0) .. Q "RTN","RAMRPIN",32,0) . Q "RTN","RAMRPIN",33,0) I $D(^XTMP("RAMRPIN",$J)) S ^XTMP("RAMRPIN",$J,0)=DT_U_DT "RTN","RAMRPIN",34,0) PRNT ;PRINT THE FOUND DATA "RTN","RAMRPIN",35,0) D HDR "RTN","RAMRPIN",36,0) I '$D(^XTMP("RAMRPIN",$J)) D "RTN","RAMRPIN",37,0) . W !!,"There are no active procedures with inactive CPT code or inactive",!,"Master Radiology Procedure File (MRPF) entry.",! "RTN","RAMRPIN",38,0) . Q "RTN","RAMRPIN",39,0) S RANAME="" F S RANAME=$O(^XTMP("RAMRPIN",$J,RANAME)) Q:RANAME=""!(RARTN["^") G:RARTN["^" END D:RARTN'["^" "RTN","RAMRPIN",40,0) . Q:$G(RARTN)["^" "RTN","RAMRPIN",41,0) . I $G(^XTMP("RAMRPIN",$J,RANAME,1))'="" D "RTN","RAMRPIN",42,0) .. D:$Y>(IOSL-4) HDR S RACPT=$P(^XTMP("RAMRPIN",$J,RANAME,1),U,1) Q:RACPT'?1.N "RTN","RAMRPIN",43,0) .. W !,$E(RANAME,1,20) "RTN","RAMRPIN",44,0) .. ;S:$G(RACPT)'="" RACPT=$P(^ICPT(RACPT,0),U,1) W ?22,RACPT "RTN","RAMRPIN",45,0) .. S:$G(RACPT)'="" RACINF=$$CPT^ICPTCOD(RACPT),RACPT=$P(RACINF,"^",2) W ?22,RACPT "RTN","RAMRPIN",46,0) .. W ?32,$$FMTE^XLFDT($P(^XTMP("RAMRPIN",$J,RANAME,1),U,2),"2M") "RTN","RAMRPIN",47,0) .. Q "RTN","RAMRPIN",48,0) . I $G(^XTMP("RAMRPIN",$J,RANAME,1))'="" D "RTN","RAMRPIN",49,0) .. Q:$P(^XTMP("RAMRPIN",$J,RANAME,1),U,1)?1.N "RTN","RAMRPIN",50,0) .. S MRPFNM=$P(^XTMP("RAMRPIN",$J,RANAME,1),U,1) "RTN","RAMRPIN",51,0) .. D:$Y>(IOSL-4) HDR W !,$E(RANAME,1,20) "RTN","RAMRPIN",52,0) .. W ?45,$E(MRPFNM,1,20),?67,$$FMTE^XLFDT($P(^XTMP("RAMRPIN",$J,RANAME,1),U,2),"2M") "RTN","RAMRPIN",53,0) .. Q "RTN","RAMRPIN",54,0) . Q "RTN","RAMRPIN",55,0) G END "RTN","RAMRPIN",56,0) TASK ;ASK DEVICE AND QUEUE "RTN","RAMRPIN",57,0) S %ZIS("A")="QUEUE ON DEVICE(80 COLUMN): ",%ZIS("B")="HOME" "RTN","RAMRPIN",58,0) D ^%ZIS I IOST["C-" G LOOK "RTN","RAMRPIN",59,0) S ZTRTN="RATIMBUL",ZTDESC="Radiology new procedure time bulletin" "RTN","RAMRPIN",60,0) S ZTRTN="LOOK^RAMRPIN",ZTDESC="Active Radiology procedures with inactive CPT or MRPF." "RTN","RAMRPIN",61,0) D ^ZTLOAD "RTN","RAMRPIN",62,0) K ZTSK,ZTRTN,ZTDESC,ZTDTH,X1,X2,X "RTN","RAMRPIN",63,0) Q "RTN","RAMRPIN",64,0) END ;END THE ROUTINE "RTN","RAMRPIN",65,0) K RACINF "RTN","RAMRPIN",66,0) K ^XTMP("RAMRPIN",$J) "RTN","RAMRPIN",67,0) Q "RTN","RAMRPIN",68,0) HDR ;NEW PAGE AND PRINT HEADER "RTN","RAMRPIN",69,0) S:$G(PAGE)="" PAGE=0 "RTN","RAMRPIN",70,0) I $G(RARTN)["^" W @IOF Q "RTN","RAMRPIN",71,0) I IOST["C-" R !?3,"Enter to continue or '^' to quit:",RARTN:300 "RTN","RAMRPIN",72,0) I $G(RARTN)["^" W @IOF Q "RTN","RAMRPIN",73,0) S PAGE=PAGE+1 W @IOF,!!?27,"ACTIVE RADIOLOGY PROCEDURES",?70,"PAGE ",PAGE "RTN","RAMRPIN",74,0) W !?33,"WITH INACTIVE" "RTN","RAMRPIN",75,0) W !?29,"CPT CODE OR MRPF LOINC" "RTN","RAMRPIN",76,0) W !!?3,"PROCEDURE NAME",?22,"CPT CODE",?32,"INAC DT",?45,"MRPF NAME",?67,"INAC DT" "RTN","RAMRPIN",77,0) W !,"====================",?22,"========",?32,"=======",?45,"====================",?67,"=======" "RTN","RAMRPIN",78,0) Q "RTN","RANEWPRO") 0^9^B6425688^n/a "RTN","RANEWPRO",1,0) RANEWPRO ;BPFO/CLT - NTRT RESPONSE ; 27 Jul 2016 11:51 AM "RTN","RANEWPRO",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANEWPRO",3,0) ; "RTN","RANEWPRO",4,0) EN ;PRIMARY ENTRY POINT "RTN","RANEWPRO",5,0) N RAFIRST,RALINE,X,Y,RARESP,RAMSG,RATXT,XMY,XMTEXT,XMSUB,RAIEN,RAPRO,XMDUN,XMDUZ "RTN","RANEWPRO",6,0) S RAMSG=XMZ "RTN","RANEWPRO",7,0) S RAFIRST=$S($E(^XMB(3.9,RAMSG,2,1,0),1,2)="--":5,1:1) "RTN","RANEWPRO",8,0) S RALINE=RAFIRST "RTN","RANEWPRO",9,0) ; "RTN","RANEWPRO",10,0) RESPONSE ;DETERMINE THE RESPONSE "RTN","RANEWPRO",11,0) S RARESP=$P(^XMB(3.9,RAMSG,2,RALINE,0)," ",1) "RTN","RANEWPRO",12,0) S X=RARESP X ^%ZOSF("UPPERCASE") S RARESP=Y "RTN","RANEWPRO",13,0) S RAIEN=$P(^XMB(3.9,RAMSG,2,(RALINE+3),0),":",2) "RTN","RANEWPRO",14,0) S RAPRO=$P(^XMB(3.9,RAMSG,2,(RALINE+2),0),":",2) "RTN","RANEWPRO",15,0) I RARESP="NEW" D "RTN","RANEWPRO",16,0) . S RATXT(1)="A new procedure has been added by NTRT to the MRPF." "RTN","RANEWPRO",17,0) . S RATXT(2)="This procedure will be included in the next MRPF release." "RTN","RANEWPRO",18,0) . S RATXT(3)="Contunue to use your created procedure, as is, until the new MRPF" "RTN","RANEWPRO",19,0) . S RATXT(4)="is received. Then this procedure can be matched.",RALINE=5 "RTN","RANEWPRO",20,0) . I $G(RAIEN)'="" S $P(^RAMIS(71,RAIEN,"NTRT"),U,2)="" "RTN","RANEWPRO",21,0) . Q "RTN","RANEWPRO",22,0) I RARESP="MATCH" D "RTN","RANEWPRO",23,0) . S RATXT(1)="A match in MRPF has been found by NTRT. Please use" "RTN","RANEWPRO",24,0) . S RATXT(2)="the MRPF procedure "_$P(^XMB(3.9,RAMSG,2,(RALINE+1),0),"procedure ",2)_"." "RTN","RANEWPRO",25,0) . S RATXT(3)="Please map you new procedure to this MRPF entry.",RALINE=4 "RTN","RANEWPRO",26,0) . I $G(RAIEN)'="" S $P(^RAMIS(71,RAIEN,"NTRT"),U,2)="" "RTN","RANEWPRO",27,0) . Q "RTN","RANEWPRO",28,0) I RARESP="NO" D "RTN","RANEWPRO",29,0) . S RATXT(1)="No LOINC can be found for the requested new procedure." "RTN","RANEWPRO",30,0) . S RATXT(2)="A request for a new LOINC has been submitted." "RTN","RANEWPRO",31,0) . S RATXT(3)="Continue to use your new procedure without matching until a new LOINC" "RTN","RANEWPRO",32,0) . S RATXT(4)="is received and distributed via a new MRPF release. Then this procedure" "RTN","RANEWPRO",33,0) . S RATXT(5)="can be matched.",RALINE=5 "RTN","RANEWPRO",34,0) . Q "RTN","RANEWPRO",35,0) MSG ;CREATE A MESSAGE "RTN","RANEWPRO",36,0) S RATXT(RALINE+2)=" " "RTN","RANEWPRO",37,0) S RATXT(RALINE+3)="Local procedure: "_RAPRO "RTN","RANEWPRO",38,0) S RATXT(RALINE+4)="Local IEN: "_RAIEN "RTN","RANEWPRO",39,0) S XMSUB="NTRT RESPONSE" "RTN","RANEWPRO",40,0) S XMY("G.RADNTRT")="",XMTEXT="RATXT(" "RTN","RANEWPRO",41,0) D ^XMD "RTN","RANEWPRO",42,0) END ;END ROUTINE "RTN","RANEWPRO",43,0) K XMZ "RTN","RANEWPRO",44,0) Q "RTN","RANPRO") 0^13^B93138436^n/a "RTN","RANPRO",1,0) RANPRO ;BPFO/CLT - NEW RADIOLOGY PROCEDURE ; 27 Oct 2016 4:57 PM "RTN","RANPRO",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANPRO",3,0) ; "RTN","RANPRO",4,0) EN ;ENTRY POINT "RTN","RANPRO",5,0) N RACPT,RADA,RANM,RAPNM,RASEED,RATYP,RAX,RAYY,X,Y,RAMV,RACODE,RANEW,RAP3,RATYPE,I,RA7111DA S RAMV=0 "RTN","RANPRO",6,0) N D,DA,DO,DIC,DIR,DR,RAEND,RACODE1,RAOLDIEN,DIE,RANQUIT,RANMSG,RATRKCMB,RADANEW1 S RANQUIT="",RANMSG="" "RTN","RANPRO",7,0) N RANEW71,ARY,A,B,C,D,E,F,RALRDA,RACMDIFF,RACTIVE,RAENALL,RAFILE,RAY,RAPROC,RASTAT,RATRKCMA "RTN","RANPRO",8,0) S DIR(0)="71.11,.01O",DIR("A")="RAD/NUC MED PROCEDURES NAME" "RTN","RANPRO",9,0) S DIR("PRE")="K:X[""""""""!($A(X)=45) X S:$D(X) X=$$UP^XLFSTR(X) Q:(X=""^"")!$D(DTOUT) K:$L(X)>60!($L(X)<3) X I $D(X) K:'+$$UNI30^RAUTL14(+$G(DA),X) X" "RTN","RANPRO",10,0) D ^DIR S RANM=Y I X=""!(X["^") D 22^RAMAIN2 G END "RTN","RANPRO",11,0) I $D(^RAMIS(71,"B",RANM)) S DIC="^RAMIS(71,",DIC("DR")=6,DIC(0)="",X=RANM D ^DIC S RAYY=Y,(DA,RADA)=+Y,(RANEW,RANEW71)=$P(RAYY,U,3) D 21^RAMAIN2 G END "RTN","RANPRO",12,0) S RAPNM=RANM I '$D(^RAMIS(71,"B",RANM)) S RAEND="" D "RTN","RANPRO",13,0) . S RAPNM=RANM ;,RAPNM=$O(^RAMIS(71,"B",RANM)) I RAPNM="" S RAMV=3 Q "RTN","RANPRO",14,0) . S RACODE="",I=0 F S RAPNM=$O(^RAMIS(71,"B",RAPNM)) S:RAPNM'[RANM RAMV=3 Q:RAPNM'[RANM D "RTN","RANPRO",15,0) .. S RAOLDIEN="",RAOLDIEN=$O(^RAMIS(71,"B",RAPNM,RAOLDIEN)) D:RAOLDIEN'="" "RTN","RANPRO",16,0) ... S I=I+1,RACODE=RACODE_I_":"_RAPNM_"/"_RAOLDIEN_";" "RTN","RANPRO",17,0) ... Q "RTN","RANPRO",18,0) .. ;S RACODE=RACODE_I+1_":New Procedure;"_I+2_":None of the above" "RTN","RANPRO",19,0) .. Q "RTN","RANPRO",20,0) . S RACODE1=(I+1)_":New Procedure;"_(I+2)_":None of the above",RACODE=RACODE_RACODE1 "RTN","RANPRO",21,0) . K DIR S DIR(0)="S^"_RACODE S DIR("A")="Enter a number from the list above" "RTN","RANPRO",22,0) . D ^DIR I $D(DTOUT)!($D(DUOUT)) Q "RTN","RANPRO",23,0) . I $G(X)=""!($G(X)["^") S RAMV=3,RAEND=1 Q "RTN","RANPRO",24,0) . I Y(0)="New Procedure" S RANEW=1 "RTN","RANPRO",25,0) . I Y(0)="None of the above" S RAMV=3,RAEND=1 Q "RTN","RANPRO",26,0) . Q "RTN","RANPRO",27,0) ;Q:$G(Y(0))="" "RTN","RANPRO",28,0) I $G(Y(0))=""!(RAEND=1) D 22^RAMAIN2 G END "RTN","RANPRO",29,0) S Y(0)=$P(Y(0),"/",1) I $D(^RAMIS(71,"B",Y(0))) S RANM=Y(0) G OLD "RTN","RANPRO",30,0) I '$D(^RAMIS(71,"B",RANM)) S RAMV=3 D "RTN","RANPRO",31,0) . I $G(RAMV)=3 Q "RTN","RANPRO",32,0) . K DIR S RAYY=Y,DIR(0)="Y",DIR("A")="Are you adding "_RANM_" as a new Radiology Procedure",DIR("B")="YES" D ^DIR "RTN","RANPRO",33,0) . I $G(Y)'=1 S RAMV=2 Q "RTN","RANPRO",34,0) . S DIC="^RAMRPF(71.11,",DIC(0)="L",X=RAYY,DIC("DR")=6 D ^DIC "RTN","RANPRO",35,0) . S RATYPE=$P(^RAMRPF(71.11,+Y,0),U,6),RANEW=1,RAYY=Y,RA7111DA=+Y "RTN","RANPRO",36,0) . S (RAPNM,RANM)=$P($G(RAYY),U,2) ;proc. name for display purposes in template "RTN","RANPRO",37,0) . Q "RTN","RANPRO",38,0) ; "RTN","RANPRO",39,0) ENL ;S DIC="^RAMRPF(71.11,",DIC(0)="QEAMLZ",DLAYGO=71.11,DIC("DR")=6 "RTN","RANPRO",40,0) ;S DIC("A")="RAD/NUC MED PROCEDURES NAME: " "RTN","RANPRO",41,0) ;W ! D ^DIC "RTN","RANPRO",42,0) ;I $G(Y)<0!($G(Y)="")!($G(X)="^") G END "RTN","RANPRO",43,0) ;S (DA,RADA)=+Y,RAY=Y,RAFILE=71.11 "RTN","RANPRO",44,0) ;S (RANEW71,RANEW)=$S($P(Y,U,3)=1:1,1:0) ;used in template, edit CPT Code if new rec. "RTN","RANPRO",45,0) ;S (RANM,RAPNM)=$P($G(Y(0)),U) ;proc. name for display purposes in template "RTN","RANPRO",46,0) ;I 'RANEW G OLD "RTN","RANPRO",47,0) TEMP ;ENTER THE TEMPORARY NEW PROCEDURE INTO 71.11 "RTN","RANPRO",48,0) I $G(RAMV)=2 S RANM=$P(Y(0),"/",1) G OLD "RTN","RANPRO",49,0) G:$G(RAEND) END "RTN","RANPRO",50,0) ; create DA in temp file "RTN","RANPRO",51,0) K DD,DO N DIC,X,Y S DIC="^RAMRPF(71.11,",DIC(0)="L",X=RANM D FILE^DICN "RTN","RANPRO",52,0) I +Y<1 W !!,"Not able to create entry in temporary area" G END "RTN","RANPRO",53,0) S (RADA,RA7111DA)=+Y K ^TMP("RA7111DA",$J) S ^TMP("RA7111DA",$J)=RA7111DA K DIC,X,Y "RTN","RANPRO",54,0) ; do check of name and procedure type" "RTN","RANPRO",55,0) S DIE="^RAMRPF(71.11,",DA=RA7111DA,DR="6" D ^DIE "RTN","RANPRO",56,0) ; If Category was bypassed by entering "^", remove temp entry and quit "RTN","RANPRO",57,0) I $P($G(^RAMRPF(71.11,RADA,0)),"^",6)="" W !,"Nothing Saved" G TD "RTN","RANPRO",58,0) S RACTIVE=$P($G(^RAMPRF(71.11,RADA,"I")),"^"),RASTAT=$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RANPRO",59,0) D TRKCMB^RAMAINU(DA,.RATRKCMB) ;tracks existing "RTN","RANPRO",60,0) ; CM definition before editing. RATRKCMB ids the before CM values "RTN","RANPRO",61,0) ; "RTN","RANPRO",62,0) S DIE="^RAMRPF(71.11,",DR="[NEW RAD PROCEDURE]",DA=RA7111DA D ^DIE "RTN","RANPRO",63,0) I $G(Y)="^" W !,"Nothing Saved" G TD "RTN","RANPRO",64,0) S RADA=DA,RACPT=$P(^RAMRPF(71.11,DA,0),U,9) "RTN","RANPRO",65,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO",66,0) I $P(^RAMRPF(71.11,RA7111DA,0),U,6)'="D" D "RTN","RANPRO",67,0) . W !!,"This procedure was not created as a DETAILED exam and will not be matched",!,"to the MASTER RADIOLOGY PROCEDURE FILE." H 2 "RTN","RANPRO",68,0) . Q "RTN","RANPRO",69,0) I $G(RACPT)'="",$P(^RAMRPF(71.11,RA7111DA,0),U,6)="D" I $G(RANEW)=1 D EN^RANPRO4(RADA) G:$G(RANQUIT)=1 TD "RTN","RANPRO",70,0) I $P($G(^RAMRPF(71.11,RA7111DA,0)),U,9)="",$P($G(^RAMRPF(71.11,RA7111DA,0)),U,6)="D" W !!,"No CPT Code has been entered. This new procedure will be deleted.",*7 G TD "RTN","RANPRO",71,0) S RADA=RA7111DA,RAPROC(0)=$G(^RAMRPF(71.11,RADA,0)) "RTN","RANPRO",72,0) S RACTIVE=$P($G(^RAMPRF(71.11,RADA,"I")),"^"),$P(RASTAT,"^",2)=$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RANPRO",73,0) ; "RTN","RANPRO",74,0) I RAPROC(0)]"",("^B^P^"'[(U_$P(RAPROC(0),"^",6)_U)),('+$P(RAPROC(0),"^",9)) D G TD "RTN","RANPRO",75,0) . W !?5,$C(7),"Procedure Type: ",$S($P(RAPROC(0),"^",6)="S":"SERIES",1:"DETAILED")," ...no CPT code entered..." "RTN","RANPRO",76,0) . W !?5,"...will delete the record at this time.",! "RTN","RANPRO",77,0) ; "RTN","RANPRO",78,0) MV ;MOVE TEMPORARY ENTRY TO PERMANENT ENTRY "RTN","RANPRO",79,0) ;I $G(RAMV)'="" G:"13"'[RAMV END "RTN","RANPRO",80,0) S RAP3=$P(^RAMIS(71,0),U,3)+1 "RTN","RANPRO",81,0) ;S %X="^RAMRPF(71.11,1," "RTN","RANPRO",82,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO",83,0) ;S %X="^RAMRPF(71.11,"_RA7111DA_"," "RTN","RANPRO",84,0) ;S %Y="^RAMIS(71,"_RAP3_"," "RTN","RANPRO",85,0) ;D %XY^%RCR "RTN","RANPRO",86,0) S $P(^RAMIS(71,0),U,3)=RAP3 "RTN","RANPRO",87,0) S (RADA,RADANEW1)=RAP3 "RTN","RANPRO",88,0) ;get 711.11 data "RTN","RANPRO",89,0) K ARY D GETS^DIQ(71.11,RA7111DA_",","**","I","ARY") S A=RA7111DA_"," "RTN","RANPRO",90,0) S DA=+RADA,$P(^RAMIS(71,DA,0),"^",1)=ARY(71.11,A,.01,"I") "RTN","RANPRO",91,0) S DIE="^RAMIS(71,",DR="",DA=RADA F I=2,3,4,5,6,7,9,11,12,13,17,18,19,20 I $G(ARY(71.11,A,I,"I"))'="" S:DR'="" DR=DR_";" S DR=DR_I_"///"_$G(ARY(71.11,A,I,"I")) "RTN","RANPRO",92,0) D ^DIE "RTN","RANPRO",93,0) S DR="",DA=+RADA F I=100,900,901,902,903 I $G(ARY(71.11,A,I,"I"))'="" S:DR'="" DR=DR_";" S DR=DR_I_"///"_$G(ARY(71.11,A,I,"I")) "RTN","RANPRO",94,0) D ^DIE "RTN","RANPRO",95,0) ; education description "RTN","RANPRO",96,0) S DR="",DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""EDU"",",B=0 F S B=$O(ARY(71.11,A,500,B)) Q:'B D "RTN","RANPRO",97,0) . S C=ARY(71.11,A,500,B),DA=0,X=C,DIC=RALRDA,DIC(0)="QEAL" I X'="" D FILE^DICN "RTN","RANPRO",98,0) ; synonym "RTN","RANPRO",99,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",1," "RTN","RANPRO",100,0) S B="ARY(71.111",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",101,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",102,0) ; descendents "RTN","RANPRO",103,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",4," "RTN","RANPRO",104,0) S B="ARY(71.1105",A=B_")" "RTN","RANPRO",105,0) F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A I $QS(A,3)=".01" D "RTN","RANPRO",106,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN Q:+Y<1 S DA=+Y D "RTN","RANPRO",107,0) . . S DIE=RALRDA,DR="" "RTN","RANPRO",108,0) . . S D=B_","_$C(34)_$QS(A,2)_$C(34),E=D_")" "RTN","RANPRO",109,0) . . F S E=$Q(@E) Q:$E(E,1,$L(D))'=D S F=@E S:DR'="" DR=DR_";" S DR=DR_$QS(E,3)_"///"_F "RTN","RANPRO",110,0) . . I DR'="" D ^DIE "RTN","RANPRO",111,0) ; message "RTN","RANPRO",112,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",3," "RTN","RANPRO",113,0) S B="ARY(71.12",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",114,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",115,0) ; film type "RTN","RANPRO",116,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""F""," "RTN","RANPRO",117,0) S B="ARY(71.1102",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",118,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",119,0) ; amis code "RTN","RANPRO",120,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",2," "RTN","RANPRO",121,0) S B="ARY(71.1103",A=B_")" "RTN","RANPRO",122,0) F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A I $QS(A,3)=".01" D "RTN","RANPRO",123,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN Q:+Y<1 S DA=+Y D "RTN","RANPRO",124,0) . . S DIE=RALRDA,DR="" "RTN","RANPRO",125,0) . . S D=B_","_$C(34)_$QS(A,2)_$C(34),E=D_")" "RTN","RANPRO",126,0) . . F S E=$Q(@E) Q:$E(E,1,$L(D))'=D S F=@E S:DR'="" DR=DR_";" S DR=DR_$QS(E,3)_"///"_F "RTN","RANPRO",127,0) . . I DR'="" D ^DIE "RTN","RANPRO",128,0) ; contrast media "RTN","RANPRO",129,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""CM""," "RTN","RANPRO",130,0) S B="ARY(71.11125",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",131,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",132,0) ; default cpt modifiers "RTN","RANPRO",133,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""DCM""," "RTN","RANPRO",134,0) S B="ARY(71.11135",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",135,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",136,0) ; default medications "RTN","RANPRO",137,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""P""," "RTN","RANPRO",138,0) S B="ARY(71.1155",A=B_")" "RTN","RANPRO",139,0) F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A I $QS(A,3)=".01" D "RTN","RANPRO",140,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN Q:+Y<1 S DA=+Y D "RTN","RANPRO",141,0) . . S DIE=RALRDA,DR="" "RTN","RANPRO",142,0) . . S D=B_","_$C(34)_$QS(A,2)_$C(34),E=D_")" "RTN","RANPRO",143,0) . . F S E=$Q(@E) Q:$E(E,1,$L(D))'=D S F=@E S:DR'="" DR=DR_";" S DR=DR_$QS(E,3)_"///"_F "RTN","RANPRO",144,0) . . I DR'="" D ^DIE "RTN","RANPRO",145,0) ; default radiopharmaceuticals "RTN","RANPRO",146,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""NUC""," "RTN","RANPRO",147,0) S B="ARY(71.1108",A=B_")" "RTN","RANPRO",148,0) F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A I $QS(A,3)=".01" D "RTN","RANPRO",149,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN Q:+Y<1 S DA=+Y D "RTN","RANPRO",150,0) . . S DIE=RALRDA,DR="" "RTN","RANPRO",151,0) . . S D=B_","_$C(34)_$QS(A,2)_$C(34),E=D_")" "RTN","RANPRO",152,0) . . F S E=$Q(@E) Q:$E(E,1,$L(D))'=D S F=@E S:DR'="" DR=DR_";" S DR=DR_$QS(E,3)_"///"_F "RTN","RANPRO",153,0) . . I DR'="" D ^DIE "RTN","RANPRO",154,0) ; modality "RTN","RANPRO",155,0) S DA(1)=RADA,RALRDA="^RAMIS(71,"_DA(1)_",""MDL""," "RTN","RANPRO",156,0) S B="ARY(71.11731",A=B_")" F S A=$Q(@A) Q:$E(A,1,$L(B))'=B S C=@A D "RTN","RANPRO",157,0) . S DA=0,DIC=RALRDA,DIC(0)="QEAL",X=C I X'="" D FILE^DICN "RTN","RANPRO",158,0) ; "RTN","RANPRO",159,0) S (RADA,RADANEW1)=RAP3 "RTN","RANPRO",160,0) W !!,"Temporary new procedure entry has been moved to the permanent ",!,"RAD/NUC MED PROCEDURE file." H 1 "RTN","RANPRO",161,0) N DA,DIK S DIK="^RAMIS(71,",DA=RADA D IX^DIK K DA,DIK ; populate indexes for (newly created procedure. "RTN","RANPRO",162,0) ; "RTN","RANPRO",163,0) ;tracking items "RTN","RANPRO",164,0) S RAPROC(0)=$G(^RAMIS(71,RADA,0)) "RTN","RANPRO",165,0) ;check for data consistency between the 'CONTRAST MEDIA USED' & "RTN","RANPRO",166,0) ;'CONTRAST MEDIA' fields. "RTN","RANPRO",167,0) D CMINTEG^RAMAINU1(RADA,RAPROC(0)) "RTN","RANPRO",168,0) D TRKCMA^RAMAINU(RADA,RATRKCMB,.RATRKCMA,.RACMDIFF) "RTN","RANPRO",169,0) I $O(^RAMIS(71,RADA,"NUC",0)),($P(RAPROC(0),"^",2)=1) D DELRADE(RADA) "RTN","RANPRO",170,0) S RACTIVE=$P($G(^RAMIS(71,RADA,"I")),"^"),RASTAT=RASTAT_"^"_$S(RACTIVE="":1,RACTIVE>DT:1,1:0) "RTN","RANPRO",171,0) ;if an active parent w/o descendants, inactivate the parent "RTN","RANPRO",172,0) I $P(RASTAT,U,2),($P(RAPROC(0),U,6)="P"),('$O(^RAMIS(71,RADA,4,0))) D "RTN","RANPRO",173,0) . K D,D0,D1,DA,DI,DIC,DIE,DQ,DR "RTN","RANPRO",174,0) . W !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7) "RTN","RANPRO",175,0) . S DA=RADA,DIE="^RAMIS(71,",DR="100///"_$S($D(DT):DT,1:$$DT^XLFDT()) "RTN","RANPRO",176,0) . D ^DIE K D,D0,D1,DA,DI,DIC,DIE,DQ,DR S $P(RASTAT,U,2)=0 ;inactive "RTN","RANPRO",177,0) I $P($G(^RA(79.2,+$P(RAPROC(0),U,12),0)),U,5)="Y",(+$O(^RAMIS(71,RADA,"NUC",0))) D VRDIO(RADA) "RTN","RANPRO",178,0) I "^B^P^"[(U_$P(RAPROC(0),U,6)_U),($P(RAPROC(0),U,9)]"") D "RTN","RANPRO",179,0) . K %,D,D0,DA,DE,DIC,DIE,DQ,DR "RTN","RANPRO",180,0) . S DA=RADA,DIE="^RAMIS(71,",DR="9///@" D ^DIE "RTN","RANPRO",181,0) . W !!?5,"...CPT code deleted because "_$S($P(RAPROC(0),U,6)="B":"Broad",1:"Parent")_" procedures",!?5,"should not have CPT codes.",!,$C(7) "RTN","RANPRO",182,0) . Q "RTN","RANPRO",183,0) ; "RTN","RANPRO",184,0) ORDITM ;ORDERABLE ITEM ENTRY "RTN","RANPRO",185,0) W !,"Updating ORDERABLE ITEMS file" ;S RAMSG=RADA,RAMLNB="" "RTN","RANPRO",186,0) ;S ZTREQ="@" "RTN","RANPRO",187,0) N RADA,RAINADT,RASTAT,RAFILE,RAY,RAENALL "RTN","RANPRO",188,0) ; update orderable file for newly created procedure "RTN","RANPRO",189,0) S RADA=RADANEW1,RAINADT=$P($G(^RAMIS(71,RADA,"I")),"^") "RTN","RANPRO",190,0) S RASTAT="1^"_$S(RAINADT="":1,RAINADT>DT:1,1:0) "RTN","RANPRO",191,0) ;S RASTAT="1^1" "RTN","RANPRO",192,0) S RAENALL=0,RAY=RADA,RAFILE=71 "RTN","RANPRO",193,0) S $P(RAY,"^",2)=$P($G(^RAMIS(71,RADA,0)),"^",1) "RTN","RANPRO",194,0) D:$$ORQUIK^RAORDU()=1 PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) "RTN","RANPRO",195,0) ;D PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) "RTN","RANPRO",196,0) I $G(RANMSG)=1 D MSGRAN^RANPRO4(RADA) "RTN","RANPRO",197,0) K RADA,RAINADT,RASTAT,RAFILE,RAY,RAENALL "RTN","RANPRO",198,0) ; "RTN","RANPRO",199,0) TD ;DELETE THE TEMPORARY FILE ENTRY "RTN","RANPRO",200,0) W !,"Deleting temporary entry in file 71.11" "RTN","RANPRO",201,0) ;S DIK="^RAMRPF(71.11,",DA=1 D ^DIK "RTN","RANPRO",202,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO",203,0) I RA7111DA>0 D "RTN","RANPRO",204,0) . S DIK="^RAMRPF(71.11,",DA=RA7111DA D ^DIK "RTN","RANPRO",205,0) . K ^RAMRPF(71.11,"CREAT",DT,DA) "RTN","RANPRO",206,0) K ^TMP("RA7111DA",$J) "RTN","RANPRO",207,0) ; "RTN","RANPRO",208,0) D 22^RAMAIN2 "RTN","RANPRO",209,0) ; "RTN","RANPRO",210,0) END ;ROUTINE END "RTN","RANPRO",211,0) K DIE,DIK,XY,RANQUIT,DIR,DIC,RACODE,RACODE1,RADA,RADUZ,RAFN,RAINADT,RAMV,RANEW,RANM,RANMSG "RTN","RANPRO",212,0) K RAP3,RAPNM,RAS,RASEED,XMDUN,RATRKCMB,RADANEW1,RANEW71,ARY,A,B,C,D,E,F "RTN","RANPRO",213,0) K RALRDA,RACMDIFF,RACTIVE,RAENALL,RAFILE,RAY,RAPROC,RASTAT,RATRKCMA "RTN","RANPRO",214,0) Q "RTN","RANPRO",215,0) ; "RTN","RANPRO",216,0) OLD ;EXISTING PROCEDUREX ^% "RTN","RANPRO",217,0) S DIC="^RAMIS(71,",X=RANM D ^DIC S (RADA,DA)=+Y,RAYY=Y "RTN","RANPRO",218,0) D 21^RAMAIN2 "RTN","RANPRO",219,0) G END "RTN","RANPRO",220,0) ; "RTN","RANPRO",221,0) VRDIO(RADA) ; Validate the 'Usual Dose' field within the 'Default Radiopha- "RTN","RANPRO",222,0) ; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult "RTN","RANPRO",223,0) ; Dose' & 'High Adult Dose' range. This subroutine will display the "RTN","RANPRO",224,0) ; Radiopharmaceutical in question along with the values in question if "RTN","RANPRO",225,0) ; inconsistencies are found. "RTN","RANPRO",226,0) ; "RTN","RANPRO",227,0) ; Input Variable: 'RADA' the ien of the Procedure "RTN","RANPRO",228,0) N RANUC S RADA(1)=RADA,RADA=0 D EN^DDIOL("","","!") "RTN","RANPRO",229,0) F S RADA=$O(^RAMIS(71,RADA(1),"NUC",RADA)) Q:RADA'>0 D "RTN","RANPRO",230,0) . S RANUC(0)=$G(^RAMIS(71,RADA(1),"NUC",RADA,0)) "RTN","RANPRO",231,0) . Q:$P(RANUC(0),"^",2)="" ; no need to validate, nothing input "RTN","RANPRO",232,0) . I '$$USUAL^RADD2(.RADA,$P(RANUC(0),"^",2)) D "RTN","RANPRO",233,0) .. N RARRY S RARRY(1)="For Radiopharmaceutical: " "RTN","RANPRO",234,0) .. S RARRY(1)=RARRY(1)_$$EN1^RAPSAPI(+$P(RANUC(0),"^"),.01)_$C(7) "RTN","RANPRO",235,0) .. S RARRY(2)="" D EN^DDIOL(.RARRY,"") "RTN","RANPRO",236,0) .. Q "RTN","RANPRO",237,0) . Q "RTN","RANPRO",238,0) S RADA=RADA(1) K RADA(1) "RTN","RANPRO",239,0) Q "RTN","RANPRO",240,0) ; "RTN","RANPRO",241,0) DELRADE(RADA) ; Delete the Default Radiopharmaceuticals multiple "RTN","RANPRO",242,0) N RADA1 S RADA1=0 "RTN","RANPRO",243,0) W !!?3,"Deleting default radiopharmaceuticals for this procedure...",! "RTN","RANPRO",244,0) F S RADA1=$O(^RAMIS(71,RADA,"NUC",RADA1)) Q:RADA1'>0 D "RTN","RANPRO",245,0) . K %,%X,%Y,D,D0,DA,DI,DIC,DIE,DQ,DR,X,Y "RTN","RANPRO",246,0) . S DA(1)=RADA,DA=RADA1,DIE="^RAMIS(71,"_RADA_",""NUC""," "RTN","RANPRO",247,0) . S DR=".01///@" D ^DIE "RTN","RANPRO",248,0) . Q "RTN","RANPRO",249,0) K %,%X,%Y,D,D0,DA,DI,DIC,DIE,DQ,DR,X,Y "RTN","RANPRO",250,0) Q "RTN","RANPRO",251,0) ; "RTN","RANPRO4") 0^14^B38023574^n/a "RTN","RANPRO4",1,0) RANPRO4 ;BPFO/CLT - RADIOLOGY NEW PROCEDURE UTILITIES ; 27 Oct 2016 4:32 PM "RTN","RANPRO4",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANPRO4",3,0) ; "RTN","RANPRO4",4,0) Q "RTN","RANPRO4",5,0) EN(RADA) ;PRIMARY ENTRY POINT "RTN","RANPRO4",6,0) N DIR,RATYPE,RAFAC,RAFN,RACODE,RAGOLD,RAMATCH,RANM,RANOT,RAPLUSY,RAPROIEN,XMDUN,RANEWPRO "RTN","RANPRO4",7,0) N P1,P2,RA901 "RTN","RANPRO4",8,0) I $G(DA)'="",$G(RADA)="" S RADA=DA "RTN","RANPRO4",9,0) S RANM=RAPNM,^XTMP("RAMAIN4",$J,"RAEND")=0,RADA=+RADA "RTN","RANPRO4",10,0) GOOD ;ACCEPT ENTRY AND ASSIGN CPT "RTN","RANPRO4",11,0) S RATYPE=$P(^RAMRPF(71.11,RADA,0),U,6) D:RATYPE'="D" "RTN","RANPRO4",12,0) .W !!?3,"The type of this exam has been chosen not to be DETAILED."," An NTRT process",!?3,"will not be initiated. And no MRPF matching will be performed.",! "RTN","RANPRO4",13,0) .Q "RTN","RANPRO4",14,0) Q:RATYPE'="D" "RTN","RANPRO4",15,0) K DIR,DIR(0),DIR("A"),DIR("B") "RTN","RANPRO4",16,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO4",17,0) K DIR S DIR(0)="Y",DIR("A")="Are you sure you are entering "_$P(^RAMRPF(71.11,RA7111DA,0),U,1)_" as a new procedure" "RTN","RANPRO4",18,0) ;K DIR S DIR(0)="Y",DIR("A")="Are you sure you are entering "_$P(^RAMRPF(71.11,1,0),U,1)_" as a new procedure" "RTN","RANPRO4",19,0) S RASEED=" " S RASEED=$S($P($G(^RAMRPF(71.98,1,0)),U,10)'="Y":" not ",1:" ") "RTN","RANPRO4",20,0) S DIR("A",1)="This entry will"_RASEED_"be submitted for NTRT processing." "RTN","RANPRO4",21,0) S DIR("B")="YES" "RTN","RANPRO4",22,0) W ! D ^DIR S:Y=0 ^XTMP("RAMAIN4",$J,"RAEND")=1 G:^XTMP("RAMAIN4",$J,"RAEND")=1 END "RTN","RANPRO4",23,0) CPTEN ;Enter the CPT code "RTN","RANPRO4",24,0) I $G(RAX)="QUIT"!(X["^") G END "RTN","RANPRO4",25,0) W !!,"The CPT code is needed to match to an entry within the MASTER",!,"RADIOLOGY PROCEDURE file." "RTN","RANPRO4",26,0) I $G(RACPT)'="" W !!,"The CPT code for this procedure is ",RACPT,"." "RTN","RANPRO4",27,0) I $G(RACPT)="" K DIR S DIR(0)="71,9^^",DIR("A")="Enter the CPT code for this procedure, if the CPT code is known" "RTN","RANPRO4",28,0) I $G(RACPT)="" K DIRUT,DIROUT,DUOUT W ! D ^DIR I $G(DIRUT)=1 G END "RTN","RANPRO4",29,0) S:X>0 $P(^RAMRPF(71.11,RADA,0),U,9)=X,RACPT=X "RTN","RANPRO4",30,0) S DA=RADA D MRPF^RANPRO5 S RAGOLD=RAMATCH "RTN","RANPRO4",31,0) I $D(DUOUT)!($G(Y(0))="")!($G(RANQUIT)=1) W !!,*7,"No MRPF match made.",!! G END "RTN","RANPRO4",32,0) I $G(RAPROIEN)'="",($G(RANQUIT)'=1),$D(^RAMIS(71,"MRPF",$S($G(RAPROIEN)'="":RAPROIEN,1:0))) S RAMTCH=1 D MTCH^RANPROU2 "RTN","RANPRO4",33,0) G:$G(RANQUIT)=1 END "RTN","RANPRO4",34,0) I Y(0)'["NONE LISTED" S DA=RADA,DIE="^RAMRPF(71.11,",DIE(0)="L",DR="900///"_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,1)_";902///"_DT_";903///"_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,4) S DA=RADA D ^DIE D "RTN","RANPRO4",35,0) . I $G(RAPROIEN)'="" W !?3,"You have mapped this procedure to "_$P($G(^RAMRPF(71.99,RAPROIEN,0)),U,1) Q "RTN","RANPRO4",36,0) I $G(Y(0))["NONE LISTED" D "RTN","RANPRO4",37,0) . S DA=RADA,DIE="^RAMIS(71,",DIE(0)="L" "RTN","RANPRO4",38,0) . S DR="901///" S RA901=$S($P($G(^RAMRPF(71.98,1,0)),U,10)="Y":"Y",1:"") "RTN","RANPRO4",39,0) . S DR=DR_RA901_";902///"_DT D ^DIE "RTN","RANPRO4",40,0) . Q "RTN","RANPRO4",41,0) S $P(^RAMRPF(71.11,RADA,"NTRT"),U,3)=DT,^RAMRPF(71.11,"CREAT",DT,RADA)="" "RTN","RANPRO4",42,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" S $P(^RAMRPF(71.11,RADA,"NTRT"),U,3)="" "RTN","RANPRO4",43,0) MSG ;SEND A MESSAGE TO GATEKEEPER "RTN","RANPRO4",44,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q RADA "RTN","RANPRO4",45,0) N XMSUB,XMY,XMTEXT,RATXT Q:$P($G(^RAMRPF(71.11,RADA,"NTRT")),U,1)'="" RADA "RTN","RANPRO4",46,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RANPRO4",47,0) S XMY(DUZ)="" "RTN","RANPRO4",48,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RANPRO4",49,0) S RATXT(1)="A new Radiology procedure has been entered." "RTN","RANPRO4",50,0) S RATXT(3)="This procedure will be submitted for NTRT processing." "RTN","RANPRO4",51,0) S RATXT(4)=" " "RTN","RANPRO4",52,0) S RATXT(5)=" " "RTN","RANPRO4",53,0) ;S RATXT(7)=" " "RTN","RANPRO4",54,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO4",55,0) S RATXT(7)="Procedure Name: "_$P(^RAMRPF(71.11,RA7111DA,0),U,1) "RTN","RANPRO4",56,0) ;S RATXT(7)="Procedure Name: "_$P(^RAMRPF(71.11,1,0),U,1) "RTN","RANPRO4",57,0) S RATXT(8)="CPT: "_$P($G(^RAMRPF(71.11,RADA,0)),U,9) "RTN","RANPRO4",58,0) S XMTEXT="RATXT(" D ^XMD "RTN","RANPRO4",59,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q RADA "RTN","RANPRO4",60,0) Q:$P($G(^RAMRPF(71.11,RADA,"NTRT")),U,1)'="" RADA "RTN","RANPRO4",61,0) S RANMSG=1 "RTN","RANPRO4",62,0) G END "RTN","RANPRO4",63,0) MSG1 ;MESSAGE TO NTRT "RTN","RANPRO4",64,0) ;I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q RADA "RTN","RANPRO4",65,0) I $P($G(^RAMRPF(71.98,1,0)),U,10)'="Y" Q "RTN","RANPRO4",66,0) ;N XMSUB,XMY,XMTEXT,RATXT Q:$P($G(^RAMIS(71,RADA,"NTRT")),U,1)'="" RADA "RTN","RANPRO4",67,0) N XMSUB,XMY,XMTEXT,RATXT,XMDUN,XMDUZ,XMZ,RAFAC,RAFN "RTN","RANPRO4",68,0) I $P($G(^RAMIS(71,RADA,"NTRT")),U,1)'="" Q "RTN","RANPRO4",69,0) S RAFAC=$$KSP^XUPARAM("INST"),RAFAC=$$NS^XUAF4(RAFAC) "RTN","RANPRO4",70,0) ;S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2),$P(^RAMRPF(71.11,RADA,"NTRT"),U,2)="Y" "RTN","RANPRO4",71,0) N DA,DIE,DR S DIE="^RAMIS(71,",DR="901///Y",DA=RADA D ^DIE K DA,DIE,DR "RTN","RANPRO4",72,0) S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2) "RTN","RANPRO4",73,0) ;S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2),$P(^RAMIS(71,RADA,"NTRT"),U,2)="Y" "RTN","RANPRO4",74,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RANPRO4",75,0) S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RANPRO4",76,0) S XMY("G.RADNTRT")="" "RTN","RANPRO4",77,0) S XMDUZ("G.RADNTRT")="" "RTN","RANPRO4",78,0) S XMY(DUZ)="" "RTN","RANPRO4",79,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RANPRO4",80,0) ;S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RANPRO4",81,0) S RATXT(1)="A new Radiology procedure has been entered at "_RAFN "RTN","RANPRO4",82,0) S RATXT(2)=" " "RTN","RANPRO4",83,0) S RATXT(3)="Facility Name/number: "_RAFN_" / "_RAFAC "RTN","RANPRO4",84,0) S RATXT(4)=" " "RTN","RANPRO4",85,0) I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPRO4",86,0) S RATXT(5)="Procedure name: "_$P(^RAMIS(71,RADA,0),U,1) "RTN","RANPRO4",87,0) ;S RATXT(5)="Procedure name: "_$P(^RAMRPF(71.11,RA7111DA,0),U,1) "RTN","RANPRO4",88,0) ;S RATXT(5)="Procedure name: "_$P(^RAMRPF(71.11,1,0),U,1) "RTN","RANPRO4",89,0) S RATXT(6)=" " "RTN","RANPRO4",90,0) S RATXT(7)="CPT code: "_$P($G(^RAMIS(71,RADA,0)),U,9) "RTN","RANPRO4",91,0) ;S RATXT(7)="CPT code: "_$P($G(^RAMRPF(71.11,RADA,0)),U,9) "RTN","RANPRO4",92,0) S RATXT(8)="Local IEN: "_RADA "RTN","RANPRO4",93,0) S RATXT(9)="For questions or notification respond to: "_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE") "RTN","RANPRO4",94,0) S RATXT(10)="For NTRT results respond to: "_"S.RANEWPRO@"_$$KSP^XUPARAM("WHERE") "RTN","RANPRO4",95,0) ;I $P($G(^RAMRPF(71.98,1,0)),U,9)="Y" D XML G END "RTN","RANPRO4",96,0) S $P(^RAMIS(71,RADA,"NTRT"),U,4)=DT "RTN","RANPRO4",97,0) ;S $P(^RAMRPF(71.11,RADA,"NTRT"),U,4)=DT "RTN","RANPRO4",98,0) S XMTEXT="RATXT(" D ^XMD "RTN","RANPRO4",99,0) ;S $P(^RAMIS(71,RADA,"NTRT"),U,4)=DT "RTN","RANPRO4",100,0) I $P($G(^RAMRPF(71.98,1,0)),U,9)="Y" D XML "RTN","RANPRO4",101,0) K XMSUB,XMY,XMTEXT,RATXT,XMDUN,XMDUZ,XMZ,RAFAC,RAFN "RTN","RANPRO4",102,0) Q "RTN","RANPRO4",103,0) ; "RTN","RANPRO4",104,0) XML ; NTRT message for ISAAC "RTN","RANPRO4",105,0) ; Need P1 ISAAC SCHEMA NAME "RTN","RANPRO4",106,0) ; Need P2 ISAAC SCHEMA PATH "RTN","RANPRO4",107,0) ; get the schemea name and the schema path "RTN","RANPRO4",108,0) N P1,P2,A,C "RTN","RANPRO4",109,0) S P1=$$GET1^DIQ(71.98,"1,",11.6) "RTN","RANPRO4",110,0) S P2=$$GET1^DIQ(71.98,"1,",7) "RTN","RANPRO4",111,0) S A=$TR(P1,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") "RTN","RANPRO4",112,0) I P1'=""&($E(A,($L(A)-4),$L(A)))'=".XSD" S P1=P1_".XSD" "RTN","RANPRO4",113,0) I P2'="" D ;< "RTN","RANPRO4",114,0) . I $E(P2,1,2)'="//" S P2="//"_P2 "RTN","RANPRO4",115,0) . I $E(P2,$L(P2))="/" S P2=P2_$E(P2,1,($L(P2)-1)) "RTN","RANPRO4",116,0) S A="uri:"_P2_P1 "RTN","RANPRO4",117,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RANPRO4",118,0) K RATXT "RTN","RANPRO4",119,0) S RATXT(1)=$$XMLHDR^MXMLUTL() "RTN","RANPRO4",120,0) S RATXT(2)="" "RTN","RANPRO4",124,0) S RATXT(6)=""_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE")_"" "RTN","RANPRO4",125,0) S RATXT(7)=""_RANM_"" "RTN","RANPRO4",126,0) S RATXT(8)=""_$P($G(^RAMIS(71,RADA,0)),U,9)_"" "RTN","RANPRO4",127,0) ;S RATXT(8)=""_$P($G(^RAMRPF(71.11,RADA,0)),U,9)_"" "RTN","RANPRO4",128,0) S RATXT(9)=""_RADA_"" "RTN","RANPRO4",129,0) S RATXT(10)=""_"S.RANEWPRO@"_$$KSP^XUPARAM("WHERE")_"" "RTN","RANPRO4",130,0) S RATXT(11)="" "RTN","RANPRO4",131,0) S RATXT(12)="" "RTN","RANPRO4",132,0) S RAXTMPNM=XMSUB "RTN","RANPRO4",133,0) ;D XMLSND^RAXMLSND(RAXTMPNM) "RTN","RANPRO4",134,0) N RADUZ,RA71IEN,RAS "RTN","RANPRO4",135,0) S RADUZ=DUZ,RA71IEN=RADA,RAS="" "RTN","RANPRO4",136,0) D EN^RAXMLSND "RTN","RANPRO4",137,0) K RADUZ,RA71IEN,RAS,RATXT "RTN","RANPRO4",138,0) Q "RTN","RANPRO4",139,0) ; "RTN","RANPRO4",140,0) DEACT ;BLOCK INACTIVATION DATE "RTN","RANPRO4",141,0) Q "RTN","RANPRO4",142,0) I $P($G(^RAMRPF(71.98,1,0)),U,3)'="" D "RTN","RANPRO4",143,0) . S X1=DT,X2=$P(^RAMRPF(71.98,1,0),U,3) "RTN","RANPRO4",144,0) . D C^%DTC "RTN","RANPRO4",145,0) . S ^RAMRPF(71.11,RADA,"I")=X,$P(^RAMRPF(71.11,RADA,"NTRT"),U,2)="Y" "RTN","RANPRO4",146,0) Q "RTN","RANPRO4",147,0) END ;KILL LOCAL VARIABLES AND END "RTN","RANPRO4",148,0) K RATXT,XMZ,XMDUN,XMDUZ,X,Y "RTN","RANPRO4",149,0) Q $G(RANEWPRO) "RTN","RANPRO4",150,0) ; "RTN","RANPRO4",151,0) MSGRAN(RADA) ; entry from RANPRO after file to 71 to send NTRT message "RTN","RANPRO4",152,0) G MSG1 "RTN","RANPRO5") 0^15^B42155834^n/a "RTN","RANPRO5",1,0) RANPRO5 ;BPFO/CLT - RADIOLOGY MAPPING TO MRPF ; 27 Oct 2016 4:28 PM "RTN","RANPRO5",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANPRO5",3,0) ; "RTN","RANPRO5",4,0) ; This routine uses the following IA's: "RTN","RANPRO5",5,0) ; #1995 - CPT calls (supported) "RTN","RANPRO5",6,0) Q "RTN","RANPRO5",7,0) EN ;MAIN ENTRY POINT "RTN","RANPRO5",8,0) N RADA,RAPROIEN,DIE,DIC,DA,DR,X,Y,RACONT,RAMATCH,XC,RANOT,RAX,RACODE,RAFN,RAFAC,DUOUT,DIR "RTN","RANPRO5",9,0) N DTOUT,DUOUT,DIRUT,DIROUT,RATMP,XC2,RAXTMP,DIWF,DIWL,DIWR,RA99,RAIEN "RTN","RANPRO5",10,0) S RADA="",RACONT="" K ^XTMP("RANPRO4") S ^XTMP("RAMAIN4",$J,0)="" "RTN","RANPRO5",11,0) LOOK ;LOOK FOR MAPPABLE PROCEDURES "RTN","RANPRO5",12,0) S RADA=$P($G(^RAMRPF(71.98,1,0)),U,5) S:$G(RADA)="" RADA="" "RTN","RANPRO5",13,0) I $P($G(^RAMRPF(71.98,1,0)),U,4)="Y" W !!?3,"Matching has been completed.",!?3,"Do you want to map exceptions?" S DIR(0)="Y",DIR("B")="NO" D ^DIR G:Y=0 END "RTN","RANPRO5",14,0) F W !! S RACODE="",RATMP="",RADA=$O(^RAMRPF(71.11,"B",RADA)) S:RADA="" $P(^RAMRPF(71.98,1,0),U,4)="Y" Q:RADA="" Q:RACONT["^" D "RTN","RANPRO5",15,0) . S $P(^RAMRPF(71.98,1,0),U,5)=RADA "RTN","RANPRO5",16,0) . S RAIEN=$O(^RAMRPF(71.11,"B",RADA,"")) Q:RAIEN="" D Q:$G(DIRUT)=1 "RTN","RANPRO5",17,0) .. I $P(^RAMRPF(71.11,RAIEN,0),U,6)'="D" Q "RTN","RANPRO5",18,0) .. I $G(^RAMRPF(71.11,RAIEN,"I"))'=""&($G(^RAMRPF(71.11,RAIEN,"I"))0 D "RTN","RANPRO5",64,0) ;. S II=0 W !,"Procedure To MRPF associations For CPT: "_RACPT,! "RTN","RANPRO5",65,0) ;. F S II=$O(RAMERR(II)) Q:'II S A=RAMERR(II) W $P(A,"^",2),?40,$P(A,"^",1),! "RTN","RANPRO5",66,0) S:$G(RAPROIEN)="" RAPROIEN="" F I=1:1 S RAPROIEN=$O(^RAMRPF(71.99,"C",RACPT,RAPROIEN)) D:'$D(^RAMRPF(71.99,"C",RACPT)) MSG Q:RAPROIEN="" D ACTIVE^RANPROU2 D:$G(RA99)'="INACTIVE" "RTN","RANPRO5",67,0) .S:$G(RACODE)="" RACODE="" S RACINF=$$CPT^ICPTCOD(RACPT),RACODE=RACODE_I_":"_$P(^RAMRPF(71.99,RAPROIEN,0),U,1)_"/"_$P(RACINF,"^",3)_";",^XTMP("RAMAIN4",$J,I)=RAPROIEN "RTN","RANPRO5",68,0) . Q "RTN","RANPRO5",69,0) K RACINF "RTN","RANPRO5",70,0) MRPFL ; come here if no entries "RTN","RANPRO5",71,0) K RAMERR,CNT1,II,A "RTN","RANPRO5",72,0) ;S RACODE=$G(RACODE)_$S($G(CNT)'="":(CNT+1),1:1)_":NONE LISTED",RANOT=$S($G(CNT)'="":(CNT+1),1:1) "RTN","RANPRO5",73,0) S RACODE=$G(RACODE)_$S($G(I)'="":I,1:1)_":NONE LISTED",RANOT=$S($G(I)'="":I,1:1) "RTN","RANPRO5",74,0) Q:$G(RACODE)="" $G(RAMATCH) "RTN","RANPRO5",75,0) MRPF3 K XC,XC2,CNT ;LOOP POINT "RTN","RANPRO5",76,0) K DIR,DIE S DIR(0)="S^"_RACODE_"^",DIR("A",1)="Select the number of the Master Procedure that best matches",DIR("A")="or enter a number followed by 'C' for the long name. e.g. 1C" "RTN","RANPRO5",77,0) S DIR("PRE")="I X["_"""C"""_" S X=+X,XC=1" "RTN","RANPRO5",78,0) D ^DIR G:$D(DUOUT) MEND G:Y["^"!(X["^") END S RAPLUSY=+Y I $G(XC)=1 D "RTN","RANPRO5",79,0) . S ^XTMP("RAMAIN4",$J,"C")=$G(RACPT)_U_RACODE_U_$G(RAMATCH)_U_RAPROIEN_U_$G(XC)_U_RANOT_U_RAPLUSY,XC2=1 "RTN","RANPRO5",80,0) . I Y(0)["NONE LISTED" S XC2=XC Q "RTN","RANPRO5",81,0) . S RAMATCH=$P(RACODE,";",+Y),RAMATCH=$P(RAMATCH,":",2),RAPLUSY=+Y "RTN","RANPRO5",82,0) . S ^XTMP("RAMAIN4",$J,"C")=$G(RACPT)_U_RACODE_U_RAMATCH_U_RAPROIEN_U_XC_U_RANOT_U_RAPLUSY "RTN","RANPRO5",83,0) . I $P(^XTMP("RAMAIN4",$J,"C"),U,2)="1:NON LISTED" S XC2=1 Q "RTN","RANPRO5",84,0) . K ^UTILITY($J,"W") S DIWL=10,DIWR=70,DIWF="WC60" "RTN","RANPRO5",85,0) . S RAPRO1=^XTMP("RAMAIN4",$J,+Y),RAPLUSY=+Y "RTN","RANPRO5",86,0) . S X1=0 F S X1=$O(^RAMRPF(71.99,RAPRO1,1,X1)) Q:X1="" D "RTN","RANPRO5",87,0) .. S X=^RAMRPF(71.99,RAPRO1,1,X1,0) D ^DIWP "RTN","RANPRO5",88,0) .. Q "RTN","RANPRO5",89,0) . D ^DIWW "RTN","RANPRO5",90,0) . W !?3,"Enter to continue:" R X:600 Q "RTN","RANPRO5",91,0) I $G(XC2)=1 S RAXTMP=^XTMP("RAMAIN4",$J,"C") D "RTN","RANPRO5",92,0) . S RACPT=$P(RAXTMP,U,1),RACODE=$P(RAXTMP,U,2),RAMATCH=$P(RAXTMP,U,3),RAPROIEN=$P(RAXTMP,U,4),XC=$P(RAXTMP,U,5),RANOT=$P(RAXTMP,U,7),(RAPLUSY,Y)=$P(RAXTMP,U,8) S I="" "RTN","RANPRO5",93,0) G:$G(XC2)=1 MRPF3 S:$G(Y)'=$G(RANOT) RAMATCH=$P(RACODE,";",RAPLUSY),RAMATCH=$P(RAMATCH,":",2) "RTN","RANPRO5",94,0) I RACODE'="1:NONE LISTED"&(Y(0)'="NONE LISTED") S:$G(RAPROIEN)="" RAPROIEN=^XTMP("RAMAIN4",$J,+Y) "RTN","RANPRO5",95,0) I $G(RACODE)["1:NONE LISTED"!($G(Y(0))["NONE LISTED") S RAX="QUIT",RAMATCH="" G MEND "RTN","RANPRO5",96,0) I $G(RAPROIEN)'="",$D(^RAMIS(71,"MRPF",$S($G(RAPROIEN)'="":RAPROIEN,1:0))) S RAMTCH=2 D:RAMATCH'="" MTCH^RANPROU2 I RAMATCH="QUIT" S RAMV=1 G END "RTN","RANPRO5",97,0) S:+Y'=RANOT RAMATCH=$P(RAMATCH,"/",1) I $P(RACODE,";",Y)'["NONE LISTED" S RAPROIEN=^XTMP("RAMAIN4",$J,+Y) "RTN","RANPRO5",98,0) MEND ;GO HERE WHEN AN UPARROW ENTERED ON A DIR "RTN","RANPRO5",99,0) I $G(RAMATCH)="NONE LISTED" S RAMATCH="" Q "RTN","RANPRO5",100,0) I $G(RAMATCH)="",$G(Y(0))["NONE LISTED" S RAMATCH="QUIT" Q RAMATCH "RTN","RANPRO5",101,0) I $G(DUOUT)=1 S RAX="QUIT",RAMATCH="" Q RAMATCH "RTN","RANPRO5",102,0) S RAMATCH="GO" Q RAMATCH "RTN","RANPRO5",103,0) END ;END ROUTINE "RTN","RANPRO5",104,0) K RACPT,RACODE,DIR,D,I,%X,%Y,D0,DI,DQ,DIRUT,DUOUT,XMDUN,XMDUZ,XMZ,^XTMP("RANPRO4"),RALOINC "RTN","RANPRO5",105,0) K RAPLUSY,RAPRO1,X1,XC,XY,Z,DA,^UTILITY($J,"W") "RTN","RANPRO5",106,0) K ^XTMP("RAMAIN4",$J),RAMTCH "RTN","RANPRO5",107,0) Q "RTN","RANPRO5",108,0) MSG K RACPT,RACODE,DIR,D,I,%X,%Y,D0,DI,DQ,DIRUT,DUOUT "RTN","RANPRO5",109,0) I $P($G(^RARMPF(71.98,1,0)),U,10)'="Y" G END "RTN","RANPRO5",110,0) N XMSUB,XMY,XMTEXT,RATXT "RTN","RANPRO5",111,0) S RAFAC=$$KSP^XUPARAM("INST"),RAFAC=$$NS^XUAF4(RAFAC) "RTN","RANPRO5",112,0) S RAFN=$P(RAFAC,U,1),RAFAC=$P(RAFAC,U,2),$P(^RAMRPF(71.11,DA,"NTRT"),U,2)="Y" "RTN","RANPRO5",113,0) S XMSUB="NEW RADIOLOGY PROCEDURE" "RTN","RANPRO5",114,0) S XMY(DUZ)="" "RTN","RANPRO5",115,0) S XMY("G.RADIOLOGY NTRT@FORUM.DOMAIN.EXT")="" "RTN","RANPRO5",116,0) S XMY("G.NTRT")="" "RTN","RANPRO5",117,0) S XMDUZ("G.RADNTRT")="" "RTN","RANPRO5",118,0) I $P($G(^RAMRPF(71.98,1,0)),U,2)'="" S XMY($P(^RAMRPF(71.98,1,0),U,2))="" "RTN","RANPRO5",119,0) S RATXT(1)="An existing Radiology procedure at "_RAFN "RTN","RANPRO5",120,0) S RATXT(2)="does not have a match in the MASTER RADIOLOGY PROCEDURE file" "RTN","RANPRO5",121,0) S RATXT(3)=" " "RTN","RANPRO5",122,0) S RATXT(4)="Facility Name/number: "_RAFN_" / "_RAFAC "RTN","RANPRO5",123,0) S RATXT(5)=" " "RTN","RANPRO5",124,0) S RATXT(6)="Procedure name: "_RADA "RTN","RANPRO5",125,0) S RATXT(7)=" " "RTN","RANPRO5",126,0) S RATXT(8)="CPT code: "_$P($G(^RAMRPF(71.11,DA,0)),U,9) "RTN","RANPRO5",127,0) S RATXT(9)="Local IEN: "_DA "RTN","RANPRO5",128,0) S RATXT(10)="For questions or notification respond to: "_"G.RADNTRT@"_$$KSP^XUPARAM("WHERE") "RTN","RANPRO5",129,0) S RATXT(11)="For NTRT results respond to: "_"S.RADNEWPRO@"_$$KSP^XUPARAM("WHERE") "RTN","RANPRO5",130,0) S $P(^RAMRPF(71.11,DA,"NTRT"),U,3)=DT "RTN","RANPRO5",131,0) S XMTEXT="RATXT(" D ^XMD "RTN","RANPRO5",132,0) S $P(^RAMRPF(71.11,DA,"NTRT"),U,3)=DT "RTN","RANPRO5",133,0) G END "RTN","RANPROU") 0^16^B5444307^n/a "RTN","RANPROU",1,0) RANPROU ;BPFO/CLT - NEW RADIOLOGY PROCEDURES UTILITIES ; 27 Oct 2016 2:43 PM "RTN","RANPROU",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANPROU",3,0) ; "RTN","RANPROU",4,0) CPT(DA,RAX) ;Ask for CPT Code when the 'Procedure Enter/Edit' option "RTN","RANPROU",5,0) ;is exercised. Called from input template: W RADIOLOGY PROCEDURE "RTN","RANPROU",6,0) ;Input: DA=ien of new record being edited & RAX=procedure name "RTN","RANPROU",7,0) N DIR,DIROUT,DIRUT,DTOUT,DUOUT,RAFDA,RAYN,X,Y S RAYN=0 "RTN","RANPROU",8,0) F D Q:+RAYN!($D(DIRUT)#2) "RTN","RANPROU",9,0) .K X,Y S DIR(0)="71.11,9" D ^DIR Q:$D(DIRUT)#2 "RTN","RANPROU",10,0) .;Y=N^S where N=record ien & S=.01 value of the record "RTN","RANPROU",11,0) .W !!,"Note: If an erroneous CPT Code is accepted it cannot be changed; the",!,"procedure must be inactivated." "RTN","RANPROU",12,0) . I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPROU",13,0) . S RAX=$P($G(^RAMRPF(71.11,RA7111DA,0)),U,1) W !!,"Are you adding '"_$P(Y,U,2)_"' as the CPT Code for the new Rad/Nuc Med Procedure",!,"'"_RAX_"'? NO// " "RTN","RANPROU",14,0) .;S RAX=$P($G(^RAMRPF(71.11,1,0)),U,1) W !!,"Are you adding '"_$P(Y,U,2)_"' as the CPT Code for the new Rad/Nuc Med Procedure",!,"'"_RAX_"'? NO// " "RTN","RANPROU",15,0) .R RAYN:DTIME "RTN","RANPROU",16,0) .I '$T!(RAYN["^") S RAYN=-1 Q "RTN","RANPROU",17,0) .S RAYN=$E(RAYN) S:RAYN="" RAYN="N" "RTN","RANPROU",18,0) .I "YyNn"'[RAYN W !?3,"Enter 'Y' to accept the CPT Code, or 'N' to reject the CPT Code or '^' to",!?3,"exit without selecting a CPT Code." "RTN","RANPROU",19,0) .I W !?5,"Note: If an erroneous CPT Code is accepted it cannot be changed; the",!?5,"procedure must be inactivated." "RTN","RANPROU",20,0) .S:"Yy"[RAYN RAYN="1^Y" "RTN","RANPROU",21,0) .S:"Nn"[RAYN RAYN=0 "RTN","RANPROU",22,0) .Q "RTN","RANPROU",23,0) I $P(RAYN,U,2)="Y" S RAFDA(71.11,DA_",",9)=$P(Y,U) D FILE^DIE("","RAFDA") "RTN","RANPROU",24,0) Q "RTN","RANPROU",25,0) ; "RTN","RANPROU2") 0^17^B15193434^n/a "RTN","RANPROU2",1,0) RANPROU2 ;MANTECH/CLT - LOINC FOR THE HL7 UTILITY ; 28 Oct 2016 10:36 AM "RTN","RANPROU2",2,0) ;;5.0;Radiology/Nuclear Medicine;**127**;Mar 16, 1998;Build 119 "RTN","RANPROU2",3,0) EN ;MAIN ENTRY POINT "RTN","RANPROU2",4,0) S RAMATCH=$P($G(^RAMIS(71,+$P(RACN0,"^",2),"NTRT")),U,1) "RTN","RANPROU2",5,0) I $G(RAMATCH)'="" S RALOINC=$P($G(^RAMRPF(71.99,RAMATCH,0)),U,4) "RTN","RANPROU2",6,0) Q "RTN","RANPROU2",7,0) MTCH ;ALREADY MATCHED NOTIFICATION "RTN","RANPROU2",8,0) S RAPLUSY=^XTMP("RAMAIN4",$J,Y) "RTN","RANPROU2",9,0) MTCH1 ;ALTERNATE ENTRY POINT "RTN","RANPROU2",10,0) S RAIEN="",RAIEN=$O(^RAMIS(71,"MRPF",RAPLUSY,RAIEN)) "RTN","RANPROU2",11,0) S RAMATCH=$S($G(RAIEN)'="":"QUIT",1:"GO") "RTN","RANPROU2",12,0) I $G(RAMATCH)="GO" S RAMV=1 Q "RTN","RANPROU2",13,0) W !!?3,$C(7),"The MRPF procedure "_$P(^RAMRPF(71.99,RAPROIEN,0),U,1)_" is already mapped to your procedure ",$P(^RAMIS(71,RAIEN,0),U,1)_"." "RTN","RANPROU2",14,0) I RAMTCH=1 W !," Use the already created procedure.",! "RTN","RANPROU2",15,0) ;I RAMTCH=2 W !?3,"Either change "_$P(^RAMIS(71,RAIEN,0),U,1)_" or choose another MRPF.",! "RTN","RANPROU2",16,0) ;I RAMTCH=2 W !,?3," Choose another MRPF.",! "RTN","RANPROU2",17,0) I $G(RANEW)=1 W !!,"This new procedure will be removed." H 1 D "RTN","RANPROU2",18,0) . ;S DIK="^RAMRPF(71.11,",DA=1 D ^DIK K ^RAMRPF(71.11,"CREAT",DT,DA) "RTN","RANPROU2",19,0) . I $G(RA7111DA)="" S RA7111DA=$G(^TMP("RA7111DA",$J)) "RTN","RANPROU2",20,0) . I RA7111DA>0 D "RTN","RANPROU2",21,0) . . S DIK="^RAMRPF(71.11,",DA=RA7111DA D ^DIK K ^RAMRPF(71.11,"CREAT",DT,DA) "RTN","RANPROU2",22,0) . . K ^TMP("RA7111DA",$J) "RTN","RANPROU2",23,0) . S ^XTMP("RAMAIN4",$J,"RAEND")=1,RANQUIT=1 K RAMTCHS S RAMV=0 "RTN","RANPROU2",24,0) . Q "RTN","RANPROU2",25,0) Q "RTN","RANPROU2",26,0) SEED ;HAS FILE 71.99 BEEN SEEDED "RTN","RANPROU2",27,0) W !!?3,"The populating of the MASTER RADIOLOGY PROCEDURE file is called seeding.",! "RTN","RANPROU2",28,0) S DIE="^RAMRPF(71.98,",DA=1,DR="9//NO" D ^DIE "RTN","RANPROU2",29,0) Q "RTN","RANPROU2",30,0) ONE ;EDIT MAPPING ON A SINGLE PROCEDURE "RTN","RANPROU2",31,0) G ONE^RAUTL23 "RTN","RANPROU2",32,0) S DIC="^RAMIS(71,",DIC(0)="AEQM",DIC("A")="ENTER THE PROCEDURE TO BE EDITED:" "RTN","RANPROU2",33,0) D ^DIC Q:Y'>0 "RTN","RANPROU2",34,0) S DIE=DIC,DA=+Y,DR="900" D ^DIE "RTN","RANPROU2",35,0) S RAPLUSY=$P($G(^RAMIS(71,DA,"NTRT")),U,1) Q:RAPLUSY="" "RTN","RANPROU2",36,0) S RAIEN="",RAIEN=$O(^RAMIS(71,"MRPF",RAPLUSY,RAIEN)) "RTN","RANPROU2",37,0) I $G(RAIEN)'="",$G(RAIEN)'=DA S RAMTCH=2 D G ONE "RTN","RANPROU2",38,0) . S RAMATCH=$P(^RAMRPF(71.99,RAPLUSY,0),U,1) D MTCH1 "RTN","RANPROU2",39,0) . S DR="900///@" D ^DIE "RTN","RANPROU2",40,0) . Q "RTN","RANPROU2",41,0) W !! G ONE "RTN","RANPROU2",42,0) Q "RTN","RANPROU2",43,0) LOINC ;ENTER/EDIT LOINC FOR ONE ENTRY IN FILE 71 "RTN","RANPROU2",44,0) N DIC,DIE,X,Y "RTN","RANPROU2",45,0) S DIC="^RAMIS(71,",DIC(0)="AEQM" D ^DIC Q:Y'>0 S DA=+Y "RTN","RANPROU2",46,0) S DIE=DIC,DR=903 D ^DIE "RTN","RANPROU2",47,0) Q "RTN","RANPROU2",48,0) ACTIVE ;IS THE MRPF ENTRY ACTIVE "RTN","RANPROU2",49,0) N RA99,I99,I999 S I99=0 F S I99=$O(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS","B",I99)) Q:I99="" D "RTN","RANPROU2",50,0) . S I999="",I999=$O(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS","B",I99,I999)) "RTN","RANPROU2",51,0) . I $P(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS",I999,0),U,1)
0 G ONEQT "RTN","RAUTL23",27,0) S DA=+Y,(A,RACPTMR,RAPRDA)="",RAPRDA=DA,RAPRNM=$$GET1^DIQ(71,DA_",",.01) "RTN","RAUTL23",28,0) ; inactive check "RTN","RAUTL23",29,0) S A=$$GET1^DIQ(71,DA_",",100,"I") I A'="" W !!,"This procedure is inactive" D ONEQT G ONE "RTN","RAUTL23",30,0) ; check for CPT code "RTN","RAUTL23",31,0) S RACPTMR=$$GET1^DIQ(71,DA_",",9,"E") I RACPTMR="" W !!,"This procedure is not associated to a CPT Code." D ONEQT G ONE "RTN","RAUTL23",32,0) ; check if associated to MRPF "RTN","RAUTL23",33,0) S A=$$GET1^DIQ(71,DA_",",900,"I") I A'="" S RAXX=$$GET1^DIQ(71.99,A_",",.01) W !!,"This procedure is already mapped to "_RAXX_"." D ONEQT G ONE "RTN","RAUTL23",34,0) ; CPT code not in MRPF "RTN","RAUTL23",35,0) S A=$O(^RAMRPF(71.99,"C",RACPTMR,0)) I 'A W !!,"There are not any MRPF entries associated to CPT Code: "_RACPTMR D ONEQT G ONE "RTN","RAUTL23",36,0) ; check if all affiliated MRPFs are in use "RTN","RAUTL23",37,0) S A=0,OK=0 F S A=$O(^RAMRPF(71.99,"C",RACPTMR,A)) Q:'A D I OK=1 Q "RTN","RAUTL23",38,0) . S B=$O(^RAMIS(71,"MRPF",A,"")) "RTN","RAUTL23",39,0) . I B'="" Q "RTN","RAUTL23",40,0) . S OK=1 Q "RTN","RAUTL23",41,0) I 'OK W !!,"All MRPF Terms for this CPT Code ("_RACPTMR_") are allocated to other Procedures" D ONEQT G ONE "RTN","RAUTL23",42,0) ; select MRPF for procedure "RTN","RAUTL23",43,0) K DIR,DIRUT,DA,Y "RTN","RAUTL23",44,0) S DIR("S")="I '$$SCREEN^XTID(71.99,"""",(+Y_"",""))&($$ONECHK^RAUTL23(+Y)=1)&($$ONECK2^RAUTL23(+Y)=1)" "RTN","RAUTL23",45,0) S DIR(0)="PO^71.99:EQZ" "RTN","RAUTL23",46,0) S DIR("A")="Enter the MRPF to Associate with the Selected Procedure" "RTN","RAUTL23",47,0) S DIR("?")="Enter the MRPF that you want to associate to the Procedure. Or, enter a '?' to view available choices for the Procedures CPT" "RTN","RAUTL23",48,0) D ^DIR ; I $D(DIRUT) G ONEQT "RTN","RAUTL23",49,0) I Y="^"!(X="^") G ONEQT "RTN","RAUTL23",50,0) I +Y'>0 W !,"Nothing Selected" D ONEQT G ONE "RTN","RAUTL23",51,0) N DA,DIE,DR "RTN","RAUTL23",52,0) S A=$G(^RAMRPF(71.99,+Y,0)),A=$P(A,"^",4),RAMRPFDA=+Y "RTN","RAUTL23",53,0) S DA=RAPRDA,DIE="^RAMIS(71,",DR="900///"_RAMRPFDA_";903///"_A D ^DIE "RTN","RAUTL23",54,0) S RAMRPFNM=$$GET1^DIQ(71.99,RAMRPFDA_",",.01) "RTN","RAUTL23",55,0) K DA,DIE,DR "RTN","RAUTL23",56,0) W !!,"Procedure "_RAPRNM_" is now associated to MRPF "_RAMRPFNM "RTN","RAUTL23",57,0) W !! D ONEQT G ONE "RTN","RAUTL23",58,0) Q "RTN","RAUTL23",59,0) ; "RTN","RAUTL23",60,0) ONEQT ; quit from one "RTN","RAUTL23",61,0) K A,RACPTMR,RAPRDA,DA,DR,DIR,DIE,DIC,OK,RAPRNM,RAMRPFNM,RAMRPFDA,RAXX "RTN","RAUTL23",62,0) Q "RTN","RAUTL23",63,0) ; "RTN","RAUTL23",64,0) ONECHK(A) ; check if MRPF has same CPT code "RTN","RAUTL23",65,0) I 'A Q 0 "RTN","RAUTL23",66,0) N B S B=$G(^RAMRPF(71.99,A,0)),B=$P(B,"^",3) "RTN","RAUTL23",67,0) I B'=RACPTMR K B Q 0 "RTN","RAUTL23",68,0) K B Q 1 "RTN","RAUTL23",69,0) ; "RTN","RAUTL23",70,0) ONECK2(A) ; check if other 71 procedure is using MRPF item "RTN","RAUTL23",71,0) I 'A Q 0 "RTN","RAUTL23",72,0) N B S B="" "RTN","RAUTL23",73,0) S B=$O(^RAMIS(71,"MRPF",A,B)) "RTN","RAUTL23",74,0) I B K B Q 0 "RTN","RAUTL23",75,0) K B Q 1 "RTN","RAUTL23",76,0) ; "RTN","RAUTL23",77,0) LOINC ;ENTER/EDIT LOINC FOR ONE ENTRY IN FILE 71 "RTN","RAUTL23",78,0) N DIC,DIE,X,Y "RTN","RAUTL23",79,0) S DIC="^RAMIS(71,",DIC(0)="AEQM" D ^DIC Q:Y'>0 S DA=+Y "RTN","RAUTL23",80,0) S DIE=DIC,DR=903 D ^DIE "RTN","RAUTL23",81,0) Q "RTN","RAUTL23",82,0) ACTIVE ;IS THE MRPF ENTRY ACTIVE "RTN","RAUTL23",83,0) N RA99,I99,I999 S I99=0 F S I99=$O(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS","B",I99)) Q:I99="" D "RTN","RAUTL23",84,0) . S I999="",I999=$O(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS","B",I99,I999)) "RTN","RAUTL23",85,0) . I $P(^RAMRPF(71.99,RAPROIEN,"TERMSTATUS",I999,0),U,1)
20!($L(X)<3) X "^DD",71,71,903,3) Answer must be 3-20 characters in length. "^DD",71,71,903,21,0) ^^2^2^3160513^ "^DD",71,71,903,21,1,0) This field holds the LOINC from the mapped procedure in the MASTER RADIOLOGY "^DD",71,71,903,21,2,0) PROCEDURE file (#71.99). "^DD",71,71,903,"DT") 3160513 "^DD",71.11,71.11,0) FIELD^^17^31 "^DD",71.11,71.11,0,"DDA") N "^DD",71.11,71.11,0,"DT") 3161129 "^DD",71.11,71.11,0,"IX","B",71.11,.01) "^DD",71.11,71.11,0,"NM","NEW RAD PROCEDURE WORKUP") "^DD",71.11,71.11,0,"VRPK") RA "^DD",71.11,71.11,.01,0) NAME^RFX^^0;1^K:X[""""!($A(X)=45) X S:$D(X) X=$$UP^XLFSTR(X) K:$L(X)>60!($L(X)<3) X I $D(X) K:'+$$UNI30^RAUTL14(+$G(DA),X) X "^DD",71.11,71.11,.01,1,0) ^.1 "^DD",71.11,71.11,.01,1,1,0) 71.11^B "^DD",71.11,71.11,.01,1,1,1) S ^RAMRPF(71.11,"B",$E(X,1,30),DA)="" "^DD",71.11,71.11,.01,1,1,2) K ^RAMRPF(71.11,"B",$E(X,1,30),DA) "^DD",71.11,71.11,.01,3) Answer must be 1-60 characters in length. First 30 must be unique. "^DD",71.11,71.11,.01,21,0) ^^2^2^3161018^ "^DD",71.11,71.11,.01,21,1,0) This field contains the name of a new radiology procedure of a detailed "^DD",71.11,71.11,.01,21,2,0) type. "^DD",71.11,71.11,.01,"DT") 3161129 "^DD",71.11,71.11,2,0) SUPPRESS RADIOPHARM PROMPT^S^0:Ask Radiopharmaceutical;1:Suppress Radiopharmaceutical prompt;^0;2^Q "^DD",71.11,71.11,2,3) Enter '1' if the radiopharmaceutical prompt(s) should be suppressed. "^DD",71.11,71.11,2,21,0) ^.001^9^9^3161129^^ "^DD",71.11,71.11,2,21,1,0) This question only applies to procedures with "^DD",71.11,71.11,2,21,2,0) an imaging type that use radiopharmaceuticals "^DD",71.11,71.11,2,21,3,0) (i.e. nuclear medicine or cardiology studies). "^DD",71.11,71.11,2,21,4,0) If the exam status set-up for the affected "^DD",71.11,71.11,2,21,5,0) imaging types specifies that "^DD",71.11,71.11,2,21,6,0) radiopharmaceutical data should be asked and/or "^DD",71.11,71.11,2,21,7,0) required to progress to various statuses, this "^DD",71.11,71.11,2,21,8,0) field can be used to over-ride that "^DD",71.11,71.11,2,21,9,0) requirement. "^DD",71.11,71.11,2,"DT") 3161129 "^DD",71.11,71.11,3,0) REQUIRED FLASH CARD PRINTER^P3.5'^%ZIS(1,^0;3^Q "^DD",71.11,71.11,3,3) Select a device which will print flash cards for this procedure. "^DD",71.11,71.11,3,21,0) ^^7^7^3161018^ "^DD",71.11,71.11,3,21,1,0) This field contains the name (1-20 characters) "^DD",71.11,71.11,3,21,2,0) of the location where the flash cards for this "^DD",71.11,71.11,3,21,3,0) procedure are to be printed. Normally, the "^DD",71.11,71.11,3,21,4,0) flash cards are printed at the reception desk, "^DD",71.11,71.11,3,21,5,0) however, for particular procedures the flash "^DD",71.11,71.11,3,21,6,0) cards may be printed at a different location "^DD",71.11,71.11,3,21,7,0) such as where the exam is to be performed. "^DD",71.11,71.11,3,"DT") 3161018 "^DD",71.11,71.11,4,0) REQUIRED FLASH CARD FORMAT^P78.2'^RA(78.2,^0;4^Q "^DD",71.11,71.11,4,3) Enter the format for this flash card. "^DD",71.11,71.11,4,21,0) ^^6^6^3161018^ "^DD",71.11,71.11,4,21,1,0) This field is used to define the format of the "^DD",71.11,71.11,4,21,2,0) flash card. Normally, the standard default "^DD",71.11,71.11,4,21,3,0) format for the user's rad/nuc med location is "^DD",71.11,71.11,4,21,4,0) used, however, particular procedures may "^DD",71.11,71.11,4,21,5,0) require a flash card format that is different "^DD",71.11,71.11,4,21,6,0) than the standard format. "^DD",71.11,71.11,4,"DT") 3161018 "^DD",71.11,71.11,5,0) PROMPT FOR MEDS^S^Y:YES;^0;5^Q "^DD",71.11,71.11,5,3) Enter 'Y' if case edits and status tracking should prompt for meds. "^DD",71.11,71.11,5,21,0) ^^5^5^3161018^ "^DD",71.11,71.11,5,21,1,0) If this field is set to YES, case edits will prompt for meds administered "^DD",71.11,71.11,5,21,2,0) for this procedure. To make Status Tracking prompt for meds administered, "^DD",71.11,71.11,5,21,3,0) this field is set to YES, and the Examination Status parameter 'Ask "^DD",71.11,71.11,5,21,4,0) Medications & Dosages' is set to yes for one or "^DD",71.11,71.11,5,21,5,0) more statuses of the procedure's imaging type. "^DD",71.11,71.11,5,"DT") 3161018 "^DD",71.11,71.11,6,0) TYPE OF PROCEDURE^RS^B:BROAD;D:DETAILED;S:SERIES;P:PARENT;^0;6^Q "^DD",71.11,71.11,6,3) Select 'B', 'D', 'S' or 'P' for type of procedure. "^DD",71.11,71.11,6,21,0) ^^2^2^3161018^ "^DD",71.11,71.11,6,21,1,0) This field holds the type of procedure. This must be 'D' for Detailed "^DD",71.11,71.11,6,21,2,0) to be included in the MRPF association process. "^DD",71.11,71.11,6,"DT") 3161018 "^DD",71.11,71.11,7,0) STAFF REVIEW REQUIRED^S^Y:YES;N:NO;^0;7^Q "^DD",71.11,71.11,7,3) Enter a 'YES' if this procedure requires staff physician review. "^DD",71.11,71.11,7,21,0) ^.001^4^4^3161027^^ "^DD",71.11,71.11,7,21,1,0) This field contains a 'Yes' or 'No' value to "^DD",71.11,71.11,7,21,2,0) indicate if this procedure requires an "^DD",71.11,71.11,7,21,3,0) interpreting staff physician's review of the "^DD",71.11,71.11,7,21,4,0) interpreting resident's report results. "^DD",71.11,71.11,7,"DT") 3161018 "^DD",71.11,71.11,9,0) CPT CODE^P81'^ICPT(^0;9^Q "^DD",71.11,71.11,9,3) Enter the appropriate CPT for this procedure. "^DD",71.11,71.11,9,21,0) ^^4^4^3161018^ "^DD",71.11,71.11,9,21,1,0) This field contains the CPT code (must be a "^DD",71.11,71.11,9,21,2,0) number) for this procedure. All CPT (Current "^DD",71.11,71.11,9,21,3,0) Procedural Terminology) codes are issued by the "^DD",71.11,71.11,9,21,4,0) AMA. The CPT File is the responsibility of MAS. "^DD",71.11,71.11,9,"DT") 3161018 "^DD",71.11,71.11,11,0) RAD/NM PHYS APPROVAL REQUIRED^S^y:YES;n:NO;^0;11^Q "^DD",71.11,71.11,11,3) Enter a 'YES' if requesting this procedure need RAD M.D. approval. "^DD",71.11,71.11,11,21,0) ^.001^8^8^3161028^^ "^DD",71.11,71.11,11,21,1,0) This field is set to indicate whether or not "^DD",71.11,71.11,11,21,2,0) requesting this procedure requires a Radiology "^DD",71.11,71.11,11,21,3,0) or Nuclear Med physician 's approval. If this "^DD",71.11,71.11,11,21,4,0) field contains a 'Yes', the appropriate Imaging "^DD",71.11,71.11,11,21,5,0) Service must be contacted to request the "^DD",71.11,71.11,11,21,6,0) procedure. If this field is set to 'No', the "^DD",71.11,71.11,11,21,7,0) procedure can be requested without this "^DD",71.11,71.11,11,21,8,0) approval. "^DD",71.11,71.11,11,"DT") 3161018 "^DD",71.11,71.11,12,0) TYPE OF IMAGING^RP79.2'^RA(79.2,^0;12^Q "^DD",71.11,71.11,12,3) Enter the type of imaging to be used for this procedure. "^DD",71.11,71.11,12,21,0) ^^1^1^3161018^ "^DD",71.11,71.11,12,21,1,0) This is the type of imaging that will be used for this procedure. "^DD",71.11,71.11,12,"DT") 3161018 "^DD",71.11,71.11,13,0) HEALTH SUMMARY WITH REQUEST^P142'^GMT(142,^0;13^Q "^DD",71.11,71.11,13,3) Enter the type of Health Summary to include with this procedure. "^DD",71.11,71.11,13,21,0) ^.001^3^3^3161028^^ "^DD",71.11,71.11,13,21,1,0) This field points to the HEALTH SUMMARY TYPE file. When a request is made "^DD",71.11,71.11,13,21,2,0) this field is checked for an associated Health Summary type and, if one "^DD",71.11,71.11,13,21,3,0) exists, it is printed along with the request. "^DD",71.11,71.11,13,"DT") 3161018 "^DD",71.11,71.11,17,0) DISPLAY ED DESC WHEN ORDERED^S^y:YES;n:NO;^0;17^Q "^DD",71.11,71.11,17,3) Enter 'YES' if the Educational Description is to be displayed when this procedure is ordered. "^DD",71.11,71.11,17,21,0) ^^5^5^3161129^ "^DD",71.11,71.11,17,21,1,0) If the Educational Description of a procedure "^DD",71.11,71.11,17,21,2,0) should be displayed along with the procedure "^DD",71.11,71.11,17,21,3,0) message (if any) at the time the procedure is "^DD",71.11,71.11,17,21,4,0) ordered, enter 'Yes'. If only the procedure "^DD",71.11,71.11,17,21,5,0) message should be displayed, enter 'No'. "^DD",71.11,71.11,17,"DT") 3161129 "^DD",71.11,71.11,18,0) SINGLE REPORT^S^Y:YES;^0;18^Q "^DD",71.11,71.11,18,3) Enter YES if the descendants from this procedure should have their data combined into 1 report. "^DD",71.11,71.11,18,21,0) ^^11^11^3161019^ "^DD",71.11,71.11,18,21,1,0) This field should only be used for parent "^DD",71.11,71.11,18,21,2,0) procedures. If this field is left un-answered, "^DD",71.11,71.11,18,21,3,0) then the reporting of this procedure's "^DD",71.11,71.11,18,21,4,0) descendants will be put into separate "^DD",71.11,71.11,18,21,5,0) reports, as in Rad/NM v4.5 If this field is "^DD",71.11,71.11,18,21,6,0) answered 'Y', then the reporting of this "^DD",71.11,71.11,18,21,7,0) procedure's descendants will be combined into one "^DD",71.11,71.11,18,21,8,0) report, where the case records for these descendants will have the "^DD",71.11,71.11,18,21,9,0) same data for report text, impression, verifier, "^DD",71.11,71.11,18,21,10,0) pre-verifier, verifier, staff(prim & sec), residents(prim & sec), "^DD",71.11,71.11,18,21,11,0) and diagnoses, and all other report-related fields. "^DD",71.11,71.11,18,"DT") 3161019 "^DD",71.11,71.11,19,0) PROMPT FOR RADIOPHARM RX^S^y:YES;^0;19^Q "^DD",71.11,71.11,19,3) Answer 'Yes' if case edits should prompt for Radiopharmaceutical Prescription information for this procedure. "^DD",71.11,71.11,19,21,0) ^^16^16^3161019^ "^DD",71.11,71.11,19,21,1,0) This field applies only to Detailed or Series "^DD",71.11,71.11,19,21,2,0) procedures with an Imaging Type that uses "^DD",71.11,71.11,19,21,3,0) radiopharmaceuticals. It controls whether case "^DD",71.11,71.11,19,21,4,0) edit and status tracking options prompt for "^DD",71.11,71.11,19,21,5,0) prescribing physician, prescribed "^DD",71.11,71.11,19,21,6,0) radiopharmaceutical dose and witness to dose "^DD",71.11,71.11,19,21,7,0) administration. If you answer 'YES' to this "^DD",71.11,71.11,19,21,8,0) field, prescriber prompts will appear for any "^DD",71.11,71.11,19,21,9,0) radiopharmaceuticals entered for this "^DD",71.11,71.11,19,21,10,0) procedure. If this field is left blank, "^DD",71.11,71.11,19,21,11,0) prescriber and witness prompts will not appear. "^DD",71.11,71.11,19,21,12,0) If this field is set to 'YES', Status Tracking "^DD",71.11,71.11,19,21,13,0) will prompt during each edit session until the "^DD",71.11,71.11,19,21,14,0) data is entered; case edits will always prompt, "^DD",71.11,71.11,19,21,15,0) even if prescriber and witness data has already "^DD",71.11,71.11,19,21,16,0) been entered. "^DD",71.11,71.11,19,"DT") 3161019 "^DD",71.11,71.11,20,0) CONTRAST MEDIA USED^S^Y:YES;N:NO;^0;20^Q "^DD",71.11,71.11,20,3) Enter 'Yes' if a contrast agent is used with the procedure. "^DD",71.11,71.11,20,21,0) ^^3^3^3161018^ "^DD",71.11,71.11,20,21,1,0) This field contains a value to indicate if a contrast agent is used "^DD",71.11,71.11,20,21,2,0) with this Rad/Nuc Med procedure. Acceptable values are: 'Y' for 'Yes' "^DD",71.11,71.11,20,21,3,0) and 'N' for 'No'. "^DD",71.11,71.11,20,"DT") 3161018 "^DD",71.11,71.11,50,0) DEFAULT RADIOPHARMACEUTICALS^71.1108PA^^71.1108;0 "^DD",71.11,71.11,50,21,0) ^.001^10^10^3161129^^^ "^DD",71.11,71.11,50,21,1,0) Default radiopharmaceuticals and related "^DD",71.11,71.11,50,21,2,0) information are edited by ADPACs during system "^DD",71.11,71.11,50,21,3,0) set-up. If default radiopharmaceutical(s) are "^DD",71.11,71.11,50,21,4,0) entered for a procedure, they will be "^DD",71.11,71.11,50,21,5,0) automatically entered on the patient record "^DD",71.11,71.11,50,21,6,0) each time this procedure is registered. "^DD",71.11,71.11,50,21,7,0) Information entered by the ADPAC related to the "^DD",71.11,71.11,50,21,8,0) radiopharmaceutical may appear during case edit "^DD",71.11,71.11,50,21,9,0) as a default response or may be used for edit "^DD",71.11,71.11,50,21,10,0) checking. "^DD",71.11,71.11,55,0) DEFAULT MEDICATIONS^71.1155P^^P;0 "^DD",71.11,71.11,55,21,0) ^.001^7^7^3161129^^^ "^DD",71.11,71.11,55,21,1,0) Default medication(s) may be entered by the "^DD",71.11,71.11,55,21,2,0) ADPAC for a procedure. If they are entered, "^DD",71.11,71.11,55,21,3,0) the system will automatically enter them on the "^DD",71.11,71.11,55,21,4,0) patient's exam record whenever the procedure is "^DD",71.11,71.11,55,21,5,0) registered. NOTE: Default Radiopharmaceuticals "^DD",71.11,71.11,55,21,6,0) may NOT be entered here; they should be entered "^DD",71.11,71.11,55,21,7,0) on a separate field. "^DD",71.11,71.11,75,0) FILMS NEEDED^71.1102P^^F;0 "^DD",71.11,71.11,75,21,0) ^.001^3^3^3161129^^^^ "^DD",71.11,71.11,75,21,1,0) This is a multiple field containing information "^DD",71.11,71.11,75,21,2,0) about the films usually needed for this "^DD",71.11,71.11,75,21,3,0) procedure. "^DD",71.11,71.11,100,0) INACTIVATION DATE^D^^I;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",71.11,71.11,100,3) Enter the date this procedure became inactive. "^DD",71.11,71.11,100,21,0) ^^8^8^3161018^ "^DD",71.11,71.11,100,21,1,0) This field contains the date this procedure was "^DD",71.11,71.11,100,21,2,0) inactivated by the rad/nuc med coordinator. "^DD",71.11,71.11,100,21,3,0) Until the day following the inactivation date, "^DD",71.11,71.11,100,21,4,0) the procedure appears on the active procedure "^DD",71.11,71.11,100,21,5,0) list and may be selected. If this procedure is "^DD",71.11,71.11,100,21,6,0) active in the Common Procedure file, it must be "^DD",71.11,71.11,100,21,7,0) removed from the active common procedure list "^DD",71.11,71.11,100,21,8,0) before an inactivation date can be entered. "^DD",71.11,71.11,100,"DT") 3161018 "^DD",71.11,71.11,125,0) CONTRAST MEDIA^71.11125S^^CM;0 "^DD",71.11,71.11,125,21,0) ^.001^2^2^3161028^^ "^DD",71.11,71.11,125,21,1,0) This field identifies the contrast agent(s) "^DD",71.11,71.11,125,21,2,0) associated with this Rad/Nuc Med procedure. "^DD",71.11,71.11,135,0) DEFAULT CPT MODIFIERS(PROC)^71.11135P^^DCM;0 "^DD",71.11,71.11,135,21,0) ^^4^4^3161018^ "^DD",71.11,71.11,135,21,1,0) One or more default CPT Modifiers may be "^DD",71.11,71.11,135,21,2,0) entered for this procedure. Each entry will be "^DD",71.11,71.11,135,21,3,0) screened against the CPT CODE for this "^DD",71.11,71.11,135,21,4,0) procedure. "^DD",71.11,71.11,150,0) SYNONYM^71.111^^1;0 "^DD",71.11,71.11,150,21,0) ^.001^3^3^3161103^^^^ "^DD",71.11,71.11,150,21,1,0) This is a multiple field which allows "^DD",71.11,71.11,150,21,2,0) procedure names to be cross-referenced by "^DD",71.11,71.11,150,21,3,0) other names. They may be locally preferred names, or a common misspelling. "^DD",71.11,71.11,175,0) AMIS CODES^71.1103P^^2;0 "^DD",71.11,71.11,175,21,0) ^.001^3^3^3161028^^ "^DD",71.11,71.11,175,21,1,0) This is a multiple field containing information "^DD",71.11,71.11,175,21,2,0) for the AMIS codes associated with this "^DD",71.11,71.11,175,21,3,0) procedure. "^DD",71.11,71.11,200,0) MESSAGE^71.12P^^3;0 "^DD",71.11,71.11,200,21,0) ^.001^2^2^3161028^^ "^DD",71.11,71.11,200,21,1,0) This is a multiple, used to select messages "^DD",71.11,71.11,200,21,2,0) that pertain to this procedure. "^DD",71.11,71.11,300,0) DESCENDENTS^71.1105P^^71.1105;0 "^DD",71.11,71.11,300,21,0) ^.001^6^6^3161129^^^ "^DD",71.11,71.11,300,21,1,0) This is a multiple field containing procedures "^DD",71.11,71.11,300,21,2,0) that are considered descendents of this parent "^DD",71.11,71.11,300,21,3,0) procedure. Only 'Parent' procedures may have "^DD",71.11,71.11,300,21,4,0) descendents. If a 'Parent' procedure is "^DD",71.11,71.11,300,21,5,0) ordered, its descendents will be registered "^DD",71.11,71.11,300,21,6,0) during the registration function. "^DD",71.11,71.11,500,0) EDUCATIONAL DESCRIPTION^71.13^^EDU;0 "^DD",71.11,71.11,500,21,0) ^.001^10^10^3161028^^ "^DD",71.11,71.11,500,21,1,0) The text entered here should describe the "^DD",71.11,71.11,500,21,2,0) procedure. It may be used by clinicians who "^DD",71.11,71.11,500,21,3,0) are trying to familiarize themselves with "^DD",71.11,71.11,500,21,4,0) imaging procedures that are available via an "^DD",71.11,71.11,500,21,5,0) option within this software system. This text "^DD",71.11,71.11,500,21,6,0) can also be displayed along with the procedure "^DD",71.11,71.11,500,21,7,0) message during the ordering process if the "^DD",71.11,71.11,500,21,8,0) Rad/Nuc Med Procedure file parameter that "^DD",71.11,71.11,500,21,9,0) controls displaying it when ordered is set to "^DD",71.11,71.11,500,21,10,0) 'Yes'. "^DD",71.11,71.11,731,0) MODALITY^71.11731P^^MDL;0 "^DD",71.11,71.11,731,21,0) ^.001^3^3^3161028^^ "^DD",71.11,71.11,731,21,1,0) This multiple field points to the RAD MODALITY DEFINED "^DD",71.11,71.11,731,21,2,0) TERMS file (#73.1). Which is a list of "^DD",71.11,71.11,731,21,3,0) procedure modes. "^DD",71.11,71.11,900,0) MRPF NAME^P71.99'^RAMRPF(71.99,^NTRT;1^Q "^DD",71.11,71.11,900,3) Enter the Master Radiology Procedure Gold Name that matches this entry. "^DD",71.11,71.11,900,21,0) ^^4^4^3161018^ "^DD",71.11,71.11,900,21,1,0) This field is a pointer to the MASTER RADIOLOGY "^DD",71.11,71.11,900,21,2,0) PROCEDURE file (#71.99). This is the link to "^DD",71.11,71.11,900,21,3,0) the national standard names for radiology "^DD",71.11,71.11,900,21,4,0) procedures. "^DD",71.11,71.11,900,"DT") 3161018 "^DD",71.11,71.11,901,0) Exception Flag^S^Y:YES;^NTRT;2^Q "^DD",71.11,71.11,901,3) Enter Yes if NTRT request is approved by the procedure. "^DD",71.11,71.11,901,21,0) ^^9^9^3161018^ "^DD",71.11,71.11,901,21,1,0) When a new procedure is entered or if there is "^DD",71.11,71.11,901,21,2,0) no match to this procedure in the MASTER "^DD",71.11,71.11,901,21,3,0) RADIOLOGY PROCEDURE file (#71.99) this field "^DD",71.11,71.11,901,21,4,0) will be set to 'YES' to indicate that this "^DD",71.11,71.11,901,21,5,0) procedure has been submitted to the New "^DD",71.11,71.11,901,21,6,0) Terminology Rapid Turnaround (NTRT) team for "^DD",71.11,71.11,901,21,7,0) action. When a new procedure is created for "^DD",71.11,71.11,901,21,8,0) the MRPF that is a match to this procedure this "^DD",71.11,71.11,901,21,9,0) field will be set to null. "^DD",71.11,71.11,901,"DT") 3161018 "^DD",71.11,71.11,902,0) ENTRY CREATION DATE^D^^NTRT;3^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",71.11,71.11,902,3) Enter the date that this procedure was entered. "^DD",71.11,71.11,902,21,0) ^^2^2^3161018^ "^DD",71.11,71.11,902,21,1,0) This is the date that this procedure was "^DD",71.11,71.11,902,21,2,0) created in this file. "^DD",71.11,71.11,902,"DT") 3161018 "^DD",71.11,71.11,903,0) LOINC^F^^NTRT;4^K:$L(X)>20!($L(X)<3) X "^DD",71.11,71.11,903,3) Answer must be 3-20 characters in length. "^DD",71.11,71.11,903,21,0) ^^3^3^3161018^ "^DD",71.11,71.11,903,21,1,0) This field holds the LOINC from the mapped "^DD",71.11,71.11,903,21,2,0) Procedure in the MASTER RADIOLOGY PROCEDURE "^DD",71.11,71.11,903,21,3,0) file (#71.99). "^DD",71.11,71.11,903,"DT") 3161018 "^DD",71.11,71.1102,0) FILMS NEEDED SUB-FIELD^^.01^1 "^DD",71.11,71.1102,0,"DT") 3161018 "^DD",71.11,71.1102,0,"IX","B",71.1102,.01) "^DD",71.11,71.1102,0,"NM","FILMS NEEDED") "^DD",71.11,71.1102,0,"UP") 71.11 "^DD",71.11,71.1102,.01,0) FILM TYPE^M*P78.4'^RA(78.4,^0;1^S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",71.11,71.1102,.01,1,0) ^.1 "^DD",71.11,71.1102,.01,1,1,0) 71.1102^B "^DD",71.11,71.1102,.01,1,1,1) S ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA)="" "^DD",71.11,71.1102,.01,1,1,2) K ^RAMRPF(71.11,DA(1),"F","B",$E(X,1,30),DA) "^DD",71.11,71.1102,.01,3) For those frequently performed procedures, enter a film type. "^DD",71.11,71.1102,.01,12) Only active non wasted film types are selectable. "^DD",71.11,71.1102,.01,12.1) S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),('$D(^RA(78.4,""AW"",1,+Y)))" "^DD",71.11,71.1102,.01,21,0) ^.001^3^3^3161018^^ "^DD",71.11,71.1102,.01,21,1,0) This field contains a default value of the type "^DD",71.11,71.1102,.01,21,2,0) of film (from the Film Sizes File) usually "^DD",71.11,71.1102,.01,21,3,0) needed for this procedure. "^DD",71.11,71.1102,.01,"DT") 3161018 "^DD",71.11,71.1103,0) AMIS CODES SUB-FIELD^^3^3 "^DD",71.11,71.1103,0,"DT") 3161018 "^DD",71.11,71.1103,0,"IX","B",71.1103,.01) "^DD",71.11,71.1103,0,"NM","AMIS CODES") "^DD",71.11,71.1103,0,"UP") 71.11 "^DD",71.11,71.1103,.01,0) AMIS CODE^MP71.1'^RAMIS(71.1,^0;1^Q "^DD",71.11,71.1103,.01,1,0) ^.1 "^DD",71.11,71.1103,.01,1,1,0) 71.1103^B "^DD",71.11,71.1103,.01,1,1,1) S ^RAMRPF(71.11,DA(1),2,"B",$E(X,1,30),DA)="" "^DD",71.11,71.1103,.01,1,1,2) K ^RAMRPF(71.11,DA(1),2,"B",$E(X,1,30),DA) "^DD",71.11,71.1103,.01,3) Enter a valid AMIS code for this procedure. "^DD",71.11,71.1103,.01,21,0) ^^3^3^3161018^ "^DD",71.11,71.1103,.01,21,1,0) This field contains the valid AMIS code(s) "^DD",71.11,71.1103,.01,21,2,0) (from the Major AMIS Codes File) associated "^DD",71.11,71.1103,.01,21,3,0) with this exam procedure. "^DD",71.11,71.1103,.01,"DT") 3161018 "^DD",71.11,71.1103,2,0) AMIS WEIGHT MULTIPLIER^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",71.11,71.1103,2,3) Type a number between 1 and 99, 0 decimal digits. "^DD",71.11,71.1103,2,21,0) ^^24^24^3161018^ "^DD",71.11,71.1103,2,21,1,0) This field contains a number (0-99) to "^DD",71.11,71.1103,2,21,2,0) indicate to the various workload report "^DD",71.11,71.1103,2,21,3,0) routines how many times to multiply the "^DD",71.11,71.1103,2,21,4,0) weighted work units associated with the AMIS "^DD",71.11,71.1103,2,21,5,0) code. The weight for each AMIS code is "^DD",71.11,71.1103,2,21,6,0) stored in the 'MAJOR RAD/NUC MED AMIS CODE' "^DD",71.11,71.1103,2,21,7,0) file. "^DD",71.11,71.1103,2,21,8,0) "^DD",71.11,71.1103,2,21,9,0) Most multipliers will be 1. However, there "^DD",71.11,71.1103,2,21,10,0) are some that are greater than 1. For "^DD",71.11,71.1103,2,21,11,0) example, the procedure called 'UPPER GI + "^DD",71.11,71.1103,2,21,12,0) SMALL BOWEL' has the AMIS code "^DD",71.11,71.1103,2,21,13,0) 9-GASTROINTESTINAL which has a weight of 6 "^DD",71.11,71.1103,2,21,14,0) work units. But, the AMIS multiplier is 2. "^DD",71.11,71.1103,2,21,15,0) Therefore on the workload reports, the site "^DD",71.11,71.1103,2,21,16,0) will get credit for 12 weighted work units "^DD",71.11,71.1103,2,21,17,0) each time it is performed. "^DD",71.11,71.1103,2,21,18,0) "^DD",71.11,71.1103,2,21,19,0) Radiology Central Office has directed that "^DD",71.11,71.1103,2,21,20,0) the weighted work unit for Ultrasound "^DD",71.11,71.1103,2,21,21,0) procedures involving multiple organs in the "^DD",71.11,71.1103,2,21,22,0) same visit can be counted only once if the "^DD",71.11,71.1103,2,21,23,0) organs are located close to each other. "^DD",71.11,71.1103,2,21,24,0) (i.e. Liver and Gallbladder) "^DD",71.11,71.1103,2,"DT") 3161018 "^DD",71.11,71.1103,3,0) BILATERAL?^S^Y:YES;N:NO;^0;3^Q "^DD",71.11,71.1103,3,3) Enter a 'YES' if this procedure is considered bilateral. "^DD",71.11,71.1103,3,21,0) ^.001^5^5^3161028^^ "^DD",71.11,71.1103,3,21,1,0) This field will contain a 'Yes' to indicate "^DD",71.11,71.1103,3,21,2,0) that this is a bilateral procedure or a 'No' "^DD",71.11,71.1103,3,21,3,0) if it is not a bilateral procedure. If it "^DD",71.11,71.1103,3,21,4,0) contains a 'Yes', then the system multiplies "^DD",71.11,71.1103,3,21,5,0) the AMIS weight by 2. "^DD",71.11,71.1103,3,"DT") 3161018 "^DD",71.11,71.1105,0) DESCENDENTS SUB-FIELD^^.01^1 "^DD",71.11,71.1105,0,"DT") 3161019 "^DD",71.11,71.1105,0,"IX","B",71.1105,.01) "^DD",71.11,71.1105,0,"NM","DESCENDENTS") "^DD",71.11,71.1105,0,"UP") 71.11 "^DD",71.11,71.1105,.01,0) DESCENDENTS^M*P71'^RAMIS(71,^0;1^S DIC("S")="I $$DESC^RAUTL17(D0,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",71.11,71.1105,.01,1,0) ^.1 "^DD",71.11,71.1105,.01,1,1,0) 71.1105^B "^DD",71.11,71.1105,.01,1,1,1) S ^RAMRPF(71.11,DA(1),71.1105,"B",$E(X,1,30),DA)="" "^DD",71.11,71.1105,.01,1,1,2) K ^RAMRPF(71.11,DA(1),71.1105,"B",$E(X,1,30),DA) "^DD",71.11,71.1105,.01,3) Enter a procedure name which is related to the parent procedure. "^DD",71.11,71.1105,.01,12) Select only active detailed or series procedures of the same imaging type as the parent. "^DD",71.11,71.1105,.01,12.1) S DIC("S")="I $$DESC^RAUTL17(D0,+Y)" "^DD",71.11,71.1105,.01,21,0) ^^6^6^3161019^ "^DD",71.11,71.1105,.01,21,1,0) This is a multiple field containing procedures "^DD",71.11,71.1105,.01,21,2,0) that are considered descendents of this parent "^DD",71.11,71.1105,.01,21,3,0) procedure. Only 'Parent' procedures may have "^DD",71.11,71.1105,.01,21,4,0) descendents. If a 'Parent' procedure is "^DD",71.11,71.1105,.01,21,5,0) ordered, its descendents will be registered "^DD",71.11,71.1105,.01,21,6,0) during the registration function. "^DD",71.11,71.1105,.01,"DT") 3161019 "^DD",71.11,71.1108,0) DEFAULT RADIOPHARMACEUTICALS SUB-FIELD^^7^7 "^DD",71.11,71.1108,0,"DT") 3161019 "^DD",71.11,71.1108,0,"IX","B",71.1108,.01) "^DD",71.11,71.1108,0,"NM","DEFAULT RADIOPHARMACEUTICALS") "^DD",71.11,71.1108,0,"UP") 71.11 "^DD",71.11,71.1108,.01,0) DEFAULT RADIOPHARMACEUTICALS^MP50'^PSDRUG(^0;1^Q "^DD",71.11,71.1108,.01,1,0) ^.1 "^DD",71.11,71.1108,.01,1,1,0) 71.1108^B "^DD",71.11,71.1108,.01,1,1,1) S ^RAMRPF(71.11,DA(1),71.1108,"B",$E(X,1,30),DA)="" "^DD",71.11,71.1108,.01,1,1,2) K ^RAMRPF(71.11,DA(1),71.1108,"B",$E(X,1,30),DA) "^DD",71.11,71.1108,.01,3) Enter default radiopharmaceutical associated with this nuclear medicine procedure. "^DD",71.11,71.1108,.01,21,0) ^.001^12^12^3161019^^^ "^DD",71.11,71.1108,.01,21,1,0) Default radiopharmaceuticals and related "^DD",71.11,71.1108,.01,21,2,0) information are edited by ADPACs during system "^DD",71.11,71.1108,.01,21,3,0) set-up. If default radiopharmaceutical(s) are "^DD",71.11,71.1108,.01,21,4,0) entered for a procedure, they will be "^DD",71.11,71.1108,.01,21,5,0) automatically entered on the patient record "^DD",71.11,71.1108,.01,21,6,0) Default radiopharmaceuticals and related "^DD",71.11,71.1108,.01,21,7,0) Information entered by the ADPAC related to the "^DD",71.11,71.1108,.01,21,8,0) radiopharmaceutical may appear during case edit "^DD",71.11,71.1108,.01,21,9,0) as a default response or may be used for edit "^DD",71.11,71.1108,.01,21,10,0) checking. No default "^DD",71.11,71.1108,.01,21,11,0) radiopharmaceuticals may be used on 'parent' "^DD",71.11,71.1108,.01,21,12,0) or 'broad' type procedures. "^DD",71.11,71.1108,.01,"DT") 3161019 "^DD",71.11,71.1108,2,0) USUAL DOSE^NJ10,4^^0;2^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"."5N.N) X "^DD",71.11,71.1108,2,3) Type a number between .0001 and 99999.9999, 4 decimal digits. "^DD",71.11,71.1108,2,21,0) ^^6^6^3161019^ "^DD",71.11,71.1108,2,21,1,0) This is the usual dosage (in mCi) associated "^DD",71.11,71.1108,2,21,2,0) with this radiopharmaceutical. It will appear "^DD",71.11,71.1108,2,21,3,0) as an informational item on the screen just "^DD",71.11,71.1108,2,21,4,0) before the user is prompted for the actual "^DD",71.11,71.1108,2,21,5,0) Dose. If nothing is entered in this field, no "^DD",71.11,71.1108,2,21,6,0) usual dose information will be displayed. "^DD",71.11,71.1108,2,"DT") 3161019 "^DD",71.11,71.1108,3,0) DFLT ROUTE OF ADMINISTRATION^P71.6'^RAMIS(71.6,^0;3^Q "^DD",71.11,71.1108,3,3) Enter the default route of administration when this radiopharmaceutical is administered for this procedure. "^DD",71.11,71.1108,3,21,0) ^.001^7^7^3161129^^ "^DD",71.11,71.1108,3,21,1,0) This is the route of administration commonly "^DD",71.11,71.1108,3,21,2,0) associated with this radiopharmaceutical for "^DD",71.11,71.1108,3,21,3,0) this procedure. It will appear as the default "^DD",71.11,71.1108,3,21,4,0) response when the route of administration is "^DD",71.11,71.1108,3,21,5,0) asked during case editing. If nothing is "^DD",71.11,71.1108,3,21,6,0) entered in this field, no default route of "^DD",71.11,71.1108,3,21,7,0) administration will be displayed. "^DD",71.11,71.1108,3,"DT") 3161129 "^DD",71.11,71.1108,4,0) DEFAULT SITE OF ADMINISTRATION^*P71.7'^RAMIS(71.7,^0;4^S DIC("S")="N RA7108 S RA7108=$G(^RAMIS(71,DA(1),""NUC"",DA,0)) I $S(+$P(RA7108,""^"",3):$D(^RAMIS(71.6,+$P(RA7108,""^"",3),""SITE"",""B"",+Y)),1:1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",71.11,71.1108,4,3) Enter the default site of administration when this radiopharmaceutical is entered for this procedure. "^DD",71.11,71.1108,4,12) for nuclear med only, must be valid site defined for this route. "^DD",71.11,71.1108,4,12.1) S DIC("S")="N RA7108 S RA7108=$G(^RAMIS(71,DA(1),""NUC"",DA,0)) I $S(+$P(RA7108,""^"",3):$D(^RAMIS(71.6,+$P(RA7108,""^"",3),""SITE"",""B"",+Y)),1:1)" "^DD",71.11,71.1108,4,21,0) ^.001^7^7^3161019^^ "^DD",71.11,71.1108,4,21,1,0) The default bodily site for administering this "^DD",71.11,71.1108,4,21,2,0) radiopharmaceutical for this procedure should "^DD",71.11,71.1108,4,21,3,0) be entered here. The system will use this as a "^DD",71.11,71.1108,4,21,4,0) default response during case editing. If "^DD",71.11,71.1108,4,21,5,0) nothing is entered here, there will be no "^DD",71.11,71.1108,4,21,6,0) default response to the Site of Administration "^DD",71.11,71.1108,4,21,7,0) question during case editing. "^DD",71.11,71.1108,4,"DT") 3161019 "^DD",71.11,71.1108,5,0) HIGH ADULT DOSE^NJ10,4^^0;5^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"."5N.N) X "^DD",71.11,71.1108,5,3) Type a number between .0001 and 99999.9999, 4 decimal digits. "^DD",71.11,71.1108,5,21,0) ^.001^9^9^3161028^^ "^DD",71.11,71.1108,5,21,1,0) This is the highest usual adult dosage commonly "^DD",71.11,71.1108,5,21,2,0) associated with this radiopharmaceutical when "^DD",71.11,71.1108,5,21,3,0) administered for this procedure. The system "^DD",71.11,71.1108,5,21,4,0) will display this value and the low adult dose "^DD",71.11,71.1108,5,21,5,0) when asking for the actual dosage during case "^DD",71.11,71.1108,5,21,6,0) editing. If the dosage entered for an exam "^DD",71.11,71.1108,5,21,7,0) falls outside of the usual high/low range, the "^DD",71.11,71.1108,5,21,8,0) person editing the case will see a warning "^DD",71.11,71.1108,5,21,9,0) message. This is a mandatory data item. "^DD",71.11,71.1108,5,"DT") 3161019 "^DD",71.11,71.1108,6,0) LOW ADULT DOSE^NJ10,4^^0;6^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"."5N.N) X "^DD",71.11,71.1108,6,3) Type a number between .0001 and 99999.9999, 4 decimal digits. "^DD",71.11,71.1108,6,21,0) ^^11^11^3161019^ "^DD",71.11,71.1108,6,21,1,0) This is the lowest usual adult dosage commonly "^DD",71.11,71.1108,6,21,2,0) associated with this radiopharmaceutical when "^DD",71.11,71.1108,6,21,3,0) administered for this procedure. The system "^DD",71.11,71.1108,6,21,4,0) will display this value and the high adult dose "^DD",71.11,71.1108,6,21,5,0) when asking for the actual dosage during case "^DD",71.11,71.1108,6,21,6,0) editing. If the dosage entered for an exam "^DD",71.11,71.1108,6,21,7,0) falls outside of the usual high/low range, the "^DD",71.11,71.1108,6,21,8,0) person editing the case will see a warning "^DD",71.11,71.1108,6,21,9,0) message. If you do not want a warning to "^DD",71.11,71.1108,6,21,10,0) appear no matter how low the dosage entered, do "^DD",71.11,71.1108,6,21,11,0) not enter a low range dosage here. "^DD",71.11,71.1108,6,"DT") 3161019 "^DD",71.11,71.1108,7,0) DEFAULT FORM^S^L:Liquid;G:Gas;A:Aerosol;P:Solid (Pill);S:Solid (Other);^0;7^Q "^DD",71.11,71.1108,7,3) Enter the default form of the Radiopharmaceutical. "^DD",71.11,71.1108,7,21,0) ^^13^13^3161019^ "^DD",71.11,71.1108,7,21,1,0) This is the form of this Radiopharmaceutical "^DD",71.11,71.1108,7,21,2,0) when used in this procedure. If entered, it "^DD",71.11,71.1108,7,21,3,0) will be used as the default answer to the "^DD",71.11,71.1108,7,21,4,0) 'Form' prompt during case edits. Choices are "^DD",71.11,71.1108,7,21,5,0) as follows: "^DD",71.11,71.1108,7,21,6,0) "^DD",71.11,71.1108,7,21,7,0) Liquid (e.g. all injections) "^DD",71.11,71.1108,7,21,8,0) Gas (e.g. xenon, krypton) "^DD",71.11,71.1108,7,21,9,0) Aerosol (e.g. DTPA aerosol) "^DD",71.11,71.1108,7,21,10,0) Solid (Pill) (e.g. I-123 or I-131 pill, "^DD",71.11,71.1108,7,21,11,0) schilling test) "^DD",71.11,71.1108,7,21,12,0) Solid (Other) (e.g. radioactive egg for "^DD",71.11,71.1108,7,21,13,0) gastric emptying time) 2 "^DD",71.11,71.1108,7,"DT") 3161019 "^DD",71.11,71.111,0) SYNONYM SUB-FIELD^^.01^1 "^DD",71.11,71.111,0,"DT") 3161018 "^DD",71.11,71.111,0,"IX","B",71.111,.01) "^DD",71.11,71.111,0,"NM","SYNONYM") "^DD",71.11,71.111,0,"UP") 71.11 "^DD",71.11,71.111,.01,0) SYNONYM^MF^^0;1^K:$L(X)>15!($L(X)<2) X "^DD",71.11,71.111,.01,1,0) ^.1 "^DD",71.11,71.111,.01,1,1,0) 71.111^B "^DD",71.11,71.111,.01,1,1,1) S ^RAMRPF(71.11,DA(1),1,"B",$E(X,1,30),DA)="" "^DD",71.11,71.111,.01,1,1,2) K ^RAMRPF(71.11,DA(1),1,"B",$E(X,1,30),DA) "^DD",71.11,71.111,.01,3) Answer must be 2-15 characters in length. "^DD",71.11,71.111,.01,21,0) ^.001^1^1^3161103^^^ "^DD",71.11,71.111,.01,21,1,0) This is another name for the Procedure. It may be the locally preferred name, or a common misspelling. "^DD",71.11,71.111,.01,"DT") 3161018 "^DD",71.11,71.11125,0) CONTRAST MEDIA SUB-FIELD^^.01^1 "^DD",71.11,71.11125,0,"DT") 3161018 "^DD",71.11,71.11125,0,"IX","B",71.11125,.01) "^DD",71.11,71.11125,0,"NM","CONTRAST MEDIA") "^DD",71.11,71.11125,0,"UP") 71.11 "^DD",71.11,71.11125,.01,0) CONTRAST MEDIA^MS^I:Ionic Iodinated;N:Non-ionic Iodinated;L:Gadolinium;C:Cholecystographic;G:Gastrografin;B:Barium;M:unspecified contrast media;^0;1^Q "^DD",71.11,71.11125,.01,1,0) ^.1 "^DD",71.11,71.11125,.01,1,1,0) 71.11125^B "^DD",71.11,71.11125,.01,1,1,1) S ^RAMRPF(71.11,DA(1),"CM","B",$E(X,1,30),DA)="" "^DD",71.11,71.11125,.01,1,1,2) K ^RAMRPF(71.11,DA(1),"CM","B",$E(X,1,30),DA) "^DD",71.11,71.11125,.01,3) Enter the contrast agent(s) associated with this procedure. "^DD",71.11,71.11125,.01,21,0) ^.001^2^2^3161018^^ "^DD",71.11,71.11125,.01,21,1,0) This field identifies the contrast agent(s) associated with this Rad/Nuc "^DD",71.11,71.11125,.01,21,2,0) Med procedure. "^DD",71.11,71.11125,.01,"DT") 3161018 "^DD",71.11,71.11135,0) DEFAULT CPT MODIFIERS(PROC) SUB-FIELD^^.01^1 "^DD",71.11,71.11135,0,"DT") 3161018 "^DD",71.11,71.11135,0,"IX","B",71.11135,.01) "^DD",71.11,71.11135,0,"NM","DEFAULT CPT MODIFIERS(PROC)") "^DD",71.11,71.11135,0,"UP") 71.11 "^DD",71.11,71.11135,.01,0) DEFAULT CPT MODIFIERS(PROC)^MP81.3'^DIC(81.3,^0;1^Q "^DD",71.11,71.11135,.01,1,0) ^.1 "^DD",71.11,71.11135,.01,1,1,0) 71.11135^B "^DD",71.11,71.11135,.01,1,1,1) S ^RAMRPF(71.11,DA(1),"DCM","B",$E(X,1,30),DA)="" "^DD",71.11,71.11135,.01,1,1,2) K ^RAMRPF(71.11,DA(1),"DCM","B",$E(X,1,30),DA) "^DD",71.11,71.11135,.01,3) Enter one or more default CPT Modifiers for this CPT code. "^DD",71.11,71.11135,.01,21,0) ^^4^4^3161018^ "^DD",71.11,71.11135,.01,21,1,0) One or more default CPT Modifiers may be "^DD",71.11,71.11135,.01,21,2,0) entered for this procedure. Each entry will be "^DD",71.11,71.11135,.01,21,3,0) screened against the CPT CODE for this "^DD",71.11,71.11135,.01,21,4,0) procedure. "^DD",71.11,71.11135,.01,"DT") 3161018 "^DD",71.11,71.1155,0) DEFAULT MEDICATIONS SUB-FIELD^^2^2 "^DD",71.11,71.1155,0,"DT") 3161018 "^DD",71.11,71.1155,0,"IX","B",71.1155,.01) "^DD",71.11,71.1155,0,"NM","DEFAULT MEDICATIONS") "^DD",71.11,71.1155,0,"UP") 71.11 "^DD",71.11,71.1155,.01,0) DEFAULT MEDICATION^MP50'^PSDRUG(^0;1^Q "^DD",71.11,71.1155,.01,1,0) ^.1 "^DD",71.11,71.1155,.01,1,1,0) 71.1155^B "^DD",71.11,71.1155,.01,1,1,1) S ^RAMRPF(71.11,DA(1),"P","B",$E(X,1,30),DA)="" "^DD",71.11,71.1155,.01,1,1,2) K ^RAMRPF(71.11,DA(1),"P","B",$E(X,1,30),DA) "^DD",71.11,71.1155,.01,3) Enter a medication routinely used with this procedure. "^DD",71.11,71.1155,.01,21,0) ^^7^7^3161018^ "^DD",71.11,71.1155,.01,21,1,0) Default medication(s) may be entered by the "^DD",71.11,71.1155,.01,21,2,0) ADPAC for a procedure. If they are entered, "^DD",71.11,71.1155,.01,21,3,0) the system will automatically enter them on "^DD",71.11,71.1155,.01,21,4,0) the patient's exam record whenever the "^DD",71.11,71.1155,.01,21,5,0) procedure is registered. NOTE: Default "^DD",71.11,71.1155,.01,21,6,0) Radiopharmaceuticals may NOT be entered here; "^DD",71.11,71.1155,.01,21,7,0) they should be entered on a separate field. "^DD",71.11,71.1155,.01,"DT") 3161018 "^DD",71.11,71.1155,2,0) DEFAULT MED DOSE^F^^0;2^K:$L(X)>40!($L(X)<3) X "^DD",71.11,71.1155,2,3) Answer must be 3-40 characters in length. "^DD",71.11,71.1155,2,21,0) ^.001^9^9^3161018^^ "^DD",71.11,71.1155,2,21,1,0) This is the default dose of this medication "^DD",71.11,71.1155,2,21,2,0) when administered for this procedure. If a "^DD",71.11,71.1155,2,21,3,0) default dose is entered for this medication it "^DD",71.11,71.1155,2,21,4,0) will be automatically entered on the patient's "^DD",71.11,71.1155,2,21,5,0) exam record at the time this procedure is "^DD",71.11,71.1155,2,21,6,0) registered. Acceptable formats are: 99999.999 "^DD",71.11,71.1155,2,21,7,0) unit_of_measure -OR- 99999 unit_of_measure. "^DD",71.11,71.1155,2,21,8,0) Unit_Of_Measure may be between 1-30 characters "^DD",71.11,71.1155,2,21,9,0) in length. Example: 2.5 m "^DD",71.11,71.1155,2,"DT") 3161018 "^DD",71.11,71.11731,0) MODALITY SUB-FIELD^^.01^1 "^DD",71.11,71.11731,0,"DT") 3161018 "^DD",71.11,71.11731,0,"IX","B",71.11731,.01) "^DD",71.11,71.11731,0,"NM","MODALITY") "^DD",71.11,71.11731,0,"UP") 71.11 "^DD",71.11,71.11731,.01,0) MODALITY^MP73.1'^RAMIS(73.1,^0;1^Q "^DD",71.11,71.11731,.01,1,0) ^.1 "^DD",71.11,71.11731,.01,1,1,0) 71.11731^B "^DD",71.11,71.11731,.01,1,1,1) S ^RAMRPF(71.11,DA(1),"MDL","B",$E(X,1,30),DA)="" "^DD",71.11,71.11731,.01,1,1,2) K ^RAMRPF(71.11,DA(1),"MDL","B",$E(X,1,30),DA) "^DD",71.11,71.11731,.01,3) Choose a modality from the pre-defined list. "^DD",71.11,71.11731,.01,21,0) ^^2^2^3161018^ "^DD",71.11,71.11731,.01,21,1,0) This field points to the RAD MODALITY DEFINED TERMS file (#73.1). Which is "^DD",71.11,71.11731,.01,21,2,0) a list of procedure modes. "^DD",71.11,71.11731,.01,"DT") 3161018 "^DD",71.11,71.12,0) MESSAGE SUB-FIELD^^.01^1 "^DD",71.11,71.12,0,"DT") 3161018 "^DD",71.11,71.12,0,"IX","B",71.12,.01) "^DD",71.11,71.12,0,"NM","MESSAGE") "^DD",71.11,71.12,0,"UP") 71.11 "^DD",71.11,71.12,.01,0) MESSAGE^MP71.4'^RAMIS(71.4,^0;1^Q "^DD",71.11,71.12,.01,1,0) ^.1 "^DD",71.11,71.12,.01,1,1,0) 71.12^B "^DD",71.11,71.12,.01,1,1,1) S ^RAMRPF(71.11,DA(1),3,"B",$E(X,1,30),DA)="" "^DD",71.11,71.12,.01,1,1,2) K ^RAMRPF(71.11,DA(1),3,"B",$E(X,1,30),DA) "^DD",71.11,71.12,.01,3) Select one or more messages that should be displayed for this procedure. "^DD",71.11,71.12,.01,21,0) ^.001^3^3^3161018^^ "^DD",71.11,71.12,.01,21,1,0) This field contains any message from the "^DD",71.11,71.12,.01,21,2,0) RAD/NUC PROCEDURE MESSAGE file that relate to "^DD",71.11,71.12,.01,21,3,0) this procedure. "^DD",71.11,71.12,.01,"DT") 3161018 "^DD",71.11,71.13,0) EDUCATIONAL DESCRIPTION SUB-FIELD^^.01^1 "^DD",71.11,71.13,0,"DT") 3161018 "^DD",71.11,71.13,0,"NM","EDUCATIONAL DESCRIPTION") "^DD",71.11,71.13,0,"UP") 71.11 "^DD",71.11,71.13,.01,0) EDUCATIONAL DESCRIPTION^Wx^^0;1^Q "^DD",71.11,71.13,.01,3) The text entered here should describe the procedure. "^DD",71.11,71.13,.01,21,0) ^.001^10^10^3161028^^ "^DD",71.11,71.13,.01,21,1,0) The text entered here should describe the "^DD",71.11,71.13,.01,21,2,0) procedure. It may be used by clinicians who "^DD",71.11,71.13,.01,21,3,0) are trying to familiarize themselves with "^DD",71.11,71.13,.01,21,4,0) imaging procedures that are available via an "^DD",71.11,71.13,.01,21,5,0) option within this software system. This text "^DD",71.11,71.13,.01,21,6,0) can also be displayed along with the procedure "^DD",71.11,71.13,.01,21,7,0) message during the ordering process if the "^DD",71.11,71.13,.01,21,8,0) Rad/Nuc Med Procedure file parameter that "^DD",71.11,71.13,.01,21,9,0) controls displaying it when ordered is set to "^DD",71.11,71.13,.01,21,10,0) 'Yes'. "^DD",71.11,71.13,.01,"DT") 3161018 "^DD",71.98,71.98,0) FIELD^^11.6^14 "^DD",71.98,71.98,0,"DDA") N "^DD",71.98,71.98,0,"DT") 3161115 "^DD",71.98,71.98,0,"IX","B",71.98,.01) "^DD",71.98,71.98,0,"NM","MASTER RADIOLOGY SITE") "^DD",71.98,71.98,0,"VRPK") RA "^DD",71.98,71.98,.01,0) FACILITY NUMBER^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X'?1P.E) X "^DD",71.98,71.98,.01,1,0) ^.1 "^DD",71.98,71.98,.01,1,1,0) 71.98^B "^DD",71.98,71.98,.01,1,1,1) S ^RAMRPF(71.98,"B",$E(X,1,30),DA)="" "^DD",71.98,71.98,.01,1,1,2) K ^RAMRPF(71.98,"B",$E(X,1,30),DA) "^DD",71.98,71.98,.01,3) Answer must be 3-5 characters in length. "^DD",71.98,71.98,.01,21,0) ^.001^1^1^3160316^^^^ "^DD",71.98,71.98,.01,21,1,0) The .01 field is the facility number. "^DD",71.98,71.98,.01,"DT") 3160126 "^DD",71.98,71.98,1,0) FACILITY RADIOLOGY ADPAC^P200'^VA(200,^0;2^Q "^DD",71.98,71.98,1,3) Enter the name of the person assigned duties as the MRPF gatekeeper. "^DD",71.98,71.98,1,21,0) ^.001^2^2^3160316^^ "^DD",71.98,71.98,1,21,1,0) This field holds the name of the facility radiology ADPAC, or the person "^DD",71.98,71.98,1,21,2,0) who performs the actions of the ADPAC. "^DD",71.98,71.98,1,"DT") 3160201 "^DD",71.98,71.98,2,0) DAYS FOR DEACTIVATION^NJ3,0^^0;3^K:+X'=X!(X>180)!(X<3)!(X?.E1"."1N.N) X "^DD",71.98,71.98,2,3) Type a number between 3 and 180, 0 decimal digits. "^DD",71.98,71.98,2,21,0) ^.001^3^3^3160315^^^ "^DD",71.98,71.98,2,21,1,0) This is the number of days for automatic deactivation of a new procedure. "^DD",71.98,71.98,2,21,2,0) This date is deleted by the NTRT approval and local mapping of the new "^DD",71.98,71.98,2,21,3,0) procedure. "^DD",71.98,71.98,2,"DT") 3160201 "^DD",71.98,71.98,3,0) MATCHING COMPLETE^S^Y:YES;^0;4^Q "^DD",71.98,71.98,3,3) Enter YES if the matching process is complete. "^DD",71.98,71.98,3,21,0) ^^3^3^3160315^ "^DD",71.98,71.98,3,21,1,0) This field will be null until the matching of the RAD/NUC MED PROCEDURE "^DD",71.98,71.98,3,21,2,0) file to the MASTER RADIOLOGY PROCEDURE file. When matching is complete "^DD",71.98,71.98,3,21,3,0) this field will be set to 'YES'. "^DD",71.98,71.98,3,"DT") 3160202 "^DD",71.98,71.98,4,0) LAST PROCEDURE MATCHED^F^^0;5^K:$L(X)>60!($L(X)<1) X "^DD",71.98,71.98,4,3) Answer must be 1-60 characters in length. "^DD",71.98,71.98,4,21,0) ^.001^3^3^3160315^^ "^DD",71.98,71.98,4,21,1,0) This is the last procedure to be matched from the RAD/NUC MED PROCEDURES "^DD",71.98,71.98,4,21,2,0) file. This will be the starting point if the matching process has been "^DD",71.98,71.98,4,21,3,0) interrupted and the MATCHING COMPLETE field is not set to YES. "^DD",71.98,71.98,4,"DT") 3160202 "^DD",71.98,71.98,5,0) DAYS AFTER CREATION BULLETIN^S^D:DAILY;W:WEEKLY;M:MONTHLY;Q:QUARTERLY;S:SEMI-ANNUAL;A:ANNUAL;^0;6^Q "^DD",71.98,71.98,5,3) Enter the time period between reminder bulletins to NTRT "^DD",71.98,71.98,5,21,0) ^.001^2^2^3160315^^ "^DD",71.98,71.98,5,21,1,0) If a response with the new procedure data is not received from NTRT "^DD",71.98,71.98,5,21,2,0) in this amount of time a reminder bulletin will be sent. "^DD",71.98,71.98,5,"DT") 3160203 "^DD",71.98,71.98,6,0) RADIOLOGY NTRT MAIL GROUP^P3.8'^XMB(3.8,^0;7^Q "^DD",71.98,71.98,6,3) Enter the radiology mail group to receive NTRT messages. "^DD",71.98,71.98,6,21,0) ^.001^2^2^3160316^^ "^DD",71.98,71.98,6,21,1,0) This field holds the name of the local mailgroup that will receive messages "^DD",71.98,71.98,6,21,2,0) from the NTRT team. "^DD",71.98,71.98,6,"DT") 3160203 "^DD",71.98,71.98,7,0) NTRT ISAAC SCHEMA PATH^F^^0;8^K:$L(X)>100!($L(X)<3) X "^DD",71.98,71.98,7,3) Answer must be 3-100 characters in length. "^DD",71.98,71.98,7,21,0) ^.001^2^2^3161116^^^^ "^DD",71.98,71.98,7,21,1,0) This is the path for the ISAAC SCHEMA NAME that ISAAC will use to process "^DD",71.98,71.98,7,21,2,0) incoming Radiology NTRT requests. "^DD",71.98,71.98,7,"DT") 3161115 "^DD",71.98,71.98,8,0) ISAAC ON LINE^S^Y:YES;N:NO;^0;9^Q "^DD",71.98,71.98,8,3) Enter a 'Y' for YES if ISAAC is on line and active. "^DD",71.98,71.98,8,21,0) ^.001^2^2^3160316^^ "^DD",71.98,71.98,8,21,1,0) When ISAAC comes on line any changes in the processing of data that is "^DD",71.98,71.98,8,21,2,0) different from the method used by VETS will be used. "^DD",71.98,71.98,8,"DT") 3160209 "^DD",71.98,71.98,9,0) SEEDING COMPLETE^RS^Y:YES;N:NO;^0;10^Q "^DD",71.98,71.98,9,3) If this field is set to YES then file 71.99 has been seeded with data. "^DD",71.98,71.98,9,21,0) ^.001^2^2^3160504^^^^ "^DD",71.98,71.98,9,21,1,0) This field will indicate that the MASTER RADIOLOGY PROCEDURE FILE (#71.99) "^DD",71.98,71.98,9,21,2,0) has been seeded with the national procedures. "^DD",71.98,71.98,9,"DT") 3160408 "^DD",71.98,71.98,10,0) NTRT AITC PORT^F^^0;11^K:$L(X)>4!($L(X)<4)!'(X?4N) X "^DD",71.98,71.98,10,3) Answer must be 4 characters in length. "^DD",71.98,71.98,10,21,0) ^^2^2^3160503^ "^DD",71.98,71.98,10,21,1,0) This field holds the port number for accessing the NTRT directory in AITC "^DD",71.98,71.98,10,21,2,0) that will hold the nbew procedure request. "^DD",71.98,71.98,10,"DT") 3160503 "^DD",71.98,71.98,11,0) NTRT IP ADDRESS^F^^1;1^K:$L(X)>150!($L(X)<3) X "^DD",71.98,71.98,11,3) Answer must be 3-150 characters in length. "^DD",71.98,71.98,11,21,0) ^^1^1^3160516^ "^DD",71.98,71.98,11,21,1,0) This is the ip address for the NTRT server at the AITC "^DD",71.98,71.98,11,"DT") 3160516 "^DD",71.98,71.98,11.5,0) NTRT IP ADDRESS1^F^^2;1^K:$L(X)>150!($L(X)<3) X "^DD",71.98,71.98,11.5,3) Answer must be 3-150 characters in length. "^DD",71.98,71.98,11.5,21,0) ^^2^2^3160516^ "^DD",71.98,71.98,11.5,21,1,0) This is the IP address for the repository of messages to NTRT on the NTRT "^DD",71.98,71.98,11.5,21,2,0) server at AITC which will hold the NTRT new procedure requests. "^DD",71.98,71.98,11.5,"DT") 3160516 "^DD",71.98,71.98,11.6,0) NTRT ISAAC SCHEMA NAME^F^^3;1^K:$L(X)>60!($L(X)<1) X "^DD",71.98,71.98,11.6,3) Enter the ISAAC schema name for processing ISAAC XML's. The schema name should be 1 to 60 characters in length. "^DD",71.98,71.98,11.6,21,0) ^.001^2^2^3161116^^ "^DD",71.98,71.98,11.6,21,1,0) This is the schema name that ISAAC will use to process Radiology NTRT "^DD",71.98,71.98,11.6,21,2,0) request XML's. Example is 'ISAAC-NTRT.XSD'. "^DD",71.98,71.98,11.6,"DT") 3161115 "^DD",71.99,71.99,0) FIELD^^99.991^10 "^DD",71.99,71.99,0,"DDA") Y "^DD",71.99,71.99,0,"DT") 3160308 "^DD",71.99,71.99,0,"IX","AREPLACETERM",71.99,99.97) "^DD",71.99,71.99,0,"IX","AVUID",71.99,99.99) "^DD",71.99,71.99,0,"IX","B",71.99,.01) "^DD",71.99,71.99,0,"IX","C",71.99,1) "^DD",71.99,71.99,0,"NM","MASTER RADIOLOGY PROCEDURE") "^DD",71.99,71.99,0,"PT",71,900) "^DD",71.99,71.99,0,"PT",71.11,900) "^DD",71.99,71.99,0,"PT",71.99,99.97) "^DD",71.99,71.99,0,"VRPK") RA "^DD",71.99,71.99,.01,0) GOLD NAME^RFa^^0;1^K:$L(X)>60!($L(X)<1)!'(X'?1P.E) X "^DD",71.99,71.99,.01,1,0) ^.1 "^DD",71.99,71.99,.01,1,1,0) 71.99^B "^DD",71.99,71.99,.01,1,1,1) S ^RAMRPF(71.99,"B",$E(X,1,30),DA)="" "^DD",71.99,71.99,.01,1,1,2) K ^RAMRPF(71.99,"B",$E(X,1,30),DA) "^DD",71.99,71.99,.01,3) Answer must be 1-60 characters in length. The first 30 must be unique. "^DD",71.99,71.99,.01,7.5) I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries must be edited via the Master File Server (MFS).","","!?5") "^DD",71.99,71.99,.01,9) ^ "^DD",71.99,71.99,.01,21,0) ^.001^2^2^3160406^^^^ "^DD",71.99,71.99,.01,21,1,0) Controlling field for the Master Radiology Procedure File (MRPF). This is "^DD",71.99,71.99,.01,21,2,0) the Gold Name (national Name). "^DD",71.99,71.99,.01,"AUDIT") y "^DD",71.99,71.99,.01,"DEL",1,0) D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server (MFS).","","!?5") I '$D(XUMF) "^DD",71.99,71.99,.01,"DT") 3160420 "^DD",71.99,71.99,.01,"LAYGO",1,0) D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server (MFS).","","!?5") I $D(XUMF) "^DD",71.99,71.99,1,0) CPT CODE^Fa^^0;3^K:$L(X)>15!($L(X)<5) X "^DD",71.99,71.99,1,1,0) ^.1 "^DD",71.99,71.99,1,1,1,0) 71.99^C "^DD",71.99,71.99,1,1,1,1) S ^RAMRPF(71.99,"C",$E(X,1,30),DA)="" "^DD",71.99,71.99,1,1,1,2) K ^RAMRPF(71.99,"C",$E(X,1,30),DA) "^DD",71.99,71.99,1,1,1,"%D",0) ^^2^2^3160316^ "^DD",71.99,71.99,1,1,1,"%D",1,0) This the cross-reference of the CPT field allowing quick access to the "^DD",71.99,71.99,1,1,1,"%D",2,0) CPT file (#81) for additional information on the CPT. "^DD",71.99,71.99,1,1,1,"DT") 3160201 "^DD",71.99,71.99,1,3) Answer must be 5-15 characters in length. "^DD",71.99,71.99,1,9) ^ "^DD",71.99,71.99,1,21,0) ^.001^1^1^3160315^^^ "^DD",71.99,71.99,1,21,1,0) This is the CPT code most closely matching the procedures. "^DD",71.99,71.99,1,"AUDIT") y "^DD",71.99,71.99,1,"DT") 3160420 "^DD",71.99,71.99,2,0) LOINC CODE^Fa^^0;4^K:$L(X)>15!($L(X)<5) X "^DD",71.99,71.99,2,3) Answer must be 5-15 characters in length. "^DD",71.99,71.99,2,9) ^ "^DD",71.99,71.99,2,21,0) ^.001^1^1^3160315^^^ "^DD",71.99,71.99,2,21,1,0) This is the LOINC most closely matching the procedure. "^DD",71.99,71.99,2,"AUDIT") y "^DD",71.99,71.99,2,"DT") 3160420 "^DD",71.99,71.99,2.2,0) LOINC SHORT DESCRIPTION^Fa^^2;1^K:$L(X)>80!($L(X)<1) X "^DD",71.99,71.99,2.2,3) Answer must be 1-80 characters in length. "^DD",71.99,71.99,2.2,9) ^ "^DD",71.99,71.99,2.2,21,0) ^.001^1^1^3160315^^ "^DD",71.99,71.99,2.2,21,1,0) The short description assigned to this LOINC "^DD",71.99,71.99,2.2,"AUDIT") y "^DD",71.99,71.99,2.2,"DT") 3160420 "^DD",71.99,71.99,2.3,0) LOINC LONG DESCRIPTION^71.9901^^3;0 "^DD",71.99,71.99,2.3,9) ^ "^DD",71.99,71.99,2.3,21,0) ^^2^2^3160315^ "^DD",71.99,71.99,2.3,21,1,0) This is the long description for this LOINC. This description can exceed "^DD",71.99,71.99,2.3,21,2,0) 500 characters in length. "^DD",71.99,71.99,2.3,"DT") 3160308 "^DD",71.99,71.99,3,0) MRPF LONG NAME^71.993^^1;0 "^DD",71.99,71.99,3,9) ^ "^DD",71.99,71.99,3,21,0) ^^2^2^3160315^ "^DD",71.99,71.99,3,21,1,0) This the long name assigned to this entry. This name can exceed "^DD",71.99,71.99,3,21,2,0) 500 characters. "^DD",71.99,71.99,99.97,0) REPLACED BY VHA STANDARD TERM^P71.99'a^RAMRPF(71.99,^VUID;3^Q "^DD",71.99,71.99,99.97,1,0) ^.1 "^DD",71.99,71.99,99.97,1,1,0) 71.99^AREPLACETERM "^DD",71.99,71.99,99.97,1,1,1) S ^RAMRPF(71.99,"AREPLACETERM",$E(X,1,30),DA)="" "^DD",71.99,71.99,99.97,1,1,2) K ^RAMRPF(71.99,"AREPLACETERM",$E(X,1,30),DA) "^DD",71.99,71.99,99.97,1,1,"%D",0) ^^2^2^3080103^ "^DD",71.99,71.99,99.97,1,1,"%D",1,0) This cross-reference can be used to identify the replacement entries "^DD",71.99,71.99,99.97,1,1,"%D",2,0) associated with a Term/Concept. "^DD",71.99,71.99,99.97,1,1,"DT") 3080103 "^DD",71.99,71.99,99.97,3) Enter the Term/Concept that replaces this entry. "^DD",71.99,71.99,99.97,9) ^ "^DD",71.99,71.99,99.97,21,0) ^.001^4^4^3160406^^^^ "^DD",71.99,71.99,99.97,21,1,0) This field is populated when one Term/Concept replaces another "^DD",71.99,71.99,99.97,21,2,0) Term/Concept. This field is controlled by standardization and should "^DD",71.99,71.99,99.97,21,3,0) only be changed by standardization processes. This field contains a "^DD",71.99,71.99,99.97,21,4,0) pointer to a VHA standard term that replaces this entry. "^DD",71.99,71.99,99.97,"AUDIT") y "^DD",71.99,71.99,99.97,"DT") 3160420 "^DD",71.99,71.99,99.98,0) MASTER ENTRY FOR VUID^RSIa^0:NO;1:YES;^VUID;2^Q "^DD",71.99,71.99,99.98,3) Enter YES if this is the Master entry. "^DD",71.99,71.99,99.98,9) ^ "^DD",71.99,71.99,99.98,21,0) ^.001^2^2^3160406^^^^ "^DD",71.99,71.99,99.98,21,1,0) This field identifies the Master entry for a VUID associated with a "^DD",71.99,71.99,99.98,21,2,0) Term/Concept. "^DD",71.99,71.99,99.98,"AUDIT") y "^DD",71.99,71.99,99.98,"DT") 3160420 "^DD",71.99,71.99,99.99,0) VUID^RFXIa^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X "^DD",71.99,71.99,99.99,1,0) ^.1 "^DD",71.99,71.99,99.99,1,1,0) 71.99^AVUID "^DD",71.99,71.99,99.99,1,1,1) S ^RAMRPF(71.99,"AVUID",$E(X,1,30),DA)="" "^DD",71.99,71.99,99.99,1,1,2) K ^RAMRPF(71.99,"AVUID",$E(X,1,30),DA) "^DD",71.99,71.99,99.99,1,1,3) This cross-reference is by VUID. "^DD",71.99,71.99,99.99,1,1,"%D",0) ^.101^1^1^3160406^^^^ "^DD",71.99,71.99,99.99,1,1,"%D",1,0) This cross-reference is by VUID. "^DD",71.99,71.99,99.99,1,1,"DT") 3041223 "^DD",71.99,71.99,99.99,3) Answer must be 1-20 digits in length. "^DD",71.99,71.99,99.99,9) ^ "^DD",71.99,71.99,99.99,21,0) ^.001^2^2^3160316^^^^ "^DD",71.99,71.99,99.99,21,1,0) VHA Unique ID (VUID). A unique meaningless integer assigned to reference "^DD",71.99,71.99,99.99,21,2,0) terms VHA wide. "^DD",71.99,71.99,99.99,"AUDIT") y "^DD",71.99,71.99,99.99,"DT") 3160420 "^DD",71.99,71.99,99.991,0) EFFECTIVE DATE/TIME^71.9999DA^^TERMSTATUS;0 "^DD",71.99,71.99,99.991,9) ^ "^DD",71.99,71.99,99.991,21,0) ^.001^1^1^3160316^^^^ "^DD",71.99,71.99,99.991,21,1,0) Describes the pair Status and Effective Date/Time for each reference term. "^DD",71.99,71.99,99.991,"DT") 3160308 "^DD",71.99,71.9901,0) LOINC LONG DESCRIPTION SUB-FIELD^^.01^1 "^DD",71.99,71.9901,0,"DT") 3160308 "^DD",71.99,71.9901,0,"NM","LOINC LONG DESCRIPTION") "^DD",71.99,71.9901,0,"UP") 71.99 "^DD",71.99,71.9901,.01,0) LOINC LONG DESCRIPTION^Wx^^0;1^Q "^DD",71.99,71.9901,.01,3) Enter the long description for this LOINC. Word Processing field. "^DD",71.99,71.9901,.01,9) ^ "^DD",71.99,71.9901,.01,21,0) ^^2^2^3160307^ "^DD",71.99,71.9901,.01,21,1,0) This field holds the official long description of the LOINC. This field can "^DD",71.99,71.9901,.01,21,2,0) be very long and thus it is a word processing field. "^DD",71.99,71.9901,.01,"DT") 3160308 "^DD",71.99,71.993,0) MRPF LONG NAME SUB-FIELD^^.01^1 "^DD",71.99,71.993,0,"DT") 3160307 "^DD",71.99,71.993,0,"NM","MRPF LONG NAME") "^DD",71.99,71.993,0,"UP") 71.99 "^DD",71.99,71.993,.01,0) MRPF LONG NAME^Wx^^0;1^Q "^DD",71.99,71.993,.01,3) Enter the long (>60 characters) name of this procedure. "^DD",71.99,71.993,.01,9) ^ "^DD",71.99,71.993,.01,21,0) ^^2^2^3160307^ "^DD",71.99,71.993,.01,21,1,0) This ia a word processing field that will hold the long MRPF procedure "^DD",71.99,71.993,.01,21,2,0) name. "^DD",71.99,71.993,.01,"DT") 3160307 "^DD",71.99,71.9999,0) EFFECTIVE DATE/TIME SUB-FIELD^^.02^2 "^DD",71.99,71.9999,0,"DT") 3050201 "^DD",71.99,71.9999,0,"IX","B",71.9999,.01) "^DD",71.99,71.9999,0,"NM","EFFECTIVE DATE/TIME") "^DD",71.99,71.9999,0,"UP") 71.99 "^DD",71.99,71.9999,.01,0) EFFECTIVE DATE/TIME^RDIa^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X "^DD",71.99,71.9999,.01,1,0) ^.1 "^DD",71.99,71.9999,.01,1,1,0) 71.9999^B "^DD",71.99,71.9999,.01,1,1,1) S ^RAMRPF(71.99,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)="" "^DD",71.99,71.9999,.01,1,1,2) K ^RAMRPF(71.99,DA(1),"TERMSTATUS","B",$E(X,1,30),DA) "^DD",71.99,71.9999,.01,1,1,"%D",0) ^^1^1^3050201^ "^DD",71.99,71.9999,.01,1,1,"%D",1,0) This cross-reference is by Effective Date/Time. "^DD",71.99,71.9999,.01,3) Enter the date/time when the Status of this term was established. "^DD",71.99,71.9999,.01,9) ^ "^DD",71.99,71.9999,.01,21,0) ^.001^2^2^3160406^^^^ "^DD",71.99,71.9999,.01,21,1,0) This is the date/time when the Status of the reference term was "^DD",71.99,71.9999,.01,21,2,0) established. "^DD",71.99,71.9999,.01,"AUDIT") y "^DD",71.99,71.9999,.01,"DT") 3160420 "^DD",71.99,71.9999,.02,0) STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q "^DD",71.99,71.9999,.02,3) Enter the Status of this term. "^DD",71.99,71.9999,.02,9) ^ "^DD",71.99,71.9999,.02,21,0) ^.001^4^4^3160406^^^^ "^DD",71.99,71.9999,.02,21,1,0) The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "^DD",71.99,71.9999,.02,21,2,0) 'ACTIVE', then the term will be accessible by end-users to document a "^DD",71.99,71.9999,.02,21,3,0) particular patient event. If 'INACTIVE', then the term will only be "^DD",71.99,71.9999,.02,21,4,0) accessible by the application to display legacy data. "^DD",71.99,71.9999,.02,"DT") 3160308 "^DIC",71.11,71.11,0) NEW RAD PROCEDURE WORKUP^71.11 "^DIC",71.11,71.11,0,"GL") ^RAMRPF(71.11, "^DIC",71.11,71.11,"%D",0) ^^4^4^3161027^ "^DIC",71.11,71.11,"%D",1,0) This file temporarily hold a new radiology procedure while it is being "^DIC",71.11,71.11,"%D",2,0) developed and associated to the MASTER RADIOLOGY PROCEDURE file (#71.11). "^DIC",71.11,71.11,"%D",3,0) After the procedure is created and matched it will be moved to the "^DIC",71.11,71.11,"%D",4,0) RAD/NUC MED PROCEDURE file (#71) and then deleted from 71.11. "^DIC",71.11,"B","NEW RAD PROCEDURE WORKUP",71.11) "^DIC",71.98,71.98,0) MASTER RADIOLOGY SITE^71.98 "^DIC",71.98,71.98,0,"GL") ^RAMRPF(71.98, "^DIC",71.98,71.98,"%D",0) ^^3^3^3160316^ "^DIC",71.98,71.98,"%D",1,0) This file is designed to handle functions in the MASTER RADIOLOGY PROCEDURE "^DIC",71.98,71.98,"%D",2,0) file (MRPF) operations that require timeframes, progress recording and "^DIC",71.98,71.98,"%D",3,0) function status and names of mail groups and ADPACS. "^DIC",71.98,"B","MASTER RADIOLOGY SITE",71.98) "^DIC",71.99,71.99,0) MASTER RADIOLOGY PROCEDURE^71.99 "^DIC",71.99,71.99,0,"GL") ^RAMRPF(71.99, "^DIC",71.99,71.99,"%",0) ^1.005^^0 "^DIC",71.99,71.99,"%D",0) ^1.001^8^8^3160316^^ "^DIC",71.99,71.99,"%D",1,0) Per VHA Directive 2005-044, this file has been "locked down" by Data "^DIC",71.99,71.99,"%D",2,0) Standardization (DS). The file definition (i.e. data dictionary) shall "^DIC",71.99,71.99,"%D",3,0) not be modified. All additions, changes and deletions to entries in the "^DIC",71.99,71.99,"%D",4,0) file shall be done by Enterprise Reference Terminology (ERT) using the "^DIC",71.99,71.99,"%D",5,0) Master File Server (MFS), provided by Common Services (CS). Creating "^DIC",71.99,71.99,"%D",6,0) and/or editing locally defined fields in the file are not permitted. Use "^DIC",71.99,71.99,"%D",7,0) of locally defined fields that were created prior to the VHA Directive's "^DIC",71.99,71.99,"%D",8,0) 2005-044 effective date shall not be supported. "^DIC",71.99,"B","MASTER RADIOLOGY PROCEDURE",71.99) "BLD",9718,6) ^115 **END** **END**