Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^DIE(0)="INPUT TEMPLATE^.402I^1718^1506"
^DIE(1,0)="XPD EDIT BUILD^2931105.1421^@^9.6^^@^2931105"
^DIE(1,"DIAB",1,1,9.602,0)="ALL"
^DIE(1,"DIAB",1,1,9.64,0)="ALL"
^DIE(1,"DIAB",1,2,9.68,0)="ALL"
^DIE(1,"DR",1,9.6)=".01;1;2;3;6;7;11;12;13;20;200.1;200.2;913;914;916;"
^DIE(1,"DR",2,9.602)=".01:4"
^DIE(1,"DR",2,9.64)=".01:223"
^DIE(1,"DR",2,9.67)="10;"
^DIE(1,"DR",3,9.65)=".01"
^DIE(1,"DR",3,9.68)=".01"
^DIE(2,0)="XU-ZTMSCHEDULE^2880218^^19^^@^2940120"
^DIE(2,"DR",1,19)="W !!,$P(^DIC(19,DA,0),U,2),!!,""This is the date and time you want this option"",!,""to be started by taskman."";200;I '$S($D(^DIC(19,DA,200)):+^(200),1:0) S Y=""@3"";W !!,""Only enter a DEVICE if the job needs an output device."";201;"
^DIE(2,"DR",1,19,1)="W !!,""If this field is blank then the job will run only once."";202;W !!,""This is the volume set (CPU) that you want the job to run on."";203;S Y=0;@3;"
^DIE(2,"DR",1,19,2)="W !!,""This field is only used for special jobs that need to start every"",!,""time the system is rebooted."";1916;"
^DIE(3,0)="XUEDITOPT^3000215.1102^#^19^^#^3000215"
^DIE(3,"DIAB",1,1,19.01,0)="ALL"
^DIE(3,"DIAB",1,1,19.05,0)="ALL"
^DIE(3,"DIAB",1,1,19.391,0)="ALL"
^DIE(3,"DR",1,19)=".01;1;12//^S X=$S($D(XQPK):XQPK,1:"""");K XQPK;2:3.5;4;S XQTYP=X;D CLEAR^XQ5;S:DUZ(0)'=""@""&('$D(^XUSEC(""XUMGR"",DUZ))) Y=""@5"";26;20;15;@5;S Y=$S($D(XQTYP):""@""_$A(XQTYP),1:""@3"");@66;320;@77;10;S Y=""@3"";@69;D DIE^XQ5;"
^DIE(3,"DR",1,19,1)="S:DUZ(0)'=""@""&('$D(^XUSEC(""XUMGR"",DUZ))) Y=""@3"";30;36;31;50;51;53;32;33;34;35;S Y=""@3"";@80;D DIP^XQ5;S:DUZ(0)'=""@""&('$D(^XUSEC(""XUMGR"",DUZ))) Y=""@3"";60;62;63;64;65;66;69;71;67;61;68;72;73;77;78;S Y=""@3"";@73;D DIQ^XQ5;"
^DIE(3,"DR",1,19,2)="S:DUZ(0)'=""@""&('$D(^XUSEC(""XUMGR"",DUZ))) Y=""@3"";30;36;31;80;63;82;32;33;34;35;S Y=""@3"";@76;@79;@81;@88;10;S Y=""@3"";@82;25;S Y=""@3"";@83;R !,""Do you want help with servers? [Y/N] N// "",XQUR S:XQUR="""" XQUR=""N"";"
^DIE(3,"DR",1,19,3)="I ""Yy""[XQUR S XQH=""XUDOC SERVERS"" D EN^XQH K Y;25;220:228;3.6:3.8;3.91;S Y=""@999"";@67;30;36;31;40:44;32;33;34;35;S Y=""@3"";@87;24;25;300;301;S Y=""@3"";@90;24;25;300;301;10;@65;@3;3.6;3.7;3.8;3.91;3.92;3.95;3.96;@999;"
^DIE(3,"DR",1,19,4)="K XQH,XQPK,XQTYP,XQUR;"
^DIE(3,"DR",2,19.01)=".01:3"
^DIE(3,"DR",2,19.05)=".01:2"
^DIE(3,"DR",2,19.06)=".01"
^DIE(3,"DR",2,19.391)=".01:.02"
^DIE(3,"DR",2,19.392)=".01:.02;"
^DIE(3,"DR",2,19.396)=".01;"
^DIE(5,0)="XU-ZISPL1^2940503.1004^^3.51^^@^2960208"
^DIE(5,"DR",1,3.51)="I '$D(ZISDA) W !?5,*7,""Must be used from the Spooler options"" S Y=0;21///^S X=$S($D(ZISPLAD):ZISPLDV,1:ION);"
^DIE(5,"DR",2,3.5121)="I $P(^XMB(3.51,DA(1),2,DA,0),""^"",3) W ""This device is currently printing a copy of this document"" S Y=0;I $D(ZISPLAD) S Y=""@10"";1//1;@10;S ZISDA2=DA,ZISPLC=$S($D(ZISPLAD):ZISPLC,1:X);1///1;"
^DIE(6,0)="XU ROUTINE DOC^2890308^@^9.8^^@^2910724"
^DIE(6,"DR",1,9.8)=".01;1;2;4;5;"
^DIE(6,"DR",2,9.801)=".01;1;2;"
^DIE(6,"DR",2,9.83)=".01;1;2;"
^DIE(8,0)="XUNEW USER^3050103.0709^^200^^#^3050103"
^DIE(8,"DIAB",1,1,200.010113,0)="ALL"
^DIE(8,"DIAB",1,1,200.02,0)="ALL"
^DIE(8,"DIAB",2,0,200,0)="NAME COMPONENTS:"
^DIE(8,"DR",1,200)="D CHKPTR^XLFNAME2;^20^VA(20,^^S I(0,0)=D0 S Y(1)=$S($D(^VA(200,D0,3.1)):^(3.1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1;13;7;9.2;9.4;8;5;.111;.112;.113;.114;.115;.116;.151;9;16;29;28;2.1;11.1;3;201;203;31.3;"
^DIE(8,"DR",1,200,1)="14;31.1;200.04;200.05;200.06;200.09;200.1;200.11;15;41;41.2;.131;.132;.135;.136;.137;.138;200.07;101.01;101.02;101.13;8932.1;"
^DIE(8,"DR",2,20)="1;2;3;4;5;6;"
^DIE(8,"DR",2,200.010113)=".01:.03"
^DIE(8,"DR",2,200.02)=".01:1"
^DIE(8,"DR",2,200.03)=".01:2;"
^DIE(8,"DR",2,200.05)=".01:3;"
^DIE(9,0)="XUEXISTING USER^3050103.0705^^200^^#^3050103"
^DIE(9,"DIAB",1,1,200.010113,0)="ALL"
^DIE(9,"DIAB",1,1,200.02,0)="ALL"
^DIE(9,"DIAB",1,1,200.05,0)="ALL"
^DIE(9,"DIAB",6,0,200,0)="NAME COMPONENTS:"
^DIE(9,"DR",1,200)="S XUITNAME=1;.01;K XUITNAME;S D0=DA;D CHKPTR^XLFNAME2;^20^VA(20,^^S I(0,0)=D0 S Y(1)=$S($D(^VA(200,D0,3.1)):^(3.1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1;13;7;9.2;9.4;8;5;.111;.112;.113;.114;.115;.116;.151;"
^DIE(9,"DR",1,200,1)="9;16;29;28;2.1;11.1;3;201;203;31.3;14;31.1;200.04;200.05;200.06;200.09;200.1;200.11;200.18;15;41;41.2;.131;.132;.135;.136;.137;.138;200.07;101.01;101.02;101.13;8932.1;"
^DIE(9,"DR",2,20)="1;2;3;4;5;6;S DIEFIRE=""RM"";"
^DIE(9,"DR",2,200.010113)=".01:.03"
^DIE(9,"DR",2,200.02)=".01:1"
^DIE(9,"DR",2,200.03)=".01:2;"
^DIE(9,"DR",2,200.05)=".01:3"
^DIE(10,0)="XUEDIT CHARACTERISTICS^2911007.11^^200^^#^3010327"
^DIE(10,"DR",1,200)="11.1;1;13;200.05;200.06;200.09;31.2;31.3;.131;.132;"
^DIE(11,0)="*XUFILESINGLE^2880330^^200^^^2921207"
^DIE(11,"DIAB",1,1,200.032,0)="ALL"
^DIE(11,"DR",1,200)="32;"
^DIE(11,"DR",2,200.032)=".01:6"
^DIE(12,0)="*XUFILERANGE^2880706^^200^^^2910326"
^DIE(12,"DR",1,200)="31.1;"
^DIE(13,0)="XUHFSDEV^3030617.0949^@^3.5^^@^3000815"
^DIE(13,"DR",1,3.5)=".01;.02;1;2///HFS;3;9;11;4;5;5.1;5.2;15;19;19.5;"
^DIE(14,0)="XUSDPDEV^3030617.095^@^3.5^^@^2910221"
^DIE(14,"DR",1,3.5)=".01;.02;1;2///SDP;3;9;11;4;5;15;19;19.5;"
^DIE(15,0)="XUSPLDEV^3030617.0951^@^3.5^^@^2910601"
^DIE(15,"DIAB",1,1,3.532,0)="ALL"
^DIE(15,"DR",1,3.5)=".01;.02;1;2///SPL;3;9;11;4;5;19;19.5;15;5.5;33;31;32;"
^DIE(15,"DR",2,3.532)=".01:1"
^DIE(16,0)="XQSMD SET PREFIX^2881020^^200^^^2940722"
^DIE(16,"DIAB",1,1,200.196,0)="ALL"
^DIE(16,"DR",1,200)="19.6;"
^DIE(16,"DR",2,200.196)=".01"
^DIE(17,0)="XUCRT^2911230.1552^@^3.5^^@^2920415"
^DIE(17,"DR",1,3.5)=".01;1;2;3;4;5;1.9;1.95;"
^DIE(18,0)="XUPRT^2911230.1555^@^3.5^^@^2911230"
^DIE(18,"DR",1,3.5)=".01;1;2;3;4;5;1.9;5.5;11.2;"
^DIE(19,0)="XUAUDIT^2890210^#^8989.3^^#^2941117"
^DIE(19,"%D",0)="^^2^2^2880713^^^^"
^DIE(19,"%D",1,0)="This template allows the site manager to set up the various audits that"
^DIE(19,"%D",2,0)="s/he wishes to maintain."
^DIE(19,"DIAB",1,1,8989.33,0)="ALL"
^DIE(19,"DIAB",1,1,8989.34,0)="ALL"
^DIE(19,"DIAB",1,1,8989.35,0)="ALL"
^DIE(19,"DIAB",1,1,8989.36,0)="ALL"
^DIE(19,"DR",1,8989.3)="19.4;S:X="""" Y=""@212"";19.5;S:X="""" Y=""@212"" W:X="""" !!,""No OPTION AUDITING done without a TERMINATE DATE"",!;19;S Y=$S(X=""n""!(X=""a""):""@212"",X=""s"":""@1"",X=""u"":""@2"",1:""@212"");@1;19.1;S Y=""@3"";@2;19.3;@3;19.2;@212;212.5;"
^DIE(19,"DR",1,8989.3,1)="S Y=$S(X=""N""!(X=""A"")!(X=""AR""):""@6"",1:""@4"");@4;212.1;@6;"
^DIE(19,"DR",2,8989.33)=".01"
^DIE(19,"DR",2,8989.34)=".01"
^DIE(19,"DR",2,8989.35)=".01"
^DIE(19,"DR",2,8989.36)=".01"
^DIE(20,0)="XU KSP INIT^2910227.1147^^8989.3^^@^2910501"
^DIE(20,"%D",0)="^^1^1^2890726^"
^DIE(20,"%D",1,0)="This is used to edit KSP as part of the init."
^DIE(20,"DR",1,8989.3)="9//VA;S DLAYGO=4;217;Q;11//NO;12//XUEDIT CHARACTERISTICS;31.1;31.2;31.3;41;202//5;203//10;204//YES;205//YES;206//NO;209//YES;210//300;211//NO;212.5//NO AUDIT;214//90;"
^DIE(20,"DR",2,8989.304)="2//35;"
^DIE(21,0)="XUSITEPARM^2940804.1231^^8989.3^^@^2941116"
^DIE(21,"DIAB",1,1,8989.33,0)="ALL"
^DIE(21,"DIAB",1,1,8989.332,0)="ALL"
^DIE(21,"DIAB",1,1,8989.333,0)="ALL"
^DIE(21,"DIAB",1,1,8989.34,0)="ALL"
^DIE(21,"DIAB",1,1,8989.35,0)="ALL"
^DIE(21,"DIAB",1,1,8989.36,0)="ALL"
^DIE(21,"DR",1,8989.3)="202;203;204;205;206;209;210;211;214;216;218;240;245;11;19;19.4;19.5;19.1;19.2;19.3;212.1;212.5;31.1;31.2;31.3;32;33;41;217;230;"
^DIE(21,"DR",2,8989.304)=".01;2;6;"
^DIE(21,"DR",2,8989.33)=".01"
^DIE(21,"DR",2,8989.332)=".01:1"
^DIE(21,"DR",2,8989.333)=".01:.02"
^DIE(21,"DR",2,8989.34)=".01"
^DIE(21,"DR",2,8989.35)=".01"
^DIE(21,"DR",2,8989.36)=".01"
^DIE(21,"DR",3,8989.3321)=".01:1"
^DIE(21,"DR",4,8989.33211)=".01"
^DIE(22,0)="XUSERDEACT^2950517.1458^^200^^@^2950517"
^DIE(22,"DR",1,200)="7;9.2;D EN^DDIOL(.XUTX1);9.21;D EN^DDIOL(.XUTX2);9.22;"
^DIE(23,0)="XTKERMIT-1^2880728^^8980^^^^"
^DIE(23,"DIAB",1,1,8980.01,0)="ALL"
^DIE(23,"DR",1,8980)=".01;Q;2//YES;3//TEXT;10;5;S:""n""[X Y=0;21;"
^DIE(23,"DR",2,8980.01)=".01"
^DIE(24,0)="XTV EDIT VERIF PACKAGE^2911007.1251^^8991.19^^^2950130^"
^DIE(24,"DIAB",1,1,8991.191,0)="ALL"
^DIE(24,"DIAB",1,1,8991.192,0)="ALL"
^DIE(24,"DR",1,8991.19)=".01;1;2;"
^DIE(24,"DR",2,8991.191)=".01"
^DIE(24,"DR",2,8991.192)=".01"
^DIE(25,0)="XTLK EDIT SHORT^2901217.1118^^8984.2^^^^"
^DIE(25,"DR",1,8984.2)=".01;S DIC(""V"")=""I $P(Y(0),U,4)=XTLKPF"";.02;K DIC(""V"");"
^DIE(26,0)="XTLK EDIT SYN^2901217.1119^^8984.3^^^^"
^DIE(26,"DIAB",1,1,8984.31,0)="ALL"
^DIE(26,"DIAB",3,0,8984.3,0)=".02///S X=+XTLKY"
^DIE(26,"DR",1,8984.3)=".01;Q;.02///^S X=+XTLKY;.03;"
^DIE(26,"DR",2,8984.31)=".01"
^DIE(27,0)="XTLK EDIT LOOKUP^2901217.1119^^8984.4^^^^"
^DIE(27,"DR",1,8984.4)=".01;.02;.03;"
^DIE(28,0)="XTLK EDIT KEY^2901217.1117^^8984.1^^^^"
^DIE(28,"DR",1,8984.1)=".01;S DIC(""V"")=""I $P(Y(0),U,4)=XTLKPF"";.02////^S X=XTLKCOD;K DIC(""V"");"
^DIE(29,0)="XDR DUPLICATE RESOLUTION EDIT^2930331.1618^^15.1^^^^"
^DIE(29,"DR",1,15.1)=".01;.09;1100;.15;.25;.11;.16;.17;.29;.31;.18;"
^DIE(29,"DR",2,15.111)=".01;.02;.03;.04;.05;.06;.07;"
^DIE(30,0)="XUCS SITE EDIT^2931112.1142^^8987.1^^^^"
^DIE(30,"DIAB",1,1,8987.16,0)="ALL"
^DIE(30,"DIAB",1,1,8987.17,0)="ALL"
^DIE(30,"DR",1,8987.1)=".01;1;5;5.1;5.2;5.3;4;6;7;"
^DIE(30,"DR",2,8987.16)=".01"
^DIE(30,"DR",2,8987.17)=".01"
^DIE(31,0)="XUCS VOL GROUP EDIT^2940123.0947^^8987.1^^^^"
^DIE(31,"DR",1,8987.1)="3;"
^DIE(31,"DR",2,8987.13)=".01;5.5;5;2;1;"
^DIE(32,0)="FHINPR^2950428.0903^^114^^^3010926"
^DIE(32,"%D",0)="^^1^1^2940120^^^"
^DIE(32,"%D",1,0)="This template is used to enter recipes into the recipe file."
^DIE(32,"DR",1,114)=".01;8;2;3;4;5;6;7;11;12;9;10//NO;1;1.5;20;99;103;"
^DIE(32,"DR",2,114.01)=".01;S FHX1=+X,Y0=$G(^FHING(FHX1,0)),UNT=$P(Y0,""^"",16);W !,""  Units should be "",$S(UNT=""EACH"":""EACH"",UNT=""OZ""!(UNT=""LB""):""WEIGHTS"",1:""VOLUMES"");1;S FHX2=+X*$P(Y0,""^"",22);"
^DIE(32,"DR",2,114.01,1)="2//^S X=$S($P(Y0,""^"",21):$P($G(^FHNU($P(Y0,""^"",21),0)),""^"",1),1:"""");S FHX3=$P($G(^FHNU(+X,0)),""^"",5) S:FHX3&(FHX3'=100) FHX2=FHX2*FHX3/100;3//^S X=+$J(FHX2,0,3);"
^DIE(32,"DR",2,114.0103)=".01;1//1;"
^DIE(32,"DR",2,114.03)=".01;W !,""  Portion Size: "",$P(^FH(114,+X,0),U,3);1;"
^DIE(32,"DR",2,114.05)=".01;"
^DIE(33,0)="FHASE^3040316.1008^^115.7^^^3050120"
^DIE(33,"%D",0)="^.4021^2^2^3030602^^^^"
^DIE(33,"%D",1,0)="This template is used to enter data relating to a dietetic"
^DIE(33,"%D",2,0)="encounter."
^DIE(33,"DR",1,115.7)="2//^S X=$P(^VA(200,DUZ,0),""^"",1);3//^S X="""",DIC(""S"")=""I Y>2"";K DIC(""S"") S FHX1=$S($D(^FH(115.6,+X,0)):^(0),1:"""") I $P(FHX1,""^"",5)'=""Y"" S Y=""@1"";4;@1;S FHX2=$P(FHX1,""^"",3) I '$P(FHX1,""^"",4) S Y=6;5;I X=""F"" S FHX2=$P(FHX1,""^"",4);"
^DIE(33,"DR",1,115.7,1)="6//^S X=FHX2;S FHX2=$P(FHX1,""^"",6) I FHX2'=""B"" S Y=""@3"";7;S FHX2=X,Y=""@4"";@3;7///^S X=FHX2;@4;10;S FHX3="""" I $P(FHX1,""^"",7)'=""Y"" S Y=8 S:FHX2=""I"" FHX3=1;@5;20;D CNT^FHASE I $P(FHX4,""^"",10)'="""",FHX3 S $P(^FHEN(ASE,0),U,10)="""";"
^DIE(33,"DR",1,115.7,2)="I FHX2=""I"",FHX3<1 W *7,!?5,""Must select a patient."" S Y=""@5"";@8;8//^S X=FHX3;I X<FHX3 W *7,!?5,""Group Size cannot be less than total person count (default)"" S $P(^FHEN(ASE,0),U,10)="""",Y=""@8"";I $P(FHX4,""^"",13)'="""" S Y=""@9"";"
^DIE(33,"DR",1,115.7,3)="101////^S X=DUZ;@9;I $P(FHX4,""^"",14)'="""" S Y=""@10"";102///^S X=""NOW"";@10;S:'FHN Y=0;103///^S X=""NOW"";104////^S X=DUZ;"
^DIE(33,"DR",2,115.701)=".01;S DFN=X,DGT=DTE D ^DGPMSTAT S X9=$G(^DIC(42,+DG1,44));1////^S X=X9;I $P(FHX1,""^"",8)'=""Y"" S Y=""@6"";2;@6;I $P(FHX1,""^"",9)'=""Y"" S Y=""@7"";3;@7;I FHX2=""I"" S DI(1)=+DI(1),Y=0;"
^DIE(34,0)="FHADM4^3031010.1131^^117.1^^^3031016"
^DIE(34,"%D",0)="^.4021^2^2^3030423^^^^"
^DIE(34,"%D",1,0)="This template is used to input daily data into the Staffing"
^DIE(34,"%D",2,0)="Guidelines file (117.1)."
^DIE(34,"DR",1,117.1)="1//^S X=$P(FHX1,""^"",1);2//^S X=$P(FHX1,""^"",2);3//^S X=$P(FHX1,""^"",3);4//^S X=$P(FHX1,""^"",4);5//^S X=$P(FHX1,""^"",5);6;7;8;9;10;11;12;13;14;15;16;17;18;19;"
^DIE(35,0)="FHADM2^3040311.1549^^117^^^3041217"
^DIE(35,"%D",0)="^.4021^2^2^3031006^^^^"
^DIE(35,"%D",1,0)="This template is used to enter served meals data which is used"
^DIE(35,"%D",2,0)="to complete the worksheet for AMIS segment 224."
^DIE(35,"DR",1,117)="S DIE(""NO^"")="""" S:'$D(FHN(""D"")) Y=""@1"";1//^S X=FHN(""D"",0);2//^S X=FHN(""D"",1);@1;S:'$D(FHN(""N"")) Y=""@2"";4//^S X=FHN(""N"",0);5//^S X=FHN(""N"",1);@2;S:'$D(FHN(""H"")) Y=""@3"";7//^S X=FHN(""H"",0);8//^S X=FHN(""H"",1);@3;K DIE(""NO^"");"
^DIE(35,"DR",1,117,1)="30//^S X=FHOPC(""B"");31//^S X=FHOPC(""N"");32//^S X=FHOPC(""E"");33//^S X=FHOPC(""E"",""B"");34//^S X=FHOPC(""E"",""N"");35//^S X=FHOPC(""E"",""E"");36//^S X=FHOPC(""P"",""B"");37//^S X=FHOPC(""P"",""N"");38//^S X=FHOPC(""P"",""E"");39//^S X=FHOPC(""O"",""B"");"
^DIE(35,"DR",1,117,2)="40//^S X=FHOPC(""O"",""N"");41//^S X=FHOPC(""O"",""E"");42//^S X=FHOPC(""V"",""B"");43//^S X=FHOPC(""V"",""N"");44//^S X=FHOPC(""V"",""E"");45//^S X=FHOPC(""G"",""B"");46//^S X=FHOPC(""G"",""N"");47//^S X=FHOPC(""G"",""E"");50;51;"
^DIE(36,0)="FHSITEC1^2910820.1214^^119.9^^^3070723^"
^DIE(36,"%D",0)="^.4021^2^2^3070322^^^^"
^DIE(36,"%D",1,0)="This template is used to enter the clinical site parameters for the"
^DIE(36,"%D",2,0)="Dietetic System."
^DIE(36,"DIAB",1,1,119.9001,0)="ALL"
^DIE(36,"DIAB",1,1,119.985,0)="ALL"
^DIE(36,"DR",1,119.9)="W !!,""--- Clinical Site Parameters"";W !!,""The assessment default units are used for determining"";W !,""the units for inputs when units are not specified"";W !,""and for determining which units are used for output"";"
^DIE(36,"DR",1,119.9,1)="W !,""on the assessment and screening forms. Either English"";W !,""or metric may be selected."";W !;70;W !!,""The Screening form makes provision for a"";W !,""site-selectable line being added to the form as the"";"
^DIE(36,"DR",1,119.9,2)="W !,""last line under the S: (or subjective) section."";W !,""If an entry is made, the user should consider the"";W !,""indenting and column usage of the existing lines in"";W !,""determining the line to be entered. Just press RETURN"";"
^DIE(36,"DR",1,119.9,3)="W !,""to bypass having this extra line."";W !;75;W !!,""A Nutrition Profile may optionally be printed following each"";W !,""Screening form. Answer YES if you wish the profile printed,"";"
^DIE(36,"DR",1,119.9,4)="W !,""NO if you do not. Answer A (for Ask user) if you wish the user to be"";W !,""prompted as to whether a profile will be printed."";W !;74;W !!,""In selecting laboratory results to be displayed, the"";"
^DIE(36,"DR",1,119.9,5)="W !,""program allows for the selection of the number of days"";W !,""in the past for which data will be searched. Thus,"";W !,""selecting 30 as a value will result in the most recent"";"
^DIE(36,"DR",1,119.9,6)="W !,""lab test results obtained in the last 30 days being displayed."";W !;71;W !!,""You should select only those laboratory tests in which"";W !,""the clinical staff is typically interested. You will also"";"
^DIE(36,"DR",1,119.9,7)="W !,""be prompted as to whether you wish those results to be"";W !,""printed on the Assessment report and the Screening form."";W !;80;W !!,""You should select only those drug classifications in"";"
^DIE(36,"DR",1,119.9,8)="W !,""which the clinical staff is typically interested."";W !,""In displaying prescribed drugs, the actual drug name"";W !,""will appear, but the selection of drugs to be displayed"";"
^DIE(36,"DR",1,119.9,9)="W !,""will be controlled by the drug classifications selected."";W !;85;"
^DIE(36,"DR",2,119.9001)=".01:5"
^DIE(36,"DR",2,119.985)=".01:6"
^DIE(37,0)="FHSEL^2920219.1217^^115^^^3041116^"
^DIE(37,"%D",0)="^^3^3^2930909^^"
^DIE(37,"%D",1,0)="This template is used to enter the food preferences for a patient."
^DIE(37,"%D",2,0)="It will prompt for the quantity only if the selected preference"
^DIE(37,"%D",3,0)="is a 'Like' rather than a 'Dislike'."
^DIE(37,"DR",1,115)="10;"
^DIE(37,"DR",2,115.09)=".01;S X9=$P($G(^FH(115.2,+X,0)),""^"",2);1;S:X9=""D"" Y=""@1"";2//1;@1;"
^DIE(38,0)="FHCMSR^2920220.1546^^117.2^^^3041103^"
^DIE(38,"%D",0)="^^3^3^2920520^^^^"
^DIE(38,"%D",1,0)="This template is used to enter values into File 117.2, the"
^DIE(38,"%D",2,0)="Dietetic Cost of Meals file used to generate the Dietetic"
^DIE(38,"%D",3,0)="Cost of Meals Report."
^DIE(38,"DR",1,117.2)="1//^S X=$P(FHX1,""^"",1);2//^S X=$P(FHX1,""^"",2);3//^S X=$P(FHX1,""^"",3);4//^S X=$P(FHX1,""^"",4);5//^S X=$P(FHX1,""^"",5);6//^S X=$P(FHX1,""^"",6);7;8;9;10;11;12;13;14;15;16;17;18;19//^S X=35;20//^S X=12;21//^S X=22;22//^S X=6;23//^S X=12;"
^DIE(38,"DR",1,117.2,1)="24//^S X=13;"
^DIE(38,"ROUOLD")=""
^DIE(39,0)="LA AUTO ACC^2900914.1735^^62.4^^^^"
^DIE(39,"DR",1,62.4)="5///LOG;W ?$X+5,""DONE"";"
^DIE(40,0)="LA AUTO LL^2900914.1736^^62.4^^^^"
^DIE(40,"DR",1,62.4)="5///LLIST;W ?$X+5,""DONE"";"
^DIE(41,0)="LR ATOMIC TESTS^3030512.1142^^60^^^3041027"
^DIE(41,"DIAB",1,1,60.1,0)="ALL"
^DIE(41,"DIAB",1,1,60.12,0)="ALL"
^DIE(41,"DIAB",1,1,60.13,0)="ALL"
^DIE(41,"DR",1,60)=".01;2;3;4;400;100;500.1;500;"
^DIE(41,"DR",2,60.01)=".01:9;13;"
^DIE(41,"DR",2,60.1)=".01"
^DIE(41,"DR",2,60.12)=".01:3"
^DIE(41,"DR",2,60.13)=".01;2"
^DIE(41,"DR",3,60.07)=".01"
^DIE(42,0)="LR COSMIC TESTS^2940912.1935^^60^^^^"
^DIE(42,"DIAB",1,1,60.02,0)="ALL"
^DIE(42,"DIAB",1,1,60.1,0)="ALL"
^DIE(42,"DIAB",1,1,60.11,0)="ALL"
^DIE(42,"DIAB",1,1,60.12,0)="ALL"
^DIE(42,"DR",1,60)="2;3;6;7;8;9;200;300;500;"
^DIE(42,"DR",2,60.02)=".01:.02"
^DIE(42,"DR",2,60.03)=".01:1;3:5;"
^DIE(42,"DR",2,60.1)=".01"
^DIE(42,"DR",2,60.11)=".01:1"
^DIE(42,"DR",2,60.12)=".01:3"
^DIE(42,"DR",3,60.04)=".01"
^DIE(43,0)="LR STAPH^2840317^^63^^^^"
^DIE(43,"DR",1,63)="5;"
^DIE(43,"DR",2,63.05)="12;"
^DIE(43,"DR",3,63.3)=".01;1;2;90;50;20;110;35;25;15;75;115;30;"
^DIE(44,0)="LR PSEUDO^2840313^^63^^^^"
^DIE(44,"DR",1,63)="5;"
^DIE(44,"DR",2,63.05)="12;"
^DIE(44,"DR",3,63.3)=".01;1;2;80;35;70;95;130;145;"
^DIE(45,0)="LR STREPT^2840313^^63^^^^"
^DIE(45,"DR",1,63)="5;"
^DIE(45,"DR",2,63.05)="12;"
^DIE(45,"DR",3,63.3)=".01;1;2;60;35;15;30;"
^DIE(46,0)="LR C&S^2860721^^63^^^^"
^DIE(46,"DR",1,63)="5;"
^DIE(46,"DR",2,63.05)=".05;11;11.5;12;13;"
^DIE(46,"DR",3,63.3)=".01;S LRBUG=$P(^LAB(61.2,X,0),U,3);I $D(LRSPEC),LRSPEC'=140 S Y=""@1"";5;10;@1;I $D(LRBUG),LRBUG=""N"" S Y=""@2"";25;15;60;50;80;35;20;110;55;40;30;75;S Y=2;@2;65;60;145;50;85;90;95;80;35;70;40;75;55;2;"
^DIE(47,0)="LRLLPRO^2850130^^68.2^^^^"
^DIE(47,"DR",1,68.2)="50;"
^DIE(47,"DR",2,68.23)=".01;1;2;4;"
^DIE(47,"DR",3,68.24)=".01;1;2;"
^DIE(48,0)="LR ACC CONTROLS^2840820^^68^^^^"
^DIE(48,"DR",1,68)="1"
^DIE(48,"DR",2,68.09)=".01:1"
^DIE(48,"DR",3,68.1)=".01"
^DIE(49,0)="LR STERILITY^2871231^^63^^^^"
^DIE(49,"DIAB",1,2,63.292,0)="ALL"
^DIE(49,"DIAB",1,2,63.33,0)="ALL"
^DIE(49,"DR",1,63)="5;"
^DIE(49,"DR",2,63.05)="11.55///^S X=""`""_DUZ;11;11.5;11.51;11.52;13;"
^DIE(49,"DR",3,63.292)=".01"
^DIE(49,"DR",3,63.33)=".01"
^DIE(50,0)="LR ANAEROBIC PANEL^2850328^^63^^^^"
^DIE(50,"DR",1,63)="5;"
^DIE(50,"DR",2,63.05)="12;"
^DIE(50,"DR",3,63.3)=".01;1;2;15;20;90;"
^DIE(51,0)="LR FASTIDIOUS ORGANISM^2850328^^63^^^^"
^DIE(51,"DR",1,63)="5;"
^DIE(51,"DR",2,63.05)="12;"
^DIE(51,"DR",3,63.3)=".01;1;2;15;40;55;60;110;150;"
^DIE(52,0)="LR GNR^2910408.1552^^63^^^^"
^DIE(52,"DIAB",1,3,63.31,0)="ALL"
^DIE(52,"DR",1,63)="5;"
^DIE(52,"DR",2,63.05)="12;"
^DIE(52,"DR",3,63.3)=".01;1;2;80;60;90;50;40;35;I $D(LRURINE),$D(LRSPEC) S Y=$S(LRSPEC=LRURINE:151,1:70);151;55;70;75;130;145;95;Q;"
^DIE(52,"DR",4,63.31)=".01"
^DIE(53,0)="LR GRAM NEG & URINARY^2850328^^63^^^^"
^DIE(53,"DR",1,63)="5;"
^DIE(53,"DR",2,63.05)="12;"
^DIE(53,"DR",3,63.3)=".01;1;2;155;35;40;55;60;65;70;75;80;85;90;100;154;"
^DIE(54,0)="LR GRAM POSITIVE^2890523.1249^^63^^^^"
^DIE(54,"DIAB",1,3,63.31,0)="ALL"
^DIE(54,"DR",1,63)="5;"
^DIE(54,"DR",2,63.05)="12;"
^DIE(54,"DR",3,63.3)=".01;1;2;15;20;30;35;40;55;60;100;110;150;154;"
^DIE(54,"DR",4,63.31)=".01"
^DIE(55,0)="LRBLID^2910127.094^^65^^^^"
^DIE(55,"DIAB",1,1,65.06,0)="ALL"
^DIE(55,"DR",1,65)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";K LRE S:'$D(LRA(1)) LRA(1)="""" S:'$D(LRA(2)) LRA(2)="""";I $D(^LRD(65,DA,4)),$P(^(4),U)]"""" W *7,!,""Entry has a disposition"",! S Y=0;"
^DIE(55,"DR",1,65,1)="S X=^LRD(65,DA,0),LRE(4)=$P(X,U,4),LRE=$P(X,U,10),(LRE(1),LRE(2),LRE(3))="""",LRE(5)=$P(^LAB(66,LRE(4),0),U,3),LRE(6)=$P(X,U,5);@3;D R^LRBLJD;4.1///^S X=LRE(1);S LRE(1)=X;I X="""" D K^LRBLJD S Y=""@3"";"
^DIE(55,"DR",1,65,2)="I X=""T"" W *7,!,""NOT ALLOWED WITH THIS OPTION"" D K^LRBLJD S Y=""@3"";I LRE(1)=""MO"",'LRE(5) W *7,!,""CANNOT BE MODIFIED"" D K^LRBLJD S Y=""@3"";Q;Q;4.2//^S X=""NOW"";"
^DIE(55,"DR",1,65,3)="I X<LRE(6) W *7,!,""DISPOSITION DATE MUST BE AFTER DATE RECEIVED"" D K^LRBLJD S Y=""@3"";S LRE(2)=X;I LRE(1)=""""!(LRE(2)="""") D K^LRBLJD S Y=""@3"";4.3///^S X=""`""_DUZ;S:LRE(1)=""MO"" Y=0;5;I LRE(1)=""""!(LRE(2)="""") D K^LRBLJD S Y=""@3"";"
^DIE(55,"DR",1,65,4)="S:""RS""'[LRE(1) Y=0;S $P(^LRD(65,DA,0),""^"",10)="""",$P(^(0),""^"",14)=$S(LRE:""-""_LRE,1:"""");.13//^S X=LRA(1);S LRA(1)=X;4.5//^S X=LRA(2);S LRA(2)=X;S Y=0;Q;"
^DIE(55,"DR",2,65.06)=".01"
^DIE(56,0)="LRLLDFT^3030812.1133^^68.2^^^3041015"
^DIE(56,"DR",1,68.2)=".02;.03;.04;.05;.06;.07;.08;.09;.1;.11;.14;50;"
^DIE(56,"DR",2,68.23)="2;2.1;2.2;2.3;"
^DIE(57,0)="LRLL CONTROLS^2840913^^68.2^^^^"
^DIE(57,"DR",1,68.2)="50;"
^DIE(57,"DR",2,68.23)="3;5;6;"
^DIE(57,"DR",3,68.25)=".01:10;"
^DIE(57,"DR",4,68.26)=".01"
^DIE(58,0)="LRBLDC^2880828^^65.5^^^^"
^DIE(58,"DIAB",1,2,65.546,0)="ALL"
^DIE(58,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S:'$D(LRI) Y=0;S DIE(""NO^"")=""OUTOK"";5///^S X=$C(96)_LRI;"
^DIE(58,"DR",2,65.54)="S LRO=$P(^LRE(DA(1),5,DA,0),U,10);K LRB;6.1//PREPARE COMPONENT(S);I LRO]"""",LRO'=X S O=LRO,Z=""65.54,6.1"" D EN^LRUD;S:'X Y=""@1"";6.2;S Y=0;@1;S LRO=$S($D(^LRE(DA(1),5,DA,2)):$P(^(2),U,4),1:"""");4.4//^S X=""NOW"";"
^DIE(58,"DR",2,65.54,1)="I LRO]"""",LRO'=X S O=LRO,Z=""65.54,4.4"" D EN^LRUD;S X=X_""000"";S LRB(9)=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)_$S(X[""."":""@""_$E(X,9,10)_"":""_$E(X,11,12),1:"""");"
^DIE(58,"DR",2,65.54,2)="S X=^LRE(DA(1),5,DA,2),LRB(1)=+X,LRB=$P(X,U,3),LRB(8)=$P(X,U,9),LRB(2)=$P(X,U,2);"
^DIE(58,"DR",3,65.546)=".01"
^DIE(59,0)="LR MTB^2860128^^63^^^^"
^DIE(59,"DR",1,63)="5;"
^DIE(59,"DR",2,63.05)="26;"
^DIE(59,"DR",3,63.39)=".01;1;2;5;20;50;"
^DIE(60,0)="LRBLDEDIT^2870504^^65.5^^^^"
^DIE(60,"DR",1,65.5)="S DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;S:'$D(^XUSEC(""LRBLSUPER"",DUZ)) Y=0;S X=^LRE(DA,0),LRABO=$P(X,U,5),LRRH=$P(X,U,6);.05;I X'=LRABO S O=LRABO,Z=""65.5,.05"" D EN^LRUD;.06;I X'=LRRH S O=LRRH,Z=""65.5,.06"" D EN^LRUD;"
^DIE(61,0)="LRBLPEDIT^2860526^^63^^^^"
^DIE(61,"DR",1,63)="S DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;S:'$D(^XUSEC(""LRBLSUPER"",DUZ)) Y=0;S X=^LR(DA,0),LRABO=$P(X,U,5),LRRH=$P(X,U,6);.05;I X'=LRABO S O=LRABO,Z=""63,.05"" D EN^LRUD;.06;I X'=LRRH S O=LRRH,Z=""63,.06"" D EN^LRUD;"
^DIE(62,0)="LRBLDEF^2881017^^65.5^^^^"
^DIE(62,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";S LRM=^LRE(DA,0);.1;S O=$P(LRM,""^"",10),Z=""65.5,.1"" D EN^LRUD;.12///^S X=""`""_DUZ;S O=$P(LRM,""^"",12) I O]"""",O'=X S Z=""65.5,.12"" D EN^LRUD;.16///^S X=""NOW"";"
^DIE(62,"DR",1,65.5,1)="S O=$P(LRM,""^"",16) I O]"""",O'=X S Z=""65.5,.16"" D EN^LRUD;99;9;"
^DIE(63,0)="LRBLDEMO^2961119.0745^^65.5^^^2970709"
^DIE(63,"DIAB",1,1,65.51,0)="ALL"
^DIE(63,"DIAB",1,1,65.53,0)="ALL"
^DIE(63,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";S LR(""SSN"")=$P($G(^LAB(69.9,1,8,1,0)),U,5);S LRM=^LRE(DA,0);.01;S O=$P(LRM,U) I O'=X W $C(7),?40,""Are you sure "" S %=2 D YN^LRU I %'=1 S Y=.01;I O'=X S Z=""65.5,.01"" D EN^LRUD;"
^DIE(63,"DR",1,65.5,1)=".09///^S X=""`""_DUZ;.02;.03;S:""NAFARMY""'[DUZ(""AG"") Y=""@1"";.14;@1;S:'LR(""SSN"") Y=1.1;.13;S O=$P(LRM,U,13) I O'=X S Z=""65.5,.13"" D EN^LRUD;1.1;1.2;1.3;1.4;1.5;1.6;1.7;1.8;.04;2;4;"
^DIE(63,"DR",2,65.51)=".01"
^DIE(63,"DR",2,65.53)=".01"
^DIE(64,0)="LRBLDAG^2910205.1232^^65.5^^^^"
^DIE(64,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";K LRM;S LRQ=DA F LRM=0:0 S LRM=$O(^LRE(LRQ,1.1,LRM)) Q:'LRM  S LRM(1.1,LRM)=65.56;@1;6.1;W !;F LRM=0:0 S LRM=$O(^LRE(LRQ,1.2,LRM)) Q:'LRM  S LRM(1.2,LRM)=65.57;@2;6.2;"
^DIE(64,"DR",1,65.5,1)="S LRM=$P(^LRE(LRQ,0),""^"",15);W !;6.5;I LRM]"""",X'=LRM S O=LRM,Z=""65.5,6.5"" D EN^LRUD;W !;F LRM=0:0 S LRM=$O(^LRE(LRQ,1.3,LRM)) Q:'LRM  S LRM(1.3,LRM)=65.58;@3;6.3;W !;"
^DIE(64,"DR",1,65.5,2)="F LRM=0:0 S LRM=$O(^LRE(LRQ,1.4,LRM)) Q:'LRM  S LRM(1.4,LRM)=65.59;@4;6.4;"
^DIE(64,"DR",2,65.56)=".01;I $D(^LRE(LRQ,1.2,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRE(LRQ,1.1,X) S X=^LRE(LRQ,1.1,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@1"";"
^DIE(64,"DR",2,65.57)=".01;I $D(^LRE(LRQ,1.1,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be absent & present "" K ^LRE(LRQ,1.2,X) S X=^LRE(LRQ,1.2,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@2"";"
^DIE(64,"DR",2,65.58)=".01;I $D(^LRE(LRQ,1.4,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRE(LRQ,1.3,X) S X=^LRE(LRQ,1.3,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@3"";"
^DIE(64,"DR",2,65.59)=".01;I $D(^LRE(LRQ,1.3,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRE(LRQ,1.4,X) S X=^LRE(LRQ,1.4,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@4"";"
^DIE(65,0)="LRBLDON^2900910.0652^^65.5^^^^"
^DIE(65,"DIAB",1,2,65.546,0)="ALL"
^DIE(65,"DIAB",1,2,65.55,0)="ALL"
^DIE(65,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";5;"
^DIE(65,"DR",2,65.54)="S LRM=$S($D(^LRE(DA(1),5,DA,0)):^(0),1:"""");.01;S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,.01"" D EN^LRUD;.011///^S X=""`""_DUZ;S O=$P(LRM,U,8) I O]"""",O'=X S Z=""65.54,.011"" D EN^LRUD;.02;S O=$P(LRM,U,6) I O]"""",O'=X S Z=""65.54,.02"" D EN^LRUD;"
^DIE(65,"DR",2,65.54,1)=".03;S O=$P(LRM,U,7) I O]"""",O'=X S Z=""65.54,.03"" D EN^LRUD;1;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,1"" D EN^LRUD;S LRP(3)=X I LRP(3)'=""N"" S Y=1.1;2;S:LRP(3)=""N"" Y=0;1.1;S O=$P(LRM,U,11) I O]"""",O'=X S Z=""65.54,1.1"" D EN^LRUD;3;"
^DIE(65,"DR",2,65.54,2)="S O=$P(LRM,U,3) I O]"""",O'=X S Z=""65.54,3"" D EN^LRUD;4;S O=$P(LRM,U,4) I O]"""",O'=X S Z=""65.54,4"" D EN^LRUD;S:'$D(LRP(4)) LRP(4)="""";6//^S X=LRP(4);S O=$P(LRM,U,9) I O]"""",O'=X S Z=""65.54,6"" D EN^LRUD;S LRP(4)=X;5;"
^DIE(65,"DR",2,65.54,3)="S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,5"" D EN^LRUD;6.1;S O=$P(LRM,U,10) I O]"""",O'=X S Z=""65.54,6.1"" D EN^LRUD;6.2;"
^DIE(65,"DR",3,65.546)=".01"
^DIE(65,"DR",3,65.55)=".01"
^DIE(66,0)="LRBLDNEW^2930402.0656^^65.5^^^^"
^DIE(66,"DIAB",1,1,65.51,0)="ALL"
^DIE(66,"DIAB",1,1,65.53,0)="ALL"
^DIE(66,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S LR(""SSN"")=$P($G(^LAB(69.9,1,8,1,0)),U,5);.09///^S X=""`""_DUZ;S:'LR(""SSN"") Y=1.1;.13;1.1;1.2;1.3;1.5;1.6;1.7;1.8;2;4;.04;"
^DIE(66,"DR",2,65.51)=".01"
^DIE(66,"DR",2,65.53)=".01"
^DIE(67,0)="LRBLDABRH^2910203.1556^^65.5^^^^"
^DIE(67,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";S:'$D(LRI) Y=0;5///^S X=$C(96)_LRI;"
^DIE(67,"DR",2,65.54)="S LRABO=$P(^LRE(DA(1),0),U,5),LRRH=$P(^(0),U,6),LRID=$P(^(5,DA,0),U,4);W !,""ABO: "",LRABO,""  Rh: "",LRRH;I LRABO=""""!(LRRH="""") W !,""ABO &/or Rh not on file."",!,*7,""CAUTION !! No checking can be done."",!;"
^DIE(67,"DR",2,65.54,1)="I LRID="""" W *7,!!,""No UNIT NUMBER.  Cannot proceed !!"",! S Y=0;@10;S LRM=$S($D(^LRE(DA(1),5,DA,10)):^(10),1:""""),Z=""@1"" D S^LRBLDX;10;S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,10"" D EN^LRUD;"
^DIE(67,"DR",2,65.54,2)="S LRA=X I LRABO]""""&(LRA=""""!(LRA=""ND"")) S LRA=LRABO;10.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,10.2"" D EN^LRUD;"
^DIE(67,"DR",2,65.54,3)="I LRABO]"""",LRA'=LRABO W *7,!,LRA,"" not the ABO group on record"",!,""Is present testing OK "" S %=1 D YN^LRU I %=2 S ^LRE(""AT"",LRID,10,DA(1),DA)="""",Y=""@10"";"
^DIE(67,"DR",2,65.54,4)="I LRABO="""",LRA]"""",LRA'=""ND"" S W=^LRE(DA(1),0),^(0)=$P(W,U,1)_U_$P(W,U,2)_U_$P(W,U,3)_U_$P(W,U,4)_U_LRA_U_$P(W,U,6,99);S:$D(LRC) Y=""@1"";10.3;@1;S LRM=$S($D(^LRE(DA(1),5,DA,11)):^(11),1:""""),Z=0 D S^LRBLDX;11;"
^DIE(67,"DR",2,65.54,5)="S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,11"" D EN^LRUD;S LRA=X I LRRH]""""&(LRA=""""!(LRA=""ND"")) S LRA=LRRH;11.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,11.2"" D EN^LRUD;"
^DIE(67,"DR",2,65.54,6)="I LRRH]"""",LRA'=LRRH W *7,!,LRA,"" not the Rh type on record"",!,""Is present testing OK "" S %=1 D YN^LRU I %=2 S ^LRE(""AT"",LRID,11,DA(1),DA)="""",Y=""@1"";I LRRH="""",LRA]"""",LRA'=""ND"" S W=^LRE(DA(1),0),^(0)=$P(W,U,1,5)_U_LRA_U_$P(W,U,7,99);"
^DIE(67,"DR",2,65.54,7)="S:$D(LRC) Y=0;11.3;"
^DIE(68,0)="LRBLDCP^2970319.1045^^65.5^^^2971007"
^DIE(68,"DIAB",1,2,65.55,0)="ALL"
^DIE(68,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;I '$D(LRAA) S LRAA=$O(^LRO(68,""B"",""BLOOD BANK"",0)) K:'LRAA LRAA;S DIE(""NO^"")=""OUTOK"";F X=1:1:8 S:'$D(LRX(X)) LRX(X)="""";S LRA="""",LRO=$P(^LRE(DA,0),""^"");.01;S (LRP(0),LRP)=X,LRE=^LRE(DA,0);"
^DIE(68,"DR",1,65.5,1)="I LRO'=X S O=LRO,Z=""65.5,.01"" D EN^LRUD;5;I $D(NODE) D DEL^LRBLDRR3;"
^DIE(68,"DR",2,65.54)="S LRM=$S($D(^LRE(DA(1),5,DA,0)):^(0),1:"""");I $P(LRE,U,10),""AT""'[$P(LRM,U,11) W $C(7),"" Permanent deferral"",! S Y=0;"
^DIE(68,"DR",2,65.54,1)="S LRM(1)=$P(LRM,U,13),LRM(2)=LRM(1)_""000"",LRM(2)=$E(LRM(2),4,5)_""/""_$E(LRM(2),6,7)_""/""_$E(LRM(2),2,3)_$S(LRM(2)[""."":""@""_$E(LRM(2),9,10)_"":""_$E(LRM(2),11,12),1:"""");I $D(LRM) S LRDONOR=DA(1),NODE=LRM D BEG^LRBLDRR3;"
^DIE(68,"DR",2,65.54,2)="I $D(LRM) S NODE1=$G(^LRE(DA(1),5,DA,2));.01//^S X=""TODAY"";S O=$P(LRM,U) I O'=X S Z=""65.54,.01"" D EN^LRUD;.011///^S X=""`""_DUZ;S O=$P(LRM,U,8) I O]"""",O'=X S Z=""65.54,.011"" D EN^LRUD;.02//^S X=LRX(7);"
^DIE(68,"DR",2,65.54,3)="S O=$P(LRM,U,6) I O]"""",O'=X S Z=""65.54,.02"" D EN^LRUD;S:X LRX(7)=$P(^LAB(65.4,X,0),U);.03//^S X=LRX(8);S O=$P(LRM,U,7) I O]"""",O'=X S Z=""65.54,.03"" D EN^LRUD;S:X LRX(8)=$P(^LAB(65.4,X,0),U,1);1//^S X=""WHOLE BLOOD"";"
^DIE(68,"DR",2,65.54,4)="S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,1"" D EN^LRUD;S:X'=""N"" Y=1.1;2;S Y=0;1.1//^S X=""HOMOLOGOUS"";S LRT=X S:X=""A"" LRA=LRP(0),LR(""AUT"")="""";S O=$P(LRM,U,11) I O]"""",O'=X S Z=""65.54,1.1"" D EN^LRUD;S:""AD""'[X Y=5;"
^DIE(68,"DR",2,65.54,5)="S LRD=$P(LRE,U,3),LRS(2)=$P(LRE,U,13),LRB=$E(LRD,4,5)_""-""_$E(LRD,6,7)_""-""_$E(LRD,2,3);1.2//^S X=LRA;S O=$P(LRM,U,12) I O]"""",O'=X S Z=""65.54,1.2"" D EN^LRUD;"
^DIE(68,"DR",2,65.54,6)="I LRT=""A"",'$P(^LRE(DA(1),5,DA,0),U,12) S LR(""AUT"")=0 W $C(7),!!,""Autologous donation and RESTRICTED FOR: field not entered."",!;"
^DIE(68,"DR",2,65.54,7)="I LRT=""A"",LR(""AUT"")=0 W !,""Delete all data from this donation? "" S %=2 D YN^LRU I %=2 S Y=.02,LR(""AUT"")=1;I LRT=""A"",LR(""AUT"")=0 S DIK=""^LRE(DA(1),5,"" D ^DIK K DIK S Y=0;S Y=6;5;S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,5"" D EN^LRUD;6;"
^DIE(68,"DR",2,65.54,8)="S O=$P(LRM,U,9) I O]"""",O'=X S Z=""65.54,6"" D EN^LRUD;3//^S X=""NONE"";S O=$P(LRM,U,3) I O]"""",O'=X S Z=""65.54,3"" D EN^LRUD;4;S O=$P(LRM,U,4) I O]"""",O'=X S Z=""65.54,4"" D EN^LRUD;S LRM=$S($D(^LRE(DA(1),5,DA,2)):^(2),1:"""");"
^DIE(68,"DR",2,65.54,9)="4.1//^S X=LRX(1);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,4.1"" D EN^LRUD;I X S B=$P(^DD(65.54,4.1,0),U,3) D F^LRBLU S LRX(1)=X;4.11//^S X=LRX(2);S O=$P(LRM,U,9) I O]"""",O'=X S Z=""65.54,4.11"" D EN^LRUD;"
^DIE(68,"DR",2,65.54,10)="I X S B=$P(^DD(65.54,4.11,0),U,3) D F^LRBLU S LRX(2)=X;I $D(LRH(3)),'LRH(3) S Y=4.2;4.15//^S X=LRX(3);S O=$P(LRM,U,10) I O]"""",O'=X S Z=""65.54,4.15"" D EN^LRUD;S LRX(3)=$S(X'[""@"":X,1:"""");4.2;"
^DIE(68,"DR",2,65.54,11)="I LRM(1),X<LRM(1) W $C(7),!,""Start time must be after arrival time ("",LRM(2),"")"",! S Y=4.2;S O=$P(LRM,U,2),LRT=X I O]"""",O'=X S Z=""65.54,4.2"" D EN^LRUD;4.3;"
^DIE(68,"DR",2,65.54,12)="I X<LRT W $C(7),!,""Collection completed time must be later than started time"",! S Y=4.3;S O=$P(LRM,U,3) I O]"""",O'=X S Z=""65.54,4.3"" D EN^LRUD;4.5//^S X=LRX(4);S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,4.5"" D EN^LRUD;S LRX(4)=X;"
^DIE(68,"DR",2,65.54,13)="4.6//^S X=LRX(5);S O=$P(LRM,U,6) I O]"""",O'=X S Z=""65.54,4.6"" D EN^LRUD;S LRX(5)=X,LRX(6)=LRX(4)-LRX(5)/1.06\1;4.7//^S X=LRX(6);S O=$P(LRM,U,7) I O]"""",O'=X S Z=""65.54,4.7"" D EN^LRUD;4.8///^S X=""`""_DUZ;"
^DIE(68,"DR",2,65.54,14)="S O=$P(LRM,U,8) I O]"""",O'=X S Z=""65.54,4.8"" D EN^LRUD;"
^DIE(68,"DR",3,65.55)=".01"
^DIE(69,0)="LRBLIABRH^2910127.0951^^65^^^^"
^DIE(69,"DR",1,65)="S:'$D(DIE(""NO^"")) DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;S X=^LRD(65,DA,0),LRABO=$P(X,U,7),LRRH=$P(X,U,8),LRT=$P(^LAB(66,$P(X,U,4),0),U,9);W !,""ABO: "",LRABO,""  Rh: "",LRRH;"
^DIE(69,"DR",1,65,1)="I LRABO=""""!(LRRH="""") W !,""ABO &/or Rh not on file"",!,""CAUTION  !! No checking can be done."",!;@10;S LRM=$S($D(^LRD(65,DA,10)):^(10),1:""""),LRM(1)=$P(LRM,""^"",2),LRM=$P(LRM,""^"");10;S LRW(10)=X;"
^DIE(69,"DR",1,65,2)="I LRM]"""",LRM'=X S Z=""65,10"",O=LRM D EN^LRUD S $P(^LRD(65,DA,10),""^"",4)="""";S LRM=X;10.2///^S X=""`""_DUZ;I LRM(1)]"""",LRM(1)'=X S Z=""65,10.2"",O=LRM(1) D EN^LRUD;"
^DIE(69,"DR",1,65,3)="I LRT&(LRM=""""!(LRM=""ND"")) W *7,"" required for this unit"" K ^LRD(65,DA,10) S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U),10,DA)="""",Y=""@10"";I LRABO]""""&(LRM=""""!(LRM=""ND"")) S LRM=LRABO;"
^DIE(69,"DR",1,65,4)="I LRABO]"""",LRM]"""",LRM'=LRABO W *7,!,LRM,"" not the ABO group on record"",!,"" Present testing OK "" S %=1 D YN^LRU I %=2 K ^LRD(65,DA,10) S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U),10,DA)="""",Y=""@10"";"
^DIE(69,"DR",1,65,5)="I LRABO="""",LRM]"""",LRM'=""ND"" S W=^LRD(65,DA,0),^(0)=$P(W,U)_U_$P(W,U,2)_U_$P(W,U,3)_U_$P(W,U,4)_U_$P(W,U,5)_U_$P(W,U,6)_U_LRM_U_$P(W,U,8,99);S:'$D(LRQ) Y=""@11"";10.3;@11;"
^DIE(69,"DR",1,65,6)="S LRM=$S($D(^LRD(65,DA,11)):^(11),1:""""),LRM(1)=$P(LRM,""^"",2),LRM=$P(LRM,""^"");11;S LRW(11)=X;I LRM]"""",LRM'=X S Z=""65,11"",O=LRM D EN^LRUD S $P(^LRD(65,DA,11),""^"",4)="""";S LRM=X;11.2///^S X=""`""_DUZ;"
^DIE(69,"DR",1,65,7)="I LRM(1)]"""",LRM(1)'=X S Z=""65,11.2"",O=LRM(1) D EN^LRUD;I LRT&(LRRH[""NEG"")&(LRM=""""!(LRM=""ND"")) W *7,"" required for this unit"" K ^LRD(65,DA,11) S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U),11,DA)="""",Y=""@11"";"
^DIE(69,"DR",1,65,8)="I LRRH=""""&(LRM=""""!(LRM=""ND"")) S LRM=LRRH;I LRRH]"""",LRM]"""",LRM'=LRRH W *7,!,LRM,"" not the Rh type on record"",!,"" Present testing OK "" S %=1 D YN^LRU I %=2 K ^LRD(65,DA,11) S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U),11,DA)="""",Y=""@11"";"
^DIE(69,"DR",1,65,9)="I LRRH="""",LRM]"""",LRM'=""ND"" S W=^LRD(65,DA,0),^(0)=$P(W,U)_U_$P(W,U,2)_U_$P(W,U,3)_U_$P(W,U,4)_U_$P(W,U,5)_U_$P(W,U,6)_U_$P(W,U,7)_U_LRM_U_$P(W,U,9,99);S:'$D(LRQ) Y=0;11.3;"
^DIE(70,0)="LRBLIXR^2970509.1336^^65^^^2971010"
^DIE(70,"DR",1,65)="S DIE(""NO^"")=1;S:'$D(DUZ)#2 Y=0;2;I '$D(DA(1)) S Y=""@10"";I $D(PNODE) D PAT1^LRBLAUD I '$D(BNODE) D BLD1^LRBLAUD;3;I $D(NODE),'$D(^LRD(65,DA,3,LRI,0)) D REL1^LRBLAUD;@10;"
^DIE(70,"DR",1,65,1)="S LRM=$S($D(^LRD(65,LR(""UNIT""),8)):^LRD(65,LR(""UNIT""),8),1:"""");8;S O=$P(LRM,U) I O'=X S Z=""65,8"" D EN^LRUD;8.1;S O=$P(LRM,U,2) I O'=X S Z=""65,8.1"" D EN^LRUD;8.3;S O=$P(LRM,U,3) I O'=X S Z=""65,8.3"" D EN^LRUD;"
^DIE(70,"DR",1,65,2)="K BEGB1,BLD1,BNODE,PNODE,NODE,REL,AFTREL,LRIEN,LRDFNEL,BEGREL,PAT,BEGPAT,AFTPAT,BLD,BEGBLD,AFTBLD,LRM,BEGP,AFTP,BEGB,AFTB,BEGR,AFTR;"
^DIE(70,"DR",2,65.01)="S LRM=$S($D(^LRD(65,DA(1),2,DA,0)):^(0),1:"""") I $D(LRM) S PNODE=LRM,LRIEN=DA(1),LRDFN=DA D PAT^LRBLAUD,BLD3^LRBLAUD;.01;S O=$P(LRM,U) I O'=X S Z=""65.01,.01"" D EN^LRUD;.02;S O=$P(LRM,U,2) I O'=X S Z=""65.01,.02"" D EN^LRUD;1;"
^DIE(70,"DR",2,65.01,1)="I $D(BNODE) D BLD1^LRBLAUD;"
^DIE(70,"DR",2,65.03)="S LRM=$S($D(^LRD(65,DA(1),3,DA,0)):^(0),1:"""") I $D(LRM) S LRIEN=DA(1),NODE=LRM,LRI=DA D REL^LRBLAUD;.01;S O=$P(LRM,U) I O'=X S Z=""65.03,.01"" D EN^LRUD;.02;S O=$P(LRM,U,2) I O'=X S Z=""65.03,.02"" D EN^LRUD;.03;"
^DIE(70,"DR",2,65.03,1)="S O=$P(LRM,U,3) I O'=X S Z=""65.03,.03"" D EN^LRUD;.04;S O=$P(LRM,U,4) I O'=X S Z=""65.03,.04"" D EN^LRUD;.05;S O=$P(LRM,U,5) I O'=X S Z=""65.03,.05"" D EN^LRUD;.06;S O=$P(LRM,U,6) I O'=X S Z=""65.03,.06"" D EN^LRUD;.07;"
^DIE(70,"DR",2,65.03,2)="S O=$P(LRM,U,7) I O'=X S Z=""65.03,.07"" D EN^LRUD;"
^DIE(70,"DR",3,65.02)="S LRM=$S($D(^LRD(65,DA(2),2,DA(1),1,DA,0)):^(0),1:"""") I $D(LRM) D BLD^LRBLAUD S BNODE=LRM;.01;S O=$P(LRM,U) I O'=X S Z=""65.02,.01"" D EN^LRUD;.02;S O=$P(LRM,U,2) I O'=X S Z=""65.02,.02"" D EN^LRUD;.03;"
^DIE(70,"DR",3,65.02,1)="S O=$P(LRM,U,3) I O'=X S Z=""65.02,.03"" D EN^LRUD;.04;S O=$P(LRM,U,4) I O'=X S Z=""65.02,.04"" D EN^LRUD;.09;S O=$P(LRM,U,9) I O'=X S Z=""65.02,.09"" D EN^LRUD;.05;S O=$P(LRM,U,5) I O'=X S Z=""65.02,.05"" D EN^LRUD;.07;"
^DIE(70,"DR",3,65.02,2)="S O=$P(LRM,U,7) I O'=X S Z=""65.02,.07"" D EN^LRUD;.08;S O=$P(LRM,U,8) I O'=X S Z=""65.02,.08"" D EN^LRUD;.1;S O=$P(LRM,U,10) I O'=X S Z=""65.02,.1"" D EN^LRUD;"
^DIE(71,0)="LRBLIDTM^2970903.1113^^65^^^2971028"
^DIE(71,"DIAB",1,1,65.06,0)="ALL"
^DIE(71,"DIAB",1,1,65.07,0)="ALL"
^DIE(71,"DR",1,65)="S DIE(""NO^"")=1;S:'$D(DUZ)#2 Y=0;S LRO=$S($D(^LRD(65,DA,4)):^(4),1:""""),LRO(1)=$P(LRO,U) I LRO(1)]"""" S LRIEN=DA D DISP^LRBLAUD1,MOD^LRBLAUD1;I LRO(1)="""",'$P(LRO,""^"",2) W $C(7),!,""No disposition entry to edit"" S Y=0;"
^DIE(71,"DR",1,65,1)="W $C(7),!!,""DELETION (not editing) of MODIFY disposition will result in deletion"",!,""of ALL entries in the MODIFIED TO/FROM field."";"
^DIE(71,"DR",1,65,2)="W $C(7),!!,""DELETION or EDITING of TRANSFUSE disposition will also"",!,"" delete the Patient's Transfusion Record for this unit."",!;4.1;S LRW(9)=X,O=$P(LRO,""^"") I O'=X S Z=""65,4.1"" D EN^LRUD;I LRW(9)="""" S Y=""@1"";"
^DIE(71,"DR",1,65,3)="I LRW(9)'=LRO(1) S $P(^LRD(65,DA,4),U)=LRW(9);4.2;S LRQ=X,LRI=9999999-X,O=$P(LRO,""^"",2);I LRW(9)'=LRO(1) S Y=4.3;I O'=X S Z=""65,4.2"" D EN^LRUD;4.3///^S X=""`""_DUZ;I LRW(9)'=LRO(1) S Y=4.4;"
^DIE(71,"DR",1,65,4)="S O=$P(LRO,""^"",3) I O'=X S Z=""65,4.3"" D EN^LRUD;4.4;I LRW(9)'=LRO(1) S Y=4.5;S O=$P(LRO,""^"",4) I O'=X S Z=""65,4.4"" D EN^LRUD;4.5;5;S LRW=$S($D(^LRD(65,DA,6)):^(6),1:"""");6.1;S (LRT,O)=$P(LRW,""^""),LRT(1)=X;"
^DIE(71,"DR",1,65,5)="I LRT(1),$D(^LRD(65,DA,8)),+^(8),+^(8)'=LRT(1) W $C(7),!?23,""AUTOLOGOUS or DIRECTED DONATION. MUST BE SAME PT AS BEFORE"" S LRT(1)=^LRD(65,DA,6),^(6)=LRT_U_$P(LRT(1),U,2,99),Y=6.1;I LRW(9)'=LRO(1) S Y=6.2;"
^DIE(71,"DR",1,65,6)="I O'=X S Z=""65,6.1"" D EN^LRUD;6.2;S LRW(2)=X;I LRW(9)'=LRO(1) S Y=6.6;S O=$P(LRW,""^"",2) I O'=X S Z=""65,6.2"" D EN^LRUD;6.6;I LRW(9)'=LRO(1) S Y=6.3;S O=$P(LRW,U,6) I O]"""",O'=X S Z=""65,6.6"" D EN^LRUD;6.3;S LRW(3)=X;"
^DIE(71,"DR",1,65,7)="I LRW(9)'=LRO(1) S Y=6.7;S O=$P(LRW,""^"",3) I O'=X S Z=""65,6.3"" D EN^LRUD;6.7;I LRW(9)'=LRO(1) S Y=6.5;S O=$P(LRW,U,7) I O'=X S Z=""65,6.7"" D EN^LRUD;6.5;S O=$P(LRW,""^"",5) I O'=X S Z=""65,6.5"" D EN^LRUD;"
^DIE(71,"DR",1,65,8)="I X'=1 S $P(^LRD(65,DA,6),U,8)="""",O=$P(LRW,""^"",8),X="""",Z=""65,6.8"" D:O'=X EN^LRUD S Y=7;6.8;I LRW(9)'=LRO(1) S Y=7;S O=$P(LRW,""^"",8) I O'=X S Z=""65,6.8"" D EN^LRUD;7;9;I $D(NODE2) D MOD3^LRBLAUD1;I LRW(9)'=LRO(1) S Y=""@2"";"
^DIE(71,"DR",1,65,9)="D K^LRBLAUD1 S Y=0;@1;S X=""`""_DUZ,O=$P(LRO,U,3),Z=""65,4.3"" D EN^LRUD;S X=$P(LRO,U,2) K:X ^LRD(65,""AB"",X,DA);K ^LRD(65,DA,4),^(5),^(6),^(7);I LRO(1)=""MO"" D MOD2^LRBLAUD1 K ^LRD(65,DA,9);I '$D(^LRD(65,DA,4)) D DISP1^LRBLAUD1;"
^DIE(71,"DR",1,65,10)="D K^LRBLAUD1 S Y=0;@2;I LRO(1)]"""",$D(^LRD(65,DA,4)) D DISP4^LRBLAUD1;I LRO(1)=""T"" K ^LRD(65,DA,6),^(7);D K^LRBLAUD1;"
^DIE(71,"DR",2,65.06)=".01"
^DIE(71,"DR",2,65.07)=".01"
^DIE(71,"DR",2,65.091)="S LRW=$S($D(^LRD(65,DA(1),9,DA,0)):^(0),1:"""");I $D(LRW) S NODE2=LRW;.01;S O=$P(LRW,""^"") I O'=X S Z=""65.091,.01"" D EN^LRUD;.02;S O=$P(LRW,""^"",2) I O'=X S Z=""65.091,.02"" D EN^LRUD;.03;"
^DIE(71,"DR",2,65.091,1)="S O=$P(LRW,""^"",3) I O'=X S Z=""65.091,.03"" D EN^LRUD;"
^DIE(72,0)="LRBLILG^2950907.1333^^65^^^2960801"
^DIE(72,"DR",1,65)="S DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;K O,W,LRO,LRW;S LRW=^LRD(65,DA,0);.16;S O=$P(LRW,U,16) I O'=X S Z=""65,.16"" D EN^LRUD;.02;S O=$P(LRW,U,2) I O'=X S Z=""65,.02"" D EN^LRUD;.03;S O=$P(LRW,U,3) I O'=X S Z=""65,.03"" D EN^LRUD;.04;"
^DIE(72,"DR",1,65,1)="S (LRO,O)=$P(LRW,U,4),W=X I O'=X S Z=""65,.04"" D EN^LRUD;I $D(^LRD(65,DA,6)) S X=^(6),A=+X,B=$P(X,U,4) I A,B,W,$D(^LR(A,1,6,B,0)) S $P(^(0),U,2)=W;"
^DIE(72,"DR",1,65,2)="S (A,B)=0 S:LRO A=$P(^LAB(66,LRO,0),U,25) S:W B=$P(^LAB(66,W,0),U,25) I '(A+B) S Y=""@1"";S LRO=$S($D(^LRD(65,DA,8)):^(8),1:0);8;S O=$P(LRO,U) I O]"""",O'=X S Z=""65,8"" D EN^LRUD;8.1;S O=$P(LRO,U,2) I O]"""",O'=X S Z=""65,8.1"" D EN^LRUD;"
^DIE(72,"DR",1,65,3)="8.3;S O=$P(LRO,U,3) I O]"""",O'=X S Z=""65,8.3"" D EN^LRUD;@1;.05;S O=$P(LRW,U,5) I O'=X S Z=""65,.05"" D EN^LRUD;.06;S O=$P(LRW,U,6) I O'=X S Z=""65,.06"" D EN^LRUD;.07;S O=$P(LRW,U,7) I O'=X S Z=""65,.07"" D EN^LRUD;.08;"
^DIE(72,"DR",1,65,4)="S O=$P(LRW,U,8) I O'=X S Z=""65,.08"" D EN^LRUD;.1;S O=$P(LRW,U,10) I O'=X S Z=""65,.1"" D EN^LRUD;.11;S O=$P(LRW,U,11) I O'=X S Z=""65,.11"" D EN^LRUD;.12;S O=$P(LRW,U,12) I O'=X S Z=""65,.12"" D EN^LRUD;.14;"
^DIE(72,"DR",1,65,5)="S O=$P(LRW,U,14) I O'=X S Z=""65,.14"" D EN^LRUD;"
^DIE(73,0)="LRBLIAG^2910127.0954^^65^^^^"
^DIE(73,"DR",1,65)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";K LRW;S LR=DA F LRW=0:0 S LRW=$O(^LRD(65,LR,60,LRW)) Q:'LRW  S LRW(60,LRW)=65.04;@6;60;W !;F LRW=0:0 S LRW=$O(^LRD(65,LR,70,LRW)) Q:'LRW  S LRW(70,LRW)=65.05;@7;70;W !;"
^DIE(73,"DR",1,65,1)="S LRW=$P(^LRD(65,LR,0),""^"",15);91;I LRW]"""",X'=LRW S O=LRW,Z=""65,91"" D EN^LRUD;W !;F LRW=0:0 S LRW=$O(^LRD(65,LR,80,LRW)) Q:'LRW  S LRW(80,LRW)=65.08;@8;80;W !;F LRW=0:0 S LRW=$O(^LRD(65,LR,90,LRW)) Q:'LRW  S LRW(90,LRW)=65.09;@9;"
^DIE(73,"DR",1,65,2)="90;"
^DIE(73,"DR",2,65.04)=".01;I $D(^LRD(65,LR,70,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRD(65,LR,60,X) S X=^LRD(65,LR,60,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@6"";"
^DIE(73,"DR",2,65.05)=".01;I $D(^LRD(65,LR,60,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be absent & present "" K ^LRD(65,LR,70,X) S X=^LRD(65,LR,70,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@7"";"
^DIE(73,"DR",2,65.08)=".01;I $D(^LRD(65,LR,90,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRD(65,LR,80,X) S X=^LRD(65,LR,80,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@8"";"
^DIE(73,"DR",2,65.09)=".01;I $D(^LRD(65,LR,80,X)) W !,$P(^LAB(61.3,X,0),U),"" antigen cannot be present & absent "" K ^LRD(65,LR,90,X) S X=^LRD(65,LR,90,0),Z=$O(^(0)),^(0)=$P(X,U,1,2)_U_Z_U_$S(Z="""":Z,1:($P(X,U,4)-1)) S Y=""@9"";"
^DIE(74,0)="LRBLPABRH^2950628.1232^^63^^^^"
^DIE(74,"DIAB",1,2,63.199,0)="ALL"
^DIE(74,"DR",1,63)="I '$D(LRI)!('$D(LRDFN)) S Y=0;1///^S X=$C(96)_LRI;"
^DIE(74,"DR",2,63.01)="S DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;S X=^LR(DA(1),0),LRABO=$P(X,U,5),LRRH=$P(X,U,6);W !,""Patient record ABO: "",LRABO,""  Rh: "",LRRH,!;I LRABO=""""!(LRRH="""") W !,""ABO &/or Rh not on file"",!,""CAUTION!!  No checking can be done."",!;"
^DIE(74,"DR",2,63.01,1)="@10;S LRM=$G(^LR(DA(1),""BB"",DA,10)),LRM(2)=$P(LRM,U,2),LRM(0)=$P(LRM,U);10;I LRABO="""",X]"""" W $C(7),?40,""Are you sure "" S %=2 D YN^LRU I %'=1 S:$D(^LR(DA(1),""BB"",DA,10)) $P(^(10),U)="""" S Y=$S(%=2:10,1:0);"
^DIE(74,"DR",2,63.01,2)="S LRM=X I LRABO=""""&(LRM=""""!(LRM=""ND"")) S:LRM(0)="""" LRM=LRABO;I LRABO]"""",LRM'=LRABO W $C(7),!,LRM,"" not the ABO group on record"" S O=LRM(0),Z=""63.01,10"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,10),U)=LRM(0),Y=""@10"";"
^DIE(74,"DR",2,63.01,3)="I LRM(0)]"""",LRM(0)'=LRM W $C(7),!,LRM,"" not the ABO group of present specimen"" S O=LRM(0),Z=""63.01,10"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,10),U)=LRM(0),Y=""@10"";I LRABO="""",LRM]"""",LRM'=""ND"" S $P(^LR(DA(1),0),U,5)=LRM;"
^DIE(74,"DR",2,63.01,4)="10.2///^S X=""`""_DUZ;I LRM(2)]"""",LRM(2)'=X S O=LRM(2),Z=""63.01,10.2"" D EN^LRUD;I LRM=LRM(0),LRM(2)]"""",LRM(2)'=DUZ S X=""no results changed"",O=LRM(2),Z=""63.01,10.2"" D EN^LRUD;S LR(3)=LRM;S:$D(LRC) Y=""@11"";10.3;@11;"
^DIE(74,"DR",2,63.01,5)="S LRM=$G(^LR(DA(1),""BB"",DA,11)),LRM(2)=$P(LRM,U,2),LRM(0)=$P(LRM,U);11;I LRRH="""",X]"""" W $C(7),?40,""Are you sure "" S %=2 D YN^LRU I %'=1 S:$D(^LR(DA(1),""BB"",DA,11)) $P(^(11),U)="""" S Y=$S(%=2:11,1:0);"
^DIE(74,"DR",2,63.01,6)="S LRM=X I LRRH=""""&(LRM=""""!(LRM=""ND"")) S:LRM(0)="""" LRM=LRRH;I LRRH]"""",LRM'=LRRH W $C(7),!,LRM,"" not the Rh type on record"" S O=LRM(0),Z=""63.01,11"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,11),U)=LRM(0),Y=""@11"";"
^DIE(74,"DR",2,63.01,7)="I LRM(0)]"""",LRM(0)'=LRM W $C(7),!,LRM,"" not the Rh type on present specimen"" S O=LRM(0),Z=""63.01,11"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,11),U)=LRM(0),Y=""@11"";I LRRH="""",LRM]"""",LRM'=""ND"" S $P(^LR(DA(1),0),U,6)=LRM;"
^DIE(74,"DR",2,63.01,8)="11.2///^S X=""`""_DUZ;I LRM(2)]"""",LRM(2)'=X S O=LRM(2),Z=""63.01,11.2"" D EN^LRUD;I LRM=LRM(0),LRM(2)]"""",LRM(2)'=DUZ S X=""no results changed"",O=LRM(2),Z=""63.01,11.2"" D EN^LRUD;S LR(4)=LRM;S:$D(LRC) Y=""@1"";11.3;@1;"
^DIE(74,"DR",2,63.01,9)="I $D(^XUSEC(""LRBLSUPER"",DUZ)),'$D(LRE),$O(^LR(DA(1),""BB"",DA,99,0)) S Y=""@99"";S Y=0;@99;.99;"
^DIE(74,"DR",3,63.199)=".01"
^DIE(75,0)="LRBLPOLD^3011102.0947^^63^^^3011102"
^DIE(75,"DR",1,63)="S:'$D(DUZ) Y=0;S DIE(""NO^"")=""OUTOK"";S X=^LR(DA,0),LRABO=$P(X,""^"",5),LRRH=$P(X,U,6);I LRABO]"""" S Y=""@5"";.05;@5;I LRRH]"""" S Y=""@6"";.06;@6;S LR=DA F W=0:0 S W=$O(^LR(LR,1.7,W)) Q:W<1  S W(1.7,W)=63.075;W !;.075;W !;S LRBLAI=0;"
^DIE(75,"DR",1,63,1)="F I=0:0 S I=$O(^LR(LR,1.7,I)) Q:I<1  S LRBLAI=1 W !,?3,""ANTIBODIES IDENTIFIED: ""_$P(^LAB(61.3,I,0),""^"")_""       SNOMED CODE: ""_$P(^LAB(61.3,I,0),""^"",2);I LRBLAI W !!,?3,""IS THIS CORRECT"" S %=1 D YN^LRU I %'=1 S Y=""@6"";"
^DIE(75,"DR",1,63,2)="F W=0:0 S W=$O(^LR(LR,1,W)) Q:W<1  S W(1,W)=63.13;@7;W !;.07;F W=0:0 S W=$O(^LR(LR,1.5,W)) Q:W<1  S W(1.5,W)=63.016;@8;W !;.08;F W=0:0 S W=$O(^LR(LR,2,W)) Q:W<1  S W(2,W)=63.14;@2;W !;.2;"
^DIE(75,"DR",1,63,3)="F W=0:0 S W=$O(^LR(LR,2.1,W)) Q:W<1  S W(2.1,W)=63.141;@3;W !;.21;W !;.076;"
^DIE(75,"DR",2,63.016)=".01;I $D(^LR(LR,1,X)) W !,$P(^LAB(61.3,X,0),U,1),"" antigen cannot be absent &  present "" K ^LR(LR,1.5,X) S X=^LR(LR,1.5,0),^(0)=$P(X,U,1,2)_""^^""_($P(X,U,4)-1) S Y=""@8"";"
^DIE(75,"DR",2,63.075)=".01;"
^DIE(75,"DR",2,63.13)=".01;I $D(^LR(LR,1.5,X)) W !,$P(^LAB(61.3,X,0),U,1),"" antigen cannot be present & absent "" K ^LR(LR,1,X) S X=^LR(LR,1,0),^(0)=$P(X,U,1,2)_""^^""_($P(X,U,4)-1) S Y=""@7"";"
^DIE(75,"DR",2,63.14)=".01;I $D(^LR(LR,2.1,X)) W !,$P(^LAB(61.3,X,0),U,1),"" antigen cannot be present & absent "" K ^LR(LR,2,X) S X=^LR(LR,2,0),^(0)=$P(X,U,1,2)_""^^""_($P(X,U,4)-1) S Y=""@2"";"
^DIE(75,"DR",2,63.141)=".01;I $D(^LR(LR,2,X)) W !,$P(^LAB(61.3,X,0),U,1),"" antigen cannot be absent & present "" K ^LR(LR,2.1,X) S X=^LR(LR,2.1,0),^(0)=$P(X,U,1,2)_""^^""_($P(X,U,4)-1) S Y=""@3"";"
^DIE(76,0)="LRAPTOP^2860709^^61^^^^"
^DIE(76,"DR",1,61)=".01;2;6;3;4;.07;"
^DIE(77,0)="LRAPMOR^2890917.1602^^61.1^^^^"
^DIE(77,"DIAB",1,1,61.11,0)="ALL"
^DIE(77,"DR",1,61.1)=".01;2;6;3;"
^DIE(77,"DR",2,61.11)=".01"
^DIE(78,0)="LRAPETI^2860709^^61.2^^^^"
^DIE(78,"DIAB",1,1,61.21,0)="ALL"
^DIE(78,"DR",1,61.2)=".01;2;6;7;4;5;"
^DIE(78,"DR",2,61.21)=".01:7"
^DIE(78,"DR",3,61.24)=".01"
^DIE(79,0)="LRAPDIS^2860709^^61.4^^^^"
^DIE(79,"DIAB",1,1,61.411,0)="ALL"
^DIE(79,"DR",1,61.4)=".01;2;6;3;5;"
^DIE(79,"DR",2,61.411)=".01:7"
^DIE(79,"DR",3,61.421)=".01"
^DIE(80,0)="LRAPFUN^2860709^^61.3^^^^"
^DIE(80,"DIAB",1,1,61.32,0)="ALL"
^DIE(80,"DR",1,61.3)=".01;2;6;3;5;"
^DIE(80,"DR",2,61.32)=".01:7"
^DIE(80,"DR",3,61.33)=".01"
^DIE(81,0)="LRAPPRO^2891230.142^^61.5^^^^"
^DIE(81,"DIAB",1,1,61.51,0)="ALL"
^DIE(81,"DIAB",1,1,61.52,0)="ALL"
^DIE(81,"DR",1,61.5)=".01;2;2.3;6;3;5;"
^DIE(81,"DR",2,61.51)=".01"
^DIE(81,"DR",2,61.52)=".01:7"
^DIE(81,"DR",3,61.53)=".01"
^DIE(82,0)="LRAPOCC^2860709^^61.6^^^^"
^DIE(82,"DIAB",1,1,61.62,0)="ALL"
^DIE(82,"DR",1,61.6)=".01;2;6;3;5;"
^DIE(82,"DR",2,61.62)=".01:6"
^DIE(83,0)="LRAPTR^2860709^^61^^^^"
^DIE(83,"DR",1,61)="5;"
^DIE(83,"DR",2,61.02)=".01;1;2;3;4;5;6;"
^DIE(84,0)="LRAPMR^2860709^^61.1^^^^"
^DIE(84,"DR",1,61.1)="5;"
^DIE(84,"DR",2,61.12)=".01;1;2;3;4;5;6;7;"
^DIE(85,0)="LRAPER^2860709^^61.2^^^^"
^DIE(85,"DR",1,61.2)="5;"
^DIE(85,"DR",2,61.21)=".01;1;2;3;4;5;6;7;"
^DIE(86,0)="LRAPFR^2860709^^61.3^^^^"
^DIE(86,"DR",1,61.3)="5;"
^DIE(86,"DR",2,61.32)=".01;1;2;3;4;5;6;7;"
^DIE(87,0)="LRAPDR^2860709^^61.4^^^^"
^DIE(87,"DR",1,61.4)="5;"
^DIE(87,"DR",2,61.411)=".01;1;2;3;4;5;6;7;"
^DIE(88,0)="LRAPPR^2860709^^61.5^^^^"
^DIE(88,"DR",1,61.5)="5;"
^DIE(88,"DR",2,61.52)=".01;1;2;3;4;5;6;7;"
^DIE(89,0)="LRAPOR^2860709^^61.6^^^^"
^DIE(89,"DR",1,61.6)="5;"
^DIE(89,"DR",2,61.62)=".01;1;2;3;4;5;6;"
^DIE(90,0)="LRBLSCREEN^3011102.0946^^63^^^3011102"
^DIE(90,"DIAB",1,2,63.199,0)="ALL"
^DIE(90,"DIAB",1,2,63.48,0)="ALL"
^DIE(90,"DR",1,63)="I '$D(LRI)!('$D(LRDFN)) S Y=0;1///^S X=$C(96)_LRI;@100;W !!,""Enter '?' for list of antibodies identified to date."",!;.075;W !;S LRBLAI=0;"
^DIE(90,"DR",1,63,1)="F I=0:0 S I=$O(^LR(DA,1.7,I)) Q:I<1  S LRBLAI=1 W !,?3,""ANTIBODIES IDENTIFIED: ""_$P(^LAB(61.3,I,0),U)_""       SNOMED CODE: ""_$P(^LAB(61.3,I,0),U,2);I LRBLAI W !!,?3,""IS THIS CORRECT"" S %=1 D YN^LRU I %'=1 S Y=""@100"";"
^DIE(90,"DR",2,63.01)="S DIE(""NO^"")=""OUTOK"";S:'$D(DUZ)#2 Y=0;S X=^LR(DA(1),0),LRABO=$P(X,U,5),LRRH=$P(X,U,6);W !,""Patient record ABO: "",LRABO,""  Rh: "",LRRH,!;I LRABO=""""!(LRRH="""") W !,""ABO &/or Rh not on file"",!,""CAUTION !! No checking can be done."",!;"
^DIE(90,"DR",2,63.01,1)="@10;S LRM=$G(^LR(DA(1),""BB"",DA,10)),LRM(2)=$P(LRM,U,2),LRM(0)=$P(LRM,U);10;I LRABO="""",X]"""" W $C(7),?40,""Are you sure "" S %=2 D YN^LRU I %'=1 S:$D(^LR(DA(1),""BB"",DA,10)) $P(^(10),U)="""" S Y=$S(%=2:10,1:0);"
^DIE(90,"DR",2,63.01,2)="S LRM=X I LRABO=""""&(LRM=""""!(LRM=""ND"")) S:LRM(0)="""" LRM=LRABO;I LRABO]"""",LRM'=LRABO W $C(7),!,LRM,"" not the ABO group on record"" S O=LRM(0),Z=""63.01,10"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,10),U)=LRM(0),Y=""@10"";"
^DIE(90,"DR",2,63.01,3)="I LRM(0)]"""",LRM(0)'=LRM W $C(7),!,LRM,"" not the ABO group of present specimen"" S O=LRM(0),Z=""63.01,10"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,10),U)=LRM(0),Y=""@10"";I LRABO="""",LRM]"""",LRM'=""ND"" S $P(^LR(DA(1),0),U,5)=LRM;"
^DIE(90,"DR",2,63.01,4)="10.2///^S X=""`""_DUZ;I LRM(2)]"""",LRM(2)'=X S O=LRM(2),Z=""63.01,10.2"" D EN^LRUD;I LRM=LRM(0),LRM(2)]"""",LRM(2)'=DUZ S X=""no results changed"",O=LRM(2),Z=""63.01,10.2"" D EN^LRUD;S LR(3)=LRM;S:$D(LRC) Y=""@11"";10.3;@11;"
^DIE(90,"DR",2,63.01,5)="S LRM=$G(^LR(DA(1),""BB"",DA,11)),LRM(2)=$P(LRM,U,2),LRM(0)=$P(LRM,U);11;I LRRH="""",X]"""" W $C(7),?40,""Are you sure "" S %=2 D YN^LRU I %'=1 S:$D(^LR(DA(1),""BB"",DA,11)) $P(^(11),U)="""" S Y=$S(%=2:11,1:0);"
^DIE(90,"DR",2,63.01,6)="S LRM=X I LRRH=""""&(LRM=""""!(LRM=""ND"")) S:LRM(0)="""" LRM=LRRH;I LRRH]"""",LRM'=LRRH W $C(7),!,LRM,"" not the Rh type on record"" S O=LRM(0),Z=""63.01,11"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,11),U)=LRM(0),Y=""@11"";"
^DIE(90,"DR",2,63.01,7)="I LRM(0)]"""",LRM(0)'=LRM W $C(7),!,LRM,"" not the Rh type on present specimen"" S O=LRM(0),Z=""63.01,11"" D A^LRUD W ! I LR(""YN"")=2 S $P(^LR(DA(1),""BB"",DA,11),U)=LRM(0),Y=""@11"";I LRRH="""",LRM]"""",LRM'=""ND"" S $P(^LR(DA(1),0),U,6)=LRM;"
^DIE(90,"DR",2,63.01,8)="11.2///^S X=""`""_DUZ;I LRM(2)]"""",LRM(2)'=X S O=LRM(2),Z=""63.01,11.2"" D EN^LRUD;I LRM=LRM(0),LRM(2)]"""",LRM(2)'=DUZ S X=""no results changed"",O=LRM(2),Z=""63.01,11.2"" D EN^LRUD;S LR(4)=LRM;S:$D(LRC) Y=""@12"";11.3;@12;S:$D(LRS) Y=""@13"";"
^DIE(90,"DR",2,63.01,9)="S LRM=$S($D(^LR(DA(1),""BB"",DA,2)):^(2),1:"""");2.1;S:X]"""" LRW(2.1)=1;S O=$P(LRM,U) I O]"""",O'=X S Z=""63.01,2.1"",L(""BB"")=1 D EN^LRUD;2.4;S:X]"""" LRW(2.4)=1;S O=$P(LRM,U,4) I O]"""",O'=X S Z=""63.01,2.4"",L(""BB"")=1 D EN^LRUD;2.6;"
^DIE(90,"DR",2,63.01,10)="S:X]"""" LRW(2.6)=1;S O=$P(LRM,U,6) I O]"""",O'=X S Z=""63.01,2.6"",L(""BB"")=1 D EN^LRUD;2.9;S LR(2.9)=X;S O=$P(LRM,U,9) I O]"""",O'=X S Z=""63.01,2.9"",L(""BB"")=1 D EN^LRUD;S:X=""P"" LRMED=1;S:$D(LRC) Y=""@3"";2.91;@3;S:LR(2.9)'=""P"" Y=""@13"";3;"
^DIE(90,"DR",2,63.01,11)="@13;S LRM=$S($D(^LR(DA(1),""BB"",DA,6)):$P(^(6),U,1),1:"""");6;S O=LRM I O]"""",O'=X S Z=""63.01,6"",L(""BB"")=1 D EN^LRUD;S:X'=""P"" Y=""@15"";@16;7;W !;S LRBLSA=0;"
^DIE(90,"DR",2,63.01,12)="F I=0:0 S I=$O(^LR(DA(1),""BB"",DA,5,I)) Q:I<1  S LRBLSA=1 W !,?3,""SERUM ANTIBODY: ""_$P(^LAB(61.3,I,0),U)_""       SNOMED CODE: ""_$P(^LAB(61.3,I,0),U,2);I LRBLSA W !!,?3,""IS THIS CORRECT"" S %=1 D YN^LRU I %'=1 S Y=""@16"";@15;"
^DIE(90,"DR",2,63.01,13)="S:$D(LRC) Y=""@14"";8;@14;I '$D(^XUSEC(""LRBLSUPER"",DUZ))!($D(LRE))!('$O(^LR(LRDFN,""BB"",LRI,99,0))) S Y=""@99"";.99;@99;"
^DIE(90,"DR",2,63.075)=".01;.02;"
^DIE(90,"DR",3,63.012)=".01;S:X LRW=1;"
^DIE(90,"DR",3,63.199)=".01"
^DIE(90,"DR",3,63.46)="S LRM=$S($D(^LR(DA(2),""BB"",DA(1),5,DA,0)):^(0),1:"""");.01;S:X LRW=1;S O=$P(LRM,U) I O]"""",O'=X S Z=""63.46,.01"" D EN^LRUD;"
^DIE(90,"DR",3,63.48)=".01"
^DIE(91,0)="LR DEFAULT^2870224^^63^^^^"
^DIE(91,"DR",1,63)="5;"
^DIE(91,"DR",2,63.05)="12;"
^DIE(91,"DR",3,63.3)=".01;1;2;5;10;15;20;25;30;35;40;45;50;55;60;65;70;75;80;85;90;95;100;105;110;115;120;125;130;135;140;145;150;151;152;153;154;155;156;157;158;159;160;"
^DIE(91,"ROUOLD")="LRMIDZ"
^DIE(92,0)="LRBLPCMBS^2990910.1055^^63^^^2991202"
^DIE(92,"DIAB",1,1,63.075,0)="ALL"
^DIE(92,"DIAB",1,2,63.199,0)="ALL"
^DIE(92,"DIAB",1,2,63.48,0)="ALL"
^DIE(92,"DR",1,63)="I '$D(LRI)!('$D(LRDFN)) S Y=0;1///^S X=$C(96)_LRI;W !!,""Enter '?' for list of antibodies identified to date."",!;.075;"
^DIE(92,"DR",2,63.01)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";S LRM=$S($D(^LR(DA(1),""BB"",DA,2)):^(2),1:"""");2.1;S:X]"""" LRW(2.1)=1;S O=$P(LRM,U) I O]"""",O'=X S Z=""63.01,2.1"",L(""BB"")=1 D EN^LRUD;2.4;S:X]"""" LRW(2.4)=1;"
^DIE(92,"DR",2,63.01,1)="S O=$P(LRM,U,4) I O]"""",O'=X S Z=""63.01,2.4"",L(""BB"")=1 D EN^LRUD;2.6;S:X]"""" LRW(2.6)=1;S O=$P(LRM,U,6) I O]"""",O'=X S Z=""63.01,2.6"",L(""BB"")=1 D EN^LRUD;2.9;S LR(2.9)=X;S O=$P(LRM,U,9) I O]"""",O'=X S Z=""63.01,2.9"",L(""BB"")=1 D EN^LRUD;"
^DIE(92,"DR",2,63.01,2)="S:X=""P"" LRMED=1;S:$D(LRC) Y=""@3"";2.91;@3;S:LR(2.9)'=""P"" Y=""@13"";3;@13;S LRM=$S($D(^LR(DA(1),""BB"",DA,6)):$P(^(6),U),1:"""");6;S O=LRM I O]"""",O'=X S Z=""63.01,6"",L(""BB"")=1 D EN^LRUD;S:X'=""P"" Y=""@15"";7;@15;S:$D(LRC) Y=""@14"";8;@14;"
^DIE(92,"DR",2,63.01,3)="I '$D(^XUSEC(""LRBLSUPER"",DUZ))!($D(LRE))!('$O(^LR(LRDFN,""BB"",LRI,99,0))) S Y=""@99"";.99;@99;"
^DIE(92,"DR",2,63.075)=".01:.02"
^DIE(92,"DR",3,63.012)=".01;S:X LRW=1;"
^DIE(92,"DR",3,63.199)=".01"
^DIE(92,"DR",3,63.46)="S LRM=$S($D(^LR(DA(2),""BB"",DA(1),5,DA,0)):^(0),1:"""");.01;S:X LRW=1;S O=$P(LRM,U) I O]"""",O'=X S Z=""63.46,.01"" D EN^LRUD;"
^DIE(92,"DR",3,63.48)=".01"
^DIE(93,0)="LRAUTOACC^2870716^^62.4^^^^"
^DIE(93,"DR",1,62.4)="5///LOG;W ?$X+5,""DONE"";"
^DIE(94,0)="LRAUTOLL^2870716^^62.4^^^^"
^DIE(94,"DR",1,62.4)="5///LLIST;W ?$X+5,""DONE"";"
^DIE(95,0)="LR OTHER^2870714^^63^^^^"
^DIE(95,"DR",1,63)="5;"
^DIE(95,"DR",2,63.05)="12;"
^DIE(95,"DR",3,63.3)="S Y=200;5;5.1;5.2;10;10.1;10.2;15;15.1;15.2;20;20.1;20.2;25;25.1;25.2;30;30.1;30.2;35;35.1;35.2;40;40.1;40.2;45;45.1;45.2;50;50.1;50.2;55;55.1;55.2;60;60.1;60.2;65;65.1;65.2;70;70.1;70.2;75;75.1;75.2;80;80.1;80.2;85;85.1;85.2;90;"
^DIE(95,"DR",3,63.3,1)="90.1;90.2;95;95.1;95.2;100;100.1;100.2;105;105.1;105.2;110;110.1;110.2;115;115.1;115.2;120;120.1;120.2;125;125.1;125.2;130;130.1;130.2;135;135.1;135.2;140;140.1;140.2;145;145.1;145.2;150;150.1;150.2;151;151.1;151.2;152;152.1;152.2;"
^DIE(95,"DR",3,63.3,2)="153;153.1;153.2;154;154.1;154.2;155;155.1;155.2;156;156.1;156.2;157;157.1;157.2;158;158.1;158.2;159;159.1;159.2;160;160.1;160.2;200;"
^DIE(95,"DR",4,63.32)=".01;"
^DIE(96,0)="LRBLSPP^2880803^^63^^^^"
^DIE(96,"DIAB",1,2,63.186,0)="ALL"
^DIE(96,"DR",1,63)="S:'$D(DUZ) Y=0;S:'$D(^XUSEC(""LRBLSUPER"",DUZ)) Y=0;S:'$D(LRI) Y=0;S DIE(""NO^"")=""OUTOK"";.085///^S X=$C(96)_LRI;.076;"
^DIE(96,"DR",2,63.017)="S LRM=$S($D(^LR(DA(1),1.6,DA,0)):^(0),1:"""");.01;S O=$P(LRM,U) I O,X'=O S Z=""63.017,.01"" D EN^LRUD;.04;S O=$P(LRM,U,4) I O]"""",O'=X S Z=""63.017,.04"" D EN^LRUD;.02;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""63.017,.02"" D EN^LRUD;.03;"
^DIE(96,"DR",2,63.017,1)="S O=$P(LRM,U,3) I O]"""",O'=X S Z=""63.017,.03"" D EN^LRUD;.05;S O=$P(LRM,U,5) I O]"""",O'=X S Z=""63.017,.05"" D EN^LRUD;.06;S O=$P(LRM,U,6) I O]"""",O'=X S Z=""63.017,.06"" D EN^LRUD;.07;"
^DIE(96,"DR",2,63.017,2)="S O=$P(LRM,U,7) I O]"""",O'=X S Z=""63.017,.07"" D EN^LRUD;.08;S O=$P(LRM,U,8) I O]"""",O'=X S Z=""63.017,.08"" D EN^LRUD;1;"
^DIE(96,"DR",3,63.186)=".01"
^DIE(97,0)="LRBLPT^2870730^^63^^^^"
^DIE(97,"DR",1,63)="S:'$D(LRI) Y=0;S:'$D(DUZ)#2 Y=0;.085///^S X=$C(96)_LRI;"
^DIE(97,"DR",2,63.017)=".04///^S X=""`""_DUZ;.09///^S X=1;.02;.03;.05;.06;.07;.08;1;2;"
^DIE(98,0)="LRAPHDR^2940401.1503^^69.2^^^^"
^DIE(98,"DIAB",1,1,69.211,0)="ALL"
^DIE(98,"DIAB",1,1,69.212,0)="ALL"
^DIE(98,"DIAB",1,1,69.22,0)="ALL"
^DIE(98,"DR",1,69.2)=".03;.04;.13;.14;S:$P(^LRO(68,DA,0),U)'=""CYTOPATHOLOGY"" Y=.05;.3;.05;.06;.07;.08;.09;.21;.1;S:$P(^LRO(68,DA,0),U)'=""AUTOPSY"" Y=10;6;10;11;12;S:$P(^LRO(68,DA,0),U)'=""EM"" Y=0;.11;.12;"
^DIE(98,"DR",2,69.211)=".01:.02"
^DIE(98,"DR",2,69.212)=".01"
^DIE(98,"DR",2,69.22)=".01:.02"
^DIE(98,"DR",2,69.26)=".01;"
^DIE(99,0)="LRBLDNEWM^2930402.0657^^65.5^^^^"
^DIE(99,"DIAB",1,1,65.51,0)="ALL"
^DIE(99,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S LR(""SSN"")=$P($G(^LAB(69.9,1,8,1,0)),U,5);.09///^S X=""`""_DUZ;S:'LR(""SSN"") Y=.14;.13;.14;1.1;1.5;1.6;1.7;1.8;2;"
^DIE(99,"DR",2,65.51)=".01"
^DIE(100,0)="LRBLDCPN^2900822.1047^^65.5^^^^"
^DIE(100,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;I '$D(LRI)!('$D(LRH(3))) S Y=0;S DIE(""NO^"")=""OUTOK"";F X=1:1:6 S:'$D(LRX(X)) LRX(X)="""";5///^S X=$C(96)_LRI;"
^DIE(100,"DR",2,65.54)="I $P(^LRE(DA(1),0),U,10),""AT""'[$P(^LRE(DA(1),5,DA,0),U,3) W *7,"" Permanent deferral"",!?5,""and donation not autologous or therapeutic"",! S Y=0;S LRM=$S($D(^LRE(DA(1),5,DA,0)):^(0),1:"""");"
^DIE(100,"DR",2,65.54,1)="S LRM(1)=$P(LRM,U,13),LRM(2)=LRM(1)_""000"",LRM(2)=$E(LRM(2),4,5)_""/""_$E(LRM(2),6,7)_""/""_$E(LRM(2),2,3)_$S(LRM(2)[""."":""@""_$E(LRM(2),9,10)_"":""_$E(LRM(2),11,12),1:"""");.01//^S X=""TODAY"";S O=$P(LRM,U) I O'=X S Z=""65.54,.01"" D EN^LRUD;"
^DIE(100,"DR",2,65.54,2)=".011///^S X=""`""_DUZ;S O=$P(LRM,U,8) I O]"""",O'=X S Z=""65.54,.011"" D EN^LRUD;5;S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,5"" D EN^LRUD;6;S O=$P(LRM,U,9) I O]"""",O'=X S Z=""65.54,6"" D EN^LRUD;3//^S X=""NONE"";"
^DIE(100,"DR",2,65.54,3)="S O=$P(LRM,U,3) I O]"""",O'=X S Z=""65.54,3"" D EN^LRUD;4;S O=$P(LRM,U,4) I O]"""",O'=X S Z=""65.54,4"" D EN^LRUD;S LRM=$S($D(^LRE(DA(1),5,DA,2)):^(2),1:"""");4.1//^S X=LRX(1);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,4.1"" D EN^LRUD;"
^DIE(100,"DR",2,65.54,4)="I X S B=$P(^DD(65.54,4.1,0),U,3) D F^LRBLU S LRX(1)=X;4.11//^S X=LRX(2);S O=$P(LRM,U,9) I O]"""",O'=X S Z=""65.54,4.11"" D EN^LRUD;I X S B=$P(^DD(65.54,4.11,0),U,3) D F^LRBLU S LRX(2)=X;I $D(LRH(3)),'LRH(3) S Y=4.2;4.15//^S X=LRX(3);"
^DIE(100,"DR",2,65.54,5)="S O=$P(LRM,U,10) I O]"""",O'=X S Z=""65.54,4.15"" D EN^LRUD;S LRX(3)=$S(X'[""@"":X,1:"""");4.2;I LRM(1),X<LRM(1) W *7,!,""Start time must be after arrival time ("",LRM(2),"")"",! S Y=4.2;"
^DIE(100,"DR",2,65.54,6)="S O=$P(LRM,U,2),LRT=X I O]"""",O'=X S Z=""65.54,4.2"" D EN^LRUD;4.3;I X<LRT W *7,!,""Collection completed time must be later than started time"",! S Y=4.3;S O=$P(LRM,U,3) I O]"""",O'=X S Z=""65.54,4.3"" D EN^LRUD;4.5//^S X=LRX(4);"
^DIE(100,"DR",2,65.54,7)="S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,4.5"" D EN^LRUD;S LRX(4)=X;4.6//^S X=LRX(5);S O=$P(LRM,U,6) I O]"""",O'=X S Z=""65.54,4.6"" D EN^LRUD;S LRX(5)=X,LRX(6)=LRX(4)-LRX(5)/1.06\1;4.7//^S X=LRX(6);"
^DIE(100,"DR",2,65.54,8)="S O=$P(LRM,U,7) I O]"""",O'=X S Z=""65.54,4.7"" D EN^LRUD;4.8///^S X=""`""_DUZ;S O=$P(LRM,U,8) I O]"""",O'=X S Z=""65.54,4.8"" D EN^LRUD;"
^DIE(101,0)="LRBLDT^2951209.1345^^65.5^^^^"
^DIE(101,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S:'$D(LRI) Y=0;5///^S X=$C(96)_LRI;"
^DIE(101,"DR",2,65.54)="S:'$D(LRF(12)) Y=""@13"";S LRM=$S($D(^LRE(DA(1),5,DA,12)):^(12),1:""""),Z=""@13"" D S^LRBLDT;12;I X]"""" K ^LRE(""AT"",LRQ(1),12,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,12"" D EN^LRUD;12.2///^S X=""`""_DUZ;"
^DIE(101,"DR",2,65.54,1)="S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,12.2"" D EN^LRUD;S:$D(LRC) Y=""@13"";12.3;I X]"""" S A=12 D R^LRBLDT;@13;S:'$D(LRF(13)) Y=""@14"";S LRM=$S($D(^LRE(DA(1),5,DA,13)):^(13),1:""""),Z=""@14"" D S^LRBLDT;13;"
^DIE(101,"DR",2,65.54,2)="I X]"""" K ^LRE(""AT"",LRQ(1),13,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,13"" D EN^LRUD;13.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,13.2"" D EN^LRUD;S:$D(LRC) Y=""@14"";13.3;I X]"""" S A=13 D R^LRBLDT;@14;"
^DIE(101,"DR",2,65.54,3)="S:'$D(LRF(14)) Y=""@15"";S LRM=$S($D(^LRE(DA(1),5,DA,14)):^(14),1:""""),Z=""@15"" D S^LRBLDT;14;I X]"""" K ^LRE(""AT"",LRQ(1),14,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,14"" D EN^LRUD;14.2///^S X=""`""_DUZ;"
^DIE(101,"DR",2,65.54,4)="S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,14.2"" D EN^LRUD;S:$D(LRC) Y=""@15"";14.3;I X]"""" S A=14 D R^LRBLDT;@15;S:'$D(LRF(15)) Y=""@16"";S LRM=$S($D(^LRE(DA(1),5,DA,15)):^(15),1:""""),Z=""@16"" D S^LRBLDT;15;"
^DIE(101,"DR",2,65.54,5)="I X]"""" S LR(65.54,15)=X K ^LRE(""AT"",LRQ(1),15,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,15"" D EN^LRUD;15.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,15.2"" D EN^LRUD;S:$D(LRC) Y=""@16"";15.3;I X]"""" S A=15 D R^LRBLDT;"
^DIE(101,"DR",2,65.54,6)="@16;S:'$D(LRF(16)) Y=""@17"";S LRM=$S($D(^LRE(DA(1),5,DA,16)):^(16),1:""""),Z=""@17"" D S^LRBLDT;16;I X]"""" K ^LRE(""AT"",LRQ(1),16,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,16"" D EN^LRUD;16.2///^S X=""`""_DUZ;"
^DIE(101,"DR",2,65.54,7)="S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,16.2"" D EN^LRUD;S:$D(LRC) Y=""@17"";16.3;I X]"""" S A=16 D R^LRBLDT;@17;S:'$D(LRF(17)) Y=""@18"";S LRM=$S($D(^LRE(DA(1),5,DA,17)):^(17),1:""""),Z=""@18"" D S^LRBLDT;17;"
^DIE(101,"DR",2,65.54,8)="I X]"""" K ^LRE(""AT"",LRQ(1),17,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,17"" D EN^LRUD;17.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,17.2"" D EN^LRUD;S:$D(LRC) Y=""@18"";17.3;I X]"""" S A=17 D R^LRBLDT;@18;"
^DIE(101,"DR",2,65.54,9)="S:'$D(LRF(18)) Y=""@19"";S LRM=$S($D(^LRE(DA(1),5,DA,18)):^(18),1:""""),Z=0 D S^LRBLDT;18;I X]"""" K ^LRE(""AT"",LRQ(1),18,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,18"" D EN^LRUD;18.2///^S X=""`""_DUZ;"
^DIE(101,"DR",2,65.54,10)="S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,18.2"" D EN^LRUD;S:$D(LRC) Y=""@19"";18.3;I X]"""" S A=18 D R^LRBLDT;@19;S:'$D(LRF(19)) Y=""@20"";S LRM=$S($D(^LRE(DA(1),5,DA,19)):^(19),1:""""),Z=0 D S^LRBLDT;19;I X]"""" K ^LRE(""AT"",LRQ(1),19,LRQ,LRI);"
^DIE(101,"DR",2,65.54,11)="S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,19"" D EN^LRUD;19.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,19.2"" D EN^LRUD;S:$D(LRC) Y=""@20"";19.3;I X]"""" S A=19 D R^LRBLDT;@20;S:'$D(LRF(20)) Y=0;"
^DIE(101,"DR",2,65.54,12)="S LRM=$S($D(^LRE(DA(1),5,DA,20)):^(20),1:""""),Z=0 D S^LRBLDT;20;I X]"""" K ^LRE(""AT"",LRQ(1),20,LRQ,LRI);S O=$P(LRM,U) I O]"""",O'=X S Z=""65.54,20"" D EN^LRUD;20.2///^S X=""`""_DUZ;S O=$P(LRM,U,2) I O]"""",O'=X S Z=""65.54,20.2"" D EN^LRUD;"
^DIE(101,"DR",2,65.54,13)="S:$D(LRC) Y=0;20.3;I X]"""" S A=20 D R^LRBLDT;"
^DIE(102,0)="LRBLDUC^2910228.143^^65.5^^^^"
^DIE(102,"DR",1,65.5)="S:'$D(DUZ)#2 Y=0;S:'$D(LRI) Y=0;5///^S X=$C(96)_LRI;"
^DIE(102,"DR",2,65.54)="S LRM=$S($D(^LRE(DA(1),5,DA,10)):^(10),1:""""),Z=""@1"" D S^LRBLDUC;I DUZ=$P(LRM,U,2) S Y=""@2"";10.4;S O=$P(LRM,U,4),LRX=X I O]"""",O'=X S Z=""65.54,10.4"" D EN^LRUD;"
^DIE(102,"DR",2,65.54,1)="I LRX]"""",LRX'=$P(LRM,U) W *7,!,""Recheck not equal to original interpretation"";10.5///^S X=""`""_DUZ;S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,10.5"" D EN^LRUD;S:$D(LRC) Y=""@1"";10.6;@1;"
^DIE(102,"DR",2,65.54,2)="S LRM=$S($D(^LRE(DA(1),5,DA,11)):^(11),1:""""),Z=0 D S^LRBLDUC;I DUZ=$P(LRM,U,2) S Y=""@2"";11.4;S O=$P(LRM,U,4),LRX=X I O]"""",O'=X S Z=""65.54,11.4"" D EN^LRUD;"
^DIE(102,"DR",2,65.54,3)="I LRX]"""",LRX'=$P(LRM,U) W *7,!,""Recheck not equal to original interpretation"";11.5///^S X=""`""_DUZ;S O=$P(LRM,U,5) I O]"""",O'=X S Z=""65.54,11.5"" D EN^LRUD;S:$D(LRC) Y=0;11.6;S Y=0;@2;"
^DIE(102,"DR",2,65.54,4)="W *7,!!,""Tech entering recheck results cannot be the same tech entering the"",!,""original interpretation."";"
^DIE(103,0)="LRBLPCS^2970327.1404^^63^^^2971103"
^DIE(103,"DR",1,63)="S:'$D(DUZ)#2 Y=0;I '$D(LRCPT)!('$D(LRV)) S Y=0;S DIE(""NO^"")=""OUTOK"";.084;"
^DIE(103,"DR",2,63.084)=".01;S C=X,LRN=$P(^LAB(66,X,0),""^"",9);K ^LR(LRDFN,1.8,X,2);.08///^S X=""`""_DUZ;D:$G(LRO)=1 EN2^LRBLPCS;D:LRN=1 ^LRBLPCS1;.02///^S X=LRV;D EN3^LRBLPCS;.09;.03;.04;D:LRCPT EN^LRBLPCSS;.05;S:'$D(LRR) Y=0;2.1;2.2;2.3;K LRR;"
^DIE(104,0)="LRAPLIB^2860709^^95^^^^"
^DIE(104,"DR",1,95)=".01;.02;.03;.04;.05;1;"
^DIE(105,0)="LRBLPAG^2961107.0642^^63^^^2970814"
^DIE(105,"DR",1,63)="I '$D(LRI)!('$D(LRDFN)) S Y=0;1///^S X=$C(96)_LRI;"
^DIE(105,"DR",2,63.01)="S:'$D(DUZ)#2 Y=0;S DIE(""NO^"")=""OUTOK"";K LRM;F LRM=0:0 S LRM=$O(^LR(LRDFN,""BB"",LRI,1.1,LRM)) Q:'LRM  S LRM(1.1,LRM)=63.011;@1;6.1;W !;F LRM=0:0 S LRM=$O(^LR(LRDFN,""BB"",LRI,1.2,LRM)) Q:'LRM  S LRM(1.2,LRM)=63.0112;@3;6.2;"
^DIE(105,"DR",3,63.011)=".01;S A=1.2,B=1.5,C=1.1 D P^LRBLU S:'$D(X) Y=""@1"";S:$D(LRC) Y=""@2"";.02;@2;"
^DIE(105,"DR",3,63.0112)=".01;S A=1.1,B=1,C=1.2 D P^LRBLU S:'$D(X) Y=""@3"";S:$D(LRC) Y=0;.02;"
^DIE(106,0)="LRBLBP^2920224.1033^^66^^^^"
^DIE(106,"DIAB",1,1,66.021,0)="ALL"
^DIE(106,"DIAB",1,1,66.03,0)="ALL"
^DIE(106,"DIAB",1,1,66.04,0)="ALL"
^DIE(106,"DIAB",1,1,66.08,0)="ALL"
^DIE(106,"DIAB",1,2,66.02,0)="ALL"
^DIE(106,"DR",1,66)="S:'$D(DUZ)#2 Y=0;S:'$D(LR) LR=0;.01;.02;.03;.04;.05;.055;.06;.07;.08;.09;.1;.11;.12;.13;.135;.14;.15;.16;.18;.19;S:LR Y=.23;.21;.22;.23;.24;.25;.26;1;2;3;4;5;6;7;8;"
^DIE(106,"DR",2,66.01)=".01;.02;.03;.04;.05;.06;.07;.08;.09;.1;.11;.12;1;"
^DIE(106,"DR",2,66.021)=".01"
^DIE(106,"DR",2,66.03)=".01:.02"
^DIE(106,"DR",2,66.04)=".01:.03"
^DIE(106,"DR",2,66.08)=".01:.03"
^DIE(106,"DR",3,66.02)=".01:.02"
^DIE(107,0)="LRCYWK^2910430.1433^^63^^^^"
^DIE(107,"DR",1,63)="S:'$D(LRI) Y=0;S:'$D(DUZ)#2 Y=0;9///^S X=$C(96)_LRI;"
^DIE(107,"DR",2,63.09)=".012;"
^DIE(107,"DR",3,63.902)="1;2;3;4;5;"
^DIE(107,"DR",4,63.9024)=".01;1;"
^DIE(107,"DR",4,63.9025)=".01;1;"
^DIE(107,"DR",4,63.9121)=".01;1;"
^DIE(107,"DR",4,63.922)=".01;1;"
^DIE(107,"DR",4,63.924)=".01;1;"
^DIE(107,"DR",5,63.90241)=".01;.02;.03;.04;.05;"
^DIE(107,"DR",5,63.90251)=".01;.02;.03;.04;.05;"
^DIE(107,"DR",5,63.9122)=".01//^S X=""PAP STAIN"";.02;.03;.04;.05;"
^DIE(107,"DR",5,63.923)=".01//^S X=""H & E STAIN"";.02;.03;.04;.05;"
^DIE(107,"DR",5,63.9241)=".01;.02;.03;.04;.05;"
^DIE(108,0)="LRCYTOEDIT^2920427.1441^^60^^^^"
^DIE(108,"DIAB",1,1,60.02,0)="ALL"
^DIE(108,"DIAB",1,1,60.12,0)="ALL"
^DIE(108,"DIAB",1,1,60.13,0)="ALL"
^DIE(108,"DR",1,60)="4;3;51;500.1;500;200;320;"
^DIE(108,"DR",2,60.02)=".01:.02"
^DIE(108,"DR",2,60.12)=".01:3"
^DIE(108,"DR",2,60.13)=".01;2"
^DIE(109,0)="LR INSTRUMENT LOAD^2921016.14^^64.2^^^^"
^DIE(109,"DR",1,64.2)=".01;1;2;4;6;11;12;"
^DIE(110,0)="LR WKLD EDIT^2970508.0638^^64^^^^"
^DIE(110,"DIAB",1,1,64.01,0)="ALL"
^DIE(110,"DR",1,64)=".01;1;6;7;8;12;13;19;20;"
^DIE(110,"DR",2,64.01)=".01:2"
^DIE(110,"DR",2,64.019)=".01;"
^DIE(111,0)="LR WKLD CODE SUFFIX LOAD^2920715.1101^^64.2^^^^"
^DIE(111,"DR",1,64.2)=".01;1;2;4;11;12;16;"
^DIE(112,0)="LR WKLD STD/QC/REPS^2910409.1359^^64.1^^^^"
^DIE(112,"DR",1,64.1)=".03;"
^DIE(112,"DR",2,64.11)="1;"
^DIE(112,"DR",3,64.111)="2;3;4;5;"
^DIE(113,0)="LR WKLD COMMENTS^2910321.1119^^64.1^^^^"
^DIE(113,"DIAB",1,1,64.13,0)="ALL"
^DIE(113,"DR",1,64.1)=".01;1;2;.03;"
^DIE(113,"DR",2,64.11)="2;"
^DIE(113,"DR",2,64.13)=".01:1"
^DIE(113,"DR",3,64.131)=".01"
^DIE(114,0)="LR WKLD MANUAL INPUT^2910208.1732^^64.1^^^^"
^DIE(114,"DR",1,64.1)=".01;.03;"
^DIE(114,"DR",2,64.11)="1;"
^DIE(114,"DR",3,64.111)="5;"
^DIE(115,0)="LR WKLD STATS ON^2920323.1455^^69.9^^^^"
^DIE(115,"DR",1,69.9)="17;"
^DIE(116,0)="LR WKLD STATS ON ACC AREA^2920323.1513^^68^^^^"
^DIE(116,"DR",1,68)="10;"
^DIE(117,0)="LRLOAD^2840502^^68.2^^^^"
^DIE(117,"DR",1,68.2)=".02;.03;.04;.05;.06;50;"
^DIE(117,"DR",2,68.23)=".01:3"
^DIE(117,"DR",3,68.24)=".01:1"
^DIE(117,"DR",3,68.25)=".01"
^DIE(118,0)="LRBLPTXR^2930628.0719^^63^^^^"
^DIE(118,"DR",1,63)="S:'$D(DUZ)#2 Y=0;I '$D(LRI)!('$D(LRDFN)) S Y=0;S DIE(""NO^"")=1;S DA(1)=LRDFN;.086///^S X=$C(96)_LRI;"
^DIE(118,"DR",2,63.0171)=".01;S O=$P(LR,U) I O]"""",O'=X S Z=""63.0171,.01"" D EN^LRUD;.02;S O=$P(LR,U,2) I O]"""",O'=X S Z=""63.0171,.02"" D EN^LRUD;.03///^S X=DUZ;S O=$P(LR,U,3) I O]"""",O'=X S Z=""63.0171,.03"" D EN^LRUD;1;"
^DIE(118,"DR",3,63.172)=".01;"
^DIE(119,0)="LR VERIFY WKLD CODE^2930203.1655^^60^^^^"
^DIE(119,"DR",1,60)="500;"
^DIE(119,"DR",2,60.12)=".01;2;3;"
^DIE(120,0)="LR EXECUTE WKLD CODES^2930203.1723^^62.07^^^^"
^DIE(120,"DIAB",1,1,62.09,0)="ALL"
^DIE(120,"DR",1,62.07)="6;500;"
^DIE(120,"DR",2,62.09)=".01;2"
^DIE(121,0)="ENPMCLOSE^2970410.1637^^6920^^^2970422"
^DIE(121,"DIAB",1,0,6920,1)="EQUIPMENT ID#:"
^DIE(121,"DIAB",1,1,6920.02,0)="ALL"
^DIE(121,"DIAB",1,1,6920.035,0)="ALL"
^DIE(121,"DIAB",4,0,6920,1)="36//TODAY"
^DIE(121,"DR",1,6920)=".01;1;3;@1;16.5;35;35.2;38;I $D(^ENG(6920,DA,5)),$P(^(5),U,4)>0,$P(^(5),U,8)[""D"" W !,""We have material cost charged to a deferred PMI. Is this OK"" S %=2 D YN^DICN I %=2 S Y=""@1"";47;39;S:'$$ASKCC^ENWOUTL(D0) Y=""@2"";"
^DIE(121,"DR",1,6920,1)="^6914^ENG(6914,^^S I(0,0)=D0 S Y(1)=$S($D(^ENG(6920,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@2;Q;36//^S X=DT;S:X'>0 Y=0;32///^S X=""COMPLETED"";"
^DIE(121,"DR",2,6914)="53;"
^DIE(121,"DR",2,6920.02)=".01:2"
^DIE(121,"DR",2,6920.035)=".01"
^DIE(122,0)="ENEQPMP^2970603.1002^^6911^^^2970603"
^DIE(122,"DIAB",1,1,6911.02,0)="ALL"
^DIE(122,"DR",1,6911)=".01;.5;1;3;"
^DIE(122,"DR",2,6911.01)=".01;1;2;2.6;2.7;3;"
^DIE(122,"DR",2,6911.02)=".01"
^DIE(122,"DR",3,6911.13)=".01;1;2;3;4;S:""^BA^TA^""'[(U_$P(^ENG(6911,DA(2),4,DA(1),2,DA,0),U)_U) Y=""@1"";5//^S X=1700+$E(DT,1,3);@1;"
^DIE(123,0)="ENEQPMP^2970603.0958^^6914^^^2970605"
^DIE(123,"DR",1,6914)="30;"
^DIE(123,"DR",2,6914.04)=".01;1;2;2.6;2.7;3;"
^DIE(123,"DR",3,6914.43)=".01;1;2;3;4;S:""^BA^TA^""'[(U_$P(^ENG(6914,DA(2),4,DA(1),2,DA,0),U)_U) Y=""@1"";5//^S X=1700+$E(DT,1,3);@1;"
^DIE(124,0)="ENWONEW^2970317.1326^^6920^^^2970411"
^DIE(124,"DIAB",1,1,6920.035,0)="ALL"
^DIE(124,"DIAB",2,0,6920,0)="1//NOW"
^DIE(124,"DIAB",12,0,6920,0)="10//TODAY"
^DIE(124,"DR",1,6920)="Q;1//^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);2//COMPUTER;18;3;4;6;32//IN PROGRESS;7;8;Q;10//^S X=DT;16;Q;17//A;23;35;35.5;40;"
^DIE(124,"DR",2,6920.035)=".01"
^DIE(125,0)="ENWOCLOSE^2961009.1522^^6920^^^2970313"
^DIE(125,"DIAB",1,1,6920.02,0)="ALL"
^DIE(125,"DIAB",1,1,6920.035,0)="ALL"
^DIE(125,"DIAB",3,0,6920,0)="EQUIPMENT ID#:"
^DIE(125,"DIAB",14,0,6920,0)="36//TODAY"
^DIE(125,"DR",1,6920)="18;S:'$$ASKCC^ENWOUTL(D0) Y=""@1"";^6914^ENG(6914,^^S I(0,0)=D0 S Y(1)=$S($D(^ENG(6920,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@1;16.5;35;38;Q;47;39;Q;40;Q;36//^S X=DT;S:X'>0 Y=0;"
^DIE(125,"DR",1,6920,1)="32///^S X=""COMPLETED"";"
^DIE(125,"DR",2,6914)="53;"
^DIE(125,"DR",2,6920.02)=".01:2"
^DIE(125,"DR",2,6920.035)=".01"
^DIE(126,0)="ENWOBIOCLSE^2961009.1531^^6920^^^2970324"
^DIE(126,"DIAB",1,1,6920.02,0)="ALL"
^DIE(126,"DIAB",1,1,6920.035,0)="ALL"
^DIE(126,"DIAB",3,0,6920,0)="EQUIPMENT ID#:"
^DIE(126,"DIAB",17,0,6920,0)="36//TODAY"
^DIE(126,"DR",1,6920)="18;S:'$$ASKCC^ENWOUTL(D0) Y=""@1"";^6914^ENG(6914,^^S I(0,0)=D0 S Y(1)=$S($D(^ENG(6920,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@1;21.9;22.3;22.5;16.5;35;38;Q;47;39;Q;40;Q;36//^S X=DT;S:X'>0 Y=0;"
^DIE(126,"DR",1,6920,1)="32///^S X=""COMPLETED"";"
^DIE(126,"DR",2,6914)="53;"
^DIE(126,"DR",2,6920.02)=".01:2"
^DIE(126,"DR",2,6920.035)=".01"
^DIE(127,0)="ENEQENTER^2980924.1221^^6914^^^2980924"
^DIE(127,"DR",1,6914)="1;4;5;18;15;3;19;6;11;10;20.1;S ENX=X;I ""^L^M^""'[(U_ENX_U) S Y=""@1"";12.5;@1;I ENX=""L"" S Y=""@2"";12;@2;K ENX;13;14;16;13.5;7;51;20;2;21;24;25;26;19.5;I X'=""Y"",'$D(^ENG(6914,DA,7)) S Y=""@3"";"
^DIE(127,"DR",1,6914,1)="I X=""N"" S $P(^ENG(6914,DA,7),U,2)="""" S Y=""@3"";19.6;@3;27;52;81;82;53//LIKE NEW;60;34;35;61;38;62;63;64;40;S:'$D(^XUSEC(""ENEDSPEX"",DUZ)) Y=0;70;"
^DIE(128,0)="ENWODISAP^2950927.1032^^6920^^^2970113"
^DIE(128,"DR",1,6920)="6;40;36//T;S:X'>0 Y=0;32///^S X=""DISAPPROVED"";"
^DIE(129,0)="ENWOWARD^2961227.1235^^6920^^^2970409"
^DIE(129,"DR",1,6920)=".05;Q;Q;2//^S X=""C"";18;3;6;32//^S X=""PENDING"";7;8;17//^S X=""A"";23//^S X="""" I $D(^VA(200,DUZ,5)),$P(^(5),U)]"""" S X=$P(^DIC(49,$P(^VA(200,DUZ,5),U),0),U);40;"
^DIE(129,"DR",1,6920,1)="X ""S X=$O(^ENG(6910.2,""""B"""",""""NOTIFY W.O. REQUESTOR"""",0)),Y=$S(X'?1.N:""""@99"""",$P($G(^ENG(6910.2,X,0)),U,2)=""""A"""":""""32.1"""",1:""""@99"""")"";32.1//^S X=""COMPLETED STATUS"";@99;"
^DIE(130,0)="ENWOWARDXFER^2961209.1724^^6920^^^2970219"
^DIE(130,"DIAB",1,1,6920.035,0)="ALL"
^DIE(130,"DR",1,6920)="3;6;16;17;10//T;18;35.5;35;40;"
^DIE(130,"DR",2,6920.035)=".01"
^DIE(131,0)="ENSITE^2890411^SEse#^6910^^SEse#"
^DIE(131,"DR",1,6910)="1;2;3;4;5;6;"
^DIE(132,0)="ENSPENTER^2930421.0855^^6928^^^2930519^"
^DIE(132,"DIAB",1,1,6928.01,0)="ALL"
^DIE(132,"DIAB",1,1,6928.03,0)="ALL"
^DIE(132,"DIAB",1,1,6928.04,0)="ALL"
^DIE(132,"DR",1,6928)=".01;.5;.6;1;1.5;2;2.1;2.6;3;3.5;3.7;4.5;4.7;4.9;5;5.5;6;7;7.2;7.5;8;8.2;8.5;9;9.2;9.5;10;11;11.5;12;13;13.5;14;15;16;17;"
^DIE(132,"DR",2,6928.01)=".01"
^DIE(132,"DR",2,6928.03)=".01"
^DIE(132,"DR",2,6928.04)=".01:2"
^DIE(133,0)="ENSWOPT^2930323.1154^^6910.2^5^^2930528"
^DIE(133,"DR",1,6910.2)="N DIWL,DIWR,DIWF;K ^UTILITY($J,""W"");S DIWL=5,DIWR=$S($D(IOM):IOM-5,1:75),DIWF=""WN"";F I=0:0 S I=$O(^ENG(6910.2,DA,1,I)) Q:I'>0  S X=^(I,0) D ^DIWP K X;D ^DIWW;2;"
^DIE(134,0)="ENGSURVEY^2940829.1556^^6916^^^^"
^DIE(134,"DIAB",1,2,6916.08,0)="ALL"
^DIE(134,"DR",1,6916)=".01;2;3;4;5;6;7;8;9;10;13;12;15;16;17;18;19;20;"
^DIE(134,"DR",2,6916.07)=".01;1;1.5;2;3;3.5;4;5;5.5;6;7;8;"
^DIE(134,"DR",2,6916.1)=".01;1;2;3;4;5;6;7;8;9;"
^DIE(134,"DR",2,6916.11)=".01;1;2;3;3.5;4;5;6;"
^DIE(134,"DR",3,6916.08)=".01"
^DIE(134,"DR",3,6916.09)=".01;1;2;"
^DIE(135,0)="ENCSN^2960221.0837^^6917^^^^"
^DIE(135,"DR",1,6917)=".01;1;2;3;4;"
^DIE(136,0)="ENWOXFER^2930317.1629^^6920^485^^2930329"
^DIE(136,"DIAB",1,1,6920.02,0)="ALL"
^DIE(136,"DIAB",1,1,6920.035,0)="ALL"
^DIE(136,"DR",1,6920)="Q;3;4;6;32//IN PROGRESS;7;8;Q;10//TODAY;16.5;Q;17//A;18;35.5;35;23;40;"
^DIE(136,"DR",2,6920.02)=".01:2"
^DIE(136,"DR",2,6920.035)=".01"
^DIE(137,0)="ENWOEDIT^2981021.144^^6920^^^2981105"
^DIE(137,"DIAB",1,1,6920.02,0)="ALL"
^DIE(137,"DIAB",1,1,6920.035,0)="ALL"
^DIE(137,"DIAB",3,0,6920,1)="10//TODAY"
^DIE(137,"DIAB",7,0,6920,0)="EQUIPMENT ID#:"
^DIE(137,"DR",1,6920)="W !,""WORK ORDER #: ""_$P($G(^ENG(6920,DA,0)),U)_"" (no editing)"";1;7;8;18;S:'$$ASKCC^ENWOUTL(D0) Y=""@3"";^6914^ENG(6914,^^S I(0,0)=D0 S Y(1)=$S($D(^ENG(6920,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@3;"
^DIE(137,"DR",1,6920,1)="23;Q;10//^S X=DT;16.5;35;32;S:$E(^ENG(6920,DA,0),1,3)'=""PM-"" Y=""@1"";35.2;@1;35.5;37;38;47;39;40;36//^S X=$G(ENWOCLOD);S:X'>0 Y=""@2"";32///^S X=""COMPLETED"";@2;K ENWOCLOD;"
^DIE(137,"DR",2,6914)="53;"
^DIE(137,"DR",2,6920.02)=".01:2"
^DIE(137,"DR",2,6920.035)=".01"
^DIE(138,0)="ENPLI001^2970428.1602^^6925^^^2970710"
^DIE(138,"%D",0)="^^1^1^2930406^"
^DIE(138,"%D",1,0)="Input for VAF 10-1193 Project Application called by Routine ENPL2."
^DIE(138,"DIAB",1,0,6925,15)="158.3;REQ"
^DIE(138,"DIAB",1,0,6925,19)="221;""TOTAL MAJOR/MINOR/MINOR MISC. CONSTRUCTION COST (LOW BID)"""
^DIE(138,"DIAB",1,1,6925.0177,0)="ALL"
^DIE(138,"DIAB",1,1,6925.03,0)="ALL"
^DIE(138,"DIAB",1,1,6925.04,0)=".01;""EQUIPMENT OVER $250K ITEM"""
^DIE(138,"DIAB",2,0,6925,15)="158.4;REQ"
^DIE(138,"DIAB",2,0,6925,21)="189;REQ"
^DIE(138,"DIAB",2,1,6925.0164,0)="2;REQ"
^DIE(138,"DIAB",2,1,6925.04,0)="1;REQ"
^DIE(138,"DIAB",3,0,6925,15)="158.5;REQ"
^DIE(138,"DIAB",3,0,6925,21)="190;REQ"
^DIE(138,"DIAB",3,1,6925.0164,0)="3;REQ"
^DIE(138,"DIAB",3,1,6925.04,0)="2;REQ"
^DIE(138,"DIAB",4,0,6925,21)="188;REQ"
^DIE(138,"DIAB",4,1,6925.0164,0)="4;REQ"
^DIE(138,"DIAB",4,1,6925.04,0)="4;REQ"
^DIE(138,"DIAB",5,0,6925,11)="165;REQ"
^DIE(138,"DIAB",5,0,6925,21)="190.2;REQ"
^DIE(138,"DIAB",5,1,6925.0164,0)="5;REQ"
^DIE(138,"DIAB",6,0,6925,21)="190.3;REQ"
^DIE(138,"DIAB",6,1,6925.0164,0)="6;REQ"
^DIE(138,"DIAB",7,0,6925,21)="190.4;REQ"
^DIE(138,"DIAB",7,1,6925.0164,0)="8;REQ"
^DIE(138,"DIAB",9,0,6925,11)="158.8;REQ"
^DIE(138,"DIAB",15,0,6925,17)="192.3;""PROJECT JUSTIFICATION (SHORT)"""
^DIE(138,"DIAB",17,0,6925,17)="192.6;""WORKLOAD JUSTIFICATION"""
^DIE(138,"DR",1,6925)="X:'$D(ENDA) ""W !,""""Variable ENDA not defined - Terminating Edit"""" S Y=0"";S DIE(""NO^"")=""BACKOUTOK"";S ENPN=$P($G(^ENG(""PROJ"",ENDA,0)),U);S ENENV=$P($G(^ENG(""PROJ"",ENDA,15)),U,12);S:ENENV="""" ENENV=""Y"";"
^DIE(138,"DR",1,6925,1)="S ENPR=$P($G(^ENG(""PROJ"",ENDA,0)),U,6);S ENFT=$P($G(^ENG(""PROJ"",ENDA,52)),U,6);S ENPCI=$P($G(^ENG(""PROJ"",ENDA,52)),U);S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBOI=$P($G(^ENG(""PROJ"",ENDA,52)),U,9);"
^DIE(138,"DR",1,6925,2)="S ENBO=$S(ENBOI:$P($G(^OFM(7336.8,ENBOI,0)),U),1:"""");S ENBCI=$P($G(^ENG(""PROJ"",ENDA,52)),U,2);S:'ENBCI&ENPCI ENBCI=$P($G(^OFM(7336.8,ENPCI,1)),U,$F(""MA,MI,MM,NR,"",ENPC)\3);S ENBC=$S(ENBCI:$P($G(^OFM(7336.9,ENBCI,0)),U),1:"""");"
^DIE(138,"DR",1,6925,3)="S ENAY=$P($G(^ENG(""PROJ"",ENDA,5)),U,7);S ENCY=$P($G(^ENG(""PROJ"",ENDA,0)),U,7);S ENLY=$P($G(^ENG(""PROJ"",ENDA,55)),U,2);S ENRY=$P($G(^ENG(""PROJ"",ENDA,55)),U,3);S:$D(ENOLD) Y=""@10"";2.5///N;@10;K:$D(ENOLD)#10 DIE(""NO^"");.01;S ENPN=X;"
^DIE(138,"DR",1,6925,4)="S:'$D(^DIC(6910,1,0)) Y=""@20"";W:$P(ENPN,""-"")'=$E($P(^DIC(6910,1,0),U,2),1,3) $C(7),!,""Note: Station # in Project Number differs from Station # in ENG INIT"",!,?5,""PARAMETERS File"";@20;3;S:'$D(^DIC(4,X,99)) Y=""@30"";"
^DIE(138,"DR",1,6925,5)="X:$E($P(^DIC(4,X,99),U),1,3)'=$P(ENPN,""-"") ""W !,""""Note: Project Number """"_ENPN_"""" differs from Facility's number"""""";@30;176;2;158;S ENFT=X;155;X:X=""OT"" ""W !,""""Program OTHER is inappropriate for Project Application"""" S Y=155"";"
^DIE(138,"DR",1,6925,6)="X:X=""LE"" ""W !,""""Program LEASE is not currently supported for Project Application"""" S Y=155"";X:ENFT=""NCS""&((X=""NR"")!(X=""MM"")) ""W !,""""National Cemetery System projects can not be NRM or Minor Misc program"""" S Y=155"";"
^DIE(138,"DR",1,6925,7)="X:$L(ENPN,""-"")'=3&((X=""NR"")!(X=""LE"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";X:$L(ENPN,""-"")=3&(X'=""NR""&(X'=""LE"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";"
^DIE(138,"DR",1,6925,8)="S:(X=ENPR)!(ENPR']"""") ENPR=X,Y=""@40"";W !!,""Because the Program was changed the current Project Category and"",!,""Budget Category of this project will be deleted."";"
^DIE(138,"DR",1,6925,9)="W !,""Deleting Project Category "",ENPC,""..."",!,""Deleting Budget Category "",ENBC,""..."";S $P(^ENG(""PROJ"",ENDA,52),U,1,2)=""^"",(ENPC,ENPCI,ENBC)="""";W !,""You must enter new values for these required fields."",!;S ENPR=X;@40;6//DRAFT;"
^DIE(138,"DR",1,6925,10)="K DIE(""NO^"");158.1;S ENPCI=X;S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBC=$S(ENPCI'?1.N:"""",$D(^OFM(7336.8,ENPCI,1))#10:$P(^(1),U,$F(""MA,MI,MM,NR,"",ENPR)\3),1:"""");S:ENBC ENBC=$P($G(^OFM(7336.9,ENBC,0)),U);"
^DIE(138,"DR",1,6925,11)="S:ENPC'[""SEISMIC"" Y=""@50"";265;@50;S:""MI,MM""'[ENPR Y=""@60"";165R~;@60;S:ENPR'=""NR"" Y=""@65"";W:ENBO="""" !,""Select Bonus Category 'Not Applicable' if none of the other choices are"",!,""   50% or more of the project scope."";158.8R~;"
^DIE(138,"DR",1,6925,12)="S ENBO=$S(X:$P($G(^OFM(7336.8,X,0)),U),1:"""");158.9;X:X<50&(ENBO[""AMBULATORY"") ""W !,""""Must be 50% or more since Bonus Category is Ambulatory Care"""" S Y=158.8"";S:ENBO'[""ENERGY"" Y=158.2;@65;236;236.2;"
^DIE(138,"DR",1,6925,13)="W:X'=""Y""&(ENPR=""NR"")&(ENBO[""ENERGY"") !,""   NRM Energy projects should be included in the 5YR Energy Plan."";158.2//^S X=ENBC;S ENAP=$S(X?1.N:$P($G(^OFM(7336.9,X,0)),U,2),1:"""");"
^DIE(138,"DR",1,6925,14)="X:X?1.N&(ENAP'[ENPR) ""W !,""""Budget Category is incompatible with Program"""" S Y=""""@60"""""" K ENAP;S:X?1.N ENBC=$P($G(^OFM(7336.9,X,0)),U);S:ENFT'=""VHA"" Y=""@70"";S:ENPR'=""NR""&(ENPC'[""NHCU"") Y=""@70"";S:ENPR=""NR""&(ENBO'[""NHCU"") Y=""@70"";"
^DIE(138,"DR",1,6925,15)="158.3R~;158.4R~;158.5R~;@70;3.45;S ENAY=X;3.5;S ENCY=X;X:ENCY]""""&(ENCY<ENAY) ""W !,""""Funding Year - Construction can not be earlier than Funding Year - A/E"""" S Y=3.45"";W !,""CITATIONS"";164;S:ENPR=""MA"" Y=162;209;161;"
^DIE(138,"DR",1,6925,16)="X:ENPR=""MA""!("",MI,MM,""[("",""_ENPR_"","")&(X=""E"")) ""W !,$S(X=""""I"""":""""INTERIM"""",X=""""E"""":""""EMERGENCY"""",1:"""""""")_"""" is inconsistent with """"_$S(ENPR=""""MI"""":""""MINOR"""",ENPR=""""MM"""":""""MINOR MISC"""",ENPR=""""MA"""":""""MAJOR"""",1:"""""""")_"""" program"""" S Y=161"";"
^DIE(138,"DR",1,6925,17)="162;S:X'=""Y"" Y=""@80"";W !,""EQUIPMENT OVER $250K"";190.6;@80;177;179;S:ENFT'=""VHA"" Y=""@90"";191;@90;181;223;192;277;192.3PROJECT JUSTIFICATION (SHORT)~;278;192.6WORKLOAD JUSTIFICATION~;S:ENPR'=""MA"" Y=""@100"";209.1;@100;"
^DIE(138,"DR",1,6925,18)="W !,""PROJECT SCOPE"";180;237:242;182;S:ENPR'=""NR"" Y=""@110"";W !,""Is this project reportable to the EPA per the NRM Call Letter criteria?"";158.6;S:X'=""Y"" Y=261;158.7;261;213:216;218.2;S Y=""@120"";@110;"
^DIE(138,"DR",1,6925,19)="221TOTAL MAJOR/MINOR/MINOR MISC. CONSTRUCTION COST (LOW BID)~;218.3;@120;219;S:X'>0 Y=220.1;282;220.1;@130;R !,""Edit Activations? Y// "",X:DTIME;S:$E(X)=""Y""!($E(X)=""y"")!(X="""") Y=187.5;S:X=""^"" Y=0;S:$E(X)=""N""!($E(X)=""n"") Y=""@140"";"
^DIE(138,"DR",1,6925,20)="W !,""Enter 'Y' or 'N'."";W !,""Activations are funding and FTEE resources required to bring the"";W !,""subject area of the construction or maintenance project up to full"";W !,""operational capacity."";S Y=""@130"";"
^DIE(138,"DR",1,6925,21)="187.5//^S X=$S(ENCY:ENCY+1,1:"""");189R~;190R~;188R~;190.2R~;190.3R~;190.4R~;@140;225;S:""MI,MM""'[ENPR Y=""@150"";264;@150;187;S ENENV=X;S:ENENV'=""Y"" Y=0;193;194;194.5;194.6;194.7;195;S:X'=""Y"" Y=196;195.1;196;S:X'=""Y"" Y=197;196.1;197;"
^DIE(138,"DR",1,6925,22)="S:X'=""Y"" Y=198;197.1;198;S:X'=""Y"" Y=199;198.1;199;S:X'=""Y"" Y=200;199.1;200;S:X'=""Y"" Y=201;200.1;201;S:X'=""Y"" Y=202;201.1;202;S:X'=""Y"" Y=203;202.1;203;S:X'=""Y"" Y=204;203.1;204;S:X'=""Y"" Y=205;204.1;205;S:X'=""Y"" Y=206;205.1;206;"
^DIE(138,"DR",1,6925,23)="S:X'=""Y"" Y=207;206.1;207;S:X'=""Y"" Y=208;207.1;208;S:X'=""Y"" Y=0;208.1;"
^DIE(138,"DR",2,6925.0164)=".01;2R~;3R~;4R~;5R~;6R~;8R~;"
^DIE(138,"DR",2,6925.0177)=".01"
^DIE(138,"DR",2,6925.0225)=".01;"
^DIE(138,"DR",2,6925.03)=".01:4"
^DIE(138,"DR",2,6925.04)=".01EQUIPMENT OVER $250K ITEM~;1R~;2R~;4R~;"
^DIE(139,0)="ENPLI002^2970403.1621^^6925^^^2970403"
^DIE(139,"%D",0)="^^1^1^2930406^^^"
^DIE(139,"%D",1,0)="Input template for 5-Yr Plan, called from routine ENPL4"
^DIE(139,"DIAB",1,1,6925.04,0)=".01;""EQUIPMENT OVER $250K ITEM"""
^DIE(139,"DIAB",2,0,6925,11)="158.8;REQ"
^DIE(139,"DIAB",2,1,6925.04,0)="1;REQ"
^DIE(139,"DIAB",3,1,6925.0164,0)="3;REQ"
^DIE(139,"DIAB",3,1,6925.04,0)="2;REQ"
^DIE(139,"DIAB",4,1,6925.04,0)="4;REQ"
^DIE(139,"DIAB",7,0,6925,20)="189;REQ"
^DIE(139,"DIAB",8,0,6925,20)="190;REQ"
^DIE(139,"DIAB",9,0,6925,20)="190.2;REQ"
^DIE(139,"DIAB",10,0,6925,20)="188;REQ"
^DIE(139,"DIAB",11,0,6925,20)="190.3;REQ"
^DIE(139,"DIAB",12,0,6925,20)="190.4;REQ"
^DIE(139,"DIAB",13,0,6925,21)="158.3;REQ"
^DIE(139,"DIAB",14,0,6925,21)="158.4;REQ"
^DIE(139,"DIAB",15,0,6925,21)="158.5;REQ"
^DIE(139,"DR",1,6925)="X:'$D(ENDA) ""W !,""""Variable ENDA not defined - Terminating Edit"""" S Y=0"";X:'$D(ENBY) ""W !,""""Variable ENBY not defined - Teminating Edit"""" S Y=0"";S DIE(""NO^"")=""BACKOUTOK"";S ENPN=$P($G(^ENG(""PROJ"",ENDA,0)),U);"
^DIE(139,"DR",1,6925,1)="S ENPR=$P($G(^ENG(""PROJ"",ENDA,0)),U,6);S ENFT=$P($G(^ENG(""PROJ"",ENDA,52)),U,6);S ENPCI=$P($G(^ENG(""PROJ"",ENDA,52)),U);S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBOI=$P($G(^ENG(""PROJ"",ENDA,52)),U,9);"
^DIE(139,"DR",1,6925,2)="S ENBO=$S(ENBOI:$P($G(^OFM(7336.8,ENBOI,0)),U),1:"""");S ENBCI=$P($G(^ENG(""PROJ"",ENDA,52)),U,2);S:'ENBCI&ENPCI ENBCI=$P($G(^OFM(7336.8,ENPCI,1)),U,$F(""MA,MI,MM,NR,"",ENPC)\3);S ENBC=$S(ENBCI:$P($G(^OFM(7336.9,ENBCI,0)),U),1:"""");"
^DIE(139,"DR",1,6925,3)="S ENAY=$P($G(^ENG(""PROJ"",ENDA,5)),U,7);S ENCY=$P($G(^ENG(""PROJ"",ENDA,0)),U,7);S ENLY=$P($G(^ENG(""PROJ"",ENDA,55)),U,2);S ENRY=$P($G(^ENG(""PROJ"",ENDA,55)),U,3);S:$D(ENOLD) Y=""@10"";2.5///N;@10;K:$D(ENOLD)#10 DIE(""NO^"");.01;S ENPN=X;"
^DIE(139,"DR",1,6925,4)="S:'$D(^DIC(6910,1,0)) Y=""@20"";W:$P(ENPN,""-"")'=$E($P(^DIC(6910,1,0),U,2),1,3) $C(7),!,""Note: Station # in Project Number differs from Station # in ENG INIT"",!,?5,""PARAMETERS File"";@20;3;S:'$D(^DIC(4,X,99)) Y=""@30"";"
^DIE(139,"DR",1,6925,5)="X:$E($P(^DIC(4,X,99),U),1,3)'=$P(ENPN,""-"") ""W !,""""Note: Project Number """"_ENPN_"""" differs from Facility's number"""""";@30;176;2;158;S ENFT=X;155;X:X=""OT"" ""W !,""""Program OTHER is inappropriate for 5-Yr Plan Project"""" S Y=155"";"
^DIE(139,"DR",1,6925,6)="X:ENFT=""NCS""&((X=""NR"")!(X=""MM"")) ""W !,""""National Cemetery System projects can not be NRM or Minor Misc program"""" S Y=155"";"
^DIE(139,"DR",1,6925,7)="X:$L(ENPN,""-"")'=3&((X=""NR"")!(X=""LE"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";X:$L(ENPN,""-"")=3&(X'=""NR""&(X'=""LE"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";"
^DIE(139,"DR",1,6925,8)="S:(X=ENPR)!(ENPR']"""") ENPR=X,Y=""@40"";W !!,""Because the Program was changed the current Project Category and"",!,""Budget Category of this project will be deleted."";"
^DIE(139,"DR",1,6925,9)="W !,""Deleting Project Category "",ENPC,""..."",!,""Deleting Budget Category "",ENBC,""..."";S $P(^ENG(""PROJ"",ENDA,52),U,1,2)=""^"",(ENPC,ENPCI,ENBC)="""";W !,""You must enter new values for these required fields."",!;S ENPR=X;@40;6//DRAFT;"
^DIE(139,"DR",1,6925,10)="158.1;S ENPCI=X;S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBC=$S(ENPCI'?1.N:"""",$D(^OFM(7336.8,ENPCI,1))#10:$P(^(1),U,$F(""MA,MI,MM,NR,"",ENPR)\3),1:"""");S:ENBC ENBC=$P($G(^OFM(7336.9,ENBC,0)),U);S:ENPR'=""NR"" Y=158.2;"
^DIE(139,"DR",1,6925,11)="W:ENBO="""" !,""Select Bonus Category 'Not Applicable' if none of the other choices are"",!,""   50% or more of the project scope."";158.8R~;S ENBO=$S(X:$P($G(^OFM(7336.8,X,0)),U),1:"""");158.9;"
^DIE(139,"DR",1,6925,12)="X:X<50&(ENBO[""AMBULATORY"") ""W !,""""Must be 50% or more since Bonus Category is Ambulatory Care"""" S Y=158.8"";158.2//^S X=ENBC;S ENAP=$S(X?1.N:$P($G(^OFM(7336.9,X,0)),U,2),1:"""");"
^DIE(139,"DR",1,6925,13)="X:X?1.N&(ENAP'[ENPR) ""W !,""""Budget Category is incompatible with Program"""" S Y=158.2"" K ENAP;S:X?1.N ENBC=$P($G(^OFM(7336.9,X,0)),U);S:ENPR=""LE"" Y=""@50"";3.45;S ENAY=X;212.1;3.5;S ENCY=X;"
^DIE(139,"DR",1,6925,14)="X:ENCY]""""&(ENCY<ENAY) ""W !,""""Funding Year - Construction can not be earlier than Funding Year - A/E"""" S Y=3.45"";212.2;S:ENPR'=""LE"" Y=""@60"";@50;285;"
^DIE(139,"DR",1,6925,15)="X:X=""EU""&(ENBC'=""ENHANCED USE"") ""W !,""""Budget Category must be Enhanced Use if Lease Type is Enhanced Use"""" S Y=158.2"";"
^DIE(139,"DR",1,6925,16)="X:X'=""EU""&(ENBC=""ENHANCED USE"") ""W !,""""Lease Type must be Enhanced Use if Budget Category is Enhanced Use"""" S Y=158.2"";290;291;223;286;S ENLY=X;288;287;S ENRY=X;"
^DIE(139,"DR",1,6925,17)="X:ENRY]""""&(ENRY<ENLY) ""W !,""""FY Rent Starts can not be earlier than FY Award Lease"""" S Y=286"";289;S:""^NE^SU^""'[(U_$P($G(^ENG(""PROJ"",ENDA,55)),U)_U) Y=""@60"";292;293;@60;192;192.3;K DIE(""NO^"");"
^DIE(139,"DR",1,6925,18)="S:ENPR'=""LE""&(ENBY-1<ENAY)&(ENBY+2>ENAY) Y=""@70"";S:ENPR'=""LE""&(ENBY-1<ENCY)&(ENBY+2>ENCY) Y=""@70"";S:ENPR=""LE""&(ENBY-1<ENRY)&(ENBY+2>ENRY) Y=""@70"";S Y=""@90"";@70;R !,""Edit Activations? Y// "",X:DTIME;"
^DIE(139,"DR",1,6925,19)="S:$E(X)=""Y""!($E(X)=""y"")!(X="""") Y=""@80"";S:X=""^"" Y=0;S:$E(X)=""N""!($E(X)=""n"") Y=""@90"";W !,""Enter 'Y' or 'N'."";W !,""Activations are funding and FTEE resources required to bring the"";"
^DIE(139,"DR",1,6925,20)="W !,""subject area of the construction or maintenance project up to full"";W !,""operational capacity."";S Y=""@70"";@80;W !,""ACTIVATIONS"";187.5//^S X=$S(ENCY:ENCY+1,1:"""");189R~;190R~;190.2R~;188R~;190.3R~;190.4R~;@90;W !,""CITATIONS"";"
^DIE(139,"DR",1,6925,21)="164;W !,""EQUIPMENT OVER $250K"";190.6;S:ENPR=""LE"" Y=""@100"";177;@100;S:ENPR'=""MA"" Y=""@110"";209.1;@110;S:ENFT'=""VHA"" Y=""@120"";S:ENPR'=""NR""&(ENPC'[""NHCU"") Y=""@120"";S:ENPR=""NR""&(ENBO'[""NHCU"") Y=""@120"";158.3R~;158.4R~;158.5R~;@120;"
^DIE(139,"DR",2,6925.0164)=".01;2;3R~;4;5;6;8;"
^DIE(139,"DR",2,6925.0177)=".01;"
^DIE(139,"DR",2,6925.04)=".01EQUIPMENT OVER $250K ITEM~;1R~;2R~;4R~;"
^DIE(140,0)="ENPLI003^2930127.1656^^6925^^^^"
^DIE(140,"%D",0)="^^2^2^2930406^^^"
^DIE(140,"%D",1,0)="Input template for VAF 10-1193a (Environmental Analysis), called "
^DIE(140,"%D",2,0)="from routine ENPL6."
^DIE(140,"DR",1,6925)="187;193;194;194.5;194.6;194.7;195;S:X'=""Y"" Y=196;195.1;196;S:X'=""Y"" Y=197;196.1;197;S:X'=""Y"" Y=198;197.1;198;S:X'=""Y"" Y=199;198.1;199;S:X'=""Y"" Y=200;199.1;200;S:X'=""Y"" Y=201;200.1;201;S:X'=""Y"" Y=202;201.1;202;S:X'=""Y"" Y=203;202.1;"
^DIE(140,"DR",1,6925,1)="203;S:X'=""Y"" Y=204;203.1;204;S:X'=""Y"" Y=205;204.1;205;S:X'=""Y"" Y=206;205.1;206;S:X'=""Y"" Y=207;206.1;207;S:X'=""Y"" Y=208;207.1;208;S:X'=""Y"" Y=0;208.1;"
^DIE(141,0)="ENWONEWCLOSE^2950927.104^^6920^^^2970220"
^DIE(141,"DIAB",1,1,6920.02,0)="ALL"
^DIE(141,"DR",1,6920)="39;16.5;38;47;36;S:X'>0 Y=0;32///^S X=""COMPLETED"";"
^DIE(141,"DR",2,6920.02)=".01:2"
^DIE(142,0)="ENSP-BLDG-P^2930422.1413^^6928.3^^^2930524^"
^DIE(142,"DR",1,6928.3)=".01;.5;I X=""P"" S Y=""@1"";1;2;3;4;5;5.1;5.3;5.4;5.5;5.6;5.7;6;7;7.1;7.2;8;9;10;11;12;13;13.5;14;15;16;17;18;@1;19;20;21;"
^DIE(143,0)="GECS KEYPUNCH^2890111^^2100^^^2940902"
^DIE(143,"DR",1,2100)="51;"
^DIE(144,0)="FB AMS1A AMIS 349^2900411.1057^^2100^^^2931206"
^DIE(144,"DR",1,2100)="1////^S X=""AMS"";1254////^S X=""(("";1255////^S X=4;1256////^S X=8;5///^S X=GECS(""SITE"");6///^S X=GECS(""SITE1"");7///^S X=GECS(""TT"");1257;1332;1323;1333;1325;1326;1238;1334;1328;1243;1244;1329;1252;1330;1331;1245;1335;1336;1337;"
^DIE(144,"DR",1,2100,1)="99////^S X=""$"";"
^DIE(145,0)="FB AMS1A AMIS 344^2900917.123^^2100^0^^2931202"
^DIE(145,"DR",1,2100)="1////^S X=""AMS"";1254////^S X=""(("";1255////^S X=5;1256////^S X=8;5///^S X=GECS(""SITE"");6//^S X=GECS(""SITE1"");7///^S X=GECS(""TT"");1257;1209;1210;1211;1211.5;1212;1213;1214;1215;1216;1338////^S X=0;1217;1218;1219;1220;1221;1222;1223;"
^DIE(145,"DR",1,2100,1)="1224;1225;1339////^S X=0;1226;1227;1228;1229;1230;1231;1232;1233;1234;99////^S X=""$"";"
^DIE(146,0)="FB AMS1A AMIS 350^2900907.0757^^2100^0^^2931209"
^DIE(146,"DR",1,2100)="1////^S X=""AMS"";1254////^S X=""(("";1255////^S X=3;1256////^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1342;1343;1344;1345;1346;1347;1348;1349;1350;1351;1352;1353;1354;1355;1356;1357;1358;1359;1360;1361;1362;1363;1364;"
^DIE(146,"DR",1,2100,1)="1365;1366;1367;1368;1369;1370;1371;1372;1373;1374;1375;1376;1377;1378;1379;1380;99////^S X=""$"";"
^DIE(147,0)="SR AMS3 AMIS 177^2900917.0919^^2100^0^^2931019"
^DIE(147,"DIAB",1,0,2100,3)="DEATHS, OTH;T"
^DIE(147,"DIAB",2,0,2100,2)="DIAG, ANES, TOT;T"
^DIE(147,"DIAB",3,0,2100,2)="DIAG, ANES, DEA;T"
^DIE(147,"DIAB",3,0,2100,3)="ANES CAUSE DEATH, DEF;T"
^DIE(147,"DIAB",4,0,2100,2)="DIAG, NURSE, TOT;T"
^DIE(147,"DIAB",4,0,2100,3)="ANES CAUSE DEATH, MAY;T"
^DIE(147,"DIAB",5,0,2100,2)="DIAG, NURSE, DEA;T"
^DIE(147,"DIAB",5,0,2100,3)="ANES CAUSE DEATH, NO;T"
^DIE(147,"DIAB",6,0,2100,2)="DIAG, OTHER, TOT;T"
^DIE(147,"DIAB",7,0,2100,2)="DIAG, OTHER, DEATH;T"
^DIE(147,"DIAB",10,0,2100,0)="3000;T"
^DIE(147,"DIAB",10,0,2100,2)="DEATH, INHA;T"
^DIE(147,"DIAB",11,0,2100,2)="DEATHS, IV;T"
^DIE(147,"DIAB",12,0,2100,1)="SURG,ANES,TOT;T"
^DIE(147,"DIAB",12,0,2100,2)="DEATHS, INF;T"
^DIE(147,"DIAB",13,0,2100,1)="SURG, ANES, DEATH;T"
^DIE(147,"DIAB",13,0,2100,2)="DEATHS, FIEL;T"
^DIE(147,"DIAB",14,0,2100,1)="SURG, NURSE, TO;T"
^DIE(147,"DIAB",14,0,2100,2)="DEATHS, NER;T"
^DIE(147,"DIAB",15,0,2100,1)="SURG, NURSE, DEATH;T"
^DIE(147,"DIAB",15,0,2100,2)="DEATHS,SPI;T"
^DIE(147,"DIAB",16,0,2100,1)="SURG, OTHER, TOT;T"
^DIE(147,"DIAB",16,0,2100,2)="DEATHS, TOP;T"
^DIE(147,"DIAB",17,0,2100,1)="SURG, OTHER, DE;T"
^DIE(147,"DIAB",17,0,2100,2)="DEATHS, RECT;T"
^DIE(147,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=3;52.3///^S X=8;5///^S X=GECS(""SITE"");6//^S X=GECS(""SITE1"");7///^S X=GECS(""TT"");52.4;W !!!,""SURGICAL SERVICE ANESTHESIOLOGY CODE SHEET"",!!;3000T~;"
^DIE(147,"DR",1,2100,1)="W !!!,""TOTAL ANESTHETICS ADMINISTERED BY PRINCIPAL TECHNIQUE USED"",!;3001;3002;3003;3004;3005;3006;3007;3008;3009;W !!!,""ANESTHETICS FOR SURGICAL PROCEDURES"",!;3010T~;3011T~;3012T~;3013T~;3014T~;3015T~;"
^DIE(147,"DR",1,2100,2)="W !!!,""ANESTHETICS FOR DIAGNOSTIC AND THERAPEUTIC PROCEDURES"",!;3016T~;3017T~;3018T~;3019T~;3020T~;3021T~;W !!!,""DEATHS WITHIN 24 HOURS OF INDUCTION OF ANESTHETIC"",!;3022;3023T~;3024T~;3025T~;3026T~;3027T~;3028T~;3029T~;3030T~;"
^DIE(147,"DR",1,2100,3)="3031T~;W !;3032T~;3033T~;3034T~;99///^S X=""$"";"
^DIE(148,0)="SOWK AMS3 AMIS 257^2900917.15^^2100^0^^2940906"
^DIE(148,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=""M"";52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;W !!?25,""MEDICAL/SURGICAL"",!?20,""PLACEMENT BY QUARTER (By age group)"",!;3500;3501;3502;3503;3504;3505;3506;3507;"
^DIE(148,"DR",1,2100,1)="W !!?20,""LOSSES DURING QUARTER"",!!;3508;3509;3510;3511;W !!?20,""VETERANS REMAINING END OF QUARTER"",!!;3512;3513;3514;3515;W !!?20,""PSYCHOSIS/NEUROSIS"",!?20,""PLACEMENT BY QUARTER (By age group)"",!;3516;3517;3518;3519;3520;3521;3522;"
^DIE(148,"DR",1,2100,2)="3523;W !!?20,""LOSSES DURING QUARTER"",!!;3524;3525;3526;3527;W !!?20,""VETERANS REMAINING END OF QUARTER"",!!;3528;3529;3530;3531;W !!?20,""ORGANIC & SENILE BRAIN DIEASE"",!?20,""PLACEMENT BY QUARTER (By age group)"",!;3532;3533;3534;"
^DIE(148,"DR",1,2100,3)="3535;3536;3537;3538;3539;W !!?20,""LOSSES DURING QUARTER"",!!;3540;3541;3542;3543;W !!?20,""VETERANS REMAINING END OF QUARTER"",!!;3544;3545;3546;3547;W !!?20,""SUBSTANCE ABUSE"",!?20,""PLACEMENT BY QUARTER (By age group)"",!;3548;3549;"
^DIE(148,"DR",1,2100,4)="3550;3551;3552;3553;3554;3555;W !!?20,""LOSSES BY QUARTER"",!!;3556;3557;3558;3559;W !!?20,""VETERANS REMAINING END OF QUARTER"",!!;3560;3561;3562;3563;W !!?20,""ALL OTHER"",!?20,""PLACEMENT BY QUARTER (By age group)"",!;3564;3565;3566;"
^DIE(148,"DR",1,2100,5)="3567;3568;3569;3570;3571;W !!?20,""LOSSES DURING QUARTER"",!!;3572;3573;3574;3575;W !!?20,""VETERANS REMAINING END OF QUARTER"",!!;3576;3577;3578;3579;W !!?20,""LOCATION OF VETERAN PRIOR TO PLACEMENT"",!!;3580;3581;3582;3583;3584;3585;"
^DIE(148,"DR",1,2100,6)="99///^S X=""$"";"
^DIE(149,0)="SOWK AMS3 AMIS 258^2900515.0729^^2100^^^2940906"
^DIE(149,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=""M"";52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;W !!?25,""NUMBER OF VETERANS BY BED CAPACITY"",!!;3586;3587;3588;3589;3590;"
^DIE(149,"DR",1,2100,1)="W !!?15,""NUMBER OF VETERANS SUPERVISED BY MEDICAL/PSYCHOSOCIAL PROBLEM"",!!;3591;3592;3593;3594;3595;W !!?25,""VETERANS REMAINING END OF QUARTER BY STATUS"",!!?20,""SERVICE CONNECTED STATUS"",!!;3596;3597;3598;"
^DIE(149,"DR",1,2100,2)="W !!?25,""COMPETENCY STATUS"",!!;3599;3600;99///^S X=""$"";"
^DIE(150,0)="SOWK AMS3 AMIS 361^2900521.1454^^2100^^^2940906"
^DIE(150,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=3;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;3601;W !!?20,""LOSSES"",!!;3602;3603;3604;3605;W !;3606;3607;W !!?20,""ELIGIBILITY STATUS"",!!;3608;3609;W !;3610;"
^DIE(150,"DR",1,2100,1)="W !!?20,""HOME MODIFICATIONS"",!!;3611;3612;W !!?20,""HOME VISITS BY"",!!;3613;3614;3615;3616;3617;3618;3619;3620;3621;W !!?20,""WARD VISITS BY"",!!;3622;3623;3624;3625;3626;3627;3628;3629;3630;99///^S X=""$"";"
^DIE(151,0)="RA AMS1 AMIS 186^2900917.0824^^2100^0^^2931004"
^DIE(151,"DR",1,2100)="1////^S X=""AMS"";1254////^S X=""(("";1255////^S X=4;1256////^S X=8;5///^S X=GECS(""SITE"");6//^S X=GECS(""SITE1"");7///^S X=GECS(""TT"");1257;1465;1466;1467;1468;1469;1470;1471;1472;1473;1474;1475;1476;1477;1478;1479;1480;1481;1482;1483;"
^DIE(151,"DR",1,2100,1)="1484;1485;1486;1487;1488;1489;1490;1491;1492;1493;1494;1495;1496;1497;1498;1499;1500;1501;1502;1503;1504;1505;1506;1507;1508;1509;1510;1511;1512;1513;1514;1515;1516;1517;1518;1519;1520;1521;1522;1523;1524;1525;1526;1527;"
^DIE(151,"DR",1,2100,2)="99////^S X=""$"";"
^DIE(152,0)="A4CG AMS4 BMS CONTRACT HRS^2900430.1538^^2100^^^2931021"
^DIE(152,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=220;1257;4220.001;4220.002;4220.003;4220.004;4220.005;4220.006;99///^S X=""$"";"
^DIE(153,0)="A4CG AMS4 BMS HRS WORKED^2900918.1059^^2100^0^^2931021"
^DIE(153,"DIAB",1,0,2100,1)="4217.012;T"
^DIE(153,"DIAB",1,0,2100,2)="4217.033;T"
^DIE(153,"DIAB",2,0,2100,1)="4217.013;T"
^DIE(153,"DIAB",2,0,2100,2)="4217.034;T"
^DIE(153,"DIAB",3,0,2100,1)="4217.014;T"
^DIE(153,"DIAB",3,0,2100,2)="4217.035;T"
^DIE(153,"DIAB",4,0,2100,1)="4217.015;T"
^DIE(153,"DIAB",4,0,2100,2)="4217.036;T"
^DIE(153,"DIAB",5,0,2100,1)="4217.016;T"
^DIE(153,"DIAB",5,0,2100,2)="4217.037;T"
^DIE(153,"DIAB",6,0,2100,1)="4217.017;T"
^DIE(153,"DIAB",6,0,2100,2)="4217.038;T"
^DIE(153,"DIAB",7,0,2100,1)="4217.018;T"
^DIE(153,"DIAB",8,0,2100,1)="4217.019;T"
^DIE(153,"DIAB",9,0,2100,0)="4217.001;T"
^DIE(153,"DIAB",9,0,2100,1)="4217.02;T"
^DIE(153,"DIAB",10,0,2100,0)="4217.002;T"
^DIE(153,"DIAB",10,0,2100,1)="4217.021;T"
^DIE(153,"DIAB",11,0,2100,0)="4217.003;T"
^DIE(153,"DIAB",11,0,2100,1)="4217.022;T"
^DIE(153,"DIAB",12,0,2100,0)="4217.004;T"
^DIE(153,"DIAB",12,0,2100,1)="4217.023;T"
^DIE(153,"DIAB",13,0,2100,0)="4217.005;T"
^DIE(153,"DIAB",13,0,2100,1)="4217.024;T"
^DIE(153,"DIAB",14,0,2100,0)="4217.006;T"
^DIE(153,"DIAB",14,0,2100,1)="4217.025;T"
^DIE(153,"DIAB",15,0,2100,0)="4217.007;T"
^DIE(153,"DIAB",15,0,2100,1)="4217.026;T"
^DIE(153,"DIAB",16,0,2100,0)="4217.008;T"
^DIE(153,"DIAB",16,0,2100,1)="4217.027;T"
^DIE(153,"DIAB",17,0,2100,0)="4217.009;T"
^DIE(153,"DIAB",17,0,2100,1)="4217.028;T"
^DIE(153,"DIAB",18,0,2100,0)="4217.01;T"
^DIE(153,"DIAB",18,0,2100,1)="4217.029;T"
^DIE(153,"DIAB",19,0,2100,0)="4217.011;T"
^DIE(153,"DIAB",19,0,2100,1)="4217.03;T"
^DIE(153,"DIAB",20,0,2100,1)="4217.031;T"
^DIE(153,"DIAB",21,0,2100,1)="4217.032;T"
^DIE(153,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=217;1257;4217.001T~;4217.002T~;4217.003T~;4217.004T~;4217.005T~;4217.006T~;4217.007T~;4217.008T~;4217.009T~;4217.01T~;4217.011T~;"
^DIE(153,"DR",1,2100,1)="4217.012T~;4217.013T~;4217.014T~;4217.015T~;4217.016T~;4217.017T~;4217.018T~;4217.019T~;4217.02T~;4217.021T~;4217.022T~;4217.023T~;4217.024T~;4217.025T~;4217.026T~;4217.027T~;4217.028T~;4217.029T~;4217.03T~;4217.031T~;4217.032T~;"
^DIE(153,"DR",1,2100,2)="4217.033T~;4217.034T~;4217.035T~;4217.036T~;4217.037T~;4217.038T~;4217.039;4217.04;4217.041;4217.042;4217.043;4217.044;4217.045;4217.046;4217.047;4217.048;99///^S X=""$"";"
^DIE(154,0)="A4CG AMS4 BMS ENVIR CARE^2900430.1539^^2100^^^2931021"
^DIE(154,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=218;1257;4218.001;4218.002;4218.003;4218.004;4218.005;4218.006;4218.007;4218.008;4218.009;4218.01;4218.011;4218.012;4218.013;4218.014;"
^DIE(154,"DR",1,2100,1)="4218.015;4218.016;4218.017;4218.018;4218.019;4218.02;4218.021;4218.022;4218.023;4218.024;4218.025;4218.026;4218.027;4218.028;4218.029;99///^S X=""$"";"
^DIE(155,0)="A4CG AMS4 BMS TEXTILE CARE^2900430.1542^^2100^^^2931021"
^DIE(155,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=219;1257;4219.001;4219.002;4219.003;4219.004;4219.005;4219.006;4219.007;4219.008;4219.009;4219.01;4219.011;4219.012;4219.013;4219.014;"
^DIE(155,"DR",1,2100,1)="4219.015;4219.016;4219.017;4219.018;4219.019;4219.02;4219.021;4219.022;4219.023;4219.024;4219.025;4219.026;4219.027;4219.028;4219.029;4219.03;99///^S X=""$"";"
^DIE(156,0)="A4CG AMS4 CHAP MONTHLY^2900730.0927^^2100^^^2931201"
^DIE(156,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=141;1257;4141.001;4141.002;4141.003;4141.004;4141.005;4141.006;4141.007;4141.008;4141.009;4141.01;4141.011;4141.012;4141.013;4141.014;"
^DIE(156,"DR",1,2100,1)="4141.015;4141.016;4141.017;4141.018;4141.019;4141.02;4141.021;4141.022;4141.023;4141.024;4141.025;4141.026;4141.027;4141.028;4141.029;4141.03;4141.031;4141.032;4141.033;4141.034;4141.035;4141.036;4141.037;4141.038;4141.039;4141.04;"
^DIE(156,"DR",1,2100,2)="4141.041;4141.042;4141.043;4141.044;4141.045;4141.046;4141.047;4141.048;4141.049;4141.05;4141.051;4141.052;4141.053;4141.054;4141.055;4141.056;4141.057;4141.058;4141.059;4141.06;4141.061;4141.062;4141.063;4141.064;4141.065;"
^DIE(156,"DR",1,2100,3)="4141.066;4141.067;4141.068;4141.069;4141.07;4141.071;4141.072;99///^S X=""$"";"
^DIE(157,0)="A4CG AMS4 CHAP FUNDS^2900921.0845^^2100^1^^2921004"
^DIE(157,"DIAB",2,0,2100,1)="4142.15;T"
^DIE(157,"DIAB",3,0,2100,1)="4142.16;T"
^DIE(157,"DIAB",4,0,2100,1)="4142.17;T"
^DIE(157,"DIAB",5,0,2100,1)="4142.18;T"
^DIE(157,"DIAB",6,0,2100,1)="4142.19;T"
^DIE(157,"DIAB",7,0,2100,1)="4142.2;T"
^DIE(157,"DIAB",9,0,2100,0)="4142.01;T"
^DIE(157,"DIAB",9,0,2100,1)="4142.22;T"
^DIE(157,"DIAB",10,0,2100,0)="4142.02;T"
^DIE(157,"DIAB",10,0,2100,1)="4142.23;T"
^DIE(157,"DIAB",11,0,2100,0)="4142.03;T"
^DIE(157,"DIAB",11,0,2100,1)="4142.24;T"
^DIE(157,"DIAB",12,0,2100,0)="4142.04;T"
^DIE(157,"DIAB",12,0,2100,1)="4142.25;T"
^DIE(157,"DIAB",13,0,2100,0)="4142.05;T"
^DIE(157,"DIAB",13,0,2100,1)="4142.26;T"
^DIE(157,"DIAB",14,0,2100,0)="4142.06;T"
^DIE(157,"DIAB",14,0,2100,1)="4142.27;T"
^DIE(157,"DIAB",16,0,2100,0)="4142.08;T"
^DIE(157,"DIAB",17,0,2100,0)="4142.09;T"
^DIE(157,"DIAB",18,0,2100,0)="4142.1;T"
^DIE(157,"DIAB",19,0,2100,0)="4142.11;T"
^DIE(157,"DIAB",20,0,2100,0)="4142.12;T"
^DIE(157,"DIAB",21,0,2100,0)="4142.13;T"
^DIE(157,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=142;1257;4142.01T~;4142.02T~;4142.03T~;4142.04T~;4142.05T~;4142.06T~;4142.07;4142.08T~;4142.09T~;4142.1T~;4142.11T~;4142.12T~;4142.13T~;"
^DIE(157,"DR",1,2100,1)="4142.14;4142.15T~;4142.16T~;4142.17T~;4142.18T~;4142.19T~;4142.2T~;4142.21;4142.22T~;4142.23T~;4142.24T~;4142.25T~;4142.26T~;4142.27T~;4142.28;99///^S X=""$"";"
^DIE(158,0)="A4CG AMS4 MMP QUARTERLY^2900430.1545^^2100^^^2931007"
^DIE(158,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=165;1257;4165.01;4165.02;4165.03;4165.04;4165.05;4165.06;4165.07;4165.08;4165.09;4165.1;4165.11;4165.12;4165.13;4165.14;4165.15;4165.16;"
^DIE(158,"DR",1,2100,1)="4165.17;4165.18;4165.19;4165.2;4165.21;4165.22;4165.23;4165.24;4165.25;4165.26;4165.27;4165.28;4165.29;4165.3;4165.31;4165.32;4165.33;4165.34;4165.35;4165.36;4165.37;4165.38;4165.39;4165.4;4165.41;4165.42;4165.43;4165.44;4165.45;"
^DIE(158,"DR",1,2100,2)="4165.46;4165.47;4165.48;4165.49;4165.5;4165.51;4165.52;4165.53;4165.54;4165.55;4165.56;99///^S X=""$"";"
^DIE(159,0)="A4CG AMS4 REC DIRECT^2900919.1126^^2100^0^^2931001"
^DIE(159,"DIAB",14,0,2100,1)="4265.021;T"
^DIE(159,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=265;1257;W !!?5,""PRESCRIBED TREATMENT UNITS BY MODALITY"",!;4265.001;4265.002;4265.003;4265.004;4265.005;4265.006;4265.007;4265.008;"
^DIE(159,"DR",1,2100,1)="4265.009;4265.01;4265.011;4265.012;W !!?5,""PRESCRIBED TREATMENT UNITS BY CATEGORY OF CARE"",!;4265.013;4265.014;4265.015;4265.016;4265.017;4265.018;4265.019;4265.02;4265.021T~;4265.022;4265.023;4265.024;4265.025;4265.026;4265.027;"
^DIE(159,"DR",1,2100,2)="4265.028;4265.029;4265.03;4265.031;4265.032;99///^S X=""$"";"
^DIE(160,0)="A4CG AMS4 REC INDIRECT^2900919.1129^^2100^0^^2931001"
^DIE(160,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=264;1257;W !!?5,""INDIRECT PATIENT CARE MODALITY PROGRAM"",!;4264.001;4264.002;4264.003;4264.004;4264.005;4264.006;4264.007;4264.008;"
^DIE(160,"DR",1,2100,1)="4264.009;4264.01;4264.011;4264.012;W !!?5,""MODALITY ATTENDANCE"",!;4264.013;4264.014;4264.015;4264.016;4264.017;4264.018;4264.019;4264.02;4264.021;4264.022;4264.023;4264.024;W !!?5,""TRAINING STAFF HOURS"",!;4264.025;4264.026;"
^DIE(160,"DR",1,2100,2)="4264.027;4264.028;W !!;4264.029;4264.03;W !!?5,""ADMIN MTG STAFF HOURS"",!;4264.031;4264.032;W !!?5,""OTHER MTG STAFF HOURS"",!;4264.033;4264.034;W !!;4264.035;4264.036;W !!?5,""AVAILABLE STAFF HOURS"",!;4264.037;4264.038;4264.039;"
^DIE(160,"DR",1,2100,3)="4264.04;W !!?5,""COMMUNITY RESOURCES WHOLE $"",!;4264.041;4264.042;4264.043;4264.044;W !!?5,""COMM ACTIVITIES"",!;4264.045;99///^S X=""$"";"
^DIE(161,0)="A4CG AMS4 NURS MANPOWER^2900430.1548^^2100^^^2940902"
^DIE(161,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=200;1257;4200.001;4200.002;4200.003;4200.004;4200.005;4200.006;4200.007;4200.008;4200.009;4200.01;4200.011;4200.012;4200.013;4200.014;"
^DIE(161,"DR",1,2100,1)="4200.015;4200.016;4200.017;4200.018;4200.019;4200.02;4200.021;4200.022;4200.023;4200.024;4200.025;4200.026;4200.027;4200.028;4200.029;4200.03;4200.031;4200.032;4200.033;4200.034;4200.035;4200.036;4200.037;4200.038;4200.039;4200.04;"
^DIE(161,"DR",1,2100,2)="4200.041;4200.042;4200.043;4200.044;4200.045;4200.046;4200.047;4200.048;4200.049;4200.05;4200.051;4200.052;4200.053;4200.054;4200.055;4200.056;4200.057;4200.058;4200.059;4200.06;4200.061;4200.062;4200.063;4200.064;99///^S X=""$"";"
^DIE(162,0)="A4CG AMS4 NURS MANHOURS^2900430.1547^^2100^^^2931008"
^DIE(162,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=201;1257;4201.001;4201.002;4201.003;4201.004;4201.005;4201.006;4201.007;4201.008;4201.009;4201.01;4201.011;4201.012;4201.013;4201.014;"
^DIE(162,"DR",1,2100,1)="4201.015;4201.016;4201.017;4201.018;4201.019;4201.02;4201.021;4201.022;4201.023;4201.024;4201.025;4201.026;4201.027;4201.028;4201.029;4201.03;4201.031;4201.032;4201.033;4201.034;4201.035;4201.036;4201.037;4201.038;4201.039;4201.04;"
^DIE(162,"DR",1,2100,2)="4201.041;4201.042;4201.043;4201.044;4201.045;4201.046;4201.047;4201.048;4201.049;4201.05;4201.051;4201.052;4201.053;4201.054;99///^S X=""$"";"
^DIE(163,0)="A4CG AMS4 NURS FTEE^2900917.1416^^2100^0^^2931008"
^DIE(163,"DIAB",1,0,2100,2)="4202.037;T"
^DIE(163,"DIAB",2,0,2100,2)="4202.038;T"
^DIE(163,"DIAB",3,0,2100,2)="4202.039;T"
^DIE(163,"DIAB",4,0,2100,2)="4202.04;T"
^DIE(163,"DIAB",7,0,2100,1)="4202.021;T"
^DIE(163,"DIAB",8,0,2100,1)="4202.022;T"
^DIE(163,"DIAB",9,0,2100,1)="4202.023;T"
^DIE(163,"DIAB",10,0,2100,1)="4202.024;T"
^DIE(163,"DIAB",11,0,2100,1)="4202.025;T"
^DIE(163,"DIAB",12,0,2100,1)="4202.026;T"
^DIE(163,"DIAB",13,0,2100,1)="4202.027;T"
^DIE(163,"DIAB",14,0,2100,1)="4202.028;T"
^DIE(163,"DIAB",15,0,2100,1)="4202.029;T"
^DIE(163,"DIAB",16,0,2100,1)="4202.03;T"
^DIE(163,"DIAB",17,0,2100,1)="4202.031;T"
^DIE(163,"DIAB",18,0,2100,1)="4202.032;T"
^DIE(163,"DIAB",19,0,2100,1)="4202.033;T"
^DIE(163,"DIAB",20,0,2100,1)="4202.034;T"
^DIE(163,"DIAB",21,0,2100,1)="4202.035;T"
^DIE(163,"DIAB",22,0,2100,1)="4202.036;T"
^DIE(163,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=202;1257;4202.001;4202.002;4202.003;4202.004;4202.005;4202.006;4202.007;4202.008;4202.009;4202.01;4202.011;4202.012;4202.013;4202.014;"
^DIE(163,"DR",1,2100,1)="4202.015;4202.016;4202.017;4202.018;4202.019;4202.02;4202.021T~;4202.022T~;4202.023T~;4202.024T~;4202.025T~;4202.026T~;4202.027T~;4202.028T~;4202.029T~;4202.03T~;4202.031T~;4202.032T~;4202.033T~;4202.034T~;4202.035T~;4202.036T~;"
^DIE(163,"DR",1,2100,2)="4202.037T~;4202.038T~;4202.039T~;4202.04T~;99///^S X=""$"";"
^DIE(164,0)="YS AMS5 169^2900620.1259^^2100^^^2940113"
^DIE(164,"DIAB",1,0,2100,1)="003-4;""(003) INPATIENT/VA INITIATED - REMAINING"""
^DIE(164,"DIAB",1,0,2100,2)="007-4;""(007) OUTPATIENT/VA INITIATED - RELEASED"""
^DIE(164,"DIAB",1,0,2100,3)="011-4;""(011) OUTPATIENT/NON-VA INITIATED - ADMITTED"""
^DIE(164,"DIAB",1,0,2100,4)="015-4;""(015) PTS REMAINING BY SERVICE - MED/SURGICAL"""
^DIE(164,"DIAB",1,0,2100,5)="019-4;""(019) PTS REVIEWED - INPATIENT"""
^DIE(164,"DIAB",2,0,2100,1)="004-4;""(004) INPATIENT/NON-VA INITIATED - RELEASED"""
^DIE(164,"DIAB",2,0,2100,2)="008-4;""(008) OUTPATIENT/VA INITIATED - ADMITTED"""
^DIE(164,"DIAB",2,0,2100,3)="012-4;""(012) OUTPATIENT/NON-VA INITIATED - REMAINING"""
^DIE(164,"DIAB",2,0,2100,4)="016-4;""(016) PTS REMAINING BY SERVICE - DOMICILIARY"""
^DIE(164,"DIAB",2,0,2100,5)="020-4;""(020) PTS REVIEWED - OUTPATIENT"""
^DIE(164,"DIAB",3,0,2100,1)="005-4;""(005) INPATIENT/NON-VA INITIATED - ADMITTED"""
^DIE(164,"DIAB",3,0,2100,2)="009-4;""(009) OUTPATIENT/VA INITIATED - REMAINING"""
^DIE(164,"DIAB",3,0,2100,3)="013-4;""(013) PTS REMAINING BY SERVICE - PSYCHIATRY"""
^DIE(164,"DIAB",3,0,2100,4)="017-4;""(017) PTS REMAINING BY SERVICE - NURSING HOME"""
^DIE(164,"DIAB",3,0,2100,5)="021-4;""(021) CONT UNDER COMMITMENT W/O REVIEW - INPATIENT"""
^DIE(164,"DIAB",4,0,2100,1)="006-4;""(006) INPATIENT/NON-VA INITIATED - REMAINING"""
^DIE(164,"DIAB",4,0,2100,2)="010-4;""(010) OUTPATIENT/NON-VA INITIATED - RELEASED"""
^DIE(164,"DIAB",4,0,2100,3)="014-4;""(014) PTS REMAINING BY SERVICE - EXT.HOSP.CARE"""
^DIE(164,"DIAB",4,0,2100,4)="018-4;""(018) PTS REMAINING BY SERVICE - COMM.PLCMNT."""
^DIE(164,"DIAB",4,0,2100,5)="022-4;""(022) CONT UNDER COMMITMENT W/O REVIEW - OUTPATIENT"""
^DIE(164,"DIAB",9,0,2100,0)="001-4;""(001) INPATIENT/VA INITIATED - RELEASED"""
^DIE(164,"DIAB",10,0,2100,0)="002-4;""(002) INPATIENT/VA INITIATED - ADMITTED"""
^DIE(164,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) INPATIENT/VA INITIATED - RELEASED~;54.002(002) INPATIENT/VA INITIATED - ADMITTED~;"
^DIE(164,"DR",1,2100,1)="54.003(003) INPATIENT/VA INITIATED - REMAINING~;54.004(004) INPATIENT/NON-VA INITIATED - RELEASED~;54.005(005) INPATIENT/NON-VA INITIATED - ADMITTED~;54.006(006) INPATIENT/NON-VA INITIATED - REMAINING~;"
^DIE(164,"DR",1,2100,2)="54.007(007) OUTPATIENT/VA INITIATED - RELEASED~;54.008(008) OUTPATIENT/VA INITIATED - ADMITTED~;54.009(009) OUTPATIENT/VA INITIATED - REMAINING~;54.01(010) OUTPATIENT/NON-VA INITIATED - RELEASED~;"
^DIE(164,"DR",1,2100,3)="54.011(011) OUTPATIENT/NON-VA INITIATED - ADMITTED~;54.012(012) OUTPATIENT/NON-VA INITIATED - REMAINING~;54.013(013) PTS REMAINING BY SERVICE - PSYCHIATRY~;54.014(014) PTS REMAINING BY SERVICE - EXT.HOSP.CARE~;"
^DIE(164,"DR",1,2100,4)="54.015(015) PTS REMAINING BY SERVICE - MED/SURGICAL~;54.016(016) PTS REMAINING BY SERVICE - DOMICILIARY~;54.017(017) PTS REMAINING BY SERVICE - NURSING HOME~;54.018(018) PTS REMAINING BY SERVICE - COMM.PLCMNT.~;"
^DIE(164,"DR",1,2100,5)="54.019(019) PTS REVIEWED - INPATIENT~;54.02(020) PTS REVIEWED - OUTPATIENT~;54.021(021) CONT UNDER COMMITMENT W/O REVIEW - INPATIENT~;54.022(022) CONT UNDER COMMITMENT W/O REVIEW - OUTPATIENT~;99///^S X=""$"";"
^DIE(165,0)="YS AMS5 171^2901101.1024^^2100^^^2931004"
^DIE(165,"DIAB",1,0,2100,1)="002-4;""(002) NBR COMP ASSESS EPISODES - RPT MO - COMP ASSIST AND SELF ADMIN QUES"""
^DIE(165,"DIAB",1,0,2100,2)="005-3;""(005) NBR COMP ASSESS EPISODES - RPT MO - FULL NEUROPSYCH BATTERY"""
^DIE(165,"DIAB",1,0,2100,3)="008-4;""(008) NBR PT CONTACTS - RPT MO - FAMILY/COUPLES THERAPY - STAFF"""
^DIE(165,"DIAB",1,0,2100,4)="011-4;""(011) NBR PT CONTACTS - RPT MO - GROUP THERAPY/COUNSELING - TRAINEES"""
^DIE(165,"DIAB",1,0,2100,5)="014-4;""(014) NBR PT CONTACTS - RPT MO - VOCAT REHAB COUNSELING - STAFF"""
^DIE(165,"DIAB",1,0,2100,6)="017-5;""(017) NBR PT CONTACTS - RPT MO - WORK FOR PAY I.T. STAFF"""
^DIE(165,"DIAB",1,0,2100,7)="020-4;""(020) GROUP THERAPY/COUNSELING - NO. SESSIONS FOR RPT MO - TRAINEES"""
^DIE(165,"DIAB",1,0,2100,8)="023-5;""(023) PT CARE SVCS (EX SECRTL) - PT CARE SUPERVISION PROVIDED"""
^DIE(165,"DIAB",1,0,2100,9)="026-6;""(026) PT CARE SVCS (EX SECRTL) - COMPENSATED WORK THERAPY"""
^DIE(165,"DIAB",1,0,2100,10)="029-4;""(029) PROF AND ADMIN ACTIVITIES (EX SECRTL) - PSYCH SVC ADMIN"""
^DIE(165,"DIAB",1,0,2100,11)="032-4;""(032) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ED & TRNING NOT PROVIDED"""
^DIE(165,"DIAB",1,0,2100,12)="035-5;""(035) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - DOCTORAL STAFF"""
^DIE(165,"DIAB",1,0,2100,13)="037-5;""(037) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - SEC/CLERICAL"""
^DIE(165,"DIAB",1,0,2100,14)="039-5;""(039) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - TECH/SPEC AIDS"""
^DIE(165,"DIAB",1,0,2100,15)="041-5;""(041) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - VACO PAID INTERNS"""
^DIE(165,"DIAB",1,0,2100,16)="043-5;""(043) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - UNPAID (WOC) INTERNS"""
^DIE(165,"DIAB",1,0,2100,17)="046-5;""(046) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - PAID OVT HRS"""
^DIE(165,"DIAB",1,0,2100,18)="049-2;""(049) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR CLINICAL PSYCHOLOGIST - FT"""
^DIE(165,"DIAB",1,0,2100,19)="051-2;""(051) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR COUNSELING PSYCHOLOGIST - FT"""
^DIE(165,"DIAB",1,0,2100,20)="053-2;""(053) STAFF ASSIGNED TO PSYCH SVC - RPT MO - DOCTORAL STAFF - FT"""
^DIE(165,"DIAB",1,0,2100,21)="056-2;""(056) STAFF ASSIGNED TO PSYCH SVC - RPT MO - PSY AIDES TECHS SPECS - PT"""
^DIE(165,"DIAB",1,0,2100,22)="059-2;""(059) STAFF ASSIGNED TO PSYCH SVC - RPT MO - MANUAL ARTS THERAPISTS - FT"""
^DIE(165,"DIAB",2,0,2100,1)="003-3;""(003) NBR COMP ASSESS EPISODES - RPT MO - INDIV ASSESS"""
^DIE(165,"DIAB",2,0,2100,2)="006-4;""(006) NBR PT CONTACTS - RPT MO - INDIV THERAPY/COUNSELING - STAFF"""
^DIE(165,"DIAB",2,0,2100,3)="009-4;""(009) NBR PT CONTACTS - RPT MO - FAMILY/COUPLES THERAPY - TRAINEES"""
^DIE(165,"DIAB",2,0,2100,4)="012-4;""(012) NBR PT CONTACTS - RPT MO - TEAM TREATMT - STAFF"""
^DIE(165,"DIAB",2,0,2100,5)="015-4;""(015) NBR PT CONTACTS - RPT MO - VOCAT REHAB COUNSELING - TRAINEES"""
^DIE(165,"DIAB",2,0,2100,6)="018-5;""(018) NBR PT CONTACTS - RPT MO - MANUAL ARTS THERAPY (NON-PAID)"""
^DIE(165,"DIAB",2,0,2100,7)="021-5;""(021) PT CARE SVCS (EX SECRTL) - OTHER STRUC THERAPEUTIC ACTIVITIES"""
^DIE(165,"DIAB",2,0,2100,8)="024-5;""(024) PT CARE SVCS (EX SECRTL) - PT CARE SUPERVISION RECEIVED"""
^DIE(165,"DIAB",2,0,2100,9)="027-6;""(027) PT CARE SVCS (EX SECRTL) - INCENTIVE THERAPY"""
^DIE(165,"DIAB",2,0,2100,10)="030-4;""(030) PROF AND ADMIN ACTIVITIES (EX SECRTL) - MED CTR MGMT SUPPORT"""
^DIE(165,"DIAB",2,0,2100,11)="033-4;""(033) PROF AND ADMIN ACTIVITIES (EX SECRTL) - RESEARCH"""
^DIE(165,"DIAB",2,0,2100,12)="036-5;""(036) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - TECH/SPECS AIDES"""
^DIE(165,"DIAB",2,0,2100,13)="038-5;""(038) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - DOCTORAL STAFF"""
^DIE(165,"DIAB",2,0,2100,14)="040-5;""(040) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - SEC/CLERICAL"""
^DIE(165,"DIAB",2,0,2100,15)="042-5;""(042) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - VACO PAID PRACT. STU"""
^DIE(165,"DIAB",2,0,2100,16)="044-5;""(044) ACTUAL HRS WORKED - RPT MO - PAID HRS MINUS PAID LEAVE - ALL STAFF"""
^DIE(165,"DIAB",2,0,2100,17)="047-5;""(047) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - CONT-OF-PAY HRS"""
^DIE(165,"DIAB",2,0,2100,18)="050-2;""(050) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR CLINICAL PSYCHOLOGIST - PT"""
^DIE(165,"DIAB",2,0,2100,19)="052-2;""(052) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR COUNSELING PSYCHOLOGIST - PT"""
^DIE(165,"DIAB",2,0,2100,20)="054-2;""(054) STAFF ASSIGNED TO PSYCH SVC - RPT MO - DOCTORAL STAFF - PT"""
^DIE(165,"DIAB",2,0,2100,21)="057-2;""(057) STAFF ASSIGNED TO PSYCH SVC - RPT MO - SECRETARY CLERICAL - FT"""
^DIE(165,"DIAB",2,0,2100,22)="060-2;""(060) STAFF ASSIGNED TO PSYCH SVC - RPT MO - MANUAL ARTS THERAPISTS - PT"""
^DIE(165,"DIAB",3,0,2100,1)="004-3;""(004) NBR COMP ASSESS EPISODES - RPT MO - BRIEF NEUROPSYCH BATTERY"""
^DIE(165,"DIAB",3,0,2100,2)="007-4;""(007) NBR PT CONTACTS - RPT MO - INDIV THERAPY/COUNSELING - TRAINEES"""
^DIE(165,"DIAB",3,0,2100,3)="010-5;""(010) NBR PT CONTACTS - RPT MO - GROUP THERAPY/COUNSELING - STAFF"""
^DIE(165,"DIAB",3,0,2100,4)="013-4;""(013) NBR PT CONTACTS - RPT MO - TEAM TREATMT - TRAINEES"""
^DIE(165,"DIAB",3,0,2100,5)="016-5;""(016) NBR PT CONTACTS - RPT MO - WORK FOR PAY C.W.T. STAFF"""
^DIE(165,"DIAB",3,0,2100,6)="019-4;""(019) GROUP THERAPY COUNSELING - NO. SESSIONS FOR RPT MO - STAFF"""
^DIE(165,"DIAB",3,0,2100,7)="022-5;""(022) PT CARE SVCS (EX SECRTL) - PT CARE CONSULTATION"""
^DIE(165,"DIAB",3,0,2100,8)="025-4;""(025) PT CARE SVCS (EX SECRTL) - TREATMNT PRGM MGMT"""
^DIE(165,"DIAB",3,0,2100,9)="028-5;""(028) PT CARE SVCS (EX SECRTL) - MANUAL ARTS THERAPY"""
^DIE(165,"DIAB",3,0,2100,10)="031-4;""(031) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ED & TRNING PROVIDED"""
^DIE(165,"DIAB",3,0,2100,11)="034-4;""(034) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ACT OUTSIDE MED CTR"""
^DIE(165,"DIAB",3,0,2100,16)="045-5;""(045) TOTAL VOL HRS WORKED - ALL SVC COMB - ALL STAFF"""
^DIE(165,"DIAB",3,0,2100,17)="048-5;""(048) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - AWOL AND LWOP HRS"""
^DIE(165,"DIAB",3,0,2100,20)="055-2;""(055) STAFF ASSIGNED TO PSYCH SVC - RPT MO - PSY AIDES TECHS SPECS - FT"""
^DIE(165,"DIAB",3,0,2100,21)="058-2;""(058) STAFF ASSIGNED TO PSYCH SVC - RPT MO - SECRETARY CLERICAL - PT"""
^DIE(165,"DIAB",3,0,2100,22)="061-6;""(061) STAFF ASSIGNED TO PSYCH SVC - RPT MO - ALL STAFF FTEE"""
^DIE(165,"DIAB",9,0,2100,0)="001-4;""(001) NBR COMP ASSESS EPISODES - RPT MO - INTERVIEW BASED"""
^DIE(165,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) NBR COMP ASSESS EPISODES - RPT MO - INTERVIEW BASED~;"
^DIE(165,"DR",1,2100,1)="54.002(002) NBR COMP ASSESS EPISODES - RPT MO - COMP ASSIST AND SELF ADMIN QUES~;53.003(003) NBR COMP ASSESS EPISODES - RPT MO - INDIV ASSESS~;53.004(004) NBR COMP ASSESS EPISODES - RPT MO - BRIEF NEUROPSYCH BATTERY~;"
^DIE(165,"DR",1,2100,2)="53.005(005) NBR COMP ASSESS EPISODES - RPT MO - FULL NEUROPSYCH BATTERY~;54.006(006) NBR PT CONTACTS - RPT MO - INDIV THERAPY/COUNSELING - STAFF~;54.007(007) NBR PT CONTACTS - RPT MO - INDIV THERAPY/COUNSELING - TRAINEES~;"
^DIE(165,"DR",1,2100,3)="54.008(008) NBR PT CONTACTS - RPT MO - FAMILY/COUPLES THERAPY - STAFF~;54.009(009) NBR PT CONTACTS - RPT MO - FAMILY/COUPLES THERAPY - TRAINEES~;55.01(010) NBR PT CONTACTS - RPT MO - GROUP THERAPY/COUNSELING - STAFF~;"
^DIE(165,"DR",1,2100,4)="54.011(011) NBR PT CONTACTS - RPT MO - GROUP THERAPY/COUNSELING - TRAINEES~;54.012(012) NBR PT CONTACTS - RPT MO - TEAM TREATMT - STAFF~;54.013(013) NBR PT CONTACTS - RPT MO - TEAM TREATMT - TRAINEES~;"
^DIE(165,"DR",1,2100,5)="54.014(014) NBR PT CONTACTS - RPT MO - VOCAT REHAB COUNSELING - STAFF~;54.015(015) NBR PT CONTACTS - RPT MO - VOCAT REHAB COUNSELING - TRAINEES~;55.016(016) NBR PT CONTACTS - RPT MO - WORK FOR PAY C.W.T. STAFF~;"
^DIE(165,"DR",1,2100,6)="55.017(017) NBR PT CONTACTS - RPT MO - WORK FOR PAY I.T. STAFF~;55.018(018) NBR PT CONTACTS - RPT MO - MANUAL ARTS THERAPY (NON-PAID)~;54.019(019) GROUP THERAPY COUNSELING - NO. SESSIONS FOR RPT MO - STAFF~;"
^DIE(165,"DR",1,2100,7)="54.02(020) GROUP THERAPY/COUNSELING - NO. SESSIONS FOR RPT MO - TRAINEES~;55.021(021) PT CARE SVCS (EX SECRTL) - OTHER STRUC THERAPEUTIC ACTIVITIES~;55.022(022) PT CARE SVCS (EX SECRTL) - PT CARE CONSULTATION~;"
^DIE(165,"DR",1,2100,8)="55.023(023) PT CARE SVCS (EX SECRTL) - PT CARE SUPERVISION PROVIDED~;55.024(024) PT CARE SVCS (EX SECRTL) - PT CARE SUPERVISION RECEIVED~;54.025(025) PT CARE SVCS (EX SECRTL) - TREATMNT PRGM MGMT~;"
^DIE(165,"DR",1,2100,9)="56.026(026) PT CARE SVCS (EX SECRTL) - COMPENSATED WORK THERAPY~;56.027(027) PT CARE SVCS (EX SECRTL) - INCENTIVE THERAPY~;55.028(028) PT CARE SVCS (EX SECRTL) - MANUAL ARTS THERAPY~;"
^DIE(165,"DR",1,2100,10)="54.029(029) PROF AND ADMIN ACTIVITIES (EX SECRTL) - PSYCH SVC ADMIN~;54.03(030) PROF AND ADMIN ACTIVITIES (EX SECRTL) - MED CTR MGMT SUPPORT~;54.031(031) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ED & TRNING PROVIDED~;"
^DIE(165,"DR",1,2100,11)="54.032(032) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ED & TRNING NOT PROVIDED~;54.033(033) PROF AND ADMIN ACTIVITIES (EX SECRTL) - RESEARCH~;54.034(034) PROF AND ADMIN ACTIVITIES (EX SECRTL) - ACT OUTSIDE MED CTR~;"
^DIE(165,"DR",1,2100,12)="55.035(035) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - DOCTORAL STAFF~;55.036(036) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - TECH/SPECS AIDES~;"
^DIE(165,"DR",1,2100,13)="55.037(037) TOTAL PAID HRS - RPT MO - REG,OVT,LEAVE AND HOLIDAY - SEC/CLERICAL~;55.038(038) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - DOCTORAL STAFF~;"
^DIE(165,"DR",1,2100,14)="55.039(039) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - TECH/SPEC AIDS~;55.04(040) TOTAL PAID LEAVE HRS - RPT MO - AL,SICK,HOL,MIL,JURY - SEC/CLERICAL~;"
^DIE(165,"DR",1,2100,15)="55.041(041) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - VACO PAID INTERNS~;55.042(042) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - VACO PAID PRACT. STU~;"
^DIE(165,"DR",1,2100,16)="55.043(043) TOTAL TRAINEE HRS WORKED (EX HOL,PERSL,OFF-STA) - UNPAID (WOC) INTERNS~;55.044(044) ACTUAL HRS WORKED - RPT MO - PAID HRS MINUS PAID LEAVE - ALL STAFF~;55.045(045) TOTAL VOL HRS WORKED - ALL SVC COMB - ALL STAFF~;"
^DIE(165,"DR",1,2100,17)="55.046(046) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - PAID OVT HRS~;55.047(047) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - CONT-OF-PAY HRS~;55.048(048) TOTAL HRS - RPT MO - ALL PSYCH SVC EMPL COMB - AWOL AND LWOP HRS~;"
^DIE(165,"DR",1,2100,18)="57.049(049) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR CLINICAL PSYCHOLOGIST - FT~;57.05(050) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR CLINICAL PSYCHOLOGIST - PT~;"
^DIE(165,"DR",1,2100,19)="57.051(051) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR COUNSELING PSYCHOLOGIST - FT~;57.052(052) STAFF ASSIGNED TO PSYCH SVC - RPT MO - NBR COUNSELING PSYCHOLOGIST - PT~;"
^DIE(165,"DR",1,2100,20)="57.053(053) STAFF ASSIGNED TO PSYCH SVC - RPT MO - DOCTORAL STAFF - FT~;57.054(054) STAFF ASSIGNED TO PSYCH SVC - RPT MO - DOCTORAL STAFF - PT~;57.055(055) STAFF ASSIGNED TO PSYCH SVC - RPT MO - PSY AIDES TECHS SPECS - FT~;"
^DIE(165,"DR",1,2100,21)="57.056(056) STAFF ASSIGNED TO PSYCH SVC - RPT MO - PSY AIDES TECHS SPECS - PT~;57.057(057) STAFF ASSIGNED TO PSYCH SVC - RPT MO - SECRETARY CLERICAL - FT~;57.058(058) STAFF ASSIGNED TO PSYCH SVC - RPT MO - SECRETARY CLERICAL - PT~;"
^DIE(165,"DR",1,2100,22)="57.059(059) STAFF ASSIGNED TO PSYCH SVC - RPT MO - MANUAL ARTS THERAPISTS - FT~;57.06(060) STAFF ASSIGNED TO PSYCH SVC - RPT MO - MANUAL ARTS THERAPISTS - PT~;56.061(061) STAFF ASSIGNED TO PSYCH SVC - RPT MO - ALL STAFF FTEE~;"
^DIE(165,"DR",1,2100,23)="99///^S X=""$"";"
^DIE(166,0)="YS AMS5 222^2900620.2002^^2100^^^2900917"
^DIE(166,"DIAB",1,0,2100,1)="004-4;""(004) LOSSES - TO REHOSPITALIZATION"""
^DIE(166,"DIAB",1,0,2100,2)="008-4;""(008) ACTIVE CASES REMAIN/PERIOD IN DTC - OVER 5 YRS"""
^DIE(166,"DIAB",1,0,2100,3)="013-4;""(013) PRODUCTIVE FTEE - PROFESSIONAL FTEE"""
^DIE(166,"DIAB",1,0,2100,4)="017-4;""(017) TOT NO. OF DIF PTS TREATED/ELIG STAT - NON-SVC CON"""
^DIE(166,"DIAB",2,0,2100,1)="005-4;""(005) LOSSES - OTHER"""
^DIE(166,"DIAB",2,0,2100,2)="009-4;""(009) AVERAGE DAILY ATTENDANCE"""
^DIE(166,"DIAB",2,0,2100,3)="014-4;""(014) PRODUCTIVE FTEE - NON-PROFESSIONAL FTEE"""
^DIE(166,"DIAB",2,0,2100,4)="018-4;""(018) SUPPORT VISITS"""
^DIE(166,"DIAB",3,0,2100,1)="006-4;""(006) ACTIVE CASES REMAIN/PERIOD IN DTC - UNDER 1 YR"""
^DIE(166,"DIAB",3,0,2100,2)="010-4;""(010) NO. OF PTS ENTERING EMPLOYMENT"""
^DIE(166,"DIAB",3,0,2100,3)="015-4;""(015) TOTAL HOURS WORKED"""
^DIE(166,"DIAB",4,0,2100,1)="007-4;""(007) ACTIVE CASES REMAIN/PERIOD IN DTC - 1-5 YRS"""
^DIE(166,"DIAB",4,0,2100,2)="011-4;""(011) VOLUNTEERS - NO. OF PARTICIPANTS"""
^DIE(166,"DIAB",4,0,2100,3)="016-4;""(016) TOT NO. OF DIF PTS TREATED/ELIG STAT - SVC CON"""
^DIE(166,"DIAB",5,0,2100,2)="012-5;""(012) VOLUNTEERS - HOURS SERVED"""
^DIE(166,"DIAB",9,0,2100,0)="001-4;""(001) GAINS - NEW CASES"""
^DIE(166,"DIAB",10,0,2100,0)="002-4;""(002) GAINS - REOPENED CASES"""
^DIE(166,"DIAB",11,0,2100,0)="003-4;""(003) LOSSES - NO FURTHER TREATMENT REQUIRED"""
^DIE(166,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) GAINS - NEW CASES~;54.002(002) GAINS - REOPENED CASES~;54.003(003) LOSSES - NO FURTHER TREATMENT REQUIRED~;"
^DIE(166,"DR",1,2100,1)="54.004(004) LOSSES - TO REHOSPITALIZATION~;54.005(005) LOSSES - OTHER~;54.006(006) ACTIVE CASES REMAIN/PERIOD IN DTC - UNDER 1 YR~;54.007(007) ACTIVE CASES REMAIN/PERIOD IN DTC - 1-5 YRS~;"
^DIE(166,"DR",1,2100,2)="54.008(008) ACTIVE CASES REMAIN/PERIOD IN DTC - OVER 5 YRS~;54.009(009) AVERAGE DAILY ATTENDANCE~;54.01(010) NO. OF PTS ENTERING EMPLOYMENT~;54.011(011) VOLUNTEERS - NO. OF PARTICIPANTS~;55.012(012) VOLUNTEERS - HOURS SERVED~;"
^DIE(166,"DR",1,2100,3)="54.013(013) PRODUCTIVE FTEE - PROFESSIONAL FTEE~;54.014(014) PRODUCTIVE FTEE - NON-PROFESSIONAL FTEE~;54.015(015) TOTAL HOURS WORKED~;54.016(016) TOT NO. OF DIF PTS TREATED/ELIG STAT - SVC CON~;"
^DIE(166,"DR",1,2100,4)="54.017(017) TOT NO. OF DIF PTS TREATED/ELIG STAT - NON-SVC CON~;54.018(018) SUPPORT VISITS~;99///^S X=""$"";"
^DIE(167,0)="YS AMS5 229^2900620.1308^^2100"
^DIE(167,"DIAB",1,0,2100,1)="003-4;""(003) LOSSES - NO FURTHER TREATMENT REQUIRED"""
^DIE(167,"DIAB",1,0,2100,2)="008-4;""(008) PRODUCTIVE FTEE - NON-PROFESSIONAL FTEE"""
^DIE(167,"DIAB",2,0,2100,1)="004-4;""(004) LOSSES - TO REHOSP (PSYCH BED SECTION)"""
^DIE(167,"DIAB",2,0,2100,2)="009-4;""(009) TOT # OF DIF PTS TREAT/ELIG STAT - SVC CON"""
^DIE(167,"DIAB",3,0,2100,1)="005-4;""(005) LOSSES - OTHER"""
^DIE(167,"DIAB",3,0,2100,2)="010-4;""(010) TOT # OF DIF PTS TREAT/ELIG STAT - NON-SVC CON"""
^DIE(167,"DIAB",4,0,2100,1)="006-4;""(006) ACTIVE CASES REMAINING"""
^DIE(167,"DIAB",4,0,2100,2)="011-4;""(011) SUPPORT VISITS"""
^DIE(167,"DIAB",5,0,2100,1)="007-4;""(007) PRODUCTIVE FTEE - PROFESSIONAL FTEE"""
^DIE(167,"DIAB",9,0,2100,0)="001-4;""(001) GAINS - FROM HOSPITAL"""
^DIE(167,"DIAB",10,0,2100,0)="002-4;""(002) GAINS - FROM APPLICATION"""
^DIE(167,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) GAINS - FROM HOSPITAL~;54.002(002) GAINS - FROM APPLICATION~;"
^DIE(167,"DR",1,2100,1)="54.003(003) LOSSES - NO FURTHER TREATMENT REQUIRED~;54.004(004) LOSSES - TO REHOSP (PSYCH BED SECTION)~;54.005(005) LOSSES - OTHER~;54.006(006) ACTIVE CASES REMAINING~;54.007(007) PRODUCTIVE FTEE - PROFESSIONAL FTEE~;"
^DIE(167,"DR",1,2100,2)="54.008(008) PRODUCTIVE FTEE - NON-PROFESSIONAL FTEE~;54.009(009) TOT # OF DIF PTS TREAT/ELIG STAT - SVC CON~;54.01(010) TOT # OF DIF PTS TREAT/ELIG STAT - NON-SVC CON~;54.011(011) SUPPORT VISITS~;99///^S X=""$"";"
^DIE(168,0)="YS AMS5 311^2900917.0749^^2100^0^^2900917"
^DIE(168,"DIAB",1,0,2100,1)="003-3;""(003) GAINS - TRANSFER FR OTHER VA FACILITY"""
^DIE(168,"DIAB",1,0,2100,2)="008-3;""(008) LOSSES - TO STATION OPT CARE"""""
^DIE(168,"DIAB",1,0,2100,3)="013-3;""(013) LOSSES - OTHER"""
^DIE(168,"DIAB",1,0,2100,4)="019-3;""(019) OTHER MODALITIES"""
^DIE(168,"DIAB",1,0,2100,5)="024-3;""(024) DX OF PTS ADMITTED BY ICD-9 - 304.2 & 305.6"""
^DIE(168,"DIAB",1,0,2100,6)="028-3;""(028) DX OF PTS ADMITTED BY ICD-9 - 304.6"""
^DIE(168,"DIAB",1,0,2100,7)="032-3;""(032) # OF PTS ADMITTED WITH SERVICE IN - VIETNAM"""
^DIE(168,"DIAB",1,0,2100,8)="036-3;""(036) APPLICATIONS FOR HOSP CARE - RECEIVED"""
^DIE(168,"DIAB",1,0,2100,9)="039-3;""(039) APPLICATIONS FOR HOSP CARE - CANCELLED/WITHDRAWN"""
^DIE(168,"DIAB",2,0,2100,1)="004-3;""(004) GAINS - REFERRED FR OUTSIDE VA"""
^DIE(168,"DIAB",2,0,2100,2)="009-3;""(009) LOSSES - TRANSFER TO OTHER VA FACILITY"""
^DIE(168,"DIAB",2,0,2100,3)="014-3;""(014) REMAINING IN IN-PT/DETOX - OPIATES"""
^DIE(168,"DIAB",2,0,2100,4)="020-5;""(020) HOSPITAL IN-PT DAYS OF CARE"""
^DIE(168,"DIAB",2,0,2100,5)="025-3;""(025) DX OF PTS ADMITTED BY ICD-9 - 304.3 & 305.2"""
^DIE(168,"DIAB",2,0,2100,6)="029-3;""(O29) ALCOHOL PTS ADMITTED TO DDTC"""
^DIE(168,"DIAB",2,0,2100,7)="033-3;""(033) # OF PTS ADMITTED WITH SERVICE IN - U.S. ONLY"""
^DIE(168,"DIAB",2,0,2100,8)="037-3;""(037) APPLICATIONS FOR HOSP CARE - IN NEED OF CARE"""
^DIE(168,"DIAB",2,0,2100,9)="040-3;""(040) APPLICATIONS FOR HOSP CARE - LEGALLY INELIGIBLE"""
^DIE(168,"DIAB",3,0,2100,1)="005-3;""(005) GAINS - ALL OTHER"""
^DIE(168,"DIAB",3,0,2100,2)="010-3;""(010) LOSSES - REFERRED OUTSIDE VA"""
^DIE(168,"DIAB",3,0,2100,3)="015-3;""(015) REMAINING IN IN-PT/DETOX - ALL OTHER"""
^DIE(168,"DIAB",3,0,2100,4)="021-3;""(021) OPERATING BEDS"""
^DIE(168,"DIAB",3,0,2100,5)="026-3;""(026) DX OF PTS ADMITTED BY ICD-9 - 304.4 & 305.7"""
^DIE(168,"DIAB",3,0,2100,6)="030-3;""(030) PTS ADMITTED WITH MULTIPLE DRUG USE"""
^DIE(168,"DIAB",3,0,2100,7)="034-3;""(034) # OF ASMRO REFERRALS"""
^DIE(168,"DIAB",3,0,2100,8)="038-3;""(038) APPLICATIONS FOR HOSP CARE - NOT IN NEED OF CARE"""
^DIE(168,"DIAB",3,0,2100,9)="041-3;""(041) APPLICATIONS FOR HOSP CARE - PENDING DETERMINATION ELIG EOP"""
^DIE(168,"DIAB",4,0,2100,1)="006-3;""(006) LOSSES - TREATMENT COMPLETED"""
^DIE(168,"DIAB",4,0,2100,2)="011-3;""(011) LOSSES - PTS REJECTING CARE"""
^DIE(168,"DIAB",4,0,2100,3)="016-3;""(016) METHADONE MAINTENANCE"""
^DIE(168,"DIAB",4,0,2100,4)="022-3;""(022) DX OF PTS ADMITTED BY ICD-9 - 305.5,304.0 & 304.7"""
^DIE(168,"DIAB",4,0,2100,5)="027-3;""(027) DX OF PTS ADMITTED BY ICD-9 - 304.5 & 305.3"""
^DIE(168,"DIAB",4,0,2100,6)="031-3;""(031) # OF PTS ADMITTED WITH SERVICE IN - EUROPE"""
^DIE(168,"DIAB",4,0,2100,7)="035-3;""(035) PTS WITH CONCURRENT ALCOHOL PROBLEM EOP"""
^DIE(168,"DIAB",5,0,2100,1)="007-3;""(007) LOSSES - TREATMENT NOT COMPLETE"""
^DIE(168,"DIAB",5,0,2100,2)="012-3;""(012) LOSSES - DISCIPLINARY ACTION"""
^DIE(168,"DIAB",5,0,2100,3)="017-4;""(017) NALTREXONE MAINTENANCE"""
^DIE(168,"DIAB",5,0,2100,4)="023-3;""(023) DX OF PTS ADMITTED BY ICD-9 - 304.1 & 305.4"""
^DIE(168,"DIAB",6,0,2100,3)="018-3;""(018) DRUG FREE THERAPY"""
^DIE(168,"DIAB",9,0,2100,0)="001-3;""(001) GAINS/FR STAT OPT CARE - AMB. CARE"""
^DIE(168,"DIAB",10,0,2100,0)="002-3;""(002) GAINS/FR STAT OPT CARE - OTHER"""
^DIE(168,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) GAINS/FR STAT OPT CARE - AMB. CARE~;53.002(002) GAINS/FR STAT OPT CARE - OTHER~;"
^DIE(168,"DR",1,2100,1)="53.003(003) GAINS - TRANSFER FR OTHER VA FACILITY~;53.004(004) GAINS - REFERRED FR OUTSIDE VA~;53.005(005) GAINS - ALL OTHER~;53.006(006) LOSSES - TREATMENT COMPLETED~;53.007(007) LOSSES - TREATMENT NOT COMPLETE~;"
^DIE(168,"DR",1,2100,2)="53.008(008) LOSSES - TO STATION OPT CARE~;53.009(009) LOSSES - TRANSFER TO OTHER VA FACILITY~;53.01(010) LOSSES - REFERRED OUTSIDE VA~;53.011(011) LOSSES - PTS REJECTING CARE~;53.012(012) LOSSES - DISCIPLINARY ACTION~;"
^DIE(168,"DR",1,2100,3)="53.013(013) LOSSES - OTHER~;53.014(014) REMAINING IN IN-PT/DETOX - OPIATES~;53.015(015) REMAINING IN IN-PT/DETOX - ALL OTHER~;53.016(016) METHADONE MAINTENANCE~;54.017(017) NALTREXONE MAINTENANCE~;53.018(018) DRUG FREE THERAPY~;"
^DIE(168,"DR",1,2100,4)="53.019(019) OTHER MODALITIES~;55.02(020) HOSPITAL IN-PT DAYS OF CARE~;53.021(021) OPERATING BEDS~;53.022(022) DX OF PTS ADMITTED BY ICD-9 - 305.5,304.0 & 304.7~;53.023(023) DX OF PTS ADMITTED BY ICD-9 - 304.1 & 305.4~;"
^DIE(168,"DR",1,2100,5)="53.024(024) DX OF PTS ADMITTED BY ICD-9 - 304.2 & 305.6~;53.025(025) DX OF PTS ADMITTED BY ICD-9 - 304.3 & 305.2~;53.026(026) DX OF PTS ADMITTED BY ICD-9 - 304.4 & 305.7~;53.027(027) DX OF PTS ADMITTED BY ICD-9 - 304.5 & 305.3~;"
^DIE(168,"DR",1,2100,6)="53.028(028) DX OF PTS ADMITTED BY ICD-9 - 304.6~;53.029(O29) ALCOHOL PTS ADMITTED TO DDTC~;53.03(030) PTS ADMITTED WITH MULTIPLE DRUG USE~;53.031(031) # OF PTS ADMITTED WITH SERVICE IN - EUROPE~;"
^DIE(168,"DR",1,2100,7)="53.032(032) # OF PTS ADMITTED WITH SERVICE IN - VIETNAM~;53.033(033) # OF PTS ADMITTED WITH SERVICE IN - U.S. ONLY~;53.034(034) # OF ASMRO REFERRALS~;53.035(035) PTS WITH CONCURRENT ALCOHOL PROBLEM EOP~;"
^DIE(168,"DR",1,2100,8)="53.036(036) APPLICATIONS FOR HOSP CARE - RECEIVED~;53.037(037) APPLICATIONS FOR HOSP CARE - IN NEED OF CARE~;53.038(038) APPLICATIONS FOR HOSP CARE - NOT IN NEED OF CARE~;"
^DIE(168,"DR",1,2100,9)="53.039(039) APPLICATIONS FOR HOSP CARE - CANCELLED/WITHDRAWN~;53.04(040) APPLICATIONS FOR HOSP CARE - LEGALLY INELIGIBLE~;53.041(041) APPLICATIONS FOR HOSP CARE - PENDING DETERMINATION ELIG EOP~;99///^S X=""$"";"
^DIE(169,0)="YS AMS5 312^2900917.1143^^2100^0^^2900917"
^DIE(169,"DIAB",1,0,2100,1)="003-4;""(003) GAINS - TO PRE-BED CARE"""
^DIE(169,"DIAB",1,0,2100,2)="008-4;""(008) LOSSES - TRANSFER TO OTHER VA FACILITY"""
^DIE(169,"DIAB",1,0,2100,3)="013-4;""(013) REMAINING IN OPT/DETOX EOP"""
^DIE(169,"DIAB",1,0,2100,4)="019-4;""(019) REMAINING IN AMB CARE EOP - METHADONE MAINT"""
^DIE(169,"DIAB",1,0,2100,5)="023-5;""(023) VISITS MADE"""
^DIE(169,"DIAB",1,0,2100,6)="027-4;""(027) DX OF PTS ADMITTED BY ICD-9 - 304.3 & 305.2"""
^DIE(169,"DIAB",1,0,2100,7)="031-4;""(031) ALCOHOL PTS ADMITTED TO DDTC"""
^DIE(169,"DIAB",1,0,2100,8)="035-4;""(035) # OF PTS ADMITTED WITH SERVICE IN - U.S. ONLY"""
^DIE(169,"DIAB",1,0,2100,9)="039-4;""(039) RATE OF RECIDIVISM FOR VA DRUG CARE - TWO TIMES"""
^DIE(169,"DIAB",1,0,2100,10)="042-4;""(042) RATE OF RECIDIVISM FOR VA DRUG CARE - FIVE OR MORE TIMES"""
^DIE(169,"DIAB",2,0,2100,1)="004-4;""(004) GAINS - TO AMBULATORY CARE"""
^DIE(169,"DIAB",2,0,2100,2)="009-4;""(009) LOSSES - REFERRED OUTSIDE VA"""
^DIE(169,"DIAB",2,0,2100,3)="014-4;""(014) REMAINING IN OPT/DETOX EOP - ALL OTHERS"""
^DIE(169,"DIAB",2,0,2100,4)="020-4;""(020) REMAINING IN AMB CARE EOP - NALTREXONE MAINT"""
^DIE(169,"DIAB",2,0,2100,5)="024-4;""(024) DX OF PTS ADMITTED BY ICD-9 - 305.5,304.0 & 304.7"""
^DIE(169,"DIAB",2,0,2100,6)="028-4;""(028) DX OF PTS ADMITTED BY ICD-9 - 304.4 & 305.7"""
^DIE(169,"DIAB",2,0,2100,7)="032-4;""(032) PTS ADMITTED WITH MULTIPLE DRUG USE"""
^DIE(169,"DIAB",2,0,2100,8)="036-4;""(036) REFERRALS FROM OUTSIDE VA"""
^DIE(169,"DIAB",2,0,2100,9)="040-4;""(040) RATE OF RECIDIVISM FOR VA DRUG CARE - THREE TIMES"""
^DIE(169,"DIAB",2,0,2100,10)="043-4;""(043) OUTREACH CONTACTS - DIRECT"""
^DIE(169,"DIAB",3,0,2100,1)="005-4;""(005) LOSSES - TREATMENT COMPLETED"""
^DIE(169,"DIAB",3,0,2100,2)="010-4;""(010) LOSSES - PTS REJECTING CARE"""
^DIE(169,"DIAB",3,0,2100,3)="015-4;""(015) METHADONE MAINTENANCE"""
^DIE(169,"DIAB",3,0,2100,4)="021-4;""(021) REMAINING IN AMB CARE EOP - OTHER MODALITIES"""
^DIE(169,"DIAB",3,0,2100,5)="025-4;""(025) DX OF PTS ADMITTED BY ICD-9 - 304.1 & 305.4"""
^DIE(169,"DIAB",3,0,2100,6)="029-4;""(029) DX OF PTS ADMITTED BY ICD-9 - 304.5 & 305.3"""
^DIE(169,"DIAB",3,0,2100,7)="033-4;""(033) # OF PTS ADMITTED WITH SERVICE IN - EUROPE"""
^DIE(169,"DIAB",3,0,2100,8)="037-4;""(037) PTS WITH CONCURRENT ALCOHOL PROBLEM EOP"""
^DIE(169,"DIAB",3,0,2100,9)="041-4;""(041) RATE OF RECIDIVISM FOR VA DRUG CARE - FOUR TIMES"""
^DIE(169,"DIAB",3,0,2100,10)="044-4;""(044) OUTREACH CONTACTS - ON BEHALF OF PT"""
^DIE(169,"DIAB",4,0,2100,1)="006-4;""(006) LOSSES - TREATMENT NOT COMPLETED"""
^DIE(169,"DIAB",4,0,2100,2)="011-4;""(011) LOSSES - DISCIPLINARY ACTION"""
^DIE(169,"DIAB",4,0,2100,3)="016-4;""(016) NALTREXONE MAINTENANCE"""
^DIE(169,"DIAB",4,0,2100,4)="022-4;""(022) DIFFERENT PTS VISITING"""
^DIE(169,"DIAB",4,0,2100,5)="026-4;""(026) DX OF PTS ADMITTED BY ICD-9 - 304.2 & 305.6"""
^DIE(169,"DIAB",4,0,2100,6)="030-4;""(030) DX OF PTS ADMITTED BY ICD-9 - 304.6"""
^DIE(169,"DIAB",4,0,2100,7)="034-4;""(034) # OF PTS ADMITTED WITH SERVICE IN - VIETNAM"""
^DIE(169,"DIAB",4,0,2100,8)="038-4;""(038) RATE OF RECIDIVISM FOR VA DRUG CARE - ONE TIME"""
^DIE(169,"DIAB",4,0,2100,10)="045-4;""(045) FOLLOW-UP CONTACTS"""
^DIE(169,"DIAB",5,0,2100,1)="007-4;""(007) LOSSES - TO STATION IN/PT CARE"""
^DIE(169,"DIAB",5,0,2100,2)="012-4;""(012) LOSSES - OTHER EOP"""
^DIE(169,"DIAB",5,0,2100,3)="017-4;""(017) DRUG FREE THERAPY"""
^DIE(169,"DIAB",5,0,2100,10)="046-4;""(046) FAMILY THERAPY"""
^DIE(169,"DIAB",6,0,2100,3)="018-4;""(018) OTHER MODALITIES"""
^DIE(169,"DIAB",9,0,2100,0)="001-4;""(001) GAINS - FR STATION IN/PT CARE"""
^DIE(169,"DIAB",10,0,2100,0)="002-4;""(002) GAINS - TRANSFER FR OTHER VA FACILITY"""
^DIE(169,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) GAINS - FR STATION IN/PT CARE~;54.002(002) GAINS - TRANSFER FR OTHER VA FACILITY~;"
^DIE(169,"DR",1,2100,1)="54.003(003) GAINS - TO PRE-BED CARE~;54.004(004) GAINS - TO AMBULATORY CARE~;54.005(005) LOSSES - TREATMENT COMPLETED~;54.006(006) LOSSES - TREATMENT NOT COMPLETED~;54.007(007) LOSSES - TO STATION IN/PT CARE~;"
^DIE(169,"DR",1,2100,2)="54.008(008) LOSSES - TRANSFER TO OTHER VA FACILITY~;54.009(009) LOSSES - REFERRED OUTSIDE VA~;54.01(010) LOSSES - PTS REJECTING CARE~;54.011(011) LOSSES - DISCIPLINARY ACTION~;54.012(012) LOSSES - OTHER EOP~;"
^DIE(169,"DR",1,2100,3)="54.013(013) REMAINING IN OPT/DETOX EOP~;54.014(014) REMAINING IN OPT/DETOX EOP - ALL OTHERS~;54.015(015) METHADONE MAINTENANCE~;54.016(016) NALTREXONE MAINTENANCE~;54.017(017) DRUG FREE THERAPY~;54.018(018) OTHER MODALITIES~;"
^DIE(169,"DR",1,2100,4)="54.019(019) REMAINING IN AMB CARE EOP - METHADONE MAINT~;54.02(020) REMAINING IN AMB CARE EOP - NALTREXONE MAINT~;54.021(021) REMAINING IN AMB CARE EOP - OTHER MODALITIES~;54.022(022) DIFFERENT PTS VISITING~;"
^DIE(169,"DR",1,2100,5)="55.023(023) VISITS MADE~;54.024(024) DX OF PTS ADMITTED BY ICD-9 - 305.5,304.0 & 304.7~;54.025(025) DX OF PTS ADMITTED BY ICD-9 - 304.1 & 305.4~;54.026(026) DX OF PTS ADMITTED BY ICD-9 - 304.2 & 305.6~;"
^DIE(169,"DR",1,2100,6)="54.027(027) DX OF PTS ADMITTED BY ICD-9 - 304.3 & 305.2~;54.028(028) DX OF PTS ADMITTED BY ICD-9 - 304.4 & 305.7~;54.029(029) DX OF PTS ADMITTED BY ICD-9 - 304.5 & 305.3~;54.03(030) DX OF PTS ADMITTED BY ICD-9 - 304.6~;"
^DIE(169,"DR",1,2100,7)="54.031(031) ALCOHOL PTS ADMITTED TO DDTC~;54.032(032) PTS ADMITTED WITH MULTIPLE DRUG USE~;54.033(033) # OF PTS ADMITTED WITH SERVICE IN - EUROPE~;54.034(034) # OF PTS ADMITTED WITH SERVICE IN - VIETNAM~;"
^DIE(169,"DR",1,2100,8)="54.035(035) # OF PTS ADMITTED WITH SERVICE IN - U.S. ONLY~;54.036(036) REFERRALS FROM OUTSIDE VA~;54.037(037) PTS WITH CONCURRENT ALCOHOL PROBLEM EOP~;54.038(038) RATE OF RECIDIVISM FOR VA DRUG CARE - ONE TIME~;"
^DIE(169,"DR",1,2100,9)="54.039(039) RATE OF RECIDIVISM FOR VA DRUG CARE - TWO TIMES~;54.04(040) RATE OF RECIDIVISM FOR VA DRUG CARE - THREE TIMES~;54.041(041) RATE OF RECIDIVISM FOR VA DRUG CARE - FOUR TIMES~;"
^DIE(169,"DR",1,2100,10)="54.042(042) RATE OF RECIDIVISM FOR VA DRUG CARE - FIVE OR MORE TIMES~;54.043(043) OUTREACH CONTACTS - DIRECT~;54.044(044) OUTREACH CONTACTS - ON BEHALF OF PT~;54.045(045) FOLLOW-UP CONTACTS~;54.046(046) FAMILY THERAPY~;"
^DIE(169,"DR",1,2100,11)="99///^S X=""$"";"
^DIE(170,0)="YS AMS5 313^2900620.1327^^2100"
^DIE(170,"DIAB",1,0,2100,1)="003-4;""(03) IN/PT CARE/LOSSES - REFERRED OUTSIDE VA"""
^DIE(170,"DIAB",1,0,2100,2)="008-4;""(08) O/PT CARE/LOSSES - TRANSFER TO VA DDTC"""
^DIE(170,"DIAB",2,0,2100,1)="004-4;""(04) IN/PT CARE/LOSSES - ALL OTHER"""
^DIE(170,"DIAB",2,0,2100,2)="009-4;""(09) O/PT CARE/LOSSES - REFERRED OUTSIDE VA"""
^DIE(170,"DIAB",3,0,2100,1)="005-4;""(05) IN/PT CARE - PTS REMAINING"""
^DIE(170,"DIAB",3,0,2100,2)="010-4;""(10) O/PT CARE/LOSSES - ALL OTHER"""
^DIE(170,"DIAB",4,0,2100,1)="006-5;""(06) IN/PT CARE - PT DAYS OF CARE"""
^DIE(170,"DIAB",4,0,2100,2)="011-4;""(11) O/PT CARE - REMAINING IN O/PT CARE EOP"""
^DIE(170,"DIAB",5,0,2100,1)="007-4;""(07) O/PT CARE - TOTAL GAINS"""
^DIE(170,"DIAB",5,0,2100,2)="012-5;""(12) O/PT CARE - VISITS MADE"""
^DIE(170,"DIAB",9,0,2100,0)="001-4;""(01) IN/PT CARE - TOTAL GAINS"""
^DIE(170,"DIAB",10,0,2100,0)="002-4;""(02) IN/PT CARE/LOSSES - TRANSFER TO VA DDTC"""
^DIE(170,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(01) IN/PT CARE - TOTAL GAINS~;54.002(02) IN/PT CARE/LOSSES - TRANSFER TO VA DDTC~;"
^DIE(170,"DR",1,2100,1)="54.003(03) IN/PT CARE/LOSSES - REFERRED OUTSIDE VA~;54.004(04) IN/PT CARE/LOSSES - ALL OTHER~;54.005(05) IN/PT CARE - PTS REMAINING~;55.006(06) IN/PT CARE - PT DAYS OF CARE~;54.007(07) O/PT CARE - TOTAL GAINS~;"
^DIE(170,"DR",1,2100,2)="54.008(08) O/PT CARE/LOSSES - TRANSFER TO VA DDTC~;54.009(09) O/PT CARE/LOSSES - REFERRED OUTSIDE VA~;54.01(10) O/PT CARE/LOSSES - ALL OTHER~;54.011(11) O/PT CARE - REMAINING IN O/PT CARE EOP~;55.012(12) O/PT CARE - VISITS MADE~;"
^DIE(170,"DR",1,2100,3)="99///^S X=""$"";"
^DIE(171,0)="YS AMS5 315^2900620.133^^2100^^^2901101"
^DIE(171,"DIAB",1,0,2100,1)="003-3;""(003) GAINS - TRANSFER FR OTHER VA FACILITY"""
^DIE(171,"DIAB",1,0,2100,2)="008-3;""(008) LOSSES - TO STATION O/PT CARE"""
^DIE(171,"DIAB",1,0,2100,3)="013-3;""(013) LOSSES - OTHER"""
^DIE(171,"DIAB",1,0,2100,4)="019-3;""(019) DX OF PTS ADMITTED BY ICD-9 - 303.0"""
^DIE(171,"DIAB",1,0,2100,5)="023-3;""(023) ADMISSIONS BY PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(171,"DIAB",1,0,2100,6)="027-3;""(027) APPLICATIONS FOR HOSP CARE - IN NEED OF CARE"""
^DIE(171,"DIAB",1,0,2100,7)="030-3;""(030) APPLICATIONS FOR HOSP CARE - LEGALLY INELIGIBLE"""
^DIE(171,"DIAB",2,0,2100,1)="004-3;""(004) GAINS - REFERRED FR OUTSIDE VA"""
^DIE(171,"DIAB",2,0,2100,2)="009-3;""(009) LOSSES - TRANSFER TO OTHER VA FACILITY"""
^DIE(171,"DIAB",2,0,2100,3)="014-4;""(014) REMAINING IN IN/PT CARE EOP"""
^DIE(171,"DIAB",2,0,2100,4)="020-3;""(020) DRUG PTS ADMITTED TO ATU"""
^DIE(171,"DIAB",2,0,2100,5)="024-3;""(024) ADMISSIONS BY PERIOD OF SERVICE - ALL OTHER"""
^DIE(171,"DIAB",2,0,2100,6)="028-3;""(028) APPLICATIONS FOR HOSP CARE - NOT IN NEED OF CARE"""
^DIE(171,"DIAB",2,0,2100,7)="031-3;""(031) APPLICATIONS FOR HOSP CARE - PENDING DETERMINATION ELIG EOP"""
^DIE(171,"DIAB",3,0,2100,1)="005-3;""(005) GAINS - ALL OTHER"""
^DIE(171,"DIAB",3,0,2100,2)="010-3;""(010) LOSSES - REFERRED OUTSIDE VA"""
^DIE(171,"DIAB",3,0,2100,3)="015-6;""(015) PT DAYS OF CARE"""
^DIE(171,"DIAB",3,0,2100,4)="021-3;""(021) ADMISSIONS BY PERIOD OF SERVICE - WWII"""
^DIE(171,"DIAB",3,0,2100,5)="025-4;""(025) PTS WITH CONCURRENT DRUG PROBLEM EOP"""
^DIE(171,"DIAB",3,0,2100,6)="029-3;""(029) APPLICATIONS FOR HOSP CARE - CANCELLED/WITHDRAWN"""
^DIE(171,"DIAB",4,0,2100,1)="006-3;""(006) LOSSES - TREATMENT COMPLETED"""
^DIE(171,"DIAB",4,0,2100,2)="011-3;""(011) LOSSES - PTS REJECTING CARE"""
^DIE(171,"DIAB",4,0,2100,3)="016-3;""(016) OPERATING BEDS"""
^DIE(171,"DIAB",4,0,2100,4)="022-3;""(022) ADMISSIONS BY PERIOD OF SERVICE - KOREA"""
^DIE(171,"DIAB",4,0,2100,5)="026-3;""(026) APPLICATIONS FOR HOSP CARE - RECEIVED"""
^DIE(171,"DIAB",5,0,2100,1)="007-3;""(007) LOSSES - TREATMENT NOT COMPLETED"""
^DIE(171,"DIAB",5,0,2100,2)="012-3;""(012) LOSSES - DISCIPLINARY ACTION"""
^DIE(171,"DIAB",5,0,2100,3)="017-3;""(017) DX OF PTS ADMITTED BY ICD-9 - 291 & 303.9"""
^DIE(171,"DIAB",6,0,2100,3)="018-3;""(018) DX OF PTS ADMITTED BY ICD-9 - 305.0"""
^DIE(171,"DIAB",9,0,2100,0)="001-3;""(001) GAINS/FR STATION O/PT CARE - AMB. CARE"""
^DIE(171,"DIAB",10,0,2100,0)="002-3;""(002) GAINS/FR STATION O/PT CARE - OTHER"""
^DIE(171,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) GAINS/FR STATION O/PT CARE - AMB. CARE~;53.002(002) GAINS/FR STATION O/PT CARE - OTHER~;"
^DIE(171,"DR",1,2100,1)="53.003(003) GAINS - TRANSFER FR OTHER VA FACILITY~;53.004(004) GAINS - REFERRED FR OUTSIDE VA~;53.005(005) GAINS - ALL OTHER~;53.006(006) LOSSES - TREATMENT COMPLETED~;53.007(007) LOSSES - TREATMENT NOT COMPLETED~;"
^DIE(171,"DR",1,2100,2)="53.008(008) LOSSES - TO STATION O/PT CARE~;53.009(009) LOSSES - TRANSFER TO OTHER VA FACILITY~;53.01(010) LOSSES - REFERRED OUTSIDE VA~;53.011(011) LOSSES - PTS REJECTING CARE~;53.012(012) LOSSES - DISCIPLINARY ACTION~;"
^DIE(171,"DR",1,2100,3)="53.013(013) LOSSES - OTHER~;54.014(014) REMAINING IN IN/PT CARE EOP~;56.015(015) PT DAYS OF CARE~;53.016(016) OPERATING BEDS~;53.017(017) DX OF PTS ADMITTED BY ICD-9 - 291 & 303.9~;53.018(018) DX OF PTS ADMITTED BY ICD-9 - 305.0~;"
^DIE(171,"DR",1,2100,4)="53.019(019) DX OF PTS ADMITTED BY ICD-9 - 303.0~;53.02(020) DRUG PTS ADMITTED TO ATU~;53.021(021) ADMISSIONS BY PERIOD OF SERVICE - WWII~;53.022(022) ADMISSIONS BY PERIOD OF SERVICE - KOREA~;"
^DIE(171,"DR",1,2100,5)="53.023(023) ADMISSIONS BY PERIOD OF SERVICE - VIETNAM ERA~;53.024(024) ADMISSIONS BY PERIOD OF SERVICE - ALL OTHER~;54.025(025) PTS WITH CONCURRENT DRUG PROBLEM EOP~;53.026(026) APPLICATIONS FOR HOSP CARE - RECEIVED~;"
^DIE(171,"DR",1,2100,6)="53.027(027) APPLICATIONS FOR HOSP CARE - IN NEED OF CARE~;53.028(028) APPLICATIONS FOR HOSP CARE - NOT IN NEED OF CARE~;53.029(029) APPLICATIONS FOR HOSP CARE - CANCELLED/WITHDRAWN~;"
^DIE(171,"DR",1,2100,7)="53.03(030) APPLICATIONS FOR HOSP CARE - LEGALLY INELIGIBLE~;53.031(031) APPLICATIONS FOR HOSP CARE - PENDING DETERMINATION ELIG EOP~;99///^S X=""$"";"
^DIE(172,0)="YS AMS5 316^2900620.1332^^2100^^^2901105"
^DIE(172,"DIAB",1,0,2100,1)="003-4;""(003) GAINS - TO PRE-BED CARE"""
^DIE(172,"DIAB",1,0,2100,2)="008-4;""(008) LOSSES - TRANSFER TO OTHER VA FACILITY"""
^DIE(172,"DIAB",1,0,2100,3)="013-4;""(013) REMAINING IN O/PT CARE EOP"""
^DIE(172,"DIAB",1,0,2100,4)="018-4;""(018) DX OF PTS ADMITTED BY ICD-9 - 305.0"""
^DIE(172,"DIAB",1,0,2100,5)="022-4;""(022) ADMISSIONS BY PERIOD OF SERVICE - KOREA"""
^DIE(172,"DIAB",1,0,2100,6)="026-4;""(026) REFERRALS FR OUTSIDE VA"""
^DIE(172,"DIAB",1,0,2100,7)="030-4;""(030) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 4 TIMES"""
^DIE(172,"DIAB",1,0,2100,8)="034-4;""(034) FOLLOW-UP CONTACTS"""
^DIE(172,"DIAB",2,0,2100,1)="004-4;""(004) GAINS - TO AMBULATORY CARE"""
^DIE(172,"DIAB",2,0,2100,2)="009-4;""(009) LOSSES - REFERRED OUTSIDE VA"""
^DIE(172,"DIAB",2,0,2100,3)="014-4;""(014) REMAINING IN AMBULATORY CARE EOP"""
^DIE(172,"DIAB",2,0,2100,4)="019-4;""(019) DX OF PTS ADMITTED BY ICD-9 - 303.0"""
^DIE(172,"DIAB",2,0,2100,5)="023-4;""(023) ADMISSIONS BY PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(172,"DIAB",2,0,2100,6)="027-4;""(027) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 1 TIME"""
^DIE(172,"DIAB",2,0,2100,7)="031-4;""(031) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 5 OR MORE TIMES"""
^DIE(172,"DIAB",2,0,2100,8)="035-4;""(035) FAMILY THERAPY"""
^DIE(172,"DIAB",3,0,2100,1)="005-4;""(005) LOSSES - TREATMENT COMPLETED"""
^DIE(172,"DIAB",3,0,2100,2)="010-4;""(010) LOSSES - PTS REJECTING CARE"""
^DIE(172,"DIAB",3,0,2100,3)="015-4;""(015) DIFFERENT PTS VISITING"""
^DIE(172,"DIAB",3,0,2100,4)="020-4;""(020) DRUG PTS ADMITTED TO ATU"""
^DIE(172,"DIAB",3,0,2100,5)="024-4;""(024) ADMISSIONS BY PERIOD OF SERVICE - ALL OTHER"""
^DIE(172,"DIAB",3,0,2100,6)="028-4;""(028) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 2 TIMES"""
^DIE(172,"DIAB",3,0,2100,7)="032-4;""(032) OUTREACH CONTACTS - DIRECT"""
^DIE(172,"DIAB",4,0,2100,1)="006-4;""(006) LOSSES - TREATMENT NOT COMPLETED"""
^DIE(172,"DIAB",4,0,2100,2)="011-4;""(011) LOSSES - DISCIPLINARY ACTION"""
^DIE(172,"DIAB",4,0,2100,3)="016-6;""(016) VISITS MADE"""
^DIE(172,"DIAB",4,0,2100,4)="021-4;""(021) ADMISSIONS BY PERIOD OF SERVICE - WWII"""
^DIE(172,"DIAB",4,0,2100,5)="025-4;""(025) PTS WITH CONCURRENT DRUG PROBLEM EOP"""
^DIE(172,"DIAB",4,0,2100,6)="029-4;""(029) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 3 TIMES"""
^DIE(172,"DIAB",4,0,2100,7)="033-4;""(033) OUTREACH CONTACTS - ON BEHALF OF PT"""
^DIE(172,"DIAB",5,0,2100,1)="007-4;""(007) LOSSES - TO STATION IN/PT CARE"""
^DIE(172,"DIAB",5,0,2100,2)="012-4;""(012) LOSSES - OTHER"""
^DIE(172,"DIAB",5,0,2100,3)="017-4;""(017) DX OF PTS ADMITTED BY ICD-9 - 291 & 303.9"""
^DIE(172,"DIAB",9,0,2100,0)="001-4;""(001) GAINS - FR STATION IN/PT CARE"""
^DIE(172,"DIAB",10,0,2100,0)="002-4;""(002) GAINS - TRANSFER FR OTHER VA FACILITY"""
^DIE(172,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) GAINS - FR STATION IN/PT CARE~;54.002(002) GAINS - TRANSFER FR OTHER VA FACILITY~;"
^DIE(172,"DR",1,2100,1)="54.003(003) GAINS - TO PRE-BED CARE~;54.004(004) GAINS - TO AMBULATORY CARE~;54.005(005) LOSSES - TREATMENT COMPLETED~;54.006(006) LOSSES - TREATMENT NOT COMPLETED~;54.007(007) LOSSES - TO STATION IN/PT CARE~;"
^DIE(172,"DR",1,2100,2)="54.008(008) LOSSES - TRANSFER TO OTHER VA FACILITY~;54.009(009) LOSSES - REFERRED OUTSIDE VA~;54.01(010) LOSSES - PTS REJECTING CARE~;54.011(011) LOSSES - DISCIPLINARY ACTION~;54.012(012) LOSSES - OTHER~;"
^DIE(172,"DR",1,2100,3)="54.013(013) REMAINING IN O/PT CARE EOP~;54.014(014) REMAINING IN AMBULATORY CARE EOP~;54.015(015) DIFFERENT PTS VISITING~;56.016(016) VISITS MADE~;54.017(017) DX OF PTS ADMITTED BY ICD-9 - 291 & 303.9~;"
^DIE(172,"DR",1,2100,4)="54.018(018) DX OF PTS ADMITTED BY ICD-9 - 305.0~;54.019(019) DX OF PTS ADMITTED BY ICD-9 - 303.0~;54.02(020) DRUG PTS ADMITTED TO ATU~;54.021(021) ADMISSIONS BY PERIOD OF SERVICE - WWII~;"
^DIE(172,"DR",1,2100,5)="54.022(022) ADMISSIONS BY PERIOD OF SERVICE - KOREA~;54.023(023) ADMISSIONS BY PERIOD OF SERVICE - VIETNAM ERA~;54.024(024) ADMISSIONS BY PERIOD OF SERVICE - ALL OTHER~;54.025(025) PTS WITH CONCURRENT DRUG PROBLEM EOP~;"
^DIE(172,"DR",1,2100,6)="54.026(026) REFERRALS FR OUTSIDE VA~;54.027(027) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 1 TIME~;54.028(028) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 2 TIMES~;54.029(029) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 3 TIMES~;"
^DIE(172,"DR",1,2100,7)="54.03(030) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 4 TIMES~;54.031(031) RATE OF RECIDIVISM FOR VA ALCOHOL CARE - 5 OR MORE TIMES~;54.032(032) OUTREACH CONTACTS - DIRECT~;54.033(033) OUTREACH CONTACTS - ON BEHALF OF PT~;"
^DIE(172,"DR",1,2100,8)="54.034(034) FOLLOW-UP CONTACTS~;54.035(035) FAMILY THERAPY~;99///^S X=""$"";"
^DIE(173,0)="YS AMS5 317^2900620.2038^^2100"
^DIE(173,"DIAB",1,0,2100,1)="003-4;""(003) IN/PT CARE/LOSSES - REFERRED TO OUTSIDE VA"""
^DIE(173,"DIAB",1,0,2100,2)="008-4;""(008) O/PT CARE/LOSSES - TRANSFER TO VA ATU"""
^DIE(173,"DIAB",2,0,2100,1)="004-4;""(004) IN/PT CARE/LOSSES - ALL OTHERS"""
^DIE(173,"DIAB",2,0,2100,2)="009-4;""(009) O/PT CARE/LOSSES - REFERRED TO OUTSIDE VA"""
^DIE(173,"DIAB",3,0,2100,1)="005-4;""(005) IN/PT CARE - PTS REMAINING EOP"""
^DIE(173,"DIAB",3,0,2100,2)="010-4;""(010) O/PT CARE/LOSSES - ALL OTHER"""
^DIE(173,"DIAB",4,0,2100,1)="006-5;""(006) IN/PT CARE - PT DAYS OF CARE"""
^DIE(173,"DIAB",4,0,2100,2)="011-4;""(011) O/PT CARE - REMAINING IN O/PT CARE EOP"""
^DIE(173,"DIAB",5,0,2100,1)="007-4;""(007) O/PT CARE - TOTAL GAINS"""
^DIE(173,"DIAB",5,0,2100,2)="012-5;""(012) VISITS MADE"""
^DIE(173,"DIAB",9,0,2100,0)="001-4;""(001) IN/PT CARE - TOTAL GAINS"""
^DIE(173,"DIAB",10,0,2100,0)="002-4;""(002) IN/PT CARE/LOSSES - TRANSFER TO VA ATU"""
^DIE(173,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) IN/PT CARE - TOTAL GAINS~;54.002(002) IN/PT CARE/LOSSES - TRANSFER TO VA ATU~;"
^DIE(173,"DR",1,2100,1)="54.003(003) IN/PT CARE/LOSSES - REFERRED TO OUTSIDE VA~;54.004(004) IN/PT CARE/LOSSES - ALL OTHERS~;54.005(005) IN/PT CARE - PTS REMAINING EOP~;55.006(006) IN/PT CARE - PT DAYS OF CARE~;54.007(007) O/PT CARE - TOTAL GAINS~;"
^DIE(173,"DR",1,2100,2)="54.008(008) O/PT CARE/LOSSES - TRANSFER TO VA ATU~;54.009(009) O/PT CARE/LOSSES - REFERRED TO OUTSIDE VA~;54.01(010) O/PT CARE/LOSSES - ALL OTHER~;54.011(011) O/PT CARE - REMAINING IN O/PT CARE EOP~;55.012(012) VISITS MADE~;"
^DIE(173,"DR",1,2100,3)="99///^S X=""$"";"
^DIE(174,0)="YS AMS5 172^2900620.1343^^2100"
^DIE(174,"DIAB",1,0,2100,1)="003-2;""(003) PSYCH STAFF-% TIME SPENT 1ST WK - GROUP TREATM"""
^DIE(174,"DIAB",1,0,2100,2)="006-2;""(006) PSYCH STAFF-% TIME SPENT 1ST WK - CONSULTATION"""
^DIE(174,"DIAB",1,0,2100,3)="009-2;""(009) PSYCH STAFF-% TIME SPENT 1ST WK - EDUC & TRNG RECEIVED"""
^DIE(174,"DIAB",1,0,2100,4)="013-2;""(013) PSYCH TRAINEES-% TIME SPENT 1ST WK - ASSESSMENT"""
^DIE(174,"DIAB",1,0,2100,5)="016-2;""(016) PSYCH TRAINEES-% TIME SPENT 1ST WK - OTHER STRUCT GRP ACTIVIT"""
^DIE(174,"DIAB",1,0,2100,6)="019-2;""(019) PSYCH TRAINEES-% TIME SPENT 1ST WK - SUPERVISION"""
^DIE(174,"DIAB",1,0,2100,7)="022-2;""(022) PSYCH TRAINEES-% TIME SPENT 1ST WK - RESEARCH"""
^DIE(174,"DIAB",1,0,2100,8)="025-2;""(025) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ASSESS"""
^DIE(174,"DIAB",1,0,2100,9)="028-2;""(028) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - OTHER GRP ACT"""
^DIE(174,"DIAB",1,0,2100,10)="031-2;""(031) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - SUPERVISION"""
^DIE(174,"DIAB",1,0,2100,11)="034-2;""(034) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - RESEARCH"""
^DIE(174,"DIAB",2,0,2100,1)="004-2;""(004) PSYCH STAFF-% TIME SPENT 1ST WK - OTHER STRUCT GROUP ACTIVIT"""
^DIE(174,"DIAB",2,0,2100,2)="007-2;""(007) PSYCH STAFF-% TIME SPENT 1ST WK - SUPERVISION"""
^DIE(174,"DIAB",2,0,2100,3)="010-2;""(010) PSYCH STAFF-% TIME SPENT 1ST WK - RESEARCH"""
^DIE(174,"DIAB",2,0,2100,4)="014-2;""(014) PSYCH TRAINEES-% TIME SPENT 1ST WK - INDIV TREATM"""
^DIE(174,"DIAB",2,0,2100,5)="017-2;""(017) PSYCH TRAINEES-% TIME SPENT 1ST WK - REPORT WRITING"""
^DIE(174,"DIAB",2,0,2100,6)="020-2;""(020) PSYCH TRAINEES-% TIME SPENT 1ST WK - EDUC & TRNG PROVIDED"""
^DIE(174,"DIAB",2,0,2100,7)="023-2;""(023) PSYCH TRAINEES-% TIME SPENT 1ST WK - ADMIN"""
^DIE(174,"DIAB",2,0,2100,8)="026-2;""(026) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - INDIV TREATM"""
^DIE(174,"DIAB",2,0,2100,9)="029-2;""(029) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - RPT WRIT"""
^DIE(174,"DIAB",2,0,2100,10)="032-2;""(032) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ED & TRN PRVD"""
^DIE(174,"DIAB",2,0,2100,11)="035-2;""(035) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ADMIN"""
^DIE(174,"DIAB",3,0,2100,1)="005-2;""(005) PSYCH STAFF-% TIME SPENT 1ST WK - REPORT WRITING"""
^DIE(174,"DIAB",3,0,2100,2)="008-2;""(008) PSYCH STAFF-% TIME SPENT 1ST WK - EDUC & TRNG PROVIDED"""
^DIE(174,"DIAB",3,0,2100,3)="011-2;""(011) PSYCH STAFF-% TIME SPENT 1ST WK - ADMIN"""
^DIE(174,"DIAB",3,0,2100,4)="015-2;""(015) PSYCH TRAINEES-% TIME SPENT 1ST WK - GROUP TREATM"""
^DIE(174,"DIAB",3,0,2100,5)="018-2;""(018) PSYCH TRAINEES-% TIME SPENT 1ST WK - CONSULTATION"""
^DIE(174,"DIAB",3,0,2100,6)="021-2;""(021) PSYCH TRAINEES-% TIME SPENT 1ST WK - EDUC & TRNG RECEIVED"""
^DIE(174,"DIAB",3,0,2100,7)="024-3;""(024) PSYCH TRAINEES-% TIME SPENT 1ST WK - LEAVE"""
^DIE(174,"DIAB",3,0,2100,8)="027-2;""(027) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - GRP TREATM"""
^DIE(174,"DIAB",3,0,2100,9)="030-2;""(030) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - CONSULT"""
^DIE(174,"DIAB",3,0,2100,10)="033-2;""(033) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ED & TRN RECD"""
^DIE(174,"DIAB",3,0,2100,11)="036-3;""(036) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - LEAVE"""
^DIE(174,"DIAB",4,0,2100,3)="012-3;""(012) PSYCH STAFF-% TIME SPENT 1ST WK - LEAVE"""
^DIE(174,"DIAB",9,0,2100,0)="001-2;""(001) PSYCH STAFF-% TIME SPENT 1ST WK - ASSESSMENT"""
^DIE(174,"DIAB",10,0,2100,0)="002-2;""(002) PSYCH STAFF-% TIME SPENT 1ST WK - INDIV TREATM"""
^DIE(174,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;57.001(001) PSYCH STAFF-% TIME SPENT 1ST WK - ASSESSMENT~;57.002(002) PSYCH STAFF-% TIME SPENT 1ST WK - INDIV TREATM~;"
^DIE(174,"DR",1,2100,1)="57.003(003) PSYCH STAFF-% TIME SPENT 1ST WK - GROUP TREATM~;57.004(004) PSYCH STAFF-% TIME SPENT 1ST WK - OTHER STRUCT GROUP ACTIVIT~;57.005(005) PSYCH STAFF-% TIME SPENT 1ST WK - REPORT WRITING~;"
^DIE(174,"DR",1,2100,2)="57.006(006) PSYCH STAFF-% TIME SPENT 1ST WK - CONSULTATION~;57.007(007) PSYCH STAFF-% TIME SPENT 1ST WK - SUPERVISION~;57.008(008) PSYCH STAFF-% TIME SPENT 1ST WK - EDUC & TRNG PROVIDED~;"
^DIE(174,"DR",1,2100,3)="57.009(009) PSYCH STAFF-% TIME SPENT 1ST WK - EDUC & TRNG RECEIVED~;57.01(010) PSYCH STAFF-% TIME SPENT 1ST WK - RESEARCH~;57.011(011) PSYCH STAFF-% TIME SPENT 1ST WK - ADMIN~;53.012(012) PSYCH STAFF-% TIME SPENT 1ST WK - LEAVE~;"
^DIE(174,"DR",1,2100,4)="57.013(013) PSYCH TRAINEES-% TIME SPENT 1ST WK - ASSESSMENT~;57.014(014) PSYCH TRAINEES-% TIME SPENT 1ST WK - INDIV TREATM~;57.015(015) PSYCH TRAINEES-% TIME SPENT 1ST WK - GROUP TREATM~;"
^DIE(174,"DR",1,2100,5)="57.016(016) PSYCH TRAINEES-% TIME SPENT 1ST WK - OTHER STRUCT GRP ACTIVIT~;57.017(017) PSYCH TRAINEES-% TIME SPENT 1ST WK - REPORT WRITING~;57.018(018) PSYCH TRAINEES-% TIME SPENT 1ST WK - CONSULTATION~;"
^DIE(174,"DR",1,2100,6)="57.019(019) PSYCH TRAINEES-% TIME SPENT 1ST WK - SUPERVISION~;57.02(020) PSYCH TRAINEES-% TIME SPENT 1ST WK - EDUC & TRNG PROVIDED~;57.021(021) PSYCH TRAINEES-% TIME SPENT 1ST WK - EDUC & TRNG RECEIVED~;"
^DIE(174,"DR",1,2100,7)="57.022(022) PSYCH TRAINEES-% TIME SPENT 1ST WK - RESEARCH~;57.023(023) PSYCH TRAINEES-% TIME SPENT 1ST WK - ADMIN~;53.024(024) PSYCH TRAINEES-% TIME SPENT 1ST WK - LEAVE~;"
^DIE(174,"DR",1,2100,8)="57.025(025) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ASSESS~;57.026(026) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - INDIV TREATM~;57.027(027) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - GRP TREATM~;"
^DIE(174,"DR",1,2100,9)="57.028(028) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - OTHER GRP ACT~;57.029(029) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - RPT WRIT~;57.03(030) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - CONSULT~;"
^DIE(174,"DR",1,2100,10)="57.031(031) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - SUPERVISION~;57.032(032) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ED & TRN PRVD~;57.033(033) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ED & TRN RECD~;"
^DIE(174,"DR",1,2100,11)="57.034(034) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - RESEARCH~;57.035(035) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - ADMIN~;53.036(036) PSYCH AIDES/TECHS/VOC REHAB SPEC-% TIME 1ST WK - LEAVE~;99///^S X=""$"";"
^DIE(175,0)="LR AMS5 AFIPA 378^2900321.1716^^2100^^^2931005"
^DIE(175,"DIAB",1,0,2100,1)="003-4;""(003) SURGICALS REFERRED TO AFIP - CONSULTATIONS"""
^DIE(175,"DIAB",2,0,2100,1)="004-4;""(004) SURGICALS REFERRED TO AFIP - SERS"""
^DIE(175,"DIAB",9,0,2100,0)="001-4;""(001) AUTOPSIES REFERRED TO AFIP - CONSULTATIONS"""
^DIE(175,"DIAB",10,0,2100,0)="002-4;""(002) AUTOPSIES REFERRED TO AFIP - SERA"""
^DIE(175,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) AUTOPSIES REFERRED TO AFIP - CONSULTATIONS~;54.002(002) AUTOPSIES REFERRED TO AFIP - SERA~;"
^DIE(175,"DR",1,2100,1)="54.003(003) SURGICALS REFERRED TO AFIP - CONSULTATIONS~;54.004(004) SURGICALS REFERRED TO AFIP - SERS~;99///^S X=""$"";"
^DIE(176,0)="LR AMS5 ADMIN DATA H01^2900618.0948^^2100^^^2931005"
^DIE(176,"DIAB",1,0,2100,1)="003-3;""(003) AUTOPSY BACKLOG - PROTOCOL INCOMPLETE"""
^DIE(176,"DIAB",1,0,2100,2)="009-3;""(009) CYTOTECHNOLOGIST"""
^DIE(176,"DIAB",1,0,2100,3)="015-5;""(015) FEE BASIS - NUMBER OF TESTS REQUESTED"""
^DIE(176,"DIAB",1,0,2100,4)="018-5;""(018) TO OTHER THAN VA - FREE BASIS - NO. OF TESTS REQUESTED"""
^DIE(176,"DIAB",1,0,2100,5)="022-4;""(022) EXTRA VA - UNITS RED CROSS"""
^DIE(176,"DIAB",1,0,2100,6)="026-4;""(026) NO. PATIENTS TRANSFUSED WITH PLASMA,PLATELETS & CRYOPRECIPITATE"""
^DIE(176,"DIAB",1,0,2100,7)="030-4;""(030) UNITS PLATELETS TRANSFUSED"""
^DIE(176,"DIAB",1,0,2100,8)="035-4;""(035) UNITS TRANSFERRED TO OTHER BLOOD BANKS"""
^DIE(176,"DIAB",1,0,2100,9)="039-7;""(039) TOTAL NO. OF TESTS PERFORMED ON OUTPATIENTS"""
^DIE(176,"DIAB",2,0,2100,1)="004-3;""(004) PATHOLOGY RESIDENTS"""
^DIE(176,"DIAB",2,0,2100,2)="010-3;""(010) HISTOLOGY TECHNICIAN"""
^DIE(176,"DIAB",2,0,2100,3)="016-5;""(016) TO OTHER VA IN MEDICAL DISTRICT - NO. OF TESTS REQUESTED"""
^DIE(176,"DIAB",2,0,2100,4)="019-5;""(019) LAB SERVICE SPACE NET SQUARE FEET"""
^DIE(176,"DIAB",2,0,2100,5)="023-4;""(023) EXTRA VA - UNITS OTHER VOL. DONATION"""
^DIE(176,"DIAB",2,0,2100,6)="027-4;""(027) UNITS WHOLE BLOOD TRANSFUSED"""
^DIE(176,"DIAB",2,0,2100,7)="031-4;""(031) UNITS CRYOPRECIPITATE TRANSFUSED"""
^DIE(176,"DIAB",2,0,2100,8)="036-4;""(036) TOTAL REPORTED TRANSFUSION REACTIONS"""
^DIE(176,"DIAB",3,0,2100,1)="005-3;""(005) RES. OTHER THAN PATH."""
^DIE(176,"DIAB",3,0,2100,2)="011-3;""(011) PATHOLOGIST'S ASSISTANT"""
^DIE(176,"DIAB",3,0,2100,3)="017-5;""(017) TO OTHER THAN VA - SHARING BASIS - NO. OF TESTS REQUESTED"""
^DIE(176,"DIAB",3,0,2100,4)="020-4;""(020) VA - UNITS VOLUNTARY DONATION"""
^DIE(176,"DIAB",3,0,2100,5)="024-4;""(024) EXTRA VA - UNITS PAID DONATION"""
^DIE(176,"DIAB",3,0,2100,6)="028-4;""(028) UNITS PACKED RBC TRANSFUSED"""
^DIE(176,"DIAB",3,0,2100,7)="032-4;""(032) UNITS DISCARDED BEFORE OUTDATING"""
^DIE(176,"DIAB",3,0,2100,8)="037-4;""(037) NUMBER MINOR REACTIONS"""
^DIE(176,"DIAB",4,0,2100,1)="006-3;""(006) MEDICAL TECHNOLOGIST"""
^DIE(176,"DIAB",4,0,2100,2)="012-3;""(012) AUTOPSY ASSISTANT"""
^DIE(176,"DIAB",4,0,2100,4)="021-4;""(021) VA - UNITS PAID DONATION"""
^DIE(176,"DIAB",4,0,2100,5)="025-4;""(025) NO. PATIENTS TRANSFUSED WITH WHOLE BLOOD & PACKED RBC'S"""
^DIE(176,"DIAB",4,0,2100,6)="029-4;""(029) UNITS PLASMA TRANSFUSED"""
^DIE(176,"DIAB",4,0,2100,7)="033-4;""(033) UNITS OUTDATED"""
^DIE(176,"DIAB",4,0,2100,8)="038-4;""(038) NUMBER HEMOLYTIC REACTIONS"""
^DIE(176,"DIAB",5,0,2100,1)="007-3;""(007) MEDICAL LAB TECH."""
^DIE(176,"DIAB",5,0,2100,2)="013-3;""(013) OTHER"""
^DIE(176,"DIAB",5,0,2100,7)="034-4;""(034) UNITS RETURNED TO RED CROSS FOR CREDIT"""
^DIE(176,"DIAB",6,0,2100,1)="008-3;""(008) CERIFIED LAB. ASS'T."""
^DIE(176,"DIAB",6,0,2100,2)="014-7;""(014) FEE BASIS - TOTAL COSTS"""
^DIE(176,"DIAB",9,0,2100,0)="001-5;""(001) TOTAL NO. OF OTHER TESTS NOT SHOWN ELSEWHERE"""
^DIE(176,"DIAB",10,0,2100,0)="002-3;""(002) AUTOPSY BACKLOG - MICROSCOPIC INCOMPLETE"""
^DIE(176,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) TOTAL NO. OF OTHER TESTS NOT SHOWN ELSEWHERE~;53.002(002) AUTOPSY BACKLOG - MICROSCOPIC INCOMPLETE~;"
^DIE(176,"DR",1,2100,1)="53.003(003) AUTOPSY BACKLOG - PROTOCOL INCOMPLETE~;53.004(004) PATHOLOGY RESIDENTS~;53.005(005) RES. OTHER THAN PATH.~;53.006(006) MEDICAL TECHNOLOGIST~;53.007(007) MEDICAL LAB TECH.~;53.008(008) CERIFIED LAB. ASS'T.~;"
^DIE(176,"DR",1,2100,2)="53.009(009) CYTOTECHNOLOGIST~;53.01(010) HISTOLOGY TECHNICIAN~;53.011(011) PATHOLOGIST'S ASSISTANT~;53.012(012) AUTOPSY ASSISTANT~;53.013(013) OTHER~;58.014(014) FEE BASIS - TOTAL COSTS~;"
^DIE(176,"DR",1,2100,3)="55.015(015) FEE BASIS - NUMBER OF TESTS REQUESTED~;55.016(016) TO OTHER VA IN MEDICAL DISTRICT - NO. OF TESTS REQUESTED~;55.017(017) TO OTHER THAN VA - SHARING BASIS - NO. OF TESTS REQUESTED~;"
^DIE(176,"DR",1,2100,4)="55.018(018) TO OTHER THAN VA - FREE BASIS - NO. OF TESTS REQUESTED~;55.019(019) LAB SERVICE SPACE NET SQUARE FEET~;54.02(020) VA - UNITS VOLUNTARY DONATION~;54.021(021) VA - UNITS PAID DONATION~;"
^DIE(176,"DR",1,2100,5)="54.022(022) EXTRA VA - UNITS RED CROSS~;54.023(023) EXTRA VA - UNITS OTHER VOL. DONATION~;54.024(024) EXTRA VA - UNITS PAID DONATION~;54.025(025) NO. PATIENTS TRANSFUSED WITH WHOLE BLOOD & PACKED RBC'S~;"
^DIE(176,"DR",1,2100,6)="54.026(026) NO. PATIENTS TRANSFUSED WITH PLASMA,PLATELETS & CRYOPRECIPITATE~;54.027(027) UNITS WHOLE BLOOD TRANSFUSED~;54.028(028) UNITS PACKED RBC TRANSFUSED~;54.029(029) UNITS PLASMA TRANSFUSED~;"
^DIE(176,"DR",1,2100,7)="54.03(030) UNITS PLATELETS TRANSFUSED~;54.031(031) UNITS CRYOPRECIPITATE TRANSFUSED~;54.032(032) UNITS DISCARDED BEFORE OUTDATING~;54.033(033) UNITS OUTDATED~;54.034(034) UNITS RETURNED TO RED CROSS FOR CREDIT~;"
^DIE(176,"DR",1,2100,8)="54.035(035) UNITS TRANSFERRED TO OTHER BLOOD BANKS~;54.036(036) TOTAL REPORTED TRANSFUSION REACTIONS~;54.037(037) NUMBER MINOR REACTIONS~;54.038(038) NUMBER HEMOLYTIC REACTIONS~;"
^DIE(176,"DR",1,2100,9)="58.039(039) TOTAL NO. OF TESTS PERFORMED ON OUTPATIENTS~;99///^S X=""$"";"
^DIE(177,0)="LR AMS5 AUTO CHEM H02-H18^2900618.1556^^2100^^^2931005"
^DIE(177,"DIAB",1,0,2100,1)="003-5;""(003) INSTRUMENT SET UP 82410 - STANDARD"""
^DIE(177,"DIAB",1,0,2100,2)="008-5;""(008) AMYLASE (COLORIMETRIC) 82150 - QUALITY CONTROL"""
^DIE(177,"DIAB",1,0,2100,3)="012-5;""(012) BILIRUBIN,TOTAL AND DIRECT 82251 - STANDARD"""
^DIE(177,"DIAB",1,0,2100,4)="016-5;""(016) CALCIUM,BLOOD OR URINE 82310 - TEST"""
^DIE(177,"DIAB",1,0,2100,5)="020-5;""(020) CARBON DIOXIDE CONTENT 82830 - QUALITY CONTROL"""
^DIE(177,"DIAB",1,0,2100,6)="024-5;""(024) CHLORIDE,BLOOD URINE,CSF 82435 - STANDARD"""
^DIE(177,"DIAB",1,0,2100,7)="026-5;""(026) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - QUALITY CONTROL"""
^DIE(177,"DIAB",1,0,2100,8)="028-5;""(028) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - TEST"""
^DIE(177,"DIAB",1,0,2100,9)="031-5;""(031) CREATININE 82565 - TEST"""
^DIE(177,"DIAB",1,0,2100,10)="036-5;""(036) GLUCOSE,QUANT 84330 - STANDARD"""
^DIE(177,"DIAB",2,0,2100,1)="004-5;""(004) ALBUMIN 82040 - TEST"""
^DIE(177,"DIAB",2,0,2100,2)="009-5;""(009) AMYLASE (COLORIMETRIC) 82150 - STANDARD"""
^DIE(177,"DIAB",2,0,2100,3)="013-5;""(013) BILIRUBIN,TOTAL OR DIRECT 82250 - TEST"""
^DIE(177,"DIAB",2,0,2100,4)="017-5;""(017) CALCIUM,BLOOD OR URINE 82310 - QUALITY CONTROL"""
^DIE(177,"DIAB",2,0,2100,5)="021-5;""(021) CARBON DIOXIDE CONTENT 82830 - STANDARD"""
^DIE(177,"DIAB",2,0,2100,6)="025-5;""(025) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - TEST"""
^DIE(177,"DIAB",2,0,2100,7)="027-5;""(027) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - STANDARD"""
^DIE(177,"DIAB",2,0,2100,8)="029-5;""(029) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - QUALITY CONTROL"""
^DIE(177,"DIAB",2,0,2100,9)="032-5;""(032) CREATININE 82565 - QUALITY CONTROL"""
^DIE(177,"DIAB",3,0,2100,1)="005-5;""(005) ALBUMIN 82040 - QUALITY CONTROL"""
^DIE(177,"DIAB",3,0,2100,2)="010-5;""(010) BILIRUBIN,TOTAL AND DIRECT 82251 - TEST"""
^DIE(177,"DIAB",3,0,2100,3)="014-5;""(014) BILIRUBIN,TOTAL OR DIRECT 82250 - QUALITY CONTROL"""
^DIE(177,"DIAB",3,0,2100,4)="018-5;""(018) CALCIUM,BLOOD OR URINE 82310 - STANDARD"""
^DIE(177,"DIAB",3,0,2100,5)="022-5;""(022) CHLORIDE,BLOOD URINE,CSF 82435 - TEST"""
^DIE(177,"DIAB",3,0,2100,8)="030-5;""(030) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - STANDARD"""
^DIE(177,"DIAB",3,0,2100,9)="033-5;""(033) CREATININE 82565 - STANDARD"""
^DIE(177,"DIAB",4,0,2100,1)="006-5;""(006) ALBUMIN 82040 - STANDARD"""
^DIE(177,"DIAB",4,0,2100,2)="011-5;""(011) BILIRUBIN,TOTAL AND DIRECT 82251 - QUALITY CONTROL"""
^DIE(177,"DIAB",4,0,2100,3)="015-5;""(015) BILIRUBIN,TOTAL OR DIRECT 82250 - STANDARD"""
^DIE(177,"DIAB",4,0,2100,4)="019-5;""(019) CARBON DIOXIDE CONTENT 82830 - TEST"""
^DIE(177,"DIAB",4,0,2100,5)="023-5;""(023) CHLORIDE,BLOOD URINE,CSF 82435 - QUALITY CONTROL"""
^DIE(177,"DIAB",4,0,2100,9)="034-5;""(034) GLUCOSE,QUANT 84330 - TEST"""
^DIE(177,"DIAB",5,0,2100,1)="007-5;""(007) AMYLASE (COLORIMETRIC) 82150 - TEST"""
^DIE(177,"DIAB",5,0,2100,9)="035-5;""(035) GLUCOSE,QUANT 84330 - QUALITY CONTROL"""
^DIE(177,"DIAB",9,0,2100,0)="001-5;""(001) INSTRUMENT SET UP 82410 - SPECIMEN"""
^DIE(177,"DIAB",10,0,2100,0)="002-5;""(002) INSTRUMENT SET UP 82410 - QUALITY CONTROL"""
^DIE(177,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) INSTRUMENT SET UP 82410 - SPECIMEN~;55.002(002) INSTRUMENT SET UP 82410 - QUALITY CONTROL~;"
^DIE(177,"DR",1,2100,1)="55.003(003) INSTRUMENT SET UP 82410 - STANDARD~;55.004(004) ALBUMIN 82040 - TEST~;55.005(005) ALBUMIN 82040 - QUALITY CONTROL~;55.006(006) ALBUMIN 82040 - STANDARD~;55.007(007) AMYLASE (COLORIMETRIC) 82150 - TEST~;"
^DIE(177,"DR",1,2100,2)="55.008(008) AMYLASE (COLORIMETRIC) 82150 - QUALITY CONTROL~;55.009(009) AMYLASE (COLORIMETRIC) 82150 - STANDARD~;55.01(010) BILIRUBIN,TOTAL AND DIRECT 82251 - TEST~;55.011(011) BILIRUBIN,TOTAL AND DIRECT 82251 - QUALITY CONTROL~;"
^DIE(177,"DR",1,2100,3)="55.012(012) BILIRUBIN,TOTAL AND DIRECT 82251 - STANDARD~;55.013(013) BILIRUBIN,TOTAL OR DIRECT 82250 - TEST~;55.014(014) BILIRUBIN,TOTAL OR DIRECT 82250 - QUALITY CONTROL~;55.015(015) BILIRUBIN,TOTAL OR DIRECT 82250 - STANDARD~;"
^DIE(177,"DR",1,2100,4)="55.016(016) CALCIUM,BLOOD OR URINE 82310 - TEST~;55.017(017) CALCIUM,BLOOD OR URINE 82310 - QUALITY CONTROL~;55.018(018) CALCIUM,BLOOD OR URINE 82310 - STANDARD~;55.019(019) CARBON DIOXIDE CONTENT 82830 - TEST~;"
^DIE(177,"DR",1,2100,5)="55.02(020) CARBON DIOXIDE CONTENT 82830 - QUALITY CONTROL~;55.021(021) CARBON DIOXIDE CONTENT 82830 - STANDARD~;55.022(022) CHLORIDE,BLOOD URINE,CSF 82435 - TEST~;55.023(023) CHLORIDE,BLOOD URINE,CSF 82435 - QUALITY CONTROL~;"
^DIE(177,"DR",1,2100,6)="55.024(024) CHLORIDE,BLOOD URINE,CSF 82435 - STANDARD~;55.025(025) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - TEST~;"
^DIE(177,"DR",1,2100,7)="55.026(026) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - QUALITY CONTROL~;55.027(027) CHOLESTEROL,TOTAL,WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM) 82466 - STANDARD~;"
^DIE(177,"DR",1,2100,8)="55.028(028) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - TEST~;55.029(029) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - QUALITY CONTROL~;55.03(030) CREATININE KINASE (CK) (COLORIMETRIC) 82550 - STANDARD~;"
^DIE(177,"DR",1,2100,9)="55.031(031) CREATININE 82565 - TEST~;55.032(032) CREATININE 82565 - QUALITY CONTROL~;55.033(033) CREATININE 82565 - STANDARD~;55.034(034) GLUCOSE,QUANT 84330 - TEST~;55.035(035) GLUCOSE,QUANT 84330 - QUALITY CONTROL~;"
^DIE(177,"DR",1,2100,10)="55.036(036) GLUCOSE,QUANT 84330 - STANDARD~;99///^S X=""$"";"
^DIE(178,0)="LR AMS5 CHEM MAN TESTS H15^2900322.0745^^2100^^^2931005"
^DIE(178,"DIAB",1,0,2100,1)="004-5;""(004) AMYLASE (COLORIMETRIC) 82150 - TEST"""
^DIE(178,"DIAB",1,0,2100,2)="008-5;""(008) BILIRUBIN, TOTAL AND DIRECT 82251 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,3)="011-5;""(011) BILIRUBIN, TOTAL OR DIRECT 82250 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,4)="015-5;""(015) CALCIUM,BLOOD OR URINE 82310 - STANDARD"""
^DIE(178,"DIAB",1,0,2100,5)="019-5;""(019) CHLORIDE,BLOOD,URINE,CSF 82435 - TEST"""
^DIE(178,"DIAB",1,0,2100,6)="022-5;""(022) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - TEST"""
^DIE(178,"DIAB",1,0,2100,7)="024-5;""(024) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - STANDARD"""
^DIE(178,"DIAB",1,0,2100,8)="026-5;""(026) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,9)="028-5;""(028) CREATINE KINASE (COLORIMETRIC) 82550 - TEST"""
^DIE(178,"DIAB",1,0,2100,10)="032-5;""(032) CREATININE 82565 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,11)="035-5;""(035) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,12)="038-5;""(038) GLUCOSE,QUANT 84330 - QUALITY CONTROL"""
^DIE(178,"DIAB",1,0,2100,13)="042-5;""(042) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,1)="005-5;""(005) AMYLASE (COLORIMETRIC) 82150 - QUALITY CONTROL"""
^DIE(178,"DIAB",2,0,2100,2)="009-5;""(009) BILIRUBIN, TOTAL AND DIRECT 82251 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,3)="012-5;""(012) BILIRUBIN, TOTAL OR DIRECT 82250 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,4)="016-5;""(016) CARBON DIOXIDE CONTENT 82830 - TEST"""
^DIE(178,"DIAB",2,0,2100,5)="020-5;""(020) CHLORIDE,BLOOD,URINE,CSF 82435 - QUALITY CONTROL"""
^DIE(178,"DIAB",2,0,2100,6)="023-5;""(023) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - QUALITY CONTROL"""
^DIE(178,"DIAB",2,0,2100,7)="025-5;""(025) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - TEST"""
^DIE(178,"DIAB",2,0,2100,8)="027-5;""(027) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,9)="029-5;""(029) CREATINE KINASE (COLORIMETRIC) 82550 - QUALITY CONTROL"""
^DIE(178,"DIAB",2,0,2100,10)="033-5;""(033) CREATININE 82565 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,11)="036-5;""(036) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,12)="039-5;""(039) GLUCOSE,QUANT 84330 - STANDARD"""
^DIE(178,"DIAB",2,0,2100,13)="043-5;""(043) CALCULATION 82350 - TEST"""
^DIE(178,"DIAB",3,0,2100,1)="006-5;""(006) AMYLASE (COLORIMETRIC) 82150 - STANDARD"""
^DIE(178,"DIAB",3,0,2100,2)="010-5;""(010) BILIRUBIN, TOTAL OR DIRECT 82250 - TEST"""
^DIE(178,"DIAB",3,0,2100,3)="013-5;""(013) CALCIUM,BLOOD OR URINE 82310 - TEST"""
^DIE(178,"DIAB",3,0,2100,4)="017-5;""(017) CARBON DIOXIDE CONTENT 82830 - QUALITY CONTROL"""
^DIE(178,"DIAB",3,0,2100,5)="021-5;""(021) CHLORIDE,BLOOD,URINE,CSF 82435 - STANDARD"""
^DIE(178,"DIAB",3,0,2100,9)="030-5;""(030) CREATINE KINASE (COLOROMETRIC) 82550 - STANDARD"""
^DIE(178,"DIAB",3,0,2100,10)="034-5;""(034) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - TEST"""
^DIE(178,"DIAB",3,0,2100,11)="037-5;""(037) GLUCOSE,QUANT 84330 - TEST"""
^DIE(178,"DIAB",3,0,2100,12)="040-5;""(040) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - TEST"""
^DIE(178,"DIAB",4,0,2100,1)="007-5;""(007) BILIRUBIN, TOTAL AND DIRECT 82251 - TEST"""
^DIE(178,"DIAB",4,0,2100,3)="014-5;""(014) CALCIUM,BLOOD OR URINE 82310 - QUALITY CONTROL"""
^DIE(178,"DIAB",4,0,2100,4)="018-5;""(018) CARBON DIOXIDE CONTENT 82830 - STANDARD"""
^DIE(178,"DIAB",4,0,2100,9)="031-5;""(031) CREATININE 82565 - TEST"""
^DIE(178,"DIAB",4,0,2100,12)="041-5;""(041) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - QUALITY CONTROL"""
^DIE(178,"DIAB",9,0,2100,0)="001-5;""(001) ALBUMIN 82040 - TEST"""
^DIE(178,"DIAB",10,0,2100,0)="002-5;""(002) ALBUMIN 82040 - QUALITY CONTROL"""
^DIE(178,"DIAB",11,0,2100,0)="003-5;""(003) ALBUMIN 82040 - STANDARD"""
^DIE(178,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ALBUMIN 82040 - TEST~;55.002(002) ALBUMIN 82040 - QUALITY CONTROL~;55.003(003) ALBUMIN 82040 - STANDARD~;"
^DIE(178,"DR",1,2100,1)="55.004(004) AMYLASE (COLORIMETRIC) 82150 - TEST~;55.005(005) AMYLASE (COLORIMETRIC) 82150 - QUALITY CONTROL~;55.006(006) AMYLASE (COLORIMETRIC) 82150 - STANDARD~;55.007(007) BILIRUBIN, TOTAL AND DIRECT 82251 - TEST~;"
^DIE(178,"DR",1,2100,2)="55.008(008) BILIRUBIN, TOTAL AND DIRECT 82251 - QUALITY CONTROL~;55.009(009) BILIRUBIN, TOTAL AND DIRECT 82251 - STANDARD~;55.01(010) BILIRUBIN, TOTAL OR DIRECT 82250 - TEST~;"
^DIE(178,"DR",1,2100,3)="55.011(011) BILIRUBIN, TOTAL OR DIRECT 82250 - QUALITY CONTROL~;55.012(012) BILIRUBIN, TOTAL OR DIRECT 82250 - STANDARD~;55.013(013) CALCIUM,BLOOD OR URINE 82310 - TEST~;55.014(014) CALCIUM,BLOOD OR URINE 82310 - QUALITY CONTROL~;"
^DIE(178,"DR",1,2100,4)="55.015(015) CALCIUM,BLOOD OR URINE 82310 - STANDARD~;55.016(016) CARBON DIOXIDE CONTENT 82830 - TEST~;55.017(017) CARBON DIOXIDE CONTENT 82830 - QUALITY CONTROL~;55.018(018) CARBON DIOXIDE CONTENT 82830 - STANDARD~;"
^DIE(178,"DR",1,2100,5)="55.019(019) CHLORIDE,BLOOD,URINE,CSF 82435 - TEST~;55.02(020) CHLORIDE,BLOOD,URINE,CSF 82435 - QUALITY CONTROL~;55.021(021) CHLORIDE,BLOOD,URINE,CSF 82435 - STANDARD~;"
^DIE(178,"DR",1,2100,6)="55.022(022) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - TEST~;55.023(023) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - QUALITY CONTROL~;"
^DIE(178,"DR",1,2100,7)="55.024(024) CHOLESTEROL,TOTAL, WITH EXTRACTION (BLOOD,PLASMA OR SERUM 82465 - STANDARD~;55.025(025) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - TEST~;"
^DIE(178,"DR",1,2100,8)="55.026(026) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - QUALITY CONTROL~;55.027(027) CHOLESTEROL,TOTAL, WITHOUT EXTRACTION (BLOOD,PLASMA OR SERUM 82466 - STANDARD~;"
^DIE(178,"DR",1,2100,9)="55.028(028) CREATINE KINASE (COLORIMETRIC) 82550 - TEST~;55.029(029) CREATINE KINASE (COLORIMETRIC) 82550 - QUALITY CONTROL~;55.03(030) CREATINE KINASE (COLOROMETRIC) 82550 - STANDARD~;55.031(031) CREATININE 82565 - TEST~;"
^DIE(178,"DR",1,2100,10)="55.032(032) CREATININE 82565 - QUALITY CONTROL~;55.033(033) CREATININE 82565 - STANDARD~;55.034(034) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - TEST~;"
^DIE(178,"DR",1,2100,11)="55.035(035) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - QUALITY CONTROL~;55.036(036) DEOXYRIBONUCLEIC ACID (DNA) ANTIBODIES/RIA 83365 - STANDARD~;55.037(037) GLUCOSE,QUANT 84330 - TEST~;"
^DIE(178,"DR",1,2100,12)="55.038(038) GLUCOSE,QUANT 84330 - QUALITY CONTROL~;55.039(039) GLUCOSE,QUANT 84330 - STANDARD~;55.04(040) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - TEST~;55.041(041) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - QUALITY CONTROL~;"
^DIE(178,"DR",1,2100,13)="55.042(042) GLYCOHEMOGLOBIN, COLUMN (A,C) 85051 - STANDARD~;55.043(043) CALCULATION 82350 - TEST~;99///^S X=""$"";"
^DIE(179,0)="LR AMS5 CHEM MAN TESTS H16^2900322.0755^^2100^^^2931005"
^DIE(179,"DIAB",1,0,2100,1)="003-5;""(003) HEMOGLOBIN ELECTROPHORESIS 83020 - STANDARD"""
^DIE(179,"DIAB",1,0,2100,2)="008-5;""(008) IRON,TOTAL AND COMBINING CAPACITY 83550 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,3)="011-5;""(011) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,4)="014-5;""(014) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESIS 83625 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,5)="017-5;""(017) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,6)="020-5;""(020) PHOSPHATASE,ACID,TOTAL 84060 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,7)="023-5;""(023) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,8)="026-5;""(026) PHOSPHATE,INORGANIC 84100 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,9)="029-5;""(029) PROTEIN ELECTROPHORESIS,QUANT,BLOOD 84165 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,10)="032-5;""(032) PROTEIN,SERUM BY REFRACTION 84160 - QUALITY CONTROL"""
^DIE(179,"DIAB",1,0,2100,11)="036-5;""(036) PROTEIN,TOTAL 84155 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,1)="004-5;""(004) IRON,TOTAL - TEST"""
^DIE(179,"DIAB",2,0,2100,2)="009-5;""(009) IRON,TOTAL AND COMBINING CAPACITY 83550 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,3)="012-5;""(012) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,4)="015-5;""(015) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESES 83625 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,5)="018-5;""(018) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,6)="021-5;""(021) PHOSPHATASE,ACID,TOTAL 84060 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,7)="024-5;""(024) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,8)="027-5;""(027) PHOSPHATE,INORGANIC 84100 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,9)="030-5;""(030) PROTEIN ELECTROPHORESES,QUANT,BLOOD 84165 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,10)="033-5;""(033) PROTEIN,SERUM BY REFRACTION 84160 - STANDARD"""
^DIE(179,"DIAB",2,0,2100,11)="037-5;""(037) THYROXIN (T-4)/RIA 83450 - TEST"""
^DIE(179,"DIAB",3,0,2100,1)="005-5;""(005) IRON,TOTAL - QUALITY CONTROL"""
^DIE(179,"DIAB",3,0,2100,2)="010-5;""(010) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - TEST"""
^DIE(179,"DIAB",3,0,2100,3)="013-5;""(013) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESIS 83625 - TEST"""
^DIE(179,"DIAB",3,0,2100,4)="016-5;""(016) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - TEST"""
^DIE(179,"DIAB",3,0,2100,5)="019-5;""(019) PHOSPHATASE,ACID,TOTAL 84060 - TEST"""
^DIE(179,"DIAB",3,0,2100,6)="022-5;""(022) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - TEST"""
^DIE(179,"DIAB",3,0,2100,7)="025-5;""(025) PHOSPHATE,INORGANIC 84100 - TEST"""
^DIE(179,"DIAB",3,0,2100,8)="028-5;""(028) PROTEIN ELECTROPHORESIS,QUANT,BLOOD 84165 - TEST"""
^DIE(179,"DIAB",3,0,2100,9)="031-5;""(031) PROTEIN,SERUM BY REFRACTION 84160 - TEST"""
^DIE(179,"DIAB",3,0,2100,10)="034-5;""(034) PROTEIN,TOTAL 84155 - TEST"""
^DIE(179,"DIAB",3,0,2100,11)="038-5;""(038) THYROXIN (T-4)/RIA 83450 - QUALTIY CONTROL"""
^DIE(179,"DIAB",4,0,2100,1)="006-5;""(006) IRON,TOTAL - STANDARD"""
^DIE(179,"DIAB",4,0,2100,10)="035-5;""(035) PROTEIN,TOTAL 84155 - QUALITY CONTROL"""
^DIE(179,"DIAB",4,0,2100,11)="039-5;""(039) THYROXIN (T-4)/RIA 83450 - STANDARD"""
^DIE(179,"DIAB",5,0,2100,1)="007-5;""(007) IRON,TOTAL AND COMBINING CAPACITY 83550 - TEST"""
^DIE(179,"DIAB",9,0,2100,0)="001-5;""(001) HEMOGLOBIN ELECTROPHORESIS 83020 - TEST"""
^DIE(179,"DIAB",10,0,2100,0)="002-5;""(002) HEMOGLOBIN ELECTROPHORESIS 83020 - QUALITY CONTROL"""
^DIE(179,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) HEMOGLOBIN ELECTROPHORESIS 83020 - TEST~;55.002(002) HEMOGLOBIN ELECTROPHORESIS 83020 - QUALITY CONTROL~;"
^DIE(179,"DR",1,2100,1)="55.003(003) HEMOGLOBIN ELECTROPHORESIS 83020 - STANDARD~;55.004(004) IRON,TOTAL - TEST~;55.005(005) IRON,TOTAL - QUALITY CONTROL~;55.006(006) IRON,TOTAL - STANDARD~;55.007(007) IRON,TOTAL AND COMBINING CAPACITY 83550 - TEST~;"
^DIE(179,"DR",1,2100,2)="55.008(008) IRON,TOTAL AND COMBINING CAPACITY 83550 - QUALITY CONTROL~;55.009(009) IRON,TOTAL AND COMBINING CAPACITY 83550 - STANDARD~;55.01(010) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - TEST~;"
^DIE(179,"DR",1,2100,3)="55.011(011) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - QUALITY CONTROL~;55.012(012) LACTATE DEHYDROGENASE BLOOD (COLORIMETRIC) 83620 - STANDARD~;55.013(013) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESIS 83625 - TEST~;"
^DIE(179,"DR",1,2100,4)="55.014(014) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESIS 83625 - QUALITY CONTROL~;55.015(015) LACTATE DEHYDROGENASE ISOENZ, BY ELECTROPHORESES 83625 - STANDARD~;55.016(016) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - TEST~;"
^DIE(179,"DR",1,2100,5)="55.017(017) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - QUALITY CONTROL~;55.018(018) LIPOPROTEIN ELECTROPHORESIS QUANT 83715 - STANDARD~;55.019(019) PHOSPHATASE,ACID,TOTAL 84060 - TEST~;"
^DIE(179,"DR",1,2100,6)="55.02(020) PHOSPHATASE,ACID,TOTAL 84060 - QUALITY CONTROL~;55.021(021) PHOSPHATASE,ACID,TOTAL 84060 - STANDARD~;55.022(022) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - TEST~;"
^DIE(179,"DR",1,2100,7)="55.023(023) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - QUALITY CONTROL~;55.024(024) PHOSPHATASE,ALKALINE (COLORIMETRIC) 84075 - STANDARD~;55.025(025) PHOSPHATE,INORGANIC 84100 - TEST~;"
^DIE(179,"DR",1,2100,8)="55.026(026) PHOSPHATE,INORGANIC 84100 - QUALITY CONTROL~;55.027(027) PHOSPHATE,INORGANIC 84100 - STANDARD~;55.028(028) PROTEIN ELECTROPHORESIS,QUANT,BLOOD 84165 - TEST~;"
^DIE(179,"DR",1,2100,9)="55.029(029) PROTEIN ELECTROPHORESIS,QUANT,BLOOD 84165 - QUALITY CONTROL~;55.03(030) PROTEIN ELECTROPHORESES,QUANT,BLOOD 84165 - STANDARD~;55.031(031) PROTEIN,SERUM BY REFRACTION 84160 - TEST~;"
^DIE(179,"DR",1,2100,10)="55.032(032) PROTEIN,SERUM BY REFRACTION 84160 - QUALITY CONTROL~;55.033(033) PROTEIN,SERUM BY REFRACTION 84160 - STANDARD~;55.034(034) PROTEIN,TOTAL 84155 - TEST~;55.035(035) PROTEIN,TOTAL 84155 - QUALITY CONTROL~;"
^DIE(179,"DR",1,2100,11)="55.036(036) PROTEIN,TOTAL 84155 - STANDARD~;55.037(037) THYROXIN (T-4)/RIA 83450 - TEST~;55.038(038) THYROXIN (T-4)/RIA 83450 - QUALTIY CONTROL~;55.039(039) THYROXIN (T-4)/RIA 83450 - STANDARD~;99///^S X=""$"";"
^DIE(180,0)="LR AMS5 CHEM MAN TESTS H17^2900619.1322^^2100^^^2931005"
^DIE(180,"DIAB",1,0,2100,1)="002-5;""(002) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - QUALITY CONTROL"""
^DIE(180,"DIAB",1,0,2100,2)="004-5;""(004) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - TEST"""
^DIE(180,"DIAB",1,0,2100,3)="006-5;""(006) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - STANDARD"""
^DIE(180,"DIAB",1,0,2100,4)="009-5;""(009) TRIGLYCERIDES (WITH EXTRACTION) 84475 - STANDARD"""
^DIE(180,"DIAB",1,0,2100,5)="013-5;""(013) UREA NITROGEN 84520 - TEST"""
^DIE(180,"DIAB",1,0,2100,6)="018-5;""(018) URIC ACID 84550 - STANDARD"""
^DIE(180,"DIAB",2,0,2100,1)="003-5;""(003) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - STANDARD"""
^DIE(180,"DIAB",2,0,2100,2)="005-5;""(005) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - QUALITY CONTROL"""
^DIE(180,"DIAB",2,0,2100,3)="007-5;""(007) TRIGLYCERIDES (WITH EXTRACTION) 84475 - TEST"""
^DIE(180,"DIAB",2,0,2100,4)="010-5;""(010) TRIIODOTHYRONINE/RIA 83445 - TEST"""
^DIE(180,"DIAB",2,0,2100,5)="014-5;""(014) UREA NITROGEN 84520 - QUALITY CONTROL"""
^DIE(180,"DIAB",2,0,2100,6)="019-5;""(019) VITAMIN B12/RIA 84558 - TEST"""
^DIE(180,"DIAB",3,0,2100,3)="008-5;""(008) TRIGLYCERIDES (WITH EXTRACTION) 84475 - QUALITY CONTROL"""
^DIE(180,"DIAB",3,0,2100,4)="011-5;""(011) TRIIODOTHYRONINE/RIA 83445 - QUALITY CONTROL"""
^DIE(180,"DIAB",3,0,2100,5)="015-5;""(015) UREA NITROGEN 84520 - STANDARD"""
^DIE(180,"DIAB",3,0,2100,6)="020-5;""(020) VITAMIN B12/RIA 84558 - QUALITY CONTROL"""
^DIE(180,"DIAB",4,0,2100,4)="012-5;""(012) TRIIODOTHYRONINE/RIA 83445 - STANDARD"""
^DIE(180,"DIAB",4,0,2100,5)="016-5;""(016) URIC ACID 84550 - TEST"""
^DIE(180,"DIAB",4,0,2100,6)="021-5;""(021) VITAMIN B12/RIA 84558 - STANDARD"""
^DIE(180,"DIAB",5,0,2100,5)="017-5;""(017) URIC ACID 84550 - QUALITY CONTROL"""
^DIE(180,"DIAB",9,0,2100,0)="001-5;""(001) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - TEST"""
^DIE(180,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - TEST~;"
^DIE(180,"DR",1,2100,1)="55.002(002) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - QUALITY CONTROL~;55.003(003) TRANSFERASE,ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - STANDARD~;"
^DIE(180,"DR",1,2100,2)="55.004(004) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - TEST~;55.005(005) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - QUALITY CONTROL~;"
^DIE(180,"DR",1,2100,3)="55.006(006) TRANSFERASE,ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - STANDARD~;55.007(007) TRIGLYCERIDES (WITH EXTRACTION) 84475 - TEST~;55.008(008) TRIGLYCERIDES (WITH EXTRACTION) 84475 - QUALITY CONTROL~;"
^DIE(180,"DR",1,2100,4)="55.009(009) TRIGLYCERIDES (WITH EXTRACTION) 84475 - STANDARD~;55.01(010) TRIIODOTHYRONINE/RIA 83445 - TEST~;55.011(011) TRIIODOTHYRONINE/RIA 83445 - QUALITY CONTROL~;55.012(012) TRIIODOTHYRONINE/RIA 83445 - STANDARD~;"
^DIE(180,"DR",1,2100,5)="55.013(013) UREA NITROGEN 84520 - TEST~;55.014(014) UREA NITROGEN 84520 - QUALITY CONTROL~;55.015(015) UREA NITROGEN 84520 - STANDARD~;55.016(016) URIC ACID 84550 - TEST~;55.017(017) URIC ACID 84550 - QUALITY CONTROL~;"
^DIE(180,"DR",1,2100,6)="55.018(018) URIC ACID 84550 - STANDARD~;55.019(019) VITAMIN B12/RIA 84558 - TEST~;55.02(020) VITAMIN B12/RIA 84558 - QUALITY CONTROL~;55.021(021) VITAMIN B12/RIA 84558 - STANDARD~;99///^S X=""$"";"
^DIE(181,0)="LR AMS5 URINE AND FECES H22^2900322.0802^^2100^^^2931005"
^DIE(181,"DIAB",1,0,2100,1)="002-5;""(002) BLOOD,OCCULT (FECES-SPOT TEST) 82271 - QUALITY CONTROL"""
^DIE(181,"DIAB",1,0,2100,2)="005-5;""(005) URINALYSIS, ROUTINE WITH MICROSCOPIC 81000 - SPECIMEN"""
^DIE(181,"DIAB",1,0,2100,3)="008-5;""(008) URINALYSIS, ROUTINE WITHOUT MICROSCOPIC 81002 - QUALITY CONTROL"""
^DIE(181,"DIAB",2,0,2100,1)="003-5;""(003) URINALYSIS,COMPONENTS 81004 - TEST"""
^DIE(181,"DIAB",2,0,2100,2)="006-5;""(006) URINALYSIS, ROUTINE WITH MICROSCOPIC 81000 - QUALITY CONTROL"""
^DIE(181,"DIAB",3,0,2100,1)="004-5;""(004) URINALYSIS,COMPONENTS 81004 - QUALITY CONTROL"""
^DIE(181,"DIAB",3,0,2100,2)="007-5;""(007) URINALYSIS, ROUTINE WITHOUT MICROSCOPIC 81002 - SPECIMEN"""
^DIE(181,"DIAB",9,0,2100,0)="001-5;""(001) BLOOD,OCCULT (FECES-SPOT TEST) 82271 - TEST"""
^DIE(181,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLOOD,OCCULT (FECES-SPOT TEST) 82271 - TEST~;"
^DIE(181,"DR",1,2100,1)="55.002(002) BLOOD,OCCULT (FECES-SPOT TEST) 82271 - QUALITY CONTROL~;55.003(003) URINALYSIS,COMPONENTS 81004 - TEST~;55.004(004) URINALYSIS,COMPONENTS 81004 - QUALITY CONTROL~;"
^DIE(181,"DR",1,2100,2)="55.005(005) URINALYSIS, ROUTINE WITH MICROSCOPIC 81000 - SPECIMEN~;55.006(006) URINALYSIS, ROUTINE WITH MICROSCOPIC 81000 - QUALITY CONTROL~;55.007(007) URINALYSIS, ROUTINE WITHOUT MICROSCOPIC 81002 - SPECIMEN~;"
^DIE(181,"DR",1,2100,3)="55.008(008) URINALYSIS, ROUTINE WITHOUT MICROSCOPIC 81002 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(182,0)="LR AMS5 HEM MAN & AUTO H24^2900618.1545^^2100^^^2931007"
^DIE(182,"DIAB",1,0,2100,1)="002-5;""(002) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - SPECIMEN"""
^DIE(182,"DIAB",1,0,2100,2)="004-5;""(004) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - STANDARD"""
^DIE(182,"DIAB",1,0,2100,3)="006-5;""(006) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES 85016.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,4)="008-5;""(008) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - SPECIMEN"""
^DIE(182,"DIAB",1,0,2100,5)="010-5;""(010) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - STANDARD"""
^DIE(182,"DIAB",1,0,2100,6)="012-5;""(012) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) 85008 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,7)="014-5;""(014) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) AUTOMATED 85008.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,8)="016-5;""(016) BLOOD FILM SCREEN (INCLS WBC EST,RBC MORPHOLOGY & PLATELET ESIMATE) 85581 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,9)="019-5;""(019) CLOTTING TIME (LEE & WHITE) 85345 - PATIENT"""
^DIE(182,"DIAB",1,0,2100,10)="023-5;""(023) HEMATOCRIT,MACRO OR MICRO 85055 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,11)="027-5;""(027) IRON STAINING FOR SIDEROCYTES (BONE MARROW) 85532 - SLIDE"""
^DIE(182,"DIAB",1,0,2100,12)="030-5;""(030) L.E. CELL PREPARATION 86380 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,13)="033-5;""(033) PLATELET COUNT (MICROSCOPIC) 85570 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,14)="036-5;""(036) PLATELET COUNT AUTOMATED 85570.01 - STANDARD"""
^DIE(182,"DIAB",1,0,2100,15)="040-5;""(040) PROTHROMBIN TIME AUTOMATED 85610.01 - TEST"""
^DIE(182,"DIAB",1,0,2100,16)="043-5;""(043) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY,AUTOMATED 85613.01 - SPECIMEN"""
^DIE(182,"DIAB",1,0,2100,17)="044-5;""(044) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY AUTOMATED 85613.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",1,0,2100,18)="045-5;""(045) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY AUTOMATED 85613.01 - STANDARD"""
^DIE(182,"DIAB",1,0,2100,19)="047-5;""(047) INDICES, HEMATOLOGIC, SEPARATE CALCULATION 85060 - QUALITY CONTROL"""
^DIE(182,"DIAB",2,0,2100,1)="003-5;""(003) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",2,0,2100,2)="005-5;""(005) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES) 85016.01 - SPECIMEN"""
^DIE(182,"DIAB",2,0,2100,3)="007-5;""(007) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES 85016.01 - STANDARD"""
^DIE(182,"DIAB",2,0,2100,4)="009-5;""(009) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",2,0,2100,5)="011-5;""(011) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) 85008 - SPECIMEN"""
^DIE(182,"DIAB",2,0,2100,6)="013-5;""(013) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) AUTOMATED 85008.01 - SPECIMEN"""
^DIE(182,"DIAB",2,0,2100,7)="015-5;""(015) BLOOD FILM SCREEN (INCLS WBC EST,RBC MORPHOLOGY & PLATELET ESTIMATE) 85581 - SPECIMEN"""
^DIE(182,"DIAB",2,0,2100,8)="017-5;""(017) BONE MARROW ASPIRATION & FILM 85110 - PATIENT"""
^DIE(182,"DIAB",2,0,2100,9)="020-5;""(020) EOSINOPHIL COUNT 85350 - TEST"""
^DIE(182,"DIAB",2,0,2100,10)="024-5;""(024) HEMOGLOBIN 85050 - TEST"""
^DIE(182,"DIAB",2,0,2100,11)="028-5;""(028) IRON STAINING FOR SIDEROCYTES (BONE MARROW) 85532 - QUALITY CONTROL"""
^DIE(182,"DIAB",2,0,2100,12)="031-5;""(031) PARASITES,BLOOD (MALARIA & OTHER) 85550 - SPECIMEN"""
^DIE(182,"DIAB",2,0,2100,13)="034-5;""(034) PLATELET COUNT AUTOMATED 85570.01 - TEST"""
^DIE(182,"DIAB",2,0,2100,14)="037-5;""(037) PROTHROMBIN TIME 85610 - TEST"""
^DIE(182,"DIAB",2,0,2100,15)="041-5;""(041) PROTHROMBIN TIME AUTOMATED 85610.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",2,0,2100,18)="046-5;""(046) INDICES, HEMATOLOGIC, SEPARATE CALCULATION 85060 - SPECIMEN"""
^DIE(182,"DIAB",3,0,2100,8)="018-5;""(018) CELL COUNT WITH FILM & DIFF COUNT 89051 - TEST"""
^DIE(182,"DIAB",3,0,2100,9)="021-5;""(021) FETAL HGB,DETECTION KLEIHAUER 83031 - SPECIMEN"""
^DIE(182,"DIAB",3,0,2100,10)="025-5;""(025) HEMOGLOBIN 85050 - QUALITY CONTROL"""
^DIE(182,"DIAB",3,0,2100,11)="029-5;""(029) L.E. CELL PREPARATION 86380 - TEST"""
^DIE(182,"DIAB",3,0,2100,12)="032-5;""(032) PLATELET COUNT (MICROSCOPIC) 85570 - TEST"""
^DIE(182,"DIAB",3,0,2100,13)="035-5;""(035) PLATELET COUNT AUTOMATED 85570.01 - QUALITY CONTROL"""
^DIE(182,"DIAB",3,0,2100,14)="038-5;""(038) PROTHROMBIN TIME 85610 - QUALITY CONTROL"""
^DIE(182,"DIAB",3,0,2100,15)="042-5;""(042) PROTHROMBIN TIME AUTOMATED 85610.01 - STANDARD"""
^DIE(182,"DIAB",4,0,2100,9)="022-5;""(022) HEMATOCRIT,MACRO OR MICRO 85055 - TEST"""
^DIE(182,"DIAB",4,0,2100,10)="026-5;""(026) HEMOGLOBIN 85050 - STANDARD"""
^DIE(182,"DIAB",4,0,2100,14)="039-5;""(039) PROTHROMBIN TIME 85610 - STANDARD"""
^DIE(182,"DIAB",9,0,2100,0)="001-5;""(001) BLEEDING TIME 85000 - PATIENT"""
^DIE(182,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLEEDING TIME 85000 - PATIENT~;"
^DIE(182,"DR",1,2100,1)="55.002(002) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - SPECIMEN~;55.003(003) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - QUALITY CONTROL~;"
^DIE(182,"DR",1,2100,2)="55.004(004) BLOOD CELL PROFILE I (RBC,WBC,HGB,HCT AND INDICES) 85015.01 - STANDARD~;55.005(005) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES) 85016.01 - SPECIMEN~;"
^DIE(182,"DR",1,2100,3)="55.006(006) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES 85016.01 - QUALITY CONTROL~;55.007(007) BLOOD CELL PROFILE II (RBC,WBC,HGB,HCT,PLATELETS AND INDICES 85016.01 - STANDARD~;"
^DIE(182,"DR",1,2100,4)="55.008(008) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - SPECIMEN~;55.009(009) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - QUALITY CONTROL~;"
^DIE(182,"DR",1,2100,5)="55.01(010) BLOOD CELL PROFILE III (RBC,WBC,HGB,HCT,PLAT,INDICES RDW,MPV AND % LYMPHS) 85017.01 - STANDARD~;55.011(011) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) 85008 - SPECIMEN~;"
^DIE(182,"DR",1,2100,6)="55.012(012) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) 85008 - QUALITY CONTROL~;55.013(013) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) AUTOMATED 85008.01 - SPECIMEN~;"
^DIE(182,"DR",1,2100,7)="55.014(014) BLOOD FILM EXAM (INC WBC DIFF,RBC MORPHOLOGY & PLATELET ESTIMATE) AUTOMATED 85008.01 - QUALITY CONTROL~;55.015(015) BLOOD FILM SCREEN (INCLS WBC EST,RBC MORPHOLOGY & PLATELET ESTIMATE) 85581 - SPECIMEN~;"
^DIE(182,"DR",1,2100,8)="55.016(016) BLOOD FILM SCREEN (INCLS WBC EST,RBC MORPHOLOGY & PLATELET ESIMATE) 85581 - QUALITY CONTROL~;55.017(017) BONE MARROW ASPIRATION & FILM 85110 - PATIENT~;55.018(018) CELL COUNT WITH FILM & DIFF COUNT 89051 - TEST~;"
^DIE(182,"DR",1,2100,9)="55.019(019) CLOTTING TIME (LEE & WHITE) 85345 - PATIENT~;55.02(020) EOSINOPHIL COUNT 85350 - TEST~;55.021(021) FETAL HGB,DETECTION KLEIHAUER 83031 - SPECIMEN~;55.022(022) HEMATOCRIT,MACRO OR MICRO 85055 - TEST~;"
^DIE(182,"DR",1,2100,10)="55.023(023) HEMATOCRIT,MACRO OR MICRO 85055 - QUALITY CONTROL~;55.024(024) HEMOGLOBIN 85050 - TEST~;55.025(025) HEMOGLOBIN 85050 - QUALITY CONTROL~;55.026(026) HEMOGLOBIN 85050 - STANDARD~;"
^DIE(182,"DR",1,2100,11)="55.027(027) IRON STAINING FOR SIDEROCYTES (BONE MARROW) 85532 - SLIDE~;55.028(028) IRON STAINING FOR SIDEROCYTES (BONE MARROW) 85532 - QUALITY CONTROL~;55.029(029) L.E. CELL PREPARATION 86380 - TEST~;"
^DIE(182,"DR",1,2100,12)="55.03(030) L.E. CELL PREPARATION 86380 - QUALITY CONTROL~;55.031(031) PARASITES,BLOOD (MALARIA & OTHER) 85550 - SPECIMEN~;55.032(032) PLATELET COUNT (MICROSCOPIC) 85570 - TEST~;"
^DIE(182,"DR",1,2100,13)="55.033(033) PLATELET COUNT (MICROSCOPIC) 85570 - QUALITY CONTROL~;55.034(034) PLATELET COUNT AUTOMATED 85570.01 - TEST~;55.035(035) PLATELET COUNT AUTOMATED 85570.01 - QUALITY CONTROL~;"
^DIE(182,"DR",1,2100,14)="55.036(036) PLATELET COUNT AUTOMATED 85570.01 - STANDARD~;55.037(037) PROTHROMBIN TIME 85610 - TEST~;55.038(038) PROTHROMBIN TIME 85610 - QUALITY CONTROL~;55.039(039) PROTHROMBIN TIME 85610 - STANDARD~;"
^DIE(182,"DR",1,2100,15)="55.04(040) PROTHROMBIN TIME AUTOMATED 85610.01 - TEST~;55.041(041) PROTHROMBIN TIME AUTOMATED 85610.01 - QUALITY CONTROL~;55.042(042) PROTHROMBIN TIME AUTOMATED 85610.01 - STANDARD~;"
^DIE(182,"DR",1,2100,16)="55.043(043) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY,AUTOMATED 85613.01 - SPECIMEN~;"
^DIE(182,"DR",1,2100,17)="55.044(044) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY AUTOMATED 85613.01 - QUALITY CONTROL~;"
^DIE(182,"DR",1,2100,18)="55.045(045) PROTHROMBIN TIME (PT) & THROMBOPLASTIN TIME, PARTIAL (PTT) SIMULTANEOUSLY AUTOMATED 85613.01 - STANDARD~;55.046(046) INDICES, HEMATOLOGIC, SEPARATE CALCULATION 85060 - SPECIMEN~;"
^DIE(182,"DR",1,2100,19)="55.047(047) INDICES, HEMATOLOGIC, SEPARATE CALCULATION 85060 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(183,0)="LR AMS5 HEM MAN & AUTO H26^2900618.1533^^2100^^^2931007"
^DIE(183,"DIAB",1,0,2100,1)="003-5;""(003) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - TEST"""
^DIE(183,"DIAB",1,0,2100,2)="006-5;""(006) RETICULOCYTE COUNT 85645 - TEST"""
^DIE(183,"DIAB",1,0,2100,3)="010-5;""(010) SICKLE CELL IDENTIFICATION (METABISULFITE PREP.) 85660 - TEST"""
^DIE(183,"DIAB",1,0,2100,4)="013-5;""(013) THROMBOPLASTIN TIME, PARTIAL 85730 - QUALITY CONTROL"""
^DIE(183,"DIAB",1,0,2100,5)="016-5;""(016) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - QUALTIY CONTROL"""
^DIE(183,"DIAB",1,0,2100,6)="019-5;""(019) WHITE BLOOD CELL COUNT 85030 - QUALITY CONTROL"""
^DIE(183,"DIAB",1,0,2100,7)="022-5;""(022) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - STANDARD"""
^DIE(183,"DIAB",2,0,2100,1)="004-5;""(004) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - QUALITY CONTROL"""
^DIE(183,"DIAB",2,0,2100,2)="007-5;""(007) RETICULOCYTE COUNT 85645 - QUALITY CONTROL"""
^DIE(183,"DIAB",2,0,2100,3)="011-5;""(011) SICKLE CELL IDENTIFICATION (METABISULFITE PREP.) 85660 - QUALITY CONTROL"""
^DIE(183,"DIAB",2,0,2100,4)="014-5;""(014) THROMBOPLASTIN TIME, PARTIAL 85730 - STANDARD"""
^DIE(183,"DIAB",2,0,2100,5)="017-5;""(017) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - STANDARD"""
^DIE(183,"DIAB",2,0,2100,6)="020-5;""(020) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - TEST"""
^DIE(183,"DIAB",3,0,2100,1)="005-5;""(005) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - STANDARD"""
^DIE(183,"DIAB",3,0,2100,2)="008-5;""(008) SEDIMENTATION RATE 85655 - TEST"""
^DIE(183,"DIAB",3,0,2100,3)="012-5;""(012) THROMBOPLASTIN TIME, PARTIAL 85730 - TEST"""
^DIE(183,"DIAB",3,0,2100,4)="015-5;""(015) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - TEST"""
^DIE(183,"DIAB",3,0,2100,5)="018-5;""(018) WHITE BLOOD CELL COUNT 85030 - TEST"""
^DIE(183,"DIAB",3,0,2100,6)="021-5;""(021) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - QUALITY CONTROL"""
^DIE(183,"DIAB",4,0,2100,2)="009-5;""(009) SEDIMENTATION RATE 85655 - QUALITY CONTROL"""
^DIE(183,"DIAB",9,0,2100,0)="001-5;""(001) RED BLOOD CELL COUNT 85020 - TEST"""
^DIE(183,"DIAB",10,0,2100,0)="002-5;""(002) RED BLOOD CELL COUNT 85020 - QUALITY CONTROL"""
^DIE(183,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) RED BLOOD CELL COUNT 85020 - TEST~;55.002(002) RED BLOOD CELL COUNT 85020 - QUALITY CONTROL~;"
^DIE(183,"DR",1,2100,1)="55.003(003) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - TEST~;55.004(004) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - QUALITY CONTROL~;55.005(005) RED BLOOD CELL COUNT, AUTOMATED 85020.01 - STANDARD~;"
^DIE(183,"DR",1,2100,2)="55.006(006) RETICULOCYTE COUNT 85645 - TEST~;55.007(007) RETICULOCYTE COUNT 85645 - QUALITY CONTROL~;55.008(008) SEDIMENTATION RATE 85655 - TEST~;55.009(009) SEDIMENTATION RATE 85655 - QUALITY CONTROL~;"
^DIE(183,"DR",1,2100,3)="55.01(010) SICKLE CELL IDENTIFICATION (METABISULFITE PREP.) 85660 - TEST~;55.011(011) SICKLE CELL IDENTIFICATION (METABISULFITE PREP.) 85660 - QUALITY CONTROL~;55.012(012) THROMBOPLASTIN TIME, PARTIAL 85730 - TEST~;"
^DIE(183,"DR",1,2100,4)="55.013(013) THROMBOPLASTIN TIME, PARTIAL 85730 - QUALITY CONTROL~;55.014(014) THROMBOPLASTIN TIME, PARTIAL 85730 - STANDARD~;55.015(015) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - TEST~;"
^DIE(183,"DR",1,2100,5)="55.016(016) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - QUALTIY CONTROL~;55.017(017) THROMBOPLASTIN TIME, PARTIAL AUTOMATED 85730.01 - STANDARD~;55.018(018) WHITE BLOOD CELL COUNT 85030 - TEST~;"
^DIE(183,"DR",1,2100,6)="55.019(019) WHITE BLOOD CELL COUNT 85030 - QUALITY CONTROL~;55.02(020) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - TEST~;55.021(021) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - QUALITY CONTROL~;"
^DIE(183,"DR",1,2100,7)="55.022(022) WHITE BLOOD CELL COUNT, AUTOMATED 85030.01 - STANDARD~;99///^S X=""$"";"
^DIE(184,0)="LR AMS5 BB MAN & AUTO H28^2900917.2134^^2100^0^^2931005"
^DIE(184,"DIAB",1,0,2100,1)="002-5;""(002) ABO CELL & RHo(D) TYPING, SLIDE OR TUBE 86081 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,2)="005-5;""(005) ABO CELL TYPING, SLIDE OR TUBE 86084 - TEST"""
^DIE(184,"DIAB",1,0,2100,3)="008-5;""(008) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE 86082 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,4)="010-5;""(010) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE, AUTOMATED 86082.01 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,5)="013-5;""(013) ANTIBODY ABSORPTION 86135 - ABSORPTION"""
^DIE(184,"DIAB",1,0,2100,6)="016-5;""(016) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86139 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,7)="018-5;""(018) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86144 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,8)="020-5;""(020) ANTIBODY DETECTION (SCREEN) W/COMPATIBILITY TEST 86168 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,9)="022-5;""(022) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 1-STAGE, ENZYME OR LISS 86140 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,10)="024-5;""(024) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 2 STAGE, ENZYME OR LISS 86142 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,11)="026-5;""(026) ANTIBODY DETECTION W/TYPE & SCREEN 86167 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,12)="029-5;""(029) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 1-STAGE,ENZYME OR LISS 86152 - PANEL"""
^DIE(184,"DIAB",1,0,2100,13)="031-5;""(031) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 2-STAGE, ENZYME OR LISS 86160 - PANEL"""
^DIE(184,"DIAB",1,0,2100,14)="033-5;""(033) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 1-STAGE ENZYME OR LISS 86154 - PANEL"""
^DIE(184,"DIAB",1,0,2100,15)="035-5;""(035) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 2-STAGE ENZYME OR LISS 86158 - PANEL"""
^DIE(184,"DIAB",1,0,2100,16)="037-5;""(037) ANTIBODY TITRATION WITH ANTIGLOBULIN TEST 86162 - ANTIGEN"""
^DIE(184,"DIAB",1,0,2100,17)="040-5;""(040) ANTIBODY TITRATION W/O ANTIGLOBULIN TEST 86163 - QUALITY CONTROL"""
^DIE(184,"DIAB",1,0,2100,18)="043-5;""(043) ANTIGEN BLOOD TYPE, SLIDE OR TUBE, DIRECT AGGLUTINATION 86120 - ANTIGEN"""
^DIE(184,"DIAB",1,0,2100,19)="045-5;""(045) ANTIGLOBULIN TEST, DIRECT 86250 - SPECIMEN"""
^DIE(184,"DIAB",2,0,2100,1)="003-5;""(003) ABO CELL & SERUM TYPING, SLIDE OR TUBE 86080 - SPECIMEN"""
^DIE(184,"DIAB",2,0,2100,2)="006-5;""(006) ABO CELL TYPING, SLIDE OR TUBE 86084 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,3)="009-5;""(009) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE, AUTOMATED 86082.01 - SPECIMEN"""
^DIE(184,"DIAB",2,0,2100,4)="011-5;""(011) ABO SERUM TYPING, SLIDE OR TUBE 86086 - TEST"""
^DIE(184,"DIAB",2,0,2100,5)="014-5;""(014) ANTIBODY ABSORPTION 86135 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,6)="017-5;""(017) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86144 - BATCH"""
^DIE(184,"DIAB",2,0,2100,7)="019-5;""(019) ANTIBODY DETECTION (SCREEN) W/COMPATIBILITY TEST 86168 - TEST"""
^DIE(184,"DIAB",2,0,2100,8)="021-5;""(021) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 1-STAGE, ENZYME OR LISS 86140 - BATCH"""
^DIE(184,"DIAB",2,0,2100,9)="023-5;""(023) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 2 STAGE, ENZYME OR LISS 86142 - BATCH"""
^DIE(184,"DIAB",2,0,2100,10)="025-5;""(025) ANTIBODY DETECTION W/TYPE & SCREEN 86167 - TEST"""
^DIE(184,"DIAB",2,0,2100,11)="027-5;""(027) ANTIBODY ELUTION 86150 - SPECIMEN"""
^DIE(184,"DIAB",2,0,2100,12)="030-5;""(030) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 1-STAGE,ENZYME OR LISS 86152 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,13)="032-5;""(032) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 2-STAGE, ENXYME OR LISS 86160 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,14)="034-5;""(034) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 1-STAGE ENZYME OR LISS 86154 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,15)="036-5;""(036) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 2-STAGE ENZYME OR LISS 86158 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,16)="038-5;""(038) ANTIBODY TITRATION WITH ANTIGLOBULIN TEST 86162 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,17)="041-5;""(041) ANTIGEN BLOOD TYPE WITH ANTIGLOBULIN TEST 86125 - ANTIGEN"""
^DIE(184,"DIAB",2,0,2100,18)="044-5;""(044) ANTIGEN BLOOD TYPE, SLIDE OR TUBE, DIRECT AGGLUTINATION 86120 - QUALITY CONTROL"""
^DIE(184,"DIAB",2,0,2100,19)="046-5;""(046) ANTIGLOBULIN TEST, DIRECT 86250 - QUALITY CONTROL"""
^DIE(184,"DIAB",3,0,2100,1)="004-5;""(004) ABO CELL & SERUM TYPING, SLIDE OR TUBE 86080 - QUALTIY CONTROL"""
^DIE(184,"DIAB",3,0,2100,2)="007-5;""(007) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE 86082 - SPECIMEN"""
^DIE(184,"DIAB",3,0,2100,4)="012-5;""(012) ABO SERUM TYPING, SLIDE OR TUBE 86086 - QUALITY CONTROL"""
^DIE(184,"DIAB",3,0,2100,5)="015-5;""(015) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86139 - BATCH"""
^DIE(184,"DIAB",3,0,2100,11)="028-5;""(028) ANTIBODY ELUTION 86150 - QUALITY CONTROL"""
^DIE(184,"DIAB",3,0,2100,16)="039-5;""(039) ANTIBODY TITRATION W/O ANTIGLOBULIN TEST 86163 - ANTIGEN"""
^DIE(184,"DIAB",3,0,2100,17)="042-5;""(042) ANTIGEN BLOOD TYPE WITH ANTIGLOBULIN TEST 86125 - QUALITY CONTROL"""
^DIE(184,"DIAB",9,0,2100,0)="001-5;""(001) ABO CELL & RHo(D) TYPING, SLIDE OR TUBE 86081 - SPECIMEN"""
^DIE(184,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ABO CELL & RHo(D) TYPING, SLIDE OR TUBE 86081 - SPECIMEN~;"
^DIE(184,"DR",1,2100,1)="55.002(002) ABO CELL & RHo(D) TYPING, SLIDE OR TUBE 86081 - QUALITY CONTROL~;55.003(003) ABO CELL & SERUM TYPING, SLIDE OR TUBE 86080 - SPECIMEN~;55.004(004) ABO CELL & SERUM TYPING, SLIDE OR TUBE 86080 - QUALTIY CONTROL~;"
^DIE(184,"DR",1,2100,2)="55.005(005) ABO CELL TYPING, SLIDE OR TUBE 86084 - TEST~;55.006(006) ABO CELL TYPING, SLIDE OR TUBE 86084 - QUALITY CONTROL~;55.007(007) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE 86082 - SPECIMEN~;"
^DIE(184,"DR",1,2100,3)="55.008(008) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE 86082 - QUALITY CONTROL~;55.009(009) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE, AUTOMATED 86082.01 - SPECIMEN~;"
^DIE(184,"DR",1,2100,4)="55.01(010) ABO CELL, SERUM & RHo(D) TYPING, SLIDE OR TUBE, AUTOMATED 86082.01 - QUALITY CONTROL~;55.011(011) ABO SERUM TYPING, SLIDE OR TUBE 86086 - TEST~;55.012(012) ABO SERUM TYPING, SLIDE OR TUBE 86086 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,5)="55.013(013) ANTIBODY ABSORPTION 86135 - ABSORPTION~;55.014(014) ANTIBODY ABSORPTION 86135 - QUALITY CONTROL~;55.015(015) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86139 - BATCH~;"
^DIE(184,"DR",1,2100,6)="55.016(016) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86139 - QUALITY CONTROL~;55.017(017) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86144 - BATCH~;"
^DIE(184,"DR",1,2100,7)="55.018(018) ANTIBODY DETECTION (SCREEN) W/ANTIGLOBULIN TEST 86144 - QUALITY CONTROL~;55.019(019) ANTIBODY DETECTION (SCREEN) W/COMPATIBILITY TEST 86168 - TEST~;"
^DIE(184,"DR",1,2100,8)="55.02(020) ANTIBODY DETECTION (SCREEN) W/COMPATIBILITY TEST 86168 - QUALITY CONTROL~;55.021(021) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 1-STAGE, ENZYME OR LISS 86140 - BATCH~;"
^DIE(184,"DR",1,2100,9)="55.022(022) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 1-STAGE, ENZYME OR LISS 86140 - QUALITY CONTROL~;55.023(023) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 2 STAGE, ENZYME OR LISS 86142 - BATCH~;"
^DIE(184,"DR",1,2100,10)="55.024(024) ANTIBODY DETECTION (SCREEN) W/O ANTIGLOBULIN TEST 2 STAGE, ENZYME OR LISS 86142 - QUALITY CONTROL~;55.025(025) ANTIBODY DETECTION W/TYPE & SCREEN 86167 - TEST~;"
^DIE(184,"DR",1,2100,11)="55.026(026) ANTIBODY DETECTION W/TYPE & SCREEN 86167 - QUALITY CONTROL~;55.027(027) ANTIBODY ELUTION 86150 - SPECIMEN~;55.028(028) ANTIBODY ELUTION 86150 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,12)="55.029(029) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 1-STAGE,ENZYME OR LISS 86152 - PANEL~;55.03(030) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 1-STAGE,ENZYME OR LISS 86152 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,13)="55.031(031) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 2-STAGE, ENZYME OR LISS 86160 - PANEL~;55.032(032) ANTIBODY IDENT. WITH ANTIGLOBULIN TEST 2-STAGE, ENXYME OR LISS 86160 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,14)="55.033(033) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 1-STAGE ENZYME OR LISS 86154 - PANEL~;55.034(034) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 1-STAGE ENZYME OR LISS 86154 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,15)="55.035(035) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 2-STAGE ENZYME OR LISS 86158 - PANEL~;55.036(036) ANTIBODY IDENT. W/O ANTIGLOBULIN TEST, 2-STAGE ENZYME OR LISS 86158 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,16)="55.037(037) ANTIBODY TITRATION WITH ANTIGLOBULIN TEST 86162 - ANTIGEN~;55.038(038) ANTIBODY TITRATION WITH ANTIGLOBULIN TEST 86162 - QUALITY CONTROL~;55.039(039) ANTIBODY TITRATION W/O ANTIGLOBULIN TEST 86163 - ANTIGEN~;"
^DIE(184,"DR",1,2100,17)="55.04(040) ANTIBODY TITRATION W/O ANTIGLOBULIN TEST 86163 - QUALITY CONTROL~;55.041(041) ANTIGEN BLOOD TYPE WITH ANTIGLOBULIN TEST 86125 - ANTIGEN~;55.042(042) ANTIGEN BLOOD TYPE WITH ANTIGLOBULIN TEST 86125 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,18)="55.043(043) ANTIGEN BLOOD TYPE, SLIDE OR TUBE, DIRECT AGGLUTINATION 86120 - ANTIGEN~;55.044(044) ANTIGEN BLOOD TYPE, SLIDE OR TUBE, DIRECT AGGLUTINATION 86120 - QUALITY CONTROL~;"
^DIE(184,"DR",1,2100,19)="55.045(045) ANTIGLOBULIN TEST, DIRECT 86250 - SPECIMEN~;55.046(046) ANTIGLOBULIN TEST, DIRECT 86250 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(185,0)="LR AMS5 BB MAN & AUTO H29^2900917.214^^2100^0^^2931005"
^DIE(185,"DIAB",1,0,2100,1)="002-5;""(002) BLOOD, COMP. OR DER. (DEL. TO ANOTHER LOC.) 86131 - DELIV"""
^DIE(185,"DIAB",1,0,2100,2)="004-5;""(004) BLOOD, COMP. OR DER. ISSUE TO/RECEIVE FROM OUTSIDE HOSP. 86132 - UNIT"""
^DIE(185,"DIAB",1,0,2100,3)="007-5;""(007) COMPATIBILITY TEST, RHo(D) IMMUNE GLOBULIN 86130 - TEST"""
^DIE(185,"DIAB",1,0,2100,4)="009-5;""(009) CRYOPRECIPITATE PREPARATION (FOUR OR MORE UNITS PREP. SIMULTANEOUSLY) 86269 - UNIT"""
^DIE(185,"DIAB",1,0,2100,5)="011-5;""(011) CRYOPRECIPITATE THAWING & POOLING 86272 - UNIT"""
^DIE(185,"DIAB",1,0,2100,6)="015-5;""(015) FRESH FROZEN PLASMA PREP. (FOUR MORE SIMUL.) 86801 - UNIT"""
^DIE(185,"DIAB",1,0,2100,7)="019-5;""(019) FROZEN BLOOD, THAW & DEGLYC, AUTOMATED 86276.01 - UNIT"""
^DIE(185,"DIAB",1,0,2100,8)="022-5;""(022) LEUKAPHERESIS, AUTOMATED 86383.01 - DONOR"""
^DIE(185,"DIAB",1,0,2100,9)="025-5;""(025) LYOPHILIZED COAG. CONC. RECON. 86219 - UNIT"""
^DIE(185,"DIAB",1,0,2100,10)="028-5;""(028) PACKED RED BLOOD CELLS BY SEDIMENTATION 86790 -  UNIT"""
^DIE(185,"DIAB",1,0,2100,11)="031-5;""(031) PLASMAPHERESIS ADD. UNITS, MANUAL 86389 - UNIT"""
^DIE(185,"DIAB",1,0,2100,12)="035-5;""(035) PLATELET CONC. PREP. (FOUR MORE SIMUL.) 86390 - UNIT"""
^DIE(185,"DIAB",1,0,2100,13)="038-5;""(038) REAGENT RBC PREP. A, B, OR O 86211 - CELL REAGENT"""
^DIE(185,"DIAB",1,0,2100,14)="041-5;""(041) REAGENT RBC, PREP ENZYME OR LISS 86216 - CELL REAGENT"""
^DIE(185,"DIAB",1,0,2100,15)="044-5;""(044) WASHED RBC'S FOR TRANSFUSION 86670 - UNIT"""
^DIE(185,"DIAB",2,0,2100,1)="003-5;""(003) BLOOD, COMP. OR DER. ISSUE/REC. FROM OTHER LOC IN HOSP 86134 - UNIT"""
^DIE(185,"DIAB",2,0,2100,2)="005-5;""(005) COMPATIBILITY TEST, CROSSMATCH 86166 - TEST"""
^DIE(185,"DIAB",2,0,2100,3)="008-5;""(008) COMPATIBILITY TEST, RHo(D) IMMUNE GLOBULIN 86130 - QUALITY CONTROL"""
^DIE(185,"DIAB",2,0,2100,4)="010-5;""(010) CRYOPRECIPITATE PREPARATION (FOUR OR MORE UNITS PREP. SIMULTANEOUSLY) 86269 - QUALITY CONTROL"""
^DIE(185,"DIAB",2,0,2100,5)="012-5;""(012) DONOR ACCTG. CLERICAL PER UNIT 86820 - UNIT"""
^DIE(185,"DIAB",2,0,2100,6)="016-5;""(016) FRESH FROZEN PLASMA, THAWING 86805 - UNIT"""
^DIE(185,"DIAB",2,0,2100,7)="020-5;""(020) HBsAg BLOOD DONOR, RIA (BATCH PROCESSING) 86171 - TEST"""
^DIE(185,"DIAB",2,0,2100,8)="023-5;""(023) LEUKOCYTE, POOR BLOOD PREP. 86382 - UNIT"""
^DIE(185,"DIAB",2,0,2100,9)="026-5;""(026) PACKED RED BLOOD CELLS 86796 - UNIT"""
^DIE(185,"DIAB",2,0,2100,10)="029-5;""(029) PHLEBOTOMY THERAPEUTIC 86840 - UNIT"""
^DIE(185,"DIAB",2,0,2100,11)="032-5;""(032) PLASMAPHERESIS, 1ST UNIT MANUAL 86387 - UNIT"""
^DIE(185,"DIAB",2,0,2100,12)="036-5;""(036) REAGENT RBC FREEZE, GLYC CIT. 86201 - CELL REAGENT"""
^DIE(185,"DIAB",2,0,2100,13)="039-5;""(039) REAGENT RBC, PREP, ANTIGLOBULIN TEST, CONTROL CELLS 86213 - POOL"""
^DIE(185,"DIAB",2,0,2100,14)="042-5;""(042) REAGENT RBC, THAWING 86207 - CELL REAGENT"""
^DIE(185,"DIAB",2,0,2100,15)="045-5;""(045) WASHED RBC'S FOR TRANSFUSION, AUTOMATED 86670.01 - PER LITER WASH"""
^DIE(185,"DIAB",3,0,2100,2)="006-5;""(006) COMPATIBILITY TEST, CROSSMATCH 86166 - QUALITY CONTROL"""
^DIE(185,"DIAB",3,0,2100,5)="013-5;""(013) DONOR REJECTED 86825 - DONOR"""
^DIE(185,"DIAB",3,0,2100,6)="017-5;""(017) FROZEN BLOOD PREP. 86275 - UNIT"""
^DIE(185,"DIAB",3,0,2100,7)="021-5;""(021) HBsAg BLOOD DONOR, RIA (BATCH PROCESSING) 86171 - QUALITY CONTROL"""
^DIE(185,"DIAB",3,0,2100,8)="024-5;""(024) LYMPHOCYTE STORAGE LIQ NITROGEN 86384 - CELL REAGENT"""
^DIE(185,"DIAB",3,0,2100,9)="027-5;""(027) PACKED RED BLOOD CELLS BY CENTRIFUGATION 86795 - UNIT"""
^DIE(185,"DIAB",3,0,2100,10)="030-5;""(030) PHLEBOTOMY THERAPEUTIC, BEDSIDE 86845 - UNIT"""
^DIE(185,"DIAB",3,0,2100,11)="033-5;""(033) PLATELET CONC. POOLING 86393 - UNIT"""
^DIE(185,"DIAB",3,0,2100,12)="037-5;""(037) REAGENT RBC FREEZE, LIQ NITRO 86204 - CELL REAGENT"""
^DIE(185,"DIAB",3,0,2100,13)="040-5;""(040) REAGENT RBC, PREP, ANTIGLOBULIN TEST, CONTROL CELLS 86213 - QUALITY CONTROL"""
^DIE(185,"DIAB",3,0,2100,14)="043-5;""(043) SEPARATION OF BLOOD UNIT INTO ALIQUOTS 86810 - UNIT"""
^DIE(185,"DIAB",3,0,2100,15)="046-5;""(046) INVENTORY 86850 - UNIT"""
^DIE(185,"DIAB",4,0,2100,5)="014-5;""(014) FRESH FROZEN PLASMA PREP 86800 - UNIT"""
^DIE(185,"DIAB",4,0,2100,6)="018-5;""(018) FROZEN BLOOD, THAW & DEGLYC 86276 - UNIT"""
^DIE(185,"DIAB",4,0,2100,11)="034-5;""(034) PLATELET CONC. PREP. 86392 - UNIT"""
^DIE(185,"DIAB",4,0,2100,15)="047-5;""(047) PLASMAPHERESIS, AUTOMATED 86387.01 - DONOR"""
^DIE(185,"DIAB",9,0,2100,0)="001-5;""(001) BLOOD UNIT COLLECTION FROM DONOR 86133 - DONOR"""
^DIE(185,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLOOD UNIT COLLECTION FROM DONOR 86133 - DONOR~;"
^DIE(185,"DR",1,2100,1)="55.002(002) BLOOD, COMP. OR DER. (DEL. TO ANOTHER LOC.) 86131 - DELIV~;55.003(003) BLOOD, COMP. OR DER. ISSUE/REC. FROM OTHER LOC IN HOSP 86134 - UNIT~;"
^DIE(185,"DR",1,2100,2)="55.004(004) BLOOD, COMP. OR DER. ISSUE TO/RECEIVE FROM OUTSIDE HOSP. 86132 - UNIT~;55.005(005) COMPATIBILITY TEST, CROSSMATCH 86166 - TEST~;55.006(006) COMPATIBILITY TEST, CROSSMATCH 86166 - QUALITY CONTROL~;"
^DIE(185,"DR",1,2100,3)="55.007(007) COMPATIBILITY TEST, RHo(D) IMMUNE GLOBULIN 86130 - TEST~;55.008(008) COMPATIBILITY TEST, RHo(D) IMMUNE GLOBULIN 86130 - QUALITY CONTROL~;"
^DIE(185,"DR",1,2100,4)="55.009(009) CRYOPRECIPITATE PREPARATION (FOUR OR MORE UNITS PREP. SIMULTANEOUSLY) 86269 - UNIT~;55.01(010) CRYOPRECIPITATE PREPARATION (FOUR OR MORE UNITS PREP. SIMULTANEOUSLY) 86269 - QUALITY CONTROL~;"
^DIE(185,"DR",1,2100,5)="55.011(011) CRYOPRECIPITATE THAWING & POOLING 86272 - UNIT~;55.012(012) DONOR ACCTG. CLERICAL PER UNIT 86820 - UNIT~;55.013(013) DONOR REJECTED 86825 - DONOR~;55.014(014) FRESH FROZEN PLASMA PREP 86800 - UNIT~;"
^DIE(185,"DR",1,2100,6)="55.015(015) FRESH FROZEN PLASMA PREP. (FOUR MORE SIMUL.) 86801 - UNIT~;55.016(016) FRESH FROZEN PLASMA, THAWING 86805 - UNIT~;55.017(017) FROZEN BLOOD PREP. 86275 - UNIT~;55.018(018) FROZEN BLOOD, THAW & DEGLYC 86276 - UNIT~;"
^DIE(185,"DR",1,2100,7)="55.019(019) FROZEN BLOOD, THAW & DEGLYC, AUTOMATED 86276.01 - UNIT~;55.02(020) HBsAg BLOOD DONOR, RIA (BATCH PROCESSING) 86171 - TEST~;55.021(021) HBsAg BLOOD DONOR, RIA (BATCH PROCESSING) 86171 - QUALITY CONTROL~;"
^DIE(185,"DR",1,2100,8)="55.022(022) LEUKAPHERESIS, AUTOMATED 86383.01 - DONOR~;55.023(023) LEUKOCYTE, POOR BLOOD PREP. 86382 - UNIT~;55.024(024) LYMPHOCYTE STORAGE LIQ NITROGEN 86384 - CELL REAGENT~;"
^DIE(185,"DR",1,2100,9)="55.025(025) LYOPHILIZED COAG. CONC. RECON. 86219 - UNIT~;55.026(026) PACKED RED BLOOD CELLS 86796 - UNIT~;55.027(027) PACKED RED BLOOD CELLS BY CENTRIFUGATION 86795 - UNIT~;"
^DIE(185,"DR",1,2100,10)="55.028(028) PACKED RED BLOOD CELLS BY SEDIMENTATION 86790 -  UNIT~;55.029(029) PHLEBOTOMY THERAPEUTIC 86840 - UNIT~;55.03(030) PHLEBOTOMY THERAPEUTIC, BEDSIDE 86845 - UNIT~;"
^DIE(185,"DR",1,2100,11)="55.031(031) PLASMAPHERESIS ADD. UNITS, MANUAL 86389 - UNIT~;55.032(032) PLASMAPHERESIS, 1ST UNIT MANUAL 86387 - UNIT~;55.033(033) PLATELET CONC. POOLING 86393 - UNIT~;55.034(034) PLATELET CONC. PREP. 86392 - UNIT~;"
^DIE(185,"DR",1,2100,12)="55.035(035) PLATELET CONC. PREP. (FOUR MORE SIMUL.) 86390 - UNIT~;55.036(036) REAGENT RBC FREEZE, GLYC CIT. 86201 - CELL REAGENT~;55.037(037) REAGENT RBC FREEZE, LIQ NITRO 86204 - CELL REAGENT~;"
^DIE(185,"DR",1,2100,13)="55.038(038) REAGENT RBC PREP. A, B, OR O 86211 - CELL REAGENT~;55.039(039) REAGENT RBC, PREP, ANTIGLOBULIN TEST, CONTROL CELLS 86213 - POOL~;55.04(040) REAGENT RBC, PREP, ANTIGLOBULIN TEST, CONTROL CELLS 86213 - QUALITY CONTROL~;"
^DIE(185,"DR",1,2100,14)="55.041(041) REAGENT RBC, PREP ENZYME OR LISS 86216 - CELL REAGENT~;55.042(042) REAGENT RBC, THAWING 86207 - CELL REAGENT~;55.043(043) SEPARATION OF BLOOD UNIT INTO ALIQUOTS 86810 - UNIT~;"
^DIE(185,"DR",1,2100,15)="55.044(044) WASHED RBC'S FOR TRANSFUSION 86670 - UNIT~;55.045(045) WASHED RBC'S FOR TRANSFUSION, AUTOMATED 86670.01 - PER LITER WASH~;55.046(046) INVENTORY 86850 - UNIT~;55.047(047) PLASMAPHERESIS, AUTOMATED 86387.01 - DONOR~;"
^DIE(185,"DR",1,2100,16)="99///^S X=""$"";"
^DIE(186,0)="LR AMS5 IMMUN MAN & AUTO H30^2900917.2144^^2100^0^^2931007"
^DIE(186,"DIAB",1,0,2100,1)="003-5;""(003) ALBUMIN, AUTOMATED 82050.01 - TEST"""
^DIE(186,"DIAB",1,0,2100,2)="006-5;""(006) ANTIBODY DETERMINATION BY AGGLUTINATION (QUAL) GROUP 1 86006 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,3)="008-5;""(008) ANTIBODY DETERMINATION BY AGGLUTINATION (QUANT) GROUP 2 86008 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,4)="010-5;""(010) ANTIBODY DETERMINATION BY COMPLEMENT FIXATION (CF) GROUP 5 86283 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,5)="012-5;""(012) ANTIBODY DETERMINATION BY FLUORESCENT METHOD GROUP 6 86351 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,6)="014-5;""(014) ANTIBODY DETERMINATION BY INDIR. HEMAGGLUTINATION (IHA) GROUP 4 86280 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,7)="016-5;""(016) ANTIBODY DETERMINATION BY PRECIPITATION GROUP 3 86009 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,8)="018-5;""(018) ANTIGEN DETERMINATION BY FLUORESCENT ANTIBODY/EACH SERUM GROUP 7 86352 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,9)="021-5;""(021) COMPLEMENT COMPONENT C3 AUTOMATED 86298.01 - TEST"""
^DIE(186,"DIAB",1,0,2100,10)="024-5;""(024) COMPLEMENT COMPONENT C4 86299 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,11)="027-5;""(027) COMPLEMENT TOTAL SERUM CH50 86282 - TEST"""
^DIE(186,"DIAB",1,0,2100,12)="030-5;""(030) DEOXYRIBONUCLEIC ANTIBODIES 86030 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,13)="033-5;""(033) RUBELLA ANTIBODIES ANTI 86032 - TEST"""
^DIE(186,"DIAB",1,0,2100,14)="036-5;""(036) RUBELLA ANTIBODIES ANTI AUTOMATED 86032.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,15)="040-5;""(040) SYPHILIS/RPR/QUANT 86440 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,16)="044-5;""(044) SYPHILIS/VDRL/QUANT 86420 - QUALITY CONTROL"""
^DIE(186,"DIAB",1,0,2100,17)="048-5;""(048) TRYPSIN,ALPHA,ANTI AUTOMATED 82211.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",2,0,2100,1)="004-5;""(004) ALBUMIN, AUTOMATED 82050.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",2,0,2100,2)="007-5;""(007) ANTIBODY DETERMINATION BY AGGLUTINATION (QUANT) GROUP 2 86008 - TEST"""
^DIE(186,"DIAB",2,0,2100,3)="009-5;""(009) ANTIBODY DETERMINATION BY COMPLEMENT FIXATION (CF) GROUP 5 86283 - TEST"""
^DIE(186,"DIAB",2,0,2100,4)="011-5;""(011) ANTIBODY DETERMINATION BY FLUORESCENT METHOD GROUP 6 86351 - TEST"""
^DIE(186,"DIAB",2,0,2100,5)="013-5;""(013) ANTIBODY DETERMINATION BY INDIR. HEMAGGLUTINATION (IHA) GROUP 4 86280 - TEST"""
^DIE(186,"DIAB",2,0,2100,6)="015-5;""(015) ANTIBODY DETERMINATION BY PRECIPITATION GROUP 3 86009 - TEST"""
^DIE(186,"DIAB",2,0,2100,7)="017-5;""(017) ANTIGEN DETERMINATION BY FLUORESCENT ANTIBODY/EACH SERUM GROUP 7 86352 - TEST"""
^DIE(186,"DIAB",2,0,2100,8)="019-5;""(019) COMPLEMENT COMPONENT C3 86298 - TEST"""
^DIE(186,"DIAB",2,0,2100,9)="022-5;""(022) COMPLEMENT COMPONENT C3 AUTOMATED 86298.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",2,0,2100,10)="025-5;""(025) COMPLEMENT COMPONENT C4 AUTOMATED 86299.01 - TEST"""
^DIE(186,"DIAB",2,0,2100,11)="028-5;""(028) COMPLEMENT TOTAL SERUM CH50 86282 - QUALITY CONTROL"""
^DIE(186,"DIAB",2,0,2100,12)="031-5;""(031) DEOXYRIBONUCLEIC ANTIBODIES AUTOMATED 86030.01 - TEST"""
^DIE(186,"DIAB",2,0,2100,13)="034-5;""(034) RUBELLA ANTIBODIES ANTI 86032 - QUALITY CONTROL"""
^DIE(186,"DIAB",2,0,2100,14)="037-5;""(037) SYPHILIS/RPR/QUAL 86430 - TEST"""
^DIE(186,"DIAB",2,0,2100,15)="041-5;""(041) SYPHILIS/VDRL/QUAL 86410 - TEST"""
^DIE(186,"DIAB",2,0,2100,16)="045-5;""(045) TRYPSIN,ALPHA,ANTI 82211 - TEST"""
^DIE(186,"DIAB",3,0,2100,1)="005-5;""(005) ANTIBODY DETERMINATION BY AGGLUTINATION (QUAL) GROUP 1 86006 - TEST"""
^DIE(186,"DIAB",3,0,2100,8)="020-5;""(020) COMPLEMENT COMPONENT C3 86298 - QUALITY CONTROL"""
^DIE(186,"DIAB",3,0,2100,9)="023-5;""(023) COMPLEMENT COMPONENT C4 86299 - TEST"""
^DIE(186,"DIAB",3,0,2100,10)="026-5;""(026) COMPLEMENT COMPONENT C4 AUTOMATED 86299.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",3,0,2100,11)="029-5;""(029) DEOXYRIBONUCLEIC ANTIBODIES 86030 - TEST"""
^DIE(186,"DIAB",3,0,2100,12)="032-5;""(032) DEOXYRIBONUCLEIC ANTIBODIES AUTOMATED 86030.01 - QUALITY CONTROL"""
^DIE(186,"DIAB",3,0,2100,13)="035-5;""(035) RUBELLA ANTIBODIES ANTI AUTOMATED 86032.01 - TEST"""
^DIE(186,"DIAB",3,0,2100,14)="038-5;""(038) SYPHILIS/RPR/QUAL 86430 - QUALITY CONTROL"""
^DIE(186,"DIAB",3,0,2100,15)="042-5;""(042) SYPHILIS/VDRL/QUAL 86410 - QUALITY CONTROL"""
^DIE(186,"DIAB",3,0,2100,16)="046-5;""(046) TRYPSIN,ALPHA,ANTI 82211 - QUALITY CONTROL"""
^DIE(186,"DIAB",4,0,2100,14)="039-5;""(039) SYPHILIS/RPR/QUANT 86440 - DILUTION"""
^DIE(186,"DIAB",4,0,2100,15)="043-5;""(043) SYPHILIS/VDRL/QUANT 86420 - DILUTION"""
^DIE(186,"DIAB",4,0,2100,16)="047-5;""(047) TRYPSIN,ALPHA,ANTI AUTOMATED 82211.01 - TEST"""
^DIE(186,"DIAB",9,0,2100,0)="001-5;""(001) ALBUMIN 82050 - TEST"""
^DIE(186,"DIAB",10,0,2100,0)="002-5;""(002) ALBUMIN 82050 - QUALITY CONTROL"""
^DIE(186,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ALBUMIN 82050 - TEST~;55.002(002) ALBUMIN 82050 - QUALITY CONTROL~;"
^DIE(186,"DR",1,2100,1)="55.003(003) ALBUMIN, AUTOMATED 82050.01 - TEST~;55.004(004) ALBUMIN, AUTOMATED 82050.01 - QUALITY CONTROL~;55.005(005) ANTIBODY DETERMINATION BY AGGLUTINATION (QUAL) GROUP 1 86006 - TEST~;"
^DIE(186,"DR",1,2100,2)="55.006(006) ANTIBODY DETERMINATION BY AGGLUTINATION (QUAL) GROUP 1 86006 - QUALITY CONTROL~;55.007(007) ANTIBODY DETERMINATION BY AGGLUTINATION (QUANT) GROUP 2 86008 - TEST~;"
^DIE(186,"DR",1,2100,3)="55.008(008) ANTIBODY DETERMINATION BY AGGLUTINATION (QUANT) GROUP 2 86008 - QUALITY CONTROL~;55.009(009) ANTIBODY DETERMINATION BY COMPLEMENT FIXATION (CF) GROUP 5 86283 - TEST~;"
^DIE(186,"DR",1,2100,4)="55.01(010) ANTIBODY DETERMINATION BY COMPLEMENT FIXATION (CF) GROUP 5 86283 - QUALITY CONTROL~;55.011(011) ANTIBODY DETERMINATION BY FLUORESCENT METHOD GROUP 6 86351 - TEST~;"
^DIE(186,"DR",1,2100,5)="55.012(012) ANTIBODY DETERMINATION BY FLUORESCENT METHOD GROUP 6 86351 - QUALITY CONTROL~;55.013(013) ANTIBODY DETERMINATION BY INDIR. HEMAGGLUTINATION (IHA) GROUP 4 86280 - TEST~;"
^DIE(186,"DR",1,2100,6)="55.014(014) ANTIBODY DETERMINATION BY INDIR. HEMAGGLUTINATION (IHA) GROUP 4 86280 - QUALITY CONTROL~;55.015(015) ANTIBODY DETERMINATION BY PRECIPITATION GROUP 3 86009 - TEST~;"
^DIE(186,"DR",1,2100,7)="55.016(016) ANTIBODY DETERMINATION BY PRECIPITATION GROUP 3 86009 - QUALITY CONTROL~;55.017(017) ANTIGEN DETERMINATION BY FLUORESCENT ANTIBODY/EACH SERUM GROUP 7 86352 - TEST~;"
^DIE(186,"DR",1,2100,8)="55.018(018) ANTIGEN DETERMINATION BY FLUORESCENT ANTIBODY/EACH SERUM GROUP 7 86352 - QUALITY CONTROL~;55.019(019) COMPLEMENT COMPONENT C3 86298 - TEST~;55.02(020) COMPLEMENT COMPONENT C3 86298 - QUALITY CONTROL~;"
^DIE(186,"DR",1,2100,9)="55.021(021) COMPLEMENT COMPONENT C3 AUTOMATED 86298.01 - TEST~;55.022(022) COMPLEMENT COMPONENT C3 AUTOMATED 86298.01 - QUALITY CONTROL~;55.023(023) COMPLEMENT COMPONENT C4 86299 - TEST~;"
^DIE(186,"DR",1,2100,10)="55.024(024) COMPLEMENT COMPONENT C4 86299 - QUALITY CONTROL~;55.025(025) COMPLEMENT COMPONENT C4 AUTOMATED 86299.01 - TEST~;55.026(026) COMPLEMENT COMPONENT C4 AUTOMATED 86299.01 - QUALITY CONTROL~;"
^DIE(186,"DR",1,2100,11)="55.027(027) COMPLEMENT TOTAL SERUM CH50 86282 - TEST~;55.028(028) COMPLEMENT TOTAL SERUM CH50 86282 - QUALITY CONTROL~;55.029(029) DEOXYRIBONUCLEIC ANTIBODIES 86030 - TEST~;"
^DIE(186,"DR",1,2100,12)="55.03(030) DEOXYRIBONUCLEIC ANTIBODIES 86030 - QUALITY CONTROL~;55.031(031) DEOXYRIBONUCLEIC ANTIBODIES AUTOMATED 86030.01 - TEST~;55.032(032) DEOXYRIBONUCLEIC ANTIBODIES AUTOMATED 86030.01 - QUALITY CONTROL~;"
^DIE(186,"DR",1,2100,13)="55.033(033) RUBELLA ANTIBODIES ANTI 86032 - TEST~;55.034(034) RUBELLA ANTIBODIES ANTI 86032 - QUALITY CONTROL~;55.035(035) RUBELLA ANTIBODIES ANTI AUTOMATED 86032.01 - TEST~;"
^DIE(186,"DR",1,2100,14)="55.036(036) RUBELLA ANTIBODIES ANTI AUTOMATED 86032.01 - QUALITY CONTROL~;55.037(037) SYPHILIS/RPR/QUAL 86430 - TEST~;55.038(038) SYPHILIS/RPR/QUAL 86430 - QUALITY CONTROL~;55.039(039) SYPHILIS/RPR/QUANT 86440 - DILUTION~;"
^DIE(186,"DR",1,2100,15)="55.04(040) SYPHILIS/RPR/QUANT 86440 - QUALITY CONTROL~;55.041(041) SYPHILIS/VDRL/QUAL 86410 - TEST~;55.042(042) SYPHILIS/VDRL/QUAL 86410 - QUALITY CONTROL~;55.043(043) SYPHILIS/VDRL/QUANT 86420 - DILUTION~;"
^DIE(186,"DR",1,2100,16)="55.044(044) SYPHILIS/VDRL/QUANT 86420 - QUALITY CONTROL~;55.045(045) TRYPSIN,ALPHA,ANTI 82211 - TEST~;55.046(046) TRYPSIN,ALPHA,ANTI 82211 - QUALITY CONTROL~;55.047(047) TRYPSIN,ALPHA,ANTI AUTOMATED 82211.01 - TEST~;"
^DIE(186,"DR",1,2100,17)="55.048(048) TRYPSIN,ALPHA,ANTI AUTOMATED 82211.01 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(187,0)="LR AMS5 AUTO CHEM H19-H76^2900917.2123^^2100^0^^2931005"
^DIE(187,"DIAB",1,0,2100,1)="003-5;""(003) IRON, TOTAL 83540 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,2)="006-5;""(006) IRON, TOTAL & COMBINING CAPACITY 83550 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,3)="009-5;""(009) LACTATE DEHYTRGENASE (LD) BLOOD (COLORIMETRIC) 83620 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,4)="012-5;""(012) PHOSPHATASE, ACID, TOTAL 84060 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,5)="015-5;""(015) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,6)="019-5;""(019) POTASSIUM 84140 - TEST"""
^DIE(187,"DIAB",1,0,2100,7)="024-5;""(024) PROTEIN, TOTAL 84155 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,8)="028-5;""(028) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - TEST"""
^DIE(187,"DIAB",1,0,2100,9)="030-5;""(030) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - STANDARD"""
^DIE(187,"DIAB",1,0,2100,10)="032-5;""(032) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - QUALTIY CONTROL"""
^DIE(187,"DIAB",1,0,2100,11)="034-5;""(034) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - TEST"""
^DIE(187,"DIAB",1,0,2100,12)="037-5;""(037) UREA NITROGEN 84520 - TEST"""
^DIE(187,"DIAB",1,0,2100,13)="042-5;""(042) URIC ACID 84550 - STANDARD"""
^DIE(187,"DIAB",2,0,2100,1)="004-5;""(004) IRON, TOTAL & COMBINING CAPACITY 83550 - TEST"""
^DIE(187,"DIAB",2,0,2100,2)="007-5;""(007) LACTATE DEHYROGENASE (LD) BLOOD (COLORIMETRIC) 83620 - TEST"""
^DIE(187,"DIAB",2,0,2100,3)="010-5;""(010) PHOSPHATASE, ACID, TOTAL 84060 - TEST"""
^DIE(187,"DIAB",2,0,2100,4)="013-5;""(013) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - TEST"""
^DIE(187,"DIAB",2,0,2100,5)="016-5;""(016) PHOSPHATE, INORGANIC 84100 - TEST"""
^DIE(187,"DIAB",2,0,2100,6)="020-5;""(020) POTASSIUM 84140 - QUALITY CONTROL"""
^DIE(187,"DIAB",2,0,2100,7)="025-5;""(025) SODIUM 84295 - TEST"""
^DIE(187,"DIAB",2,0,2100,8)="029-5;""(029) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - QUALITY CONTROL"""
^DIE(187,"DIAB",2,0,2100,9)="031-5;""(031) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - TEST"""
^DIE(187,"DIAB",2,0,2100,10)="033-5;""(033) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - STANDARD"""
^DIE(187,"DIAB",2,0,2100,11)="035-5;""(035) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - QUALITY CONTROL"""
^DIE(187,"DIAB",2,0,2100,12)="038-5;""(038) UREA NITROGEN 84520 - QUALITY CONTROL"""
^DIE(187,"DIAB",2,0,2100,13)="043-5;""(043) OTHER CHEMISTRY 84555 - TEST"""
^DIE(187,"DIAB",3,0,2100,1)="005-5;""(005) IRON, TOTAL & COMBINING CAPACITY 83550 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,2)="008-5;""(008) LACTATE DEHYROGENASE (LD) BLOOD (COLORIMETRIC) 83620 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,3)="011-5;""(011) PHOSPHATASE, ACID, TOTAL 84060 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,4)="014-5;""(014) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,5)="017-5;""(017) PHOSPHATE, INORGANIC 84100 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,6)="021-5;""(021) POTASSIUM 84140 - STANDARD"""
^DIE(187,"DIAB",3,0,2100,7)="026-5;""(026) SODIUM 84295 - QUALITY CONTROL"""
^DIE(187,"DIAB",3,0,2100,11)="036-5;""(036) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - STANDARD"""
^DIE(187,"DIAB",3,0,2100,12)="039-5;""(039) UREA NITROGEN 84520 - STANDARD"""
^DIE(187,"DIAB",3,0,2100,13)="044-5;""(044) OTHER CHEMISTRY 84555 - QUALITY CONTROL"""
^DIE(187,"DIAB",4,0,2100,5)="018-5;""(018) PHOSPHATE, INORGANIC 84100 - STANDARD"""
^DIE(187,"DIAB",4,0,2100,6)="022-5;""(022) PROTEIN, TOTAL 84155 - TEST"""
^DIE(187,"DIAB",4,0,2100,7)="027-5;""(027) SODIUM 84295 - STANDARD"""
^DIE(187,"DIAB",4,0,2100,12)="040-5;""(040) URIC ACID 84550 - TEST"""
^DIE(187,"DIAB",4,0,2100,13)="045-5;""(045) OTHER CHEMISTRY 84555 - STANDARD"""
^DIE(187,"DIAB",5,0,2100,6)="023-5;""(023) PROTEIN, TOTAL 84155 - QUALITY CONTROL"""
^DIE(187,"DIAB",5,0,2100,12)="041-5;""(041) URIC ACID 84550 - QUALITY CONTROL"""
^DIE(187,"DIAB",9,0,2100,0)="001-5;""(001) IRON, TOTAL 83540 - TEST"""
^DIE(187,"DIAB",10,0,2100,0)="002-5;""(002) IRON, TOTAL 83540 - QUALITY CONTROL"""
^DIE(187,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) IRON, TOTAL 83540 - TEST~;55.002(002) IRON, TOTAL 83540 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,1)="55.003(003) IRON, TOTAL 83540 - STANDARD~;55.004(004) IRON, TOTAL & COMBINING CAPACITY 83550 - TEST~;55.005(005) IRON, TOTAL & COMBINING CAPACITY 83550 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,2)="55.006(006) IRON, TOTAL & COMBINING CAPACITY 83550 - STANDARD~;55.007(007) LACTATE DEHYROGENASE (LD) BLOOD (COLORIMETRIC) 83620 - TEST~;55.008(008) LACTATE DEHYROGENASE (LD) BLOOD (COLORIMETRIC) 83620 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,3)="55.009(009) LACTATE DEHYTRGENASE (LD) BLOOD (COLORIMETRIC) 83620 - STANDARD~;55.01(010) PHOSPHATASE, ACID, TOTAL 84060 - TEST~;55.011(011) PHOSPHATASE, ACID, TOTAL 84060 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,4)="55.012(012) PHOSPHATASE, ACID, TOTAL 84060 - STANDARD~;55.013(013) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - TEST~;55.014(014) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,5)="55.015(015) PHOSPHATASE, ALKALINE (COLORIMETRIC) 84075 - STANDARD~;55.016(016) PHOSPHATE, INORGANIC 84100 - TEST~;55.017(017) PHOSPHATE, INORGANIC 84100 - QUALITY CONTROL~;55.018(018) PHOSPHATE, INORGANIC 84100 - STANDARD~;"
^DIE(187,"DR",1,2100,6)="55.019(019) POTASSIUM 84140 - TEST~;55.02(020) POTASSIUM 84140 - QUALITY CONTROL~;55.021(021) POTASSIUM 84140 - STANDARD~;55.022(022) PROTEIN, TOTAL 84155 - TEST~;55.023(023) PROTEIN, TOTAL 84155 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,7)="55.024(024) PROTEIN, TOTAL 84155 - STANDARD~;55.025(025) SODIUM 84295 - TEST~;55.026(026) SODIUM 84295 - QUALITY CONTROL~;55.027(027) SODIUM 84295 - STANDARD~;"
^DIE(187,"DR",1,2100,8)="55.028(028) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - TEST~;55.029(029) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,9)="55.03(030) TRANSFERASE, ALANINE AMINO (ALT) (SGPT) (COLORIMETRIC) 84465 - STANDARD~;55.031(031) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - TEST~;"
^DIE(187,"DR",1,2100,10)="55.032(032) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - QUALTIY CONTROL~;55.033(033) TRANSFERASE, ASPARTATE AMINO (AST) (SGOT) (COLORIMETRIC) 84455 - STANDARD~;"
^DIE(187,"DR",1,2100,11)="55.034(034) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - TEST~;55.035(035) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - QUALITY CONTROL~;55.036(036) TRIGLYCERIDES (WITHOUT EXTRACTION) 84480 - STANDARD~;"
^DIE(187,"DR",1,2100,12)="55.037(037) UREA NITROGEN 84520 - TEST~;55.038(038) UREA NITROGEN 84520 - QUALITY CONTROL~;55.039(039) UREA NITROGEN 84520 - STANDARD~;55.04(040) URIC ACID 84550 - TEST~;55.041(041) URIC ACID 84550 - QUALITY CONTROL~;"
^DIE(187,"DR",1,2100,13)="55.042(042) URIC ACID 84550 - STANDARD~;55.043(043) OTHER CHEMISTRY 84555 - TEST~;55.044(044) OTHER CHEMISTRY 84555 - QUALITY CONTROL~;55.045(045) OTHER CHEMISTRY 84555 - STANDARD~;99///^ S X=""$"";"
^DIE(188,0)="LR AMS5 AUTO CHEM H77-H85^2900420.1153^^2100^^^2931005"
^DIE(188,"DIAB",1,0,2100,1)="003-5;""(003) INSTRUMENT SET UP 82410 - STANDARD"""
^DIE(188,"DIAB",1,0,2100,2)="006-5;""(006) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - STANDARD"""
^DIE(188,"DIAB",1,0,2100,3)="010-5;""(010) LITHIUM/SERUM/QUANT 84821 - TEST"""
^DIE(188,"DIAB",1,0,2100,4)="013-5;""(013) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - SPECIMEN"""
^DIE(188,"DIAB",1,0,2100,5)="015-5;""(015) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - STANDARD"""
^DIE(188,"DIAB",1,0,2100,6)="019-5;""(019) SODIUM 84295 - TEST"""
^DIE(188,"DIAB",1,0,2100,7)="023-5;""(023) TRIGLYCERIDES (WITH EXTRACTION) 84475 - QUALITY CONTROL"""
^DIE(188,"DIAB",1,0,2100,8)="027-5;""(027) UREA NITROGEN 84520 - STANDARD"""
^DIE(188,"DIAB",2,0,2100,1)="004-5;""(004) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - TEST"""
^DIE(188,"DIAB",2,0,2100,2)="007-5;""(007) GLUCOSE, QUANT 84330 - TEST"""
^DIE(188,"DIAB",2,0,2100,3)="011-5;""(011) LITHIUM/SERUM/QUANT 84821 - QUALITY CONTROL"""
^DIE(188,"DIAB",2,0,2100,4)="014-5;""(014) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - QUALITY CONTROL"""
^DIE(188,"DIAB",2,0,2100,5)="016-5;""(016) POTASSIUM 84140 - TEST"""
^DIE(188,"DIAB",2,0,2100,6)="020-5;""(020) SODIUM 84295 - QUALITY CONTROL"""
^DIE(188,"DIAB",2,0,2100,7)="024-5;""(024) TRIGLYCERIDES (WITH EXTRACTION) 84475 - STANDARD"""
^DIE(188,"DIAB",3,0,2100,1)="005-5;""(005) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - QUALITY CONTROL"""
^DIE(188,"DIAB",3,0,2100,2)="008-5;""(008) GLUCOSE, QUANT 84330 - QUALITY CONTROL"""
^DIE(188,"DIAB",3,0,2100,3)="012-5;""(012) LITHIUM/SERUM/QUANT 84821 - STANDARD"""
^DIE(188,"DIAB",3,0,2100,5)="017-5;""(017) POTASSIUM 84140 - QUALITY CONTROL"""
^DIE(188,"DIAB",3,0,2100,6)="021-5;""(021) SODIUM 84295 - STANDARD"""
^DIE(188,"DIAB",3,0,2100,7)="025-5;""(025) UREA NITROGEN 84520 - TEST"""
^DIE(188,"DIAB",4,0,2100,2)="009-5;""(009) GLUCOSE, QUANT 84330 - STANDARD"""
^DIE(188,"DIAB",4,0,2100,5)="018-5;""(018) POTASSIUM 84140 - STANDARD"""
^DIE(188,"DIAB",4,0,2100,6)="022-5;""(022) TRIGLYCERIDES (WITH EXTRACTION) 84475 - TEST"""
^DIE(188,"DIAB",4,0,2100,7)="026-5;""(026) UREA NITROGEN 84520 - QUALITY CONTROL"""
^DIE(188,"DIAB",9,0,2100,0)="001-5;""(001) INSTRUMENT SET UP 82410 - SPECIMEN"""
^DIE(188,"DIAB",10,0,2100,0)="002-5;""(002) INSTRUMENT SET UP 82410 - QUALITY CONTROL"""
^DIE(188,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) INSTRUMENT SET UP 82410 - SPECIMEN~;55.002(002) INSTRUMENT SET UP 82410 - QUALITY CONTROL~;"
^DIE(188,"DR",1,2100,1)="55.003(003) INSTRUMENT SET UP 82410 - STANDARD~;55.004(004) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - TEST~;55.005(005) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - QUALITY CONTROL~;"
^DIE(188,"DR",1,2100,2)="55.006(006) CHOLESTEROL, TOTAL WITH EXTRACTION (BLOOD,PLASMA OR SERUM) 82465 - STANDARD~;55.007(007) GLUCOSE, QUANT 84330 - TEST~;55.008(008) GLUCOSE, QUANT 84330 - QUALITY CONTROL~;55.009(009) GLUCOSE, QUANT 84330 - STANDARD~;"
^DIE(188,"DR",1,2100,3)="55.01(010) LITHIUM/SERUM/QUANT 84821 - TEST~;55.011(011) LITHIUM/SERUM/QUANT 84821 - QUALITY CONTROL~;55.012(012) LITHIUM/SERUM/QUANT 84821 - STANDARD~;"
^DIE(188,"DR",1,2100,4)="55.013(013) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - SPECIMEN~;55.014(014) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - QUALITY CONTROL~;"
^DIE(188,"DR",1,2100,5)="55.015(015) MULTIPLE ION ANALYSIS (SODIUM AND POTASSIUM TOGETHER) 82420 - STANDARD~;55.016(016) POTASSIUM 84140 - TEST~;55.017(017) POTASSIUM 84140 - QUALITY CONTROL~;55.018(018) POTASSIUM 84140 - STANDARD~;"
^DIE(188,"DR",1,2100,6)="55.019(019) SODIUM 84295 - TEST~;55.02(020) SODIUM 84295 - QUALITY CONTROL~;55.021(021) SODIUM 84295 - STANDARD~;55.022(022) TRIGLYCERIDES (WITH EXTRACTION) 84475 - TEST~;"
^DIE(188,"DR",1,2100,7)="55.023(023) TRIGLYCERIDES (WITH EXTRACTION) 84475 - QUALITY CONTROL~;55.024(024) TRIGLYCERIDES (WITH EXTRACTION) 84475 - STANDARD~;55.025(025) UREA NITROGEN 84520 - TEST~;55.026(026) UREA NITROGEN 84520 - QUALITY CONTROL~;"
^DIE(188,"DR",1,2100,8)="55.027(027) UREA NITROGEN 84520 - STANDARD~;99///^S X=""$"";"
^DIE(189,0)="LR AMS5 MICRO AUTO H32^2900327.1014^^2100^^^2931005"
^DIE(189,"DIAB",1,0,2100,1)="002-5;""(002) AUTOBAC I, GENERAL DIAGNOSTICS SENSITIVITY/MIC 87518.085 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,2)="004-5;""(004) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. ORGANISM ID 87514.087 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,3)="006-5;""(006) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. SENSITIVITY/MIC 87518.087 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,4)="008-5;""(008) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. URINE SCREEN 87520.087 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,5)="010-5;""(010) AUTO SCAN-3 (WITH DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.088 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,6)="012-5;""(012) AUTO SCAN-3 (W/O DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.092 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,7)="014-5;""(014) AVANTAGE ABBOTT LABORATORIES ORGANISM ID/MIC COMBO 87516.083 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,8)="016-5;""(016) AVANTAGE ABBOTT LABORATORIES URINE SCREEN 87520.083 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,9)="018-5;""(018) BACTEC 460 JOHNSTON LABORATORIES BLOOD CULTURES 87512.089 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,10)="020-5;""(020) BACTEC 460 JOHNSTON LABORATORIES TB AND BLODD CULTURE 87512.090 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,11)="022-5;""(022) BACTECT 460 (NEISERRIA ID) JOHNSTON LABORATORIES ORGANISM ID 87514.089 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,12)="024-5;""(024) BACTEC NR-860 JOHNSTON LABORATORIES BLOOD CULTURES 87512.107 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,13)="026-5;""(026) MICRO CODER I, MICRO MEDIA SYSTEMS SENSITIVITY/MIC 87518.093 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,14)="028-5;""(028) MS-2 ABBOTT LABORATORIES ORGANISM ID 87514.094 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,15)="030-5;""(030) MS-2 ABBOTT LABORATORIES SENSITIVITY/MIC 87518.094 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,16)="032-5;""(032) MS-2 ABBOTT LABORATORIES URINE SCREEN 87514.094 - QUALITY CONTROL"""
^DIE(189,"DIAB",1,0,2100,17)="035-5;""(035) SCEPTOR BBL MICROBIOLOGY ORGANISM ID/MIC COMBO 87516.097 - ORGANISM"""
^DIE(189,"DIAB",1,0,2100,18)="037-5;""(037) BLOOD CULTURE, AUTOMATED NOT LISTED ELSEWHERE 87512.001 - BOTTLE"""
^DIE(189,"DIAB",1,0,2100,19)="039-5;""(039) ORGANISM IDENTIFICATION, AUTOMATED NOT LISTED ELSEWHERE 87514.001 - ORGANISM"""
^DIE(189,"DIAB",1,0,2100,20)="041-5;""(041) ORGANISM ID/MIC COMBO, AUTOMATED NOT LISTED ELSEWHERE 87516.001 - ORGANISM"""
^DIE(189,"DIAB",1,0,2100,21)="043-5;""(043) SENSITIVITY/MIC, AUTOMATED NOT LISTED ELSEWHERE 87518.001 - ORGANISM"""
^DIE(189,"DIAB",1,0,2100,22)="045-5;""(045) URINE SCREEN, AUTOMATED NOT LISTED ELSEWHERE 87520.001 - ORGANISM"""
^DIE(189,"DIAB",1,0,2100,23)="047-5;""(047) YEAST ID, AUTOMATED NOT LISTED ELSEWHERE 87522.001 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,1)="003-5;""(003) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. ORGANISM ID 87514.087 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,2)="005-5;""(005) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. SENSITIVITY/MIC 87518.087 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,3)="007-5;""(007) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. URINE SCREEN 87520.087 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,4)="009-5;""(009) AUTO SCAN-3 (WITH DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.088 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,5)="011-5;""(011) AUTO SCAN-3 (W/O DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.092 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,6)="013-5;""(013) AVANTAGE ABBOTT LABORATORIES ORGANISM ID/MIC COMBO 87516.083 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,7)="015-5;""(015) AVANTAGE ABBOTT LABORATORIES URINE SCREEN 87520.083 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,8)="017-5;""(017) BACTEC 460 JOHNSTON LABORATORIES BLOOD CULTURES 87512.089 - BOTTLE"""
^DIE(189,"DIAB",2,0,2100,9)="019-5;""(019) BACTEC 460 JOHNSTON LABORATORIES TB AND BLOOD CULTURE 87512.090 - BOTTLE"""
^DIE(189,"DIAB",2,0,2100,10)="021-5;""(021) BACTECT 460 (NEISERRIA ID) JOHNSTON LABORATORIES ORGANISM ID 87514.089 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,11)="023-5;""(023) BACTEC NR-860 JOHNSTON LABORATORIES BLOOD CULTURES 87512.107 - BOTTLE"""
^DIE(189,"DIAB",2,0,2100,12)="025-5;""(025) MICRO CODER I, MICRO MEDIA SYSTEMS SENSITIVITY/MIC 87518.093 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,13)="027-5;""(027) MS-2 ABBOTT LABORATORIES ORGANISM ID 87514.094 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,14)="029-5;""(029) MS-2 ABBOTT LABORATORIES SENSITIVITY/MIC 87518.094 - BOTTLE"""
^DIE(189,"DIAB",2,0,2100,15)="031-5;""(031) MS-2 ABBOTT LABORATORIES URINE SCREEN 87514.094 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,16)="033-5;""(033) SCEPTOR BBL MICROBIOLOGY ORGANISM ID 87514.097 - ORGANISM"""
^DIE(189,"DIAB",2,0,2100,17)="036-5;""(036) SCEPTOR BBL MICROBIOLOGY ORGANISM ID/MIC COMBO 87516.097 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,18)="038-5;""(038) BLOOD CULTURE, AUTOMATED NOT LISTED ELSEWHERE 87512.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,19)="040-5;""(040) ORGANISM IDENTIFICATION, AUTOMATED NOT LISTED ELSEWHERE 87514.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,20)="042-5;""(042) ORGANISM ID/MIC COMBO, AUTOMATED NOT LISTED ELSEWHERE 87516.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,21)="044-5;""(044) SENSITIVITY/MIC, AUTOMATED NOT LISTED ELSEWHERE 87518.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,22)="046-5;""(046) URINE SCREEN, AUTOMATED NOT LISTED ELSEWHERE 87520.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",2,0,2100,23)="048-5;""(048) YEAST ID, AUTOMATED NOT LISTED ELSEWHERE 87522.001 - QUALITY CONTROL"""
^DIE(189,"DIAB",3,0,2100,16)="034-5;""(034) SCEPTOR BBL MICROBIOLOGY ORGANISM ID 87514.097 - QUALITY CONTROL"""
^DIE(189,"DIAB",9,0,2100,0)="001-5;""(001) AUTOBAC I, GENERAL DIAGNOSTICS SENSITIVITY/MIC 87518.085 - ORGANISM"""
^DIE(189,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=7;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) AUTOBAC I, GENERAL DIAGNOSTICS SENSITIVITY/MIC 87518.085 - ORGANISM~;"
^DIE(189,"DR",1,2100,1)="55.002(002) AUTOBAC I, GENERAL DIAGNOSTICS SENSITIVITY/MIC 87518.085 - QUALITY CONTROL~;55.003(003) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. ORGANISM ID 87514.087 - ORGANISM~;"
^DIE(189,"DR",1,2100,2)="55.004(004) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. ORGANISM ID 87514.087 - QUALITY CONTROL~;55.005(005) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. SENSITIVITY/MIC 87518.087 - ORGANISM~;"
^DIE(189,"DR",1,2100,3)="55.006(006) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. SENSITIVITY/MIC 87518.087 - QUALITY CONTROL~;55.007(007) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. URINE SCREEN 87520.087 - ORGANISM~;"
^DIE(189,"DR",1,2100,4)="55.008(008) AUTO MICROBIC SYSTEM (AMS) VITEK SYSTEMS, INC. URINE SCREEN 87520.087 - QUALITY CONTROL~;55.009(009) AUTO SCAN-3 (WITH DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.088 - ORGANISM~;"
^DIE(189,"DR",1,2100,5)="55.01(010) AUTO SCAN-3 (WITH DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.088 - QUALITY CONTROL~;55.011(011) AUTO SCAN-3 (W/O DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.092 - ORGANISM~;"
^DIE(189,"DR",1,2100,6)="55.012(012) AUTO SCAN-3 (W/O DATA MGT.) MICRO SCAN ORGANISM ID/MIC COMBO 87516.092 - QUALITY CONTROL~;55.013(013) AVANTAGE ABBOTT LABORATORIES ORGANISM ID/MIC COMBO 87516.083 - ORGANISM~;"
^DIE(189,"DR",1,2100,7)="55.014(014) AVANTAGE ABBOTT LABORATORIES ORGANISM ID/MIC COMBO 87516.083 - QUALITY CONTROL~;55.015(015) AVANTAGE ABBOTT LABORATORIES URINE SCREEN 87520.083 - ORGANISM~;"
^DIE(189,"DR",1,2100,8)="55.016(016) AVANTAGE ABBOTT LABORATORIES URINE SCREEN 87520.083 - QUALITY CONTROL~;55.017(017) BACTEC 460 JOHNSTON LABORATORIES BLOOD CULTURES 87512.089 - BOTTLE~;"
^DIE(189,"DR",1,2100,9)="55.018(018) BACTEC 460 JOHNSTON LABORATORIES BLOOD CULTURES 87512.089 - QUALITY CONTROL~;55.019(019) BACTEC 460 JOHNSTON LABORATORIES TB AND BLOOD CULTURE 87512.090 - BOTTLE~;"
^DIE(189,"DR",1,2100,10)="55.02(020) BACTEC 460 JOHNSTON LABORATORIES TB AND BLODD CULTURE 87512.090 - QUALITY CONTROL~;55.021(021) BACTECT 460 (NEISERRIA ID) JOHNSTON LABORATORIES ORGANISM ID 87514.089 - ORGANISM~;"
^DIE(189,"DR",1,2100,11)="55.022(022) BACTECT 460 (NEISERRIA ID) JOHNSTON LABORATORIES ORGANISM ID 87514.089 - QUALITY CONTROL~;55.023(023) BACTEC NR-860 JOHNSTON LABORATORIES BLOOD CULTURES 87512.107 - BOTTLE~;"
^DIE(189,"DR",1,2100,12)="55.024(024) BACTEC NR-860 JOHNSTON LABORATORIES BLOOD CULTURES 87512.107 - QUALITY CONTROL~;55.025(025) MICRO CODER I, MICRO MEDIA SYSTEMS SENSITIVITY/MIC 87518.093 - ORGANISM~;"
^DIE(189,"DR",1,2100,13)="55.026(026) MICRO CODER I, MICRO MEDIA SYSTEMS SENSITIVITY/MIC 87518.093 - QUALITY CONTROL~;55.027(027) MS-2 ABBOTT LABORATORIES ORGANISM ID 87514.094 - ORGANISM~;"
^DIE(189,"DR",1,2100,14)="55.028(028) MS-2 ABBOTT LABORATORIES ORGANISM ID 87514.094 - QUALITY CONTROL~;55.029(029) MS-2 ABBOTT LABORATORIES SENSITIVITY/MIC 87518.094 - BOTTLE~;"
^DIE(189,"DR",1,2100,15)="55.03(030) MS-2 ABBOTT LABORATORIES SENSITIVITY/MIC 87518.094 - QUALITY CONTROL~;55.031(031) MS-2 ABBOTT LABORATORIES URINE SCREEN 87514.094 - ORGANISM~;"
^DIE(189,"DR",1,2100,16)="55.032(032) MS-2 ABBOTT LABORATORIES URINE SCREEN 87514.094 - QUALITY CONTROL~;55.033(033) SCEPTOR BBL MICROBIOLOGY ORGANISM ID 87514.097 - ORGANISM~;55.034(034) SCEPTOR BBL MICROBIOLOGY ORGANISM ID 87514.097 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,17)="55.035(035) SCEPTOR BBL MICROBIOLOGY ORGANISM ID/MIC COMBO 87516.097 - ORGANISM~;55.036(036) SCEPTOR BBL MICROBIOLOGY ORGANISM ID/MIC COMBO 87516.097 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,18)="55.037(037) BLOOD CULTURE, AUTOMATED NOT LISTED ELSEWHERE 87512.001 - BOTTLE~;55.038(038) BLOOD CULTURE, AUTOMATED NOT LISTED ELSEWHERE 87512.001 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,19)="55.039(039) ORGANISM IDENTIFICATION, AUTOMATED NOT LISTED ELSEWHERE 87514.001 - ORGANISM~;55.04(040) ORGANISM IDENTIFICATION, AUTOMATED NOT LISTED ELSEWHERE 87514.001 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,20)="55.041(041) ORGANISM ID/MIC COMBO, AUTOMATED NOT LISTED ELSEWHERE 87516.001 - ORGANISM~;55.042(042) ORGANISM ID/MIC COMBO, AUTOMATED NOT LISTED ELSEWHERE 87516.001 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,21)="55.043(043) SENSITIVITY/MIC, AUTOMATED NOT LISTED ELSEWHERE 87518.001 - ORGANISM~;55.044(044) SENSITIVITY/MIC, AUTOMATED NOT LISTED ELSEWHERE 87518.001 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,22)="55.045(045) URINE SCREEN, AUTOMATED NOT LISTED ELSEWHERE 87520.001 - ORGANISM~;55.046(046) URINE SCREEN, AUTOMATED NOT LISTED ELSEWHERE 87520.001 - QUALITY CONTROL~;"
^DIE(189,"DR",1,2100,23)="55.047(047) YEAST ID, AUTOMATED NOT LISTED ELSEWHERE 87522.001 - ORGANISM~;55.048(048) YEAST ID, AUTOMATED NOT LISTED ELSEWHERE 87522.001 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(190,0)="LR AMS5 M,B,GM,SP H33^2900619.1318^^2100^^^2931005"
^DIE(190,"DIAB",1,0,2100,1)="002-5;""(002) ACCESSIONING OF A SPECIMEN FOR A BACTERIAL CULTURE 87530 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,2)="005-5;""(005) HEAT INACTIVATION (SERUM,FLUIDS, ETC) 87944 - SPECIMEN"""
^DIE(190,"DIAB",1,0,2100,3)="007-5;""(007) SPUTUM LIQUIFICATION (NOT TO BE USED FOR MYCOBACTERIAL STUDIES) 87945 - SPECIMEN"""
^DIE(190,"DIAB",1,0,2100,4)="009-5;""(009) TISSUE GRINDING 87946 - SPECIMEN"""
^DIE(190,"DIAB",1,0,2100,5)="012-5;""(012) PLANTING OF 1 PIECE OF MEDIA FOR A BACTERIAL CULTURE 87531 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,6)="014-5;""(014) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A BACTERIAL CULTURE 87540 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,7)="016-5;""(016) READING A BACTERIAL CULTURE-UP TO 2 READINGS (ONE ORGANISM ONLY) 87542 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,8)="018-5;""(018) READING A BACTERIAL CULTURE-UP TO 2 READINGS (2 OR MORE ORGANISMS) 87544 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,9)="020-5;""(020) READING A BACTERIAL CULTURE (ADDITIONAL READINGS) 87546 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,10)="022-5;""(022) READING A BACTERIAL CULTURE (INITIAL READING 2 OR MORE ORGANISMS REQUIRING MORE TIME 87548 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,11)="024-5;""(024) ACRIDINE ORANGE STAIN (INCLUDES PREPARATION STAINING AND READING OF 1 SMEAR 87700 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,12)="026-5;""(026) AGGLUTINATION SLIDE (SEROLOGIC AGGLUTINATION, E.G. SALMONELLA TYPING) 87702 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,13)="028-5;""(028) BIOCHEMICAL TEST, RAPID (E.G. CATALASE,OXIDASE,SLIDE COAGULASE,SPOT INDOLE,BILE SOLUBILITY) 87706 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,14)="029-5;""(029) CONVENTIONAL MICROBIOLOGY TUBE TEST (INCLUDES SETUP,ADDITION OF REAGENTS,READINGS AND RECORDING OF RESULTS) 87708 - INOC"""
^DIE(190,"DIAB",1,0,2100,15)="030-5;""(030) CONVENTIONAL MICROBIOLOGY TUBE TEST (INCLUDES SETUP,ADDITION OF REAGENTS,READINGS AND RECORDING OF RESULTS) 87708 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,16)="032-5;""(032) DARDFIELD EXAMINATION (E.G. TREPONEMA) 87710 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,17)="034-5;""(034) DIRECT FA (INCLUDES SMEAR PREPARATION FROM ISOLATE,STAINING AND INTERPREATION) 87712 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,18)="035-5;""(035) DIRECT FA SYVA-MICROTRAK DIRECT SPECIMEN TEST FOR CHLAMYDIA TRACHOMATIS (INCLUDES STAINING AND INTERPRETATION OF SMEAR 87711 - SMEAR"""
^DIE(190,"DIAB",1,0,2100,19)="036-5;""(036) DIRECT FA SYVA-MICROTRAK DIRECT SPECIMEN TEST FOR CHLAMYDIA TRACHOMATIS (INCLUDES STAINING AND INTERP. OF SMEAR 87711-QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,20)="037-5;""(037) GAS CHROMATOGRAPHY-ANAEROBES-FIRST INJECTION 87715 - INJECTION"""
^DIE(190,"DIAB",1,0,2100,21)="039-5;""(039) GAS CHROMATOGRAPHY-ANAEROBES SUBSEQUENT INJECTION 87716 - INJECTION"""
^DIE(190,"DIAB",1,0,2100,22)="041-5;""(041) GAS PAK OR BIOBAG (FOR USE OF AN 8 PLATE CONTAINING JAR OR EACH USE OF A BIOBAG) 87717 - JAR/BIOBAG"""
^DIE(190,"DIAB",1,0,2100,23)="043-5;""(043) GRAM STAIN DIRECT FROM SPECIMEN 87718 - SMEAR"""
^DIE(190,"DIAB",1,0,2100,24)="046-5;""(046) GRAM STAIN ORGANISM DESCRIPTION 87720 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,25)="049-5;""(049) SINGLE DISC FOR IDENTIFICATION (INCLUDES SETUP AND READING 87730 - DISC"""
^DIE(190,"DIAB",1,0,2100,26)="052-5;""(052) STREPTEX 87734 - QUALITY CONTROL"""
^DIE(190,"DIAB",1,0,2100,27)="055-5;""(055) XV STRIPS FOR HAEMOPHILUS (INCLUDES SETUP AND READING OF ALL 3 STRIPS) 87742 - ORGANISM"""
^DIE(190,"DIAB",1,0,2100,28)="057-5;""(057) RECORDING AND REPORTING OF A BACTERIAL CULTURE 87550 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,1)="003-5;""(003) EXTRACTION OF AN ORGANISM ANTIGEN 87942 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,2)="006-5;""(006) HEAT INACTIVATION (SERUM,FLUIDS, ETC) 87944 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,3)="008-5;""(008) SPUTUM LIQUIFICATION (NOT TO BE USED FOR MYCOBACTERIAL STUDIES) 87945 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,4)="010-5;""(010) TISSUE GRINDING 87946 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,5)="013-5;""(013) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A BACTERIAL CULTURE 87540 - PBT"""
^DIE(190,"DIAB",2,0,2100,6)="015-5;""(015) READING A BACTERIAL CULTURE-UP TO 2 READINGS (ONE ORGANISM ONLY) 87542 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,7)="017-5;""(017) READING A BACTERIAL CULTURE-UP TO 2 READINGS (2 OR MORE ORGANISMS) 87544 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,8)="019-5;""(019) READING A BACTERIAL CULTURE (ADDITIONAL READINGS) 87546 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,9)="021-5;""(021) READING A BACTERIAL CULTURE (INITIAL READING 2 OR MORE ORGANISMS REQUIRING MORE TIME 87548 - SPECIMEN"""
^DIE(190,"DIAB",2,0,2100,10)="023-5;""(023) ACRIDINE ORANGE STAIN (INCLUDES PREPARATION STAINING AND READING OF 1 SMEAR 87700 - SMEAR"""
^DIE(190,"DIAB",2,0,2100,11)="025-5;""(025) AGGLUTINATION SLIDE (SEROLOGIC AGGLUTINATION, E.G. SALMONELLA TYPING) 87702 - ANTISERA"""
^DIE(190,"DIAB",2,0,2100,12)="027-5;""(027) BIOCHEMICAL TEST, RAPID (E.G. CATALASE,OXIDASE,SLIDE COAGULASE,SPOT INDOLE,BILE SOLUBILITY) 87706 - TEST"""
^DIE(190,"DIAB",2,0,2100,15)="031-5;""(031) DARDFIELD EXAMINATION (E.G. TREPONEMA) 87710 - SMEAR"""
^DIE(190,"DIAB",2,0,2100,16)="033-5;""(033) DIRECT FA (INCLUDES SMEAR PREPARATION FROM ISOLATE,STAINING AND INTERPRETATION) 87712 - SMEAR"""
^DIE(190,"DIAB",2,0,2100,20)="038-5;""(038) GAS CHROMATOGRAPHY-ANAEROBES-FIRST INJECTION 87715 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,21)="040-5;""(040) GAS CHROMATOGRAPHY-ANAEROBES SUBSEQUENT INJECTION 87716 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,22)="042-5;""(042) GAS PAK OR BIOBAG (FOR USE OF AN 8 PLATE CONTAINING JAR OR EACH USE OF A BIOBAG) 87717 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,23)="044-5;""(044) GRAM STAIN DIRECT FROM SPECIMEN 87718 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,24)="047-5;""(047) PHADEBAC (FOR EACH BATTERY OF ANTIGENS) 87726 - ORGANISM"""
^DIE(190,"DIAB",2,0,2100,25)="050-5;""(050) SINGLE DISC FOR IDENTIFICATION (INCLUDES SETUP AND READING 87730 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,26)="053-5;""(053) SUBCULTURE-FROM A PLATE,BOTTLE, OR TUBE (PBT) 87736 - PBT"""
^DIE(190,"DIAB",2,0,2100,27)="056-5;""(056) XV STRIPS FOR HAEMOPHILIS (INCLUDES SETUP AND READING OF ALL 3 STRIPS) 87742 - QUALITY CONTROL"""
^DIE(190,"DIAB",2,0,2100,28)="058-5;""(058) RECORDING AND REPORTING OF A BACTERIAL CULTURE 87550 - QUALITY CONTROL"""
^DIE(190,"DIAB",3,0,2100,1)="004-5;""(004) EXTRACTION OF AN ORGANISM ANTIGEN 87942 - QUALITY CONTROL"""
^DIE(190,"DIAB",3,0,2100,4)="011-5;""(011) PLANTING OF 1 PIECE OF MEDIA FOR A BACTERIAL CULTURE 87531 - SPECIMEN"""
^DIE(190,"DIAB",3,0,2100,23)="045-5;""(045) GRAM STAIN ORGANISM DESCRIPTION 87720 - SMEAR"""
^DIE(190,"DIAB",3,0,2100,24)="048-5;""(048) PHADEBAC (FOR EACH BATTERY OF ANTIGENS) 87726 - QUALITY CONTROL"""
^DIE(190,"DIAB",3,0,2100,25)="051-5;""(051) STREPTEX 87734 - ORGANISM"""
^DIE(190,"DIAB",3,0,2100,26)="054-5;""(054) SUBCULTURE-FROM A PLATE,BOTTLE, OR TUBE (PBT) 87736 - QUALITY CONTROL"""
^DIE(190,"DIAB",9,0,2100,0)="001-5;""(001) ACCESSIONING OF A SPECIMEN FOR A BACTERIAL CULTURE 87530 - SPECIMEN"""
^DIE(190,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACCESSIONING OF A SPECIMEN FOR A BACTERIAL CULTURE 87530 - SPECIMEN~;"
^DIE(190,"DR",1,2100,1)="55.002(002) ACCESSIONING OF A SPECIMEN FOR A BACTERIAL CULTURE 87530 - QUALITY CONTROL~;55.003(003) EXTRACTION OF AN ORGANISM ANTIGEN 87942 - SPECIMEN~;55.004(004) EXTRACTION OF AN ORGANISM ANTIGEN 87942 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,2)="55.005(005) HEAT INACTIVATION (SERUM,FLUIDS, ETC) 87944 - SPECIMEN~;55.006(006) HEAT INACTIVATION (SERUM,FLUIDS, ETC) 87944 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,3)="55.007(007) SPUTUM LIQUIFICATION (NOT TO BE USED FOR MYCOBACTERIAL STUDIES) 87945 - SPECIMEN~;55.008(008) SPUTUM LIQUIFICATION (NOT TO BE USED FOR MYCOBACTERIAL STUDIES) 87945 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,4)="55.009(009) TISSUE GRINDING 87946 - SPECIMEN~;55.01(010) TISSUE GRINDING 87946 - QUALITY CONTROL~;55.011(011) PLANTING OF 1 PIECE OF MEDIA FOR A BACTERIAL CULTURE 87531 - SPECIMEN~;"
^DIE(190,"DR",1,2100,5)="55.012(012) PLANTING OF 1 PIECE OF MEDIA FOR A BACTERIAL CULTURE 87531 - QUALITY CONTROL~;55.013(013) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A BACTERIAL CULTURE 87540 - PBT~;"
^DIE(190,"DR",1,2100,6)="55.014(014) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A BACTERIAL CULTURE 87540 - QUALITY CONTROL~;55.015(015) READING A BACTERIAL CULTURE-UP TO 2 READINGS (ONE ORGANISM ONLY) 87542 - SPECIMEN~;"
^DIE(190,"DR",1,2100,7)="55.016(016) READING A BACTERIAL CULTURE-UP TO 2 READINGS (ONE ORGANISM ONLY) 87542 - QUALITY CONTROL~;55.017(017) READING A BACTERIAL CULTURE-UP TO 2 READINGS (2 OR MORE ORGANISMS) 87544 - SPECIMEN~;"
^DIE(190,"DR",1,2100,8)="55.018(018) READING A BACTERIAL CULTURE-UP TO 2 READINGS (2 OR MORE ORGANISMS) 87544 - QUALITY CONTROL~;55.019(019) READING A BACTERIAL CULTURE (ADDITIONAL READINGS) 87546 - SPECIMEN~;"
^DIE(190,"DR",1,2100,9)="55.02(020) READING A BACTERIAL CULTURE (ADDITIONAL READINGS) 87546 - QUALITY CONTROL~;55.021(021) READING A BACTERIAL CULTURE (INITIAL READING 2 OR MORE ORGANISMS REQUIRING MORE TIME 87548 - SPECIMEN~;"
^DIE(190,"DR",1,2100,10)="55.022(022) READING A BACTERIAL CULTURE (INITIAL READING 2 OR MORE ORGANISMS REQUIRING MORE TIME 87548 - QUALITY CONTROL~;55.023(023) ACRIDINE ORANGE STAIN (INCLUDES PREPARATION STAINING AND READING OF 1 SMEAR 87700 - SMEAR~;"
^DIE(190,"DR",1,2100,11)="55.024(024) ACRIDINE ORANGE STAIN (INCLUDES PREPARATION STAINING AND READING OF 1 SMEAR 87700 - QUALITY CONTROL~;55.025(025) AGGLUTINATION SLIDE (SEROLOGIC AGGLUTINATION, E.G. SALMONELLA TYPING) 87702 - ANTISERA~;"
^DIE(190,"DR",1,2100,12)="55.026(026) AGGLUTINATION SLIDE (SEROLOGIC AGGLUTINATION, E.G. SALMONELLA TYPING) 87702 - QUALITY CONTROL~;55.027(027) BIOCHEMICAL TEST, RAPID (E.G. CATALASE,OXIDASE,SLIDE COAGULASE,SPOT INDOLE,BILE SOLUBILITY) 87706 - TEST~;"
^DIE(190,"DR",1,2100,13)="55.028(028) BIOCHEMICAL TEST, RAPID (E.G. CATALASE,OXIDASE,SLIDE COAGULASE,SPOT INDOLE,BILE SOLUBILITY) 87706 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,14)="55.029(029) CONVENTIONAL MICROBIOLOGY TUBE TEST (INCLUDES SETUP,ADDITION OF REAGENTS,READINGS AND RECORDING OF RESULTS) 87708 - INOC~;"
^DIE(190,"DR",1,2100,15)="55.03(030) CONVENTIONAL MICROBIOLOGY TUBE TEST (INCLUDES SETUP,ADDITION OF REAGENTS,READINGS AND RECORDING OF RESULTS) 87708 - QUALITY CONTROL~;55.031(031) DARDFIELD EXAMINATION (E.G. TREPONEMA) 87710 - SMEAR~;"
^DIE(190,"DR",1,2100,16)="55.032(032) DARDFIELD EXAMINATION (E.G. TREPONEMA) 87710 - QUALITY CONTROL~;55.033(033) DIRECT FA (INCLUDES SMEAR PREPARATION FROM ISOLATE,STAINING AND INTERPRETATION) 87712 - SMEAR~;"
^DIE(190,"DR",1,2100,17)="55.034(034) DIRECT FA (INCLUDES SMEAR PREPARATION FROM ISOLATE,STAINING AND INTERPREATION) 87712 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,18)="55.035(035) DIRECT FA SYVA-MICROTRAK DIRECT SPECIMEN TEST FOR CHLAMYDIA TRACHOMATIS (INCLUDES STAINING AND INTERPRETATION OF SMEAR 87711 - SMEAR~;"
^DIE(190,"DR",1,2100,19)="55.036(036) DIRECT FA SYVA-MICROTRAK DIRECT SPECIMEN TEST FOR CHLAMYDIA TRACHOMATIS (INCLUDES STAINING AND INTERP. OF SMEAR 87711-QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,20)="55.037(037) GAS CHROMATOGRAPHY-ANAEROBES-FIRST INJECTION 87715 - INJECTION~;55.038(038) GAS CHROMATOGRAPHY-ANAEROBES-FIRST INJECTION 87715 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,21)="55.039(039) GAS CHROMATOGRAPHY-ANAEROBES SUBSEQUENT INJECTION 87716 - INJECTION~;55.04(040) GAS CHROMATOGRAPHY-ANAEROBES SUBSEQUENT INJECTION 87716 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,22)="55.041(041) GAS PAK OR BIOBAG (FOR USE OF AN 8 PLATE CONTAINING JAR OR EACH USE OF A BIOBAG) 87717 - JAR/BIOBAG~;55.042(042) GAS PAK OR BIOBAG (FOR USE OF AN 8 PLATE CONTAINING JAR OR EACH USE OF A BIOBAG) 87717 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,23)="55.043(043) GRAM STAIN DIRECT FROM SPECIMEN 87718 - SMEAR~;55.044(044) GRAM STAIN DIRECT FROM SPECIMEN 87718 - QUALITY CONTROL~;55.045(045) GRAM STAIN ORGANISM DESCRIPTION 87720 - SMEAR~;"
^DIE(190,"DR",1,2100,24)="55.046(046) GRAM STAIN ORGANISM DESCRIPTION 87720 - QUALITY CONTROL~;55.047(047) PHADEBAC (FOR EACH BATTERY OF ANTIGENS) 87726 - ORGANISM~;55.048(048) PHADEBAC (FOR EACH BATTERY OF ANTIGENS) 87726 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,25)="55.049(049) SINGLE DISC FOR IDENTIFICATION (INCLUDES SETUP AND READING 87730 - DISC~;55.05(050) SINGLE DISC FOR IDENTIFICATION (INCLUDES SETUP AND READING 87730 - QUALITY CONTROL~;55.051(051) STREPTEX 87734 - ORGANISM~;"
^DIE(190,"DR",1,2100,26)="55.052(052) STREPTEX 87734 - QUALITY CONTROL~;55.053(053) SUBCULTURE-FROM A PLATE,BOTTLE, OR TUBE (PBT) 87736 - PBT~;55.054(054) SUBCULTURE-FROM A PLATE,BOTTLE, OR TUBE (PBT) 87736 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,27)="55.055(055) XV STRIPS FOR HAEMOPHILUS (INCLUDES SETUP AND READING OF ALL 3 STRIPS) 87742 - ORGANISM~;55.056(056) XV STRIPS FOR HAEMOPHILIS (INCLUDES SETUP AND READING OF ALL 3 STRIPS) 87742 - QUALITY CONTROL~;"
^DIE(190,"DR",1,2100,28)="55.057(057) RECORDING AND REPORTING OF A BACTERIAL CULTURE 87550 - SPECIMEN~;55.058(058) RECORDING AND REPORTING OF A BACTERIAL CULTURE 87550 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(191,0)="LR AMS5 MICRO BLOOD CULT H34^2900327.1058^^2100^^^2931005"
^DIE(191,"DIAB",1,0,2100,1)="003-5;""(003) BLOOD CULTURE CONVENTIONAL SYSTEM (INCLUDES CLERICAL FUNCTION) 87511.055 - BOTTLE"""
^DIE(191,"DIAB",1,0,2100,2)="005-5;""(005) BLOOD CULTURE ISOLATOR/DU PONT (INCLUDES CLERICAL FUNCTION) 87511.056 - TUBE"""
^DIE(191,"DIAB",1,0,2100,3)="007-5;""(007) BLOOD CULTURE ISOSTAT ISOLATOR 87511.058 - TUBE"""
^DIE(191,"DIAB",1,0,2100,4)="009-5;""(009) BLOOD CULTURE SEPTI CHEK/ROCHE DIAGNOSTICS (INCLUDES CLERICAL FUNCTION 87511.057 - BOTTLE"""
^DIE(191,"DIAB",1,0,2100,5)="011-5;""(011) GRAM STAIN BLOOD CULTURE BOTTLE 87513 - SMEAR"""
^DIE(191,"DIAB",1,0,2100,6)="014-5;""(014) INOCULATION OF A BLOOD CULTURE BOTTLE FROM A VACUTAINER TUBE 87600 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,1)="004-5;""(004) BLOOD CULTURE CONVENTIONAL SYSTEM (INCLUDES CLERICAL FUNCTION) 87511.055 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,2)="006-5;""(006) BLOOD CULTURE ISOLATOR/DU PONT (INCLUDES CLERICAL FUNCTION) 87511.056 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,3)="008-5;""(008) BLOOD CULTURE ISOSTAT ISOLATOR 87511.058 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,4)="010-5;""(010) BLOOD CULTURE SEPTI CHEK/ROCHE DIAGNOSTICS (INCLUDES CLERICAL FUNCTION 87511.057 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,5)="012-5;""(012) GRAM STAIN BLOOD CULTURE BOTTLE 87513 - QUALITY CONTROL"""
^DIE(191,"DIAB",2,0,2100,6)="015-5;""(015) SUBCULTURE BLOOD CULTURE BOTTLE 87604 - SUBCULTURE"""
^DIE(191,"DIAB",3,0,2100,5)="013-5;""(013) INOCULATION OF A BLOOD CULTURE BOTTLE FROM A VACUTAINER TUBE 87600 - BOTTLE"""
^DIE(191,"DIAB",3,0,2100,6)="016-5;""(016) SUBCULTURE BLOOD CULTURE BOTTLE 87604 - QUALITY CONTROL"""
^DIE(191,"DIAB",9,0,2100,0)="001-5;""(001) BLOOD CULTURE MANUAL 87511 - BOTTLE"""
^DIE(191,"DIAB",10,0,2100,0)="002-5;""(002) BLOOD CULTURE MANUAL 87511 - QUALITY CONTROL"""
^DIE(191,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLOOD CULTURE MANUAL 87511 - BOTTLE~;55.002(002) BLOOD CULTURE MANUAL 87511 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,1)="55.003(003) BLOOD CULTURE CONVENTIONAL SYSTEM (INCLUDES CLERICAL FUNCTION) 87511.055 - BOTTLE~;55.004(004) BLOOD CULTURE CONVENTIONAL SYSTEM (INCLUDES CLERICAL FUNCTION) 87511.055 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,2)="55.005(005) BLOOD CULTURE ISOLATOR/DU PONT (INCLUDES CLERICAL FUNCTION) 87511.056 - TUBE~;55.006(006) BLOOD CULTURE ISOLATOR/DU PONT (INCLUDES CLERICAL FUNCTION) 87511.056 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,3)="55.007(007) BLOOD CULTURE ISOSTAT ISOLATOR 87511.058 - TUBE~;55.008(008) BLOOD CULTURE ISOSTAT ISOLATOR 87511.058 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,4)="55.009(009) BLOOD CULTURE SEPTI CHEK/ROCHE DIAGNOSTICS (INCLUDES CLERICAL FUNCTION 87511.057 - BOTTLE~;55.01(010) BLOOD CULTURE SEPTI CHEK/ROCHE DIAGNOSTICS (INCLUDES CLERICAL FUNCTION 87511.057 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,5)="55.011(011) GRAM STAIN BLOOD CULTURE BOTTLE 87513 - SMEAR~;55.012(012) GRAM STAIN BLOOD CULTURE BOTTLE 87513 - QUALITY CONTROL~;55.013(013) INOCULATION OF A BLOOD CULTURE BOTTLE FROM A VACUTAINER TUBE 87600 - BOTTLE~;"
^DIE(191,"DR",1,2100,6)="55.014(014) INOCULATION OF A BLOOD CULTURE BOTTLE FROM A VACUTAINER TUBE 87600 - QUALITY CONTROL~;55.015(015) SUBCULTURE BLOOD CULTURE BOTTLE 87604 - SUBCULTURE~;55.016(016) SUBCULTURE BLOOD CULTURE BOTTLE 87604 - QUALITY CONTROL~;"
^DIE(191,"DR",1,2100,7)="99///^S X=""$"";"
^DIE(192,0)="LR AMS5 HISTOLOGY H36^2900327.1112^^2100^^^2931005"
^DIE(192,"DIAB",1,0,2100,1)="003-5;""(003) DECALCIFICATION, TISSUE 88420 - BLOCK"""
^DIE(192,"DIAB",1,0,2100,2)="006-5;""(006) FROZEN SECTIONS - RUSH DIAGNOSIS 88350 - SPECIMEN"""
^DIE(192,"DIAB",1,0,2100,3)="009-5;""(009) SECTIONS - AUTOPSY - AUTOPSY COMPLETE 88050 - BLOCK"""
^DIE(192,"DIAB",1,0,2100,4)="012-5;""(012) SECTIONS - CYTOLOGY CELL BLOCK - ADDL CUT ONLY 88165 - SLIDE"""
^DIE(192,"DIAB",1,0,2100,5)="014-5;""(014) SECTIONS - SURGICAL - SURGICAL PATH. ADDL SLIDE 88370 - SLIDE"""
^DIE(192,"DIAB",1,0,2100,6)="017-5;""(017) SECTIONS - SURGICALS - TECHNICAL ASSISTANT 88500 - SPECIMEN"""
^DIE(192,"DIAB",2,0,2100,1)="004-5;""(004) FROZEN SECTIONS - ADDL. SEC. RUSH DIAGNOSIS 88355 - SLIDE"""
^DIE(192,"DIAB",2,0,2100,2)="007-5;""(007) SECTIONS - AUTOPSY - AUTOPSY ADL CUT ONLY 88060 - SLIDE"""
^DIE(192,"DIAB",2,0,2100,3)="010-5;""(010) AUTOPSY ATTENDENT 88040 - CASE"""
^DIE(192,"DIAB",2,0,2100,4)="013-5;""(013) SECTIONS - CYTOLOGY CELL BLOCK - CYTOLOGY CELL BLOCK COMPLETE 88410 - BLOCK"""
^DIE(192,"DIAB",2,0,2100,5)="015-5;""(015) SECTIONS - SURGICAL - SURGICAL PATH. ADDL CUT ONLY 88365 - SLIDE"""
^DIE(192,"DIAB",3,0,2100,1)="005-5;""(005) FROZEN SECTIONS - ADDL. SECS (CUTTING ONLY) 88360 - SLIDE"""
^DIE(192,"DIAB",3,0,2100,2)="008-5;""(008) SECTIONS - AUTOPSY - AUTOPSY ADDL SLIDE 88055 - SLIDE"""
^DIE(192,"DIAB",3,0,2100,3)="011-5;""(011) SECTIONS - CYTOLOGY CELL BLOCK - ADDL SLIDE 88160 - SLIDE"""
^DIE(192,"DIAB",3,0,2100,5)="016-5;""(016) SECTIONS - SURGICALS - SURGICAL PATH COMPLETE 88345 - BLOCK"""
^DIE(192,"DIAB",9,0,2100,0)="001-5;""(001) CLERICAL FUNCTIONS - AUTOPSY 88045 - CASE"""
^DIE(192,"DIAB",10,0,2100,0)="002-5;""(002) CLERICAL FUNCTIONS - SURGICAL PATH 88340 - SPECIMEN"""
^DIE(192,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) CLERICAL FUNCTIONS - AUTOPSY 88045 - CASE~;55.002(002) CLERICAL FUNCTIONS - SURGICAL PATH 88340 - SPECIMEN~;"
^DIE(192,"DR",1,2100,1)="55.003(003) DECALCIFICATION, TISSUE 88420 - BLOCK~;55.004(004) FROZEN SECTIONS - ADDL. SEC. RUSH DIAGNOSIS 88355 - SLIDE~;55.005(005) FROZEN SECTIONS - ADDL. SECS (CUTTING ONLY) 88360 - SLIDE~;"
^DIE(192,"DR",1,2100,2)="55.006(006) FROZEN SECTIONS - RUSH DIAGNOSIS 88350 - SPECIMEN~;55.007(007) SECTIONS - AUTOPSY - AUTOPSY ADL CUT ONLY 88060 - SLIDE~;55.008(008) SECTIONS - AUTOPSY - AUTOPSY ADDL SLIDE 88055 - SLIDE~;"
^DIE(192,"DR",1,2100,3)="55.009(009) SECTIONS - AUTOPSY - AUTOPSY COMPLETE 88050 - BLOCK~;55.01(010) AUTOPSY ATTENDENT 88040 - CASE~;55.011(011) SECTIONS - CYTOLOGY CELL BLOCK - ADDL SLIDE 88160 - SLIDE~;"
^DIE(192,"DR",1,2100,4)="55.012(012) SECTIONS - CYTOLOGY CELL BLOCK - ADDL CUT ONLY 88165 - SLIDE~;55.013(013) SECTIONS - CYTOLOGY CELL BLOCK - CYTOLOGY CELL BLOCK COMPLETE 88410 - BLOCK~;"
^DIE(192,"DR",1,2100,5)="55.014(014) SECTIONS - SURGICAL - SURGICAL PATH. ADDL SLIDE 88370 - SLIDE~;55.015(015) SECTIONS - SURGICAL - SURGICAL PATH. ADDL CUT ONLY 88365 - SLIDE~;55.016(016) SECTIONS - SURGICALS - SURGICAL PATH COMPLETE 88345 - BLOCK~;"
^DIE(192,"DR",1,2100,6)="55.017(017) SECTIONS - SURGICALS - TECHNICAL ASSISTANT 88500 - SPECIMEN~;99///^S X=""$"";"
^DIE(193,0)="LR AMS5 MISCELLANEOUS H42^2900327.1116^^2100^^^2931007"
^DIE(193,"DIAB",1,0,2100,1)="003-5;""(003) SEMEN ANALYSIS (COUNT,MOTILITY,MORPHOLOGY) 89320 - SPECIMEN"""
^DIE(193,"DIAB",9,0,2100,0)="001-5;""(001) ECG (TECHNICAL & CLERICAL) 93005 - PATIENT"""
^DIE(193,"DIAB",10,0,2100,0)="002-5;""(002) EEG (TECHNICAL & CLERICAL) 95820 - PATIENT"""
^DIE(193,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ECG (TECHNICAL & CLERICAL) 93005 - PATIENT~;55.002(002) EEG (TECHNICAL & CLERICAL) 95820 - PATIENT~;"
^DIE(193,"DR",1,2100,1)="55.003(003) SEMEN ANALYSIS (COUNT,MOTILITY,MORPHOLOGY) 89320 - SPECIMEN~;99///^S X=""$"";"
^DIE(194,0)="LR AMS5 SPEC PROC & DISP H44^2900618.1524^^2100^^^2931005"
^DIE(194,"DIAB",1,0,2100,1)="002-5;""(002) CAPILLARY PUNCTURE (FINGER, EAR ETC.) 89335 - PATIENT"""
^DIE(194,"DIAB",1,0,2100,2)="005-5;""(005) MICROBIOLOGICAL SPECIMEN COLLECTION (SWABS FOR CULTURE) 89338 - PATIENT"""
^DIE(194,"DIAB",1,0,2100,3)="008-5;""(008) VENIPUNCTURE (COLLECTION BY LAB PERSONNEL) 89342 - PATIENT"""
^DIE(194,"DIAB",2,0,2100,1)="003-5;""(003) DRAINAGE (COLLECTION BY LAB PERSONNEL) 89344 - PATIENT"""
^DIE(194,"DIAB",2,0,2100,2)="006-5;""(006) SPECIMEN DISPATCH (TO ANOTHER LAB) 89348 - PATIENT"""
^DIE(194,"DIAB",3,0,2100,1)="004-5;""(004) GASTRIC CONTENTS (INTUBATION,ASPIRATION) 89130 - SPECIMEN"""
^DIE(194,"DIAB",3,0,2100,2)="007-5;""(007) URINE (COLLECTION BY LAB PERSONNEL) 89340 - SPECIMEN"""
^DIE(194,"DIAB",9,0,2100,0)="001-5;""(001) ARTERIAL PUNCTURE (COLL. BY LAB PERSONNEL) 89350 - PATIENT"""
^DIE(194,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ARTERIAL PUNCTURE (COLL. BY LAB PERSONNEL) 89350 - PATIENT~;"
^DIE(194,"DR",1,2100,1)="55.002(002) CAPILLARY PUNCTURE (FINGER, EAR ETC.) 89335 - PATIENT~;55.003(003) DRAINAGE (COLLECTION BY LAB PERSONNEL) 89344 - PATIENT~;55.004(004) GASTRIC CONTENTS (INTUBATION,ASPIRATION) 89130 - SPECIMEN~;"
^DIE(194,"DR",1,2100,2)="55.005(005) MICROBIOLOGICAL SPECIMEN COLLECTION (SWABS FOR CULTURE) 89338 - PATIENT~;55.006(006) SPECIMEN DISPATCH (TO ANOTHER LAB) 89348 - PATIENT~;55.007(007) URINE (COLLECTION BY LAB PERSONNEL) 89340 - SPECIMEN~;"
^DIE(194,"DR",1,2100,3)="55.008(008) VENIPUNCTURE (COLLECTION BY LAB PERSONNEL) 89342 - PATIENT~;99///^S X=""$"";"
^DIE(195,0)="LR AMS5 CHEM MAN & AUTO H46^2900917.2204^^2100^0^^2931005"
^DIE(195,"DIAB",1,0,2100,1)="003-5;""(003) ACETONE, BLOOD 82010 - STANDARD"""
^DIE(195,"DIAB",1,0,2100,2)="007-5;""(007) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - TEST"""
^DIE(195,"DIAB",1,0,2100,3)="011-5;""(011) ALDOLASE 82090 - QUALITY CONTROL"""
^DIE(195,"DIAB",1,0,2100,4)="015-5;""(015) ALDOSTERONE,BLOOD/RIA 83110 - STANDARD"""
^DIE(195,"DIAB",1,0,2100,5)="019-5;""(019) AMINO ACID CHROMATOGRAPHY 82130 - TEST"""
^DIE(195,"DIAB",1,0,2100,6)="023-5;""(023) AMINO ACIDS, TOTAL URINE 82105 - QUALITY CONTROL"""
^DIE(195,"DIAB",1,0,2100,7)="026-5;""(026) AMINO LEVULINIC ACID, DELTA, URINE 82630 - QUALITY CONTROL"""
^DIE(195,"DIAB",1,0,2100,8)="030-5;""(030) AMMONIA, BLOOD 82140 - STANDARD"""
^DIE(195,"DIAB",1,0,2100,9)="034-5;""(034) ASCORBIC ACID 82180 - TEST"""
^DIE(195,"DIAB",2,0,2100,1)="004-5;""(004) ACID,FREE QNT,DUOD,GASTRIC 82925 - TEST"""
^DIE(195,"DIAB",2,0,2100,2)="008-5;""(008) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - QUALITY CONTROL"""
^DIE(195,"DIAB",2,0,2100,3)="012-5;""(012) ALDOLASE 82090 - STANDARD"""
^DIE(195,"DIAB",2,0,2100,4)="016-5;""(016) ALDOSTERONE,URINE/RIA 83115 - TEST"""
^DIE(195,"DIAB",2,0,2100,5)="020-5;""(020) AMINO ACID CHROMATOGRAPHY 82130 - QUALITY CONTROL"""
^DIE(195,"DIAB",2,0,2100,6)="024-5;""(024) AMINO ACIDS, TOTAL URINE 82105 - STANDARD"""
^DIE(195,"DIAB",2,0,2100,7)="027-5;""(027) AMINO LEVULINIC ACID, DELTA, URINE 82630 - STANDARD"""
^DIE(195,"DIAB",2,0,2100,8)="031-5;""(031) ANDROSTENEDIONE/RIA 82160 - TEST"""
^DIE(195,"DIAB",2,0,2100,9)="035-5;""(035) ASCORBIC ACID 82180 - QUALITY CONTROL"""
^DIE(195,"DIAB",3,0,2100,1)="005-5;""(005) ACID,FREE QNT,DUOD,GASTRIC 82925 - QUALITY CONTROL"""
^DIE(195,"DIAB",3,0,2100,2)="009-5;""(009) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - STANDARD"""
^DIE(195,"DIAB",3,0,2100,3)="013-5;""(013) ALDOSTERONE,BLOOD/RIA 83110 - TEST"""
^DIE(195,"DIAB",3,0,2100,4)="017-5;""(017) ALDOSTERONE,URINE/RIA 83115 - QUALITY CONTROL"""
^DIE(195,"DIAB",3,0,2100,5)="021-5;""(021) AMINO ACID CHROMATOGRAPHY 82130 - STANDARD"""
^DIE(195,"DIAB",3,0,2100,6)="025-5;""(025) AMINO LEVULINIC ACID, DELTA, URINE 82630 - TEST"""
^DIE(195,"DIAB",3,0,2100,7)="028-5;""(028) AMMONIA, BLOOD 82140 - TEST"""
^DIE(195,"DIAB",3,0,2100,8)="032-5;""(032) ANDROSTENEDIONE/RIA 82160 - QUALITY CONTROL"""
^DIE(195,"DIAB",3,0,2100,9)="036-5;""(036) ASCORBIC ACID 82180 - STANDARD"""
^DIE(195,"DIAB",4,0,2100,1)="006-5;""(006) ACID,FREE QNT,DUOD,GASTRIC 82925 - STANDARD"""
^DIE(195,"DIAB",4,0,2100,2)="010-5;""(010) ALDOLASE 82090 - TEST"""
^DIE(195,"DIAB",4,0,2100,3)="014-5;""(014) ALDOSTERONE,BLOOD/RIA 83110 - QUALITY CONTROL"""
^DIE(195,"DIAB",4,0,2100,4)="018-5;""(018) ALDOSTERONE,URINE/RIA 83115 - STANDARD"""
^DIE(195,"DIAB",4,0,2100,5)="022-5;""(022) AMINO ACIDS, TOTAL URINE 82105 - TEST"""
^DIE(195,"DIAB",4,0,2100,7)="029-5;""(029) AMMONIA, BLOOD 82140 - QUALITY CONTROL"""
^DIE(195,"DIAB",4,0,2100,8)="033-5;""(033) ANDROSTENEDIONE/RIA 82160 - STANDARD"""
^DIE(195,"DIAB",9,0,2100,0)="001-5;""(001) ACETONE, BLOOD 82010 - TEST"""
^DIE(195,"DIAB",10,0,2100,0)="002-5;""(002) ACETONE, BLOOD 82010 - QUALITY CONTROL"""
^DIE(195,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACETONE, BLOOD 82010 - TEST~;55.002(002) ACETONE, BLOOD 82010 - QUALITY CONTROL~;"
^DIE(195,"DR",1,2100,1)="55.003(003) ACETONE, BLOOD 82010 - STANDARD~;55.004(004) ACID,FREE QNT,DUOD,GASTRIC 82925 - TEST~;55.005(005) ACID,FREE QNT,DUOD,GASTRIC 82925 - QUALITY CONTROL~;55.006(006) ACID,FREE QNT,DUOD,GASTRIC 82925 - STANDARD~;"
^DIE(195,"DR",1,2100,2)="55.007(007) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - TEST~;55.008(008) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - QUALITY CONTROL~;55.009(009) ACID,TOTAL QNT,DUOD,GASTRIC 82930 - STANDARD~;55.01(010) ALDOLASE 82090 - TEST~;"
^DIE(195,"DR",1,2100,3)="55.011(011) ALDOLASE 82090 - QUALITY CONTROL~;55.012(012) ALDOLASE 82090 - STANDARD~;55.013(013) ALDOSTERONE,BLOOD/RIA 83110 - TEST~;55.014(014) ALDOSTERONE,BLOOD/RIA 83110 - QUALITY CONTROL~;"
^DIE(195,"DR",1,2100,4)="55.015(015) ALDOSTERONE,BLOOD/RIA 83110 - STANDARD~;55.016(016) ALDOSTERONE,URINE/RIA 83115 - TEST~;55.017(017) ALDOSTERONE,URINE/RIA 83115 - QUALITY CONTROL~;55.018(018) ALDOSTERONE,URINE/RIA 83115 - STANDARD~;"
^DIE(195,"DR",1,2100,5)="55.019(019) AMINO ACID CHROMATOGRAPHY 82130 - TEST~;55.02(020) AMINO ACID CHROMATOGRAPHY 82130 - QUALITY CONTROL~;55.021(021) AMINO ACID CHROMATOGRAPHY 82130 - STANDARD~;55.022(022) AMINO ACIDS, TOTAL URINE 82105 - TEST~;"
^DIE(195,"DR",1,2100,6)="55.023(023) AMINO ACIDS, TOTAL URINE 82105 - QUALITY CONTROL~;55.024(024) AMINO ACIDS, TOTAL URINE 82105 - STANDARD~;55.025(025) AMINO LEVULINIC ACID, DELTA, URINE 82630 - TEST~;"
^DIE(195,"DR",1,2100,7)="55.026(026) AMINO LEVULINIC ACID, DELTA, URINE 82630 - QUALITY CONTROL~;55.027(027) AMINO LEVULINIC ACID, DELTA, URINE 82630 - STANDARD~;55.028(028) AMMONIA, BLOOD 82140 - TEST~;55.029(029) AMMONIA, BLOOD 82140 - QUALITY CONTROL~;"
^DIE(195,"DR",1,2100,8)="55.03(030) AMMONIA, BLOOD 82140 - STANDARD~;55.031(031) ANDROSTENEDIONE/RIA 82160 - TEST~;55.032(032) ANDROSTENEDIONE/RIA 82160 - QUALITY CONTROL~;55.033(033) ANDROSTENEDIONE/RIA 82160 - STANDARD~;"
^DIE(195,"DR",1,2100,9)="55.034(034) ASCORBIC ACID 82180 - TEST~;55.035(035) ASCORBIC ACID 82180 - QUALITY CONTROL~;55.036(036) ASCORBIC ACID 82180 - STANDARD~;99///^S X=""$"";"
^DIE(196,0)="LR AMS5 DRUG AND TOXIC H47^2900618.1537^^2100^^^2931005"
^DIE(196,"DIAB",1,0,2100,1)="002-5;""(002) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,2)="005-5;""(005) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,3)="008-5;""(008) ALCOHOL/SERUM/QUANT 84635 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,4)="011-5;""(011) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,5)="014-5;""(014) ALCOHOL/SERUM/QUANT/GC 81094 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,6)="018-5;""(018) ALCOHOL/ETHYL/URINE/GC 81096 - STANDARD"""
^DIE(196,"DIAB",1,0,2100,7)="022-5;""(022) AMIKACIN/SERUM/QUANT/FIA 81106 - SUBSTANCE"""
^DIE(196,"DIAB",1,0,2100,8)="026-5;""(026) AMIKACIN/SERUM/QUANT/RIA 84643 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,9)="029-5;""(029) AMPHETAMINE/URINE/QUAL/EMIT 84651 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,10)="032-5;""(032) AMPHETAMINE/URINE/QUAL/GC 84630 - QUALITY CONTROL"""
^DIE(196,"DIAB",1,0,2100,11)="035-5;""(035) AMPHETAMINE/URINE/QUANT/RIA 84654 - QUALITY CONTROL"""
^DIE(196,"DIAB",2,0,2100,1)="003-5;""(003) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,2)="006-5;""(006) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,3)="009-5;""(009) ALCOHOL/SERUM/QUANT 84635 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,4)="012-5;""(012) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,5)="015-5;""(015) ALCOHOL/SERUM/QUANT/GC 81094 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,6)="019-5;""(019) AMIKACIN/SERUM/QUANT/EMIT 81100 - SUBSTANCE"""
^DIE(196,"DIAB",2,0,2100,7)="023-5;""(023) AMIKACIN/SERUM/QUANT/FIA 81106 - QUALITY CONTROL"""
^DIE(196,"DIAB",2,0,2100,8)="027-5;""(027) AMIKACIN/SERUM/QUANT/RIA 84643 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,9)="030-5;""(030) AMPHETAMINE/URINE/QUAL/EMIT 84651 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,10)="033-5;""(033) AMPHETAMINE/URINE/QUAL/GC 84630 - STANDARD"""
^DIE(196,"DIAB",2,0,2100,11)="036-5;""(036) AMPHETAMINE/URINE/QUANT/RIA 84654 - STANDARD"""
^DIE(196,"DIAB",3,0,2100,1)="004-5;""(004) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - SUBSTANCE"""
^DIE(196,"DIAB",3,0,2100,2)="007-5;""(007) ALCOHOL/SERUM/QUANT 84635 - SUBSTANCE"""
^DIE(196,"DIAB",3,0,2100,3)="010-5;""(010) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - SUBSTANCE"""
^DIE(196,"DIAB",3,0,2100,4)="013-5;""(013) ALCOHOL/SERUM/QUANT/GC 81094 - INJECTION"""
^DIE(196,"DIAB",3,0,2100,5)="016-5;""(016) ALCOHOL/ETHYL/URINE/GC 81096 - INJECTION"""
^DIE(196,"DIAB",3,0,2100,6)="020-5;""(020) AMIKACIN/SERUM/QUANT/EMIT 81100 - QUALITY CONTROL"""
^DIE(196,"DIAB",3,0,2100,7)="024-5;""(024) AMIKACIN/SERUM/QUANT/FIA 81106 - STANDARD"""
^DIE(196,"DIAB",3,0,2100,8)="028-5;""(028) AMPHETAMINE/URINE/QUAL/EMIT 84651 - SUBSTANCE"""
^DIE(196,"DIAB",3,0,2100,9)="031-5;""(031) AMPHETAMINE/URINE/QUAL/GC 84630 - INJECTION"""
^DIE(196,"DIAB",3,0,2100,10)="034-5;""(034) AMPHETAMINE/URINE/QUANT/RIA 84654 - SUBSTANCE"""
^DIE(196,"DIAB",4,0,2100,5)="017-5;""(017) ALCOHOL/ETHYL/URINE/GC 81096 - QUALITY CONTROL"""
^DIE(196,"DIAB",4,0,2100,6)="021-5;""(021) AMIKACIN/SERUM/QUANT/EMIT 81100 - STANDARD"""
^DIE(196,"DIAB",4,0,2100,7)="025-5;""(025) AMIKACIN/SERUM/QUANT/RIA 84643 - SUBSTANCE"""
^DIE(196,"DIAB",9,0,2100,0)="001-5;""(001) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - INJECTION"""
^DIE(196,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - INJECTION~;"
^DIE(196,"DR",1,2100,1)="55.002(002) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - QUALITY CONTROL~;55.003(003) ACETAMINOPHEN/SERUM/QUANT/HPLC 81067 - STANDARD~;55.004(004) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,2)="55.005(005) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - QUALITY CONTROL~;55.006(006) ACETAMINOPHEN/SERUM/QUANT/VIS 84634 - STANDARD~;55.007(007) ALCOHOL/SERUM/QUANT 84635 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,3)="55.008(008) ALCOHOL/SERUM/QUANT 84635 - QUALITY CONTROL~;55.009(009) ALCOHOL/SERUM/QUANT 84635 - STANDARD~;55.01(010) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,4)="55.011(011) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - QUALITY CONTROL~;55.012(012) ALCOHOL/ETHYL/SERUM/QUANT/ENZ 81090 - STANDARD~;55.013(013) ALCOHOL/SERUM/QUANT/GC 81094 - INJECTION~;"
^DIE(196,"DR",1,2100,5)="55.014(014) ALCOHOL/SERUM/QUANT/GC 81094 - QUALITY CONTROL~;55.015(015) ALCOHOL/SERUM/QUANT/GC 81094 - STANDARD~;55.016(016) ALCOHOL/ETHYL/URINE/GC 81096 - INJECTION~;55.017(017) ALCOHOL/ETHYL/URINE/GC 81096 - QUALITY CONTROL~;"
^DIE(196,"DR",1,2100,6)="55.018(018) ALCOHOL/ETHYL/URINE/GC 81096 - STANDARD~;55.019(019) AMIKACIN/SERUM/QUANT/EMIT 81100 - SUBSTANCE~;55.02(020) AMIKACIN/SERUM/QUANT/EMIT 81100 - QUALITY CONTROL~;55.021(021) AMIKACIN/SERUM/QUANT/EMIT 81100 - STANDARD~;"
^DIE(196,"DR",1,2100,7)="55.022(022) AMIKACIN/SERUM/QUANT/FIA 81106 - SUBSTANCE~;55.023(023) AMIKACIN/SERUM/QUANT/FIA 81106 - QUALITY CONTROL~;55.024(024) AMIKACIN/SERUM/QUANT/FIA 81106 - STANDARD~;55.025(025) AMIKACIN/SERUM/QUANT/RIA 84643 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,8)="55.026(026) AMIKACIN/SERUM/QUANT/RIA 84643 - QUALITY CONTROL~;55.027(027) AMIKACIN/SERUM/QUANT/RIA 84643 - STANDARD~;55.028(028) AMPHETAMINE/URINE/QUAL/EMIT 84651 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,9)="55.029(029) AMPHETAMINE/URINE/QUAL/EMIT 84651 - QUALITY CONTROL~;55.03(030) AMPHETAMINE/URINE/QUAL/EMIT 84651 - STANDARD~;55.031(031) AMPHETAMINE/URINE/QUAL/GC 84630 - INJECTION~;"
^DIE(196,"DR",1,2100,10)="55.032(032) AMPHETAMINE/URINE/QUAL/GC 84630 - QUALITY CONTROL~;55.033(033) AMPHETAMINE/URINE/QUAL/GC 84630 - STANDARD~;55.034(034) AMPHETAMINE/URINE/QUANT/RIA 84654 - SUBSTANCE~;"
^DIE(196,"DR",1,2100,11)="55.035(035) AMPHETAMINE/URINE/QUANT/RIA 84654 - QUALITY CONTROL~;55.036(036) AMPHETAMINE/URINE/QUANT/RIA 84654 - STANDARD~;99///^S X=""$"";"
^DIE(197,0)="LR AMS5 CHEM MAN & AUTO H48^2900619.1313^^2100^^^2930406"
^DIE(197,"DIAB",1,0,2100,1)="002-5;""(002) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - QUALITY CONTROL"""
^DIE(197,"DIAB",1,0,2100,2)="005-5;""(005) CALCIUM, 24 HR EXCRET FECES 82345 - QUALITY CONTROL"""
^DIE(197,"DIAB",1,0,2100,3)="008-5;""(008) CALCULUS ANALYSIS, CHEMICAL 82355 - QUALITY CONTROL"""
^DIE(197,"DIAB",1,0,2100,4)="011-5;""(011) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - QUALITY CONTROL"""
^DIE(197,"DIAB",1,0,2100,5)="014-5;""(014) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - QUALITY CONTROL"""
^DIE(197,"DIAB",1,0,2100,6)="018-5;""(018) CAROTENE 82380 - STANDARD"""
^DIE(197,"DIAB",1,0,2100,7)="022-5;""(022) CERULOPLASMIN (COPPER OXIDASE) 82390 - TEST"""
^DIE(197,"DIAB",1,0,2100,8)="025-5;""(025) CHLORIDE, SWEAT TEST, QUANT 89360 - PATIENT"""
^DIE(197,"DIAB",1,0,2100,9)="028-5;""(028) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - TEST"""
^DIE(197,"DIAB",1,0,2100,10)="031-5;""(031) CORTICOIDS/CORTISOLS/UR/RIA 83210 - TEST"""
^DIE(197,"DIAB",1,0,2100,11)="035-5;""(035) CORTICOSTERONE/RIA 83230 - QUALITY CONTROL"""
^DIE(197,"DIAB",2,0,2100,1)="003-5;""(003) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - STANDARD"""
^DIE(197,"DIAB",2,0,2100,2)="006-5;""(006) CALCIUM, 24 HR EXCRET FECES 82345 - STANDARD"""
^DIE(197,"DIAB",2,0,2100,3)="009-5;""(009) CALCULUS ANALYSIS, CHEMICAL 82355 - STANDARD"""
^DIE(197,"DIAB",2,0,2100,4)="012-5;""(012) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - STANDARD"""
^DIE(197,"DIAB",2,0,2100,5)="015-5;""(015) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - STANDARD"""
^DIE(197,"DIAB",2,0,2100,6)="019-5;""(019) CATECHOLAMINES 83125 - TEST"""
^DIE(197,"DIAB",2,0,2100,7)="023-5;""(023) CERULOPLASMIN (COPPER OXIDASE) 82390 - QUALITY CONTROL"""
^DIE(197,"DIAB",2,0,2100,8)="026-5;""(026) CHLORIDE, SWEAT TEST, QUANT 89360 - QUALITY CONTROL"""
^DIE(197,"DIAB",2,0,2100,9)="029-5;""(029) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - QUALITY CONTROL"""
^DIE(197,"DIAB",2,0,2100,10)="032-5;""(032) CORTICOIDS/CORTISOLS/UR/RIA 83210 - QUALITY CONTROL"""
^DIE(197,"DIAB",2,0,2100,11)="036-5;""(036) CORTICOSTERONE/RIA 83230 - STANDARD"""
^DIE(197,"DIAB",3,0,2100,1)="004-5;""(004) CALCIUM, 24 HR EXCRET FECES 82345 - TEST"""
^DIE(197,"DIAB",3,0,2100,2)="007-5;""(007) CALCULUS ANALYSIS, CHEMICAL 82355 - SPECIMEN"""
^DIE(197,"DIAB",3,0,2100,3)="010-5;""(010) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - TEST"""
^DIE(197,"DIAB",3,0,2100,4)="013-5;""(013) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - TEST"""
^DIE(197,"DIAB",3,0,2100,5)="016-5;""(016) CAROTENE 82380 - TEST"""
^DIE(197,"DIAB",3,0,2100,6)="020-5;""(020) CATECHOLAMINES 83125 - QUALITY CONTROL"""
^DIE(197,"DIAB",3,0,2100,7)="024-5;""(024) CERULOPLASMIN (COPPER OXIDASE) 82390 - STANDARD"""
^DIE(197,"DIAB",3,0,2100,8)="027-5;""(027) CHLORIDE, SWEAT TEST, QUANT 89360 - STANDARD"""
^DIE(197,"DIAB",3,0,2100,9)="030-5;""(030) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - STANDARD"""
^DIE(197,"DIAB",3,0,2100,10)="033-5;""(033) CORTICOIDS/CORTISOLS/UR/RIA 83210 - STANDARD"""
^DIE(197,"DIAB",4,0,2100,5)="017-5;""(017) CAROTENE 82380 - QUALITY CONTROL"""
^DIE(197,"DIAB",4,0,2100,6)="021-5;""(021) CATECHOLAMINES 83125 - STANDARD"""
^DIE(197,"DIAB",4,0,2100,10)="034-5;""(034) CORTICOSTERONE/RIA 83230 - TEST"""
^DIE(197,"DIAB",9,0,2100,0)="001-5;""(001) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - SPECIMEN"""
^DIE(197,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - SPECIMEN~;"
^DIE(197,"DR",1,2100,1)="55.002(002) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - QUALITY CONTROL~;55.003(003) CALC 1 OR MORE/BASE EXCESS,ETC 82896 - STANDARD~;55.004(004) CALCIUM, 24 HR EXCRET FECES 82345 - TEST~;"
^DIE(197,"DR",1,2100,2)="55.005(005) CALCIUM, 24 HR EXCRET FECES 82345 - QUALITY CONTROL~;55.006(006) CALCIUM, 24 HR EXCRET FECES 82345 - STANDARD~;55.007(007) CALCULUS ANALYSIS, CHEMICAL 82355 - SPECIMEN~;"
^DIE(197,"DR",1,2100,3)="55.008(008) CALCULUS ANALYSIS, CHEMICAL 82355 - QUALITY CONTROL~;55.009(009) CALCULUS ANALYSIS, CHEMICAL 82355 - STANDARD~;55.01(010) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - TEST~;"
^DIE(197,"DR",1,2100,4)="55.011(011) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - QUALITY CONTROL~;55.012(012) CARBON DIOXIDE, TITRIMETRIC (BICARBONATE) 82840 - STANDARD~;55.013(013) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - TEST~;"
^DIE(197,"DR",1,2100,5)="55.014(014) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - QUALITY CONTROL~;55.015(015) CARCINOEMBRYONIC ANTIGEN/RIA 82831 - STANDARD~;55.016(016) CAROTENE 82380 - TEST~;55.017(017) CAROTENE 82380 - QUALITY CONTROL~;"
^DIE(197,"DR",1,2100,6)="55.018(018) CAROTENE 82380 - STANDARD~;55.019(019) CATECHOLAMINES 83125 - TEST~;55.02(020) CATECHOLAMINES 83125 - QUALITY CONTROL~;55.021(021) CATECHOLAMINES 83125 - STANDARD~;"
^DIE(197,"DR",1,2100,7)="55.022(022) CERULOPLASMIN (COPPER OXIDASE) 82390 - TEST~;55.023(023) CERULOPLASMIN (COPPER OXIDASE) 82390 - QUALITY CONTROL~;55.024(024) CERULOPLASMIN (COPPER OXIDASE) 82390 - STANDARD~;"
^DIE(197,"DR",1,2100,8)="55.025(025) CHLORIDE, SWEAT TEST, QUANT 89360 - PATIENT~;55.026(026) CHLORIDE, SWEAT TEST, QUANT 89360 - QUALITY CONTROL~;55.027(027) CHLORIDE, SWEAT TEST, QUANT 89360 - STANDARD~;"
^DIE(197,"DR",1,2100,9)="55.028(028) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - TEST~;55.029(029) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - QUALITY CONTROL~;55.03(030) CORTICOIDS/CORTISOLS/BLD/RIA 83185 - STANDARD~;"
^DIE(197,"DR",1,2100,10)="55.031(031) CORTICOIDS/CORTISOLS/UR/RIA 83210 - TEST~;55.032(032) CORTICOIDS/CORTISOLS/UR/RIA 83210 - QUALITY CONTROL~;55.033(033) CORTICOIDS/CORTISOLS/UR/RIA 83210 - STANDARD~;55.034(034) CORTICOSTERONE/RIA 83230 - TEST~;"
^DIE(197,"DR",1,2100,11)="55.035(035) CORTICOSTERONE/RIA 83230 - QUALITY CONTROL~;55.036(036) CORTICOSTERONE/RIA 83230 - STANDARD~;99///^S X=""$"";"
^DIE(198,0)="LR AMS5 DRUG AND TOXIC H49^2900327.1629^^2100^^^2931005"
^DIE(198,"DIAB",1,0,2100,1)="002-5;""(002) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,2)="005-5;""(005) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,3)="008-5;""(008) ARSENIC/URINE/QUANT/VIS 81140 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,4)="011-5;""(011) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,5)="014-5;""(014) BARBITURATES/SERUM/QUAL/GC 84667 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,6)="017-5;""(017) BARBITURATES/SERUM/QUANT/EMIT 81151 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,7)="020-5;""(020) BARBITURATES/SERUM/QUANT/GC 81150 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,8)="023-5;""(023) BARBITURATES/SERUM/QUANT/HPLC 81155 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,9)="026-5;""(026) BARBITURATES/SERUM/QUANT/RIA 81153 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,10)="029-5;""(029) BARBITURATES/SERUM/QUANT/UV 84669 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,11)="032-5;""(032) BARBITURATES/URINE/QUAL/EMIT 84670 - QUALITY CONTROL"""
^DIE(198,"DIAB",1,0,2100,12)="035-5;""(035) BARBITURATES/URINE/QUANT/GC 84672 - QUALITY CONTROL"""
^DIE(198,"DIAB",2,0,2100,1)="003-5;""(003) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,2)="006-5;""(006) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,3)="009-5;""(009) ARSENIC/URINE/QUANT/VIS 81140 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,4)="012-5;""(012) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,5)="015-5;""(015) BARBITURATES/SERUM/QUAL/GC 84667 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,6)="018-5;""(018) BARBITURATES/SERUM/QUANT/EMIT 81151 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,7)="021-5;""(021) BARBITURATES/SERUM/QUANT/GC 81150 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,8)="024-5;""(024) BARBITURATES/SERUM/QUANT/HPLC 81155 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,9)="027-5;""(027) BARBITURATES/SERUM/QUANT/RIA 81153 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,10)="030-5;""(030) BARBITURATES/SERUM/QUANT/UV 84669 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,11)="033-5;""(033) BARBITURATES/URINE/QUAL/EMIT 84670 - STANDARD"""
^DIE(198,"DIAB",2,0,2100,12)="036-5;""(036) BARBITURATES/URINE/QUANT/GC 84672 - STANDARD"""
^DIE(198,"DIAB",3,0,2100,1)="004-5;""(004) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - INJECTION"""
^DIE(198,"DIAB",3,0,2100,2)="007-5;""(007) ARSENIC/URINE/QUANT/VIS 81140 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,3)="010-5;""(010) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,4)="013-5;""(013) BARBITURATES/SERUM/QUAL/GC 84667 - INJECTION"""
^DIE(198,"DIAB",3,0,2100,5)="016-5;""(016) BARBITURATES/SERUM/QUANT/EMIT 81151 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,6)="019-5;""(019) BARBITURATES/SERUM/QUANT/GC 81150 - INJECTION"""
^DIE(198,"DIAB",3,0,2100,7)="022-5;""(022) BARBITURATES/SERUM/QUANT/HPLC 81155 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,8)="025-5;""(025) BARBITURATES/SERUM/QUANT/RIA 81153 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,9)="028-5;""(028) BARBITURATES/SERUM/QUANT/UV 84669 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,10)="031-5;""(031) BARBITURATES/URINE/QUAL/EMIT 84670 - SUBSTANCE"""
^DIE(198,"DIAB",3,0,2100,11)="034-5;""(034) BARBITURATES/URINE/QUANT/GC 84672 - INJECTION"""
^DIE(198,"DIAB",9,0,2100,0)="001-5;""(001) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - INJECTION"""
^DIE(198,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - INJECTION~;"
^DIE(198,"DR",1,2100,1)="55.002(002) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - QUALITY CONTROL~;55.003(003) ANTICONVULSANTS/SERUM/QUANT/GC 84655 - STANDARD~;55.004(004) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - INJECTION~;"
^DIE(198,"DR",1,2100,2)="55.005(005) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - QUALITY CONTROL~;55.006(006) ANTICONVULSANTS/SERUM/QUANT/HPLC 81120 - STANDARD~;55.007(007) ARSENIC/URINE/QUANT/VIS 81140 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,3)="55.008(008) ARSENIC/URINE/QUANT/VIS 81140 - QUALITY CONTROL~;55.009(009) ARSENIC/URINE/QUANT/VIS 81140 - STANDARD~;55.01(010) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,4)="55.011(011) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - QUALITY CONTROL~;55.012(012) ATOMIC ABSORPTION/AA/NOT LISTED ELSEWHERE 84661 - STANDARD~;55.013(013) BARBITURATES/SERUM/QUAL/GC 84667 - INJECTION~;"
^DIE(198,"DR",1,2100,5)="55.014(014) BARBITURATES/SERUM/QUAL/GC 84667 - QUALITY CONTROL~;55.015(015) BARBITURATES/SERUM/QUAL/GC 84667 - STANDARD~;55.016(016) BARBITURATES/SERUM/QUANT/EMIT 81151 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,6)="55.017(017) BARBITURATES/SERUM/QUANT/EMIT 81151 - QUALITY CONTROL~;55.018(018) BARBITURATES/SERUM/QUANT/EMIT 81151 - STANDARD~;55.019(019) BARBITURATES/SERUM/QUANT/GC 81150 - INJECTION~;"
^DIE(198,"DR",1,2100,7)="55.02(020) BARBITURATES/SERUM/QUANT/GC 81150 - QUALITY CONTROL~;55.021(021) BARBITURATES/SERUM/QUANT/GC 81150 - STANDARD~;55.022(022) BARBITURATES/SERUM/QUANT/HPLC 81155 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,8)="55.023(023) BARBITURATES/SERUM/QUANT/HPLC 81155 - QUALITY CONTROL~;55.024(024) BARBITURATES/SERUM/QUANT/HPLC 81155 - STANDARD~;55.025(025) BARBITURATES/SERUM/QUANT/RIA 81153 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,9)="55.026(026) BARBITURATES/SERUM/QUANT/RIA 81153 - QUALITY CONTROL~;55.027(027) BARBITURATES/SERUM/QUANT/RIA 81153 - STANDARD~;55.028(028) BARBITURATES/SERUM/QUANT/UV 84669 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,10)="55.029(029) BARBITURATES/SERUM/QUANT/UV 84669 - QUALITY CONTROL~;55.03(030) BARBITURATES/SERUM/QUANT/UV 84669 - STANDARD~;55.031(031) BARBITURATES/URINE/QUAL/EMIT 84670 - SUBSTANCE~;"
^DIE(198,"DR",1,2100,11)="55.032(032) BARBITURATES/URINE/QUAL/EMIT 84670 - QUALITY CONTROL~;55.033(033) BARBITURATES/URINE/QUAL/EMIT 84670 - STANDARD~;55.034(034) BARBITURATES/URINE/QUANT/GC 84672 - INJECTION~;"
^DIE(198,"DR",1,2100,12)="55.035(035) BARBITURATES/URINE/QUANT/GC 84672 - QUALITY CONTROL~;55.036(036) BARBITURATES/URINE/QUANT/GC 84672 - STANDARD~;99///^S X=""$"";"
^DIE(199,0)="LR AMS5 CHEM MAN & AUTO H50^2910128.0923^^2100^0^^2931007"
^DIE(199,"DIAB",1,0,2100,1)="003-5;""(003) CORTISOL/RIA 83191 - STANDARD"""
^DIE(199,"DIAB",1,0,2100,2)="007-5;""(007) CREATINE 82540 - TEST"""
^DIE(199,"DIAB",1,0,2100,3)="011-5;""(011) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - QUALITY CONTROL"""
^DIE(199,"DIAB",1,0,2100,4)="014-5;""(014) CRYOFIBRINOGEN 82585 - QUALITY CONTROL"""
^DIE(199,"DIAB",1,0,2100,5)="018-5;""(018) CRYOGLOBULIN, QUAL, BLOOD 82595 - STANDARD"""
^DIE(199,"DIAB",1,0,2100,6)="022-5;""(022) CYSTINE/URINE/QUANT/VIS 82616 - TEST"""
^DIE(199,"DIAB",1,0,2100,7)="026-5;""(026) DEOXYCORTISOL/RIA 82635 - QUALITY CONTROL"""
^DIE(199,"DIAB",1,0,2100,8)="030-5;""(030) ESTRADIOL/RIA 83233 - STANDARD"""
^DIE(199,"DIAB",1,0,2100,9)="033-5;""(033) ESTROGEN BINDING RECEPTOR ASSAY 83232 - STANDARD"""
^DIE(199,"DIAB",1,0,2100,10)="036-5;""(036) ESTROGENS,TOTAL URINE/RIA 83235 - STANDARD"""
^DIE(199,"DIAB",2,0,2100,1)="004-5;""(004) CORTISOLS,FLUOROMETRIC 83190 - TEST"""
^DIE(199,"DIAB",2,0,2100,2)="008-5;""(008) CREATINE 82540 - QUALITY CONTROL"""
^DIE(199,"DIAB",2,0,2100,3)="012-5;""(012) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - STANDARD"""
^DIE(199,"DIAB",2,0,2100,4)="015-5;""(015) CRYOFIBRINOGEN 82585 - STANDARD"""
^DIE(199,"DIAB",2,0,2100,5)="019-5;""(019) CYSTINE/NITROPRUSSIDE 82615 - TEST"""
^DIE(199,"DIAB",2,0,2100,6)="023-5;""(023) CYSTINE/URINE/QUANT/VIS 82616 - QUALITY CONTROL"""
^DIE(199,"DIAB",2,0,2100,7)="027-5;""(027) DEOXYCORTISOL/RIA 82635 - STANDARD"""
^DIE(199,"DIAB",2,0,2100,8)="031-5;""(031) ESTROGEN BINDING RECEPTOR ASSAY 83232 - TEST"""
^DIE(199,"DIAB",2,0,2100,9)="034-5;""(034) ESTROGENS,TOTAL URINE/RIA 83235 - TEST"""
^DIE(199,"DIAB",2,0,2100,10)="037-5;""(037) ESTROGENS,URINE,PREGNANCY 83245 - TEST"""
^DIE(199,"DIAB",3,0,2100,1)="005-5;""(005) CORTISOLS,FLUOROMETRIC 83190 - QUALITY CONTROL"""
^DIE(199,"DIAB",3,0,2100,2)="009-5;""(009) CREATINE 82540 - STANDARD"""
^DIE(199,"DIAB",3,0,2100,3)="013-5;""(013) CRYOFIBRINOGEN 82585 - TEST"""
^DIE(199,"DIAB",3,0,2100,4)="016-5;""(016) CRYOGLOBULIN, QUAL, BLOOD 82595 - TEST"""
^DIE(199,"DIAB",3,0,2100,5)="020-5;""(020) CYSTINE/NITROPRUSSIDE 82615 - QUALITY CONTROL"""
^DIE(199,"DIAB",3,0,2100,6)="024-5;""(024) CYSTINE/URINE/QUANT/VIS 82616 - STANDARD"""
^DIE(199,"DIAB",3,0,2100,7)="028-5;""(028) ESTRADIOL/RIA 83233 - TEST"""
^DIE(199,"DIAB",3,0,2100,8)="032-5;""(032) ESTROGEN BINDING RECEPTOR ASSAY 83232 - QUALITY CONTROL"""
^DIE(199,"DIAB",3,0,2100,9)="035-5;""(035) ESTROGENS,TOTAL URINE/RIA 83235 - QUALITY CONTROL"""
^DIE(199,"DIAB",3,0,2100,10)="038-5;""(038) ESTROGENS,URINE,PREGNANCY 83245 - QUALITY CONTROL"""
^DIE(199,"DIAB",4,0,2100,1)="006-5;""(006) CORTISOLS,FLUOROMETRIC 83190 - STANDARD"""
^DIE(199,"DIAB",4,0,2100,2)="010-5;""(010) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - TEST"""
^DIE(199,"DIAB",4,0,2100,4)="017-5;""(017) CRYOGLOBULIN, QUAL, BLOOD 82595 - QUALITY CONTROL"""
^DIE(199,"DIAB",4,0,2100,5)="021-5;""(021) CYSTINE/NITROPRUSSIDE 82615 - STANDARD"""
^DIE(199,"DIAB",4,0,2100,6)="025-5;""(025) DEOXYCORTISOL/RIA 82635 - TEST"""
^DIE(199,"DIAB",4,0,2100,7)="029-5;""(029) ESTRADIOL/RIA 83233 - QUALITY CONTROL"""
^DIE(199,"DIAB",4,0,2100,10)="039-5;""(039) ESTROGENS,URINE,PREGNANCY 83245 - STANDARD"""
^DIE(199,"DIAB",9,0,2100,0)="001-5;""(001) CORTISOL/RIA 83191 - TEST"""
^DIE(199,"DIAB",10,0,2100,0)="002-5;""(002) CORTISOL/RIA 83191 - QUALITY CONTROL"""
^DIE(199,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) CORTISOL/RIA 83191 - TEST~;55.002(002) CORTISOL/RIA 83191 - QUALITY CONTROL~;"
^DIE(199,"DR",1,2100,1)="55.003(003) CORTISOL/RIA 83191 - STANDARD~;55.004(004) CORTISOLS,FLUOROMETRIC 83190 - TEST~;55.005(005) CORTISOLS,FLUOROMETRIC 83190 - QUALITY CONTROL~;55.006(006) CORTISOLS,FLUOROMETRIC 83190 - STANDARD~;"
^DIE(199,"DR",1,2100,2)="55.007(007) CREATINE 82540 - TEST~;55.008(008) CREATINE 82540 - QUALITY CONTROL~;55.009(009) CREATINE 82540 - STANDARD~;55.01(010) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - TEST~;"
^DIE(199,"DR",1,2100,3)="55.011(011) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - QUALITY CONTROL~;55.012(012) CREATINE KINASE ISOENZYMES (CK) BY ELECTROPHORESIS 82560 - STANDARD~;55.013(013) CRYOFIBRINOGEN 82585 - TEST~;"
^DIE(199,"DR",1,2100,4)="55.014(014) CRYOFIBRINOGEN 82585 - QUALITY CONTROL~;55.015(015) CRYOFIBRINOGEN 82585 - STANDARD~;55.016(016) CRYOGLOBULIN, QUAL, BLOOD 82595 - TEST~;55.017(017) CRYOGLOBULIN, QUAL, BLOOD 82595 - QUALITY CONTROL~;"
^DIE(199,"DR",1,2100,5)="55.018(018) CRYOGLOBULIN, QUAL, BLOOD 82595 - STANDARD~;55.019(019) CYSTINE/NITROPRUSSIDE 82615 - TEST~;55.02(020) CYSTINE/NITROPRUSSIDE 82615 - QUALITY CONTROL~;55.021(021) CYSTINE/NITROPRUSSIDE 82615 - STANDARD~;"
^DIE(199,"DR",1,2100,6)="55.022(022) CYSTINE/URINE/QUANT/VIS 82616 - TEST~;55.023(023) CYSTINE/URINE/QUANT/VIS 82616 - QUALITY CONTROL~;55.024(024) CYSTINE/URINE/QUANT/VIS 82616 - STANDARD~;55.025(025) DEOXYCORTISOL/RIA 82635 - TEST~;"
^DIE(199,"DR",1,2100,7)="55.026(026) DEOXYCORTISOL/RIA 82635 - QUALITY CONTROL~;55.027(027) DEOXYCORTISOL/RIA 82635 - STANDARD~;55.028(028) ESTRADIOL/RIA 83233 - TEST~;55.029(029) ESTRADIOL/RIA 83233 - QUALITY CONTROL~;"
^DIE(199,"DR",1,2100,8)="55.03(030) ESTRADIOL/RIA 83233 - STANDARD~;55.031(031) ESTROGEN BINDING RECEPTOR ASSAY 83232 - TEST~;55.032(032) ESTROGEN BINDING RECEPTOR ASSAY 83232 - QUALITY CONTROL~;"
^DIE(199,"DR",1,2100,9)="55.033(033) ESTROGEN BINDING RECEPTOR ASSAY 83232 - STANDARD~;55.034(034) ESTROGENS,TOTAL URINE/RIA 83235 - TEST~;55.035(035) ESTROGENS,TOTAL URINE/RIA 83235 - QUALITY CONTROL~;"
^DIE(199,"DR",1,2100,10)="55.036(036) ESTROGENS,TOTAL URINE/RIA 83235 - STANDARD~;55.037(037) ESTROGENS,URINE,PREGNANCY 83245 - TEST~;55.038(038) ESTROGENS,URINE,PREGNANCY 83245 - QUALITY CONTROL~;55.039(039) ESTROGENS,URINE,PREGNANCY 83245 - STANDARD~;"
^DIE(199,"DR",1,2100,11)="99///^S X=""$"";"
^DIE(200,0)="LR AMS5 DRUG AND TOXIC H51^2900917.2208^^2100^0^^2931005"
^DIE(200,"DIAB",1,0,2100,1)="002-5;""(002) BARBITURATES/URINE/QUAL/RIA 84671 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,2)="005-5;""(005) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,3)="008-5;""(008) BASIC DRUG SCREEN/URINE/TLC 81173 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,4)="011-5;""(011) BENZODIAZEPINES/QUAL/EMIT 84674 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,5)="014-5;""(014) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,6)="017-5;""(017) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,7)="020-5;""(020) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - QUALITYC CONTROL"""
^DIE(200,"DIAB",1,0,2100,8)="023-5;""(023) BROMIDE/SERUM/QUANT/VIS 84686 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,9)="026-5;""(026) CANNABINOID/URINE/QUANT/EMIT 84620 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,10)="029-5;""(029) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,11)="032-5;""(032) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - QUALITY CONTROL"""
^DIE(200,"DIAB",1,0,2100,12)="035-5;""(035) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - QUALITY CONTROL"""
^DIE(200,"DIAB",2,0,2100,1)="003-5;""(003) BARBITURATES/URINE/QUAL/RIA 84671 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,2)="006-5;""(006) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,3)="009-5;""(009) BASIC DRUG SCREEN/URINE/TLC 81173 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,4)="012-5;""(012) BENZODIAZEPINES/QUAL/EMIT 84674 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,5)="015-5;""(015) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,6)="018-5;""(018) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,7)="021-5;""(021) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,8)="024-5;""(024) BROMIDE/SERUM/QUANT/VIS 84686 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,9)="027-5;""(027) CANNABINOID/URINE/QUANT/EMIT 84620 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,10)="030-5;""(030) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,11)="033-5;""(033) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - STANDARD"""
^DIE(200,"DIAB",2,0,2100,12)="036-5;""(036) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - STANDARD"""
^DIE(200,"DIAB",3,0,2100,1)="004-5;""(004) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - INJECTION"""
^DIE(200,"DIAB",3,0,2100,2)="007-5;""(007) BASIC DRUG SCREEN/URINE/TLC 81173 - APPLICATION"""
^DIE(200,"DIAB",3,0,2100,3)="010-5;""(010) BENZODIAZEPINES/QUAL/EMIT 84674 - SUBSTANCE"""
^DIE(200,"DIAB",3,0,2100,4)="013-5;""(013) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - INJECTION"""
^DIE(200,"DIAB",3,0,2100,5)="016-5;""(016) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - INJECTION"""
^DIE(200,"DIAB",3,0,2100,6)="019-5;""(019) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - SUBSTANCE"""
^DIE(200,"DIAB",3,0,2100,7)="022-5;""(022) BROMIDE/SERUM/QUANT/VIS 84686 - SUBSTANCE"""
^DIE(200,"DIAB",3,0,2100,8)="025-5;""(025) CANNABINOID/URINE/QUANT/EMIT 84620 - SUBSTANCE"""
^DIE(200,"DIAB",3,0,2100,9)="028-5;""(028) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - SUBSTANCE"""
^DIE(200,"DIAB",3,0,2100,10)="031-5;""(031) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - INJECTION"""
^DIE(200,"DIAB",3,0,2100,11)="034-5;""(034) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - SUBSTANCE"""
^DIE(200,"DIAB",9,0,2100,0)="001-5;""(001) BARBITURATES/URINE/QUAL/RIA 84671 - SUBSTANCE"""
^DIE(200,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BARBITURATES/URINE/QUAL/RIA 84671 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,1)="55.002(002) BARBITURATES/URINE/QUAL/RIA 84671 - QUALITY CONTROL~;55.003(003) BARBITURATES/URINE/QUAL/RIA 84671 - STANDARD~;55.004(004) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - INJECTION~;"
^DIE(200,"DR",1,2100,2)="55.005(005) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - QUALITY CONTROL~;55.006(006) BASIC DRUG SCREEN/SERUM/QUAL/GC 81170 - STANDARD~;55.007(007) BASIC DRUG SCREEN/URINE/TLC 81173 - APPLICATION~;"
^DIE(200,"DR",1,2100,3)="55.008(008) BASIC DRUG SCREEN/URINE/TLC 81173 - QUALITY CONTROL~;55.009(009) BASIC DRUG SCREEN/URINE/TLC 81173 - STANDARD~;55.01(010) BENZODIAZEPINES/QUAL/EMIT 84674 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,4)="55.011(011) BENZODIAZEPINES/QUAL/EMIT 84674 - QUALITY CONTROL~;55.012(012) BENZODIAZEPINES/QUAL/EMIT 84674 - STANDARD~;55.013(013) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - INJECTION~;"
^DIE(200,"DR",1,2100,5)="55.014(014) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - QUALITY CONTROL~;55.015(015) BENZODIAZEPINES/SERUM/QUANT/GC 81160 - STANDARD~;55.016(016) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - INJECTION~;"
^DIE(200,"DR",1,2100,6)="55.017(017) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - QUALITY CONTROL~;55.018(018) BENZODIAZEPINES/SERUM/QUANT/HPLC 81162 - STANDARD~;55.019(019) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,7)="55.02(020) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - QUALITYC CONTROL~;55.021(021) BENZODIAZEPINES/URINE/QUAL/EMIT 84677 - STANDARD~;55.022(022) BROMIDE/SERUM/QUANT/VIS 84686 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,8)="55.023(023) BROMIDE/SERUM/QUANT/VIS 84686 - QUALITY CONTROL~;55.024(024) BROMIDE/SERUM/QUANT/VIS 84686 - STANDARD~;55.025(025) CANNABINOID/URINE/QUANT/EMIT 84620 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,9)="55.026(026) CANNABINOID/URINE/QUANT/EMIT 84620 - QUALITY CONTROL~;55.027(027) CANNABINOID/URINE/QUANT/EMIT 84620 - STANDARD~;55.028(028) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,10)="55.029(029) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - QUALITY CONTROL~;55.03(030) CARBAMAZEPINE/SERUM/QUANT/EMIT 84621 - STANDARD~;55.031(031) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - INJECTION~;"
^DIE(200,"DR",1,2100,11)="55.032(032) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - QUALITY CONTROL~;55.033(033) CARBON MONOXIDE/WHOLE BLOOD/QUANT/GC 81206 - STANDARD~;55.034(034) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - SUBSTANCE~;"
^DIE(200,"DR",1,2100,12)="55.035(035) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - QUALITY CONTROL~;55.036(036) CARBON MONOXIDE (AS HB-CO)/WHOLE BLOOD/QUANT/VIS 84695 - STANDARD~;99///^S X=""$"";"
^DIE(201,0)="LR AMS5 CHEM MAN & AUTO H52^2900411.0957^^2100^^^2931007"
^DIE(201,"DIAB",1,0,2100,1)="003-5;""(003) ESTROGENS, 2 OR MORE/RIS 83240 - STANDARD"""
^DIE(201,"DIAB",1,0,2100,2)="007-5;""(007) FATTY ACIDS FREE 82725 - TEST"""
^DIE(201,"DIAB",1,0,2100,3)="011-5;""(011) FERRITIN/RIA 82370 - QUALITY CONTROL"""
^DIE(201,"DIAB",1,0,2100,4)="015-5;""(015) FETOPROTEIN,ALPHA/RIA 82121 - STANDARD"""
^DIE(201,"DIAB",1,0,2100,5)="019-5;""(019) FOLATE/RIA 82751 - TEST"""
^DIE(201,"DIAB",1,0,2100,6)="024-5;""(024) FOLATE BIOASSAY 82745 - STANDARD"""
^DIE(201,"DIAB",1,0,2100,7)="027-5;""(027) FOLLICLE STIMULATING HORMONE/RIA 83310 - STANDARD"""
^DIE(201,"DIAB",1,0,2100,8)="031-5;""(031) FRUCTOSE 82758 - TEST"""
^DIE(201,"DIAB",1,0,2100,9)="035-5;""(035) GAS-1-PHOS URIDYL TRANSFERASE 82775 - QUALITY COTNTROL"""
^DIE(201,"DIAB",2,0,2100,1)="004-5;""(004) FAT,TOTAL,QUANT,FECES 82710 - SPECIMEN"""
^DIE(201,"DIAB",2,0,2100,2)="008-5;""(008) FATTY ACIDS FREE 82725 - QUALITY CONTROL"""
^DIE(201,"DIAB",2,0,2100,3)="012-5;""(012) FERRITIN/RIA 82370 - STANDARD"""
^DIE(201,"DIAB",2,0,2100,4)="016-5;""(016) FIBRINOGEN,CHEM,QUANT 85375 - TEST"""
^DIE(201,"DIAB",2,0,2100,5)="020-5;""(020) FOLATE/RIA 82751 - QUALITY CONTROL"""
^DIE(201,"DIAB",2,0,2100,6)="025-5;""(025) FOLLICLE STIMULATING HORMONE/RIA 83310 - TEST"""
^DIE(201,"DIAB",2,0,2100,7)="028-5;""(028) FREE THYROXIN (FT4)/RIA 83455 - TEST"""
^DIE(201,"DIAB",2,0,2100,8)="032-5;""(032) FRUCTOSE 82758 - QUALITY CONTROL"""
^DIE(201,"DIAB",2,0,2100,9)="036-5;""(036) GAS-1-PHOS URIDYL TRANSFERASE 82775 - STANDARD"""
^DIE(201,"DIAB",3,0,2100,1)="005-5;""(005) FAT,TOTAL,QUANT,FECES 82710 - QUALITY CONTROL"""
^DIE(201,"DIAB",3,0,2100,2)="009-5;""(009) FATTY ACIDS FREE 82725 - STANDARD"""
^DIE(201,"DIAB",3,0,2100,3)="013-5;""(013) FETOPROTEIN,ALPHA/RIA 82121 - TEST"""
^DIE(201,"DIAB",3,0,2100,4)="017-5;""(017) FIBRINOGEN,CHEM,QUANT 85375 - QUALITY CONTROL"""
^DIE(201,"DIAB",3,0,2100,5)="021-5;""(021) FOLATE/RIA 82751 - STANDARD"""
^DIE(201,"DIAB",3,0,2100,6)="026-5;""(026) FOLLICLE STIMULATING HORMONE/RIA 83310 - QUALITY CONTROL"""
^DIE(201,"DIAB",3,0,2100,7)="029-5;""(029) FREE THYROXIN (FT4)/RIA 83455 - QUALITY CONTROL"""
^DIE(201,"DIAB",3,0,2100,8)="033-5;""(033) FRUCTOSE 82758 - STANDARD"""
^DIE(201,"DIAB",4,0,2100,1)="006-5;""(006) FAT,TOTAL,QUANT,FECES 82710 - STANDARD"""
^DIE(201,"DIAB",4,0,2100,2)="010-5;""(010) FERRITIN/RIA 82370 - TEST"""
^DIE(201,"DIAB",4,0,2100,3)="014-5;""(014) FETOPROTEIN,ALPHA/RIA 82121 - QUALITY CONTROL"""
^DIE(201,"DIAB",4,0,2100,4)="018-5;""(018) FIBRINOGEN,CHEM,QUANT 85375 - STANDARD"""
^DIE(201,"DIAB",4,0,2100,5)="022-5;""(022) FOLATE BIOASSAY 82745 - TEST"""
^DIE(201,"DIAB",4,0,2100,7)="030-5;""(030) FREE THYROXIN (FT4)/RIA 83455 - STANDARD"""
^DIE(201,"DIAB",4,0,2100,8)="034-5;""(034) GAS-1-PHOS URIDYL TRANSFERASE 82775 - TEST"""
^DIE(201,"DIAB",5,0,2100,5)="023-5;""(023) FOLATE BIOASSAY 82745 - QUALITY CONTROL"""
^DIE(201,"DIAB",9,0,2100,0)="001-5;""(001) ESTROGENS, 2 OR MORE/RIA 83240 - TEST"""
^DIE(201,"DIAB",10,0,2100,0)="002-5;""(002) ESTROGENS, 2 OR MORE/RIA 83240 - QUALITY CONTROL"""
^DIE(201,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ESTROGENS, 2 OR MORE/RIA 83240 - TEST~;55.002(002) ESTROGENS, 2 OR MORE/RIA 83240 - QUALITY CONTROL~;"
^DIE(201,"DR",1,2100,1)="55.003(003) ESTROGENS, 2 OR MORE/RIS 83240 - STANDARD~;55.004(004) FAT,TOTAL,QUANT,FECES 82710 - SPECIMEN~;55.005(005) FAT,TOTAL,QUANT,FECES 82710 - QUALITY CONTROL~;55.006(006) FAT,TOTAL,QUANT,FECES 82710 - STANDARD~;"
^DIE(201,"DR",1,2100,2)="55.007(007) FATTY ACIDS FREE 82725 - TEST~;55.008(008) FATTY ACIDS FREE 82725 - QUALITY CONTROL~;55.009(009) FATTY ACIDS FREE 82725 - STANDARD~;55.01(010) FERRITIN/RIA 82370 - TEST~;"
^DIE(201,"DR",1,2100,3)="55.011(011) FERRITIN/RIA 82370 - QUALITY CONTROL~;55.012(012) FERRITIN/RIA 82370 - STANDARD~;55.013(013) FETOPROTEIN,ALPHA/RIA 82121 - TEST~;55.014(014) FETOPROTEIN,ALPHA/RIA 82121 - QUALITY CONTROL~;"
^DIE(201,"DR",1,2100,4)="55.015(015) FETOPROTEIN,ALPHA/RIA 82121 - STANDARD~;55.016(016) FIBRINOGEN,CHEM,QUANT 85375 - TEST~;55.017(017) FIBRINOGEN,CHEM,QUANT 85375 - QUALITY CONTROL~;55.018(018) FIBRINOGEN,CHEM,QUANT 85375 - STANDARD~;"
^DIE(201,"DR",1,2100,5)="55.019(019) FOLATE/RIA 82751 - TEST~;55.02(020) FOLATE/RIA 82751 - QUALITY CONTROL~;55.021(021) FOLATE/RIA 82751 - STANDARD~;55.022(022) FOLATE BIOASSAY 82745 - TEST~;55.023(023) FOLATE BIOASSAY 82745 - QUALITY CONTROL~;"
^DIE(201,"DR",1,2100,6)="55.024(024) FOLATE BIOASSAY 82745 - STANDARD~;55.025(025) FOLLICLE STIMULATING HORMONE/RIA 83310 - TEST~;55.026(026) FOLLICLE STIMULATING HORMONE/RIA 83310 - QUALITY CONTROL~;"
^DIE(201,"DR",1,2100,7)="55.027(027) FOLLICLE STIMULATING HORMONE/RIA 83310 - STANDARD~;55.028(028) FREE THYROXIN (FT4)/RIA 83455 - TEST~;55.029(029) FREE THYROXIN (FT4)/RIA 83455 - QUALITY CONTROL~;55.03(030) FREE THYROXIN (FT4)/RIA 83455 - STANDARD~;"
^DIE(201,"DR",1,2100,8)="55.031(031) FRUCTOSE 82758 - TEST~;55.032(032) FRUCTOSE 82758 - QUALITY CONTROL~;55.033(033) FRUCTOSE 82758 - STANDARD~;55.034(034) GAS-1-PHOS URIDYL TRANSFERASE 82775 - TEST~;"
^DIE(201,"DR",1,2100,9)="55.035(035) GAS-1-PHOS URIDYL TRANSFERASE 82775 - QUALITY COTNTROL~;55.036(036) GAS-1-PHOS URIDYL TRANSFERASE 82775 - STANDARD~;99///^S X=""$"";"
^DIE(202,0)="LR AMS5 DRUG AND TOXIC H53^2900411.1029^^2100^^^2931005"
^DIE(202,"DIAB",1,0,2100,1)="002-5;""(002) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - QUALITY CONTROL"""
^DIE(202,"DIAB",1,0,2100,2)="005-5;""(005) CHOLINESTERASE/SERUM/QUANT/UV 84718 - QUALITY CONTROL"""
^DIE(202,"DIAB",1,0,2100,3)="008-5;""(008) COCAINE/URINE/EMIT 84725 - QUALITY CONTROL"""
^DIE(202,"DIAB",1,0,2100,4)="012-5;""(012) COCAINE/URINE/QUANT/RIA 84724 - STANDARD"""
^DIE(202,"DIAB",1,0,2100,5)="016-5;""(016) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - SUBSTANCE"""
^DIE(202,"DIAB",1,0,2100,6)="019-5;""(019) DIGITOXIN/RIA 84754 - SUBSTANCE"""
^DIE(202,"DIAB",1,0,2100,7)="024-5;""(024) DIGOXIN/RIA 84756 - STANDARD"""
^DIE(202,"DIAB",1,0,2100,8)="028-5;""(028) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - INJECTION"""
^DIE(202,"DIAB",1,0,2100,9)="031-5;""(031) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - INJECTION"""
^DIE(202,"DIAB",1,0,2100,10)="034-5;""(034) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - INJECTION"""
^DIE(202,"DIAB",2,0,2100,1)="003-5;""(003) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - STANDARD"""
^DIE(202,"DIAB",2,0,2100,2)="006-5;""(006) CHOLINESTERASE/SERUM/QUANT/UV 84718 - STANDARD"""
^DIE(202,"DIAB",2,0,2100,3)="009-5;""(009) COCAINE/URINE/EMIT 84725 - STANDARD"""
^DIE(202,"DIAB",2,0,2100,4)="013-5;""(013) COPPER/URINE/QUANT/AA 84735 - SUBSTANCE"""
^DIE(202,"DIAB",2,0,2100,5)="017-5;""(017) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - QUALITY CONTROL"""
^DIE(202,"DIAB",2,0,2100,6)="020-5;""(020) DIGITOXIN/RIA 84754 - QUALITY CONTROL"""
^DIE(202,"DIAB",2,0,2100,7)="025-5;""(025) DIGOXIN/SERUM/QUANT/EMIT 84757 - SUBSTANCE"""
^DIE(202,"DIAB",2,0,2100,8)="029-5;""(029) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - QUALITY CONTROL"""
^DIE(202,"DIAB",2,0,2100,9)="032-5;""(032) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - QUALITY CONTROL"""
^DIE(202,"DIAB",2,0,2100,10)="035-5;""(035) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - QUALITY CONTROL"""
^DIE(202,"DIAB",3,0,2100,1)="004-5;""(004) CHOLINESTERASE/SERUM/QUANT/UV 84718 - SUBSTANCE"""
^DIE(202,"DIAB",3,0,2100,2)="007-5;""(007) COCAINE/URINE/EMIT 84725 - SUBSTANCE"""
^DIE(202,"DIAB",3,0,2100,3)="010-5;""(010) COCAINE/URINE/QUANT/RIA 84724 - SUBSTANCE"""
^DIE(202,"DIAB",3,0,2100,4)="014-5;""(014) COPPER/URINE/QUANT/AA 84735 - QUALITY CONTROL"""
^DIE(202,"DIAB",3,0,2100,5)="018-5;""(018) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - STANDARD"""
^DIE(202,"DIAB",3,0,2100,6)="021-5;""(021) DIGITOXIN/RIA 84754 - STANDARD"""
^DIE(202,"DIAB",3,0,2100,7)="026-5;""(026) DIGOXIN/SERUM/QUANT/EMIT 84757 - QUALITY CONTROL"""
^DIE(202,"DIAB",3,0,2100,8)="030-5;""(030) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - STANDARD"""
^DIE(202,"DIAB",3,0,2100,9)="033-5;""(033) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - STANDARD"""
^DIE(202,"DIAB",3,0,2100,10)="036-5;""(036) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - STANDARD"""
^DIE(202,"DIAB",4,0,2100,3)="011-5;""(011) COCAINE/URINE/QUANT/RIA 84724 - QUALITY CONTROL"""
^DIE(202,"DIAB",4,0,2100,4)="015-5;""(015) COPPER/URINE/QUANT/AA 84735 - STANDARD"""
^DIE(202,"DIAB",4,0,2100,6)="022-5;""(022) DIGOXIN/RIA 84756 - SUBSTANCE"""
^DIE(202,"DIAB",4,0,2100,7)="027-5;""(027) DIGOXIN/SERUM/QUANT/EMIT 84757 - STANDARD"""
^DIE(202,"DIAB",5,0,2100,6)="023-5;""(023) DIGOXIN/RIA 84756 - QUALITY CONTROL"""
^DIE(202,"DIAB",9,0,2100,0)="001-5;""(001) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - SUBSTANCE"""
^DIE(202,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - SUBSTANCE~;"
^DIE(202,"DR",1,2100,1)="55.002(002) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - QUALITY CONTROL~;55.003(003) CHOLINESTERASE PLUS D.N./SERUM/QUANT/UV 84719 - STANDARD~;55.004(004) CHOLINESTERASE/SERUM/QUANT/UV 84718 - SUBSTANCE~;"
^DIE(202,"DR",1,2100,2)="55.005(005) CHOLINESTERASE/SERUM/QUANT/UV 84718 - QUALITY CONTROL~;55.006(006) CHOLINESTERASE/SERUM/QUANT/UV 84718 - STANDARD~;55.007(007) COCAINE/URINE/EMIT 84725 - SUBSTANCE~;"
^DIE(202,"DR",1,2100,3)="55.008(008) COCAINE/URINE/EMIT 84725 - QUALITY CONTROL~;55.009(009) COCAINE/URINE/EMIT 84725 - STANDARD~;55.01(010) COCAINE/URINE/QUANT/RIA 84724 - SUBSTANCE~;55.011(011) COCAINE/URINE/QUANT/RIA 84724 - QUALITY CONTROL~;"
^DIE(202,"DR",1,2100,4)="55.012(012) COCAINE/URINE/QUANT/RIA 84724 - STANDARD~;55.013(013) COPPER/URINE/QUANT/AA 84735 - SUBSTANCE~;55.014(014) COPPER/URINE/QUANT/AA 84735 - QUALITY CONTROL~;55.015(015) COPPER/URINE/QUANT/AA 84735 - STANDARD~;"
^DIE(202,"DR",1,2100,5)="55.016(016) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - SUBSTANCE~;55.017(017) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - QUALITY CONTROL~;55.018(018) CYANIDE/WHOLE BLOOD/QUANT/VIS 81239 - STANDARD~;"
^DIE(202,"DR",1,2100,6)="55.019(019) DIGITOXIN/RIA 84754 - SUBSTANCE~;55.02(020) DIGITOXIN/RIA 84754 - QUALITY CONTROL~;55.021(021) DIGITOXIN/RIA 84754 - STANDARD~;55.022(022) DIGOXIN/RIA 84756 - SUBSTANCE~;55.023(023) DIGOXIN/RIA 84756 - QUALITY CONTROL~;"
^DIE(202,"DR",1,2100,7)="55.024(024) DIGOXIN/RIA 84756 - STANDARD~;55.025(025) DIGOXIN/SERUM/QUANT/EMIT 84757 - SUBSTANCE~;55.026(026) DIGOXIN/SERUM/QUANT/EMIT 84757 - QUALITY CONTROL~;55.027(027) DIGOXIN/SERUM/QUANT/EMIT 84757 - STANDARD~;"
^DIE(202,"DR",1,2100,8)="55.028(028) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - INJECTION~;55.029(029) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - QUALITY CONTROL~;55.03(030) DISOPYRAMIDE/SERUM/QUANT/HPLC 81260 - STANDARD~;"
^DIE(202,"DR",1,2100,9)="55.031(031) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - INJECTION~;55.032(032) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - QUALITY CONTROL~;55.033(033) DRUG SCREEN,ACID NEUTRAL/SERUM/GLC 81080 - STANDARD~;"
^DIE(202,"DR",1,2100,10)="55.034(034) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - INJECTION~;55.035(035) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - QUALITY CONTROL~;55.036(036) DRUG SCREEN,ACID,NEUTRAL/SERUM/HPLC 81086 - STANDARD~;99///^S X=""$"";"
^DIE(203,0)="LR AMS5 CHEM MAN & AUTO H54^2900917.221^^2100^0^^2931005"
^DIE(203,"DIAB",1,0,2100,1)="002-5;""(002) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - QUALITY CONTROL"""
^DIE(203,"DIAB",1,0,2100,2)="005-5;""(005) GASTRIC ANALYSIS,TUBELESS 82945 - QUALITY CONTROL"""
^DIE(203,"DIAB",1,0,2100,3)="009-5;""(009) GASTRIN/RIA 83248 - STANDARD"""
^DIE(203,"DIAB",1,0,2100,4)="014-5;""(014) GLUCAGON/RIA 83250 - QUALITY CONTROL"""
^DIE(203,"DIAB",1,0,2100,5)="018-5;""(018) GLUCOSE-6-PHOS DEHYROGENASE 82955 - STANDARD"""
^DIE(203,"DIAB",1,0,2100,6)="022-5;""(022) GLUTAMINE 82975 - TEST"""
^DIE(203,"DIAB",1,0,2100,7)="026-5;""(026) GLYCOPROTEIN,ELECTROPHORESIS 82985 - QUALITY CONTROL"""
^DIE(203,"DIAB",1,0,2100,8)="030-5;""(030) GROWTH HORMONE/RIA 83380 - STANDARD"""
^DIE(203,"DIAB",1,0,2100,9)="034-5;""(034) HCG-BETA SUBUNIT-RIA 83015 - TEST"""
^DIE(203,"DIAB",2,0,2100,1)="003-5;""(003) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - STANDARD"""
^DIE(203,"DIAB",2,0,2100,2)="006-5;""(006) GASTRIC ANALYSIS,TUBELESS 82945 - STANDARD"""
^DIE(203,"DIAB",2,0,2100,3)="010-5;""(010) GLOBULIN 84171 - TEST"""
^DIE(203,"DIAB",2,0,2100,4)="015-5;""(015) GLUCAGON/RIA 83250 - STANDARD"""
^DIE(203,"DIAB",2,0,2100,5)="019-5;""(019) GLUTAMATE DEHYROGENASE 82965 - TEST"""
^DIE(203,"DIAB",2,0,2100,6)="023-5;""(023) GLUTAMINE 82975 - QUALITY CONTROL"""
^DIE(203,"DIAB",2,0,2100,7)="027-5;""(027) GLYCOPROTEIN,ELECTROPHORESIS 82985 - STANDARD"""
^DIE(203,"DIAB",2,0,2100,8)="031-5;""(031) HAPTOGLOBIN ELECTROPHORESIS 83010 - TEST"""
^DIE(203,"DIAB",2,0,2100,9)="035-5;""(035) HCG-BETA SUBUNIT-RIA 83015 - QUALITY CONTROL"""
^DIE(203,"DIAB",3,0,2100,1)="004-5;""(004) GASTRIC ANALYSIS,TUBELESS 82945 - SPECIMEN"""
^DIE(203,"DIAB",3,0,2100,2)="007-5;""(007) GASTRIN/RIA 83248 - SPECIMEN"""
^DIE(203,"DIAB",3,0,2100,3)="011-5;""(011) GLOBULIN 84171 - QUALITY CONTROL"""
^DIE(203,"DIAB",3,0,2100,4)="016-5;""(016) GLUCOSE-6-PHOS DEHYROGENASE 82955 - TEST"""
^DIE(203,"DIAB",3,0,2100,5)="020-5;""(020) GLUTAMATE DEHYROGENASE 82965 - QUALITY CONTROL"""
^DIE(203,"DIAB",3,0,2100,6)="024-5;""(024) GLUTAMINE 82975 - STANDARD"""
^DIE(203,"DIAB",3,0,2100,7)="028-5;""(028) GROWTH HORMONE/RIA 83380 - TEST"""
^DIE(203,"DIAB",3,0,2100,8)="032-5;""(032) HAPTOGLOBIN ELECTROPHORESIS 83010 - QUALITY CONTROL"""
^DIE(203,"DIAB",3,0,2100,9)="036-5;""(036) HCG-BETA SUBUNIT-RIA 83015 - STANDARD"""
^DIE(203,"DIAB",4,0,2100,2)="008-5;""(008) GASTRIN/RIA 83248 - QUALITY CONTROL"""
^DIE(203,"DIAB",4,0,2100,3)="012-5;""(012) GLOBULIN 84171 - STANDARD"""
^DIE(203,"DIAB",4,0,2100,4)="017-5;""(017) GLUCOSE-6-PHOS DEHYROGENASE 82955 - QUALITY CONTROL"""
^DIE(203,"DIAB",4,0,2100,5)="021-5;""(021) GLUTAMATE DEHYROGENASE 82965 - STANDARD"""
^DIE(203,"DIAB",4,0,2100,6)="025-5;""(025) GLYCOPROTEIN,ELECTROPHORESIS 82985 - TEST"""
^DIE(203,"DIAB",4,0,2100,7)="029-5;""(029) GROWTH HORMONE/RIA 83380 - QUALITY CONTROL"""
^DIE(203,"DIAB",4,0,2100,8)="033-5;""(033) HAPTOGLOBIN ELECTROPHORESIS 83010 - STANDARD"""
^DIE(203,"DIAB",5,0,2100,3)="013-5;""(013) GLUCAGON/RIA 83250 - TEST"""
^DIE(203,"DIAB",9,0,2100,0)="001-5;""(001) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - INJECTION"""
^DIE(203,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - INJECTION~;"
^DIE(203,"DR",1,2100,1)="55.002(002) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - QUALITY CONTROL~;55.003(003) GAS CHROMATOGRAPHY/GC/NOT LISTED ELSEWHERE 82800 - STANDARD~;55.004(004) GASTRIC ANALYSIS,TUBELESS 82945 - SPECIMEN~;"
^DIE(203,"DR",1,2100,2)="55.005(005) GASTRIC ANALYSIS,TUBELESS 82945 - QUALITY CONTROL~;55.006(006) GASTRIC ANALYSIS,TUBELESS 82945 - STANDARD~;55.007(007) GASTRIN/RIA 83248 - SPECIMEN~;55.008(008) GASTRIN/RIA 83248 - QUALITY CONTROL~;"
^DIE(203,"DR",1,2100,3)="55.009(009) GASTRIN/RIA 83248 - STANDARD~;55.01(010) GLOBULIN 84171 - TEST~;55.011(011) GLOBULIN 84171 - QUALITY CONTROL~;55.012(012) GLOBULIN 84171 - STANDARD~;55.013(013) GLUCAGON/RIA 83250 - TEST~;"
^DIE(203,"DR",1,2100,4)="55.014(014) GLUCAGON/RIA 83250 - QUALITY CONTROL~;55.015(015) GLUCAGON/RIA 83250 - STANDARD~;55.016(016) GLUCOSE-6-PHOS DEHYROGENASE 82955 - TEST~;55.017(017) GLUCOSE-6-PHOS DEHYROGENASE 82955 - QUALITY CONTROL~;"
^DIE(203,"DR",1,2100,5)="55.018(018) GLUCOSE-6-PHOS DEHYROGENASE 82955 - STANDARD~;55.019(019) GLUTAMATE DEHYROGENASE 82965 - TEST~;55.02(020) GLUTAMATE DEHYROGENASE 82965 - QUALITY CONTROL~;55.021(021) GLUTAMATE DEHYROGENASE 82965 - STANDARD~;"
^DIE(203,"DR",1,2100,6)="55.022(022) GLUTAMINE 82975 - TEST~;55.023(023) GLUTAMINE 82975 - QUALITY CONTROL~;55.024(024) GLUTAMINE 82975 - STANDARD~;55.025(025) GLYCOPROTEIN,ELECTROPHORESIS 82985 - TEST~;"
^DIE(203,"DR",1,2100,7)="55.026(026) GLYCOPROTEIN,ELECTROPHORESIS 82985 - QUALITY CONTROL~;55.027(027) GLYCOPROTEIN,ELECTROPHORESIS 82985 - STANDARD~;55.028(028) GROWTH HORMONE/RIA 83380 - TEST~;55.029(029) GROWTH HORMONE/RIA 83380 - QUALITY CONTROL~;"
^DIE(203,"DR",1,2100,8)="55.03(030) GROWTH HORMONE/RIA 83380 - STANDARD~;55.031(031) HAPTOGLOBIN ELECTROPHORESIS 83010 - TEST~;55.032(032) HAPTOGLOBIN ELECTROPHORESIS 83010 - QUALITY CONTROL~;55.033(033) HAPTOGLOBIN ELECTROPHORESIS 83010 - STANDARD~;"
^DIE(203,"DR",1,2100,9)="55.034(034) HCG-BETA SUBUNIT-RIA 83015 - TEST~;55.035(035) HCG-BETA SUBUNIT-RIA 83015 - QUALITY CONTROL~;55.036(036) HCG-BETA SUBUNIT-RIA 83015 - STANDARD~;99///^S X=""$"";"
^DIE(204,0)="LR AMS5 DRUG AND TOXIC H55^2900411.1344^^2100^^^2931005"
^DIE(204,"DIAB",1,0,2100,1)="002-5;""(002) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,2)="005-5;""(005) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,3)="007-5;""(007) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - SUBSTANCE"""
^DIE(204,"DIAB",1,0,2100,4)="009-5;""(009) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - STANDARD"""
^DIE(204,"DIAB",1,0,2100,5)="011-5;""(011) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,6)="014-5;""(014) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,7)="017-5;""(017) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,8)="020-5;""(020) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,9)="023-5;""(023) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,10)="026-5;""(026) FLURAZEPAM/SERUM/QUANT/GC 81290 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,11)="029-5;""(029) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,12)="032-5;""(032) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - QUALITY CONTROL"""
^DIE(204,"DIAB",1,0,2100,13)="034-5;""(034) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - SUBSTANCE"""
^DIE(204,"DIAB",2,0,2100,1)="003-5;""(003) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,2)="006-5;""(006) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,3)="008-5;""(008) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - QUALITY CONTROL"""
^DIE(204,"DIAB",2,0,2100,4)="010-5;""(010) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - SUBSTANCE"""
^DIE(204,"DIAB",2,0,2100,5)="012-5;""(012) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,6)="015-5;""(015) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,7)="018-5;""(018) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,8)="021-5;""(021) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,9)="024-5;""(024) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,10)="027-5;""(027) FLURAZEPAM/SERUM/QUANT/GC 81290 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,11)="030-5;""(030) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,12)="033-5;""(033) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - STANDARD"""
^DIE(204,"DIAB",2,0,2100,13)="035-5;""(035) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - QUALITY CONTROL"""
^DIE(204,"DIAB",3,0,2100,1)="004-5;""(004) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - SUBSTANCE"""
^DIE(204,"DIAB",3,0,2100,5)="013-5;""(013) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - SUBSTANCE"""
^DIE(204,"DIAB",3,0,2100,6)="016-5;""(016) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - SUBSTANCE"""
^DIE(204,"DIAB",3,0,2100,7)="019-5;""(019) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - SUBSTANCE"""
^DIE(204,"DIAB",3,0,2100,8)="022-5;""(022) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - INJECTION"""
^DIE(204,"DIAB",3,0,2100,9)="025-5;""(025) FLURAZEPAM/SERUM/QUANT/GC 81290 - INJECTION"""
^DIE(204,"DIAB",3,0,2100,10)="028-5;""(028) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - INJECTION"""
^DIE(204,"DIAB",3,0,2100,11)="031-5;""(031) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - SUBSTANCE"""
^DIE(204,"DIAB",3,0,2100,13)="036-5;""(036) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - STANDARD"""
^DIE(204,"DIAB",9,0,2100,0)="001-5;""(001) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - APPLICATION"""
^DIE(204,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - APPLICATION~;"
^DIE(204,"DR",1,2100,1)="55.002(002) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - QUALITY CONTROL~;55.003(003) DRUG SCREEN,ACID,NEUTRAL/SERUM/TLC 81088 - STANDARD~;55.004(004) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,2)="55.005(005) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - QUALITY CONTROL~;55.006(006) ENZYME LINKED IMMUNOSORBENT ASSAY/ELISA/NOT LISTED ELSEWHERE 82803 - STANDARD~;"
^DIE(204,"DR",1,2100,3)="55.007(007) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - SUBSTANCE~;55.008(008) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - QUALITY CONTROL~;"
^DIE(204,"DR",1,2100,4)="55.009(009) ENZYME MULTIPLIED IMMUNOASSAY TECHNIQUE/EMIT/NOT LISTED ELSEWHERE 84993 - STANDARD~;55.01(010) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,5)="55.011(011) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - QUALITY CONTROL~;55.012(012) ENZYMATIC METHOD/ENZ/NOT LISTED ELSEWHERE 84765 - STANDARD~;55.013(013) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,6)="55.014(014) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - QUALITY CONTROL~;55.015(015) ETHCHLORVYNOL/SERUM/QUAL/COLOR 84767 - STANDARD~;55.016(016) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,7)="55.017(017) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - QUALITY CONTROL~;55.018(018) ETHCHLORVYNOL/SERUM/QUANT/VIS 84768 - STANDARD~;55.019(019) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,8)="55.02(020) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - QUALITY CONTROL~;55.021(021) ETHOSUXIMIDE/SERUM/QUANT/EMIT 84623 - STANDARD~;55.022(022) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - INJECTION~;"
^DIE(204,"DR",1,2100,9)="55.023(023) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - QUALITY CONTROL~;55.024(024) ETHYLENE GLYCOL/SERUM/QUANT/GC 84771 - STANDARD~;55.025(025) FLURAZEPAM/SERUM/QUANT/GC 81290 - INJECTION~;"
^DIE(204,"DR",1,2100,10)="55.026(026) FLURAZEPAM/SERUM/QUANT/GC 81290 - QUALITY CONTROL~;55.027(027) FLURAZEPAM/SERUM/QUANT/GC 81290 - STANDARD~;55.028(028) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - INJECTION~;"
^DIE(204,"DR",1,2100,11)="55.029(029) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - QUALITY CONTROL~;55.03(030) FLURAZEPAM/SERUM/QUANT/HPLC 81292 - STANDARD~;55.031(031) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - SUBSTANCE~;"
^DIE(204,"DR",1,2100,12)="55.032(032) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - QUALITY CONTROL~;55.033(033) FLUORESCENCE IMMUNOASSAY/FIA/NOT LISTED ELSEWHERE 84778 - STANDARD~;"
^DIE(204,"DR",1,2100,13)="55.034(034) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - SUBSTANCE~;55.035(035) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - QUALITY CONTROL~;55.036(036) FLUOROMETRY/FLUOR/NOT LISTED ELSEWHERE 84780 - STANDARD~;99///^S X=""$"";"
^DIE(205,0)="LR AMS5 CHEM MAN & AUTO H56^2900411.1405^^2100^^^2931005"
^DIE(205,"DIAB",1,0,2100,1)="002-5;""(002) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - QUALITY CONTROL"""
^DIE(205,"DIAB",1,0,2100,2)="005-5;""(005) HEMOGLOBIN A2 DISC ELECTRO 83022 - QUALITY CONTROL"""
^DIE(205,"DIAB",1,0,2100,3)="008-5;""(008) HEMOGLOBIN,FETAL CHEMICAL 83030 - QUALITY CONTROL"""
^DIE(205,"DIAB",1,0,2100,4)="011-5;""(011) HEMOGLOBIN,FETAL FECES QUAL 81033 - QUALITY CONTROL"""
^DIE(205,"DIAB",1,0,2100,5)="015-5;""(015) HEMOGLOBIN, PLASMA 83032 - STANDARD"""
^DIE(205,"DIAB",1,0,2100,6)="019-5;""(019) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - SPECIMEN"""
^DIE(205,"DIAB",1,0,2100,7)="022-5;""(022) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - PLATE"""
^DIE(205,"DIAB",1,0,2100,8)="025-5;""(025) HOMOGENTISIC ACID 83090 - TEST"""
^DIE(205,"DIAB",1,0,2100,9)="029-5;""(029) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - QUALITY CONTROL"""
^DIE(205,"DIAB",1,0,2100,10)="032-5;""(032) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - QUALITY CONTROL"""
^DIE(205,"DIAB",2,0,2100,1)="003-5;""(003) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - STANDARD"""
^DIE(205,"DIAB",2,0,2100,2)="006-5;""(006) HEMOGLOBIN A2 DISC ELECTRO 83022 - STANDARD"""
^DIE(205,"DIAB",2,0,2100,3)="009-5;""(009) HEMOGLOBIN,FETAL CHEMICAL 83030 - STANDARD"""
^DIE(205,"DIAB",2,0,2100,4)="012-5;""(012) HEMOGLOBIN,FETAL FECES QUAL 81033 - STANDARD"""
^DIE(205,"DIAB",2,0,2100,5)="016-5;""(016) HEMOSIDERIN, URINE 83070 - TEST"""
^DIE(205,"DIAB",2,0,2100,6)="020-5;""(020) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - QUALITY CONTROL"""
^DIE(205,"DIAB",2,0,2100,7)="023-5;""(023) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - QUALITY CONTROL"""
^DIE(205,"DIAB",2,0,2100,8)="026-5;""(026) HOMOGENTISIC ACID 83090 - QUALITY CONTROL"""
^DIE(205,"DIAB",2,0,2100,9)="030-5;""(030) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - STANDARD"""
^DIE(205,"DIAB",2,0,2100,10)="033-5;""(033) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - STANDARD"""
^DIE(205,"DIAB",3,0,2100,1)="004-5;""(004) HEMOGLOBIN A2 DISC ELECTRO 83022 - TEST"""
^DIE(205,"DIAB",3,0,2100,2)="007-5;""(007) HEMOGLOBIN,FETAL CHEMICAL 83030 - TEST"""
^DIE(205,"DIAB",3,0,2100,3)="010-5;""(010) HEMOGLOBIN,FETAL FECES QUAL 81033 - SPECIMEN"""
^DIE(205,"DIAB",3,0,2100,4)="013-5;""(013) HEMOGLOBIN, PLASMA 83032 - TEST"""
^DIE(205,"DIAB",3,0,2100,5)="017-5;""(017) HEMOSIDERIN, URINE 83070 - QUALITY CONTROL"""
^DIE(205,"DIAB",3,0,2100,6)="021-5;""(021) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - STANDARD"""
^DIE(205,"DIAB",3,0,2100,7)="024-5;""(024) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - STANDARD"""
^DIE(205,"DIAB",3,0,2100,8)="027-5;""(027) HOMOGENTISIC ACID 83090 - STANDARD"""
^DIE(205,"DIAB",3,0,2100,9)="031-5;""(031) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - TEST"""
^DIE(205,"DIAB",4,0,2100,4)="014-5;""(014) HEMOGLOBIN, PLASMA 83032 - QUALITY CONTROL"""
^DIE(205,"DIAB",4,0,2100,5)="018-5;""(018) HEMOSIDERIN, URINE 83070 - STANDARD"""
^DIE(205,"DIAB",4,0,2100,8)="028-5;""(028) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - TEST"""
^DIE(205,"DIAB",9,0,2100,0)="001-5;""(001) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - TEST"""
^DIE(205,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - TEST~;"
^DIE(205,"DR",1,2100,1)="55.002(002) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - QUALITY CONTROL~;55.003(003) HEMOGLOBIN A2 COLUMN CHROM/VIS 83057 - STANDARD~;55.004(004) HEMOGLOBIN A2 DISC ELECTRO 83022 - TEST~;"
^DIE(205,"DR",1,2100,2)="55.005(005) HEMOGLOBIN A2 DISC ELECTRO 83022 - QUALITY CONTROL~;55.006(006) HEMOGLOBIN A2 DISC ELECTRO 83022 - STANDARD~;55.007(007) HEMOGLOBIN,FETAL CHEMICAL 83030 - TEST~;"
^DIE(205,"DR",1,2100,3)="55.008(008) HEMOGLOBIN,FETAL CHEMICAL 83030 - QUALITY CONTROL~;55.009(009) HEMOGLOBIN,FETAL CHEMICAL 83030 - STANDARD~;55.01(010) HEMOGLOBIN,FETAL FECES QUAL 81033 - SPECIMEN~;"
^DIE(205,"DR",1,2100,4)="55.011(011) HEMOGLOBIN,FETAL FECES QUAL 81033 - QUALITY CONTROL~;55.012(012) HEMOGLOBIN,FETAL FECES QUAL 81033 - STANDARD~;55.013(013) HEMOGLOBIN, PLASMA 83032 - TEST~;55.014(014) HEMOGLOBIN, PLASMA 83032 - QUALITY CONTROL~;"
^DIE(205,"DR",1,2100,5)="55.015(015) HEMOGLOBIN, PLASMA 83032 - STANDARD~;55.016(016) HEMOSIDERIN, URINE 83070 - TEST~;55.017(017) HEMOSIDERIN, URINE 83070 - QUALITY CONTROL~;55.018(018) HEMOSIDERIN, URINE 83070 - STANDARD~;"
^DIE(205,"DR",1,2100,6)="55.019(019) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - SPECIMEN~;55.02(020) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - QUALITY CONTROL~;55.021(021) HEPATITIS B SURFACE ANTIGEN (HBsAg)/RIA 86287 - STANDARD~;"
^DIE(205,"DR",1,2100,7)="55.022(022) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - PLATE~;55.023(023) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - QUALITY CONTROL~;55.024(024) HEPATITIS B SURFACE ANTIGEN (HBsAg),CEP 86285 - STANDARD~;"
^DIE(205,"DR",1,2100,8)="55.025(025) HOMOGENTISIC ACID 83090 - TEST~;55.026(026) HOMOGENTISIC ACID 83090 - QUALITY CONTROL~;55.027(027) HOMOGENTISIC ACID 83090 - STANDARD~;55.028(028) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - TEST~;"
^DIE(205,"DR",1,2100,9)="55.029(029) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - QUALITY CONTROL~;55.03(030) HYDROXYBUTYRIC DEHYDROGENASE,ALPHA 82115 - STANDARD~;55.031(031) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - TEST~;"
^DIE(205,"DR",1,2100,10)="55.032(032) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - QUALITY CONTROL~;55.033(033) HYDROXYBUTYRIC DEHYDROGENASE,SERUM 83495 - STANDARD~;99///^S X=""$"";"
^DIE(206,0)="LR AMS5 DRUG AND TOXIC H57^2900411.1455^^2100^^^2931005"
^DIE(206,"DIAB",1,0,2100,1)="002-5;""(002) GENTAMICIN/SERUM/QUANT/EMIT 81300 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,2)="005-5;""(005) GENTAMICIN/SERUM/QUANT/RIA 82796 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,3)="008-5;""(008) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,4)="011-5;""(011) HALOPERIDOL/SERUM/QUANT/GC 81320 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,5)="014-5;""(014) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,6)="016-5;""(016) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - INJECTION"""
^DIE(206,"DIAB",1,0,2100,7)="018-5;""(018) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - STANDARD"""
^DIE(206,"DIAB",1,0,2100,8)="021-5;""(021) LEAD/BLOOD/QUANT 84809 - STANDARD"""
^DIE(206,"DIAB",1,0,2100,9)="025-5;""(025) LEAD/URINE/QUANT 84810 - SUBSTANCE"""
^DIE(206,"DIAB",1,0,2100,10)="029-5;""(029) LEAD/URINE/QUANT/AA 84813 - QUALITY CONTROL"""
^DIE(206,"DIAB",1,0,2100,11)="033-5;""(033) LIDOCAINE/SERUM/QUANT/EMIT 84820 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,1)="003-5;""(003) GENTAMICIN/SERUM/QUANT/EMIT 81300 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,2)="006-5;""(006) GENTAMICIN/SERUM/QUANT/RIA 82796 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,3)="009-5;""(009) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,4)="012-5;""(012) HALOPERIDOL/SERUM/QUANT/GC 81320 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,5)="015-5;""(015) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,6)="017-5;""(017) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - QUALITY CONTROL"""
^DIE(206,"DIAB",2,0,2100,7)="019-5;""(019) LEAD/BLOOD/QUANT 84809 - SUBSTANCE"""
^DIE(206,"DIAB",2,0,2100,8)="022-5;""(022) LEAD/BLOOD/QUANT/AA 84811 - SUBSTANCE"""
^DIE(206,"DIAB",2,0,2100,9)="026-5;""(026) LEAD/URINE/QUANT 84810 - QUALITY CONTROL"""
^DIE(206,"DIAB",2,0,2100,10)="030-5;""(030) LEAD/URINE/QUANT/AA 84813 - STANDARD"""
^DIE(206,"DIAB",2,0,2100,11)="034-5;""(034) LIDOCAINE/SERUM/QUANT/GC 84819 - INJECTION"""
^DIE(206,"DIAB",3,0,2100,1)="004-5;""(004) GENTAMICIN/SERUM/QUANT/RIA 82796 - SUBSTANCE"""
^DIE(206,"DIAB",3,0,2100,2)="007-5;""(007) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - INJECTION"""
^DIE(206,"DIAB",3,0,2100,3)="010-5;""(010) HALOPERIDOL/SERUM/QUANT/GC 81320 - INJECTION"""
^DIE(206,"DIAB",3,0,2100,4)="013-5;""(013) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - SUBSTANCE"""
^DIE(206,"DIAB",3,0,2100,7)="020-5;""(020) LEAD/BLOOD/QUANT 84809 - QUALITY CONTROL"""
^DIE(206,"DIAB",3,0,2100,8)="023-5;""(023) LEAD/BLOOD/QUANT/AA 84811 - QUALITY CONTROL"""
^DIE(206,"DIAB",3,0,2100,9)="027-5;""(027) LEAD/URINE/QUANT 84810 - STANDARD"""
^DIE(206,"DIAB",3,0,2100,10)="031-5;""(031) LIDOCAINE/SERUM/QUANT/EMIT 84820 - SUBSTANCE"""
^DIE(206,"DIAB",3,0,2100,11)="035-5;""(035) LIDOCAINE/SERUM/QUANT/GC 84819 - QUALITY CONTROL"""
^DIE(206,"DIAB",4,0,2100,8)="024-5;""(024) LEAD/BLOOD/QUANT/AA 84811 - STANDARD"""
^DIE(206,"DIAB",4,0,2100,9)="028-5;""(028) LEAD/URINE/QUANT/AA 84813 - SUBSTANCE"""
^DIE(206,"DIAB",4,0,2100,10)="032-5;""(032) LIDOCAINE/SERUM/QUANT/EMIT 84820 - QUALITY CONTROL"""
^DIE(206,"DIAB",4,0,2100,11)="036-5;""(036) LIDOCAINE/SERUM/QUANT/GC 84819 - STANDARD"""
^DIE(206,"DIAB",9,0,2100,0)="001-5;""(001) GENTAMICIN/SERUM/QUANT/EMIT 81300 - SUBSTANCE"""
^DIE(206,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) GENTAMICIN/SERUM/QUANT/EMIT 81300 - SUBSTANCE~;"
^DIE(206,"DR",1,2100,1)="55.002(002) GENTAMICIN/SERUM/QUANT/EMIT 81300 - QUALITY CONTROL~;55.003(003) GENTAMICIN/SERUM/QUANT/EMIT 81300 - STANDARD~;55.004(004) GENTAMICIN/SERUM/QUANT/RIA 82796 - SUBSTANCE~;"
^DIE(206,"DR",1,2100,2)="55.005(005) GENTAMICIN/SERUM/QUANT/RIA 82796 - QUALITY CONTROL~;55.006(006) GENTAMICIN/SERUM/QUANT/RIA 82796 - STANDARD~;55.007(007) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - INJECTION~;"
^DIE(206,"DR",1,2100,3)="55.008(008) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - QUALITY CONTROL~;55.009(009) GLUTETHIMIDE/SERUM/QUANT/GC 84781 - STANDARD~;55.01(010) HALOPERIDOL/SERUM/QUANT/GC 81320 - INJECTION~;"
^DIE(206,"DR",1,2100,4)="55.011(011) HALOPERIDOL/SERUM/QUANT/GC 81320 - QUALITY CONTROL~;55.012(012) HALOPERIDOL/SERUM/QUANT/GC 81320 - STANDARD~;55.013(013) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - SUBSTANCE~;"
^DIE(206,"DR",1,2100,5)="55.014(014) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - QUALITY CONTROL~;55.015(015) HEAVY METAL SCREEN/URINE/QUAL/REINSCH 84792 - STANDARD~;"
^DIE(206,"DR",1,2100,6)="55.016(016) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - INJECTION~;55.017(017) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - QUALITY CONTROL~;"
^DIE(206,"DR",1,2100,7)="55.018(018) HIGH PRESSURE LIQUID CHROMATOGRAPHY/HPLC/NOT LISTED ELSEWHERE 84791 - STANDARD~;55.019(019) LEAD/BLOOD/QUANT 84809 - SUBSTANCE~;55.02(020) LEAD/BLOOD/QUANT 84809 - QUALITY CONTROL~;"
^DIE(206,"DR",1,2100,8)="55.021(021) LEAD/BLOOD/QUANT 84809 - STANDARD~;55.022(022) LEAD/BLOOD/QUANT/AA 84811 - SUBSTANCE~;55.023(023) LEAD/BLOOD/QUANT/AA 84811 - QUALITY CONTROL~;55.024(024) LEAD/BLOOD/QUANT/AA 84811 - STANDARD~;"
^DIE(206,"DR",1,2100,9)="55.025(025) LEAD/URINE/QUANT 84810 - SUBSTANCE~;55.026(026) LEAD/URINE/QUANT 84810 - QUALITY CONTROL~;55.027(027) LEAD/URINE/QUANT 84810 - STANDARD~;55.028(028) LEAD/URINE/QUANT/AA 84813 - SUBSTANCE~;"
^DIE(206,"DR",1,2100,10)="55.029(029) LEAD/URINE/QUANT/AA 84813 - QUALITY CONTROL~;55.03(030) LEAD/URINE/QUANT/AA 84813 - STANDARD~;55.031(031) LIDOCAINE/SERUM/QUANT/EMIT 84820 - SUBSTANCE~;55.032(032) LIDOCAINE/SERUM/QUANT/EMIT 84820 - QUALITY CONTROL~;"
^DIE(206,"DR",1,2100,11)="55.033(033) LIDOCAINE/SERUM/QUANT/EMIT 84820 - STANDARD~;55.034(034) LIDOCAINE/SERUM/QUANT/GC 84819 - INJECTION~;55.035(035) LIDOCAINE/SERUM/QUANT/GC 84819 - QUALITY CONTROL~;55.036(036) LIDOCAINE/SERUM/QUANT/GC 84819 - STANDARD~;"
^DIE(206,"DR",1,2100,12)="99///^S X=""$"";"
^DIE(207,0)="LR AMS5 CHEM MAN & AUTO H58^2900411.1516^^2100^^^2931005"
^DIE(207,"DIAB",1,0,2100,1)="002-5;""(002) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - QUALITY CONTROL"""
^DIE(207,"DIAB",1,0,2100,2)="005-5;""(005) HYDROXYIND ACET ACID,5-,QUANT 84265 - QUALITY CONTROL"""
^DIE(207,"DIAB",1,0,2100,3)="008-5;""(008) HYDROXYIND ACET ACID,5-,SCREEN 84263 - QUALITY CONTROL"""
^DIE(207,"DIAB",1,0,2100,4)="011-5;""(011) HYDROXYPROGESTERONE/RIA 83253 - QUALITY CONTROL"""
^DIE(207,"DIAB",1,0,2100,5)="015-5;""(015) HYDROXYPROLINE/URINE/VIS 83251 - STANDARD"""
^DIE(207,"DIAB",1,0,2100,6)="019-5;""(019) INSULIN/RIA 83254 - TEST"""
^DIE(207,"DIAB",1,0,2100,7)="023-5;""(023) ISOCITRIC DEHYDROGENASE 83575 - QUALITY CONTROL"""
^DIE(207,"DIAB",1,0,2100,8)="027-5;""(027) KETOGENIC STEROIDS 83255 - STANDARD"""
^DIE(207,"DIAB",1,0,2100,9)="030-5;""(030) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - STANDARD"""
^DIE(207,"DIAB",1,0,2100,10)="033-5;""(033) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - STANDARD"""
^DIE(207,"DIAB",1,0,2100,11)="036-5;""(036) LACTATE DEHYDROGENASE (LD),URINE 83635 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,1)="003-5;""(003) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,2)="006-5;""(006) HYDROXYIND ACET ACID,5-,QUANT 84265 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,3)="009-5;""(009) HYDROXYIND ACET ACID,5-,SCREEN 84263 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,4)="012-5;""(012) HYDROXYPROGESTERONE/RIA 83253 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,5)="016-5;""(016) IMMUNOGLOBULIN (IgE)/RIA 86314 - TEST"""
^DIE(207,"DIAB",2,0,2100,6)="020-5;""(020) INSULIN/RIA 83254 - QUALITY CONTROL"""
^DIE(207,"DIAB",2,0,2100,7)="024-5;""(024) ISOCITRIC DEHYDROGENASE 83575 - STANDARD"""
^DIE(207,"DIAB",2,0,2100,8)="028-5;""(028) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - SPECIMEN"""
^DIE(207,"DIAB",2,0,2100,9)="031-5;""(031) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - TEST"""
^DIE(207,"DIAB",2,0,2100,10)="034-5;""(034) LACTATE DEHYDROGENASE (LD),URINE 83635 - TEST"""
^DIE(207,"DIAB",3,0,2100,1)="004-5;""(004) HYDROXYIND ACET ACID,5-,QUANT 84265 - TEST"""
^DIE(207,"DIAB",3,0,2100,2)="007-5;""(007) HYDROXYIND ACET ACID,5-,SCREEN 84263 - TEST"""
^DIE(207,"DIAB",3,0,2100,3)="010-5;""(010) HYDROXYPROGESTERONE/RIA 83253 - TEST"""
^DIE(207,"DIAB",3,0,2100,4)="013-5;""(013) HYDROXYPROLINE/URINE/VIS 83251 - TEST"""
^DIE(207,"DIAB",3,0,2100,5)="017-5;""(017) IMMUNOGLOBULIN (IgE)/RIA 86314 - QUALITY CONTROL"""
^DIE(207,"DIAB",3,0,2100,6)="021-5;""(021) INSULIN/RIA 83254 - STANDARD"""
^DIE(207,"DIAB",3,0,2100,7)="025-5;""(025) KETOGENIC STEROIDS 83255 - TEST"""
^DIE(207,"DIAB",3,0,2100,8)="029-5;""(029) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - QUALITY CONTROL"""
^DIE(207,"DIAB",3,0,2100,9)="032-5;""(032) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - QUALITY CONTROL"""
^DIE(207,"DIAB",3,0,2100,10)="035-5;""(035) LACTATE DEHYDROGENASE (LD),URINE 83635 - QUALITY CONTROL"""
^DIE(207,"DIAB",4,0,2100,4)="014-5;""(014) HYDROXYPROLINE/URINE/VIS 83251 - QUALITY CONTROL"""
^DIE(207,"DIAB",4,0,2100,5)="018-5;""(018) IMMUNOGLOBULIN (IgE)/RIA 86314 - STANDARD"""
^DIE(207,"DIAB",4,0,2100,6)="022-5;""(022) ISOCITRIC DEHYDROGENASE 83575 - TEST"""
^DIE(207,"DIAB",4,0,2100,7)="026-5;""(026) KETOGENIC STEROIDS 83255 - QUALITY CONTROL"""
^DIE(207,"DIAB",9,0,2100,0)="001-5;""(001) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - TEST"""
^DIE(207,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - TEST~;"
^DIE(207,"DR",1,2100,1)="55.002(002) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - QUALITY CONTROL~;55.003(003) HYDROXYCORTICOSTEROIDS,17-/URINE/QUANT 83496 - STANDARD~;55.004(004) HYDROXYIND ACET ACID,5-,QUANT 84265 - TEST~;"
^DIE(207,"DR",1,2100,2)="55.005(005) HYDROXYIND ACET ACID,5-,QUANT 84265 - QUALITY CONTROL~;55.006(006) HYDROXYIND ACET ACID,5-,QUANT 84265 - STANDARD~;55.007(007) HYDROXYIND ACET ACID,5-,SCREEN 84263 - TEST~;"
^DIE(207,"DR",1,2100,3)="55.008(008) HYDROXYIND ACET ACID,5-,SCREEN 84263 - QUALITY CONTROL~;55.009(009) HYDROXYIND ACET ACID,5-,SCREEN 84263 - STANDARD~;55.01(010) HYDROXYPROGESTERONE/RIA 83253 - TEST~;"
^DIE(207,"DR",1,2100,4)="55.011(011) HYDROXYPROGESTERONE/RIA 83253 - QUALITY CONTROL~;55.012(012) HYDROXYPROGESTERONE/RIA 83253 - STANDARD~;55.013(013) HYDROXYPROLINE/URINE/VIS 83251 - TEST~;55.014(014) HYDROXYPROLINE/URINE/VIS 83251 - QUALITY CONTROL~;"
^DIE(207,"DR",1,2100,5)="55.015(015) HYDROXYPROLINE/URINE/VIS 83251 - STANDARD~;55.016(016) IMMUNOGLOBULIN (IgE)/RIA 86314 - TEST~;55.017(017) IMMUNOGLOBULIN (IgE)/RIA 86314 - QUALITY CONTROL~;55.018(018) IMMUNOGLOBULIN (IgE)/RIA 86314 - STANDARD~;"
^DIE(207,"DR",1,2100,6)="55.019(019) INSULIN/RIA 83254 - TEST~;55.02(020) INSULIN/RIA 83254 - QUALITY CONTROL~;55.021(021) INSULIN/RIA 83254 - STANDARD~;55.022(022) ISOCITRIC DEHYDROGENASE 83575 - TEST~;"
^DIE(207,"DR",1,2100,7)="55.023(023) ISOCITRIC DEHYDROGENASE 83575 - QUALITY CONTROL~;55.024(024) ISOCITRIC DEHYDROGENASE 83575 - STANDARD~;55.025(025) KETOGENIC STEROIDS 83255 - TEST~;55.026(026) KETOGENIC STEROIDS 83255 - QUALITY CONTROL~;"
^DIE(207,"DR",1,2100,8)="55.027(027) KETOGENIC STEROIDS 83255 - STANDARD~;55.028(028) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - SPECIMEN~;55.029(029) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - QUALITY CONTROL~;"
^DIE(207,"DR",1,2100,9)="55.03(030) KETOSTEROIDS,17-,TOT & BETA FRAC 83290 - STANDARD~;55.031(031) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - TEST~;55.032(032) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - QUALITY CONTROL~;"
^DIE(207,"DR",1,2100,10)="55.033(033) KETOSTEROIDS,17-,TOT NEUTRAL 83280 - STANDARD~;55.034(034) LACTATE DEHYDROGENASE (LD),URINE 83635 - TEST~;55.035(035) LACTATE DEHYDROGENASE (LD),URINE 83635 - QUALITY CONTROL~;"
^DIE(207,"DR",1,2100,11)="55.036(036) LACTATE DEHYDROGENASE (LD),URINE 83635 - STANDARD~;99///^S X=""$"";"
^DIE(208,0)="LR AMS5 DRUG AND TOXIC H59^2900411.155^^2100^^^2931005"
^DIE(208,"DIAB",1,0,2100,1)="002-5;""(002) LIDOCAINE/SERUM/QUANT/HPLC 81330 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,2)="005-5;""(005) LITHIUM/SERUM/QUANT/AA 84822.01 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,3)="008-5;""(008) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,4)="011-5;""(011) MANGANESE 84828 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,5)="014-5;""(014) MASS SPECTROMETRY/MS/NOT LISTED ELSEWHERE 84830 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,6)="017-5;""(017) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,7)="020-5;""(020) METHADONE/URINE/QUANT/EMIT 84847 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,8)="023-5;""(023) METHAQUALONE/SERUM/QUAL/EMIT 84861 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,9)="026-5;""(026) METHAQUALONE/SERUM/QUAL/RIA 84863 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,10)="029-5;""(029) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,11)="032-5;""(032) METHOTREXATE/SERUM/QUANT/EMIT 84876 - QUALITY CONTROL"""
^DIE(208,"DIAB",1,0,2100,12)="035-5;""(035) METHOTREXATE/SERUM/QUANT/ENZ 81352 - QUALITY CONTROL"""
^DIE(208,"DIAB",2,0,2100,1)="003-5;""(003) LIDOCAINE/SERUM/QUANT/HPLC 81330 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,2)="006-5;""(006) LITHIUM/SERUM/QUANT/AA 84822.01 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,3)="009-5;""(009) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,4)="012-5;""(012) MANGANESE 84828 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,5)="015-5;""(015) MASS SPECTORMETRY/MS/NOT LISTED ELSEWHERE 84830 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,6)="018-5;""(018) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,7)="021-5;""(021) METHADONE/URINE/QUANT/EMIT 84847 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,8)="024-5;""(024) METHAQUALONE/SERUM/QUAL/EMIT 84861 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,9)="027-5;""(027) METHAQUALONE/SERUM/QUAL/RIA 84863 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,10)="030-5;""(030) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,11)="033-5;""(033) METHOTREXATE/SERUM/QUANT/EMIT 84876 - STANDARD"""
^DIE(208,"DIAB",2,0,2100,12)="036-5;""(036) METHOTREXATE/SERUM/QUANT/ENZ 81352 - STANDARD"""
^DIE(208,"DIAB",3,0,2100,1)="004-5;""(004) LITHIUM/SERUM/QUANT/AA 84822.01 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,2)="007-5;""(007) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,3)="010-5;""(010) MANGANESE 84828 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,4)="013-5;""(013) MASS SPECTROMETRY/MS/NOT LISTED ELSEWHERE 84830 - INJECTION"""
^DIE(208,"DIAB",3,0,2100,5)="016-5;""(016) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,6)="019-5;""(019) METHADONE/URINE/QUANT/EMIT 84847 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,7)="022-5;""(022) METHAQUALONE/SERUM/QUAL/EMIT 84861 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,8)="025-5;""(025) METHAQUALONE/SERUM/QUAL/RIA 84863 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,9)="028-5;""(028) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,10)="031-5;""(031) METHOTREXATE/SERUM/QUANT/EMIT 84876 - SUBSTANCE"""
^DIE(208,"DIAB",3,0,2100,11)="034-5;""(034) METHOTREXATE/SERUM/QUANT/ENZ 81352 - SUBSTANCE"""
^DIE(208,"DIAB",9,0,2100,0)="001-5;""(001) LIDOCAINE/SERUM/QUANT/HPLC 81330 - INJECTION"""
^DIE(208,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) LIDOCAINE/SERUM/QUANT/HPLC 81330 - INJECTION~;"
^DIE(208,"DR",1,2100,1)="55.002(002) LIDOCAINE/SERUM/QUANT/HPLC 81330 - QUALITY CONTROL~;55.003(003) LIDOCAINE/SERUM/QUANT/HPLC 81330 - STANDARD~;55.004(004) LITHIUM/SERUM/QUANT/AA 84822.01 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,2)="55.005(005) LITHIUM/SERUM/QUANT/AA 84822.01 - QUALITY CONTROL~;55.006(006) LITHIUM/SERUM/QUANT/AA 84822.01 - STANDARD~;55.007(007) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,3)="55.008(008) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - QUALITY CONTROL~;55.009(009) LYSERGIC ACID DIETHYLAMIDE (LSD)/SERUM/QUANT/RIA 84824 - STANDARD~;55.01(010) MANGANESE 84828 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,4)="55.011(011) MANGANESE 84828 - QUALITY CONTROL~;55.012(012) MANGANESE 84828 - STANDARD~;55.013(013) MASS SPECTROMETRY/MS/NOT LISTED ELSEWHERE 84830 - INJECTION~;"
^DIE(208,"DR",1,2100,5)="55.014(014) MASS SPECTROMETRY/MS/NOT LISTED ELSEWHERE 84830 - QUALITY CONTROL~;55.015(015) MASS SPECTORMETRY/MS/NOT LISTED ELSEWHERE 84830 - STANDARD~;55.016(016) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,6)="55.017(017) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - QUALITY CONTROL~;55.018(018) MICROBIOLOGICAL ASSAY/BIO/NOT LISTED ELSEWHERE 84831 - STANDARD~;55.019(019) METHADONE/URINE/QUANT/EMIT 84847 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,7)="55.02(020) METHADONE/URINE/QUANT/EMIT 84847 - QUALITY CONTROL~;55.021(021) METHADONE/URINE/QUANT/EMIT 84847 - STANDARD~;55.022(022) METHAQUALONE/SERUM/QUAL/EMIT 84861 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,8)="55.023(023) METHAQUALONE/SERUM/QUAL/EMIT 84861 - QUALITY CONTROL~;55.024(024) METHAQUALONE/SERUM/QUAL/EMIT 84861 - STANDARD~;55.025(025) METHAQUALONE/SERUM/QUAL/RIA 84863 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,9)="55.026(026) METHAQUALONE/SERUM/QUAL/RIA 84863 - QUALITY CONTROL~;55.027(027) METHAQUALONE/SERUM/QUAL/RIA 84863 - STANDARD~;55.028(028) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,10)="55.029(029) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - QUALITY CONTROL~;55.03(030) METHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84865 - STANDARD~;55.031(031) METHOTREXATE/SERUM/QUANT/EMIT 84876 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,11)="55.032(032) METHOTREXATE/SERUM/QUANT/EMIT 84876 - QUALITY CONTROL~;55.033(033) METHOTREXATE/SERUM/QUANT/EMIT 84876 - STANDARD~;55.034(034) METHOTREXATE/SERUM/QUANT/ENZ 81352 - SUBSTANCE~;"
^DIE(208,"DR",1,2100,12)="55.035(035) METHOTREXATE/SERUM/QUANT/ENZ 81352 - QUALITY CONTROL~;55.036(036) METHOTREXATE/SERUM/QUANT/ENZ 81352 - STANDARD~;99///^S X=""$"";"
^DIE(209,0)="LR AMS5 CHEM MAN & AUTO H60^2900411.1607^^2100^^^2931005"
^DIE(209,"DIAB",1,0,2100,1)="003-5;""(003) LACTIC ACID 83605 - STANDARD"""
^DIE(209,"DIAB",1,0,2100,2)="007-5;""(007) LEUCINE AMINO PEPTIDASE 83675 - TEST"""
^DIE(209,"DIAB",1,0,2100,3)="011-5;""(011) LIPASE,BLOOD 83690 - QUALITY CONTROL"""
^DIE(209,"DIAB",1,0,2100,4)="016-5;""(016) LUTEINIZING HORMONE/RIA 83305 - TEST"""
^DIE(209,"DIAB",1,0,2100,5)="020-5;""(020) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - QUALITY CONTROL"""
^DIE(209,"DIAB",1,0,2100,6)="024-5;""(024) MAGNESIUM 83735 - STANDARD"""
^DIE(209,"DIAB",1,0,2100,7)="029-5;""(029) METHEMALBUMIN,QUANT 83857 - QUALITY CONTROL"""
^DIE(209,"DIAB",1,0,2100,8)="033-5;""(033) MYOGLOBIN,URINE 83875 - STANDARD"""
^DIE(209,"DIAB",1,0,2100,9)="036-5;""(036) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - STANDARD"""
^DIE(209,"DIAB",2,0,2100,1)="004-5;""(004) LACTOSE,QUAL,URINE 83642 - TEST"""
^DIE(209,"DIAB",2,0,2100,2)="008-5;""(008) LEUCINE AMINO PEPTIDASE 83675 - QUALITY CONTROL"""
^DIE(209,"DIAB",2,0,2100,3)="012-5;""(012) LIPASE,BLOOD 83690 - STANDARD"""
^DIE(209,"DIAB",2,0,2100,4)="017-5;""(017) LUTEINIZING HORMONE/RIA 83305 - QUALITY CONTROL"""
^DIE(209,"DIAB",2,0,2100,5)="021-5;""(021) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - STANDARD"""
^DIE(209,"DIAB",2,0,2100,6)="025-5;""(025) METANEPHRINES 83145 - TEST"""
^DIE(209,"DIAB",2,0,2100,7)="030-5;""(030) METHEMALBUMIN,QUANT 83857 - STANDARD"""
^DIE(209,"DIAB",2,0,2100,8)="034-5;""(034) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - CONST"""
^DIE(209,"DIAB",3,0,2100,1)="005-5;""(005) LACTOSE,QUAL,URINE 83642 - QUALITY CONTROL"""
^DIE(209,"DIAB",3,0,2100,2)="009-5;""(009) LEUCINE AMINO PEPTIDASE 83675 - STANDARD"""
^DIE(209,"DIAB",3,0,2100,3)="013-5;""(013) LIPIDS, TOTAL 83700 - TEST"""
^DIE(209,"DIAB",3,0,2100,4)="018-5;""(018) LUTEINIZING HORMONE/RIA 83305 - STANDARD"""
^DIE(209,"DIAB",3,0,2100,5)="022-5;""(022) MAGNESIUM 83735 - TEST"""
^DIE(209,"DIAB",3,0,2100,6)="026-5;""(026) METANEPHRINES 83145 - QUALITY CONTROL"""
^DIE(209,"DIAB",3,0,2100,7)="031-5;""(031) MYOGLOBIN,URINE 83875 - TEST"""
^DIE(209,"DIAB",3,0,2100,8)="035-5;""(035) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - QUALITY CONTROL"""
^DIE(209,"DIAB",4,0,2100,1)="006-5;""(006) LACTOSE,QUAL,URINE 83642 - STANDARD"""
^DIE(209,"DIAB",4,0,2100,2)="010-5;""(010) LIPASE,BLOOD 83690 - TEST"""
^DIE(209,"DIAB",4,0,2100,3)="014-5;""(014) LIPIDS, TOTAL 83700 - QUALITY CONTROL"""
^DIE(209,"DIAB",4,0,2100,4)="019-5;""(019) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - TEST"""
^DIE(209,"DIAB",4,0,2100,5)="023-5;""(023) MAGNESIUM 83735 - QUALITY CONTROL"""
^DIE(209,"DIAB",4,0,2100,6)="027-5;""(027) METANEPHRINES 83145 - STANDARD"""
^DIE(209,"DIAB",4,0,2100,7)="032-5;""(032) MYOGLOBIN,URINE 83875 - QUALITY CONTROL"""
^DIE(209,"DIAB",5,0,2100,3)="015-5;""(015) LIPIDS, TOTAL 83700 - STANDARD"""
^DIE(209,"DIAB",5,0,2100,6)="028-5;""(028) METHEMALBUMIN,QUANT 83857 - TEST"""
^DIE(209,"DIAB",9,0,2100,0)="001-5;""(001) LACTIC ACID 83605 - TEST"""
^DIE(209,"DIAB",10,0,2100,0)="002-5;""(002) LACTIC ACID 83605 - QUALITY CONTROL"""
^DIE(209,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) LACTIC ACID 83605 - TEST~;55.002(002) LACTIC ACID 83605 - QUALITY CONTROL~;"
^DIE(209,"DR",1,2100,1)="55.003(003) LACTIC ACID 83605 - STANDARD~;55.004(004) LACTOSE,QUAL,URINE 83642 - TEST~;55.005(005) LACTOSE,QUAL,URINE 83642 - QUALITY CONTROL~;55.006(006) LACTOSE,QUAL,URINE 83642 - STANDARD~;"
^DIE(209,"DR",1,2100,2)="55.007(007) LEUCINE AMINO PEPTIDASE 83675 - TEST~;55.008(008) LEUCINE AMINO PEPTIDASE 83675 - QUALITY CONTROL~;55.009(009) LEUCINE AMINO PEPTIDASE 83675 - STANDARD~;55.01(010) LIPASE,BLOOD 83690 - TEST~;"
^DIE(209,"DR",1,2100,3)="55.011(011) LIPASE,BLOOD 83690 - QUALITY CONTROL~;55.012(012) LIPASE,BLOOD 83690 - STANDARD~;55.013(013) LIPIDS, TOTAL 83700 - TEST~;55.014(014) LIPIDS, TOTAL 83700 - QUALITY CONTROL~;55.015(015) LIPIDS, TOTAL 83700 - STANDARD~;"
^DIE(209,"DR",1,2100,4)="55.016(016) LUTEINIZING HORMONE/RIA 83305 - TEST~;55.017(017) LUTEINIZING HORMONE/RIA 83305 - QUALITY CONTROL~;55.018(018) LUTEINIZING HORMONE/RIA 83305 - STANDARD~;55.019(019) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - TEST~;"
^DIE(209,"DR",1,2100,5)="55.02(020) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - QUALITY CONTROL~;55.021(021) LYSOZYME (MURAMIDASE)/QUANT/VIS 83720 - STANDARD~;55.022(022) MAGNESIUM 83735 - TEST~;55.023(023) MAGNESIUM 83735 - QUALITY CONTROL~;"
^DIE(209,"DR",1,2100,6)="55.024(024) MAGNESIUM 83735 - STANDARD~;55.025(025) METANEPHRINES 83145 - TEST~;55.026(026) METANEPHRINES 83145 - QUALITY CONTROL~;55.027(027) METANEPHRINES 83145 - STANDARD~;55.028(028) METHEMALBUMIN,QUANT 83857 - TEST~;"
^DIE(209,"DR",1,2100,7)="55.029(029) METHEMALBUMIN,QUANT 83857 - QUALITY CONTROL~;55.03(030) METHEMALBUMIN,QUANT 83857 - STANDARD~;55.031(031) MYOGLOBIN,URINE 83875 - TEST~;55.032(032) MYOGLOBIN,URINE 83875 - QUALITY CONTROL~;"
^DIE(209,"DR",1,2100,8)="55.033(033) MYOGLOBIN,URINE 83875 - STANDARD~;55.034(034) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - CONST~;55.035(035) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - QUALITY CONTROL~;"
^DIE(209,"DR",1,2100,9)="55.036(036) NEPHELOMETRY/NEPH/NOT LISTED ELSEWHERE 83909 - STANDARD~;99///^S X=""$"";"
^DIE(210,0)="LR AMS5 DRUG AND TOXIC H61^2900411.1624^^2100^^^2931005"
^DIE(210,"DIAB",1,0,2100,1)="003-5;""(003) MORPHINE/URINE/QUAL/GC 84879 - STANDARD"""
^DIE(210,"DIAB",1,0,2100,2)="007-5;""(007) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - APPLICATION"""
^DIE(210,"DIAB",1,0,2100,3)="010-5;""(010) MORPHINE/URINE/QUAL/FLUOR 84881 - SUBSTANCE"""
^DIE(210,"DIAB",1,0,2100,4)="013-5;""(013) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - SUBSTANCE"""
^DIE(210,"DIAB",1,0,2100,5)="016-5;""(016) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - TEST"""
^DIE(210,"DIAB",1,0,2100,6)="019-5;""(019) OXYCODONE/URINE/QUAL/GC 84899 - INJECTION"""
^DIE(210,"DIAB",1,0,2100,7)="023-5;""(023) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - QUALITY CONTROL"""
^DIE(210,"DIAB",1,0,2100,8)="026-5;""(026) PHENOBARBITAL/SERUM/QUANT/GC 84918 - QUALITY CONTROL"""
^DIE(210,"DIAB",1,0,2100,9)="029-5;""(029) PHENOBARBITAL/SERUM/QUANT/UV 84919 - QUALITY CONTROL"""
^DIE(210,"DIAB",1,0,2100,10)="032-5;""(032) PHENOBARBITAL/URINE/QUAL/GC 84915 - QUALITY CONTROL"""
^DIE(210,"DIAB",1,0,2100,11)="035-5;""(035) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,1)="004-5;""(004) MORPHINE/URINE/QUAL/RIA 84877 - SUBSTANCE"""
^DIE(210,"DIAB",2,0,2100,2)="008-5;""(008) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,3)="011-5;""(011) MORPHINE/URINE/QUAL/FLUOR 84881 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,4)="014-5;""(014) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,5)="017-5;""(017) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,6)="020-5;""(020) OXYCODONE/URINE/QUAL/GC 84899 - QUALITY CONTROL"""
^DIE(210,"DIAB",2,0,2100,7)="024-5;""(024) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - STANDARD"""
^DIE(210,"DIAB",2,0,2100,8)="027-5;""(027) PHENOBARBITAL/SERUM/QUANT/GC 84918 - STANDARD"""
^DIE(210,"DIAB",2,0,2100,9)="030-5;""(030) PHENOBARBITAL/SERUM/QUANT/UV 84919 - STANDARD"""
^DIE(210,"DIAB",2,0,2100,10)="033-5;""(033) PHENOBARBITAL/URINE/QUAL/GC 84915 - STANDARD"""
^DIE(210,"DIAB",2,0,2100,11)="036-5;""(036) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,1)="005-5;""(005) MORPHINE/URINE/QUAL/RIA 84877 - QUALITY CONTROL"""
^DIE(210,"DIAB",3,0,2100,2)="009-5;""(009) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,3)="012-5;""(012) MORPHINE/URINE/QUAL/FLUOR 84881 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,4)="015-5;""(015) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,5)="018-5;""(018) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,6)="021-5;""(021) OXYCODONE/URINE/QUAL/GC 84899 - STANDARD"""
^DIE(210,"DIAB",3,0,2100,7)="025-5;""(025) PHENOBARBITAL/SERUM/QUANT/GC 84918 - INJECTION"""
^DIE(210,"DIAB",3,0,2100,8)="028-5;""(028) PHENOBARBITAL/SERUM/QUANT/UV 84919 - SUBSTANCE"""
^DIE(210,"DIAB",3,0,2100,9)="031-5;""(031) PHENOBARBITAL/URINE/QUAL/GC 84915 - INJECTION"""
^DIE(210,"DIAB",3,0,2100,10)="034-5;""(034) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - SUBSTANCE"""
^DIE(210,"DIAB",4,0,2100,1)="006-5;""(006) MORPHINE/URINE/QUAL/RIA 84877 - STANDARD"""
^DIE(210,"DIAB",4,0,2100,6)="022-5;""(022) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - SUBSTANCE"""
^DIE(210,"DIAB",9,0,2100,0)="001-5;""(001) MORPHINE/URINE/QUAL/GC 84879 - INJECTION"""
^DIE(210,"DIAB",10,0,2100,0)="002-5;""(002) MORPHINE/URINE/QUAL/GC 84879 - QUALITY CONTROL"""
^DIE(210,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) MORPHINE/URINE/QUAL/GC 84879 - INJECTION~;55.002(002) MORPHINE/URINE/QUAL/GC 84879 - QUALITY CONTROL~;"
^DIE(210,"DR",1,2100,1)="55.003(003) MORPHINE/URINE/QUAL/GC 84879 - STANDARD~;55.004(004) MORPHINE/URINE/QUAL/RIA 84877 - SUBSTANCE~;55.005(005) MORPHINE/URINE/QUAL/RIA 84877 - QUALITY CONTROL~;55.006(006) MORPHINE/URINE/QUAL/RIA 84877 - STANDARD~;"
^DIE(210,"DR",1,2100,2)="55.007(007) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - APPLICATION~;55.008(008) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - QUALITY CONTROL~;55.009(009) MORPHINE/URINE/QUAL/TLC (HYDROLYSIS) 84880 - STANDARD~;"
^DIE(210,"DR",1,2100,3)="55.01(010) MORPHINE/URINE/QUAL/FLUOR 84881 - SUBSTANCE~;55.011(011) MORPHINE/URINE/QUAL/FLUOR 84881 - QUALITY CONTROL~;55.012(012) MORPHINE/URINE/QUAL/FLUOR 84881 - STANDARD~;"
^DIE(210,"DR",1,2100,4)="55.013(013) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - SUBSTANCE~;55.014(014) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - QUALITY CONTROL~;55.015(015) NORTRIPTYLINE/SERUM/QUANT/RIA 81364 - STANDARD~;"
^DIE(210,"DR",1,2100,5)="55.016(016) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - TEST~;55.017(017) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - QUALITY CONTROL~;55.018(018) OPIATE SCREEN/URINE/QUAL/EMIT 84892 - STANDARD~;"
^DIE(210,"DR",1,2100,6)="55.019(019) OXYCODONE/URINE/QUAL/GC 84899 - INJECTION~;55.02(020) OXYCODONE/URINE/QUAL/GC 84899 - QUALITY CONTROL~;55.021(021) OXYCODONE/URINE/QUAL/GC 84899 - STANDARD~;55.022(022) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - SUBSTANCE~;"
^DIE(210,"DR",1,2100,7)="55.023(023) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - QUALITY CONTROL~;55.024(024) PHENOBARBITAL/SERUM/QUANT/EMIT 84917 - STANDARD~;55.025(025) PHENOBARBITAL/SERUM/QUANT/GC 84918 - INJECTION~;"
^DIE(210,"DR",1,2100,8)="55.026(026) PHENOBARBITAL/SERUM/QUANT/GC 84918 - QUALITY CONTROL~;55.027(027) PHENOBARBITAL/SERUM/QUANT/GC 84918 - STANDARD~;55.028(028) PHENOBARBITAL/SERUM/QUANT/UV 84919 - SUBSTANCE~;"
^DIE(210,"DR",1,2100,9)="55.029(029) PHENOBARBITAL/SERUM/QUANT/UV 84919 - QUALITY CONTROL~;55.03(030) PHENOBARBITAL/SERUM/QUANT/UV 84919 - STANDARD~;55.031(031) PHENOBARBITAL/URINE/QUAL/GC 84915 - INJECTION~;"
^DIE(210,"DR",1,2100,10)="55.032(032) PHENOBARBITAL/URINE/QUAL/GC 84915 - QUALITY CONTROL~;55.033(033) PHENOBARBITAL/URINE/QUAL/GC 84915 - STANDARD~;55.034(034) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - SUBSTANCE~;"
^DIE(210,"DR",1,2100,11)="55.035(035) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - QUALITY CONTROL~;55.036(036) PHENOBARBITAL/SERUM/QUANT/RIA 84920 - STANDARD~;99///^S X=""$"";"
^DIE(211,0)="LR AMS5 CHEM MAN & AUTO H62^2900412.0841^^2100^^^2931005"
^DIE(211,"DIAB",1,0,2100,1)="003-5;""(003) OSMOLALITY 83930 - STANDARD"""
^DIE(211,"DIAB",1,0,2100,2)="007-5;""(007) PARATHORMONE/RIA 83395 - TEST"""
^DIE(211,"DIAB",1,0,2100,3)="011-5;""(011) PCO2, DIRECT READING 82820 - QUALITY CONTROL"""
^DIE(211,"DIAB",1,0,2100,4)="015-5;""(015) pH, BODY FLUIDS 82805 - STANDARD"""
^DIE(211,"DIAB",1,0,2100,5)="017-5;""(017) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - QUALITY CONTROL"""
^DIE(211,"DIAB",1,0,2100,6)="019-5;""(019) pH,PCO2,ASTRUP-ANDERSON 82895 - SPECIMEN"""
^DIE(211,"DIAB",1,0,2100,7)="023-5;""(023) PHENOTHIAZINE,QUAL 84020 - QUALITY CONTROL"""
^DIE(211,"DIAB",1,0,2100,8)="027-5;""(027) PHENYLALAININE,QUANT,BLOOD 84030 - STANDARD"""
^DIE(211,"DIAB",1,0,2100,9)="030-5;""(030) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - STANDARD"""
^DIE(211,"DIAB",1,0,2100,10)="033-5;""(033) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - STANDARD"""
^DIE(211,"DIAB",1,0,2100,11)="036-5;""(036) PHOSPHATASE,ALKALINE ISOENZ 84080 - STANDARD"""
^DIE(211,"DIAB",2,0,2100,1)="004-5;""(004) O2 SATURATION, DIRECT READING 82870 - PATIENT"""
^DIE(211,"DIAB",2,0,2100,2)="008-5;""(008) PARATHORMONE/RIA 83395 - QUALITY CONTROL"""
^DIE(211,"DIAB",2,0,2100,3)="012-5;""(012) PCO2, DIRECT READING 82820 - STANDARD"""
^DIE(211,"DIAB",2,0,2100,4)="016-5;""(016) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - TEST"""
^DIE(211,"DIAB",2,0,2100,5)="018-5;""(018) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - STANDARD"""
^DIE(211,"DIAB",2,0,2100,6)="020-5;""(020) pH,PCO2,ASTRUP-ANDERSON 82895 - QUALITY CONTROL"""
^DIE(211,"DIAB",2,0,2100,7)="024-5;""(024) PHENOTHIAZINE,QUAL 84020 - STANDARD"""
^DIE(211,"DIAB",2,0,2100,8)="028-5;""(028) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - TEST"""
^DIE(211,"DIAB",2,0,2100,9)="031-5;""(031) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - TEST"""
^DIE(211,"DIAB",2,0,2100,10)="034-5;""(034) PHOSPHATASE,ALKALINE ISOENZ 84080 - TEST"""
^DIE(211,"DIAB",3,0,2100,1)="005-5;""(005) O2 SATURATION, DIRECT READING 82870 - QUALITY CONTROL"""
^DIE(211,"DIAB",3,0,2100,2)="009-5;""(009) PARATHORMONE/RIA 83395 - STANDARD"""
^DIE(211,"DIAB",3,0,2100,3)="013-5;""(013) pH, BODY FLUIDS 82805 - TEST"""
^DIE(211,"DIAB",3,0,2100,6)="021-5;""(021) pH,PCO2,ASTRUP-ANDERSON 82895 - STANDARD"""
^DIE(211,"DIAB",3,0,2100,7)="025-5;""(025) PHENYLALAININE,QUANT,BLOOD 84030 - TEST"""
^DIE(211,"DIAB",3,0,2100,8)="029-5;""(029) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - QUALITY CONTROL"""
^DIE(211,"DIAB",3,0,2100,9)="032-5;""(032) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - QUALITY CONTROL"""
^DIE(211,"DIAB",3,0,2100,10)="035-5;""(035) PHOSPHATASE,ALKALINE ISOENZ 84080 - QUALITY CONTROL"""
^DIE(211,"DIAB",4,0,2100,1)="006-5;""(006) O2 SATURATION, DIRECT READING 82870 - STANDARD"""
^DIE(211,"DIAB",4,0,2100,2)="010-5;""(010) PCO2, DIRECT READING 82820 - TEST"""
^DIE(211,"DIAB",4,0,2100,3)="014-5;""(014) pH, BODY FLUIDS 82805 - QUALITY CONTROL"""
^DIE(211,"DIAB",4,0,2100,6)="022-5;""(022) PHENOTHIAZINE,QUAL 84020 - TEST"""
^DIE(211,"DIAB",4,0,2100,7)="026-5;""(026) PHENYLALAININE,QUANT,BLOOD 84030 - QUALITY CONTROL"""
^DIE(211,"DIAB",9,0,2100,0)="001-5;""(001) OSMOLALITY 83930 - TEST"""
^DIE(211,"DIAB",10,0,2100,0)="002-5;""(002) OSMOLALITY 83930 - QUALITY CONTROL"""
^DIE(211,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) OSMOLALITY 83930 - TEST~;55.002(002) OSMOLALITY 83930 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,1)="55.003(003) OSMOLALITY 83930 - STANDARD~;55.004(004) O2 SATURATION, DIRECT READING 82870 - PATIENT~;55.005(005) O2 SATURATION, DIRECT READING 82870 - QUALITY CONTROL~;55.006(006) O2 SATURATION, DIRECT READING 82870 - STANDARD~;"
^DIE(211,"DR",1,2100,2)="55.007(007) PARATHORMONE/RIA 83395 - TEST~;55.008(008) PARATHORMONE/RIA 83395 - QUALITY CONTROL~;55.009(009) PARATHORMONE/RIA 83395 - STANDARD~;55.01(010) PCO2, DIRECT READING 82820 - TEST~;"
^DIE(211,"DR",1,2100,3)="55.011(011) PCO2, DIRECT READING 82820 - QUALITY CONTROL~;55.012(012) PCO2, DIRECT READING 82820 - STANDARD~;55.013(013) pH, BODY FLUIDS 82805 - TEST~;55.014(014) pH, BODY FLUIDS 82805 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,4)="55.015(015) pH, BODY FLUIDS 82805 - STANDARD~;55.016(016) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - TEST~;"
^DIE(211,"DR",1,2100,5)="55.017(017) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - QUALITY CONTROL~;55.018(018) pH,pCO2,SIGGARD-ANDERSON NOMOGRAM (INCLUDING MANUAL CALCULATION) 82890 - STANDARD~;"
^DIE(211,"DR",1,2100,6)="55.019(019) pH,PCO2,ASTRUP-ANDERSON 82895 - SPECIMEN~;55.02(020) pH,PCO2,ASTRUP-ANDERSON 82895 - QUALITY CONTROL~;55.021(021) pH,PCO2,ASTRUP-ANDERSON 82895 - STANDARD~;55.022(022) PHENOTHIAZINE,QUAL 84020 - TEST~;"
^DIE(211,"DR",1,2100,7)="55.023(023) PHENOTHIAZINE,QUAL 84020 - QUALITY CONTROL~;55.024(024) PHENOTHIAZINE,QUAL 84020 - STANDARD~;55.025(025) PHENYLALAININE,QUANT,BLOOD 84030 - TEST~;55.026(026) PHENYLALAININE,QUANT,BLOOD 84030 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,8)="55.027(027) PHENYLALAININE,QUANT,BLOOD 84030 - STANDARD~;55.028(028) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - TEST~;55.029(029) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,9)="55.03(030) PHOSPHATASE,ACID PROSTATIC/RIA 84067 - STANDARD~;55.031(031) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - TEST~;55.032(032) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,10)="55.033(033) PHOSPHATASE,ACID,PROSTATIC/TART 84065 - STANDARD~;55.034(034) PHOSPHATASE,ALKALINE ISOENZ 84080 - TEST~;55.035(035) PHOSPHATASE,ALKALINE ISOENZ 84080 - QUALITY CONTROL~;"
^DIE(211,"DR",1,2100,11)="55.036(036) PHOSPHATASE,ALKALINE ISOENZ 84080 - STANDARD~;99///^S X=""$"";"
^DIE(212,0)="LR AMS5 DRUG AND TOXIC H63^2900412.0857^^2100^^^2931005"
^DIE(212,"DIAB",1,0,2100,1)="002-5;""(002) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,2)="005-5;""(005) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,3)="008-5;""(008) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,4)="011-5;""(011) PHENYTOIN/SERUM/QUANT/EMIT 84931 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,5)="014-5;""(014) PHENYTOIN/SERUM/QUANT/GC 84932 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,6)="017-5;""(017) PHENYTOIN/SERUM/QUANT/RIA 84934 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,7)="020-5;""(020) PHENYTOIN/SERUM/QUANT/UV 84933 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,8)="023-5;""(023) PRIMIDONE/SERUM/QUANT/EMIT 84935 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,9)="026-5;""(026) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,10)="029-5;""(029) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,11)="032-5;""(032) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - QUALITY CONTROL"""
^DIE(212,"DIAB",1,0,2100,12)="035-5;""(035) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - QUALITY CONTROL"""
^DIE(212,"DIAB",2,0,2100,1)="003-5;""(003) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,2)="006-5;""(006) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,3)="009-5;""(009) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,4)="012-5;""(012) PHENYTOIN/SERUM/QUANT/EMIT 84931 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,5)="015-5;""(015) PHENYTOIN/SERUM/QUANT/GC 84932 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,6)="018-5;""(018) PHENYTOIN/SERUM/QUANT/RIA 84934 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,7)="021-5;""(021) PHENYTOIN/SERUM/QUANT/UV 84933 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,8)="024-5;""(024) PRIMIDONE/SERUM/QUANT/EMIT 84935 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,9)="027-5;""(027) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,10)="030-5;""(030) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,11)="033-5;""(033) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - STANDARD"""
^DIE(212,"DIAB",2,0,2100,12)="036-5;""(036) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - STANDARD"""
^DIE(212,"DIAB",3,0,2100,1)="004-5;""(004) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,2)="007-5;""(007) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,3)="010-5;""(010) PHENYTOIN/SERUM/QUANT/EMIT 84931 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,4)="013-5;""(013) PHENYTOIN/SERUM/QUANT/GC 84932 - INJECTION"""
^DIE(212,"DIAB",3,0,2100,5)="016-5;""(016) PHENYTOIN/SERUM/QUANT/RIA 84934 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,6)="019-5;""(019) PHENYTOIN/SERUM/QUANT/UV 84933 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,7)="022-5;""(022) PRIMIDONE/SERUM/QUANT/EMIT 84935 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,8)="025-5;""(025) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,9)="028-5;""(028) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,10)="031-5;""(031) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - SUBSTANCE"""
^DIE(212,"DIAB",3,0,2100,11)="034-5;""(034) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - INJECTION"""
^DIE(212,"DIAB",9,0,2100,0)="001-5;""(001) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - INJECTION"""
^DIE(212,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - INJECTION~;"
^DIE(212,"DR",1,2100,1)="55.002(002) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - QUALITY CONTROL~;55.003(003) PHENOBARBITAL/SERUM/QUANT/HPLC 81390 - STANDARD~;55.004(004) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,2)="55.005(005) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - QUALITY CONTROL~;55.006(006) PHENCYCLIDINE/URINE/QUAL/EMIT 81381 - STANDARD~;55.007(007) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,3)="55.008(008) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - QUALITY CONTROL~;55.009(009) PHENCYCLIDINE/URINE/QUAL/RIA 81384 - STANDARD~;55.01(010) PHENYTOIN/SERUM/QUANT/EMIT 84931 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,4)="55.011(011) PHENYTOIN/SERUM/QUANT/EMIT 84931 - QUALITY CONTROL~;55.012(012) PHENYTOIN/SERUM/QUANT/EMIT 84931 - STANDARD~;55.013(013) PHENYTOIN/SERUM/QUANT/GC 84932 - INJECTION~;"
^DIE(212,"DR",1,2100,5)="55.014(014) PHENYTOIN/SERUM/QUANT/GC 84932 - QUALITY CONTROL~;55.015(015) PHENYTOIN/SERUM/QUANT/GC 84932 - STANDARD~;55.016(016) PHENYTOIN/SERUM/QUANT/RIA 84934 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,6)="55.017(017) PHENYTOIN/SERUM/QUANT/RIA 84934 - QUALITY CONTROL~;55.018(018) PHENYTOIN/SERUM/QUANT/RIA 84934 - STANDARD~;55.019(019) PHENYTOIN/SERUM/QUANT/UV 84933 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,7)="55.02(020) PHENYTOIN/SERUM/QUANT/UV 84933 - QUALITY CONTROL~;55.021(021) PHENYTOIN/SERUM/QUANT/UV 84933 - STANDARD~;55.022(022) PRIMIDONE/SERUM/QUANT/EMIT 84935 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,8)="55.023(023) PRIMIDONE/SERUM/QUANT/EMIT 84935 - QUALITY CONTROL~;55.024(024) PRIMIDONE/SERUM/QUANT/EMIT 84935 - STANDARD~;55.025(025) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,9)="55.026(026) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - QUALITY CONTROL~;55.027(027) PROCAINAMIDE/SERUM/QUANT/EMIT 81422 - STANDARD~;55.028(028) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,10)="55.029(029) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - QUALITY CONTROL~;55.03(030) PROCAINAMIDE,N-ACETYL/QUANT/EMIT 81423 - STANDARD~;55.031(031) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - SUBSTANCE~;"
^DIE(212,"DR",1,2100,11)="55.032(032) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - QUALITY CONTROL~;55.033(033) PROCAINAMIDE/SERUM/QUANT/FLUOR 81426 - STANDARD~;55.034(034) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - INJECTION~;"
^DIE(212,"DR",1,2100,12)="55.035(035) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - QUALITY CONTROL~;55.036(036) PROCAINAMIDE/SERUM/QUANT/HPLC 81420 - STANDARD~;99///^S X=""$"";"
^DIE(213,0)="LR AMS5 CHEM MAN & AUTO H64^2900412.0912^^2100^^^2931005"
^DIE(213,"DIAB",1,0,2100,1)="003-5;""(003) PLACENTAL LACTOGEN/RIA 83316 - STANDARD"""
^DIE(213,"DIAB",1,0,2100,2)="007-5;""(007) PORPHOBILINOGEN,QUANT URINE 84110 - TEST"""
^DIE(213,"DIAB",1,0,2100,3)="011-5;""(011) PORPHYRINS,QUANT,FRACT 84120 - QUALITY CONTROL"""
^DIE(213,"DIAB",1,0,2100,4)="015-5;""(015) PO2, DIRECT READING 82880 - STANDARD"""
^DIE(213,"DIAB",1,0,2100,5)="020-5;""(020) PREGNANETRIOL 83340 - QUALITY CONTROL"""
^DIE(213,"DIAB",1,0,2100,6)="024-5;""(024) PREGESTERONE/RIA 83350 - STANDARD"""
^DIE(213,"DIAB",1,0,2100,7)="028-5;""(028) PROTEIN ELECTRO QNT,CSF 84190 - TEST"""
^DIE(213,"DIAB",1,0,2100,8)="032-5;""(032) PROTEIN,BENCE JONES,HEAT 84185 - QUALITY CONTROL"""
^DIE(213,"DIAB",1,0,2100,9)="035-5;""(035) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - QUALITY CONTROL"""
^DIE(213,"DIAB",2,0,2100,1)="004-5;""(004) PORPHOBILINOGEN,QUAL URINE 84115 - TEST"""
^DIE(213,"DIAB",2,0,2100,2)="008-5;""(008) PORPHOBILINOGEN,QUANT URINE 84110 - QUALITY CONTROL"""
^DIE(213,"DIAB",2,0,2100,3)="012-5;""(012) PORPHYRINS,QUANT,FRACT 84120 - STANDARD"""
^DIE(213,"DIAB",2,0,2100,4)="016-5;""(016) PREGNANEDIOL 83320 - TEST"""
^DIE(213,"DIAB",2,0,2100,5)="021-5;""(021) PREGNANETRIOL 83340 - STANDARD"""
^DIE(213,"DIAB",2,0,2100,6)="025-5;""(025) PROLACTIN/RIA 83355 - TEST"""
^DIE(213,"DIAB",2,0,2100,7)="029-5;""(029) PROTEIN ELECTRO QNT,CSF 84190 - QUALITY CONTROL"""
^DIE(213,"DIAB",2,0,2100,8)="033-5;""(033) PROTEIN,BENCE JONES,HEAT 84185 - STANDARD"""
^DIE(213,"DIAB",2,0,2100,9)="036-5;""(036) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - STANDARD"""
^DIE(213,"DIAB",3,0,2100,1)="005-5;""(005) PORPHOBILINOGEN,QUAL URINE 84115 - QUALITY CONTROL"""
^DIE(213,"DIAB",3,0,2100,2)="009-5;""(009) PORPHOBILINOGEN,QUANT URINE 84410 - STANDARD"""
^DIE(213,"DIAB",3,0,2100,3)="013-5;""(013) PO2, DIRECT READING 82880 - TEST"""
^DIE(213,"DIAB",3,0,2100,4)="017-5;""(017) PREGNANEDIOL 83320 - QUALITY CONTROL"""
^DIE(213,"DIAB",3,0,2100,5)="022-5;""(022) PROGESTERONE/RIA 83350 - TEST"""
^DIE(213,"DIAB",3,0,2100,6)="026-5;""(026) PROLACTIN/RIA 83355 - QUALITY CONTROL"""
^DIE(213,"DIAB",3,0,2100,7)="030-5;""(030) PROTEIN ELECTRO QNT,CSF 84190 - STANDARD"""
^DIE(213,"DIAB",3,0,2100,8)="034-5;""(034) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - TEST"""
^DIE(213,"DIAB",4,0,2100,1)="006-5;""(006) PORPHOBILINOGEN,QUAL URINE 84115 - STANDARD"""
^DIE(213,"DIAB",4,0,2100,2)="010-5;""(010) PORPHYRINS,QUANT,FRACT 84120 - TEST"""
^DIE(213,"DIAB",4,0,2100,3)="014-5;""(014) PO2, DIRECT READING 82880 - QUALITY CONTROL"""
^DIE(213,"DIAB",4,0,2100,4)="018-5;""(018) PREGNANEDIOL 83320 - STANDARD"""
^DIE(213,"DIAB",4,0,2100,5)="023-5;""(023) PROGESTERONE/RIA 83350 - QUALITY CONTROL"""
^DIE(213,"DIAB",4,0,2100,6)="027-5;""(027) PROLACTIN/RIA 83355 - STANDARD"""
^DIE(213,"DIAB",4,0,2100,7)="031-5;""(031) PROTEIN,BENCE JONES,HEAT 84185 - TEST"""
^DIE(213,"DIAB",5,0,2100,4)="019-5;""(019) PREGNANETRIOL 83340 - TEST"""
^DIE(213,"DIAB",9,0,2100,0)="001-5;""(001) PLACENTAL LACTOGEN/RIA 83316 - TEST"""
^DIE(213,"DIAB",10,0,2100,0)="002-5;""(002) PLACENTAL LACTOGEN/RIA 83316 - QUALITY CONTROL"""
^DIE(213,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) PLACENTAL LACTOGEN/RIA 83316 - TEST~;55.002(002) PLACENTAL LACTOGEN/RIA 83316 - QUALITY CONTROL~;"
^DIE(213,"DR",1,2100,1)="55.003(003) PLACENTAL LACTOGEN/RIA 83316 - STANDARD~;55.004(004) PORPHOBILINOGEN,QUAL URINE 84115 - TEST~;55.005(005) PORPHOBILINOGEN,QUAL URINE 84115 - QUALITY CONTROL~;55.006(006) PORPHOBILINOGEN,QUAL URINE 84115 - STANDARD~;"
^DIE(213,"DR",1,2100,2)="55.007(007) PORPHOBILINOGEN,QUANT URINE 84110 - TEST~;55.008(008) PORPHOBILINOGEN,QUANT URINE 84110 - QUALITY CONTROL~;55.009(009) PORPHOBILINOGEN,QUANT URINE 84410 - STANDARD~;55.01(010) PORPHYRINS,QUANT,FRACT 84120 - TEST~;"
^DIE(213,"DR",1,2100,3)="55.011(011) PORPHYRINS,QUANT,FRACT 84120 - QUALITY CONTROL~;55.012(012) PORPHYRINS,QUANT,FRACT 84120 - STANDARD~;55.013(013) PO2, DIRECT READING 82880 - TEST~;55.014(014) PO2, DIRECT READING 82880 - QUALITY CONTROL~;"
^DIE(213,"DR",1,2100,4)="55.015(015) PO2, DIRECT READING 82880 - STANDARD~;55.016(016) PREGNANEDIOL 83320 - TEST~;55.017(017) PREGNANEDIOL 83320 - QUALITY CONTROL~;55.018(018) PREGNANEDIOL 83320 - STANDARD~;55.019(019) PREGNANETRIOL 83340 - TEST~;"
^DIE(213,"DR",1,2100,5)="55.02(020) PREGNANETRIOL 83340 - QUALITY CONTROL~;55.021(021) PREGNANETRIOL 83340 - STANDARD~;55.022(022) PROGESTERONE/RIA 83350 - TEST~;55.023(023) PROGESTERONE/RIA 83350 - QUALITY CONTROL~;"
^DIE(213,"DR",1,2100,6)="55.024(024) PREGESTERONE/RIA 83350 - STANDARD~;55.025(025) PROLACTIN/RIA 83355 - TEST~;55.026(026) PROLACTIN/RIA 83355 - QUALITY CONTROL~;55.027(027) PROLACTIN/RIA 83355 - STANDARD~;"
^DIE(213,"DR",1,2100,7)="55.028(028) PROTEIN ELECTRO QNT,CSF 84190 - TEST~;55.029(029) PROTEIN ELECTRO QNT,CSF 84190 - QUALITY CONTROL~;55.03(030) PROTEIN ELECTRO QNT,CSF 84190 - STANDARD~;55.031(031) PROTEIN,BENCE JONES,HEAT 84185 - TEST~;"
^DIE(213,"DR",1,2100,8)="55.032(032) PROTEIN,BENCE JONES,HEAT 84185 - QUALITY CONTROL~;55.033(033) PROTEIN,BENCE JONES,HEAT 84185 - STANDARD~;55.034(034) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - TEST~;"
^DIE(213,"DR",1,2100,9)="55.035(035) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - QUALITY CONTROL~;55.036(036) PROTEIN,QUANTITATIVE (24 HOURS),UR,FLD 84180 - STANDARD~;99///^S X=""$"";"
^DIE(214,0)="LR AMS5 DRUG AND TOXIC H65^2900412.0948^^2100^^^2931005"
^DIE(214,"DIAB",1,0,2100,1)="002-5;""(002) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,2)="005-5;""(005) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,3)="008-5;""(008) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,4)="011-5;""(011) PROPRANOLOL/SERUM/QUANT/GC 84945 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,5)="014-5;""(014) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,6)="017-5;""(017) QUINIDINE/SERUM/QUANT/EMIT 81452 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,7)="020-5;""(020) QUINIDINE/SERUM/QUANT/FLUOR 84952 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,8)="023-5;""(023) QUINIDINE/SERUM/QUANT/UV 84953 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,9)="026-5;""(026) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - QUALITY CONTROL"""
^DIE(214,"DIAB",1,0,2100,10)="028-5;""(028) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - SUBSTANCE"""
^DIE(214,"DIAB",1,0,2100,11)="031-5;""(031) SALICYLATES/FLUID/QUANT/UV 84965 - SUBSTANCE"""
^DIE(214,"DIAB",1,0,2100,12)="034-5;""(034) SALICYLATES/FLUID/QUANT/VIS 84966 - SUBSTANCE"""
^DIE(214,"DIAB",2,0,2100,1)="003-5;""(003) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,2)="006-5;""(006) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,3)="009-5;""(009) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,4)="012-5;""(012) PROPRANOLOL/SERUM/QUANT/GC 84945 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,5)="015-5;""(015) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,6)="018-5;""(018) QUINIDINE/SERUM/QUANT/EMIT 81452 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,7)="021-5;""(021) QUINIDINE/SERUM/QUANT/FLUOR 84952 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,8)="024-5;""(024) QUINIDINE/SERUM/QUANT/UV 84953 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,9)="027-5;""(027) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - STANDARD"""
^DIE(214,"DIAB",2,0,2100,10)="029-5;""(029) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - QUALITY CONTROL"""
^DIE(214,"DIAB",2,0,2100,11)="032-5;""(032) SALICYLATES/FLUID/QUANT/UV 84965 - QUALITY CONTROL"""
^DIE(214,"DIAB",2,0,2100,12)="035-5;""(035) SALICYLATES/FLUID/QUANT/VIS 84966 - QUALITY CONTROL"""
^DIE(214,"DIAB",3,0,2100,1)="004-5;""(004) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,2)="007-5;""(007) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,3)="010-5;""(010) PROPRANOLOL/SERUM/QUANT/GC 84945 - INJECTION"""
^DIE(214,"DIAB",3,0,2100,4)="013-5;""(013) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - INJECTION"""
^DIE(214,"DIAB",3,0,2100,5)="016-5;""(016) QUINIDINE/SERUM/QUANT/EMIT 81452 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,6)="019-5;""(019) QUINIDINE/SERUM/QUANT/FLUOR 84952 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,7)="022-5;""(022) QUINIDINE/SERUM/QUANT/UV 84953 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,8)="025-5;""(025) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - SUBSTANCE"""
^DIE(214,"DIAB",3,0,2100,10)="030-5;""(030) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - STANDARD"""
^DIE(214,"DIAB",3,0,2100,11)="033-5;""(033) SALICYLATES/FLUID/QUANT/UV 84965 - STANDARD"""
^DIE(214,"DIAB",3,0,2100,12)="036-5;""(036) SALICYLATES/FLUID/QUANT/VIS 84966 - STANDARD"""
^DIE(214,"DIAB",9,0,2100,0)="001-5;""(001) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - SUBSTANCE"""
^DIE(214,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,1)="55.002(002) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - QUALITY CONTROL~;55.003(003) PROCAINAMIDE,N-ACETYL/QUANT/HPLC 81421 - STANDARD~;55.004(004) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,2)="55.005(005) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - QUALITY CONTROL~;55.006(006) PROPOXYPHENE/URINE/QUAL/EMIT 84941 - STANDARD~;55.007(007) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,3)="55.008(008) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - QUALITY CONTROL~;55.009(009) PROPRANOLOL/SERUM/QUANT/FLUOR 84946 - STANDARD~;55.01(010) PROPRANOLOL/SERUM/QUANT/GC 84945 - INJECTION~;"
^DIE(214,"DR",1,2100,4)="55.011(011) PROPRANOLOL/SERUM/QUANT/GC 84945 - QUALITY CONTROL~;55.012(012) PROPRANOLOL/SERUM/QUANT/GC 84945 - STANDARD~;55.013(013) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - INJECTION~;"
^DIE(214,"DR",1,2100,5)="55.014(014) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - QUALITY CONTROL~;55.015(015) PROPRANOLOL/SERUM/QUANT/HPLC 81430 - STANDARD~;55.016(016) QUINIDINE/SERUM/QUANT/EMIT 81452 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,6)="55.017(017) QUINIDINE/SERUM/QUANT/EMIT 81452 - QUALITY CONTROL~;55.018(018) QUINIDINE/SERUM/QUANT/EMIT 81452 - STANDARD~;55.019(019) QUINIDINE/SERUM/QUANT/FLUOR 84952 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,7)="55.02(020) QUINIDINE/SERUM/QUANT/FLUOR 84952 - QUALITY CONTROL~;55.021(021) QUINIDINE/SERUM/QUANT/FLUOR 84952 - STANDARD~;55.022(022) QUINIDINE/SERUM/QUANT/UV 84953 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,8)="55.023(023) QUINIDINE/SERUM/QUANT/UV 84953 - QUALITY CONTROL~;55.024(024) QUINIDINE/SERUM/QUANT/UV 84953 - STANDARD~;55.025(025) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - SUBSTANCE~;"
^DIE(214,"DR",1,2100,9)="55.026(026) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - QUALITY CONTROL~;55.027(027) RADIOIMMUNOASSAY/RIA/(LIGAND SATURATION ANALYSIS) NOT LISTED ELSEWHERE 84955 - STANDARD~;"
^DIE(214,"DR",1,2100,10)="55.028(028) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - SUBSTANCE~;55.029(029) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - QUALITY CONTROL~;55.03(030) SALICYLAMIDE/URINE/QUAL/COLOR 84958 - STANDARD~;"
^DIE(214,"DR",1,2100,11)="55.031(031) SALICYLATES/FLUID/QUANT/UV 84965 - SUBSTANCE~;55.032(032) SALICYLATES/FLUID/QUANT/UV 84965 - QUALITY CONTROL~;55.033(033) SALICYLATES/FLUID/QUANT/UV 84965 - STANDARD~;"
^DIE(214,"DR",1,2100,12)="55.034(034) SALICYLATES/FLUID/QUANT/VIS 84966 - SUBSTANCE~;55.035(035) SALICYLATES/FLUID/QUANT/VIS 84966 - QUALITY CONTROL~;55.036(036) SALICYLATES/FLUID/QUANT/VIS 84966 - STANDARD~;99///^S X=""$"";"
^DIE(215,0)="LR AMS5 CHEM MAN & AUTO H66^2900917.2212^^2100^0^^2931005"
^DIE(215,"DIAB",1,0,2100,1)="003-5;""(003) RENIN/RIA 83360 - STANDARD"""
^DIE(215,"DIAB",1,0,2100,2)="007-5;""(007) TESTOSTERONE W/CHROMAT/RIA 83410 - TEST"""
^DIE(215,"DIAB",1,0,2100,3)="011-5;""(011) TESTOSTERONE W/O CHROMAT/RIA 83405 - QUALITY CONTROL"""
^DIE(215,"DIAB",1,0,2100,4)="014-5;""(014) TESTOSTERONE + DIHYDROTEST/RIA 83415 - QUALITY CONTROL"""
^DIE(215,"DIAB",1,0,2100,5)="017-5;""(017) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - QUALITY CONTROL"""
^DIE(215,"DIAB",1,0,2100,6)="019-5;""(019) THIOCYANATE/SERUM/QUANT/VIS 84430 - TEST"""
^DIE(215,"DIAB",1,0,2100,7)="022-5;""(022) THYROID STIMULATING HORMONE/RIA 83480 - TEST"""
^DIE(215,"DIAB",1,0,2100,8)="025-5;""(025) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - TEST"""
^DIE(215,"DIAB",1,0,2100,9)="029-5;""(029) TRYPSIN,QUAL,FECES 84488 - QUALITY CONTROL"""
^DIE(215,"DIAB",1,0,2100,10)="033-5;""(033) T3 RESIN UPTAKE/RT-3U/RIA 83440 - STANDARD"""
^DIE(215,"DIAB",2,0,2100,1)="004-5;""(004) SPECIFIC GRAVITY EXCL URINE 84315 - TEST"""
^DIE(215,"DIAB",2,0,2100,2)="008-5;""(008) TESTOSTERONE W/CHROMAT/RIA 83410 - QUALITY CONTROL"""
^DIE(215,"DIAB",2,0,2100,3)="012-5;""(012) TESTOSTERONE W/O CHROMAT/RIA 83405 - STANDARD"""
^DIE(215,"DIAB",2,0,2100,4)="015-5;""(015) TESTOSTERONE + DIHYDROTEST/RIA 83415 - STANDARD"""
^DIE(215,"DIAB",2,0,2100,5)="018-5;""(018) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - STANDARD"""
^DIE(215,"DIAB",2,0,2100,6)="020-5;""(020) THIOCYANATE/SERUM/QUANT/VIS 84430 - QUALITY CONTROL"""
^DIE(215,"DIAB",2,0,2100,7)="023-5;""(023) THYROID STIMULATING HORMONE/RIA 83480 - QUALITY CONTROL"""
^DIE(215,"DIAB",2,0,2100,8)="026-5;""(026) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - QUALITY CONTROL"""
^DIE(215,"DIAB",2,0,2100,9)="030-5;""(030) TRYPSIN,QUAL,FECES 84488 - STANDARD"""
^DIE(215,"DIAB",3,0,2100,1)="005-5;""(005) SPECIFIC GRAVITY EXCL URINE 84315 - QUALITY CONTROL"""
^DIE(215,"DIAB",3,0,2100,2)="009-5;""(009) TESTOSTERONE W/CHROMAT/RIA 83410 - STANDARD"""
^DIE(215,"DIAB",3,0,2100,3)="013-5;""(013) TESTOSTERONE + DIHYDROTEST/RIA 83415 - TEST"""
^DIE(215,"DIAB",3,0,2100,4)="016-5;""(016) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - SPECIMEN"""
^DIE(215,"DIAB",3,0,2100,6)="021-5;""(021) THIOCYANATE/SERUM/QUANT/VIS 84430 - STANDARD"""
^DIE(215,"DIAB",3,0,2100,7)="024-5;""(024) THYROID STIMULATING HORMONE/RIA 83480 - STANDARD"""
^DIE(215,"DIAB",3,0,2100,8)="027-5;""(027) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - STANDARD"""
^DIE(215,"DIAB",3,0,2100,9)="031-5;""(031) T3 RESIN UPTAKE/RT-3U/RIA 83440 - TEST"""
^DIE(215,"DIAB",4,0,2100,1)="006-5;""(006) SPECIFIC GRAVITY EXCL URINE 84315 - STANDARD"""
^DIE(215,"DIAB",4,0,2100,2)="010-5;""(010) TESTOSTERONE W/O CHROMAT/RIA 83405 - TEST"""
^DIE(215,"DIAB",4,0,2100,8)="028-5;""(028) TRYPSIN,QUAL,FECES 84488 - TEST"""
^DIE(215,"DIAB",4,0,2100,9)="032-5;""(032) T3 RESIN UPTAKE/RT-3U/RIA 83440 - QUALITY CONTROL"""
^DIE(215,"DIAB",9,0,2100,0)="001-5;""(001) RENIN/RIA 83360 - TEST"""
^DIE(215,"DIAB",10,0,2100,0)="002-5;""(002) RENIN/RIA 83360 - QUALITY CONTROL"""
^DIE(215,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) RENIN/RIA 83360 - TEST~;55.002(002) RENIN/RIA 83360 - QUALITY CONTROL~;"
^DIE(215,"DR",1,2100,1)="55.003(003) RENIN/RIA 83360 - STANDARD~;55.004(004) SPECIFIC GRAVITY EXCL URINE 84315 - TEST~;55.005(005) SPECIFIC GRAVITY EXCL URINE 84315 - QUALITY CONTROL~;55.006(006) SPECIFIC GRAVITY EXCL URINE 84315 - STANDARD~;"
^DIE(215,"DR",1,2100,2)="55.007(007) TESTOSTERONE W/CHROMAT/RIA 83410 - TEST~;55.008(008) TESTOSTERONE W/CHROMAT/RIA 83410 - QUALITY CONTROL~;55.009(009) TESTOSTERONE W/CHROMAT/RIA 83410 - STANDARD~;55.01(010) TESTOSTERONE W/O CHROMAT/RIA 83405 - TEST~;"
^DIE(215,"DR",1,2100,3)="55.011(011) TESTOSTERONE W/O CHROMAT/RIA 83405 - QUALITY CONTROL~;55.012(012) TESTOSTERONE W/O CHROMAT/RIA 83405 - STANDARD~;55.013(013) TESTOSTERONE + DIHYDROTEST/RIA 83415 - TEST~;"
^DIE(215,"DR",1,2100,4)="55.014(014) TESTOSTERONE + DIHYDROTEST/RIA 83415 - QUALITY CONTROL~;55.015(015) TESTOSTERONE + DIHYDROTEST/RIA 83415 - STANDARD~;55.016(016) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - SPECIMEN~;"
^DIE(215,"DR",1,2100,5)="55.017(017) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - QUALITY CONTROL~;55.018(018) THIN LAYER CHROMATOGRAPHY,QUAL/TLC/NOT LISTED ELSEWHERE 82675 - STANDARD~;"
^DIE(215,"DR",1,2100,6)="55.019(019) THIOCYANATE/SERUM/QUANT/VIS 84430 - TEST~;55.02(020) THIOCYANATE/SERUM/QUANT/VIS 84430 - QUALITY CONTROL~;55.021(021) THIOCYANATE/SERUM/QUANT/VIS 84430 - STANDARD~;"
^DIE(215,"DR",1,2100,7)="55.022(022) THYROID STIMULATING HORMONE/RIA 83480 - TEST~;55.023(023) THYROID STIMULATING HORMONE/RIA 83480 - QUALITY CONTROL~;55.024(024) THYROID STIMULATING HORMONE/RIA 83480 - STANDARD~;"
^DIE(215,"DR",1,2100,8)="55.025(025) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - TEST~;55.026(026) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - QUALITY CONTROL~;55.027(027) TRANSPEPTIDASE,GAMMA GLUTAMYL 82790 - STANDARD~;55.028(028) TRYPSIN,QUAL,FECES 84488 - TEST~;"
^DIE(215,"DR",1,2100,9)="55.029(029) TRYPSIN,QUAL,FECES 84488 - QUALITY CONTROL~;55.03(030) TRYPSIN,QUAL,FECES 84488 - STANDARD~;55.031(031) T3 RESIN UPTAKE/RT-3U/RIA 83440 - TEST~;55.032(032) T3 RESIN UPTAKE/RT-3U/RIA 83440 - QUALITY CONTROL~;"
^DIE(215,"DR",1,2100,10)="55.033(033) T3 RESIN UPTAKE/RT-3U/RIA 83440 - STANDARD~;99///^S X=""$"";"
^DIE(216,0)="LR AMS5 DRUG AND TOXIC H67^2900917.2215^^2100^0^^2931005"
^DIE(216,"DIAB",1,0,2100,1)="002-5;""(002) SALICYLATES/SERUM/QUANT/UV 84967 - QUALITY CONTROL"""
^DIE(216,"DIAB",1,0,2100,2)="005-5;""(005) SALICYLATES/SERUM/QUANT/VIS 84968 - QUALITY CONTROL"""
^DIE(216,"DIAB",1,0,2100,3)="008-5;""(008) SALICYLATES/URINE/QUAL/VIS 84970 - QUALITY CONTROL"""
^DIE(216,"DIAB",1,0,2100,4)="011-5;""(011) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - QUALITY CONTROL"""
^DIE(216,"DIAB",1,0,2100,5)="013-5;""(013) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - SPECIMEN"""
^DIE(216,"DIAB",1,0,2100,6)="015-5;""(015) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - STANDARD"""
^DIE(216,"DIAB",1,0,2100,7)="017-5;""(017) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - QUALITY CONTROL"""
^DIE(216,"DIAB",1,0,2100,8)="019-5;""(019) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - SUBSTANCE"""
^DIE(216,"DIAB",1,0,2100,9)="022-5;""(022) SULFONAMIDES/SERUM/QUANT/VIS 84977 - SUBSTANCE"""
^DIE(216,"DIAB",1,0,2100,10)="025-5;""(025) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - SUBSTANCE"""
^DIE(216,"DIAB",1,0,2100,11)="028-5;""(028) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - INJECTION"""
^DIE(216,"DIAB",1,0,2100,12)="031-5;""(031) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - SUBSTANCE"""
^DIE(216,"DIAB",1,0,2100,13)="034-5;""(034) THEOPHYLLINE/SERUM/QUANT/UV 84983 - SUBSTANCE"""
^DIE(216,"DIAB",2,0,2100,1)="003-5;""(003) SALICYLATES/SERUM/QUANT/UV 84967 - STANDARD"""
^DIE(216,"DIAB",2,0,2100,2)="006-5;""(006) SALICYLATES/SERUM/QUANT/VIS 84968 - STANDARD"""
^DIE(216,"DIAB",2,0,2100,3)="009-5;""(009) SALICYLATES/URINE/QUAL/VIS 84970 - STANDARD"""
^DIE(216,"DIAB",2,0,2100,4)="012-5;""(012) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - STANDARD"""
^DIE(216,"DIAB",2,0,2100,5)="014-5;""(014) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,6)="016-5;""(016) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - SUBSTANCE"""
^DIE(216,"DIAB",2,0,2100,7)="018-5;""(018) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - STANDARD"""
^DIE(216,"DIAB",2,0,2100,8)="020-5;""(020) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,9)="023-5;""(023) SULFONAMIDES/SERUM/QUANT/VIS 84977 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,10)="026-5;""(026) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,11)="029-5;""(029) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,12)="032-5;""(032) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - QUALITY CONTROL"""
^DIE(216,"DIAB",2,0,2100,13)="035-5;""(035) THEOPHYLLINE/SERUM/QUANT/UV 84983 - QUALITY CONTROL"""
^DIE(216,"DIAB",3,0,2100,1)="004-5;""(004) SALICYLATES/SERUM/QUANT/VIS 84968 - SUBSTANCE"""
^DIE(216,"DIAB",3,0,2100,2)="007-5;""(007) SALICYLATES/URINE/QUAL/VIS 84970 - SUBSTANCE"""
^DIE(216,"DIAB",3,0,2100,3)="010-5;""(010) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - SUBSTANCE"""
^DIE(216,"DIAB",3,0,2100,8)="021-5;""(021) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - STANDARD"""
^DIE(216,"DIAB",3,0,2100,9)="024-5;""(024) SULFONAMIDES/SERUM/QUANT/VIS 84977 - STANDARD"""
^DIE(216,"DIAB",3,0,2100,10)="027-5;""(027) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - STANDARD"""
^DIE(216,"DIAB",3,0,2100,11)="030-5;""(030) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - STANDARD"""
^DIE(216,"DIAB",3,0,2100,12)="033-5;""(033) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - STANDARD"""
^DIE(216,"DIAB",3,0,2100,13)="036-5;""(036) THEOPHYLLINE/SERUM/QUANT/UV 84983 - STANDARD"""
^DIE(216,"DIAB",9,0,2100,0)="001-5;""(001) SALICYLATES/SERUM/QUANT/UV 84967 - SUBSTANCE"""
^DIE(216,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) SALICYLATES/SERUM/QUANT/UV 84967 - SUBSTANCE~;"
^DIE(216,"DR",1,2100,1)="55.002(002) SALICYLATES/SERUM/QUANT/UV 84967 - QUALITY CONTROL~;55.003(003) SALICYLATES/SERUM/QUANT/UV 84967 - STANDARD~;55.004(004) SALICYLATES/SERUM/QUANT/VIS 84968 - SUBSTANCE~;"
^DIE(216,"DR",1,2100,2)="55.005(005) SALICYLATES/SERUM/QUANT/VIS 84968 - QUALITY CONTROL~;55.006(006) SALICYLATES/SERUM/QUANT/VIS 84968 - STANDARD~;55.007(007) SALICYLATES/URINE/QUAL/VIS 84970 - SUBSTANCE~;"
^DIE(216,"DR",1,2100,3)="55.008(008) SALICYLATES/URINE/QUAL/VIS 84970 - QUALITY CONTROL~;55.009(009) SALICYLATES/URINE/QUAL/VIS 84970 - STANDARD~;55.01(010) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - SUBSTANCE~;"
^DIE(216,"DR",1,2100,4)="55.011(011) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - QUALITY CONTROL~;55.012(012) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE/UV/NOT LISTED ELSEWHERE 84972 - STANDARD~;"
^DIE(216,"DR",1,2100,5)="55.013(013) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - SPECIMEN~;55.014(014) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - QUALITY CONTROL~;"
^DIE(216,"DR",1,2100,6)="55.015(015) SPECTROPHOTOMETRY,ULTRAVIOLET RANGE SCANNING 84974 - STANDARD~;55.016(016) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - SUBSTANCE~;"
^DIE(216,"DR",1,2100,7)="55.017(017) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - QUALITY CONTROL~;55.018(018) SPECTROPHOTOMETRY,VISIBLE RANGE/VIS/NOT LISTED ELSEWHERE 84976 - STANDARD~;"
^DIE(216,"DR",1,2100,8)="55.019(019) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - SUBSTANCE~;55.02(020) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - QUALITY CONTROL~;55.021(021) SULFHEMOGLOBIN/WHOLE BLOOD/QUANT/VIS 84975 - STANDARD~;"
^DIE(216,"DR",1,2100,9)="55.022(022) SULFONAMIDES/SERUM/QUANT/VIS 84977 - SUBSTANCE~;55.023(023) SULFONAMIDES/SERUM/QUANT/VIS 84977 - QUALITY CONTROL~;55.024(024) SULFONAMIDES/SERUM/QUANT/VIS 84977 - STANDARD~;"
^DIE(216,"DR",1,2100,10)="55.025(025) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - SUBSTANCE~;55.026(026) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - QUALITY CONTROL~;55.027(027) THEOPHYLLINE/SERUM/QUANT/EMIT 84625 - STANDARD~;"
^DIE(216,"DR",1,2100,11)="55.028(028) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - INJECTION~;55.029(029) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - QUALITY CONTROL~;55.03(030) THEOPHYLLINE/SERUM/QUANT/HPLC 84626 - STANDARD~;"
^DIE(216,"DR",1,2100,12)="55.031(031) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - SUBSTANCE~;55.032(032) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - QUALITY CONTROL~;55.033(033) THEOPHYLLINE/SERUM/QUANT/RIA 94981 - STANDARD~;"
^DIE(216,"DR",1,2100,13)="55.034(034) THEOPHYLLINE/SERUM/QUANT/UV 84983 - SUBSTANCE~;55.035(035) THEOPHYLLINE/SERUM/QUANT/UV 84983 - QUALITY CONTROL~;55.036(036) THEOPHYLLINE/SERUM/QUANT/UV 84983 - STANDARD~;99///^S X=""$"";"
^DIE(217,0)="LR AMS5 CHEM MAN & AUTO H68^2900917.2217^^2100^0^^2931005"
^DIE(217,"DIAB",1,0,2100,1)="003-5;""(003) URINE,VOLUME MEASUREMENT 81006 - STANDARD"""
^DIE(217,"DIAB",1,0,2100,2)="007-5;""(007) VANILLYMANDELIC ACID,SPOT 83141 - TEST"""
^DIE(217,"DIAB",1,0,2100,3)="011-5;""(011) VISCOSITY,FLUID 84586 - QUALITY CONTROL"""
^DIE(217,"DIAB",2,0,2100,1)="004-5;""(004) VANILLYMANDELIC ACID,QUANT 83140 - TEST"""
^DIE(217,"DIAB",2,0,2100,2)="008-5;""(008) VANILLYMANDELIC ACID,SPOT 83141 - QUALITY CONTROL"""
^DIE(217,"DIAB",2,0,2100,3)="012-5;""(012) VISCOSITY,FLUID 84586 - STANDARD"""
^DIE(217,"DIAB",3,0,2100,1)="005-5;""(005) VANILLYMANDELIC ACID,QUANT 83140 - QUALITY CONTROL"""
^DIE(217,"DIAB",3,0,2100,2)="009-5;""(009) VANILLYMANDELIC ACID,SPOT 83141 - STANDARD"""
^DIE(217,"DIAB",3,0,2100,3)="013-5;""(013) XYLOSE,QUANT 84619 - TEST"""
^DIE(217,"DIAB",4,0,2100,1)="006-5;""(006) VANILLYMANDELIC ACID,QUANT 83140 - STANDARD"""
^DIE(217,"DIAB",4,0,2100,2)="010-5;""(010) VISCOSITY,FLUID 84586 - TEST"""
^DIE(217,"DIAB",4,0,2100,3)="014-5;""(014) XYLOSE,QUANT 84619 - QUALITY CONTROL"""
^DIE(217,"DIAB",5,0,2100,3)="015-5;""(015) XYLOSE,QUANT 84619 - STANDARD"""
^DIE(217,"DIAB",9,0,2100,0)="001-5;""(001) URINE,VOLUME MEASUREMENT 81006 - SPECIMEN"""
^DIE(217,"DIAB",10,0,2100,0)="002-5;""(002) URINE,VOLUME MEASUREMENT 81006 - QUALITY CONTROL"""
^DIE(217,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) URINE,VOLUME MEASUREMENT 81006 - SPECIMEN~;55.002(002) URINE,VOLUME MEASUREMENT 81006 - QUALITY CONTROL~;"
^DIE(217,"DR",1,2100,1)="55.003(003) URINE,VOLUME MEASUREMENT 81006 - STANDARD~;55.004(004) VANILLYMANDELIC ACID,QUANT 83140 - TEST~;55.005(005) VANILLYMANDELIC ACID,QUANT 83140 - QUALITY CONTROL~;55.006(006) VANILLYMANDELIC ACID,QUANT 83140 - STANDARD~;"
^DIE(217,"DR",1,2100,2)="55.007(007) VANILLYMANDELIC ACID,SPOT 83141 - TEST~;55.008(008) VANILLYMANDELIC ACID,SPOT 83141 - QUALITY CONTROL~;55.009(009) VANILLYMANDELIC ACID,SPOT 83141 - STANDARD~;55.01(010) VISCOSITY,FLUID 84586 - TEST~;"
^DIE(217,"DR",1,2100,3)="55.011(011) VISCOSITY,FLUID 84586 - QUALITY CONTROL~;55.012(012) VISCOSITY,FLUID 84586 - STANDARD~;55.013(013) XYLOSE,QUANT 84619 - TEST~;55.014(014) XYLOSE,QUANT 84619 - QUALITY CONTROL~;55.015(015) XYLOSE,QUANT 84619 - STANDARD~;"
^DIE(217,"DR",1,2100,4)="99///^S X=""$"";"
^DIE(218,0)="LR AMS5 DRUG AND TOXIC H69^2900417.1125^^2100^^^2931005"
^DIE(218,"DIAB",1,0,2100,1)="002-5;""(002) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,2)="005-5;""(005) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,3)="008-5;""(008) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,4)="011-5;""(011) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,5)="014-5;""(014) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,6)="017-5;""(017) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,7)="020-5;""(020) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,8)="023-5;""(023) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,9)="026-5;""(026) WARFARIN/SERUM/QUANT/UV 84998 - QUALITY CONTROL"""
^DIE(218,"DIAB",1,0,2100,10)="030-5;""(030) ZINC/SERUM/QUANT/AA 84996 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,1)="003-5;""(003) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,2)="006-5;""(006) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,3)="009-5;""(009) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,4)="012-5;""(012) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,5)="015-5;""(015) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,6)="018-5;""(018) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,7)="021-5;""(021) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,8)="024-5;""(024) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - STANDARD"""
^DIE(218,"DIAB",2,0,2100,9)="027-5;""(027) WARFARIN/SERUM/QUANT/UV 84998 - STANDARD"""
^DIE(218,"DIAB",3,0,2100,1)="004-5;""(004) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - SUBSTANCE"""
^DIE(218,"DIAB",3,0,2100,2)="007-5;""(007) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - INJECTION"""
^DIE(218,"DIAB",3,0,2100,3)="010-5;""(010) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - SUBSTANCE"""
^DIE(218,"DIAB",3,0,2100,4)="013-5;""(013) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - SUBSTANCE"""
^DIE(218,"DIAB",3,0,2100,5)="016-5;""(016) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - INJECTION"""
^DIE(218,"DIAB",3,0,2100,6)="019-5;""(019) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - INJECTION"""
^DIE(218,"DIAB",3,0,2100,7)="022-5;""(022) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - SUBSTANCE"""
^DIE(218,"DIAB",3,0,2100,8)="025-5;""(025) WARFARIN/SERUM/QUANT/UV 84998 - SUBSTANCE"""
^DIE(218,"DIAB",3,0,2100,9)="028-5;""(028) ZINC/SERUM/QUANT/AA 84996 - SUBSTANCE"""
^DIE(218,"DIAB",4,0,2100,9)="029-5;""(029) ZINC/SERUM/QUANT/AA 84996 - QUALITY CONTROL"""
^DIE(218,"DIAB",9,0,2100,0)="001-5;""(001) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - SUBSTANCE"""
^DIE(218,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,1)="55.002(002) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - QUALITY CONTROL~;55.003(003) TOBRAMYCIN/SERUM/QUANT/BIO 81476 - STANDARD~;55.004(004) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,2)="55.005(005) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - QUALITY CONTROL~;55.006(006) TOBRAMYCIN/SERUM/QUANT/EMIT 81470 - STANDARD~;55.007(007) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - INJECTION~;"
^DIE(218,"DR",1,2100,3)="55.008(008) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - QUALITY CONTROL~;55.009(009) TOBRAMYCIN/SERUM/QUANT/HPLC 81472 - STANDARD~;55.01(010) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,4)="55.011(011) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - QUALITY CONTROL~;55.012(012) TOBRAMYCIN/SERUM/QUANT/RIA 84984 - STANDARD~;55.013(013) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,5)="55.014(014) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - QUALITY CONTROL~;55.015(015) TRICHLOROETHYLENE/URINE/QUAL/COLOR 84991 - STANDARD~;55.016(016) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - INJECTION~;"
^DIE(218,"DR",1,2100,6)="55.017(017) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - QUALITY CONTROL~;55.018(018) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/GC 84140 - STANDARD~;55.019(019) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - INJECTION~;"
^DIE(218,"DR",1,2100,7)="55.02(020) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - QUALITY CONTROL~;55.021(021) TRICYCLIC ANTIDEPRESSANTS/SERUM/QUANT/HPLC 81842 - STANDARD~;55.022(022) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,8)="55.023(023) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - QUALITY CONTROL~;55.024(024) VALPROIC ACID/SERUM/QUANT/EMIT 81490 - STANDARD~;55.025(025) WARFARIN/SERUM/QUANT/UV 84998 - SUBSTANCE~;"
^DIE(218,"DR",1,2100,9)="55.026(026) WARFARIN/SERUM/QUANT/UV 84998 - QUALITY CONTROL~;55.027(027) WARFARIN/SERUM/QUANT/UV 84998 - STANDARD~;55.028(028) ZINC/SERUM/QUANT/AA 84996 - SUBSTANCE~;55.029(029) ZINC/SERUM/QUANT/AA 84996 - QUALITY CONTROL~;"
^DIE(218,"DR",1,2100,10)="55.03(030) ZINC/SERUM/QUANT/AA 84996 - STANDARD~;99///^S X=""$"";"
^DIE(219,0)="LR AMS5 URINE AND FECES H74^2900917.2219^^2100^0^^2931005"
^DIE(219,"DIAB",1,0,2100,1)="003-5;""(003) ACETONE,URINE 82012 - TEST"""
^DIE(219,"DIAB",1,0,2100,2)="007-5;""(007) BLOOD,OCCULT (FECES) 82270 - TEST"""
^DIE(219,"DIAB",1,0,2100,3)="011-5;""(011) FAT,QUAL 82705 - SPECIMEN"""
^DIE(219,"DIAB",1,0,2100,4)="016-5;""(016) HEMOGLOBIN,QUAL,URINE 81060 - QUALITY CONTROL"""
^DIE(219,"DIAB",1,0,2100,5)="020-5;""(020) PHENOLSULFONPHTHALEIN 84005 - QUALTIY CONTROL"""
^DIE(219,"DIAB",1,0,2100,6)="024-5;""(024) PORPHYRINS,QUAL,URINE 84125 - QUALITY CONTROL"""
^DIE(219,"DIAB",1,0,2100,7)="028-5;""(028) SULFONAMIDE CRYSTALS,QUAL 84402 - QUALITY CONTROL"""
^DIE(219,"DIAB",1,0,2100,8)="032-5;""(032) UROBILINOGEN,QUAL 84578 - QUALITY CONTROL"""
^DIE(219,"DIAB",2,0,2100,1)="004-5;""(004) ACETONE,URINE 82012 - QUALITY CONTROL"""
^DIE(219,"DIAB",2,0,2100,2)="008-5;""(008) BLOOD,OCCULT (FECES) 82270 - QUALITY CONTROL"""
^DIE(219,"DIAB",2,0,2100,3)="012-5;""(012) FAT,QUAL 82705 - QUALITY CONTROL"""
^DIE(219,"DIAB",2,0,2100,4)="017-5;""(017) MELANIN,QUAL,URINE 83795 - TEST"""
^DIE(219,"DIAB",2,0,2100,5)="021-5;""(021) PHENYLALANINE-TYROSINE RATIO 84045 - TEST"""
^DIE(219,"DIAB",2,0,2100,6)="025-5;""(025) SUGAR,REDUCING,SEMIQUANT 84336 - TEST"""
^DIE(219,"DIAB",2,0,2100,7)="029-5;""(029) UROBILIN,QUAL,URINE 84565 - TEST"""
^DIE(219,"DIAB",2,0,2100,8)="033-5;""(033) UROBILINOGEN,SEMIQUANTITATIVE 84583 - TEST"""
^DIE(219,"DIAB",3,0,2100,1)="005-5;""(005) BILIRUBIN,QUAL,FECES 82252 - SPECIMEN"""
^DIE(219,"DIAB",3,0,2100,2)="009-5;""(009) BLOOD,QUAL,DUODENAL,GAST,UR 82278 - SPECIMEN"""
^DIE(219,"DIAB",3,0,2100,3)="013-5;""(013) GLUCOSE,QUAL 84335 - TEST"""
^DIE(219,"DIAB",3,0,2100,4)="018-5;""(018) MELANIN,QUAL,URINE 83795 - QUALITY CONTROL"""
^DIE(219,"DIAB",3,0,2100,5)="022-5;""(022) PHENYLALANINE-TYROSINE RATIO 84045 - QUALITY CONTROL"""
^DIE(219,"DIAB",3,0,2100,6)="026-5;""(026) SUGAR,REDUCING,SEMIQUANT 84336 - QUALITY CONTROL"""
^DIE(219,"DIAB",3,0,2100,7)="030-5;""(030) UROBILIN,QUAL,URINE 84565 - QUALITY CONTROL"""
^DIE(219,"DIAB",3,0,2100,8)="034-5;""(034) UROBILINOGEN,SEMIQUANTITATIVE 84583 - QUALITY CONTROL"""
^DIE(219,"DIAB",4,0,2100,1)="006-5;""(006) BILIRUBIN,QUAL,FECES 82252 - QUALITY CONTROL"""
^DIE(219,"DIAB",4,0,2100,2)="010-5;""(010) BLOOD,QUAL,DUODENAL,GAST,UR 82278 - QUALITY CONTROL"""
^DIE(219,"DIAB",4,0,2100,3)="014-5;""(014) GLUCOSE,QUAL 84335 - QUALITY CONTROL"""
^DIE(219,"DIAB",4,0,2100,4)="019-5;""(019) PHENOLSULFONPHTHALEIN 84005 - TEST"""
^DIE(219,"DIAB",4,0,2100,5)="023-5;""(023) PORPHYRINS,QUAL,URINE 84125 - TEST"""
^DIE(219,"DIAB",4,0,2100,6)="027-5;""(027) SULFONAMIDE CRYSTALS,QUAL 84402 - TEST"""
^DIE(219,"DIAB",4,0,2100,7)="031-5;""(031) UROBILINOGEN,QUAL 84578 - TEST"""
^DIE(219,"DIAB",5,0,2100,3)="015-5;""(015) HEMOGLOBIN,QUAL,URINE 81060 - TEST"""
^DIE(219,"DIAB",9,0,2100,0)="001-5;""(001) ACETOCACETIC ACID 82005 - TEST"""
^DIE(219,"DIAB",10,0,2100,0)="002-5;""(002) ACETOCACETIC ACID 82005 - QUALITY CONTROL"""
^DIE(219,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACETOCACETIC ACID 82005 - TEST~;55.002(002) ACETOCACETIC ACID 82005 - QUALITY CONTROL~;"
^DIE(219,"DR",1,2100,1)="55.003(003) ACETONE,URINE 82012 - TEST~;55.004(004) ACETONE,URINE 82012 - QUALITY CONTROL~;55.005(005) BILIRUBIN,QUAL,FECES 82252 - SPECIMEN~;55.006(006) BILIRUBIN,QUAL,FECES 82252 - QUALITY CONTROL~;"
^DIE(219,"DR",1,2100,2)="55.007(007) BLOOD,OCCULT (FECES) 82270 - TEST~;55.008(008) BLOOD,OCCULT (FECES) 82270 - QUALITY CONTROL~;55.009(009) BLOOD,QUAL,DUODENAL,GAST,UR 82278 - SPECIMEN~;55.01(010) BLOOD,QUAL,DUODENAL,GAST,UR 82278 - QUALITY CONTROL~;"
^DIE(219,"DR",1,2100,3)="55.011(011) FAT,QUAL 82705 - SPECIMEN~;55.012(012) FAT,QUAL 82705 - QUALITY CONTROL~;55.013(013) GLUCOSE,QUAL 84335 - TEST~;55.014(014) GLUCOSE,QUAL 84335 - QUALITY CONTROL~;55.015(015) HEMOGLOBIN,QUAL,URINE 81060 - TEST~;"
^DIE(219,"DR",1,2100,4)="55.016(016) HEMOGLOBIN,QUAL,URINE 81060 - QUALITY CONTROL~;55.017(017) MELANIN,QUAL,URINE 83795 - TEST~;55.018(018) MELANIN,QUAL,URINE 83795 - QUALITY CONTROL~;55.019(019) PHENOLSULFONPHTHALEIN 84005 - TEST~;"
^DIE(219,"DR",1,2100,5)="55.02(020) PHENOLSULFONPHTHALEIN 84005 - QUALTIY CONTROL~;55.021(021) PHENYLALANINE-TYROSINE RATIO 84045 - TEST~;55.022(022) PHENYLALANINE-TYROSINE RATIO 84045 - QUALITY CONTROL~;55.023(023) PORPHYRINS,QUAL,URINE 84125 - TEST~;"
^DIE(219,"DR",1,2100,6)="55.024(024) PORPHYRINS,QUAL,URINE 84125 - QUALITY CONTROL~;55.025(025) SUGAR,REDUCING,SEMIQUANT 84336 - TEST~;55.026(026) SUGAR,REDUCING,SEMIQUANT 84336 - QUALITY CONTROL~;55.027(027) SULFONAMIDE CRYSTALS,QUAL 84402 - TEST~;"
^DIE(219,"DR",1,2100,7)="55.028(028) SULFONAMIDE CRYSTALS,QUAL 84402 - QUALITY CONTROL~;55.029(029) UROBILIN,QUAL,URINE 84565 - TEST~;55.03(030) UROBILIN,QUAL,URINE 84565 - QUALITY CONTROL~;55.031(031) UROBILINOGEN,QUAL 84578 - TEST~;"
^DIE(219,"DR",1,2100,8)="55.032(032) UROBILINOGEN,QUAL 84578 - QUALITY CONTROL~;55.033(033) UROBILINOGEN,SEMIQUANTITATIVE 84583 - TEST~;55.034(034) UROBILINOGEN,SEMIQUANTITATIVE 84583 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(220,0)="LR AMS5 HEMATOLOGY H78^2900918.0818^^2100^0^^2931007"
^DIE(220,"DIAB",1,0,2100,1)="003-5;""(003) AUTOHEMOLYSIS 85004 - TEST"""
^DIE(220,"DIAB",1,0,2100,2)="007-5;""(007) BONE MARROW STAIN ROMANOWSKI 85108 - SPECIMEN"""
^DIE(220,"DIAB",1,0,2100,3)="010-5;""(010) CAPILLARY FRAGILITY 85165 - TEST"""
^DIE(220,"DIAB",1,0,2100,4)="013-5;""(013) CHLOROACETATE ESTERASE STAIN (INCLS SMEAR,PREP AND STAINING) 85166 - QUALITY CONTROL"""
^DIE(220,"DIAB",1,0,2100,5)="015-5;""(015) CHLOROACETATE ESTERASE LEUKOCYTE STAIN 85633 - QUALITY CONTROL"""
^DIE(220,"DIAB",1,0,2100,6)="018-5;""(018) CLOT RETRACTION,QUAL 85170 - TEST"""
^DIE(220,"DIAB",1,0,2100,7)="022-5;""(022) ETHANOL GEL TEST 85355 - TEST"""
^DIE(220,"DIAB",1,0,2100,8)="026-5;""(026) FACTOR IX ASSAY 85250 - TEST"""
^DIE(220,"DIAB",1,0,2100,9)="031-5;""(031) FACTOR VII ASSAY 85230 - QUALITY CONTROL"""
^DIE(220,"DIAB",1,0,2100,10)="035-5;""(035) FACTOR X ASSAY 85260 - QUALITY CONTROL"""""
^DIE(220,"DIAB",1,0,2100,11)="039-5;""(039) FACTOR XII ASSAY 85280 - QUALITY CONTROL"""
^DIE(220,"DIAB",2,0,2100,1)="004-5;""(004) AUTOHEMOLYSIS 85004 - QUALITY CONTROL"""
^DIE(220,"DIAB",2,0,2100,2)="008-5;""(008) BUFFY COAT (PREP,SMEAR AND COUNT) 85054 - SLIDE"""
^DIE(220,"DIAB",2,0,2100,3)="011-5;""(011) CELL CNT. BODY FLUID, EX BLD 89050 - SPECIMEN"""
^DIE(220,"DIAB",2,0,2100,4)="014-5;""(014) CHLOROACETATE ESTERASE LEUKOCYTE STAIN 85633 - SLIDE"""
^DIE(220,"DIAB",2,0,2100,5)="016-5;""(016) CLOT LYSIS TIME WHOLE BL DIL 85175 - TEST"""
^DIE(220,"DIAB",2,0,2100,6)="019-5;""(019) CLOT RETRACTION,QUAL 85170 - QUALITY CONTROL"""
^DIE(220,"DIAB",2,0,2100,7)="023-5;""(023) ETHANOL GEL TEST 85355 - QUALITY CONTROL"""
^DIE(220,"DIAB",2,0,2100,8)="027-5;""(027) FACTOR IX ASSAY 85250 - QUALITY CONTROL"""
^DIE(220,"DIAB",2,0,2100,9)="032-5;""(032) FACTOR VIII ASSAY 85240 - TEST"""
^DIE(220,"DIAB",2,0,2100,10)="036-5;""(036) FACTOR XI ASSAY 85270 - TEST"""
^DIE(220,"DIAB",3,0,2100,1)="005-5;""(005) BONE MARROW - DIFFERENTIAL COUNT 85105 - PER 100"""
^DIE(220,"DIAB",3,0,2100,2)="009-5;""(009) BUFFY COAT (PREP,SMEAR AND COUNT) 85054 - QUALITY CONTROL"""
^DIE(220,"DIAB",3,0,2100,3)="012-5;""(012) CHLOROACETATE ESTERASE STAIN (INCLS SMEAR,PREP AND STAINING) 85166 - SLIDE"""
^DIE(220,"DIAB",3,0,2100,5)="017-5;""(017) CLOT LYSIS TIME WHOLE BL DIL 85175 - QUALITY CONTROL"""
^DIE(220,"DIAB",3,0,2100,6)="020-5;""(020) EOSINOPHIL NASAL SMEAR 85351 - SLIDE"""
^DIE(220,"DIAB",3,0,2100,7)="024-5;""(024) EUGLOBULIN LYSIS TIME 85172 - TEST"""
^DIE(220,"DIAB",3,0,2100,8)="028-5;""(028) FACTOR V ASSAY 85220 - TEST"""
^DIE(220,"DIAB",3,0,2100,9)="033-5;""(033) FACTOR VIII ASSAY 85240 - QUALITY CONTROL"""""
^DIE(220,"DIAB",3,0,2100,10)="037-5;""(037) FACTOR XI ASSAY 85270 - QUALITY CONTROL"""""
^DIE(220,"DIAB",4,0,2100,1)="006-5;""(006) BONE MARROW - FILM PREP IN LAB 85107 - SPECIMEN"""
^DIE(220,"DIAB",4,0,2100,6)="021-5;""(021) EOSINOPHIL NASAL SMEAR 85351 - QUALITY CONTROL"""
^DIE(220,"DIAB",4,0,2100,7)="025-5;""(025) EUGLOBULIN LYSIS TIME 85172 - QUALITY CONTROL"""
^DIE(220,"DIAB",4,0,2100,8)="029-5;""(029) FACTOR V ASSAY 85220 - QUALITY CONTROL"""
^DIE(220,"DIAB",4,0,2100,9)="034-5;""(034) FACTOR X ASSAY 85260 - TEST"""
^DIE(220,"DIAB",4,0,2100,10)="038-5;""(038) FACTOR XII ASSAY 85280 - TEST"""
^DIE(220,"DIAB",5,0,2100,8)="030-5;""(030) FACTOR VII ASSAY 85230 - TEST"""
^DIE(220,"DIAB",9,0,2100,0)="001-5;""(001) ANTITHROMBIN III ASSAY 85003 - TEST"""
^DIE(220,"DIAB",10,0,2100,0)="002-5;""(002) ANTITHROMBIN III ASSAY 85003 - QUALITY CONTROL"""
^DIE(220,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ANTITHROMBIN III ASSAY 85003 - TEST~;55.002(002) ANTITHROMBIN III ASSAY 85003 - QUALITY CONTROL~;"
^DIE(220,"DR",1,2100,1)="55.003(003) AUTOHEMOLYSIS 85004 - TEST~;55.004(004) AUTOHEMOLYSIS 85004 - QUALITY CONTROL~;55.005(005) BONE MARROW - DIFFERENTIAL COUNT 85105 - PER 100~;55.006(006) BONE MARROW - FILM PREP IN LAB 85107 - SPECIMEN~;"
^DIE(220,"DR",1,2100,2)="55.007(007) BONE MARROW STAIN ROMANOWSKI 85108 - SPECIMEN~;55.008(008) BUFFY COAT (PREP,SMEAR AND COUNT) 85054 - SLIDE~;55.009(009) BUFFY COAT (PREP,SMEAR AND COUNT) 85054 - QUALITY CONTROL~;"
^DIE(220,"DR",1,2100,3)="55.01(010) CAPILLARY FRAGILITY 85165 - TEST~;55.011(011) CELL CNT. BODY FLUID, EX BLD 89050 - SPECIMEN~;55.012(012) CHLOROACETATE ESTERASE STAIN (INCLS SMEAR,PREP AND STAINING) 85166 - SLIDE~;"
^DIE(220,"DR",1,2100,4)="55.013(013) CHLOROACETATE ESTERASE STAIN (INCLS SMEAR,PREP AND STAINING) 85166 - QUALITY CONTROL~;55.014(014) CHLOROACETATE ESTERASE LEUKOCYTE STAIN 85633 - SLIDE~;"
^DIE(220,"DR",1,2100,5)="55.015(015) CHLOROACETATE ESTERASE LEUKOCYTE STAIN 85633 - QUALITY CONTROL~;55.016(016) CLOT LYSIS TIME WHOLE BL DIL 85175 - TEST~;55.017(017) CLOT LYSIS TIME WHOLE BL DIL 85175 - QUALITY CONTROL~;"
^DIE(220,"DR",1,2100,6)="55.018(018) CLOT RETRACTION,QUAL 85170 - TEST~;55.019(019) CLOT RETRACTION,QUAL 85170 - QUALITY CONTROL~;55.02(020) EOSINOPHIL NASAL SMEAR 85351 - SLIDE~;55.021(021) EOSINOPHIL NASAL SMEAR 85351 - QUALITY CONTROL~;"
^DIE(220,"DR",1,2100,7)="55.022(022) ETHANOL GEL TEST 85355 - TEST~;55.023(023) ETHANOL GEL TEST 85355 - QUALITY CONTROL~;55.024(024) EUGLOBULIN LYSIS TIME 85172 - TEST~;55.025(025) EUGLOBULIN LYSIS TIME 85172 - QUALITY CONTROL~;"
^DIE(220,"DR",1,2100,8)="55.026(026) FACTOR IX ASSAY 85250 - TEST~;55.027(027) FACTOR IX ASSAY 85250 - QUALITY CONTROL~;55.028(028) FACTOR V ASSAY 85220 - TEST~;55.029(029) FACTOR V ASSAY 85220 - QUALITY CONTROL~;55.03(030) FACTOR VII ASSAY 85230 - TEST~;"
^DIE(220,"DR",1,2100,9)="55.031(031) FACTOR VII ASSAY 85230 - QUALITY CONTROL~;55.032(032) FACTOR VIII ASSAY 85240 - TEST~;55.033(033) FACTOR VIII ASSAY 85240 - QUALITY CONTROL~;55.034(034) FACTOR X ASSAY 85260 - TEST~;"
^DIE(220,"DR",1,2100,10)="55.035(035) FACTOR X ASSAY 85260 - QUALITY CONTROL~;55.036(036) FACTOR XI ASSAY 85270 - TEST~;55.037(037) FACTOR XI ASSAY 85270 - QUALITY CONTROL~;55.038(038) FACTOR XII ASSAY 85280 - TEST~;"
^DIE(220,"DR",1,2100,11)="55.039(039) FACTOR XII ASSAY 85280 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(221,0)="LR AMS5 HEMATOLOGY H79^2900420.1335^^2100^^^2931007"
^DIE(221,"DIAB",1,0,2100,1)="002-5;""(002) FACTOR XIII ASSAY/SOLUBIL. METH 85290 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,2)="005-5;""(005) FIBRIN DEGRAD, PROD KIT METH. 85371 - TEST"""
^DIE(221,"DIAB",1,0,2100,3)="008-5;""(008) FIBRINOGEN SCREENING TEST 85370 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,4)="012-5;""(012) FIBRINOLYSIS, DIL OR PLT METH 85395 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,5)="015-5;""(015) HEINZ BODIES INDUCTION TEST 85500 - TEST"""
^DIE(221,"DIAB",1,0,2100,6)="019-5;""(019) PHOSPHATASE,ACID,LEUKOCYTE STAIN (INCLS SMEAR,PREP AND STAINING) 85555 - SLIDE"""
^DIE(221,"DIAB",1,0,2100,7)="021-5;""(021) PHOSPHATASE,ALKALINE,LEUKOCYTE STAIN (INCLS COUNT) 85632 - SLIDE"""
^DIE(221,"DIAB",1,0,2100,8)="024-5;""(024) PLATE FACTOR III/PF III 85586 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,9)="027-5;""(027) PLATELET AGGREGATION, PER SUBSTRATE 85560 - TEST"""
^DIE(221,"DIAB",1,0,2100,10)="030-5;""(030) PROTHROMBIN ASSAY 85210 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,11)="034-5;""(034) PROTHROMBIN TIME,DIFF 85612 - QUALITY CONTROL"""
^DIE(221,"DIAB",1,0,2100,12)="037-5;""(037) RED BLOOD CELL FRAGILITY, QUAL 85620 - TEST"""
^DIE(221,"DIAB",1,0,2100,13)="040-5;""(040) RED BLOOD CELL FRAGILITY, QUANT 85636 - QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,1)="003-5;""(003) FETAL HEMOGLOBIN DETECTION FETALDEX 86798 - SPECIMEN"""
^DIE(221,"DIAB",2,0,2100,2)="006-5;""(006) FIBRIN DEGRAD, PROD KIT METH. 85371 - QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,3)="009-5;""(009) FIBRINOGEN, SEMI QUANT 85378 - TEST"""
^DIE(221,"DIAB",2,0,2100,4)="013-5;""(013) FIBRINOLYSIS WHOLE CLOT METH 85390 - TEST"""
^DIE(221,"DIAB",2,0,2100,5)="016-5;""(016) HEINZ BODIES INDUCTION TEST 85500 - QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,6)="020-5;""(020) PHOSPHATASE,ACID,LEUKOCYTE STAIN (INCLS SMEAR,PREP AND STAINING) 85555- QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,7)="022-5;""(022) PHOSPHATASE,ALKALINE,LEUKOCYTE STAIN (INCLS COUNT) 85632 - QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,8)="025-5;""(025) PLATELET ADHESIVITY/SALZMAN 85600 - PATIENT"""
^DIE(221,"DIAB",2,0,2100,9)="028-5;""(028) PLATELET AGGREGATION, PER SUBSTRATE 85560 - QUALITY CONTROL"""
^DIE(221,"DIAB",2,0,2100,10)="031-5;""(031) PROTHROMBIN CONSUMPTION 85615 - TEST"""
^DIE(221,"DIAB",2,0,2100,11)="035-5;""(035) RED BLOOD CELL FRAGILITY, MECHANICAL 85634 - TEST"""
^DIE(221,"DIAB",2,0,2100,12)="038-5;""(038) RED BLOOD CELL FRAGILITY, QUAL 85620 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,1)="004-5;""(004) FETAL HEMOGLOBIN DETECTION FETALDEX 86798 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,2)="007-5;""(007) FIBRINOGEN SCREENING TEST 85370 - TEST"""
^DIE(221,"DIAB",3,0,2100,3)="010-5;""(010) FIBRINOGEN, SEMI QUANT 85378 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,4)="014-5;""(014) FIBRINOLYSIS WHOLE CLOT METH 85390 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,5)="017-5;""(017) HEINZ BODIES/SMEAR FOR 85490 - TEST"""
^DIE(221,"DIAB",3,0,2100,7)="023-5;""(023) PLATE FACTOR III/PF III 85586 - TEST"""
^DIE(221,"DIAB",3,0,2100,8)="026-5;""(026) PLATELET ADHESIVITY/SALZMAN 85600 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,9)="029-5;""(029) PROTHROMBIN ASSAY 85210 - TEST"""
^DIE(221,"DIAB",3,0,2100,10)="032-5;""(032) PROTHROMBIN CONSUMPTION 85615 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,11)="036-5;""(036) RED BLOOD CELL FRAGILITY, MECHANICAL 85634 - QUALITY CONTROL"""
^DIE(221,"DIAB",3,0,2100,12)="039-5;""(039) RED BLOOD CELL FRAGILITY, QUANT 85636 - TEST"""
^DIE(221,"DIAB",4,0,2100,3)="011-5;""(011) FIBRINOLYSIS, DIL OR PLT METH 85395 - TEST"""
^DIE(221,"DIAB",4,0,2100,5)="018-5;""(018) HEINZ BODIES/SMEAR FOR 85490 - QUALITY CONTROL"""
^DIE(221,"DIAB",4,0,2100,10)="033-5;""(033) PROTHROMBIN TIME,DIFF 85612 - TEST"""
^DIE(221,"DIAB",9,0,2100,0)="001-5;""(001) FACTOR XIII ASSAY/SOLUBIL. METH 85290 - TEST"""
^DIE(221,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) FACTOR XIII ASSAY/SOLUBIL. METH 85290 - TEST~;"
^DIE(221,"DR",1,2100,1)="55.002(002) FACTOR XIII ASSAY/SOLUBIL. METH 85290 - QUALITY CONTROL~;55.003(003) FETAL HEMOGLOBIN DETECTION FETALDEX 86798 - SPECIMEN~;55.004(004) FETAL HEMOGLOBIN DETECTION FETALDEX 86798 - QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,2)="55.005(005) FIBRIN DEGRAD, PROD KIT METH. 85371 - TEST~;55.006(006) FIBRIN DEGRAD, PROD KIT METH. 85371 - QUALITY CONTROL~;55.007(007) FIBRINOGEN SCREENING TEST 85370 - TEST~;"
^DIE(221,"DR",1,2100,3)="55.008(008) FIBRINOGEN SCREENING TEST 85370 - QUALITY CONTROL~;55.009(009) FIBRINOGEN, SEMI QUANT 85378 - TEST~;55.01(010) FIBRINOGEN, SEMI QUANT 85378 - QUALITY CONTROL~;55.011(011) FIBRINOLYSIS, DIL OR PLT METH 85395 - TEST~;"
^DIE(221,"DR",1,2100,4)="55.012(012) FIBRINOLYSIS, DIL OR PLT METH 85395 - QUALITY CONTROL~;55.013(013) FIBRINOLYSIS WHOLE CLOT METH 85390 - TEST~;55.014(014) FIBRINOLYSIS WHOLE CLOT METH 85390 - QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,5)="55.015(015) HEINZ BODIES INDUCTION TEST 85500 - TEST~;55.016(016) HEINZ BODIES INDUCTION TEST 85500 - QUALITY CONTROL~;55.017(017) HEINZ BODIES/SMEAR FOR 85490 - TEST~;55.018(018) HEINZ BODIES/SMEAR FOR 85490 - QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,6)="55.019(019) PHOSPHATASE,ACID,LEUKOCYTE STAIN (INCLS SMEAR,PREP AND STAINING) 85555 - SLIDE~;55.02(020) PHOSPHATASE,ACID,LEUKOCYTE STAIN (INCLS SMEAR,PREP AND STAINING) 85555- QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,7)="55.021(021) PHOSPHATASE,ALKALINE,LEUKOCYTE STAIN (INCLS COUNT) 85632 - SLIDE~;55.022(022) PHOSPHATASE,ALKALINE,LEUKOCYTE STAIN (INCLS COUNT) 85632 - QUALITY CONTROL~;55.023(023) PLATE FACTOR III/PF III 85586 - TEST~;"
^DIE(221,"DR",1,2100,8)="55.024(024) PLATE FACTOR III/PF III 85586 - QUALITY CONTROL~;55.025(025) PLATELET ADHESIVITY/SALZMAN 85600 - PATIENT~;55.026(026) PLATELET ADHESIVITY/SALZMAN 85600 - QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,9)="55.027(027) PLATELET AGGREGATION, PER SUBSTRATE 85560 - TEST~;55.028(028) PLATELET AGGREGATION, PER SUBSTRATE 85560 - QUALITY CONTROL~;55.029(029) PROTHROMBIN ASSAY 85210 - TEST~;"
^DIE(221,"DR",1,2100,10)="55.03(030) PROTHROMBIN ASSAY 85210 - QUALITY CONTROL~;55.031(031) PROTHROMBIN CONSUMPTION 85615 - TEST~;55.032(032) PROTHROMBIN CONSUMPTION 85615 - QUALITY CONTROL~;55.033(033) PROTHROMBIN TIME,DIFF 85612 - TEST~;"
^DIE(221,"DR",1,2100,11)="55.034(034) PROTHROMBIN TIME,DIFF 85612 - QUALITY CONTROL~;55.035(035) RED BLOOD CELL FRAGILITY, MECHANICAL 85634 - TEST~;55.036(036) RED BLOOD CELL FRAGILITY, MECHANICAL 85634 - QUALITY CONTROL~;"
^DIE(221,"DR",1,2100,12)="55.037(037) RED BLOOD CELL FRAGILITY, QUAL 85620 - TEST~;55.038(038) RED BLOOD CELL FRAGILITY, QUAL 85620 - QUALITY CONTROL~;55.039(039) RED BLOOD CELL FRAGILITY, QUANT 85636 - TEST~;"
^DIE(221,"DR",1,2100,13)="55.04(040) RED BLOOD CELL FRAGILITY, QUANT 85636 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(222,0)="LR AMS5 HEMATOLOGY H80^2900420.1343^^2100^^^2931007"
^DIE(222,"DIAB",1,0,2100,1)="003-5;""(003) SUCROSE WATER TEST 85662 - TEST"""
^DIE(222,"DIAB",1,0,2100,2)="007-5;""(007) THROMBIN TIME 85670 - TEST"""
^DIE(222,"DIAB",1,0,2100,3)="011-5;""(011) THROMBOPLASTIN GEN, DEFECT ID 85725 - TEST"""
^DIE(222,"DIAB",1,0,2100,4)="014-5;""(014) THROMBOPLASTIN SCREENING, H.P. 85700 - QUALITY CONTROL"""
^DIE(222,"DIAB",2,0,2100,1)="004-5;""(004) SUCROSE WATER TEST 85662 - QUALITY CONTROL"""
^DIE(222,"DIAB",2,0,2100,2)="008-5;""(008) THROMBIN TIME 85670 - QUALITY CONTROL"""
^DIE(222,"DIAB",2,0,2100,3)="012-5;""(012) THROMBOPLASTIN GEN, DEFECT ID 85725 - QUALITY CONTROL"""
^DIE(222,"DIAB",2,0,2100,4)="015-5;""(015) THROMBOPLASTIN TIME, PARTIAL WITH SUBSTITUTION 85731 - TEST"""
^DIE(222,"DIAB",3,0,2100,1)="005-5;""(005) SUDAN BLACK B. LEUKOCYTE STAIN 85665 - TEST"""
^DIE(222,"DIAB",3,0,2100,2)="009-5;""(009) THROMBIN TITER 85675 - TEST"""
^DIE(222,"DIAB",3,0,2100,3)="013-5;""(013) THROMBOPLASTIN SCREENING, H.P. 85700 - TEST"""
^DIE(222,"DIAB",3,0,2100,4)="016-5;""(016) THROMBOPLASTIN TIME, PARTIAL WITH SUBSTITUTION 85731 - QUALITY CONTROL"""
^DIE(222,"DIAB",4,0,2100,1)="006-5;""(006) SUDAN BLACK B. LEUKOCYTE STAIN 85665 - QUALITY CONTROL"""
^DIE(222,"DIAB",4,0,2100,2)="010-5;""(010) THROMBIN TITER 85675 - QUALITY CONTROL"""
^DIE(222,"DIAB",9,0,2100,0)="001-5;""(001) REPTILASE R TEST 85587 - TEST"""
^DIE(222,"DIAB",10,0,2100,0)="002-5;""(002) REPTILASE R TEST 85587 - QUALITY CONTROL"""
^DIE(222,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) REPTILASE R TEST 85587 - TEST~;55.002(002) REPTILASE R TEST 85587 - QUALITY CONTROL~;"
^DIE(222,"DR",1,2100,1)="55.003(003) SUCROSE WATER TEST 85662 - TEST~;55.004(004) SUCROSE WATER TEST 85662 - QUALITY CONTROL~;55.005(005) SUDAN BLACK B. LEUKOCYTE STAIN 85665 - TEST~;55.006(006) SUDAN BLACK B. LEUKOCYTE STAIN 85665 - QUALITY CONTROL~;"
^DIE(222,"DR",1,2100,2)="55.007(007) THROMBIN TIME 85670 - TEST~;55.008(008) THROMBIN TIME 85670 - QUALITY CONTROL~;55.009(009) THROMBIN TITER 85675 - TEST~;55.01(010) THROMBIN TITER 85675 - QUALITY CONTROL~;"
^DIE(222,"DR",1,2100,3)="55.011(011) THROMBOPLASTIN GEN, DEFECT ID 85725 - TEST~;55.012(012) THROMBOPLASTIN GEN, DEFECT ID 85725 - QUALITY CONTROL~;55.013(013) THROMBOPLASTIN SCREENING, H.P. 85700 - TEST~;"
^DIE(222,"DR",1,2100,4)="55.014(014) THROMBOPLASTIN SCREENING, H.P. 85700 - QUALITY CONTROL~;55.015(015) THROMBOPLASTIN TIME, PARTIAL WITH SUBSTITUTION 85731 - TEST~;55.016(016) THROMBOPLASTIN TIME, PARTIAL WITH SUBSTITUTION 85731 - QUALITY CONTROL~;"
^DIE(222,"DR",1,2100,5)="99///^S X=""$"";"
^DIE(223,0)="LR AMS5 BLOOD BANK H84^2900918.0821^^2100^0^^2931005"
^DIE(223,"DIAB",1,0,2100,1)="003-5;""(003) ANTIBODY DETECTION, CAPILLARY TESTING 86148 - TEST"""
^DIE(223,"DIAB",1,0,2100,2)="006-5;""(006) ANTIBODY IDENT. CAPILLARY TESTING 86156 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,3)="008-5;""(008) TITRATION W/ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS 86165 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,4)="010-5;""(010) TITRATION W/O ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86164 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,5)="013-5;""(013) DONOR RECRUIT HOSPITAL 86818 - DONOR"""
^DIE(223,"DIAB",1,0,2100,6)="016-5;""(016) HBsAg BLOOD DONOR CONFIRMATION RIA 86172 - TEST"""
^DIE(223,"DIAB",1,0,2100,7)="019-5;""(019) HBsAg BLOOD DONOR CONFIRMATION RPHA 86174 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,8)="022-5;""(022) HBsAg BLOOD DONOR RPHA 86173 - TEST"""
^DIE(223,"DIAB",1,0,2100,9)="025-5;""(025) HLA ANTIBODY SCREEN BY LYMPHOCYTOTOXICITY 86177 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,10)="027-5;""(027) COMPATIBILITY TESTING (CROSSMATCH) BY LYMPHOCYTOTOXICITY 86179 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,11)="029-5;""(029) HLA PHONOTYPE A,B,C,COMPLETE BY LYMPHOCYTOTOXICITY 86182 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,12)="031-5;""(031) HLA SINGLE ANTIGEN SCREENING BY LYMPHOCYTOTOXICITY 86178 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,13)="034-5;""(034) INHIBITION/NEUTRALIZATION 86847 - QUALITY CONTROL"""
^DIE(223,"DIAB",1,0,2100,14)="037-5;""(037) LEUKOAGGLUTININ SCREEN 86187 - SPECIMEN"""
^DIE(223,"DIAB",2,0,2100,1)="004-5;""(004) ANTIBODY DETECTION, CAPILLARY TESTING 86168 - QUALITY CONTROL"""
^DIE(223,"DIAB",2,0,2100,2)="007-5;""(007) TITRATION W/ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86165 - ANTIGEN"""
^DIE(223,"DIAB",2,0,2100,3)="009-5;""(009) TITRATION W/O ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86164 - ANTIGEN"""
^DIE(223,"DIAB",2,0,2100,4)="011-5;""(011) CRYOPRECIPITATE PREP. 86271 - UNIT"""
^DIE(223,"DIAB",2,0,2100,5)="014-5;""(014) HBsAg BLOOD DONOR CONFIRMATION ELISA 86176 - TEST"""
^DIE(223,"DIAB",2,0,2100,6)="017-5;""(017) HBsAg BLOOD DONOR CONFIRMATION RIA 86172 - QUALITY CONTROL"""
^DIE(223,"DIAB",2,0,2100,7)="020-5;""(020) HBsAg BLOOD DONOR ELISA 86175 - TEST"""
^DIE(223,"DIAB",2,0,2100,8)="023-5;""(023) HBsAg BLOOD DONOR RPHA 86173 - QUALITY CONTROL"""
^DIE(223,"DIAB",2,0,2100,9)="026-5;""(026) COMPATIBILITY TESTING (CROSSMATCH) BY LYMPHOCYTOTOXICITY 86179 - TEST"""
^DIE(223,"DIAB",2,0,2100,10)="028-5;""(028) HLA PHONOTYPE A,B,C,COMPLETE BY LYMPHOCYTOTOXICITY 86182 - SPECIMEN"""
^DIE(223,"DIAB",2,0,2100,11)="030-5;""(030) HLA SINGLE ANTIGEN SCREENING BY LYMPHOCYTOTOXICITY 86178 - SPECIMEN"""
^DIE(223,"DIAB",2,0,2100,12)="032-5;""(032) HLA TYPING TRAY PROD FOR LYMPHO (60 WELL) 86185 - TRAY"""
^DIE(223,"DIAB",2,0,2100,13)="035-5;""(035) LEUKOAGGLUTININ COMPATIBILITY/TESTING 86180 - TEST"""
^DIE(223,"DIAB",2,0,2100,14)="038-5;""(038) LEUKOAGGLUTININ SCREEN 86187 - QUALITY CONTROL"""
^DIE(223,"DIAB",3,0,2100,1)="005-5;""(005) ANTIBODY IDENT. CAPILLARY TESTING 86156 - PANEL"""
^DIE(223,"DIAB",3,0,2100,4)="012-5;""(012) DONOR RECRUIT COMMUNITY 86819 - DONOR"""
^DIE(223,"DIAB",3,0,2100,5)="015-5;""(015) HBsAg BLOOD DONOR CONFIRMATION ELISA 86176 - QUALITY CONTROL"""
^DIE(223,"DIAB",3,0,2100,6)="018-5;""(018) HBsAg BLOOD DONOR CONFIRMATION RPHA 86174 - TEST"""
^DIE(223,"DIAB",3,0,2100,7)="021-5;""(021) HBsAg BLOOD DONOR ELISA 86175 - QUALITY CONTROL"""
^DIE(223,"DIAB",3,0,2100,8)="024-5;""(024) HLA ANTIBODY SCREEN BY LYMPHOCYTOTOXICITY 86177 - SPECIMEN"""
^DIE(223,"DIAB",3,0,2100,12)="033-5;""(033) INHIBITION/NEUTRALIZATION 86847 - TEST"""
^DIE(223,"DIAB",3,0,2100,13)="036-5;""(036) LEUKOAGGLUTININ COMPATIBILITY/TESTING 86180 - QUALITY CONTROL"""
^DIE(223,"DIAB",9,0,2100,0)="001-5;""(001) ABO HEMOLYSIN TEST 86083 - SPECIMEN"""
^DIE(223,"DIAB",10,0,2100,0)="002-5;""(002) ABO HEMOLYSIN TEST 86083 - QUALITY CONTROL"""
^DIE(223,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ABO HEMOLYSIN TEST 86083 - SPECIMEN~;55.002(002) ABO HEMOLYSIN TEST 86083 - QUALITY CONTROL~;"
^DIE(223,"DR",1,2100,1)="55.003(003) ANTIBODY DETECTION, CAPILLARY TESTING 86148 - TEST~;55.004(004) ANTIBODY DETECTION, CAPILLARY TESTING 86168 - QUALITY CONTROL~;55.005(005) ANTIBODY IDENT. CAPILLARY TESTING 86156 - PANEL~;"
^DIE(223,"DR",1,2100,2)="55.006(006) ANTIBODY IDENT. CAPILLARY TESTING 86156 - QUALITY CONTROL~;55.007(007) TITRATION W/ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86165 - ANTIGEN~;"
^DIE(223,"DR",1,2100,3)="55.008(008) TITRATION W/ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS 86165 - QUALITY CONTROL~;55.009(009) TITRATION W/O ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86164 - ANTIGEN~;"
^DIE(223,"DR",1,2100,4)="55.01(010) TITRATION W/O ANTIGLOBULIN TEST (2-STAGE ENZYME OR LISS) 86164 - QUALITY CONTROL~;55.011(011) CRYOPRECIPITATE PREP. 86271 - UNIT~;55.012(012) DONOR RECRUIT COMMUNITY 86819 - DONOR~;"
^DIE(223,"DR",1,2100,5)="55.013(013) DONOR RECRUIT HOSPITAL 86818 - DONOR~;55.014(014) HBsAg BLOOD DONOR CONFIRMATION ELISA 86176 - TEST~;55.015(015) HBsAg BLOOD DONOR CONFIRMATION ELISA 86176 - QUALITY CONTROL~;"
^DIE(223,"DR",1,2100,6)="55.016(016) HBsAg BLOOD DONOR CONFIRMATION RIA 86172 - TEST~;55.017(017) HBsAg BLOOD DONOR CONFIRMATION RIA 86172 - QUALITY CONTROL~;55.018(018) HBsAg BLOOD DONOR CONFIRMATION RPHA 86174 - TEST~;"
^DIE(223,"DR",1,2100,7)="55.019(019) HBsAg BLOOD DONOR CONFIRMATION RPHA 86174 - QUALITY CONTROL~;55.02(020) HBsAg BLOOD DONOR ELISA 86175 - TEST~;55.021(021) HBsAg BLOOD DONOR ELISA 86175 - QUALITY CONTROL~;"
^DIE(223,"DR",1,2100,8)="55.022(022) HBsAg BLOOD DONOR RPHA 86173 - TEST~;55.023(023) HBsAg BLOOD DONOR RPHA 86173 - QUALITY CONTROL~;55.024(024) HLA ANTIBODY SCREEN BY LYMPHOCYTOTOXICITY 86177 - SPECIMEN~;"
^DIE(223,"DR",1,2100,9)="55.025(025) HLA ANTIBODY SCREEN BY LYMPHOCYTOTOXICITY 86177 - QUALITY CONTROL~;55.026(026) COMPATIBILITY TESTING (CROSSMATCH) BY LYMPHOCYTOTOXICITY 86179 - TEST~;"
^DIE(223,"DR",1,2100,10)="55.027(027) COMPATIBILITY TESTING (CROSSMATCH) BY LYMPHOCYTOTOXICITY 86179 - QUALITY CONTROL~;55.028(028) HLA PHONOTYPE A,B,C,COMPLETE BY LYMPHOCYTOTOXICITY 86182 - SPECIMEN~;"
^DIE(223,"DR",1,2100,11)="55.029(029) HLA PHONOTYPE A,B,C,COMPLETE BY LYMPHOCYTOTOXICITY 86182 - QUALITY CONTROL~;55.03(030) HLA SINGLE ANTIGEN SCREENING BY LYMPHOCYTOTOXICITY 86178 - SPECIMEN~;"
^DIE(223,"DR",1,2100,12)="55.031(031) HLA SINGLE ANTIGEN SCREENING BY LYMPHOCYTOTOXICITY 86178 - QUALITY CONTROL~;55.032(032) HLA TYPING TRAY PROD FOR LYMPHO (60 WELL) 86185 - TRAY~;55.033(033) INHIBITION/NEUTRALIZATION 86847 - TEST~;"
^DIE(223,"DR",1,2100,13)="55.034(034) INHIBITION/NEUTRALIZATION 86847 - QUALITY CONTROL~;55.035(035) LEUKOAGGLUTININ COMPATIBILITY/TESTING 86180 - TEST~;55.036(036) LEUKOAGGLUTININ COMPATIBILITY/TESTING 86180 - QUALITY CONTROL~;"
^DIE(223,"DR",1,2100,14)="55.037(037) LEUKOAGGLUTININ SCREEN 86187 - SPECIMEN~;55.038(038) LEUKOAGGLUTININ SCREEN 86187 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(224,0)="LR AMS5 BLOOD BANK H86^2900420.1607^^2100^^^2931005"
^DIE(224,"DIAB",1,0,2100,1)="002-5;""(002) LYMPHOCYTE SEPARATION FROM BLOOD (e.g. FICOLI) 86186 - QUALITY CONTROL"""
^DIE(224,"DIAB",1,0,2100,2)="005-5;""(005) HEMAGGLUTINATION TECHNIQUE (ABO AND RHo(D) 86848 - SPECIMEN"""
^DIE(224,"DIAB",1,0,2100,3)="008-5;""(008) HEMAGGLUTINATION TECHNIQUE (SERUM TYPING) 86852 - QUALITY CONTROL"""
^DIE(224,"DIAB",1,0,2100,4)="010-5;""(010) HEMAGGLUTINATION TECHNIQUE (ANTIBODY DETECTION SCREEN) 86854 - QUALITY CONTROL"""
^DIE(224,"DIAB",1,0,2100,5)="014-5;""(014) PLATELET RICH PLASMA PREP 86391 - UNIT"""
^DIE(224,"DIAB",1,0,2100,6)="018-5;""(018) SEPARATION OF RED CELL MIXTURES PHTHALATE ESTER 86402 - TEST"""
^DIE(224,"DIAB",2,0,2100,1)="003-5;""(003) LYMPHOCYTE SEPARATION T&B CELL 86184 - SPECIMEN"""
^DIE(224,"DIAB",2,0,2100,2)="006-5;""(006) HEMAGGLUTINATION TECHNIQUE (ABO AND RHo(D) 86848 - QUALITY CONTROL"""
^DIE(224,"DIAB",2,0,2100,3)="009-5;""(009) HEMAGGLUTINATION TECHNIQUE (ANTIBODY DETECTION SCREEN) 86854 - SPECIMEN"""
^DIE(224,"DIAB",2,0,2100,4)="011-5;""(011) PLASMA EXCHANGE 86385 - UNIT"""
^DIE(224,"DIAB",2,0,2100,5)="015-5;""(015) PLATELET THAWING AND DE-DMSO 86396 - UNIT"""
^DIE(224,"DIAB",2,0,2100,6)="019-5;""(019) SEPARATION OF RED CELL MIXTURES PHTHALATE ESTER 86402- QUALITY CONTROL"""
^DIE(224,"DIAB",3,0,2100,1)="004-5;""(004) LYMPHOCYTE SEPARATION T&B CELL 86184 - QUALITY CONTROL"""
^DIE(224,"DIAB",3,0,2100,2)="007-5;""(007) HEMAGGLUTINATION TECHNIQUE (SERUM TYPING) 86852 - SPECIMEN"""
^DIE(224,"DIAB",3,0,2100,4)="012-5;""(012) PLATELET AGGLUTININS 86338- PANEL"""
^DIE(224,"DIAB",3,0,2100,5)="016-5;""(016) PLATELET-PHERESIS,AUTO 86386.01 - DONOR"""
^DIE(224,"DIAB",4,0,2100,4)="013-5;""(013) PLATELET FREEZING,DSMO 86395 - UNIT"""
^DIE(224,"DIAB",4,0,2100,5)="017-5;""(017) RED CELL EXCHANGE 86397 - UNIT"""
^DIE(224,"DIAB",9,0,2100,0)="001-5;""(001) LYMPHOCYTE SEPARATION FROM BLOOD (e.g. FICOLI) 86186 - SPECIMEN"""
^DIE(224,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) LYMPHOCYTE SEPARATION FROM BLOOD (e.g. FICOLI) 86186 - SPECIMEN~;"
^DIE(224,"DR",1,2100,1)="55.002(002) LYMPHOCYTE SEPARATION FROM BLOOD (e.g. FICOLI) 86186 - QUALITY CONTROL~;55.003(003) LYMPHOCYTE SEPARATION T&B CELL 86184 - SPECIMEN~;55.004(004) LYMPHOCYTE SEPARATION T&B CELL 86184 - QUALITY CONTROL~;"
^DIE(224,"DR",1,2100,2)="55.005(005) HEMAGGLUTINATION TECHNIQUE (ABO AND RHo(D) 86848 - SPECIMEN~;55.006(006) HEMAGGLUTINATION TECHNIQUE (ABO AND RHo(D) 86848 - QUALITY CONTROL~;55.007(007) HEMAGGLUTINATION TECHNIQUE (SERUM TYPING) 86852 - SPECIMEN~;"
^DIE(224,"DR",1,2100,3)="55.008(008) HEMAGGLUTINATION TECHNIQUE (SERUM TYPING) 86852 - QUALITY CONTROL~;55.009(009) HEMAGGLUTINATION TECHNIQUE (ANTIBODY DETECTION SCREEN) 86854 - SPECIMEN~;"
^DIE(224,"DR",1,2100,4)="55.01(010) HEMAGGLUTINATION TECHNIQUE (ANTIBODY DETECTION SCREEN) 86854 - QUALITY CONTROL~;55.011(011) PLASMA EXCHANGE 86385 - UNIT~;55.012(012) PLATELET AGGLUTININS 86338- PANEL~;55.013(013) PLATELET FREEZING,DSMO 86395 - UNIT~;"
^DIE(224,"DR",1,2100,5)="55.014(014) PLATELET RICH PLASMA PREP 86391 - UNIT~;55.015(015) PLATELET THAWING AND DE-DMSO 86396 - UNIT~;55.016(016) PLATELET-PHERESIS,AUTO 86386.01 - DONOR~;55.017(017) RED CELL EXCHANGE 86397 - UNIT~;"
^DIE(224,"DR",1,2100,6)="55.018(018) SEPARATION OF RED CELL MIXTURES PHTHALATE ESTER 86402 - TEST~;55.019(019) SEPARATION OF RED CELL MIXTURES PHTHALATE ESTER 86402- QUALITY CONTROL~;99///^S X=""$"";"
^DIE(225,0)="LR AMS5 BG & CHEM H87^2900918.0827^^2100^0^^2931005"
^DIE(225,"DIAB",1,0,2100,1)="002-5;""(002) BLOOD GAS ANALYSIS GROUP I 82882 - QUALITY CONTROL"""
^DIE(225,"DIAB",1,0,2100,2)="005-5;""(005) BLOOD GAS ANALYSIS GROUP III 82886 - SPECIMEN"""
^DIE(225,"DIAB",1,0,2100,3)="008-5;""(008) CHEMISTRY ANALYSIS PROFILE 82400.51 - QUALITY CONTROL"""
^DIE(225,"DIAB",1,0,2100,4)="011-5;""(011) CHEMISTRY ANALYSIS PROFILE - 82400.56 - QUALITY CONTROL"""
^DIE(225,"DIAB",1,0,2100,5)="014-5;""(014) CHEMISTRY ANALYSIS PROFILE 82400.65 - QUALITY CONTROL"""
^DIE(225,"DIAB",2,0,2100,1)="003-5;""(003) BLOOD GAS ANALYSIS GROUP II 82884 - SPECIMEN"""
^DIE(225,"DIAB",2,0,2100,2)="006-5;""(006) BLOOD GAS ANALYSIS GROUP III 82886 - QUALITY CONTROL"""
^DIE(225,"DIAB",2,0,2100,3)="009-5;""(009) CHEMISTRY ANALYSIS PROFILE 82400.51 - STANDARD"""
^DIE(225,"DIAB",2,0,2100,4)="012-5;""(012) CHEMISTRY ANALYSIS PROFILE - 82400.56 - STANDARD"""
^DIE(225,"DIAB",2,0,2100,5)="015-5;""(015) CHEMISTRY ANALYSIS PROFILE 82400.65 - STANDARD"""
^DIE(225,"DIAB",3,0,2100,1)="004-5;""(004) BLOOD GAS ANALYSIS GROUP II 82884 - QUALITY CONTROL"""
^DIE(225,"DIAB",3,0,2100,2)="007-5;""(007) CHEMISTRY ANALYSIS PROFILE 82400.51 - SPECIMEN"""
^DIE(225,"DIAB",3,0,2100,3)="010-5;""(010) CHEMISTRY ANALYSIS PROFILE - 82400.56 - SPECIMEN"""
^DIE(225,"DIAB",3,0,2100,4)="013-5;""(013) CHEMISTRY ANALYSIS PROFILE 82400.65 - SPECIMEN"""
^DIE(225,"DIAB",9,0,2100,0)="001-5;""(001) BLOOD GAS ANALYSIS GROUP I 82882 - SPECIMEN"""
^DIE(225,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLOOD GAS ANALYSIS GROUP I 82882 - SPECIMEN~;"
^DIE(225,"DR",1,2100,1)="55.002(002) BLOOD GAS ANALYSIS GROUP I 82882 - QUALITY CONTROL~;55.003(003) BLOOD GAS ANALYSIS GROUP II 82884 - SPECIMEN~;55.004(004) BLOOD GAS ANALYSIS GROUP II 82884 - QUALITY CONTROL~;"
^DIE(225,"DR",1,2100,2)="55.005(005) BLOOD GAS ANALYSIS GROUP III 82886 - SPECIMEN~;55.006(006) BLOOD GAS ANALYSIS GROUP III 82886 - QUALITY CONTROL~;55.007(007) CHEMISTRY ANALYSIS PROFILE 82400.51 - SPECIMEN~;"
^DIE(225,"DR",1,2100,3)="55.008(008) CHEMISTRY ANALYSIS PROFILE 82400.51 - QUALITY CONTROL~;55.009(009) CHEMISTRY ANALYSIS PROFILE 82400.51 - STANDARD~;55.01(010) CHEMISTRY ANALYSIS PROFILE - 82400.56 - SPECIMEN~;"
^DIE(225,"DR",1,2100,4)="55.011(011) CHEMISTRY ANALYSIS PROFILE - 82400.56 - QUALITY CONTROL~;55.012(012) CHEMISTRY ANALYSIS PROFILE - 82400.56 - STANDARD~;55.013(013) CHEMISTRY ANALYSIS PROFILE 82400.65 - SPECIMEN~;"
^DIE(225,"DR",1,2100,5)="55.014(014) CHEMISTRY ANALYSIS PROFILE 82400.65 - QUALITY CONTROL~;55.015(015) CHEMISTRY ANALYSIS PROFILE 82400.65 - STANDARD~;99///^S X=""$"";"
^DIE(226,0)="LR AMS5 IMMUNOLOGY H88^2900918.083^^2100^0^^2931005"
^DIE(226,"DIAB",1,0,2100,1)="003-5;""(003) CERULOPLASMIN 86323 - TEST"""
^DIE(226,"DIAB",1,0,2100,2)="007-5;""(007) CHEMOTAXIS STUDY 86010 - SPECIMEN"""
^DIE(226,"DIAB",1,0,2100,3)="011-5;""(011) COMP TITRA,1ST ROW 86294 - ROW"""
^DIE(226,"DIAB",1,0,2100,4)="015-5;""(015) GENTAMICIN/SERUM/QUANT 81306.01 - SUBSTANCE"""
^DIE(226,"DIAB",1,0,2100,5)="019-5;""(019) GLYCOPROTEIN ACID,ALPHA,AUTOMATED 86327.01 - TEST"""
^DIE(226,"DIAB",1,0,2100,6)="023-5;""(023) HAPTOGLOBIN,AUTOMATED 83011.01 - TEST"""
^DIE(226,"DIAB",1,0,2100,7)="027-5;""(027) HISTOCOMPATIBILITY TESTING 89150 - SPECIMEN"""
^DIE(226,"DIAB",1,0,2100,8)="031-5;""(031) IMMUNODIFFUSION,QUAL 86332 - ANTIGEN"""
^DIE(226,"DIAB",1,0,2100,9)="034-5;""(034) IMMUNODIFFUSION,QUANT,EACH ADD ANTIGEN 86331 - QUALITY CONTROL"""
^DIE(226,"DIAB",1,0,2100,10)="037-5;""(037) IMMUNOGLOBULIN (IgA) 86315 - TEST"""
^DIE(226,"DIAB",1,0,2100,11)="040-5;""(040) IMMUNOGLOBULIN (IgA),AUTOMATED 86315.01 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,1)="004-5;""(004) CERULOPLASMIN 86323 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,2)="008-5;""(008) CHEMOTAXIS STUDY 86010 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,3)="012-5;""(012) COMP TITRA,1ST ROW 86294 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,4)="016-5;""(016) GENTAMICIN/SERUM/QUANT 81306.01 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,5)="020-5;""(020) GLYCOPROTEIN ACID,ALPHA,AUTOMATED 86327.01 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,6)="024-5;""(024) HAPTOGLOBIN,AUTOMATED 83011.01 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,7)="028-5;""(028) HISTOCOMPATIBILITY TESTING 89150 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,8)="032-5;""(032) IMMUNODIFFUSION,QUAL 86332 - QUALITY CONTROL"""
^DIE(226,"DIAB",2,0,2100,9)="035-5;""(035) IMMUNODIFFUSION,QUANT,1ST ANTIGEN 86330 - ANTIGEN"""
^DIE(226,"DIAB",2,0,2100,10)="038-5;""(038) IMMUNOGLOBULIN (IgA) 86315 - QUALITY CONTROL"""
^DIE(226,"DIAB",3,0,2100,1)="005-5;""(005) CERULOPLASMIN,AUTOMATED 86323.01 - TEST"""
^DIE(226,"DIAB",3,0,2100,2)="009-5;""(009) COMP TITRA,EACH ADD ROW 86295 - ROW"""
^DIE(226,"DIAB",3,0,2100,3)="013-5;""(013) GENTAMICIN/SERUM/QUANT 81306 - SUBSTANCE"""
^DIE(226,"DIAB",3,0,2100,4)="017-5;""(017) GLYCOPROTEIN ACID,ALPHA 86327 - TEST"""
^DIE(226,"DIAB",3,0,2100,5)="021-5;""(021) HAPTOGLOBIN 83011 - TEST"""
^DIE(226,"DIAB",3,0,2100,6)="025-5;""(025) HEMOLYSIN ACID 86005 - TEST"""
^DIE(226,"DIAB",3,0,2100,7)="029-5;""(029) IMMUNO-ELECTROPHORESIS 86320 - PLATE"""
^DIE(226,"DIAB",3,0,2100,8)="033-5;""(033) IMMUNODIFFUSION,QUANT,EACH ADD ANTIGEN 86331 - ANTIGEN"""
^DIE(226,"DIAB",3,0,2100,9)="036-5;""(036) IMMUNODIFFUSION,QUANT,1ST ANTIGEN 86330 - QUALITY CONTROL"""
^DIE(226,"DIAB",3,0,2100,10)="039-5;""(039) IMMUNOGLOBULIN (IgA),AUTOMATED 86315.01 - TEST"""
^DIE(226,"DIAB",4,0,2100,1)="006-5;""(006) CERULOPLASMIN,AUTOMATED 86323.01 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,2)="010-5;""(010) COMP TITRA,EACH ADD ROW 86295 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,3)="014-5;""(014) GENTAMICIN/SERUM/QUANT 81306 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,4)="018-5;""(018) GLYCOPROTEIN ACID,ALPHA 86327 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,5)="022-5;""(022) HAPTOGLOBIN 83011 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,6)="026-5;""(026) HEMOLYSIN ACID 86005 - QUALITY CONTROL"""
^DIE(226,"DIAB",4,0,2100,7)="030-5;""(030) IMMUNO-ELECTROPHORESIS 86320 - QUALITY CONTROL"""
^DIE(226,"DIAB",9,0,2100,0)="001-5;""(001) B&T CELL,QUANT ROSETTE FORMATION 86001 - SPECIMEN"""
^DIE(226,"DIAB",10,0,2100,0)="002-5;""(002) CARDIOLIPIN ANTIGEN PREP 86291 - POOL"""
^DIE(226,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) B&T CELL,QUANT ROSETTE FORMATION 86001 - SPECIMEN~;55.002(002) CARDIOLIPIN ANTIGEN PREP 86291 - POOL~;"
^DIE(226,"DR",1,2100,1)="55.003(003) CERULOPLASMIN 86323 - TEST~;55.004(004) CERULOPLASMIN 86323 - QUALITY CONTROL~;55.005(005) CERULOPLASMIN,AUTOMATED 86323.01 - TEST~;55.006(006) CERULOPLASMIN,AUTOMATED 86323.01 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,2)="55.007(007) CHEMOTAXIS STUDY 86010 - SPECIMEN~;55.008(008) CHEMOTAXIS STUDY 86010 - QUALITY CONTROL~;55.009(009) COMP TITRA,EACH ADD ROW 86295 - ROW~;55.01(010) COMP TITRA,EACH ADD ROW 86295 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,3)="55.011(011) COMP TITRA,1ST ROW 86294 - ROW~;55.012(012) COMP TITRA,1ST ROW 86294 - QUALITY CONTROL~;55.013(013) GENTAMICIN/SERUM/QUANT 81306 - SUBSTANCE~;55.014(014) GENTAMICIN/SERUM/QUANT 81306 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,4)="55.015(015) GENTAMICIN/SERUM/QUANT 81306.01 - SUBSTANCE~;55.016(016) GENTAMICIN/SERUM/QUANT 81306.01 - QUALITY CONTROL~;55.017(017) GLYCOPROTEIN ACID,ALPHA 86327 - TEST~;55.018(018) GLYCOPROTEIN ACID,ALPHA 86327 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,5)="55.019(019) GLYCOPROTEIN ACID,ALPHA,AUTOMATED 86327.01 - TEST~;55.02(020) GLYCOPROTEIN ACID,ALPHA,AUTOMATED 86327.01 - QUALITY CONTROL~;55.021(021) HAPTOGLOBIN 83011 - TEST~;55.022(022) HAPTOGLOBIN 83011 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,6)="55.023(023) HAPTOGLOBIN,AUTOMATED 83011.01 - TEST~;55.024(024) HAPTOGLOBIN,AUTOMATED 83011.01 - QUALITY CONTROL~;55.025(025) HEMOLYSIN ACID 86005 - TEST~;55.026(026) HEMOLYSIN ACID 86005 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,7)="55.027(027) HISTOCOMPATIBILITY TESTING 89150 - SPECIMEN~;55.028(028) HISTOCOMPATIBILITY TESTING 89150 - QUALITY CONTROL~;55.029(029) IMMUNO-ELECTROPHORESIS 86320 - PLATE~;55.03(030) IMMUNO-ELECTROPHORESIS 86320 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,8)="55.031(031) IMMUNODIFFUSION,QUAL 86332 - ANTIGEN~;55.032(032) IMMUNODIFFUSION,QUAL 86332 - QUALITY CONTROL~;55.033(033) IMMUNODIFFUSION,QUANT,EACH ADD ANTIGEN 86331 - ANTIGEN~;"
^DIE(226,"DR",1,2100,9)="55.034(034) IMMUNODIFFUSION,QUANT,EACH ADD ANTIGEN 86331 - QUALITY CONTROL~;55.035(035) IMMUNODIFFUSION,QUANT,1ST ANTIGEN 86330 - ANTIGEN~;55.036(036) IMMUNODIFFUSION,QUANT,1ST ANTIGEN 86330 - QUALITY CONTROL~;"
^DIE(226,"DR",1,2100,10)="55.037(037) IMMUNOGLOBULIN (IgA) 86315 - TEST~;55.038(038) IMMUNOGLOBULIN (IgA) 86315 - QUALITY CONTROL~;55.039(039) IMMUNOGLOBULIN (IgA),AUTOMATED 86315.01 - TEST~;"
^DIE(226,"DR",1,2100,11)="55.04(040) IMMUNOGLOBULIN (IgA),AUTOMATED 86315.01 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(227,0)="LR AMS5 IMMUNOLOGY H89^2900918.0833^^2100^0^^2931005"
^DIE(227,"DIAB",1,0,2100,1)="003-5;""(003) IMMUNOGLOBULIN (IgG) 86318 - TEST"""
^DIE(227,"DIAB",1,0,2100,2)="006-5;""(006) IMMUNOGLOBULIN (IgG) AUTOMATED 86318.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",1,0,2100,3)="009-5;""(009) IMMUNOGLOBULIN (IgM) AUTOMATED 86316.01 - TEST"""
^DIE(227,"DIAB",1,0,2100,4)="012-5;""(012) LEUKOCYTE AGGLUTININS 86675 - QUALITY CONTROL"""
^DIE(227,"DIAB",1,0,2100,5)="016-5;""(016) MACROGLOBULIN,ALPHA2 86325 - QUALITY CONTROL"""
^DIE(227,"DIAB",1,0,2100,6)="019-5;""(019) NEUTRALIZATION TEST, VIRAL 86333 - SPECIMEN"""
^DIE(227,"DIAB",1,0,2100,7)="022-5;""(022) NUCLEAR ANTIBODIES, ANTI 86034 - QUALITY CONTROL"""
^DIE(227,"DIAB",1,0,2100,8)="025-5;""(025) PROPERDIN FACTOR B 86321 - TEST"""
^DIE(227,"DIAB",1,0,2100,9)="029-5;""(029) SENSITIZE RBC FOR CF 86293 - POOL"""
^DIE(227,"DIAB",1,0,2100,10)="033-5;""(033) THEOPHYLLINE/SERUM/QUANT 84624 - QUALITY CONTROL"""
^DIE(227,"DIAB",1,0,2100,11)="036-5;""(036) TRANSFERRIN 86329 - TEST"""
^DIE(227,"DIAB",1,0,2100,12)="040-5;""(040) WASH RBC FOR IHA, CF 86292 - POOL"""
^DIE(227,"DIAB",2,0,2100,1)="004-5;""(004) IMMUNOGLOBULIN (IgG) 86318 - QUALITY CONTROL"""
^DIE(227,"DIAB",2,0,2100,2)="007-5;""(007) IMMUNOGLOBULIN (IgM) 86316 - TEST"""
^DIE(227,"DIAB",2,0,2100,3)="010-5;""(010) IMMUNOGLOBULIN (IgM) AUTOMATED 86316.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",2,0,2100,4)="013-5;""(013) LYMPHOCYTE STIMULATION STUDY 86003 - SPECIMEN"""
^DIE(227,"DIAB",2,0,2100,5)="017-5;""(017) MACROGLOBULIN,ALPHA2 AUTOMATED 86325.01 - TEST"""
^DIE(227,"DIAB",2,0,2100,6)="020-5;""(020) NEUTRALIZATION TEST, VIRAL 86333 - QUALITY CONTROL"""
^DIE(227,"DIAB",2,0,2100,7)="023-5;""(023) NUCLEAR ANTIBODIES, ANTI, AUTOMATED 86034.01 - TEST"""
^DIE(227,"DIAB",2,0,2100,8)="026-5;""(026) PROPERDIN FACTOR B 86321 - QUALITY CONTROL"""
^DIE(227,"DIAB",2,0,2100,9)="030-5;""(030) STREPTOKINASE,ANTI 86065 - SPECIMEN"""
^DIE(227,"DIAB",2,0,2100,10)="034-5;""(034) THEOPHYLLINE/SERUM/QUANT, AUTOMATED 84624.01 - SUBSTANCE"""
^DIE(227,"DIAB",2,0,2100,11)="037-5;""(037) TRANSFERRIN 86329 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,1)="005-5;""(005) IMMUNOGLOBULIN (IgG) AUTOMATED 86318.01 - TEST"""
^DIE(227,"DIAB",3,0,2100,2)="008-5;""(008) IMMUNOGLOBULIN (IgM) 86316 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,3)="011-5;""(011) LEUKOCYTE AGGLUTININS 86675 - PANEL"""
^DIE(227,"DIAB",3,0,2100,4)="014-5;""(014) LYMPHOCYTE STIMULATION STUDY 86003 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,5)="018-5;""(018) MACROGLOBULIN,ALPHA2 AUTOMATED 86325.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,6)="021-5;""(021) NUCLEAR ANTIBODIES, ANTI 86034 - TEST"""
^DIE(227,"DIAB",3,0,2100,7)="024-5;""(024) NUCLEAR ANTIBODIES, ANTI, AUTOMATED 86034.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,8)="027-5;""(027) PROPERDIN FACTOR B, AUTOMATED 86321.01 - TEST"""
^DIE(227,"DIAB",3,0,2100,9)="031-5;""(031) STREPTOKINASE,ANTI 86065 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,10)="035-5;""(035) THEOPHYLLINE/SERUM/QUANT, AUTOMATED 84624.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",3,0,2100,11)="038-5;""(038) TRANSFERRIN, AUTOMATED 86329.01 - TEST"""
^DIE(227,"DIAB",4,0,2100,4)="015-5;""(015) MACROGLOBULIN,ALPHA2 86325 - TEST"""
^DIE(227,"DIAB",4,0,2100,8)="028-5;""(028) PROPERDIN FACTOR B, AUTOMATED 86321.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",4,0,2100,9)="032-5;""(032) THEOPHYLLINE/SERUM/QUANT 84624 - SUBSTANCE"""
^DIE(227,"DIAB",4,0,2100,11)="039-5;""(039) TRANSFERRIN, AUTOMATED 86329.01 - QUALITY CONTROL"""
^DIE(227,"DIAB",9,0,2100,0)="001-5;""(001) IMMUNOGLOBULIN (IgD) 86319 - TEST"""
^DIE(227,"DIAB",10,0,2100,0)="002-5;""(002) IMMUNOGLOBULIN (IgD) 86319 - QUALITY CONTROL"""
^DIE(227,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) IMMUNOGLOBULIN (IgD) 86319 - TEST~;55.002(002) IMMUNOGLOBULIN (IgD) 86319 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,1)="55.003(003) IMMUNOGLOBULIN (IgG) 86318 - TEST~;55.004(004) IMMUNOGLOBULIN (IgG) 86318 - QUALITY CONTROL~;55.005(005) IMMUNOGLOBULIN (IgG) AUTOMATED 86318.01 - TEST~;"
^DIE(227,"DR",1,2100,2)="55.006(006) IMMUNOGLOBULIN (IgG) AUTOMATED 86318.01 - QUALITY CONTROL~;55.007(007) IMMUNOGLOBULIN (IgM) 86316 - TEST~;55.008(008) IMMUNOGLOBULIN (IgM) 86316 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,3)="55.009(009) IMMUNOGLOBULIN (IgM) AUTOMATED 86316.01 - TEST~;55.01(010) IMMUNOGLOBULIN (IgM) AUTOMATED 86316.01 - QUALITY CONTROL~;55.011(011) LEUKOCYTE AGGLUTININS 86675 - PANEL~;"
^DIE(227,"DR",1,2100,4)="55.012(012) LEUKOCYTE AGGLUTININS 86675 - QUALITY CONTROL~;55.013(013) LYMPHOCYTE STIMULATION STUDY 86003 - SPECIMEN~;55.014(014) LYMPHOCYTE STIMULATION STUDY 86003 - QUALITY CONTROL~;55.015(015) MACROGLOBULIN,ALPHA2 86325 - TEST~;"
^DIE(227,"DR",1,2100,5)="55.016(016) MACROGLOBULIN,ALPHA2 86325 - QUALITY CONTROL~;55.017(017) MACROGLOBULIN,ALPHA2 AUTOMATED 86325.01 - TEST~;55.018(018) MACROGLOBULIN,ALPHA2 AUTOMATED 86325.01 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,6)="55.019(019) NEUTRALIZATION TEST, VIRAL 86333 - SPECIMEN~;55.02(020) NEUTRALIZATION TEST, VIRAL 86333 - QUALITY CONTROL~;55.021(021) NUCLEAR ANTIBODIES, ANTI 86034 - TEST~;"
^DIE(227,"DR",1,2100,7)="55.022(022) NUCLEAR ANTIBODIES, ANTI 86034 - QUALITY CONTROL~;55.023(023) NUCLEAR ANTIBODIES, ANTI, AUTOMATED 86034.01 - TEST~;55.024(024) NUCLEAR ANTIBODIES, ANTI, AUTOMATED 86034.01 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,8)="55.025(025) PROPERDIN FACTOR B 86321 - TEST~;55.026(026) PROPERDIN FACTOR B 86321 - QUALITY CONTROL~;55.027(027) PROPERDIN FACTOR B, AUTOMATED 86321.01 - TEST~;55.028(028) PROPERDIN FACTOR B, AUTOMATED 86321.01 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,9)="55.029(029) SENSITIZE RBC FOR CF 86293 - POOL~;55.03(030) STREPTOKINASE,ANTI 86065 - SPECIMEN~;55.031(031) STREPTOKINASE,ANTI 86065 - QUALITY CONTROL~;55.032(032) THEOPHYLLINE/SERUM/QUANT 84624 - SUBSTANCE~;"
^DIE(227,"DR",1,2100,10)="55.033(033) THEOPHYLLINE/SERUM/QUANT 84624 - QUALITY CONTROL~;55.034(034) THEOPHYLLINE/SERUM/QUANT, AUTOMATED 84624.01 - SUBSTANCE~;55.035(035) THEOPHYLLINE/SERUM/QUANT, AUTOMATED 84624.01 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,11)="55.036(036) TRANSFERRIN 86329 - TEST~;55.037(037) TRANSFERRIN 86329 - QUALITY CONTROL~;55.038(038) TRANSFERRIN, AUTOMATED 86329.01 - TEST~;55.039(039) TRANSFERRIN, AUTOMATED 86329.01 - QUALITY CONTROL~;"
^DIE(227,"DR",1,2100,12)="55.04(040) WASH RBC FOR IHA, CF 86292 - POOL~;99///^S X=""$"";"
^DIE(228,0)="LR AMS5 MYCOBACTERIOLOGY H91^2900918.0845^^2100^0^^2931005"
^DIE(228,"DIAB",1,0,2100,1)="002-5;""(002) ACCESSIONING OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87850 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,2)="004-5;""(004) DIGESTION/DECONTAMINATION OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87701 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,3)="007-5;""(007) SODIUM HYDROXIDE PROCEDURE 87701.073 - SPECIMEN"""
^DIE(228,"DIAB",1,0,2100,4)="010-5;""(010) ZEPHIRIN-TRISODIUM PHOSPHATE PROCEDURE 87701.078 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,5)="012-5;""(012) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87851 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,6)="014-5;""(014) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87856 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,7)="016-5;""(016) READING A MYCOBACTERIAL CULTURE 87860 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,8)="019-5;""(019) CATALASE (AFTER 68 DEGREE C HEATING 87891 - TEST"""
^DIE(228,"DIAB",1,0,2100,9)="022-5;""(022) GROWTH ON MACCONKEY AGAR (MYCOBACTERIA) 87896 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,10)="025-5;""(025) FLUOROCHROME TYPE STAINS 87885.080 - SMEAR"""
^DIE(228,"DIAB",1,0,2100,11)="028-5;""(028) KINYOUN'S ACID FAST STAIN 87885.079 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,12)="032-5;""(032) NIACIN TEST 87893 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,13)="036-5;""(036) PHOTOCHROMOGENICITY TEST 87895 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,14)="039-5;""(039) SUSCEPTABILITY TEST FOR MYCOBACTERIUM 87899 - TUBE"""
^DIE(228,"DIAB",1,0,2100,15)="042-5;""(042) TELLURITE REDUCTION 87897 - QUALITY CONTROL"""
^DIE(228,"DIAB",1,0,2100,16)="045-5;""(045) RECORDING AND REPORTING OF A MYCOBACTERIAL CULTURE 87870 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,1)="003-5;""(003) DIGESTION/DECONTAMINATION OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87701 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,2)="005-5;""(005) NALC PROCEDURE 87701.070 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,3)="008-5;""(008) SODIUM HYDROXIDE PROCEDURE 87701.073 - QUALITY CONTROL"""
^DIE(228,"DIAB",2,0,2100,4)="011-5;""(011) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOBACTERIAL CUTLURE 87851 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,5)="013-5;""(013) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87856 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,6)="015-5;""(015) READING A MYCOBACTERIAL CULTURE 87860 - SPECIMEN"""
^DIE(228,"DIAB",2,0,2100,7)="017-5;""(017) ARYSULFATASE,3 DAY 87888 - TEST"""
^DIE(228,"DIAB",2,0,2100,8)="020-5;""(020) CATALASE (AFTER 68 DEGREE C HEATING 87891 - QUALITY CONTROL"""
^DIE(228,"DIAB",2,0,2100,9)="023-5;""(023) MYCOBACTERIOLOGY STAINS 87885 - SMEAR"""
^DIE(228,"DIAB",2,0,2100,10)="026-5;""(026) FLUOROCHROME TYPE STAINS 87885.080 - QUALITY CONTROL"""
^DIE(228,"DIAB",2,0,2100,11)="029-5;""(029) ZIEHL-NEELSEN STAIN 87885.082 - SMEAR"""
^DIE(228,"DIAB",2,0,2100,12)="033-5;""(033) NITRATE REDUCTION 87894 - TEST"""
^DIE(228,"DIAB",2,0,2100,13)="037-5;""(037) SODIUM CHLORIDE TOLERANCE 87892 - TEST"""
^DIE(228,"DIAB",2,0,2100,14)="040-5;""(040) SUSCEPTABILITY TEST FOR MYCOBACTERIUM 87899 - QUALITY CONTROL"""
^DIE(228,"DIAB",2,0,2100,15)="043-5;""(043) TWEEN HYDROLYSIS 87898 - TEST"""
^DIE(228,"DIAB",2,0,2100,16)="046-5;""(046) RECORDING AND REPORTING OF A MYCOBACTERIAL CULTURE 87870 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,2)="006-5;""(006) NALC PROCEDURE 87701.070 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,3)="009-5;""(009) ZEPHIRIN-TRISODIUM PHOSPHATE PROCEDURE 87701.078 - SPECIMEN"""
^DIE(228,"DIAB",3,0,2100,7)="018-5;""(018) ARYSULFATASE,3 DAY 87888 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,8)="021-5;""(021) GROWTH ON MACCONKEY AGAR (MYCOBACTERIA) 87896 - TEST"""
^DIE(228,"DIAB",3,0,2100,9)="024-5;""(024) MYCOBACTERIOLOGY STAINS 87885 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,10)="027-5;""(027) KINYOUN'S ACID FAST STAIN 87885.079 - SMEAR"""
^DIE(228,"DIAB",3,0,2100,11)="030-5;""(030) ZIEHL-NEELSEN STAIN 87885.082 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,12)="034-5;""(034) NITRATE REDUCTION 87894 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,13)="038-5;""(038) SODIUM CHLORIDE TOLERANCE 87892 - QUALITY CONTROL"""
^DIE(228,"DIAB",3,0,2100,14)="041-5;""(041) TELLURITE REDUCTION 87897 - TEST"""
^DIE(228,"DIAB",3,0,2100,15)="044-5;""(044) TWEEN HYDROLYSIS 87888 - QUALITY CONTROL"""
^DIE(228,"DIAB",4,0,2100,11)="031-5;""(031) NIACIN TEST 87893 - TEST"""
^DIE(228,"DIAB",4,0,2100,12)="035-5;""(035) PHOTOCHROMOGENICITY TEST 87895 - TEST"""
^DIE(228,"DIAB",9,0,2100,0)="001-5;""(001) ACCESSIONING OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87850 - SPECIMEN"""
^DIE(228,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACCESSIONING OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87850 - SPECIMEN~;"
^DIE(228,"DR",1,2100,1)="55.002(002) ACCESSIONING OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87850 - QUALITY CONTROL~;55.003(003) DIGESTION/DECONTAMINATION OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87701 - SPECIMEN~;"
^DIE(228,"DR",1,2100,2)="55.004(004) DIGESTION/DECONTAMINATION OF SPECIMEN FOR A MYCOBACTERIAL CULTURE 87701 - QUALITY CONTROL~;55.005(005) NALC PROCEDURE 87701.070 - SPECIMEN~;55.006(006) NALC PROCEDURE 87701.070 - QUALITY CONTROL~;"
^DIE(228,"DR",1,2100,3)="55.007(007) SODIUM HYDROXIDE PROCEDURE 87701.073 - SPECIMEN~;55.008(008) SODIUM HYDROXIDE PROCEDURE 87701.073 - QUALITY CONTROL~;55.009(009) ZEPHIRIN-TRISODIUM PHOSPHATE PROCEDURE 87701.078 - SPECIMEN~;"
^DIE(228,"DR",1,2100,4)="55.01(010) ZEPHIRIN-TRISODIUM PHOSPHATE PROCEDURE 87701.078 - QUALITY CONTROL~;55.011(011) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOBACTERIAL CUTLURE 87851 - SPECIMEN~;"
^DIE(228,"DR",1,2100,5)="55.012(012) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87851 - QUALITY CONTROL~;55.013(013) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87856 - SPECIMEN~;"
^DIE(228,"DR",1,2100,6)="55.014(014) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOBACTERIAL CULTURE 87856 - QUALITY CONTROL~;55.015(015) READING A MYCOBACTERIAL CULTURE 87860 - SPECIMEN~;"
^DIE(228,"DR",1,2100,7)="55.016(016) READING A MYCOBACTERIAL CULTURE 87860 - QUALITY CONTROL~;55.017(017) ARYSULFATASE,3 DAY 87888 - TEST~;55.018(018) ARYSULFATASE,3 DAY 87888 - QUALITY CONTROL~;"
^DIE(228,"DR",1,2100,8)="55.019(019) CATALASE (AFTER 68 DEGREE C HEATING 87891 - TEST~;55.02(020) CATALASE (AFTER 68 DEGREE C HEATING 87891 - QUALITY CONTROL~;55.021(021) GROWTH ON MACCONKEY AGAR (MYCOBACTERIA) 87896 - TEST~;"
^DIE(228,"DR",1,2100,9)="55.022(022) GROWTH ON MACCONKEY AGAR (MYCOBACTERIA) 87896 - QUALITY CONTROL~;55.023(023) MYCOBACTERIOLOGY STAINS 87885 - SMEAR~;55.024(024) MYCOBACTERIOLOGY STAINS 87885 - QUALITY CONTROL~;"
^DIE(228,"DR",1,2100,10)="55.025(025) FLUOROCHROME TYPE STAINS 87885.080 - SMEAR~;55.026(026) FLUOROCHROME TYPE STAINS 87885.080 - QUALITY CONTROL~;55.027(027) KINYOUN'S ACID FAST STAIN 87885.079 - SMEAR~;"
^DIE(228,"DR",1,2100,11)="55.028(028) KINYOUN'S ACID FAST STAIN 87885.079 - QUALITY CONTROL~;55.029(029) ZIEHL-NEELSEN STAIN 87885.082 - SMEAR~;55.03(030) ZIEHL-NEELSEN STAIN 87885.082 - QUALITY CONTROL~;55.031(031) NIACIN TEST 87893 - TEST~;"
^DIE(228,"DR",1,2100,12)="55.032(032) NIACIN TEST 87893 - QUALITY CONTROL~;55.033(033) NITRATE REDUCTION 87894 - TEST~;55.034(034) NITRATE REDUCTION 87894 - QUALITY CONTROL~;55.035(035) PHOTOCHROMOGENICITY TEST 87895 - TEST~;"
^DIE(228,"DR",1,2100,13)="55.036(036) PHOTOCHROMOGENICITY TEST 87895 - QUALITY CONTROL~;55.037(037) SODIUM CHLORIDE TOLERANCE 87892 - TEST~;55.038(038) SODIUM CHLORIDE TOLERANCE 87892 - QUALITY CONTROL~;"
^DIE(228,"DR",1,2100,14)="55.039(039) SUSCEPTABILITY TEST FOR MYCOBACTERIUM 87899 - TUBE~;55.04(040) SUSCEPTABILITY TEST FOR MYCOBACTERIUM 87899 - QUALITY CONTROL~;55.041(041) TELLURITE REDUCTION 87897 - TEST~;"
^DIE(228,"DR",1,2100,15)="55.042(042) TELLURITE REDUCTION 87897 - QUALITY CONTROL~;55.043(043) TWEEN HYDROLYSIS 87898 - TEST~;55.044(044) TWEEN HYDROLYSIS 87888 - QUALITY CONTROL~;"
^DIE(228,"DR",1,2100,16)="55.045(045) RECORDING AND REPORTING OF A MYCOBACTERIAL CULTURE 87870 - SPECIMEN~;55.046(046) RECORDING AND REPORTING OF A MYCOBACTERIAL CULTURE 87870 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(229,0)="LR AMS5 IDENT KITS H90^2900918.0841^^2100^0^^2931005"
^DIE(229,"DIAB",1,0,2100,1)="002-5;""(002) ORGANISM IDENTIFICATION-COMMERCIAL KIT 87650.001 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,2)="005-5;""(005) API 10S ANALYTAB PRODUCTS INC. 87650.024 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,3)="008-5;""(008) API 20A ANALYTAB PRODUCTS INC. 87650.025 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,4)="011-5;""(011) API 20E ANALYTAB PRODUCTS INC. 87650.027 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,5)="014-5;""(014) API 20S ANALYTAB PRODUCTS INC. 87650.028 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,6)="017-5;""(017) ENTEROTUBE II ROCHE DIAGNOSTICS 87650.033 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,7)="020-5;""(020) MICRO ID GENERAL DIAGNOSTICS 87650.036 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,8)="023-5;""(023) MICRO SCAN MICRO SCAN (ID ONLY) 87650.038 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,9)="026-5;""(026) MINITEK ANAEROBES BBL 87650.039 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,10)="029-5;""(029) MINITEK GRAM POSITIVES BBL 87650.040 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,11)="032-5;""(032) MINITEK NEISSERIA BBL 87650.041 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,12)="035-5;""(035) MINITEK YEAST BBL 87650.059 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,13)="038-5;""(038) NeIDENT ANALYTAB PRODUCTS INC. 87650.042 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,14)="041-5;""(041) RAPID ANA SYSTEM IDS, INC. 87650.052 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,15)="044-5;""(044) RAPID E DMS LABORATORIES, INC. 87650.045 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,16)="047-5;""(047) RAPID NH SYSTEM IDS, INC. 87650.053 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,17)="050-5;""(050) RAPID SST DMS LABORATORIES INC. 87650.061 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,18)="053-5;""(053) R/B SYSTEM FLOW LABORATORIES INC. 87650.047 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,19)="056-5;""(056) STAPH IDENT ANALYTAB PRODUCTS INC. 87650.048 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,20)="059-5;""(059) UNI-N/F-TEK FLOW LABORATORIES INC. 87650.050 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,21)="062-5;""(062) UNI-YEAST-TEK FLOW LABORATORIES INC. 87650.051 - QUALITY CONTROL"""
^DIE(229,"DIAB",1,0,2100,22)="065-5;""(065) MICRO MEDIA MICRO SYM. MEDIA (MIC/ID COMBO) 87750.037 - ORGANISM"""
^DIE(229,"DIAB",1,0,2100,23)="067-5;""(067) MICRO SCAN MICRO SCAN (MIC/ID COMBO) 87750.038 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,1)="003-5;""(003) ANAEROBE-TEK FLOW LABORATORIES,INC. 87650.023 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,2)="006-5;""(006) API 10S ANALYTAB PRODUCTS INC. 87650.024 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,3)="009-5;""(009) API 20C ANALYTAB PRODUCTS INC. 87650.026 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,4)="012-5;""(012) API 20E ANALYTAB PRODUCTS INC. 87650.027 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,5)="015-5;""(015) ENTERIC-TEK FLOW LABORATORIES, INC. 87650.031 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,6)="018-5;""(018) ENTEROTUBE II ROCHE DIAGNOSTICS 87650.033 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,7)="021-5;""(021) MICRO MEDIA MICRO MEDIA SYSTEMS (ID ONLY) 87650.037 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,8)="024-5;""(024) MICRO SCAN MICRO SCAN (ID ONLY) 87650.038 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,9)="027-5;""(027) MINITEK ENTEROBACTERIACEAE BBL 87650.058 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,10)="030-5;""(030) MINITEK GRAM POSITIVES BBL 87650.040 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,11)="033-5;""(033) MINITEK NONFERMENTER BBL 87650.043 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,12)="036-5;""(036) MINITEK YEAST BBL 87650.059 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,13)="039-5;""(039) OXI/FERM ROOCHE DIAGNOSTICS 87650.044 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,14)="042-5;""(042) RAPID ANA SYSTEM IDS, INC. 87650.052 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,15)="045-5;""(045) RAPID NFT DMS LABORATORIES, INC. 87650.046 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,16)="048-5;""(048) RAPID NH SYSTEM IDS, INC. 87650.053 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,17)="051-5;""(051) RAPID STREP DMS LABORATORIES INC. 87650.054 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,18)="054-5;""(054) R/B SYSTEM FLOW LABORATORIES INC. 87650.047 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,19)="057-5;""(057) STAPH TRAC DMS LABORATORIES INC. 87650.049 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,20)="060-5;""(060) UNI-N/F-TEK FLOW LABORATORIES INC. 87650.050 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,21)="063-5;""(063) ORGANISM ID/MIC COMBO-MANUAL 87750 - ORGANISM"""
^DIE(229,"DIAB",2,0,2100,22)="066-5;""(066) MICRO MEDIA MICRO SYM. MEDIA (MIC/ID COMBO) 87750.037 - QUALITY CONTROL"""
^DIE(229,"DIAB",2,0,2100,23)="068-5;""(068) MICRO SCAN MICRO SCAN (MIC/ID COMBO) 87750.038 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,1)="004-5;""(004) ANAEROBE-TEK FLOW LABORATORIES,INC. 87650.023 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,2)="007-5;""(007) API 20A ANALYTAB PRODUCTS INC. 87650.025 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,3)="010-5;""(010) API 20C ANALYTAB PRODUCTS INC. 87650.026 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,4)="013-5;""(013) API 20S ANALYTAB PRODUCTS INC. 87650.028 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,5)="016-5;""(016) ENTERIC-TEK FLOW LABORATORIES, INC. 87650.031 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,6)="019-5;""(019) MICRO ID GENERAL DIAGNOSTICS 87650.036 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,7)="022-5;""(022) MICRO MEDIA MICRO MEDIA SYSTEMS (ID ONLY) 87650.037 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,8)="025-5;""(025) MINITEK ANAEROBES BBL 87650.039 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,9)="028-5;""(028) MINITEK ENTEROBACTERIACEAE BBL 87650.058 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,10)="031-5;""(031) MINITEK NEISSERIA BBL 87650.041 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,11)="034-5;""(034) MINITEK NONFERMENTER BBL 87650.043 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,12)="037-5;""(037) NeIDENT ANALYTAB PRODUCTS INC. 87650.042 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,13)="040-5;""(040) OXI/FERM ROOCHE DIAGNOSTICS 87650.044 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,14)="043-5;""(043) RAPID E DMS LABORATORIES, INC. 87650.045 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,15)="046-5;""(046) RAPID NFT DMS LABORATORIES, INC. 87650.046 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,16)="049-5;""(049) RAPID SST DMS LABORATORIES INC. 87650.061 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,17)="052-5;""(052) RAPID STREP DMS LABORATORIES INC. 87650.054 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,18)="055-5;""(055) STAPH IDENT ANALYTAB PRODUCTS INC. 87650.048 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,19)="058-5;""(058) STAPH TRAC DMS LABORATORIES INC. 87650.049 - QUALITY CONTROL"""
^DIE(229,"DIAB",3,0,2100,20)="061-5;""(061) UNI-YEAST-TEK FLOW LABORATORIES INC. 87650.051 - ORGANISM"""
^DIE(229,"DIAB",3,0,2100,21)="064-5;""(064) ORGANISM ID/MIC COMBO-MANUAL 87750 - QUALITY CONTROL"""
^DIE(229,"DIAB",9,0,2100,0)="001-5;""(001) ORGANISM IDENTIFICATION-COMMERCIAL KIT 87650.001 - ORGANISM"""
^DIE(229,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ORGANISM IDENTIFICATION-COMMERCIAL KIT 87650.001 - ORGANISM~;"
^DIE(229,"DR",1,2100,1)="55.002(002) ORGANISM IDENTIFICATION-COMMERCIAL KIT 87650.001 - QUALITY CONTROL~;55.003(003) ANAEROBE-TEK FLOW LABORATORIES,INC. 87650.023 - ORGANISM~;55.004(004) ANAEROBE-TEK FLOW LABORATORIES,INC. 87650.023 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,2)="55.005(005) API 10S ANALYTAB PRODUCTS INC. 87650.024 - ORGANISM~;55.006(006) API 10S ANALYTAB PRODUCTS INC. 87650.024 - QUALITY CONTROL~;55.007(007) API 20A ANALYTAB PRODUCTS INC. 87650.025 - ORGANISM~;"
^DIE(229,"DR",1,2100,3)="55.008(008) API 20A ANALYTAB PRODUCTS INC. 87650.025 - QUALITY CONTROL~;55.009(009) API 20C ANALYTAB PRODUCTS INC. 87650.026 - ORGANISM~;55.01(010) API 20C ANALYTAB PRODUCTS INC. 87650.026 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,4)="55.011(011) API 20E ANALYTAB PRODUCTS INC. 87650.027 - ORGANISM~;55.012(012) API 20E ANALYTAB PRODUCTS INC. 87650.027 - QUALITY CONTROL~;55.013(013) API 20S ANALYTAB PRODUCTS INC. 87650.028 - ORGANISM~;"
^DIE(229,"DR",1,2100,5)="55.014(014) API 20S ANALYTAB PRODUCTS INC. 87650.028 - QUALITY CONTROL~;55.015(015) ENTERIC-TEK FLOW LABORATORIES, INC. 87650.031 - ORGANISM~;55.016(016) ENTERIC-TEK FLOW LABORATORIES, INC. 87650.031 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,6)="55.017(017) ENTEROTUBE II ROCHE DIAGNOSTICS 87650.033 - ORGANISM~;55.018(018) ENTEROTUBE II ROCHE DIAGNOSTICS 87650.033 - QUALITY CONTROL~;55.019(019) MICRO ID GENERAL DIAGNOSTICS 87650.036 - ORGANISM~;"
^DIE(229,"DR",1,2100,7)="55.02(020) MICRO ID GENERAL DIAGNOSTICS 87650.036 - QUALITY CONTROL~;55.021(021) MICRO MEDIA MICRO MEDIA SYSTEMS (ID ONLY) 87650.037 - ORGANISM~;55.022(022) MICRO MEDIA MICRO MEDIA SYSTEMS (ID ONLY) 87650.037 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,8)="55.023(023) MICRO SCAN MICRO SCAN (ID ONLY) 87650.038 - ORGANISM~;55.024(024) MICRO SCAN MICRO SCAN (ID ONLY) 87650.038 - QUALITY CONTROL~;55.025(025) MINITEK ANAEROBES BBL 87650.039 - ORGANISM~;"
^DIE(229,"DR",1,2100,9)="55.026(026) MINITEK ANAEROBES BBL 87650.039 - QUALITY CONTROL~;55.027(027) MINITEK ENTEROBACTERIACEAE BBL 87650.058 - ORGANISM~;55.028(028) MINITEK ENTEROBACTERIACEAE BBL 87650.058 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,10)="55.029(029) MINITEK GRAM POSITIVES BBL 87650.040 - ORGANISM~;55.03(030) MINITEK GRAM POSITIVES BBL 87650.040 - QUALITY CONTROL~;55.031(031) MINITEK NEISSERIA BBL 87650.041 - ORGANISM~;"
^DIE(229,"DR",1,2100,11)="55.032(032) MINITEK NEISSERIA BBL 87650.041 - QUALITY CONTROL~;55.033(033) MINITEK NONFERMENTER BBL 87650.043 - ORGANISM~;55.034(034) MINITEK NONFERMENTER BBL 87650.043 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,12)="55.035(035) MINITEK YEAST BBL 87650.059 - ORGANISM~;55.036(036) MINITEK YEAST BBL 87650.059 - QUALITY CONTROL~;55.037(037) NeIDENT ANALYTAB PRODUCTS INC. 87650.042 - ORGANISM~;"
^DIE(229,"DR",1,2100,13)="55.038(038) NeIDENT ANALYTAB PRODUCTS INC. 87650.042 - QUALITY CONTROL~;55.039(039) OXI/FERM ROOCHE DIAGNOSTICS 87650.044 - ORGANISM~;55.04(040) OXI/FERM ROOCHE DIAGNOSTICS 87650.044 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,14)="55.041(041) RAPID ANA SYSTEM IDS, INC. 87650.052 - ORGANISM~;55.042(042) RAPID ANA SYSTEM IDS, INC. 87650.052 - QUALITY CONTROL~;55.043(043) RAPID E DMS LABORATORIES, INC. 87650.045 - ORGANISM~;"
^DIE(229,"DR",1,2100,15)="55.044(044) RAPID E DMS LABORATORIES, INC. 87650.045 - QUALITY CONTROL~;55.045(045) RAPID NFT DMS LABORATORIES, INC. 87650.046 - ORGANISM~;55.046(046) RAPID NFT DMS LABORATORIES, INC. 87650.046 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,16)="55.047(047) RAPID NH SYSTEM IDS, INC. 87650.053 - ORGANISM~;55.048(048) RAPID NH SYSTEM IDS, INC. 87650.053 - QUALITY CONTROL~;55.049(049) RAPID SST DMS LABORATORIES INC. 87650.061 - ORGANISM~;"
^DIE(229,"DR",1,2100,17)="55.05(050) RAPID SST DMS LABORATORIES INC. 87650.061 - QUALITY CONTROL~;55.051(051) RAPID STREP DMS LABORATORIES INC. 87650.054 - ORGANISM~;55.052(052) RAPID STREP DMS LABORATORIES INC. 87650.054 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,18)="55.053(053) R/B SYSTEM FLOW LABORATORIES INC. 87650.047 - ORGANISM~;55.054(054) R/B SYSTEM FLOW LABORATORIES INC. 87650.047 - QUALITY CONTROL~;55.055(055) STAPH IDENT ANALYTAB PRODUCTS INC. 87650.048 - ORGANISM~;"
^DIE(229,"DR",1,2100,19)="55.056(056) STAPH IDENT ANALYTAB PRODUCTS INC. 87650.048 - QUALITY CONTROL~;55.057(057) STAPH TRAC DMS LABORATORIES INC. 87650.049 - ORGANISM~;55.058(058) STAPH TRAC DMS LABORATORIES INC. 87650.049 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,20)="55.059(059) UNI-N/F-TEK FLOW LABORATORIES INC. 87650.050 - ORGANISM~;55.06(060) UNI-N/F-TEK FLOW LABORATORIES INC. 87650.050 - QUALITY CONTROL~;55.061(061) UNI-YEAST-TEK FLOW LABORATORIES INC. 87650.051 - ORGANISM~;"
^DIE(229,"DR",1,2100,21)="55.062(062) UNI-YEAST-TEK FLOW LABORATORIES INC. 87650.051 - QUALITY CONTROL~;55.063(063) ORGANISM ID/MIC COMBO-MANUAL 87750 - ORGANISM~;55.064(064) ORGANISM ID/MIC COMBO-MANUAL 87750 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,22)="55.065(065) MICRO MEDIA MICRO SYM. MEDIA (MIC/ID COMBO) 87750.037 - ORGANISM~;55.066(066) MICRO MEDIA MICRO SYM. MEDIA (MIC/ID COMBO) 87750.037 - QUALITY CONTROL~;"
^DIE(229,"DR",1,2100,23)="55.067(067) MICRO SCAN MICRO SCAN (MIC/ID COMBO) 87750.038 - ORGANISM~;55.068(068) MICRO SCAN MICRO SCAN (MIC/ID COMBO) 87750.038 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(230,0)="LR AMS5 MYCOLOGY H92^2900918.0851^^2100^0^^2931005"
^DIE(230,"DIAB",1,0,2100,1)="002-5;""(002) ACCESSIONING OF SPECIMEN FOR A MYCOLOGY CULTURE 87800 - QUALITY CONTROL"""
^DIE(230,"DIAB",1,0,2100,2)="004-5;""(004) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOLOGY CULTRUE 87801 - QUALITY CONTROL"""
^DIE(230,"DIAB",1,0,2100,3)="006-5;""(006) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87805 - QUALITY CONTROL"""
^DIE(230,"DIAB",1,0,2100,4)="009-5;""(009) GERM TUBE (INCLUDE SETUP AND READING) 87830 - ORGANISM"""
^DIE(230,"DIAB",1,0,2100,5)="011-5;""(011) MYCOLOGY SLIDE TEST (e.g. INDIA INK, KOH OR LACTOPHENOL COTTON BLUE 87832 - SLIDE"""
^DIE(230,"DIAB",1,0,2100,6)="013-5;""(013) YEAST CARBOHYDRATE ASSIMILATION TEST AUXANOGRAPHY 87834 - ORGANISM"""
^DIE(230,"DIAB",1,0,2100,7)="015-5;""(015) YEAST MORPHOLOGY AGAR (INCLUDES SETUP AND READING) 87836 - ORGANISM"""
^DIE(230,"DIAB",1,0,2100,8)="017-5;""(017) RECORDING AND REPORTING OF A MYCOLOGY CULTURE 87820 - SPECIMEN"""
^DIE(230,"DIAB",2,0,2100,1)="003-5;""(003) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87801 - SPECIMEN"""
^DIE(230,"DIAB",2,0,2100,2)="005-5;""(005) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87805 - SPECIMEN"""
^DIE(230,"DIAB",2,0,2100,3)="007-5;""(007) READING A MYCOLOGY CULTURE 87810 - SPECIMEN"""
^DIE(230,"DIAB",2,0,2100,4)="010-5;""(010) GERM TUBE (INCLUDE SETUP AND READING) 87830 - QUALITY CONTROL"""
^DIE(230,"DIAB",2,0,2100,5)="012-5;""(012) MYCOLOGY SLIDE TEST (e.g. INDIA INK, KOH OR LACTOPHENOL COTTON BLUE 87832 - QUALITY CONTROL"""
^DIE(230,"DIAB",2,0,2100,6)="014-5;""(014) YEAST CARBOHYDRATE ASSIMILATION TEST AUXANOGRAPHY 87834 - QUALITY CONTROL"""
^DIE(230,"DIAB",2,0,2100,7)="016-5;""(016) YEAST MORPHOLOGY AGAR (INCLUDES SETUP AND READING) 87836 - QUALITY CONTROL"""
^DIE(230,"DIAB",2,0,2100,8)="018-5;""(018) RECORDING AND REPORTING OF A MYCOLOGY CULTURE 87820 - QUALITY CONTROL"""
^DIE(230,"DIAB",3,0,2100,3)="008-5;""(008) READING A MYCOLOGY CULTURE 87810 - QUALITY CONTROL"""
^DIE(230,"DIAB",9,0,2100,0)="001-5;""(001) ACCESSIONING OF SPECIMEN FOR A MYCOLOGY CULTURE 87800 - SPECIMEN"""
^DIE(230,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=7;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACCESSIONING OF SPECIMEN FOR A MYCOLOGY CULTURE 87800 - SPECIMEN~;"
^DIE(230,"DR",1,2100,1)="55.002(002) ACCESSIONING OF SPECIMEN FOR A MYCOLOGY CULTURE 87800 - QUALITY CONTROL~;55.003(003) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87801 - SPECIMEN~;"
^DIE(230,"DR",1,2100,2)="55.004(004) PLANTING OF 1 PIECE OF MEDIA FOR A MYCOLOGY CULTRUE 87801 - QUALITY CONTROL~;55.005(005) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87805 - SPECIMEN~;"
^DIE(230,"DR",1,2100,3)="55.006(006) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A MYCOLOGY CULTURE 87805 - QUALITY CONTROL~;55.007(007) READING A MYCOLOGY CULTURE 87810 - SPECIMEN~;55.008(008) READING A MYCOLOGY CULTURE 87810 - QUALITY CONTROL~;"
^DIE(230,"DR",1,2100,4)="55.009(009) GERM TUBE (INCLUDE SETUP AND READING) 87830 - ORGANISM~;55.01(010) GERM TUBE (INCLUDE SETUP AND READING) 87830 - QUALITY CONTROL~;"
^DIE(230,"DR",1,2100,5)="55.011(011) MYCOLOGY SLIDE TEST (e.g. INDIA INK, KOH OR LACTOPHENOL COTTON BLUE 87832 - SLIDE~;55.012(012) MYCOLOGY SLIDE TEST (e.g. INDIA INK, KOH OR LACTOPHENOL COTTON BLUE 87832 - QUALITY CONTROL~;"
^DIE(230,"DR",1,2100,6)="55.013(013) YEAST CARBOHYDRATE ASSIMILATION TEST AUXANOGRAPHY 87834 - ORGANISM~;55.014(014) YEAST CARBOHYDRATE ASSIMILATION TEST AUXANOGRAPHY 87834 - QUALITY CONTROL~;"
^DIE(230,"DR",1,2100,7)="55.015(015) YEAST MORPHOLOGY AGAR (INCLUDES SETUP AND READING) 87836 - ORGANISM~;55.016(016) YEAST MORPHOLOGY AGAR (INCLUDES SETUP AND READING) 87836 - QUALITY CONTROL~;"
^DIE(230,"DR",1,2100,8)="55.017(017) RECORDING AND REPORTING OF A MYCOLOGY CULTURE 87820 - SPECIMEN~;55.018(018) RECORDING AND REPORTING OF A MYCOLOGY CULTURE 87820 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(231,0)="LR AMS5 PARASITOLOGY H93^2900918.0855^^2100^0^^2931005"
^DIE(231,"DIAB",1,0,2100,1)="002-5;""(002) ACCESSIONING OF SPECIMEN FOR A PARASITIC EXAMINATION 87900 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,2)="004-5;""(004) CONCENTRATION OF SPECIMEN FOR A PARASITIC EXAMINATION 87920 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,3)="006-5;""(006) FORMALIN ETHER OR FORMALIN ETHYL ACETATE CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.071 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,4)="008-5;""(008) MERTHIOLATE IODINE FORMALIN METHOD FOR A PARASITIC EXAMINATION 87920.072 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,5)="010-5;""(010) ZINC SULFATE FLOTATION-CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.074 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,6)="013-5;""(013) FECES MICRO EXAM (PREPARATION AND READING OF EACH SALINE OR IODINE SMEAR BEFORE OR AFTER CONCENTRATION 87925-076 - SMEAR"""
^DIE(231,"DIAB",1,0,2100,7)="014-5;""(014) FECES MICRO EXAM (PREPARATION AND READING OF EACH SALINE OR IODINE SMEAR BEFORE OR AFTER CONCENTRATION 87925.076 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,8)="015-5;""(015) FECES MACRO EXAMINATION (DESCRIPTION OF ANY SPECIMEN RECEIVED FOR PARASITOLOGY STUDIES 87925.075 - SPECIMEN"""
^DIE(231,"DIAB",1,0,2100,9)="016-5;""(016) FECES MACRO EXAMINATION (DESCRIPTION OF ANY SPECIMEN RECEIVED FOR PARASITOLOGY STUDIES 87925.075 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,10)="018-5;""(018) PIN WORM EXAMINATION-FECES 87925.077 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,11)="021-5;""(021) PARASITOLOGY STAINS 87930 - SLIDE"""
^DIE(231,"DIAB",1,0,2100,12)="024-5;""(024) IRON HEMATOXYLIN STAIN (INCLUDES PREPARING STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.067 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,13)="025-5;""(025) TRICHROME STAIN (INCLUDES PREPARING, STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.068 - SLIDE"""
^DIE(231,"DIAB",1,0,2100,14)="026-5;""(026) TRICHROME STAIN (INCLUDES PREPARING, STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.068 - QUALITY CONTROL"""
^DIE(231,"DIAB",1,0,2100,15)="028-5;""(028) RECORDING AND REPORTING OF A PARASITIC EXAMINATION 87910 - QUALITY CONTROL"""
^DIE(231,"DIAB",2,0,2100,1)="003-5;""(003) CONCENTRATION OF SPECIMEN FOR A PARASITIC EXAMINATION 87920 - SPECIMEN"""
^DIE(231,"DIAB",2,0,2100,2)="005-5;""(005) FORMALIN ETHER OR FORMALIN ETHYL ACETATE CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.071 - SPECIMEN"""
^DIE(231,"DIAB",2,0,2100,3)="007-5;""(007) MERTHIOLATE IODINE FORMALIN METHOD FOR A PARASITIC EXAMINATION 87920.072 - SPECIMEN"""
^DIE(231,"DIAB",2,0,2100,4)="009-5;""(009) ZINC SULFATE FLOTATION-CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.074 - SPECIMEN"""
^DIE(231,"DIAB",2,0,2100,5)="011-5;""(011) PARASITOLOGY EXAMINATION 87925 - SPECIMEN"""
^DIE(231,"DIAB",2,0,2100,9)="017-5;""(017) PIN WORM EXAMINATION-FECES 87925.077 - SLIDE"""
^DIE(231,"DIAB",2,0,2100,10)="019-5;""(019) WET PREPARATION FOR TRICHOMONAS 87925.078 - SMEAR"""
^DIE(231,"DIAB",2,0,2100,11)="022-5;""(022) PARASITOLOGY STAINS 87930 - QUALITY CONTROL"""
^DIE(231,"DIAB",2,0,2100,14)="027-5;""(027) RECORDING AND REPORTING OF A PARASITIC EXAMINATION 87910 - SPECIMEN"""
^DIE(231,"DIAB",3,0,2100,5)="012-5;""(012) PARASITOLOGY EXAMINATION 87925 - QUALITY CONTROL"""
^DIE(231,"DIAB",3,0,2100,10)="020-5;""(020) WET PREPARATION FOR TRICHOMONAS 87925.078 - QUALITY CONTROL"""
^DIE(231,"DIAB",3,0,2100,11)="023-5;""(023) IRON HEMATOXYLIN STAIN (INCLUDES PREPARING STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.067 - SLIDE"""
^DIE(231,"DIAB",9,0,2100,0)="001-5;""(001) ACCESSIONING OF SPECIMEN FOR A PARASITIC EXAMINATION 87900 - SPECIMEN"""
^DIE(231,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACCESSIONING OF SPECIMEN FOR A PARASITIC EXAMINATION 87900 - SPECIMEN~;"
^DIE(231,"DR",1,2100,1)="55.002(002) ACCESSIONING OF SPECIMEN FOR A PARASITIC EXAMINATION 87900 - QUALITY CONTROL~;55.003(003) CONCENTRATION OF SPECIMEN FOR A PARASITIC EXAMINATION 87920 - SPECIMEN~;"
^DIE(231,"DR",1,2100,2)="55.004(004) CONCENTRATION OF SPECIMEN FOR A PARASITIC EXAMINATION 87920 - QUALITY CONTROL~;55.005(005) FORMALIN ETHER OR FORMALIN ETHYL ACETATE CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.071 - SPECIMEN~;"
^DIE(231,"DR",1,2100,3)="55.006(006) FORMALIN ETHER OR FORMALIN ETHYL ACETATE CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.071 - QUALITY CONTROL~;55.007(007) MERTHIOLATE IODINE FORMALIN METHOD FOR A PARASITIC EXAMINATION 87920.072 - SPECIMEN~;"
^DIE(231,"DR",1,2100,4)="55.008(008) MERTHIOLATE IODINE FORMALIN METHOD FOR A PARASITIC EXAMINATION 87920.072 - QUALITY CONTROL~;55.009(009) ZINC SULFATE FLOTATION-CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.074 - SPECIMEN~;"
^DIE(231,"DR",1,2100,5)="55.01(010) ZINC SULFATE FLOTATION-CONCENTRATION METHOD FOR A PARASITIC EXAMINATION 87920.074 - QUALITY CONTROL~;55.011(011) PARASITOLOGY EXAMINATION 87925 - SPECIMEN~;55.012(012) PARASITOLOGY EXAMINATION 87925 - QUALITY CONTROL~;"
^DIE(231,"DR",1,2100,6)="55.013(013) FECES MICRO EXAM (PREPARATION AND READING OF EACH SALINE OR IODINE SMEAR BEFORE OR AFTER CONCENTRATION 87925-076 - SMEAR~;"
^DIE(231,"DR",1,2100,7)="55.014(014) FECES MICRO EXAM (PREPARATION AND READING OF EACH SALINE OR IODINE SMEAR BEFORE OR AFTER CONCENTRATION 87925.076 - QUALITY CONTROL~;"
^DIE(231,"DR",1,2100,8)="55.015(015) FECES MACRO EXAMINATION (DESCRIPTION OF ANY SPECIMEN RECEIVED FOR PARASITOLOGY STUDIES 87925.075 - SPECIMEN~;"
^DIE(231,"DR",1,2100,9)="55.016(016) FECES MACRO EXAMINATION (DESCRIPTION OF ANY SPECIMEN RECEIVED FOR PARASITOLOGY STUDIES 87925.075 - QUALITY CONTROL~;55.017(017) PIN WORM EXAMINATION-FECES 87925.077 - SLIDE~;"
^DIE(231,"DR",1,2100,10)="55.018(018) PIN WORM EXAMINATION-FECES 87925.077 - QUALITY CONTROL~;55.019(019) WET PREPARATION FOR TRICHOMONAS 87925.078 - SMEAR~;55.02(020) WET PREPARATION FOR TRICHOMONAS 87925.078 - QUALITY CONTROL~;"
^DIE(231,"DR",1,2100,11)="55.021(021) PARASITOLOGY STAINS 87930 - SLIDE~;55.022(022) PARASITOLOGY STAINS 87930 - QUALITY CONTROL~;55.023(023) IRON HEMATOXYLIN STAIN (INCLUDES PREPARING STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.067 - SLIDE~;"
^DIE(231,"DR",1,2100,12)="55.024(024) IRON HEMATOXYLIN STAIN (INCLUDES PREPARING STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.067 - QUALITY CONTROL~;"
^DIE(231,"DR",1,2100,13)="55.025(025) TRICHROME STAIN (INCLUDES PREPARING, STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.068 - SLIDE~;"
^DIE(231,"DR",1,2100,14)="55.026(026) TRICHROME STAIN (INCLUDES PREPARING, STAINING AND EXAMINING 1 SLIDE FOR PARASITES 87930.068 - QUALITY CONTROL~;55.027(027) RECORDING AND REPORTING OF A PARASITIC EXAMINATION 87910 - SPECIMEN~;"
^DIE(231,"DR",1,2100,15)="55.028(028) RECORDING AND REPORTING OF A PARASITIC EXAMINATION 87910 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(232,0)="LR AMS5 HISTOLOGY H94^2900421.0853^^2100^^^2931005"
^DIE(232,"DIAB",1,0,2100,1)="003-5;""(003) BARIUM IMPREGNATION 88258 - SLIDE"""
^DIE(232,"DIAB",1,0,2100,2)="007-5;""(007) FILM DEV/1ST PRINT/B&W 88435 - ROLL"""
^DIE(232,"DIAB",1,0,2100,3)="011-5;""(011) SPLEEN/LYMPH NODE FILM PREP 88180 - TEST"""
^DIE(232,"DIAB",1,0,2100,4)="015-5;""(015) STAINS, GROUP 2 88305 - QUALITY CONTROL"""
^DIE(232,"DIAB",1,0,2100,5)="019-5;""(019) STAINS, GROUP 4 88315 - QUALITY CONTROL"""
^DIE(232,"DIAB",1,0,2100,6)="023-5;""(023) STAINS, GROUP 6 88325 - QUALITY CONTROL"""
^DIE(232,"DIAB",2,0,2100,1)="004-5;""(004) BARIUM IMPREGNATION 88258 - QUALITY CONTROL"""
^DIE(232,"DIAB",2,0,2100,2)="008-5;""(008) FILM PRINT, ADD PRINT 88440 - PRINT"""
^DIE(232,"DIAB",2,0,2100,3)="012-5;""(012) STAINS, GROUP 1 88300 - SLIDE"""
^DIE(232,"DIAB",2,0,2100,4)="016-5;""(016) STAINS, GROUP 3 88310 - SLIDE"""
^DIE(232,"DIAB",2,0,2100,5)="020-5;""(020) STAINS, GROUP 5 88320 - SLIDE"""
^DIE(232,"DIAB",3,0,2100,1)="005-5;""(005) CHROMOSOMAL KARYOGRAM 88250 - SPECIMEN"""
^DIE(232,"DIAB",3,0,2100,2)="009-5;""(009) PHOTOGRAPHS, GROSS 88430 - SPECIMEN"""
^DIE(232,"DIAB",3,0,2100,3)="013-5;""(013) STAINS, GR0UP 1 88300 - QUALITY CONTROL"""
^DIE(232,"DIAB",3,0,2100,4)="017-5;""(017) STAINS, GROUP 3 88310 - QUALITY CONTROL"""
^DIE(232,"DIAB",3,0,2100,5)="021-5;""(021) STAINS, GROUP 5 88320 - QUALITY CONTROL"""
^DIE(232,"DIAB",4,0,2100,1)="006-5;""(006) CHROMOSOME KARYOTYPE (AMNIOTIC FLUID) 88252 - SPECIMEN"""
^DIE(232,"DIAB",4,0,2100,2)="010-5;""(010) CHROMATIN SMEARS 88245 - SPECIMEN"""
^DIE(232,"DIAB",4,0,2100,3)="014-5;""(014) STAINS, GROUP 2 88305 - SLIDE"""
^DIE(232,"DIAB",4,0,2100,4)="018-5;""(018) STAINS, GROUP 4 88315 - SLIDE"""
^DIE(232,"DIAB",4,0,2100,5)="022-5;""(022) STAINS, GROUP 6 88325 - SLIDE"""
^DIE(232,"DIAB",9,0,2100,0)="001-5;""(001) AUTORADIOLOGY 88257 - SLIDE"""
^DIE(232,"DIAB",10,0,2100,0)="002-5;""(002) AUTORADIOLOGY 88257 - QUALITY CONTROL"""
^DIE(232,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) AUTORADIOLOGY 88257 - SLIDE~;55.002(002) AUTORADIOLOGY 88257 - QUALITY CONTROL~;"
^DIE(232,"DR",1,2100,1)="55.003(003) BARIUM IMPREGNATION 88258 - SLIDE~;55.004(004) BARIUM IMPREGNATION 88258 - QUALITY CONTROL~;55.005(005) CHROMOSOMAL KARYOGRAM 88250 - SPECIMEN~;55.006(006) CHROMOSOME KARYOTYPE (AMNIOTIC FLUID) 88252 - SPECIMEN~;"
^DIE(232,"DR",1,2100,2)="55.007(007) FILM DEV/1ST PRINT/B&W 88435 - ROLL~;55.008(008) FILM PRINT, ADD PRINT 88440 - PRINT~;55.009(009) PHOTOGRAPHS, GROSS 88430 - SPECIMEN~;55.01(010) CHROMATIN SMEARS 88245 - SPECIMEN~;"
^DIE(232,"DR",1,2100,3)="55.011(011) SPLEEN/LYMPH NODE FILM PREP 88180 - TEST~;55.012(012) STAINS, GROUP 1 88300 - SLIDE~;55.013(013) STAINS, GR0UP 1 88300 - QUALITY CONTROL~;55.014(014) STAINS, GROUP 2 88305 - SLIDE~;"
^DIE(232,"DR",1,2100,4)="55.015(015) STAINS, GROUP 2 88305 - QUALITY CONTROL~;55.016(016) STAINS, GROUP 3 88310 - SLIDE~;55.017(017) STAINS, GROUP 3 88310 - QUALITY CONTROL~;55.018(018) STAINS, GROUP 4 88315 - SLIDE~;"
^DIE(232,"DR",1,2100,5)="55.019(019) STAINS, GROUP 4 88315 - QUALITY CONTROL~;55.02(020) STAINS, GROUP 5 88320 - SLIDE~;55.021(021) STAINS, GROUP 5 88320 - QUALITY CONTROL~;55.022(022) STAINS, GROUP 6 88325 - SLIDE~;"
^DIE(232,"DR",1,2100,6)="55.023(023) STAINS, GROUP 6 88325 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(233,0)="LR AMS5 ELECTRON MICRO H95^2900918.0856^^2100^0^^2900918"
^DIE(233,"DIAB",1,0,2100,1)="003-5;""(03) PHOTOGRAPHY AND DEVELOPMENT 88202A - PICTURE"""
^DIE(233,"DIAB",2,0,2100,1)="004-5;""(04) SCREEN AND PHOTO 88204A - GRID"""
^DIE(233,"DIAB",3,0,2100,1)="005-5;""(05) THICK SECTION 88206A - SECTION"""
^DIE(233,"DIAB",4,0,2100,1)="006-5;""(06) THIN SECTION 88208A - SECTION"""
^DIE(233,"DIAB",9,0,2100,0)="001-5;""(01) PREPARATION 88200A - SPECIMEN"""
^DIE(233,"DIAB",10,0,2100,0)="002-5;""(02) SPECIMEN ACCESSION AND CLERICAL 88201A - SPECIMEN"""
^DIE(233,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(01) PREPARATION 88200A - SPECIMEN~;55.002(02) SPECIMEN ACCESSION AND CLERICAL 88201A - SPECIMEN~;"
^DIE(233,"DR",1,2100,1)="55.003(03) PHOTOGRAPHY AND DEVELOPMENT 88202A - PICTURE~;55.004(04) SCREEN AND PHOTO 88204A - GRID~;55.005(05) THICK SECTION 88206A - SECTION~;55.006(06) THIN SECTION 88208A - SECTION~;99///^S X=""$"";"
^DIE(234,0)="LR AMS5 CYTOLOGY H96^2900421.0911^^2100^^^2931005"
^DIE(234,"DIAB",1,0,2100,1)="002-5;""(002) CLERICAL FUNCTION - CYTOLOGY ABNOR OR POS REPORT 88146 - SPECIMEN"""
^DIE(234,"DIAB",1,0,2100,2)="004-5;""(004) FLUID - CYTOLOGY (CONCENTRATION BY CENTRIFUGATION) 88172 - QUALITY CONTROL"""
^DIE(234,"DIAB",1,0,2100,3)="006-5;""(006) FLUID,MEMBRANE-FILTER,COMPLETE - CYTOLOGY 88173 - QUALITY CONTROL"""
^DIE(234,"DIAB",1,0,2100,4)="009-5;""(009) SCREEN,CYTOLOGY SMEAR,GYN (TECHNICAL) 88150 - SMEAR"""
^DIE(234,"DIAB",1,0,2100,5)="012-5;""(012) SCREEN,CYTOLOGY SMEAR,NON GYN 88155 - QUALITY CONTROL"""
^DIE(234,"DIAB",1,0,2100,6)="015-5;""(015) SMEAR - CYTOLOGY (STAIN AND MOUNT ONLY) 88175 - SMEAR"""
^DIE(234,"DIAB",1,0,2100,7)="018-5;""(018) SCREEN, CYTOLOGY CELL BLOCK 88148 - QUALITY CONTROL"""
^DIE(234,"DIAB",2,0,2100,1)="003-5;""(003) FLUID - CYTOLOGY (CONCENTRATION BY CENTRIFUGATION) 88172 - SPECIMEN"""
^DIE(234,"DIAB",2,0,2100,2)="005-5;""(005) FLUID,MEMBRANE-FILTER,COMPLETE - CYTOLOGY 88173 - SLIDE"""
^DIE(234,"DIAB",2,0,2100,3)="007-5;""(007) HORMONE EVALUATION - CYTOLOGY 88157 - SPECIMEN"""
^DIE(234,"DIAB",2,0,2100,4)="010-5;""(010) SCREEN,CYTOLOGY SMEAR,GYN (TECHNICAL) 88150 - QUALITY CONTROL"""
^DIE(234,"DIAB",2,0,2100,5)="013-5;""(013) SMEAR - CYTOLOGY (MAKE STAIN AND MOUNT) 88170 - SMEAR"""
^DIE(234,"DIAB",2,0,2100,6)="016-5;""(016) SMEAR - CYTOLOGY (STAIN AND MOUNT ONLY) 88175 - QUALITY CONTROL"""
^DIE(234,"DIAB",3,0,2100,3)="008-5;""(008) HORMONE EVALUATION - CYTOLOGY 88157 - QUALITY CONTROL"""
^DIE(234,"DIAB",3,0,2100,4)="011-5;""(011) SCREEN,CYTOLOGY SMEAR,NON GYN 88155 - SMEAR"""
^DIE(234,"DIAB",3,0,2100,5)="014-5;""(014) SMEAR - CYTOLOGY (MAKE STAIN AND MOUNT) 88170 - QUALITY CONTROL"""
^DIE(234,"DIAB",3,0,2100,6)="017-5;""(017) SCREEN, CYTOLOGY CELL BLOCK 88148 - SLIDE"""
^DIE(234,"DIAB",9,0,2100,0)="001-5;""(001) CLERICAL FUNCTION - CYTOLOGY NORMAL OR NEGATIVE REPORT 88145 - SPECIMEN"""
^DIE(234,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) CLERICAL FUNCTION - CYTOLOGY NORMAL OR NEGATIVE REPORT 88145 - SPECIMEN~;"
^DIE(234,"DR",1,2100,1)="55.002(002) CLERICAL FUNCTION - CYTOLOGY ABNOR OR POS REPORT 88146 - SPECIMEN~;55.003(003) FLUID - CYTOLOGY (CONCENTRATION BY CENTRIFUGATION) 88172 - SPECIMEN~;"
^DIE(234,"DR",1,2100,2)="55.004(004) FLUID - CYTOLOGY (CONCENTRATION BY CENTRIFUGATION) 88172 - QUALITY CONTROL~;55.005(005) FLUID,MEMBRANE-FILTER,COMPLETE - CYTOLOGY 88173 - SLIDE~;"
^DIE(234,"DR",1,2100,3)="55.006(006) FLUID,MEMBRANE-FILTER,COMPLETE - CYTOLOGY 88173 - QUALITY CONTROL~;55.007(007) HORMONE EVALUATION - CYTOLOGY 88157 - SPECIMEN~;55.008(008) HORMONE EVALUATION - CYTOLOGY 88157 - QUALITY CONTROL~;"
^DIE(234,"DR",1,2100,4)="55.009(009) SCREEN,CYTOLOGY SMEAR,GYN (TECHNICAL) 88150 - SMEAR~;55.01(010) SCREEN,CYTOLOGY SMEAR,GYN (TECHNICAL) 88150 - QUALITY CONTROL~;55.011(011) SCREEN,CYTOLOGY SMEAR,NON GYN 88155 - SMEAR~;"
^DIE(234,"DR",1,2100,5)="55.012(012) SCREEN,CYTOLOGY SMEAR,NON GYN 88155 - QUALITY CONTROL~;55.013(013) SMEAR - CYTOLOGY (MAKE STAIN AND MOUNT) 88170 - SMEAR~;55.014(014) SMEAR - CYTOLOGY (MAKE STAIN AND MOUNT) 88170 - QUALITY CONTROL~;"
^DIE(234,"DR",1,2100,6)="55.015(015) SMEAR - CYTOLOGY (STAIN AND MOUNT ONLY) 88175 - SMEAR~;55.016(016) SMEAR - CYTOLOGY (STAIN AND MOUNT ONLY) 88175 - QUALITY CONTROL~;55.017(017) SCREEN, CYTOLOGY CELL BLOCK 88148 - SLIDE~;"
^DIE(234,"DR",1,2100,7)="55.018(018) SCREEN, CYTOLOGY CELL BLOCK 88148 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(235,0)="LR AMS5 SUSCEPTIBILITY H97^2900918.0903^^2100^0^^2931005"
^DIE(235,"DIAB",1,0,2100,1)="002-5;""(002) ANTIMICROBIC ASSAY/MICROBIOLOGICAL/SERUM (AGAR DIFFUSION ASSAY) 87950 - QUALITY CONTROL"""
^DIE(235,"DIAB",1,0,2100,2)="004-5;""(004) BACTERICIDAL ACTIVITY IN SERUM (SCHLICHTER MACRO TUBE METHOD) 87952 - QUALITY CONTROL"""
^DIE(235,"DIAB",1,0,2100,3)="005-5;""(005) MIC-IN-HOUSE PREPARATION OF MICRO DILUTION TRAYS (INCLUDES PREPARATION OF TRAYS AND PERFORMANCE OF MIC TEST) 87954.063 - ORGANISM"""
^DIE(235,"DIAB",1,0,2100,4)="006-5;""(006) MIC-IN-HOUSE PREPARATION OF MICRO DILUTION TRAYS (INCLUDES PREPARATION OF TRAYS AND PERFORMANCE OF MIC TEST) 87954.063 - QUALITY CONTROL"""
^DIE(235,"DIAB",1,0,2100,5)="007-5;""(007) MICRO MEDIA/MICRO MEDIA SYSTEMS (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.037 - ORGANISM"""
^DIE(235,"DIAB",1,0,2100,6)="009-5;""(009) MICRO SCAN/MICRO SCAN (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.038 - ORGANISM"""
^DIE(235,"DIAB",1,0,2100,7)="011-5;""(011) SENSITITRE GIBCO 87954.060 - ORGANISM"""
^DIE(235,"DIAB",1,0,2100,8)="014-5;""(014) SENSITIVITY TESTING OR MIC/MANUAL 87954 - QUALITY CONTROL"""
^DIE(235,"DIAB",1,0,2100,9)="016-5;""(016) SENSITIVITY TESTING - BROTH DISK ANAEROBIC BACTERIA 87956 - QUALITY CONTROL"""
^DIE(235,"DIAB",2,0,2100,1)="003-5;""(003) BACTERICIDAL ACTIVITY IN SERUM (SCHLICHTER MACRO TUBE METHOD) 87952 - SPECIMEN"""
^DIE(235,"DIAB",2,0,2100,5)="008-5;""(008) MICRO MEDIA/MICRO MEDIA SYSTEMS (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.037 - QUALITY CONTROL"""
^DIE(235,"DIAB",2,0,2100,6)="010-5;""(010) MICRO SCAN/MICRO SCAN (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.038 - QUALITY CONTROL"""
^DIE(235,"DIAB",2,0,2100,7)="012-5;""(012) SENSITITRE GIBCO 87954.060 - QUALITY CONTROL"""
^DIE(235,"DIAB",2,0,2100,8)="015-5;""(015) SENSITIVITY TESTING - BROTH DISK ANAEROBIC BACTERIA 87956 - TUBE"""
^DIE(235,"DIAB",2,0,2100,9)="017-5;""(017) SENSITIVITY TESTING - KIRBY BAUER 87958 - ORGANISM"""
^DIE(235,"DIAB",3,0,2100,7)="013-5;""(013) SENSITIVITY TESTING OR MIC/MANUAL 87954 - ORGANISM"""
^DIE(235,"DIAB",3,0,2100,9)="018-5;""(018) SENSITIVITY TESTING - KIRBY BAUER 87958 - QUALITY CONTROL"""
^DIE(235,"DIAB",9,0,2100,0)="001-5;""(001) ANTIMICROBIC ASSAY/MICROBIOLOGICAL/SERUM (AGAR DIFFUSION ASSAY) 87950 - SPECIMEN"""
^DIE(235,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ANTIMICROBIC ASSAY/MICROBIOLOGICAL/SERUM (AGAR DIFFUSION ASSAY) 87950 - SPECIMEN~;"
^DIE(235,"DR",1,2100,1)="55.002(002) ANTIMICROBIC ASSAY/MICROBIOLOGICAL/SERUM (AGAR DIFFUSION ASSAY) 87950 - QUALITY CONTROL~;55.003(003) BACTERICIDAL ACTIVITY IN SERUM (SCHLICHTER MACRO TUBE METHOD) 87952 - SPECIMEN~;"
^DIE(235,"DR",1,2100,2)="55.004(004) BACTERICIDAL ACTIVITY IN SERUM (SCHLICHTER MACRO TUBE METHOD) 87952 - QUALITY CONTROL~;"
^DIE(235,"DR",1,2100,3)="55.005(005) MIC-IN-HOUSE PREPARATION OF MICRO DILUTION TRAYS (INCLUDES PREPARATION OF TRAYS AND PERFORMANCE OF MIC TEST) 87954.063 - ORGANISM~;"
^DIE(235,"DR",1,2100,4)="55.006(006) MIC-IN-HOUSE PREPARATION OF MICRO DILUTION TRAYS (INCLUDES PREPARATION OF TRAYS AND PERFORMANCE OF MIC TEST) 87954.063 - QUALITY CONTROL~;"
^DIE(235,"DR",1,2100,5)="55.007(007) MICRO MEDIA/MICRO MEDIA SYSTEMS (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.037 - ORGANISM~;55.008(008) MICRO MEDIA/MICRO MEDIA SYSTEMS (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.037 - QUALITY CONTROL~;"
^DIE(235,"DR",1,2100,6)="55.009(009) MICRO SCAN/MICRO SCAN (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.038 - ORGANISM~;55.01(010) MICRO SCAN/MICRO SCAN (MIC ONLY,INCLUDES PURITY CHECK PLATE) 87954.038 - QUALITY CONTROL~;"
^DIE(235,"DR",1,2100,7)="55.011(011) SENSITITRE GIBCO 87954.060 - ORGANISM~;55.012(012) SENSITITRE GIBCO 87954.060 - QUALITY CONTROL~;55.013(013) SENSITIVITY TESTING OR MIC/MANUAL 87954 - ORGANISM~;"
^DIE(235,"DR",1,2100,8)="55.014(014) SENSITIVITY TESTING OR MIC/MANUAL 87954 - QUALITY CONTROL~;55.015(015) SENSITIVITY TESTING - BROTH DISK ANAEROBIC BACTERIA 87956 - TUBE~;"
^DIE(235,"DR",1,2100,9)="55.016(016) SENSITIVITY TESTING - BROTH DISK ANAEROBIC BACTERIA 87956 - QUALITY CONTROL~;55.017(017) SENSITIVITY TESTING - KIRBY BAUER 87958 - ORGANISM~;55.018(018) SENSITIVITY TESTING - KIRBY BAUER 87958 - QUALITY CONTROL~;"
^DIE(235,"DR",1,2100,10)="99///^S X=""$"";"
^DIE(236,0)="LR AMS5 VIROLOGY H98^2900421.0939^^2100^^^2931005"
^DIE(236,"DIAB",1,0,2100,1)="002-5;""(002) ACCESSIONING OF SPECIMEN FOR A VIROLOGY CULTURE 87970.001 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,2)="004-5;""(004) DECONTAMINATION OF SPECIMEN FOR VIRAL ISOLATION ATTEMPTS 87972 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,3)="006-5;""(006) PLANTING OF 1 PIECE OF MEDIA FOR VIROLOGY CULTURE 87970.100 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,4)="008-5;""(008) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A VIROLOGY CULTURE 87970.200 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,5)="010-5;""(010) TISSUE CULTURE FEEDING (FOR EACH FEEDING) 87974 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,6)="013-5;""(013) TISSUE CULTURE READING (FOR EACH READING) 87978 - PBT"""
^DIE(236,"DIAB",1,0,2100,7)="016-5;""(016) TISSUE CULTURE SPECIMEN ISOLATE STORAGE 87980 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,8)="018-5;""(018) TISSUE CULTURE/VIRAL (PER INOCULUM FOR EACH MEDIUM 87982 - QUALITY CONTROL"""
^DIE(236,"DIAB",1,0,2100,9)="020-5;""(020) RECORDING AND REPORTING OF A VIROLOGY CULTURE 87990 - QUALITY CONTROL"""
^DIE(236,"DIAB",2,0,2100,1)="003-5;""(003) DECONTAMINATION OF SPECIMEN FOR VIRAL ISOLATION ATTEMPTS 87972 - SPECIMEN"""
^DIE(236,"DIAB",2,0,2100,2)="005-5;""(005) PLANTING OF 1 PIECE OF MEDIA FOR VIROLOGY CULTURE 87970.100 - SPECIMEN"""
^DIE(236,"DIAB",2,0,2100,3)="007-5;""(007) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A VIROLOGY CULTURE 87970.200 - SPECIMEN"""
^DIE(236,"DIAB",2,0,2100,4)="009-5;""(009) TISSUE CULTURE FEEDING (FOR EACH FEEDING) 87974 - PBT"""
^DIE(236,"DIAB",2,0,2100,5)="011-5;""(011) TISSUE CULTURE PASSAGE (FOR EACH PASSAGE) 87976 - PBT"""
^DIE(236,"DIAB",2,0,2100,6)="014-5;""(014) TISSUE CULTURE READING (FOR EACH READING) 87978 - QUALITY CONTROL"""
^DIE(236,"DIAB",2,0,2100,7)="017-5;""(017) TISSUE CULTURE/VIRAL (PER INOCULUM FOR EACH MEDIUM 87982 - PBT"""
^DIE(236,"DIAB",2,0,2100,8)="019-5;""(019) RECORDING AND REPORTING OF A VIROLOGY CULTURE 87990 - SPECIMEN"""
^DIE(236,"DIAB",3,0,2100,5)="012-5;""(012) TISSUE CULTURE PASSAGE (FOR EACH PASSAGE) 87976 - QUALITY CONTROL"""
^DIE(236,"DIAB",3,0,2100,6)="015-5;""(015) TISSUE CULTURE SPECIMEN ISOLATE STORAGE 87980 - SPECIMEN"""
^DIE(236,"DIAB",9,0,2100,0)="001-5;""(001) ACCESSIONING OF SPECIMEN FOR A VIROLOGY CULTURE 87970.001 - SPECIMEN"""
^DIE(236,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ACCESSIONING OF SPECIMEN FOR A VIROLOGY CULTURE 87970.001 - SPECIMEN~;"
^DIE(236,"DR",1,2100,1)="55.002(002) ACCESSIONING OF SPECIMEN FOR A VIROLOGY CULTURE 87970.001 - QUALITY CONTROL~;55.003(003) DECONTAMINATION OF SPECIMEN FOR VIRAL ISOLATION ATTEMPTS 87972 - SPECIMEN~;"
^DIE(236,"DR",1,2100,2)="55.004(004) DECONTAMINATION OF SPECIMEN FOR VIRAL ISOLATION ATTEMPTS 87972 - QUALITY CONTROL~;55.005(005) PLANTING OF 1 PIECE OF MEDIA FOR VIROLOGY CULTURE 87970.100 - SPECIMEN~;"
^DIE(236,"DR",1,2100,3)="55.006(006) PLANTING OF 1 PIECE OF MEDIA FOR VIROLOGY CULTURE 87970.100 - QUALITY CONTROL~;55.007(007) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A VIROLOGY CULTURE 87970.200 - SPECIMEN~;"
^DIE(236,"DR",1,2100,4)="55.008(008) PLANTING OF EACH ADDITIONAL PIECE OF MEDIA FOR A VIROLOGY CULTURE 87970.200 - QUALITY CONTROL~;55.009(009) TISSUE CULTURE FEEDING (FOR EACH FEEDING) 87974 - PBT~;"
^DIE(236,"DR",1,2100,5)="55.01(010) TISSUE CULTURE FEEDING (FOR EACH FEEDING) 87974 - QUALITY CONTROL~;55.011(011) TISSUE CULTURE PASSAGE (FOR EACH PASSAGE) 87976 - PBT~;55.012(012) TISSUE CULTURE PASSAGE (FOR EACH PASSAGE) 87976 - QUALITY CONTROL~;"
^DIE(236,"DR",1,2100,6)="55.013(013) TISSUE CULTURE READING (FOR EACH READING) 87978 - PBT~;55.014(014) TISSUE CULTURE READING (FOR EACH READING) 87978 - QUALITY CONTROL~;55.015(015) TISSUE CULTURE SPECIMEN ISOLATE STORAGE 87980 - SPECIMEN~;"
^DIE(236,"DR",1,2100,7)="55.016(016) TISSUE CULTURE SPECIMEN ISOLATE STORAGE 87980 - QUALITY CONTROL~;55.017(017) TISSUE CULTURE/VIRAL (PER INOCULUM FOR EACH MEDIUM 87982 - PBT~;"
^DIE(236,"DR",1,2100,8)="55.018(018) TISSUE CULTURE/VIRAL (PER INOCULUM FOR EACH MEDIUM 87982 - QUALITY CONTROL~;55.019(019) RECORDING AND REPORTING OF A VIROLOGY CULTURE 87990 - SPECIMEN~;"
^DIE(236,"DR",1,2100,9)="55.02(020) RECORDING AND REPORTING OF A VIROLOGY CULTURE 87990 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(237,0)="LR AMS5 ENVIRONMENTAL H99^2900918.0905^^2100^0^^2931005"
^DIE(237,"DIAB",1,0,2100,1)="002-5;""(002) AUTOCLAVE CONTROL ATTEST (INCLUDES SETUP AND READING) 87704 - TUBE"""
^DIE(237,"DIAB",1,0,2100,2)="004-5;""(004) DAILY MICROBIOLOGY DEPT MAINTENANCE (e.g. TAKING TEMPERATURES) 87709 - FUNCTION"""
^DIE(237,"DIAB",1,0,2100,3)="007-5;""(007) KILLET AMPULE AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87722 - TUBE"""
^DIE(237,"DIAB",1,0,2100,4)="010-5;""(010) MONITORING INCUBATOR CO2 LEVELS 87725 - FUNCTION"""
^DIE(237,"DIAB",1,0,2100,5)="012-5;""(012) SPORDEX/SPORDII AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87732 -QUALITY CONTROL"""
^DIE(237,"DIAB",1,0,2100,6)="014-5;""(014) WASHING BENCHTOP IN MICROBIOLOGY DEPARTMENT 87744 - QUALITY CONTROL"""
^DIE(237,"DIAB",2,0,2100,1)="003-5;""(003) AUTOCLAVE CONTROL ATTEST (INCLUDES SETUP AND READING) 87704 - QUALITY CONTROL"""
^DIE(237,"DIAB",2,0,2100,2)="005-5;""(005) DISPOSAL OF CONTAMINATED MATERIAL 87713 - BAG"""
^DIE(237,"DIAB",2,0,2100,3)="008-5;""(008) KILLET AMPULE AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87722 - QUALITY CONTROL"""
^DIE(237,"DIAB",2,0,2100,4)="011-5;""(011) SPORDEX/SPORDII AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87732 - TUBE"""
^DIE(237,"DIAB",2,0,2100,5)="013-5;""(013) WASHING BENCHTOP IN MICROBIOLOGY DEPARTMENT 87744 - FUNCTION"""
^DIE(237,"DIAB",3,0,2100,2)="006-5;""(006) FREEZING ORGANISMS 87714 - TUBE"""
^DIE(237,"DIAB",3,0,2100,3)="009-5;""(009) MEDIA PREPARATION 87724 - PBT"""
^DIE(237,"DIAB",9,0,2100,0)="001-5;""(001) ANAEROBIC JAR FLUSHING 87703 - JAR"""
^DIE(237,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) ANAEROBIC JAR FLUSHING 87703 - JAR~;"
^DIE(237,"DR",1,2100,1)="55.002(002) AUTOCLAVE CONTROL ATTEST (INCLUDES SETUP AND READING) 87704 - TUBE~;55.003(003) AUTOCLAVE CONTROL ATTEST (INCLUDES SETUP AND READING) 87704 - QUALITY CONTROL~;"
^DIE(237,"DR",1,2100,2)="55.004(004) DAILY MICROBIOLOGY DEPT MAINTENANCE (e.g. TAKING TEMPERATURES) 87709 - FUNCTION~;55.005(005) DISPOSAL OF CONTAMINATED MATERIAL 87713 - BAG~;55.006(006) FREEZING ORGANISMS 87714 - TUBE~;"
^DIE(237,"DR",1,2100,3)="55.007(007) KILLET AMPULE AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87722 - TUBE~;55.008(008) KILLET AMPULE AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87722 - QUALITY CONTROL~;55.009(009) MEDIA PREPARATION 87724 - PBT~;"
^DIE(237,"DR",1,2100,4)="55.01(010) MONITORING INCUBATOR CO2 LEVELS 87725 - FUNCTION~;55.011(011) SPORDEX/SPORDII AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87732 - TUBE~;"
^DIE(237,"DR",1,2100,5)="55.012(012) SPORDEX/SPORDII AUTOCLAVE CONTROL (INCLUDES SETUP AND READING) 87732 -QUALITY CONTROL~;55.013(013) WASHING BENCHTOP IN MICROBIOLOGY DEPARTMENT 87744 - FUNCTION~;"
^DIE(237,"DR",1,2100,6)="55.014(014) WASHING BENCHTOP IN MICROBIOLOGY DEPARTMENT 87744 - QUALITY CONTROL~;99///^S X=""$"";"
^DIE(238,0)="LR AMS5 RADIOISOTOPES J03^2900421.1449^^2100"
^DIE(238,"DIAB",1,0,2100,1)="003-5;""(003) BONE IMAGE/2 VIEWS 78304 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,2)="007-5;""(007) BRAIN IMAGE/3 VIEWS 78312 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,3)="011-5;""(011) BRAIN SCAN/3 VIEWS 78310 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,4)="015-5;""(015) CISTERNOGRAM SCAN/3 VIEWS 78321 - PTVIS"""
^DIE(238,"DIAB",1,0,2100,5)="018-5;""(018) IRON ABSORPTION & UTILIZATION 78170 - TEST"""
^DIE(238,"DIAB",1,0,2100,6)="022-5;""(022) LIVER SCAN, ADD VIEW 78349 - VIEW"""
^DIE(238,"DIAB",1,0,2100,7)="026-5;""(026) LUNG SCAN ADD VIEW 78361 - VIEW"""
^DIE(238,"DIAB",1,0,2100,8)="030-5;""(030) PANCREATIC SCAN, ADD VIEW 78371 - VIEW"""
^DIE(238,"DIAB",1,0,2100,9)="034-5;""(034) RENAL IMAGE/2 VIEWS 78342 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,10)="038-5;""(038) RENOGRAM 1-131 78515 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,11)="043-5;""(043) SPLEEN SCAN/2 VIEWS 78420 - PATIENT"""
^DIE(238,"DIAB",1,0,2100,12)="047-5;""(047) THYROID SCAN/1 VIEW/INC UPTAKE 78005 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,1)="004-5;""(004) BONE IMAGE, ADD VIEW 78309 - VIEW"""
^DIE(238,"DIAB",2,0,2100,2)="008-5;""(008) BRAIN IMAGE, ADD VIEW 78313 - VIEW"""
^DIE(238,"DIAB",2,0,2100,3)="012-5;""(012) BRAIN SCAN, ADD VIEWS 78303 - VIEW"""
^DIE(238,"DIAB",2,0,2100,4)="016-5;""(016) CLERICAL FUNCTIONS IN VIVO RADIOISOTOPE 78900 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,5)="019-5;""(019) LIVER IMAGE/3 VIEWS 78352 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,6)="023-5;""(023) LUNG IMAGE/2 VIEWS 78362 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,7)="027-5;""(027) PANCREATIC IMAGE 78372 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,8)="031-5;""(031) PLACENTAL LOCALIZATION/IMAGE 78555 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,9)="035-5;""(035) RENAL IMAGE, ADD VIEW 78343 - VIEW"""
^DIE(238,"DIAB",2,0,2100,10)="039-5;""(039) ROSE BENGAL STUDY 78500 - PATIENT"""
^DIE(238,"DIAB",2,0,2100,11)="044-5;""(044) SPLEEN SCAN, ADD VIEW 78421 - VIEW"""
^DIE(238,"DIAB",2,0,2100,12)="048-5;""(048) THYROID SCAN, ADD VIEW 78006 - VIEW"""
^DIE(238,"DIAB",3,0,2100,1)="005-5;""(005) BONE SCAN/2 VIEWS 78306 - PATIENT"""
^DIE(238,"DIAB",3,0,2100,2)="009-5;""(009) BRAIN IMAGE TO ADD VASC SEQ 78315 - SEQUENCE"""
^DIE(238,"DIAB",3,0,2100,3)="013-5;""(013) CARDIAC OUTPUT 78190 - PATIENT"""
^DIE(238,"DIAB",3,0,2100,4)="017-5;""(017) HIPPURAN CLEARANCE CURVE 78512 - SPECIMEN"""
^DIE(238,"DIAB",3,0,2100,5)="020-5;""(020) LIVER IMAGE, ADD VIEW 78353 - VIEW"""
^DIE(238,"DIAB",3,0,2100,6)="024-5;""(024) LUNG IMAGE, ADD VIEW 78363 - VIEW"""
^DIE(238,"DIAB",3,0,2100,7)="028-5;""(028) PANCREATIC IMAGE, ADD VIEW 78373 - VIEW"""
^DIE(238,"DIAB",3,0,2100,8)="032-5;""(032) PLACENTAL LOCALIZATION/SCAN 78550 - PATIENT"""
^DIE(238,"DIAB",3,0,2100,9)="036-5;""(036) RENAL SCAN/2 VIEWS 78340 - PATIENT"""
^DIE(238,"DIAB",3,0,2100,10)="040-5;""(040) SCHILLING TEST 78100 - TEST"""
^DIE(238,"DIAB",3,0,2100,11)="045-5;""(045) THYROID IMAGE/1 VIEW/INC UPTAKE 78007 - PATIENT"""
^DIE(238,"DIAB",3,0,2100,12)="049-5;""(049) THYROID UPTAKE, RAI MULTIDETER 78001 - TEST"""
^DIE(238,"DIAB",4,0,2100,1)="006-5;""(006) BONE SCAN, ADD VIEW 73307 - VIEW"""
^DIE(238,"DIAB",4,0,2100,2)="010-5;""(010) BRAIN IMAGE, VASC SEQ ONLY 78314 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,3)="014-5;""(014) CISTERNOGRAM IMAGE/3 VIEWS 78323 - PTVIS"""
^DIE(238,"DIAB",4,0,2100,5)="021-5;""(021) LIVER SCAN/3 VIEWS 78350 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,6)="025-5;""(025) LUNG SCAN/2 VIEWS 78360 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,7)="029-5;""(029) PANCREATIC SCAN 78370 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,8)="033-5;""(033) RED CELL SURVIVAL TIME 78130 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,9)="037-5;""(037) RENAL SCAN, ADD VIEW 78341 - VIEW"""
^DIE(238,"DIAB",4,0,2100,10)="041-5;""(041) SPLEEN IMAGE/2 VIEWS 78422 - PATIENT"""
^DIE(238,"DIAB",4,0,2100,11)="046-5;""(046) THYROID IMAGE, ADD VIEW 78008 - VIEW"""
^DIE(238,"DIAB",4,0,2100,12)="050-5;""(050) THYROID UPTAKE, RAI SINGLE 78000 - PATIENT"""
^DIE(238,"DIAB",5,0,2100,10)="042-5;""(042) SPLEEN IMAGE, ADD VIEW 78423 - VIEW"""
^DIE(238,"DIAB",9,0,2100,0)="001-5;""(001) BLOOD VOLUME 78110 - PATIENT"""
^DIE(238,"DIAB",10,0,2100,0)="002-5;""(002) BLOOD,QUANT,FECAL 78522 - SPECIMEN"""
^DIE(238,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) BLOOD VOLUME 78110 - PATIENT~;55.002(002) BLOOD,QUANT,FECAL 78522 - SPECIMEN~;"
^DIE(238,"DR",1,2100,1)="55.003(003) BONE IMAGE/2 VIEWS 78304 - PATIENT~;55.004(004) BONE IMAGE, ADD VIEW 78309 - VIEW~;55.005(005) BONE SCAN/2 VIEWS 78306 - PATIENT~;55.006(006) BONE SCAN, ADD VIEW 73307 - VIEW~;"
^DIE(238,"DR",1,2100,2)="55.007(007) BRAIN IMAGE/3 VIEWS 78312 - PATIENT~;55.008(008) BRAIN IMAGE, ADD VIEW 78313 - VIEW~;55.009(009) BRAIN IMAGE TO ADD VASC SEQ 78315 - SEQUENCE~;55.01(010) BRAIN IMAGE, VASC SEQ ONLY 78314 - PATIENT~;"
^DIE(238,"DR",1,2100,3)="55.011(011) BRAIN SCAN/3 VIEWS 78310 - PATIENT~;55.012(012) BRAIN SCAN, ADD VIEWS 78303 - VIEW~;55.013(013) CARDIAC OUTPUT 78190 - PATIENT~;55.014(014) CISTERNOGRAM IMAGE/3 VIEWS 78323 - PTVIS~;"
^DIE(238,"DR",1,2100,4)="55.015(015) CISTERNOGRAM SCAN/3 VIEWS 78321 - PTVIS~;55.016(016) CLERICAL FUNCTIONS IN VIVO RADIOISOTOPE 78900 - PATIENT~;55.017(017) HIPPURAN CLEARANCE CURVE 78512 - SPECIMEN~;"
^DIE(238,"DR",1,2100,5)="55.018(018) IRON ABSORPTION & UTILIZATION 78170 - TEST~;55.019(019) LIVER IMAGE/3 VIEWS 78352 - PATIENT~;55.02(020) LIVER IMAGE, ADD VIEW 78353 - VIEW~;55.021(021) LIVER SCAN/3 VIEWS 78350 - PATIENT~;"
^DIE(238,"DR",1,2100,6)="55.022(022) LIVER SCAN, ADD VIEW 78349 - VIEW~;55.023(023) LUNG IMAGE/2 VIEWS 78362 - PATIENT~;55.024(024) LUNG IMAGE, ADD VIEW 78363 - VIEW~;55.025(025) LUNG SCAN/2 VIEWS 78360 - PATIENT~;"
^DIE(238,"DR",1,2100,7)="55.026(026) LUNG SCAN ADD VIEW 78361 - VIEW~;55.027(027) PANCREATIC IMAGE 78372 - PATIENT~;55.028(028) PANCREATIC IMAGE, ADD VIEW 78373 - VIEW~;55.029(029) PANCREATIC SCAN 78370 - PATIENT~;"
^DIE(238,"DR",1,2100,8)="55.03(030) PANCREATIC SCAN, ADD VIEW 78371 - VIEW~;55.031(031) PLACENTAL LOCALIZATION/IMAGE 78555 - PATIENT~;55.032(032) PLACENTAL LOCALIZATION/SCAN 78550 - PATIENT~;55.033(033) RED CELL SURVIVAL TIME 78130 - PATIENT~;"
^DIE(238,"DR",1,2100,9)="55.034(034) RENAL IMAGE/2 VIEWS 78342 - PATIENT~;55.035(035) RENAL IMAGE, ADD VIEW 78343 - VIEW~;55.036(036) RENAL SCAN/2 VIEWS 78340 - PATIENT~;55.037(037) RENAL SCAN, ADD VIEW 78341 - VIEW~;"
^DIE(238,"DR",1,2100,10)="55.038(038) RENOGRAM 1-131 78515 - PATIENT~;55.039(039) ROSE BENGAL STUDY 78500 - PATIENT~;55.04(040) SCHILLING TEST 78100 - TEST~;55.041(041) SPLEEN IMAGE/2 VIEWS 78422 - PATIENT~;55.042(042) SPLEEN IMAGE, ADD VIEW 78423 - VIEW~;"
^DIE(238,"DR",1,2100,11)="55.043(043) SPLEEN SCAN/2 VIEWS 78420 - PATIENT~;55.044(044) SPLEEN SCAN, ADD VIEW 78421 - VIEW~;55.045(045) THYROID IMAGE/1 VIEW/INC UPTAKE 78007 - PATIENT~;55.046(046) THYROID IMAGE, ADD VIEW 78008 - VIEW~;"
^DIE(238,"DR",1,2100,12)="55.047(047) THYROID SCAN/1 VIEW/INC UPTAKE 78005 - PATIENT~;55.048(048) THYROID SCAN, ADD VIEW 78006 - VIEW~;55.049(049) THYROID UPTAKE, RAI MULTIDETER 78001 - TEST~;55.05(050) THYROID UPTAKE, RAI SINGLE 78000 - PATIENT~;"
^DIE(238,"DR",1,2100,13)="99///^S X=""$"";"
^DIE(239,0)="LR AMS5 ADMIN DATA J08^2900918.0907^^2100^0^^2900918"
^DIE(239,"DIAB",1,0,2100,1)="002-4;""(02) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - AUTOPSY"""
^DIE(239,"DIAB",1,0,2100,2)="004-4;""(04) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - LIVING PATIENT"""
^DIE(239,"DIAB",1,0,2100,3)="006-4;""(06) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - PATIENT RELATED MATERIAL"""
^DIE(239,"DIAB",1,0,2100,4)="008-4;""(08) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - NON VA PATIENT"""
^DIE(239,"DIAB",1,0,2100,5)="010-4;""(10) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - LIVING PATIENT"""
^DIE(239,"DIAB",1,0,2100,6)="012-4;""(12) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - PATIENT RELATED MATERIAL"""
^DIE(239,"DIAB",1,0,2100,7)="014-4;""(14) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - AUTOPSY"""
^DIE(239,"DIAB",1,0,2100,8)="016-4;""(16) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - RESEARCH - VA PATIENT"""
^DIE(239,"DIAB",1,0,2100,9)="018-4;""(18) NUMBER OF SPEMENS STUDIED BY THICK SECTION ONLY - RESEARCH - EXPERIMENTAL ANIMAL"""
^DIE(239,"DIAB",2,0,2100,1)="003-4;""(03) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - PATIENT RELATED MATERIAL"""
^DIE(239,"DIAB",2,0,2100,2)="005-4;""(05) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - AUTOPSY"""
^DIE(239,"DIAB",2,0,2100,3)="007-4;""(07) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - VA PATIENT"""
^DIE(239,"DIAB",2,0,2100,4)="009-4;""(09) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - EXPERIMENTAL ANIMAL"""
^DIE(239,"DIAB",2,0,2100,5)="011-4;""(11) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - AUTOPSY"""
^DIE(239,"DIAB",2,0,2100,6)="013-4;""(13) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - LIVING PATIENT"""
^DIE(239,"DIAB",2,0,2100,7)="015-4;""(15) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - PATIENT RELATED MATERIAL"""
^DIE(239,"DIAB",2,0,2100,8)="017-4;""(17) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - RESEARCH - NON VA PATIENT"""
^DIE(239,"DIAB",9,0,2100,0)="001-4;""(01) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - LIVING PATIENT"""
^DIE(239,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(01) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - LIVING PATIENT~;"
^DIE(239,"DR",1,2100,1)="54.002(02) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - AUTOPSY~;54.003(03) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - VA - PATIENT RELATED MATERIAL~;"
^DIE(239,"DR",1,2100,2)="54.004(04) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - LIVING PATIENT~;54.005(05) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - AUTOPSY~;"
^DIE(239,"DR",1,2100,3)="54.006(06) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - NON VA - PATIENT RELATED MATERIAL~;54.007(07) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - VA PATIENT~;"
^DIE(239,"DR",1,2100,4)="54.008(08) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - NON VA PATIENT~;54.009(09) NUMBER OF SPECIMENS STUDIED BY ELECTRON MICROSCOPE - RESEARCH - EXPERIMENTAL ANIMAL~;"
^DIE(239,"DR",1,2100,5)="54.01(10) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - LIVING PATIENT~;54.011(11) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - AUTOPSY~;"
^DIE(239,"DR",1,2100,6)="54.012(12) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - VA - PATIENT RELATED MATERIAL~;54.013(13) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - LIVING PATIENT~;"
^DIE(239,"DR",1,2100,7)="54.014(14) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - AUTOPSY~;54.015(15) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - NON VA - PATIENT RELATED MATERIAL~;"
^DIE(239,"DR",1,2100,8)="54.016(16) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - RESEARCH - VA PATIENT~;54.017(17) NUMBER OF SPECIMENS STUDIED BY THICK SECTION ONLY - RESEARCH - NON VA PATIENT~;"
^DIE(239,"DR",1,2100,9)="54.018(18) NUMBER OF SPEMENS STUDIED BY THICK SECTION ONLY - RESEARCH - EXPERIMENTAL ANIMAL~;99///^S X=""$"";"
^DIE(240,0)="LR AMS5 DRUG DEP PROG J09^2900918.0912^^2100^0^^2900918"
^DIE(240,"DIAB",1,0,2100,1)="002-5;""(02) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FEE BASIS)"""
^DIE(240,"DIAB",1,0,2100,2)="004-5;""(04) HOSPITAL INPATIENT CARE - POSITIVE TESTS - HEROIN AND ITS METABOLITES"""
^DIE(240,"DIAB",1,0,2100,3)="006-5;""(06) HOSPITAL INPATIENT CARE - POSITIVE TESTS - COMBINATION HEROIN AND OTHER"""
^DIE(240,"DIAB",1,0,2100,4)="008-5;""(08) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FEE BASIS)"""
^DIE(240,"DIAB",1,0,2100,5)="010-5;""(10) OUTPATIENT CARE - POSITIVE TESTS - HEROIN AND ITS METABOLITES"""
^DIE(240,"DIAB",1,0,2100,6)="013-5;""(013) NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY OTHER THAN FIELD (01) OR FIELD (07) - INPATIENT CARE"""
^DIE(240,"DIAB",1,0,2100,7)="014-5;""(014) NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY OTHER THAN FIELD (01) OR FIELD (07) - OUTPATIENT CARE"""
^DIE(240,"DIAB",2,0,2100,1)="003-5;""(03) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FREE BASIS)"""
^DIE(240,"DIAB",2,0,2100,2)="005-5;""(05) HOSPITAL INPATIENT CARE - POSITIVE TESTS - OTHER DRUGS (AMPH., BARB,. ETC)"""
^DIE(240,"DIAB",2,0,2100,3)="007-5;""(07) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY SERVICE (113)"""
^DIE(240,"DIAB",2,0,2100,4)="009-5;""(09) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FREE BASIS)"""
^DIE(240,"DIAB",2,0,2100,5)="011-5;""(011) OUTPATIENT CARE - POSITIVE TESTS - OTHER DRUGS (AMPH., BARB., ETC)"""
^DIE(240,"DIAB",3,0,2100,5)="012-5;""(012) OUTPATIENT CARE - POSITIVE TESTS - COMBINATION HEROIN AND OTHER"""
^DIE(240,"DIAB",9,0,2100,0)="001-5;""(01) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY SERVICE (113)"""
^DIE(240,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(01) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY SERVICE (113)~;"
^DIE(240,"DR",1,2100,1)="55.002(02) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FEE BASIS)~;55.003(03) HOSPITAL INPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FREE BASIS)~;"
^DIE(240,"DR",1,2100,2)="55.004(04) HOSPITAL INPATIENT CARE - POSITIVE TESTS - HEROIN AND ITS METABOLITES~;55.005(05) HOSPITAL INPATIENT CARE - POSITIVE TESTS - OTHER DRUGS (AMPH., BARB,. ETC)~;"
^DIE(240,"DR",1,2100,3)="55.006(06) HOSPITAL INPATIENT CARE - POSITIVE TESTS - COMBINATION HEROIN AND OTHER~;55.007(07) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY SERVICE (113)~;"
^DIE(240,"DR",1,2100,4)="55.008(08) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FEE BASIS)~;55.009(09) OUTPATIENT CARE - NO. OF URINE SPECIMENS SCREENED FOR DRUGS - IN NON VA LAB (FREE BASIS)~;"
^DIE(240,"DR",1,2100,5)="55.01(10) OUTPATIENT CARE - POSITIVE TESTS - HEROIN AND ITS METABOLITES~;55.011(011) OUTPATIENT CARE - POSITIVE TESTS - OTHER DRUGS (AMPH., BARB., ETC)~;55.012(012) OUTPATIENT CARE - POSITIVE TESTS - COMBINATION HEROIN AND OTHER~;"
^DIE(240,"DR",1,2100,6)="55.013(013) NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY OTHER THAN FIELD (01) OR FIELD (07) - INPATIENT CARE~;"
^DIE(240,"DR",1,2100,7)="55.014(014) NO. OF URINE SPECIMENS SCREENED FOR DRUGS - BY VA LABORATORY OTHER THAN FIELD (01) OR FIELD (07) - OUTPATIENT CARE~;99///^S X=""$"";"
^DIE(241,0)="RMPR AMS5 AMIS 120^2900916.2102^^2100^0^^2931004"
^DIE(241,"%D",0)="^^1^1^2900814^^"
^DIE(241,"%D",1,0)=""
^DIE(241,"DIAB",1,0,2100,1)="003-4;""(003) SC VIETNAM - BLIND"""
^DIE(241,"DIAB",1,0,2100,2)="009-5;""(009) SC VIETNAM - HEMODIALYSIS"""
^DIE(241,"DIAB",1,0,2100,3)="013-4;""(013) ALL OTHER SC - BLIND"""
^DIE(241,"DIAB",1,0,2100,4)="019-5;""(019) ALL OTHER SC - HEMODIALYSIS"""
^DIE(241,"DIAB",1,0,2100,5)="023-4;""(023) NSC - A&A - BLIND"""
^DIE(241,"DIAB",1,0,2100,6)="029-5;""(029) NSC - A&A - HEMODIALYSIS"""
^DIE(241,"DIAB",1,0,2100,7)="033-4;""(033) OTHERS ELIGIBLE -  BLIND"""
^DIE(241,"DIAB",1,0,2100,8)="038-3;""(038) OTHERS ELIGIBLE - QUADRIPLEGIA"""
^DIE(241,"DIAB",1,0,2100,9)="042-5;""(042) BED,HOSPITAL,MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED"""
^DIE(241,"DIAB",1,0,2100,10)="045-4;""(045) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. LOANED ITEMS RECOVERED"""
^DIE(241,"DIAB",1,0,2100,11)="047-4;""(047) BED,HOSPITAL,MANUAL AND ELECTRIC - AVAILABLE FOR REISSUE END OF PERIOD"""
^DIE(241,"DIAB",1,0,2100,12)="050-5;""(050) VAN LIFTS - DOLLAR VALUE RECOVERED"""
^DIE(241,"DIAB",1,0,2100,13)="054-5;""(054) VAN LIFTS - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(241,"DIAB",2,0,2100,1)="004-5;""(004) SC VIETNAM - BRACE CASES"""
^DIE(241,"DIAB",2,0,2100,2)="010-5;""(010) SC VIETNAM - ALL OTHER DISABILITIES"""
^DIE(241,"DIAB",2,0,2100,3)="014-5;""(014) ALL OTHER SC - BRACE CASES"""
^DIE(241,"DIAB",2,0,2100,4)="020-5;""(020) ALL OTHER SC - ALL OTHER DISABILITIES"""
^DIE(241,"DIAB",2,0,2100,5)="024-5;""(024) NSC - A&A - BRACE CASES"""
^DIE(241,"DIAB",2,0,2100,6)="030-5;""(030) NSC - A&A - ALL OTHER DISABILITIES"""
^DIE(241,"DIAB",2,0,2100,7)="034-5;""(034) OTHERS ELIGIBLE - BRACE CASES"""
^DIE(241,"DIAB",2,0,2100,8)="039-5;""(039) OTHERS ELIGIBLE - HEMODIALYSIS"""
^DIE(241,"DIAB",2,0,2100,9)="043-4;""(043) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. NEW ITEMS LOANED"""
^DIE(241,"DIAB",2,0,2100,10)="046-5;""(046) BED,HOSPITAL,MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED ITEMS"""
^DIE(241,"DIAB",2,0,2100,11)="048-4;""(048) BED,HOSPITAL,MANUAL AND ELECTRIC - ON LOAD END OF PERIOD"""
^DIE(241,"DIAB",2,0,2100,12)="051-4;""(051) VAN LIFTS - NO. NEW ITEMS LOANED"""
^DIE(241,"DIAB",2,0,2100,13)="055-4;""(055) VAN LIFTS - AVAILABLE FOR REISSUE END OF PERIOD"""
^DIE(241,"DIAB",3,0,2100,1)="005-4;""(005) SC VIETNAM - DEAF"""
^DIE(241,"DIAB",3,0,2100,2)="011-5;""(011) ALL OTHER SC - AMPUTATIONS - LOWER EXTREMITY"""
^DIE(241,"DIAB",3,0,2100,3)="015-4;""(015) ALL OTHER SC - DEAF"""
^DIE(241,"DIAB",3,0,2100,4)="021-5;""(021) NSC - A&A - AMPUTATIONS - LOWER EXTREMITY"""
^DIE(241,"DIAB",3,0,2100,5)="025-4;""(025) NSC - A&A - DEAF"""
^DIE(241,"DIAB",3,0,2100,6)="031-5;""(031) OTHERS ELIGIBLE - AMPUTATIONS - LOWER EXTREMITY"""
^DIE(241,"DIAB",3,0,2100,7)="035-4;""(035) OTHERS ELIGIBLE - DEAF"""
^DIE(241,"DIAB",3,0,2100,8)="040-5;""(040) OTHERS ELIGIBLE - ALL OTHER DISABILITIES"""
^DIE(241,"DIAB",3,0,2100,9)="044-5;""(044) BED,HOSPITAL,MANUAL AND ELECTRIC - BUDGETED COST NEW ITEMS LOANED"""
^DIE(241,"DIAB",3,0,2100,11)="049-3;""(049)  VAN LIFTS - NO. ITEMS RECOVERED"""
^DIE(241,"DIAB",3,0,2100,12)="052-5;""(052) VAN LIFTS - BUDGETED COST NEW ITEMS LOANED"""
^DIE(241,"DIAB",3,0,2100,13)="056-4;""(056) VAN LIFTS - ON LOAD END OF PERIOD"""
^DIE(241,"DIAB",4,0,2100,1)="006-5;""(006) SC VIETNAM - FOOT DISABILITY"""
^DIE(241,"DIAB",4,0,2100,2)="012-3;""(012) ALL OTHER SC - AMPUTATIONS - UPPER EXTREMITY"""
^DIE(241,"DIAB",4,0,2100,3)="016-5;""(016) ALL OTHER SC - FOOT DISABILITY"""
^DIE(241,"DIAB",4,0,2100,4)="022-3;""(022) NSC - A&A - AMPUTATIONS - UPPER EXTREMITY"""
^DIE(241,"DIAB",4,0,2100,5)="026-5;""(026) NSC - A&A - FOOT DISABILITY"""
^DIE(241,"DIAB",4,0,2100,6)="032-3;""(032) OTHERS ELIGIBLE - AMPUTATIONS - UPPER EXTREMITY"""
^DIE(241,"DIAB",4,0,2100,7)="036-5;""(036) OTHERS ELIGIBLE - FOOT DISABILITY"""
^DIE(241,"DIAB",4,0,2100,8)="041-3;""(041) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. ITEMS RECOVERED"""
^DIE(241,"DIAB",4,0,2100,12)="053-4;""(053) VAN LIFTS - NO. LOANED ITEMS RECOVERED"""
^DIE(241,"DIAB",5,0,2100,1)="007-4;""(007) SC VIETNAM - PARAPLEGIA"""
^DIE(241,"DIAB",5,0,2100,3)="017-4;""(017) ALL OTHER SC - PARAPLEGIA"""
^DIE(241,"DIAB",5,0,2100,5)="027-4;""(027) NSC - A&A - PARAPLEGIA"""
^DIE(241,"DIAB",5,0,2100,7)="037-4;""(037) OTHERS ELIGIBLE - PARAPLEGIA"""
^DIE(241,"DIAB",6,0,2100,1)="008-3;""(008) SC VIETNAM - QUADRIPLEGIA"""
^DIE(241,"DIAB",6,0,2100,3)="018-3;""(018) ALL OTHER SC - QUADRIPLEGIA"""
^DIE(241,"DIAB",6,0,2100,5)="028-3;""(028) NSC - A&A - QUADRIPLEGIA"""
^DIE(241,"DIAB",9,0,2100,0)="001-5;""(001) SC VIETNAM - AMPUTATIONS - LOWER EXTREMITY"""
^DIE(241,"DIAB",10,0,2100,0)="002-3;""(002) SC VIETNAM - AMPUTATIONS - UPPER EXTREMITY"""
^DIE(241,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) SC VIETNAM - AMPUTATIONS - LOWER EXTREMITY~;53.002(002) SC VIETNAM - AMPUTATIONS - UPPER EXTREMITY~;"
^DIE(241,"DR",1,2100,1)="54.003(003) SC VIETNAM - BLIND~;55.004(004) SC VIETNAM - BRACE CASES~;54.005(005) SC VIETNAM - DEAF~;55.006(006) SC VIETNAM - FOOT DISABILITY~;54.007(007) SC VIETNAM - PARAPLEGIA~;53.008(008) SC VIETNAM - QUADRIPLEGIA~;"
^DIE(241,"DR",1,2100,2)="55.009(009) SC VIETNAM - HEMODIALYSIS~;55.01(010) SC VIETNAM - ALL OTHER DISABILITIES~;55.011(011) ALL OTHER SC - AMPUTATIONS - LOWER EXTREMITY~;53.012(012) ALL OTHER SC - AMPUTATIONS - UPPER EXTREMITY~;"
^DIE(241,"DR",1,2100,3)="54.013(013) ALL OTHER SC - BLIND~;55.014(014) ALL OTHER SC - BRACE CASES~;54.015(015) ALL OTHER SC - DEAF~;55.016(016) ALL OTHER SC - FOOT DISABILITY~;54.017(017) ALL OTHER SC - PARAPLEGIA~;53.018(018) ALL OTHER SC - QUADRIPLEGIA~;"
^DIE(241,"DR",1,2100,4)="55.019(019) ALL OTHER SC - HEMODIALYSIS~;55.02(020) ALL OTHER SC - ALL OTHER DISABILITIES~;55.021(021) NSC - A&A - AMPUTATIONS - LOWER EXTREMITY~;53.022(022) NSC - A&A - AMPUTATIONS - UPPER EXTREMITY~;"
^DIE(241,"DR",1,2100,5)="54.023(023) NSC - A&A - BLIND~;55.024(024) NSC - A&A - BRACE CASES~;54.025(025) NSC - A&A - DEAF~;55.026(026) NSC - A&A - FOOT DISABILITY~;54.027(027) NSC - A&A - PARAPLEGIA~;53.028(028) NSC - A&A - QUADRIPLEGIA~;"
^DIE(241,"DR",1,2100,6)="55.029(029) NSC - A&A - HEMODIALYSIS~;55.03(030) NSC - A&A - ALL OTHER DISABILITIES~;55.031(031) OTHERS ELIGIBLE - AMPUTATIONS - LOWER EXTREMITY~;53.032(032) OTHERS ELIGIBLE - AMPUTATIONS - UPPER EXTREMITY~;"
^DIE(241,"DR",1,2100,7)="54.033(033) OTHERS ELIGIBLE -  BLIND~;55.034(034) OTHERS ELIGIBLE - BRACE CASES~;54.035(035) OTHERS ELIGIBLE - DEAF~;55.036(036) OTHERS ELIGIBLE - FOOT DISABILITY~;54.037(037) OTHERS ELIGIBLE - PARAPLEGIA~;"
^DIE(241,"DR",1,2100,8)="53.038(038) OTHERS ELIGIBLE - QUADRIPLEGIA~;55.039(039) OTHERS ELIGIBLE - HEMODIALYSIS~;55.04(040) OTHERS ELIGIBLE - ALL OTHER DISABILITIES~;53.041(041) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. ITEMS RECOVERED~;"
^DIE(241,"DR",1,2100,9)="55.042(042) BED,HOSPITAL,MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED~;54.043(043) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. NEW ITEMS LOANED~;55.044(044) BED,HOSPITAL,MANUAL AND ELECTRIC - BUDGETED COST NEW ITEMS LOANED~;"
^DIE(241,"DR",1,2100,10)="54.045(045) BED,HOSPITAL,MANUAL AND ELECTRIC - NO. LOANED ITEMS RECOVERED~;55.046(046) BED,HOSPITAL,MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED ITEMS~;"
^DIE(241,"DR",1,2100,11)="54.047(047) BED,HOSPITAL,MANUAL AND ELECTRIC - AVAILABLE FOR REISSUE END OF PERIOD~;54.048(048) BED,HOSPITAL,MANUAL AND ELECTRIC - ON LOAD END OF PERIOD~;53.049(049)  VAN LIFTS - NO. ITEMS RECOVERED~;"
^DIE(241,"DR",1,2100,12)="55.05(050) VAN LIFTS - DOLLAR VALUE RECOVERED~;54.051(051) VAN LIFTS - NO. NEW ITEMS LOANED~;55.052(052) VAN LIFTS - BUDGETED COST NEW ITEMS LOANED~;54.053(053) VAN LIFTS - NO. LOANED ITEMS RECOVERED~;"
^DIE(241,"DR",1,2100,13)="55.054(054) VAN LIFTS - DOLLAR VALUE ITEMS RECOVERED~;54.055(055) VAN LIFTS - AVAILABLE FOR REISSUE END OF PERIOD~;54.056(056) VAN LIFTS - ON LOAD END OF PERIOD~;99///^S X=""$"";"
^DIE(242,0)="RMPR AMS5 AMIS 121^2900916.2117^^2100^0^^2931004"
^DIE(242,"DIAB",1,0,2100,1)="003-4;""(003) HOME DIALYSIS EQUIP - NO. NEW ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,2)="006-5;""(006) HOME DIALYSIS EQUIP - DOLLAR VALUE RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,3)="009-3;""(009) INVALID LIFTS - NO. ITEMS RECOVERED"""
^DIE(242,"DIAB",1,0,2100,4)="013-4;""(013) INVALID LIFTS - NO. RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,5)="017-3;""(017) RESPIRATORS - NO. ITEMS RECOVERED"""
^DIE(242,"DIAB",1,0,2100,6)="021-4;""(021) RESPIRATORS - NO. RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,7)="025-3;""(025) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. ITEMS RECOVERED"""
^DIE(242,"DIAB",1,0,2100,8)="028-5;""(028) WHEELCHAIRS, MANUAL AND ELECTRIC - BUDGETED COST NEW ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,9)="030-5;""(030) WHEELCHAIRS, MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,10)="033-3;""(033) ALL OTHER LOAN ITEMS - NO. ITEMS RECOVERED"""
^DIE(242,"DIAB",1,0,2100,11)="036-5;""(036) ALL OTHER LOAN ITEMS - BUDGETED COST NEW ITEMS LOANED"""
^DIE(242,"DIAB",1,0,2100,12)="039-4;""(039) ALL OTHER LOAN ITEMS - AVAILABLE FOR REISSUE"""
^DIE(242,"DIAB",1,0,2100,13)="043-3;""(043) TOTAL PATIENTS SCHEDULED"""
^DIE(242,"DIAB",1,0,2100,14)="048-3;""(048) NO. OF VISITS - HOME VISITS BY PROS. CHIEF"""
^DIE(242,"DIAB",1,0,2100,15)="052-3;""(052) NO. OF DENIALS - ELIGIB. DETER. DENIALS"""
^DIE(242,"DIAB",2,0,2100,1)="004-5;""(004) HOME DIALYSIS EQUIP - BUDGETED COST NEW ITEMS LOANED"""
^DIE(242,"DIAB",2,0,2100,2)="007-4;""(007) HOME DIALYSIS EQUIP - AVAILABLE FOR REISSUE"""
^DIE(242,"DIAB",2,0,2100,3)="010-5;""(010) INVALID LIFTS - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(242,"DIAB",2,0,2100,4)="014-5;""(014) INVALID LIFTS - DOLLAR VALUE RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",2,0,2100,5)="018-5;""(018) RESPIRATORS - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(242,"DIAB",2,0,2100,6)="022-5;""(022) RESPIRATORS - DOLLAR VALUE RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",2,0,2100,7)="026-5;""(026) WHEELCHAIRS, MANUAL AND ELECTRIC - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(242,"DIAB",2,0,2100,8)="029-4;""(029) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",2,0,2100,9)="031-4;""(031) WHEELCHAIRS, MANUAL AND ELECTRIC - AVAILABLE FOR REISSUE"""
^DIE(242,"DIAB",2,0,2100,10)="034-5;""(034) ALL OTHER LOAN ITEMS - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(242,"DIAB",2,0,2100,11)="037-4;""(037) ALL OTHER LOAN ITEMS - NO. RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",2,0,2100,12)="040-4;""(040) ALL OTHER LOAN END OF PERIOD ITEMS - ON LOAN"""
^DIE(242,"DIAB",2,0,2100,13)="044-3;""(044) TOTAL PATIENTS EXAMINED"""
^DIE(242,"DIAB",2,0,2100,14)="049-3;""(049) TOTAL HOURS - HOME VISITS BY PROS. CHIEF"""
^DIE(242,"DIAB",2,0,2100,15)="053-4;""(053) TOTAL ADMIN. HOURS - ELIGIB. DETER. DENIALS"""
^DIE(242,"DIAB",3,0,2100,1)="005-4;""(005) HOME DIALYSIS EQUIP - NO. RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,2)="008-4;""(008) HOME DIALYSIS EQUIP - ON LOAN END OF PERIOD"""
^DIE(242,"DIAB",3,0,2100,3)="011-4;""(011) INVALID LIFTS - NO. NEW ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,4)="015-4;""(015) INVALID LIFTS - AVAILABLE FOR REISSUE"""
^DIE(242,"DIAB",3,0,2100,5)="019-4;""(019) RESPIRATORS - NO. NEW ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,6)="023-4;""(023) RESPIRATORS - AVAILABLE FOR REISSUE"""
^DIE(242,"DIAB",3,0,2100,7)="027-4;""(027) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. NEW ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,9)="032-4;""(032) WHEELCHAIRS, MANUAL AND ELECTRIC - ON LOAN END OF PERIOD"""
^DIE(242,"DIAB",3,0,2100,10)="035-4;""(035) ALL OTHER LOAN ITEMS - NO. NEW ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,11)="038-5;""(038) ALL OTHER LOAN ITEMS - DOLLAR VALUE RECOVERED ITEMS LOANED"""
^DIE(242,"DIAB",3,0,2100,12)="041-3;""(041) NUMBER CLINIC TEAM MEETINGS HELD PROS"""
^DIE(242,"DIAB",3,0,2100,13)="045-2;""(045) NUMBER P T - CLERICAL EMPLOYEES"""
^DIE(242,"DIAB",3,0,2100,14)="050-3;""(050) NO. OF VISITS - LIAISON VISITS BY PROS. CHIEF"""
^DIE(242,"DIAB",4,0,2100,3)="012-5;""(012) INVALID LIFTS - BUDGETED COST NEW ITEMS LOANED"""
^DIE(242,"DIAB",4,0,2100,4)="016-4;""(016) INVALID LIFTS - ON LOAN END OF PERIOD"""
^DIE(242,"DIAB",4,0,2100,5)="020-5;""(020) RESPIRATORS - BUDGETED COST NEW ITEMS LOANED"""
^DIE(242,"DIAB",4,0,2100,6)="024-4;""(024) RESPIRATORS - ON LOAN END OF PERIOD"""
^DIE(242,"DIAB",4,0,2100,12)="042-3;""(042) HOURS CLINIC TEAM MEETINGS HELD PROS"""
^DIE(242,"DIAB",4,0,2100,13)="046-4;""(046) HOURS WORKED - CLERICAL EMPLOYEES"""
^DIE(242,"DIAB",4,0,2100,14)="051-3;""(051) TOTAL HOURS - LIAISON VISITS BY PROS. CHIEF"""
^DIE(242,"DIAB",5,0,2100,13)="047-6;""(047) NO. OF ACTIONS - ELIGIB. DETER. FOR CLOTH ALLOW."""
^DIE(242,"DIAB",9,0,2100,0)="001-3;""(001) HOME DIALYSIS EQUIP - NO. ITEMS RECOVERED"""
^DIE(242,"DIAB",10,0,2100,0)="002-5;""(002) HOME DIALYSIS EQUIP - DOLLAR VALUE ITEMS RECOVERED"""
^DIE(242,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) HOME DIALYSIS EQUIP - NO. ITEMS RECOVERED~;55.002(002) HOME DIALYSIS EQUIP - DOLLAR VALUE ITEMS RECOVERED~;"
^DIE(242,"DR",1,2100,1)="54.003(003) HOME DIALYSIS EQUIP - NO. NEW ITEMS LOANED~;55.004(004) HOME DIALYSIS EQUIP - BUDGETED COST NEW ITEMS LOANED~;54.005(005) HOME DIALYSIS EQUIP - NO. RECOVERED ITEMS LOANED~;"
^DIE(242,"DR",1,2100,2)="55.006(006) HOME DIALYSIS EQUIP - DOLLAR VALUE RECOVERED ITEMS LOANED~;54.007(007) HOME DIALYSIS EQUIP - AVAILABLE FOR REISSUE~;54.008(008) HOME DIALYSIS EQUIP - ON LOAN END OF PERIOD~;"
^DIE(242,"DR",1,2100,3)="53.009(009) INVALID LIFTS - NO. ITEMS RECOVERED~;55.01(010) INVALID LIFTS - DOLLAR VALUE ITEMS RECOVERED~;54.011(011) INVALID LIFTS - NO. NEW ITEMS LOANED~;55.012(012) INVALID LIFTS - BUDGETED COST NEW ITEMS LOANED~;"
^DIE(242,"DR",1,2100,4)="54.013(013) INVALID LIFTS - NO. RECOVERED ITEMS LOANED~;55.014(014) INVALID LIFTS - DOLLAR VALUE RECOVERED ITEMS LOANED~;54.015(015) INVALID LIFTS - AVAILABLE FOR REISSUE~;54.016(016) INVALID LIFTS - ON LOAN END OF PERIOD~;"
^DIE(242,"DR",1,2100,5)="53.017(017) RESPIRATORS - NO. ITEMS RECOVERED~;55.018(018) RESPIRATORS - DOLLAR VALUE ITEMS RECOVERED~;54.019(019) RESPIRATORS - NO. NEW ITEMS LOANED~;55.02(020) RESPIRATORS - BUDGETED COST NEW ITEMS LOANED~;"
^DIE(242,"DR",1,2100,6)="54.021(021) RESPIRATORS - NO. RECOVERED ITEMS LOANED~;55.022(022) RESPIRATORS - DOLLAR VALUE RECOVERED ITEMS LOANED~;54.023(023) RESPIRATORS - AVAILABLE FOR REISSUE~;54.024(024) RESPIRATORS - ON LOAN END OF PERIOD~;"
^DIE(242,"DR",1,2100,7)="53.025(025) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. ITEMS RECOVERED~;55.026(026) WHEELCHAIRS, MANUAL AND ELECTRIC - DOLLAR VALUE ITEMS RECOVERED~;54.027(027) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. NEW ITEMS LOANED~;"
^DIE(242,"DR",1,2100,8)="55.028(028) WHEELCHAIRS, MANUAL AND ELECTRIC - BUDGETED COST NEW ITEMS LOANED~;54.029(029) WHEELCHAIRS, MANUAL AND ELECTRIC - NO. RECOVERED ITEMS LOANED~;"
^DIE(242,"DR",1,2100,9)="55.03(030) WHEELCHAIRS, MANUAL AND ELECTRIC - DOLLAR VALUE RECOVERED ITEMS LOANED~;54.031(031) WHEELCHAIRS, MANUAL AND ELECTRIC - AVAILABLE FOR REISSUE~;54.032(032) WHEELCHAIRS, MANUAL AND ELECTRIC - ON LOAN END OF PERIOD~;"
^DIE(242,"DR",1,2100,10)="53.033(033) ALL OTHER LOAN ITEMS - NO. ITEMS RECOVERED~;55.034(034) ALL OTHER LOAN ITEMS - DOLLAR VALUE ITEMS RECOVERED~;54.035(035) ALL OTHER LOAN ITEMS - NO. NEW ITEMS LOANED~;"
^DIE(242,"DR",1,2100,11)="55.036(036) ALL OTHER LOAN ITEMS - BUDGETED COST NEW ITEMS LOANED~;54.037(037) ALL OTHER LOAN ITEMS - NO. RECOVERED ITEMS LOANED~;55.038(038) ALL OTHER LOAN ITEMS - DOLLAR VALUE RECOVERED ITEMS LOANED~;"
^DIE(242,"DR",1,2100,12)="54.039(039) ALL OTHER LOAN ITEMS - AVAILABLE FOR REISSUE~;54.04(040) ALL OTHER LOAN END OF PERIOD ITEMS - ON LOAN~;53.041(041) NUMBER CLINIC TEAM MEETINGS HELD PROS~;53.042(042) HOURS CLINIC TEAM MEETINGS HELD PROS~;"
^DIE(242,"DR",1,2100,13)="53.043(043) TOTAL PATIENTS SCHEDULED~;53.044(044) TOTAL PATIENTS EXAMINED~;57.045(045) NUMBER P T - CLERICAL EMPLOYEES~;54.046(046) HOURS WORKED - CLERICAL EMPLOYEES~;56.047(047) NO. OF ACTIONS - ELIGIB. DETER. FOR CLOTH ALLOW.~;"
^DIE(242,"DR",1,2100,14)="53.048(048) NO. OF VISITS - HOME VISITS BY PROS. CHIEF~;53.049(049) TOTAL HOURS - HOME VISITS BY PROS. CHIEF~;53.05(050) NO. OF VISITS - LIAISON VISITS BY PROS. CHIEF~;53.051(051) TOTAL HOURS - LIAISON VISITS BY PROS. CHIEF~;"
^DIE(242,"DR",1,2100,15)="53.052(052) NO. OF DENIALS - ELIGIB. DETER. DENIALS~;54.053(053) TOTAL ADMIN. HOURS - ELIGIB. DETER. DENIALS~;99///^S X=""$"";"
^DIE(243,0)="RMPR AMS5 AMIS 122^2900918.1859^^2100^0^^2931004"
^DIE(243,"DIAB",1,0,2100,1)="003-6;""(003) AID FOR BLIND - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",1,0,2100,2)="006-3;""(006) AID FOR BLIND - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",1,0,2100,3)="010-3;""(010) AID FOR BLIND - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",1,0,2100,4)="013-5;""(013) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DIAB",1,0,2100,5)="015-4;""(015) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",1,0,2100,6)="017-3;""(017) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",1,0,2100,7)="019-3;""(019) SPECIAL BLIND EQUIP (OVER $2000) - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",1,0,2100,8)="022-3;""(022) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER NEW CASES"""
^DIE(243,"DIAB",1,0,2100,9)="025-6;""(025) ARTIFICIAL EYE, TOTAL - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",1,0,2100,10)="028-3;""(028) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",1,0,2100,11)="031-3;""(031) ARTIFICIAL EYE, TOTAL - A&A PATIENTS"""
^DIE(243,"DIAB",1,0,2100,12)="035-5;""(035) ARTIFICIAL ARM TOTAL - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DIAB",1,0,2100,13)="038-3;""(038) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",1,0,2100,14)="041-3;""(041) ARTIFICIAL ARM TOTAL - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",1,0,2100,15)="045-4;""(045) ARTIFICIAL LEG, IPOP - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",1,0,2100,16)="048-4;""(048) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",1,0,2100,17)="051-4;""(051) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",1,0,2100,18)="054-3;""(054) ARTIFICIAL LEG, IPOP - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",1,0,2100,19)="057-5;""(057) ARTIFICIAL LEG TEMP. - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DIAB",1,0,2100,20)="060-3;""(060) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",1,0,2100,21)="063-3;""(063) ARTIFICIAL LEG TEMP. - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",2,0,2100,1)="004-4;""(004) AID FOR BLIND - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",2,0,2100,2)="007-4;""(007) AID FOR BLIND - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",2,0,2100,3)="011-3;""(011) AID FOR BLIND - NUMBER NEW CASES"""
^DIE(243,"DIAB",2,0,2100,4)="014-6;""(014) SPECIAL BLIND EQUIP (OVER $2000) - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",2,0,2100,5)="016-3;""(016) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",2,0,2100,6)="018-4;""(018) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",2,0,2100,7)="020-3;""(020) SPECIAL BLIND EQUIP (OVER $2000) - A&A PATIENTS"""
^DIE(243,"DIAB",2,0,2100,8)="023-4;""(023) ARTIFICIAL EYE, TOTAL - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",2,0,2100,9)="026-4;""(026) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",2,0,2100,10)="029-4;""(029) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",2,0,2100,11)="032-3;""(032) ARTIFICIAL EYE, TOTAL - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",2,0,2100,12)="036-6;""(036) ARTIFICIAL ARM TOTAL - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",2,0,2100,13)="039-3;""(039) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",2,0,2100,14)="042-3;""(042) ARTIFICIAL ARM TOTAL - A&A PATIENTS"""
^DIE(243,"DIAB",2,0,2100,15)="046-5;""(046) ARTIFICIAL LEG, IPOP - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DIAB",2,0,2100,16)="049-3;""(049) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",2,0,2100,17)="052-3;""(052) ARTIFICIAL LEG, IPOP - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",2,0,2100,18)="055-3;""(055) ARTIFICIAL LEG, IPOP - NUMBER NEW CASES"""
^DIE(243,"DIAB",2,0,2100,19)="058-6;""(058) ARTIFICIAL LEG TEMP. - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",2,0,2100,20)="061-3;""(061) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",2,0,2100,21)="064-3;""(064) ARTIFICIAL LEG TEMP. - A&A PATIENTS"""
^DIE(243,"DIAB",3,0,2100,1)="005-3;""(005) AID FOR BLIND - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",3,0,2100,2)="008-3;""(008) AID FOR BLIND - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",3,0,2100,3)="012-4;""(012) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",3,0,2100,7)="021-3;""(021) SPECIAL BLIND EQUIP (OVER $2000) - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",3,0,2100,8)="024-5;""(024) ARTIFICIAL EYE, TOTAL - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DIAB",3,0,2100,9)="027-3;""(027) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(243,"DIAB",3,0,2100,10)="030-3;""(030) ARTIFICIAL EYE, TOTAL - SPECIAL LEGISLATION PATIENTS"""
^DIE(243,"DIAB",3,0,2100,11)="033-3;""(033) ARTIFICIAL EYE, TOTAL - NUMBER NEW CASES"""
^DIE(243,"DIAB",3,0,2100,12)="037-4;""(037) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",3,0,2100,13)="040-4;""(040) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",3,0,2100,14)="043-3;""(043) ARTIFICIAL ARM TOTAL - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",3,0,2100,15)="047-6;""(047) ARTIFICIAL LEG, IPOP - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(243,"DIAB",3,0,2100,16)="050-3;""(050) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(243,"DIAB",3,0,2100,17)="053-3;""(053) ARTIFICIAL LEG, IPOP - A&A PATIENTS"""
^DIE(243,"DIAB",3,0,2100,18)="056-4;""(056) ARTIFICIAL LEG TEMP. - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",3,0,2100,19)="059-4;""(059) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(243,"DIAB",3,0,2100,20)="062-4;""(062) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(243,"DIAB",3,0,2100,21)="065-3;""(065) ARTIFICIAL LEG TEMP. - POST HOSPITAL CARE PATIENTS"""
^DIE(243,"DIAB",4,0,2100,2)="009-3;""(009) AID FOR BLIND - A&A PATIENTS"""
^DIE(243,"DIAB",4,0,2100,11)="034-4;""(034) ARTIFICIAL ARM TOTAL - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",4,0,2100,14)="044-3;""(044) ARTIFICIAL ARM TOTAL - NUMBER NEW CASES"""
^DIE(243,"DIAB",4,0,2100,21)="066-3;""(066) ARTIFICIAL LEG TEMP. - NUMBER NEW CASES"""
^DIE(243,"DIAB",9,0,2100,0)="001-4;""(001) AID FOR BLIND - NUMBER ITEMS - VA SOURCES"""
^DIE(243,"DIAB",10,0,2100,0)="002-5;""(002) AID FOR BLIND - NUMBER ITEMS - COMMERCIAL"""
^DIE(243,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) AID FOR BLIND - NUMBER ITEMS - VA SOURCES~;55.002(002) AID FOR BLIND - NUMBER ITEMS - COMMERCIAL~;"
^DIE(243,"DR",1,2100,1)="56.003(003) AID FOR BLIND - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) AID FOR BLIND - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.005(005) AID FOR BLIND - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(243,"DR",1,2100,2)="53.006(006) AID FOR BLIND - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) AID FOR BLIND - NUMBER DISAB. SERVED - NSC INPATIENT~;53.008(008) AID FOR BLIND - SPECIAL LEGISLATION PATIENTS~;53.009(009) AID FOR BLIND - A&A PATIENTS~;"
^DIE(243,"DR",1,2100,3)="53.01(010) AID FOR BLIND - POST HOSPITAL CARE PATIENTS~;53.011(011) AID FOR BLIND - NUMBER NEW CASES~;54.012(012) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER ITEMS - VA SOURCES~;"
^DIE(243,"DR",1,2100,4)="55.013(013) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER ITEMS - COMMERCIAL~;56.014(014) SPECIAL BLIND EQUIP (OVER $2000) - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(243,"DR",1,2100,5)="54.015(015) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.016(016) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(243,"DR",1,2100,6)="53.017(017) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - SC INPATIENT~;54.018(018) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(243,"DR",1,2100,7)="53.019(019) SPECIAL BLIND EQUIP (OVER $2000) - SPECIAL LEGISLATION PATIENTS~;53.02(020) SPECIAL BLIND EQUIP (OVER $2000) - A&A PATIENTS~;53.021(021) SPECIAL BLIND EQUIP (OVER $2000) - POST HOSPITAL CARE PATIENTS~;"
^DIE(243,"DR",1,2100,8)="53.022(022) SPECIAL BLIND EQUIP (OVER $2000) - NUMBER NEW CASES~;54.023(023) ARTIFICIAL EYE, TOTAL - NUMBER ITEMS - VA SOURCES~;55.024(024) ARTIFICIAL EYE, TOTAL - NUMBER ITEMS - COMMERCIAL~;"
^DIE(243,"DR",1,2100,9)="56.025(025) ARTIFICIAL EYE, TOTAL - BUDGETED TOTAL COST (DOLLARS)~;54.026(026) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.027(027) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(243,"DR",1,2100,10)="53.028(028) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - SC INPATIENT~;54.029(029) ARTIFICIAL EYE, TOTAL - NUMBER DISAB. SERVED - NSC INPATIENT~;53.03(030) ARTIFICIAL EYE, TOTAL - SPECIAL LEGISLATION PATIENTS~;"
^DIE(243,"DR",1,2100,11)="53.031(031) ARTIFICIAL EYE, TOTAL - A&A PATIENTS~;53.032(032) ARTIFICIAL EYE, TOTAL - POST HOSPITAL CARE PATIENTS~;53.033(033) ARTIFICIAL EYE, TOTAL - NUMBER NEW CASES~;54.034(034) ARTIFICIAL ARM TOTAL - NUMBER ITEMS - VA SOURCES~;"
^DIE(243,"DR",1,2100,12)="55.035(035) ARTIFICIAL ARM TOTAL - NUMBER ITEMS - COMMERCIAL~;56.036(036) ARTIFICIAL ARM TOTAL - BUDGETED TOTAL COST (DOLLARS)~;54.037(037) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(243,"DR",1,2100,13)="53.038(038) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - SC INPATIENT~;54.04(040) ARTIFICIAL ARM TOTAL - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(243,"DR",1,2100,14)="53.041(041) ARTIFICIAL ARM TOTAL - SPECIAL LEGISLATION PATIENTS~;53.042(042) ARTIFICIAL ARM TOTAL - A&A PATIENTS~;53.043(043) ARTIFICIAL ARM TOTAL - POST HOSPITAL CARE PATIENTS~;53.044(044) ARTIFICIAL ARM TOTAL - NUMBER NEW CASES~;"
^DIE(243,"DR",1,2100,15)="54.045(045) ARTIFICIAL LEG, IPOP - NUMBER ITEMS - VA SOURCES~;55.046(046) ARTIFICIAL LEG, IPOP - NUMBER ITEMS - COMMERCIAL~;56.047(047) ARTIFICIAL LEG, IPOP - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(243,"DR",1,2100,16)="54.048(048) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.049(049) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.05(050) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(243,"DR",1,2100,17)="54.051(051) ARTIFICIAL LEG, IPOP - NUMBER DISAB. SERVED - NSC INPATIENT~;53.052(052) ARTIFICIAL LEG, IPOP - SPECIAL LEGISLATION PATIENTS~;53.053(053) ARTIFICIAL LEG, IPOP - A&A PATIENTS~;"
^DIE(243,"DR",1,2100,18)="53.054(054) ARTIFICIAL LEG, IPOP - POST HOSPITAL CARE PATIENTS~;53.055(055) ARTIFICIAL LEG, IPOP - NUMBER NEW CASES~;54.056(056) ARTIFICIAL LEG TEMP. - NUMBER ITEMS - VA SOURCES~;"
^DIE(243,"DR",1,2100,19)="55.057(057) ARTIFICIAL LEG TEMP. - NUMBER ITEMS - COMMERCIAL~;56.058(058) ARTIFICIAL LEG TEMP. - BUDGETED TOTAL COST (DOLLARS)~;54.059(059) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(243,"DR",1,2100,20)="53.06(060) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.061(061) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - SC INPATIENT~;54.062(062) ARTIFICIAL LEG TEMP. - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(243,"DR",1,2100,21)="53.063(063) ARTIFICIAL LEG TEMP. - SPECIAL LEGISLATION PATIENTS~;53.064(064) ARTIFICIAL LEG TEMP. - A&A PATIENTS~;53.065(065) ARTIFICIAL LEG TEMP. - POST HOSPITAL CARE PATIENTS~;53.066(066) ARTIFICIAL LEG TEMP. - NUMBER NEW CASES~;"
^DIE(243,"DR",1,2100,22)="99///^S X=""$"";"
^DIE(244,0)="RMPR AMS5 AMIS 123^2900918.1906^^2100^0^^2931004"
^DIE(244,"DIAB",1,0,2100,1)="002-5;""(002) ARTIFICIAL LEG, PERM - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",1,0,2100,2)="005-3;""(005) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,3)="008-3;""(008) ARTIFICIAL LEG, PERM - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",1,0,2100,4)="012-4;""(012) BRACE, ANKLE - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DIAB",1,0,2100,5)="016-3;""(016) BRACE, ANKLE - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,6)="019-3;""(019) BRACE, ANKLE - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",1,0,2100,7)="023-4;""(023) BRACE, LEG, AK - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DIAB",1,0,2100,8)="026-4;""(026) BRACE, LEG, AK - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,9)="029-4;""(029) BRACE, LEG, AK - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",1,0,2100,10)="033-3;""(033) BRACE, LEG, AK - NUMBER NEW CASES"""
^DIE(244,"DIAB",1,0,2100,11)="037-4;""(037) BRACE, SPINAL - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,12)="040-4;""(040) BRACE, SPINAL - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",1,0,2100,13)="044-3;""(044) BRACE, SPINAL - NUMBER NEW CASES"""
^DIE(244,"DIAB",1,0,2100,14)="048-4;""(048) BRACE, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,15)="051-4;""(051) BRACE, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",1,0,2100,16)="054-3;""(054) BRACE, ALL OTHER - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",1,0,2100,17)="057-5;""(057) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",1,0,2100,18)="059-4;""(059) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",1,0,2100,19)="061-3;""(061) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",1,0,2100,20)="063-3;""(063) SPECIALIZED APPLIANCES (OVER $2000) - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",1,0,2100,21)="066-3;""(066) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER NEW CASES"""
^DIE(244,"DIAB",2,0,2100,1)="003-6;""(003) ARTIFICIAL LEG, PERM - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",2,0,2100,2)="006-3;""(006) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",2,0,2100,3)="009-3;""(009) ARTIFICIAL LEG, PERM - A&A PATIENTS"""
^DIE(244,"DIAB",2,0,2100,4)="013-5;""(013) BRACE, ANKLE - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",2,0,2100,5)="017-3;""(017) BRACE, ANKLE - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",2,0,2100,6)="020-3;""(020) BRACE, ANKLE - A&A PATIENTS"""
^DIE(244,"DIAB",2,0,2100,7)="024-5;""(024) BRACE, LEG, AK - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",2,0,2100,8)="027-3;""(027) BRACE, LEG, AK - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",2,0,2100,9)="030-3;""(030) BRACE, LEG, AK - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",2,0,2100,10)="034-4;""(034) BRACE, SPINAL - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DIAB",2,0,2100,11)="038-3;""(038) BRACE, SPINAL - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",2,0,2100,12)="041-3;""(041) BRACE, SPINAL - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",2,0,2100,13)="045-4;""(045) BRACE, ALL OTHER - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DIAB",2,0,2100,14)="049-3;""(049) BRACE, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",2,0,2100,15)="052-3;""(052) BRACE, ALL OTHER - SPECIAL LEGISLATION PATIENTS"""
^DIE(244,"DIAB",2,0,2100,16)="055-3;""(055) BRACE, ALL OTHER - NUMBER NEW CASES"""
^DIE(244,"DIAB",2,0,2100,17)="058-6;""(058) SPECIALIZED APPLIANCES (OVER $2000) - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",2,0,2100,18)="060-3;""(060) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(244,"DIAB",2,0,2100,19)="062-4;""(062) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",2,0,2100,20)="064-3;""(064) SPECIALIZED APPLIANCES (OVER $2000) - A&A PATIENTS"""
^DIE(244,"DIAB",3,0,2100,1)="004-4;""(004) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",3,0,2100,2)="007-4;""(007) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",3,0,2100,3)="010-3;""(010) ARTIFICIAL LEG, PERM - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",3,0,2100,4)="014-6;""(014) BRACE, ANKLE - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",3,0,2100,5)="018-4;""(018) BRACE, ANKLE - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(244,"DIAB",3,0,2100,6)="021-3;""(021) BRACE, ANKLE - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",3,0,2100,7)="025-6;""(025) BRACE, LEG, AK - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",3,0,2100,8)="028-3;""(028) BRACE, LEG, AK - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",3,0,2100,9)="031-3;""(031) BRACE, LEG, AK - A&A PATIENTS"""
^DIE(244,"DIAB",3,0,2100,10)="035-5;""(035) BRACE, SPINAL - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",3,0,2100,11)="039-3;""(039) BRACE, SPINAL - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",3,0,2100,12)="042-3;""(042) BRACE, SPINAL - A&A PATIENTS"""
^DIE(244,"DIAB",3,0,2100,13)="046-5;""(046) BRACE, ALL OTHER - NUMBER ITEMS - COMMERCIAL"""
^DIE(244,"DIAB",3,0,2100,14)="050-3;""(050) BRACE, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(244,"DIAB",3,0,2100,15)="053-3;""(053) BRACE, ALL OTHER - A&A PATIENTS"""
^DIE(244,"DIAB",3,0,2100,16)="056-4;""(056) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DIAB",3,0,2100,20)="065-3;""(065) SPECIALIZED APPLIANCES (OVER $2000) - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",4,0,2100,3)="011-3;""(011) ARTIFICIAL LEG, PERM - NUMBER NEW CASES"""
^DIE(244,"DIAB",4,0,2100,4)="015-4;""(015) BRACE, ANKLE - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(244,"DIAB",4,0,2100,6)="022-3;""(022) BRACE, ANKLE - NUMBER NEW CASES"""
^DIE(244,"DIAB",4,0,2100,9)="032-3;""(032) BRACE, LEG, AK - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",4,0,2100,10)="036-6;""(036) BRACE, SPINAL - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",4,0,2100,12)="043-3;""(043) BRACE, SPINAL - POST HOSPITAL CARE PATIENTS"""
^DIE(244,"DIAB",4,0,2100,13)="047-6;""(047) BRACE, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(244,"DIAB",9,0,2100,0)="001-4;""(001) ARTIFICIAL LEG, PERM - NUMBER ITEMS - VA SOURCES"""
^DIE(244,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) ARTIFICIAL LEG, PERM - NUMBER ITEMS - VA SOURCES~;"
^DIE(244,"DR",1,2100,1)="55.002(002) ARTIFICIAL LEG, PERM - NUMBER ITEMS - COMMERCIAL~;56.003(003) ARTIFICIAL LEG, PERM - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(244,"DR",1,2100,2)="53.005(005) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.006(006) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) ARTIFICIAL LEG, PERM - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(244,"DR",1,2100,3)="53.008(008) ARTIFICIAL LEG, PERM - SPECIAL LEGISLATION PATIENTS~;53.009(009) ARTIFICIAL LEG, PERM - A&A PATIENTS~;53.01(010) ARTIFICIAL LEG, PERM - POST HOSPITAL CARE PATIENTS~;53.011(011) ARTIFICIAL LEG, PERM - NUMBER NEW CASES~;"
^DIE(244,"DR",1,2100,4)="54.012(012) BRACE, ANKLE - NUMBER ITEMS - VA SOURCES~;55.013(013) BRACE, ANKLE - NUMBER ITEMS - COMMERCIAL~;56.014(014) BRACE, ANKLE - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) BRACE, ANKLE - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(244,"DR",1,2100,5)="53.016(016) BRACE, ANKLE - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.017(017) BRACE, ANKLE - NUMBER DISAB. SERVED - SC INPATIENT~;54.018(018) BRACE, ANKLE - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(244,"DR",1,2100,6)="53.019(019) BRACE, ANKLE - SPECIAL LEGISLATION PATIENTS~;53.02(020) BRACE, ANKLE - A&A PATIENTS~;53.021(021) BRACE, ANKLE - POST HOSPITAL CARE PATIENTS~;53.022(022) BRACE, ANKLE - NUMBER NEW CASES~;"
^DIE(244,"DR",1,2100,7)="54.023(023) BRACE, LEG, AK - NUMBER ITEMS - VA SOURCES~;55.024(024) BRACE, LEG, AK - NUMBER ITEMS - COMMERCIAL~;56.025(025) BRACE, LEG, AK - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(244,"DR",1,2100,8)="54.026(026) BRACE, LEG, AK - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.027(027) BRACE, LEG, AK - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) BRACE, LEG, AK - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(244,"DR",1,2100,9)="54.029(029) BRACE, LEG, AK - NUMBER DISAB. SERVED - NSC INPATIENT~;53.03(030) BRACE, LEG, AK - SPECIAL LEGISLATION PATIENTS~;53.031(031) BRACE, LEG, AK - A&A PATIENTS~;53.032(032) BRACE, LEG, AK - POST HOSPITAL CARE PATIENTS~;"
^DIE(244,"DR",1,2100,10)="53.033(033) BRACE, LEG, AK - NUMBER NEW CASES~;54.034(034) BRACE, SPINAL - NUMBER ITEMS - VA SOURCES~;55.035(035) BRACE, SPINAL - NUMBER ITEMS - COMMERCIAL~;56.036(036) BRACE, SPINAL - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(244,"DR",1,2100,11)="54.037(037) BRACE, SPINAL - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) BRACE, SPINAL - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) BRACE, SPINAL - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(244,"DR",1,2100,12)="54.04(040) BRACE, SPINAL - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) BRACE, SPINAL - SPECIAL LEGISLATION PATIENTS~;53.042(042) BRACE, SPINAL - A&A PATIENTS~;53.043(043) BRACE, SPINAL - POST HOSPITAL CARE PATIENTS~;"
^DIE(244,"DR",1,2100,13)="53.044(044) BRACE, SPINAL - NUMBER NEW CASES~;54.045(045) BRACE, ALL OTHER - NUMBER ITEMS - VA SOURCES~;55.046(046) BRACE, ALL OTHER - NUMBER ITEMS - COMMERCIAL~;56.047(047) BRACE, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(244,"DR",1,2100,14)="54.048(048) BRACE, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.049(049) BRACE, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.05(050) BRACE, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(244,"DR",1,2100,15)="54.051(051) BRACE, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT~;53.052(052) BRACE, ALL OTHER - SPECIAL LEGISLATION PATIENTS~;53.053(053) BRACE, ALL OTHER - A&A PATIENTS~;"
^DIE(244,"DR",1,2100,16)="53.054(054) BRACE, ALL OTHER - POST HOSPITAL CARE PATIENTS~;53.055(055) BRACE, ALL OTHER - NUMBER NEW CASES~;54.056(056) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER ITEMS - VA SOURCES~;"
^DIE(244,"DR",1,2100,17)="55.057(057) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER ITEMS - COMMERCIAL~;56.058(058) SPECIALIZED APPLIANCES (OVER $2000) - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(244,"DR",1,2100,18)="54.059(059) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.06(060) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(244,"DR",1,2100,19)="53.061(061) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - SC INPATIENT~;54.062(062) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(244,"DR",1,2100,20)="53.063(063) SPECIALIZED APPLIANCES (OVER $2000) - SPECIAL LEGISLATION PATIENTS~;53.064(064) SPECIALIZED APPLIANCES (OVER $2000) - A&A PATIENTS~;53.065(065) SPECIALIZED APPLIANCES (OVER $2000) - POST HOSPITAL CARE PATIENTS~;"
^DIE(244,"DR",1,2100,21)="53.066(066) SPECIALIZED APPLIANCES (OVER $2000) - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(245,0)="RMPR AMS5 AMIS 124^2900918.1931^^2100^0^^2931004"
^DIE(245,"DIAB",1,0,2100,1)="003-6;""(003) CONTACT LENS, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",1,0,2100,2)="006-3;""(006) CONTACT LENS, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",1,0,2100,3)="009-3;""(009) CONTACT LENS, EACH - A&A PATIENTS"""
^DIE(245,"DIAB",1,0,2100,4)="013-5;""(013) CORSET/BELT - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DIAB",1,0,2100,5)="016-3;""(016) CORSET/BELT - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",1,0,2100,6)="019-3;""(019) CORSET/BELT - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",1,0,2100,7)="023-4;""(023) EAR INSERTS, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",1,0,2100,8)="026-4;""(026) EAR INSERTS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",1,0,2100,9)="029-4;""(029) EAR INSERTS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",1,0,2100,10)="032-3;""(032) EAR INSERTS, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",1,0,2100,11)="036-6;""(036) ELASTIC HOSE, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",1,0,2100,12)="039-3;""(039) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",1,0,2100,13)="042-3;""(042) ELASTIC HOSE, EACH - A&A PATIENTS"""
^DIE(245,"DIAB",1,0,2100,14)="046-5;""(046) EYEGLASSES, PAIR - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DIAB",1,0,2100,15)="049-3;""(049) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",1,0,2100,16)="052-3;""(052) EYEGLASSES, PAIR - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",1,0,2100,17)="056-4;""(056) HEARING AIDS - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",1,0,2100,18)="060-3;""(060) HEARING AIDS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",1,0,2100,19)="063-3;""(063) HEARING AIDS - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",2,0,2100,1)="004-4;""(004) CONTACT LENS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",2,0,2100,2)="007-4;""(007) CONTACT LENS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",2,0,2100,3)="010-3;""(010) CONTACT LENS, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",2,0,2100,4)="014-6;""(014) CORSET/BELT - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",2,0,2100,5)="017-3;""(017) CORSET/BELT - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",2,0,2100,6)="020-3;""(020) CORSET/BELT - A&A PATIENTS"""
^DIE(245,"DIAB",2,0,2100,7)="024-5;""(024) EAR INSERTS, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DIAB",2,0,2100,8)="027-3;""(027) EAR INSERTS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",2,0,2100,9)="030-3;""(030) EAR INSERTS, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",2,0,2100,10)="033-3;""(033) EAR INSERTS, EACH - NUMBER NEW CASES"""
^DIE(245,"DIAB",2,0,2100,11)="037-4;""(037) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",2,0,2100,12)="040-4;""(040) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",2,0,2100,13)="043-3;""(043) ELASTIC HOSE, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",2,0,2100,14)="047-6;""(047) EYEGLASSES, PAIR - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",2,0,2100,15)="050-3;""(050) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",2,0,2100,16)="053-3;""(053) EYEGLASSES, PAIR - A&A PATIENTS"""
^DIE(245,"DIAB",2,0,2100,17)="057-5;""(057) HEARING AIDS - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DIAB",2,0,2100,18)="061-3;""(061) HEARING AIDS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",2,0,2100,19)="064-3;""(064) HEARING AIDS - A&A PATIENTS"""
^DIE(245,"DIAB",3,0,2100,1)="005-3;""(005) CONTACT LENS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",3,0,2100,2)="008-3;""(008) CONTACT LENS, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",3,0,2100,3)="011-3;""(011) CONTACT LENS, EACH - NUMBER NEW CASES"""
^DIE(245,"DIAB",3,0,2100,4)="015-4;""(015) CORSET/BELT - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",3,0,2100,5)="018-4;""(018) CORSET/BELT - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",3,0,2100,6)="021-3;""(021) CORSET/BELT - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",3,0,2100,7)="025-6;""(025) EAR INSERTS, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",3,0,2100,8)="028-3;""(028) EAR INSERTS, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(245,"DIAB",3,0,2100,9)="031-3;""(031) EAR INSERTS, EACH - A&A PATIENTS"""
^DIE(245,"DIAB",3,0,2100,10)="034-4;""(034) ELASTIC HOSE, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",3,0,2100,11)="038-3;""(038) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(245,"DIAB",3,0,2100,12)="041-3;""(041) ELASTIC HOSE, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(245,"DIAB",3,0,2100,13)="044-3;""(044) ELASTIC HOSE, EACH - NUMBER NEW CASES"""
^DIE(245,"DIAB",3,0,2100,14)="048-4;""(048) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",3,0,2100,15)="051-4;""(051) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",3,0,2100,16)="054-3;""(054) EYEGLASSES, PAIR - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",3,0,2100,17)="058-6;""(058) HEARING AIDS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(245,"DIAB",3,0,2100,18)="062-4;""(062) HEARING AIDS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(245,"DIAB",3,0,2100,19)="065-3;""(065) HEARING AIDS - POST HOSPITAL CARE PATIENTS"""
^DIE(245,"DIAB",4,0,2100,3)="012-4;""(012) CORSET/BELT - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",4,0,2100,6)="022-3;""(022) CORSET/BELT - NUMBER NEW CASES"""
^DIE(245,"DIAB",4,0,2100,10)="035-5;""(035) ELASTIC HOSE, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DIAB",4,0,2100,13)="045-4;""(045) EYEGLASSES, PAIR - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",4,0,2100,16)="055-3;""(055) EYEGLASSES, PAIR - NUMBER NEW CASES"""
^DIE(245,"DIAB",4,0,2100,17)="059-4;""(059) HEARING AIDS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(245,"DIAB",4,0,2100,19)="066-3;""(066) HEARING AIDS - NUMBER NEW CASES"""
^DIE(245,"DIAB",9,0,2100,0)="001-4;""(001) CONTACT LENS, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(245,"DIAB",10,0,2100,0)="002-5;""(002) CONTACT LENS, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(245,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) CONTACT LENS, EACH - NUMBER ITEMS - VA SOURCES~;55.002(002) CONTACT LENS, EACH - NUMBER ITEMS - COMMERCIAL~;"
^DIE(245,"DR",1,2100,1)="56.003(003) CONTACT LENS, EACH - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) CONTACT LENS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.005(005) CONTACT LENS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(245,"DR",1,2100,2)="53.006(006) CONTACT LENS, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) CONTACT LENS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.008(008) CONTACT LENS, EACH - SPECIAL LEGISLATION PATIENTS~;"
^DIE(245,"DR",1,2100,3)="53.009(009) CONTACT LENS, EACH - A&A PATIENTS~;53.01(010) CONTACT LENS, EACH - POST HOSPITAL CARE PATIENTS~;53.011(011) CONTACT LENS, EACH - NUMBER NEW CASES~;54.012(012) CORSET/BELT - NUMBER ITEMS - VA SOURCES~;"
^DIE(245,"DR",1,2100,4)="55.013(013) CORSET/BELT - NUMBER ITEMS - COMMERCIAL~;56.014(014) CORSET/BELT - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) CORSET/BELT - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(245,"DR",1,2100,5)="53.016(016) CORSET/BELT - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.017(017) CORSET/BELT - NUMBER DISAB. SERVED - SC INPATIENT~;54.018(018) CORSET/BELT - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(245,"DR",1,2100,6)="53.019(019) CORSET/BELT - SPECIAL LEGISLATION PATIENTS~;53.02(020) CORSET/BELT - A&A PATIENTS~;53.021(021) CORSET/BELT - POST HOSPITAL CARE PATIENTS~;53.022(022) CORSET/BELT - NUMBER NEW CASES~;"
^DIE(245,"DR",1,2100,7)="54.023(023) EAR INSERTS, EACH - NUMBER ITEMS - VA SOURCES~;55.024(024) EAR INSERTS, EACH - NUMBER ITEMS - COMMERCIAL~;56.025(025) EAR INSERTS, EACH - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(245,"DR",1,2100,8)="54.026(026) EAR INSERTS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.027(027) EAR INSERTS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) EAR INSERTS, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(245,"DR",1,2100,9)="54.029(029) EAR INSERTS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.03(030) EAR INSERTS, EACH - SPECIAL LEGISLATION PATIENTS~;53.031(031) EAR INSERTS, EACH - A&A PATIENTS~;"
^DIE(245,"DR",1,2100,10)="53.032(032) EAR INSERTS, EACH - POST HOSPITAL CARE PATIENTS~;53.033(033) EAR INSERTS, EACH - NUMBER NEW CASES~;54.034(034) ELASTIC HOSE, EACH - NUMBER ITEMS - VA SOURCES~;55.035(035) ELASTIC HOSE, EACH - NUMBER ITEMS - COMMERCIAL~;"
^DIE(245,"DR",1,2100,11)="56.036(036) ELASTIC HOSE, EACH - BUDGETED TOTAL COST (DOLLARS)~;54.037(037) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(245,"DR",1,2100,12)="53.039(039) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;54.04(040) ELASTIC HOSE, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) ELASTIC HOSE, EACH - SPECIAL LEGISLATION PATIENTS~;"
^DIE(245,"DR",1,2100,13)="53.042(042) ELASTIC HOSE, EACH - A&A PATIENTS~;53.043(043) ELASTIC HOSE, EACH - POST HOSPITAL CARE PATIENTS~;53.044(044) ELASTIC HOSE, EACH - NUMBER NEW CASES~;54.045(045) EYEGLASSES, PAIR - NUMBER ITEMS - VA SOURCES~;"
^DIE(245,"DR",1,2100,14)="55.046(046) EYEGLASSES, PAIR - NUMBER ITEMS - COMMERCIAL~;56.047(047) EYEGLASSES, PAIR - BUDGETED TOTAL COST (DOLLARS)~;54.048(048) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(245,"DR",1,2100,15)="53.049(049) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.05(050) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - SC INPATIENT~;54.051(051) EYEGLASSES, PAIR - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(245,"DR",1,2100,16)="53.052(052) EYEGLASSES, PAIR - SPECIAL LEGISLATION PATIENTS~;53.053(053) EYEGLASSES, PAIR - A&A PATIENTS~;53.054(054) EYEGLASSES, PAIR - POST HOSPITAL CARE PATIENTS~;53.055(055) EYEGLASSES, PAIR - NUMBER NEW CASES~;"
^DIE(245,"DR",1,2100,17)="54.056(056) HEARING AIDS - NUMBER ITEMS - VA SOURCES~;55.057(057) HEARING AIDS - NUMBER ITEMS - COMMERCIAL~;56.058(058) HEARING AIDS - BUDGETED TOTAL COST (DOLLARS)~;54.059(059) HEARING AIDS - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(245,"DR",1,2100,18)="53.06(060) HEARING AIDS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.061(061) HEARING AIDS - NUMBER DISAB. SERVED - SC INPATIENT~;54.062(062) HEARING AIDS - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(245,"DR",1,2100,19)="53.063(063) HEARING AIDS - SPECIAL LEGISLATION PATIENTS~;53.064(064) HEARING AIDS - A&A PATIENTS~;53.065(065) HEARING AIDS - POST HOSPITAL CARE PATIENTS~;53.066(066) HEARING AIDS - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(246,0)="RMPR AMS5 AMIS 125^2900918.1936^^2100^0^^2931004"
^DIE(246,"DIAB",1,0,2100,1)="002-5;""(002) TRANS. NERVE STIMULATOR - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",1,0,2100,2)="005-3;""(005) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",1,0,2100,3)="008-3;""(008) TRANS. NERVE STIMULATOR - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",1,0,2100,4)="011-3;""(011) TRANS. NERVE STIMULATOR - NUMBER NEW CASES"""
^DIE(246,"DIAB",1,0,2100,5)="014-6;""(014) BED, HOSPITAL, SPECIAL - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",1,0,2100,6)="017-3;""(017) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",1,0,2100,7)="020-3;""(020) BED, HOSPITAL, SPECIAL - A&A PATIENTS"""
^DIE(246,"DIAB",1,0,2100,8)="024-5;""(024) BED HOSPITAL, STD - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",1,0,2100,9)="027-3;""(027) BED HOSPITAL, STD - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",1,0,2100,10)="030-3;""(030) BED HOSPITAL, STD - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",1,0,2100,11)="034-4;""(034) HOME DIALYSIS EQUIP - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DIAB",1,0,2100,12)="037-4;""(037) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",1,0,2100,13)="040-4;""(040) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",1,0,2100,14)="043-3;""(043) HOME DIALYSIS EQUIP - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",1,0,2100,15)="047-6;""(047) INVALID LIFT - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",1,0,2100,16)="050-3;""(050) INVALID LIFT - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",1,0,2100,17)="054-3;""(054) INVALID LIFT - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",1,0,2100,18)="058-6;""(058) WALKING AIDS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",1,0,2100,19)="061-3;""(061) WALKING AIDS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",1,0,2100,20)="065-3;""(065) WALKING AIDS - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",2,0,2100,1)="003-6;""(003) TRANS. NERVE STIMULATOR - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",2,0,2100,2)="006-3;""(006) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",2,0,2100,3)="009-3;""(009) TRANS. NERVE STIMULATOR - A&A PATIENTS"""
^DIE(246,"DIAB",2,0,2100,4)="012-4;""(012) BED, HOSPITAL, SPECIAL - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DIAB",2,0,2100,5)="015-4;""(015) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",2,0,2100,6)="018-4;""(018) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",2,0,2100,7)="021-3;""(021) BED, HOSPITAL, SPECIAL - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",2,0,2100,8)="025-6;""(025) BED HOSPITAL, STD - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",2,0,2100,9)="028-3;""(028) BED HOSPITAL, STD - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",2,0,2100,10)="031-3;""(031) BED HOSPITAL, STD - A&A PATIENTS"""
^DIE(246,"DIAB",2,0,2100,11)="035-5;""(035) HOME DIALYSIS EQUIP - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",2,0,2100,12)="038-3;""(038) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",2,0,2100,13)="041-3;""(041) HOME DIALYSIS EQUIP - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",2,0,2100,14)="044-3;""(044) HOME DIALYSIS EQUIP - NUMBER NEW CASES"""
^DIE(246,"DIAB",2,0,2100,15)="048-4;""(048) INVALID LIFT - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",2,0,2100,16)="051-4;""(051) INVALID LIFT - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",2,0,2100,17)="055-3;""(055) INVALID LIFT - NUMBER NEW CASES"""
^DIE(246,"DIAB",2,0,2100,18)="059-4;""(059) WALKING AIDS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",2,0,2100,19)="062-4;""(062) WALKING AIDS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",2,0,2100,20)="066-3;""(066) WALKING AIDS - NUMBER NEW CASES"""
^DIE(246,"DIAB",3,0,2100,1)="004-4;""(004) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",3,0,2100,2)="007-4;""(007) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",3,0,2100,3)="010-3;""(010) TRANS. NERVE STIMULATOR - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",3,0,2100,4)="013-5;""(013) BED, HOSPITAL, SPECIAL - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",3,0,2100,5)="016-3;""(016) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",3,0,2100,6)="019-3;""(019) BED, HOSPITAL, SPECIAL - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",3,0,2100,7)="022-3;""(022) BED, HOSPITAL, SPECIAL - NUMBER NEW CASES"""
^DIE(246,"DIAB",3,0,2100,8)="026-4;""(026) BED HOSPITAL, STD - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(246,"DIAB",3,0,2100,9)="029-4;""(029) BED HOSPITAL, STD - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(246,"DIAB",3,0,2100,10)="032-3;""(032) BED HOSPITAL, STD - POST HOSPITAL CARE PATIENTS"""
^DIE(246,"DIAB",3,0,2100,11)="036-6;""(036) HOME DIALYSIS EQUIP - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(246,"DIAB",3,0,2100,12)="039-3;""(039) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(246,"DIAB",3,0,2100,13)="042-3;""(042) HOME DIALYSIS EQUIP - A&A PATIENTS"""
^DIE(246,"DIAB",3,0,2100,14)="045-4;""(045) INVALID LIFT - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DIAB",3,0,2100,15)="049-3;""(049) INVALID LIFT - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",3,0,2100,16)="052-3;""(052) INVALID LIFT - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",3,0,2100,17)="056-4;""(056) WALKING AIDS - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DIAB",3,0,2100,18)="060-3;""(060) WALKING AIDS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(246,"DIAB",3,0,2100,19)="063-3;""(063) WALKING AIDS - SPECIAL LEGISLATION PATIENTS"""
^DIE(246,"DIAB",4,0,2100,7)="023-4;""(023) BED HOSPITAL, STD - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DIAB",4,0,2100,10)="033-3;""(033) BED HOSPITAL, STD - NUMBER NEW CASES"""
^DIE(246,"DIAB",4,0,2100,14)="046-5;""(046) INVALID LIFT - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",4,0,2100,16)="053-3;""(053) INVALID LIFT - A&A PATIENTS"""
^DIE(246,"DIAB",4,0,2100,17)="057-5;""(057) WALKING AIDS - NUMBER ITEMS - COMMERCIAL"""
^DIE(246,"DIAB",4,0,2100,19)="064-3;""(064) WALKING AIDS - A&A PATIENTS"""
^DIE(246,"DIAB",9,0,2100,0)="001-4;""(001) TRANS. NERVE STIMULATOR - NUMBER ITEMS - VA SOURCES"""
^DIE(246,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) TRANS. NERVE STIMULATOR - NUMBER ITEMS - VA SOURCES~;"
^DIE(246,"DR",1,2100,1)="55.002(002) TRANS. NERVE STIMULATOR - NUMBER ITEMS - COMMERCIAL~;56.003(003) TRANS. NERVE STIMULATOR - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(246,"DR",1,2100,2)="53.005(005) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.006(006) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) TRANS. NERVE STIMULATOR - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(246,"DR",1,2100,3)="53.008(008) TRANS. NERVE STIMULATOR - SPECIAL LEGISLATION PATIENTS~;53.009(009) TRANS. NERVE STIMULATOR - A&A PATIENTS~;53.01(010) TRANS. NERVE STIMULATOR - POST HOSPITAL CARE PATIENTS~;"
^DIE(246,"DR",1,2100,4)="53.011(011) TRANS. NERVE STIMULATOR - NUMBER NEW CASES~;54.012(012) BED, HOSPITAL, SPECIAL - NUMBER ITEMS - VA SOURCES~;55.013(013) BED, HOSPITAL, SPECIAL - NUMBER ITEMS - COMMERCIAL~;"
^DIE(246,"DR",1,2100,5)="56.014(014) BED, HOSPITAL, SPECIAL - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.016(016) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(246,"DR",1,2100,6)="53.017(017) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - SC INPATIENT~;54.018(018) BED, HOSPITAL, SPECIAL - NUMBER DISAB. SERVED - NSC INPATIENT~;53.019(019) BED, HOSPITAL, SPECIAL - SPECIAL LEGISLATION PATIENTS~;"
^DIE(246,"DR",1,2100,7)="53.02(020) BED, HOSPITAL, SPECIAL - A&A PATIENTS~;53.021(021) BED, HOSPITAL, SPECIAL - POST HOSPITAL CARE PATIENTS~;53.022(022) BED, HOSPITAL, SPECIAL - NUMBER NEW CASES~;54.023(023) BED HOSPITAL, STD - NUMBER ITEMS - VA SOURCES~;"
^DIE(246,"DR",1,2100,8)="55.024(024) BED HOSPITAL, STD - NUMBER ITEMS - COMMERCIAL~;56.025(025) BED HOSPITAL, STD - BUDGETED TOTAL COST (DOLLARS)~;54.026(026) BED HOSPITAL, STD - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(246,"DR",1,2100,9)="53.027(027) BED HOSPITAL, STD - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) BED HOSPITAL, STD - NUMBER DISAB. SERVED - SC INPATIENT~;54.029(029) BED HOSPITAL, STD - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(246,"DR",1,2100,10)="53.03(030) BED HOSPITAL, STD - SPECIAL LEGISLATION PATIENTS~;53.031(031) BED HOSPITAL, STD - A&A PATIENTS~;53.032(032) BED HOSPITAL, STD - POST HOSPITAL CARE PATIENTS~;53.033(033) BED HOSPITAL, STD - NUMBER NEW CASES~;"
^DIE(246,"DR",1,2100,11)="54.034(034) HOME DIALYSIS EQUIP - NUMBER ITEMS - VA SOURCES~;55.035(035) HOME DIALYSIS EQUIP - NUMBER ITEMS - COMMERCIAL~;56.036(036) HOME DIALYSIS EQUIP - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(246,"DR",1,2100,12)="54.037(037) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(246,"DR",1,2100,13)="54.04(040) HOME DIALYSIS EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) HOME DIALYSIS EQUIP - SPECIAL LEGISLATION PATIENTS~;53.042(042) HOME DIALYSIS EQUIP - A&A PATIENTS~;"
^DIE(246,"DR",1,2100,14)="53.043(043) HOME DIALYSIS EQUIP - POST HOSPITAL CARE PATIENTS~;53.044(044) HOME DIALYSIS EQUIP - NUMBER NEW CASES~;54.045(045) INVALID LIFT - NUMBER ITEMS - VA SOURCES~;55.046(046) INVALID LIFT - NUMBER ITEMS - COMMERCIAL~;"
^DIE(246,"DR",1,2100,15)="56.047(047) INVALID LIFT - BUDGETED TOTAL COST (DOLLARS)~;54.048(048) INVALID LIFT - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.049(049) INVALID LIFT - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(246,"DR",1,2100,16)="53.05(050) INVALID LIFT - NUMBER DISAB. SERVED - SC INPATIENT~;54.051(051) INVALID LIFT - NUMBER DISAB. SERVED - NSC INPATIENT~;53.052(052) INVALID LIFT - SPECIAL LEGISLATION PATIENTS~;53.053(053) INVALID LIFT - A&A PATIENTS~;"
^DIE(246,"DR",1,2100,17)="53.054(054) INVALID LIFT - POST HOSPITAL CARE PATIENTS~;53.055(055) INVALID LIFT - NUMBER NEW CASES~;54.056(056) WALKING AIDS - NUMBER ITEMS - VA SOURCES~;55.057(057) WALKING AIDS - NUMBER ITEMS - COMMERCIAL~;"
^DIE(246,"DR",1,2100,18)="56.058(058) WALKING AIDS - BUDGETED TOTAL COST (DOLLARS)~;54.059(059) WALKING AIDS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.06(060) WALKING AIDS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(246,"DR",1,2100,19)="53.061(061) WALKING AIDS - NUMBER DISAB. SERVED - SC INPATIENT~;54.062(062) WALKING AIDS - NUMBER DISAB. SERVED - NSC INPATIENT~;53.063(063) WALKING AIDS - SPECIAL LEGISLATION PATIENTS~;53.064(064) WALKING AIDS - A&A PATIENTS~;"
^DIE(246,"DR",1,2100,20)="53.065(065) WALKING AIDS - POST HOSPITAL CARE PATIENTS~;53.066(066) WALKING AIDS - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(247,0)="RMPR AMS5 AMIS 126^2900918.1941^^2100^0^^2931021"
^DIE(247,"DIAB",1,0,2100,1)="002-5;""(002) ENVIRONMENTAL CONTROLS - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",1,0,2100,2)="005-3;""(005) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",1,0,2100,3)="008-3;""(008) ENVIRONMENTAL CONTROLS - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",1,0,2100,4)="011-3;""(011) ENVIRONMENTAL CONTROLS - NUMBER NEW CASES"""
^DIE(247,"DIAB",1,0,2100,5)="014-6;""(014) SPECIAL HOME EQUIP - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",1,0,2100,6)="017-3;""(017) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",1,0,2100,7)="020-3;""(020) SPECIAL HOME EQUIP - A&A PATIENTS"""
^DIE(247,"DIAB",1,0,2100,8)="024-5;""(024) OXYGEN EQUIP - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",1,0,2100,9)="027-3;""(027) OXYGEN EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",1,0,2100,10)="030-3;""(030) OXYGEN EQUIP - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",1,0,2100,11)="034-4;""(034) OXYGEN CONCENTRATORS - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DIAB",1,0,2100,12)="037-4;""(037) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",1,0,2100,13)="040-4;""(040) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",1,0,2100,14)="043-3;""(043) OXYGEN CONCENTRATORS - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",1,0,2100,15)="046-5;""(046) MEDICAL EQUIP, ALL OTHER - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",1,0,2100,16)="049-3;""(049) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",1,0,2100,17)="052-3;""(052) MEDICAL EQUIP, ALL OTHER - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",1,0,2100,18)="055-3;""(055) MEDICAL EQUIP, ALL OTHER - NUMBER NEW CASES"""
^DIE(247,"DIAB",1,0,2100,19)="058-6;""(058) CUSHION WHEELCHAIR - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",1,0,2100,20)="061-3;""(061) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",1,0,2100,21)="064-3;""(064) CUSHION WHEELCHAIR - A&A PATIENTS"""
^DIE(247,"DIAB",2,0,2100,1)="003-6;""(003) ENVIRONMENTAL CONTROLS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",2,0,2100,2)="006-3;""(006) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",2,0,2100,3)="009-3;""(009) ENVIRONMENTAL CONTROLS - A&A PATIENTS"""
^DIE(247,"DIAB",2,0,2100,4)="012-4;""(012) SPECIAL HOME EQUIP - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DIAB",2,0,2100,5)="015-4;""(015) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",2,0,2100,6)="018-4;""(018) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",2,0,2100,7)="021-3;""(021) SPECIAL HOME EQUIP - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",2,0,2100,8)="025-6;""(025) OXYGEN EQUIP - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",2,0,2100,9)="028-3;""(028) OXYGEN EQUIP - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",2,0,2100,10)="031-3;""(031) OXYGEN EQUIP - A&A PATIENTS"""
^DIE(247,"DIAB",2,0,2100,11)="035-5;""(035) OXYGEN CONCENTRATORS - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",2,0,2100,12)="038-3;""(038) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",2,0,2100,13)="041-3;""(041) OXYGEN CONCENTRATORS - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",2,0,2100,14)="044-3;""(044) OXYGEN CONCENTRATORS - NUMBER NEW CASES"""
^DIE(247,"DIAB",2,0,2100,15)="047-6;""(047) MEDICAL EQUIP, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",2,0,2100,16)="050-3;""(050) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",2,0,2100,17)="053-3;""(053) MEDICAL EQUIP, ALL OTHER - A&A PATIENTS"""
^DIE(247,"DIAB",2,0,2100,18)="056-4;""(056) CUSHION WHEELCHAIR - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DIAB",2,0,2100,19)="059-4;""(059) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",2,0,2100,20)="062-4;""(062) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",2,0,2100,21)="065-3;""(065) CUSHION WHEELCHAIR - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",3,0,2100,1)="004-4;""(004) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",3,0,2100,2)="007-4;""(007) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",3,0,2100,3)="010-3;""(010) ENVIRONMENTAL CONTROLS - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",3,0,2100,4)="013-5;""(013) SPECIAL HOME EQUIP - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",3,0,2100,5)="016-3;""(016) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",3,0,2100,6)="019-3;""(019) SPECIAL HOME EQUIP - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",3,0,2100,7)="022-3;""(022) SPECIAL HOME EQUIP - NUMBER NEW CASES"""
^DIE(247,"DIAB",3,0,2100,8)="026-4;""(026) OXYGEN EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",3,0,2100,9)="029-4;""(029) OXYGEN EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",3,0,2100,10)="032-3;""(032) OXYGEN EQUIP - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",3,0,2100,11)="036-6;""(036) OXYGEN CONCENTRATORS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(247,"DIAB",3,0,2100,12)="039-3;""(039) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(247,"DIAB",3,0,2100,13)="042-3;""(042) OXYGEN CONCENTRATORS - A&A PATIENTS"""
^DIE(247,"DIAB",3,0,2100,14)="045-4;""(045) MEDICAL EQUIP, ALL OTHER - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DIAB",3,0,2100,15)="048-4;""(048) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(247,"DIAB",3,0,2100,16)="051-4;""(051) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(247,"DIAB",3,0,2100,17)="054-3;""(054) MEDICAL EQUIP, ALL OTHER - POST HOSPITAL CARE PATIENTS"""
^DIE(247,"DIAB",3,0,2100,18)="057-5;""(057) CUSHION WHEELCHAIR - NUMBER ITEMS - COMMERCIAL"""
^DIE(247,"DIAB",3,0,2100,19)="060-3;""(060) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(247,"DIAB",3,0,2100,20)="063-3;""(063) CUSHION WHEELCHAIR - SPECIAL LEGISLATION PATIENTS"""
^DIE(247,"DIAB",3,0,2100,21)="066-3;""(066) CUSHION WHEELCHAIR - NUMBER NEW CASES"""
^DIE(247,"DIAB",4,0,2100,7)="023-4;""(023) OXYGEN EQUIP - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DIAB",4,0,2100,10)="033-3;""(033) OXYGEN EQUIP - NUMBER NEW CASES"""
^DIE(247,"DIAB",9,0,2100,0)="001-4;""(001) ENVIRONMENTAL CONTROLS - NUMBER ITEMS - VA SOURCES"""
^DIE(247,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) ENVIRONMENTAL CONTROLS - NUMBER ITEMS - VA SOURCES~;"
^DIE(247,"DR",1,2100,1)="55.002(002) ENVIRONMENTAL CONTROLS - NUMBER ITEMS - COMMERCIAL~;56.003(003) ENVIRONMENTAL CONTROLS - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(247,"DR",1,2100,2)="53.005(005) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.006(006) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(247,"DR",1,2100,3)="53.008(008) ENVIRONMENTAL CONTROLS - SPECIAL LEGISLATION PATIENTS~;53.009(009) ENVIRONMENTAL CONTROLS - A&A PATIENTS~;53.01(010) ENVIRONMENTAL CONTROLS - POST HOSPITAL CARE PATIENTS~;"
^DIE(247,"DR",1,2100,4)="53.011(011) ENVIRONMENTAL CONTROLS - NUMBER NEW CASES~;54.012(012) SPECIAL HOME EQUIP - NUMBER ITEMS - VA SOURCES~;55.013(013) SPECIAL HOME EQUIP - NUMBER ITEMS - COMMERCIAL~;"
^DIE(247,"DR",1,2100,5)="56.014(014) SPECIAL HOME EQUIP - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.016(016) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(247,"DR",1,2100,6)="53.017(017) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - SC INPATIENT~;54.018(018) SPECIAL HOME EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT~;53.019(019) SPECIAL HOME EQUIP - SPECIAL LEGISLATION PATIENTS~;"
^DIE(247,"DR",1,2100,7)="53.02(020) SPECIAL HOME EQUIP - A&A PATIENTS~;53.021(021) SPECIAL HOME EQUIP - POST HOSPITAL CARE PATIENTS~;53.022(022) SPECIAL HOME EQUIP - NUMBER NEW CASES~;54.023(023) OXYGEN EQUIP - NUMBER ITEMS - VA SOURCES~;"
^DIE(247,"DR",1,2100,8)="55.024(024) OXYGEN EQUIP - NUMBER ITEMS - COMMERCIAL~;56.025(025) OXYGEN EQUIP - BUDGETED TOTAL COST (DOLLARS)~;54.026(026) OXYGEN EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(247,"DR",1,2100,9)="53.027(027) OXYGEN EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) OXYGEN EQUIP - NUMBER DISAB. SERVED - SC INPATIENT~;54.029(029) OXYGEN EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(247,"DR",1,2100,10)="53.03(030) OXYGEN EQUIP - SPECIAL LEGISLATION PATIENTS~;53.031(031) OXYGEN EQUIP - A&A PATIENTS~;53.032(032) OXYGEN EQUIP - POST HOSPITAL CARE PATIENTS~;53.033(033) OXYGEN EQUIP - NUMBER NEW CASES~;"
^DIE(247,"DR",1,2100,11)="54.034(034) OXYGEN CONCENTRATORS - NUMBER ITEMS - VA SOURCES~;55.035(035) OXYGEN CONCENTRATORS - NUMBER ITEMS - COMMERCIAL~;56.036(036) OXYGEN CONCENTRATORS - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(247,"DR",1,2100,12)="54.037(037) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(247,"DR",1,2100,13)="54.04(040) OXYGEN CONCENTRATORS - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) OXYGEN CONCENTRATORS - SPECIAL LEGISLATION PATIENTS~;53.042(042) OXYGEN CONCENTRATORS - A&A PATIENTS~;"
^DIE(247,"DR",1,2100,14)="53.043(043) OXYGEN CONCENTRATORS - POST HOSPITAL CARE PATIENTS~;53.044(044) OXYGEN CONCENTRATORS - NUMBER NEW CASES~;54.045(045) MEDICAL EQUIP, ALL OTHER - NUMBER ITEMS - VA SOURCES~;"
^DIE(247,"DR",1,2100,15)="55.046(046) MEDICAL EQUIP, ALL OTHER - NUMBER ITEMS - COMMERCIAL~;56.047(047) MEDICAL EQUIP, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)~;54.048(048) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(247,"DR",1,2100,16)="53.049(049) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.05(050) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT~;54.051(051) MEDICAL EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(247,"DR",1,2100,17)="53.052(052) MEDICAL EQUIP, ALL OTHER - SPECIAL LEGISLATION PATIENTS~;53.053(053) MEDICAL EQUIP, ALL OTHER - A&A PATIENTS~;53.054(054) MEDICAL EQUIP, ALL OTHER - POST HOSPITAL CARE PATIENTS~;"
^DIE(247,"DR",1,2100,18)="53.055(055) MEDICAL EQUIP, ALL OTHER - NUMBER NEW CASES~;54.056(056) CUSHION WHEELCHAIR - NUMBER ITEMS - VA SOURCES~;55.057(057) CUSHION WHEELCHAIR - NUMBER ITEMS - COMMERCIAL~;"
^DIE(247,"DR",1,2100,19)="56.058(058) CUSHION WHEELCHAIR - BUDGETED TOTAL COST (DOLLARS)~;54.059(059) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.06(060) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(247,"DR",1,2100,20)="53.061(061) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - SC INPATIENT~;54.062(062) CUSHION WHEELCHAIR - NUMBER DISAB. SERVED - NSC INPATIENT~;53.063(063) CUSHION WHEELCHAIR - SPECIAL LEGISLATION PATIENTS~;"
^DIE(247,"DR",1,2100,21)="53.064(064) CUSHION WHEELCHAIR - A&A PATIENTS~;53.065(065) CUSHION WHEELCHAIR - POST HOSPITAL CARE PATIENTS~;53.066(066) CUSHION WHEELCHAIR - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(248,0)="RMPR AMS5 AMIS 127^2900918.1946^^2100^0^^2931004"
^DIE(248,"DIAB",1,0,2100,1)="002-5;""(002) HOME DIALYSIS SUPPLIES - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",1,0,2100,2)="005-3;""(005) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",1,0,2100,3)="008-3;""(008) HOME DIALYSIS SUPPLIES - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",1,0,2100,4)="011-3;""(011) HOME DIALYSIS SUPPLIES - NUMBER NEW CASES"""
^DIE(248,"DIAB",1,0,2100,5)="014-6;""(014) MEDICAL SUPPLIES, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",1,0,2100,6)="016-3;""(016) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",1,0,2100,7)="018-4;""(018) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",1,0,2100,8)="021-3;""(021) MEDICAL SUPPLIES, ALL OTHER - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",1,0,2100,9)="024-5;""(024) ARCH SUPPORTS, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",1,0,2100,10)="027-3;""(027) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",1,0,2100,11)="030-3;""(030) ARCH SUPPORTS, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",1,0,2100,12)="034-4;""(034) SHOE, INLAY, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DIAB",1,0,2100,13)="037-4;""(037) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",1,0,2100,14)="040-4;""(040) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",1,0,2100,15)="043-3;""(043) SHOE, INLAY, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",1,0,2100,16)="047-6;""(047) SHOE, MOLDED, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",1,0,2100,17)="050-3;""(050) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",1,0,2100,18)="053-3;""(053) SHOE, MOLDED, EACH - A&A PATIENTS"""
^DIE(248,"DIAB",1,0,2100,19)="057-5;""(057) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",1,0,2100,20)="060-3;""(060) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",1,0,2100,21)="062-4;""(062) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",1,0,2100,22)="065-3;""(065) SHOE, ORTHOPEDIC, OTHER, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",2,0,2100,1)="003-6;""(003) HOME DIALYSIS SUPPLIES - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",2,0,2100,2)="006-3;""(006) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",2,0,2100,3)="009-3;""(009) HOME DIALYSIS SUPPLIES - A&A PATIENTS"""
^DIE(248,"DIAB",2,0,2100,4)="012-4;""(012) MEDICAL SUPPLIES, ALL OTHER - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DIAB",2,0,2100,5)="015-4;""(015) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",2,0,2100,6)="017-3;""(017) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",2,0,2100,7)="019-3;""(019) MEDICAL SUPPLIES, ALL OTHER - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",2,0,2100,8)="022-3;""(022) MEDICAL SUPPLIES, ALL OTHER - NUMBER NEW CASES"""
^DIE(248,"DIAB",2,0,2100,9)="025-6;""(025) ARCH SUPPORTS, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",2,0,2100,10)="028-3;""(028) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",2,0,2100,11)="031-3;""(031) ARCH SUPPORTS, EACH - A&A PATIENTS"""
^DIE(248,"DIAB",2,0,2100,12)="035-5;""(035) SHOE, INLAY, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",2,0,2100,13)="038-3;""(038) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",2,0,2100,14)="041-3;""(041) SHOE, INLAY, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",2,0,2100,15)="044-3;""(044) SHOE, INLAY, EACH - NUMBER NEW CASES"""
^DIE(248,"DIAB",2,0,2100,16)="048-4;""(048) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",2,0,2100,17)="051-4;""(051) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",2,0,2100,18)="054-3;""(054) SHOE, MOLDED, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",2,0,2100,19)="058-6;""(058) SHOE, ORTHOPEDIC, OTHER, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",2,0,2100,20)="061-3;""(061) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",2,0,2100,21)="063-3;""(063) SHOE, ORTHOPEDIC, OTHER, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",2,0,2100,22)="066-3;""(066) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER NEW CASES"""
^DIE(248,"DIAB",3,0,2100,1)="004-4;""(004) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",3,0,2100,2)="007-4;""(007) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",3,0,2100,3)="010-3;""(010) HOME DIALYSIS SUPPLIES - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",3,0,2100,4)="013-5;""(013) MEDICAL SUPPLIES, ALL OTHER - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",3,0,2100,7)="020-3;""(020) MEDICAL SUPPLIES, ALL OTHER - A&A PATIENTS"""
^DIE(248,"DIAB",3,0,2100,8)="023-4;""(023) ARCH SUPPORTS, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DIAB",3,0,2100,9)="026-4;""(026) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",3,0,2100,10)="029-4;""(029) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(248,"DIAB",3,0,2100,11)="032-3;""(032) ARCH SUPPORTS, EACH - POST HOSPITAL CARE PATIENTS"""
^DIE(248,"DIAB",3,0,2100,12)="036-6;""(036) SHOE, INLAY, EACH - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(248,"DIAB",3,0,2100,13)="039-3;""(039) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(248,"DIAB",3,0,2100,14)="042-3;""(042) SHOE, INLAY, EACH - A&A PATIENTS"""
^DIE(248,"DIAB",3,0,2100,15)="045-4;""(045) SHOE, MOLDED, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DIAB",3,0,2100,16)="049-3;""(049) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(248,"DIAB",3,0,2100,17)="052-3;""(052) SHOE, MOLDED, EACH - SPECIAL LEGISLATION PATIENTS"""
^DIE(248,"DIAB",3,0,2100,18)="055-3;""(055) SHOE, MOLDED, EACH - NUMBER NEW CASES"""
^DIE(248,"DIAB",3,0,2100,19)="059-4;""(059) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(248,"DIAB",3,0,2100,21)="064-3;""(064) SHOE, ORTHOPEDIC, OTHER, EACH - A&A PATIENTS"""
^DIE(248,"DIAB",4,0,2100,11)="033-3;""(033) ARCH SUPPORTS, EACH - NUMBER NEW CASES"""
^DIE(248,"DIAB",4,0,2100,15)="046-5;""(046) SHOE, MOLDED, EACH - NUMBER ITEMS - COMMERCIAL"""
^DIE(248,"DIAB",4,0,2100,18)="056-4;""(056) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DIAB",9,0,2100,0)="001-4;""(001) HOME DIALYSIS SUPPLIES - NUMBER ITEMS - VA SOURCES"""
^DIE(248,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) HOME DIALYSIS SUPPLIES - NUMBER ITEMS - VA SOURCES~;"
^DIE(248,"DR",1,2100,1)="55.002(002) HOME DIALYSIS SUPPLIES - NUMBER ITEMS - COMMERCIAL~;56.003(003) HOME DIALYSIS SUPPLIES - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(248,"DR",1,2100,2)="53.005(005) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.006(006) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) HOME DIALYSIS SUPPLIES - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(248,"DR",1,2100,3)="53.008(008) HOME DIALYSIS SUPPLIES - SPECIAL LEGISLATION PATIENTS~;53.009(009) HOME DIALYSIS SUPPLIES - A&A PATIENTS~;53.01(010) HOME DIALYSIS SUPPLIES - POST HOSPITAL CARE PATIENTS~;"
^DIE(248,"DR",1,2100,4)="53.011(011) HOME DIALYSIS SUPPLIES - NUMBER NEW CASES~;54.012(012) MEDICAL SUPPLIES, ALL OTHER - NUMBER ITEMS - VA SOURCES~;55.013(013) MEDICAL SUPPLIES, ALL OTHER - NUMBER ITEMS - COMMERCIAL~;"
^DIE(248,"DR",1,2100,5)="56.014(014) MEDICAL SUPPLIES, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(248,"DR",1,2100,6)="53.016(016) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.017(017) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(248,"DR",1,2100,7)="54.018(018) MEDICAL SUPPLIES, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT~;53.019(019) MEDICAL SUPPLIES, ALL OTHER - SPECIAL LEGISLATION PATIENTS~;53.02(020) MEDICAL SUPPLIES, ALL OTHER - A&A PATIENTS~;"
^DIE(248,"DR",1,2100,8)="53.021(021) MEDICAL SUPPLIES, ALL OTHER - POST HOSPITAL CARE PATIENTS~;53.022(022) MEDICAL SUPPLIES, ALL OTHER - NUMBER NEW CASES~;54.023(023) ARCH SUPPORTS, EACH - NUMBER ITEMS - VA SOURCES~;"
^DIE(248,"DR",1,2100,9)="55.024(024) ARCH SUPPORTS, EACH - NUMBER ITEMS - COMMERCIAL~;56.025(025) ARCH SUPPORTS, EACH - BUDGETED TOTAL COST (DOLLARS)~;54.026(026) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(248,"DR",1,2100,10)="53.027(027) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;54.029(029) ARCH SUPPORTS, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(248,"DR",1,2100,11)="53.03(030) ARCH SUPPORTS, EACH - SPECIAL LEGISLATION PATIENTS~;53.031(031) ARCH SUPPORTS, EACH - A&A PATIENTS~;53.032(032) ARCH SUPPORTS, EACH - POST HOSPITAL CARE PATIENTS~;53.033(033) ARCH SUPPORTS, EACH - NUMBER NEW CASES~;"
^DIE(248,"DR",1,2100,12)="54.034(034) SHOE, INLAY, EACH - NUMBER ITEMS - VA SOURCES~;55.035(035) SHOE, INLAY, EACH - NUMBER ITEMS - COMMERCIAL~;56.036(036) SHOE, INLAY, EACH - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(248,"DR",1,2100,13)="54.037(037) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(248,"DR",1,2100,14)="54.04(040) SHOE, INLAY, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) SHOE, INLAY, EACH - SPECIAL LEGISLATION PATIENTS~;53.042(042) SHOE, INLAY, EACH - A&A PATIENTS~;"
^DIE(248,"DR",1,2100,15)="53.043(043) SHOE, INLAY, EACH - POST HOSPITAL CARE PATIENTS~;53.044(044) SHOE, INLAY, EACH - NUMBER NEW CASES~;54.045(045) SHOE, MOLDED, EACH - NUMBER ITEMS - VA SOURCES~;55.046(046) SHOE, MOLDED, EACH - NUMBER ITEMS - COMMERCIAL~;"
^DIE(248,"DR",1,2100,16)="56.047(047) SHOE, MOLDED, EACH - BUDGETED TOTAL COST (DOLLARS)~;54.048(048) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.049(049) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(248,"DR",1,2100,17)="53.05(050) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;54.051(051) SHOE, MOLDED, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.052(052) SHOE, MOLDED, EACH - SPECIAL LEGISLATION PATIENTS~;"
^DIE(248,"DR",1,2100,18)="53.053(053) SHOE, MOLDED, EACH - A&A PATIENTS~;53.054(054) SHOE, MOLDED, EACH - POST HOSPITAL CARE PATIENTS~;53.055(055) SHOE, MOLDED, EACH - NUMBER NEW CASES~;54.056(056) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER ITEMS - VA SOURCES~;"
^DIE(248,"DR",1,2100,19)="55.057(057) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER ITEMS - COMMERCIAL~;56.058(058) SHOE, ORTHOPEDIC, OTHER, EACH - BUDGETED TOTAL COST (DOLLARS)~;54.059(059) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(248,"DR",1,2100,20)="53.06(060) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.061(061) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(248,"DR",1,2100,21)="54.062(062) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER DISAB. SERVED - NSC INPATIENT~;53.063(063) SHOE, ORTHOPEDIC, OTHER, EACH - SPECIAL LEGISLATION PATIENTS~;53.064(064) SHOE, ORTHOPEDIC, OTHER, EACH - A&A PATIENTS~;"
^DIE(248,"DR",1,2100,22)="53.065(065) SHOE, ORTHOPEDIC, OTHER, EACH - POST HOSPITAL CARE PATIENTS~;53.066(066) SHOE, ORTHOPEDIC, OTHER, EACH - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(249,0)="RMPR AMS5 AMIS 128^2900918.195^^2100^0^^2931004"
^DIE(249,"DIAB",1,0,2100,1)="002-5;""(002) WHEELCHAIR, FOLDING, DEPOT - NUMBER ITEMS - COMMERCIAL"""
^DIE(249,"DIAB",1,0,2100,2)="005-3;""(005) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(249,"DIAB",1,0,2100,3)="007-4;""(007) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(249,"DIAB",1,0,2100,4)="010-3;""(010) WHEELCHAIR, FOLDING, DEPOT - POST HOSPITAL CARE PATIENTS"""
^DIE(249,"DIAB",1,0,2100,5)="013-5;""(013) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER ITEMS - COMMERCIAL"""
^DIE(249,"DIAB",1,0,2100,6)="016-3;""(016) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(249,"DIAB",1,0,2100,7)="018-4;""(018) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(249,"DIAB",1,0,2100,8)="021-3;""(021) WHEELCHAIR, FOLDING, ALL OTHER - POST HOSPITAL CARE PATIENTS"""
^DIE(249,"DIAB",1,0,2100,9)="024-5;""(024) WHEELCHAIR, MOTORIZED - NUMBER ITEMS - COMMERCIAL"""
^DIE(249,"DIAB",1,0,2100,10)="027-3;""(027) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(249,"DIAB",1,0,2100,11)="030-3;""(030) WHEELCHAIR, MOTORIZED - SPECIAL LEGISLATION PATIENTS"""
^DIE(249,"DIAB",1,0,2100,12)="033-3;""(033) WHEELCHAIR, MOTORIZED - NUMBER NEW CASES"""
^DIE(249,"DIAB",1,0,2100,13)="037-4;""(037) EQUIP RENTALS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(249,"DIAB",1,0,2100,14)="040-4;""(040) EQUIP RENTALS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(249,"DIAB",1,0,2100,15)="044-3;""(044) EQUIP RENTALS - NUMBER NEW CASES"""
^DIE(249,"DIAB",1,0,2100,16)="048-4;""(048) ALL OTHER ITEMS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(249,"DIAB",1,0,2100,17)="051-4;""(051) ALL OTHER ITEMS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(249,"DIAB",1,0,2100,18)="055-3;""(055) ALL OTHER ITEMS - NUMBER NEW CASES"""
^DIE(249,"DIAB",2,0,2100,1)="003-6;""(003) WHEELCHAIR, FOLDING, DEPOT - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(249,"DIAB",2,0,2100,2)="006-3;""(006) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(249,"DIAB",2,0,2100,3)="008-3;""(008) WHEELCHAIR, FOLDING, DEPOT - SPECIAL LEGISLATION PATIENTS"""
^DIE(249,"DIAB",2,0,2100,4)="011-3;""(011) WHEELCHAIR, FOLDING, DEPOT - NUMBER NEW CASES"""
^DIE(249,"DIAB",2,0,2100,5)="014-6;""(014) WHEELCHAIR, FOLDING, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(249,"DIAB",2,0,2100,6)="017-3;""(017) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(249,"DIAB",2,0,2100,7)="019-3;""(019) WHEELCHAIR, FOLDING, ALL OTHER - SPECIAL LEGISLATION PATIENTS"""
^DIE(249,"DIAB",2,0,2100,8)="022-3;""(022) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER NEW CASES"""
^DIE(249,"DIAB",2,0,2100,9)="025-6;""(025) WHEELCHAIR, MOTORIZED - BUDGETED TOTAL DOLLARS"""
^DIE(249,"DIAB",2,0,2100,10)="028-3;""(028) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(249,"DIAB",2,0,2100,11)="031-3;""(031) WHEELCHAIR, MOTORIZED - A&A PATIENTS"""
^DIE(249,"DIAB",2,0,2100,12)="034-4;""(034) EQUIP RENTALS - NUMBER ITEMS - VA SOURCES"""
^DIE(249,"DIAB",2,0,2100,13)="038-3;""(038) EQUIP RENTALS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(249,"DIAB",2,0,2100,14)="041-3;""(041) EQUIP RENTALS - SPECIAL LEGISLATION PATIENTS"""
^DIE(249,"DIAB",2,0,2100,15)="045-4;""(045) ALL OTHER ITEMS - NUMBER ITEMS - VA SOURCES"""
^DIE(249,"DIAB",2,0,2100,16)="049-3;""(049) ALL OTHER ITEMS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(249,"DIAB",2,0,2100,17)="052-3;""(052) ALL OTHER ITEMS - SPECIAL LEGISLATION PATIENTS"""
^DIE(249,"DIAB",3,0,2100,1)="004-4;""(004) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(249,"DIAB",3,0,2100,3)="009-3;""(009) WHEELCHAIR, FOLDING, DEPOT - A&A PATIENTS"""
^DIE(249,"DIAB",3,0,2100,4)="012-4;""(012) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER ITEMS - VA SOURCES"""
^DIE(249,"DIAB",3,0,2100,5)="015-4;""(015) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(249,"DIAB",3,0,2100,7)="020-3;""(020) WHEELCHAIR, FOLDING, ALL OTHER - A&A PATIENTS"""
^DIE(249,"DIAB",3,0,2100,8)="023-4;""(023) WHEELCHAIR, MOTORIZED - NUMBER ITEMS - VA SOURCES"""
^DIE(249,"DIAB",3,0,2100,9)="026-4;""(026) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(249,"DIAB",3,0,2100,10)="029-4;""(029) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(249,"DIAB",3,0,2100,11)="032-3;""(032) WHEELCHAIR, MOTORIZED - POST HOSPITAL CARE PATIENTS"""
^DIE(249,"DIAB",3,0,2100,12)="035-5;""(035) EQUIP RENTALS - NUMBER ITEMS - COMMERCIAL"""
^DIE(249,"DIAB",3,0,2100,13)="039-3;""(039) EQUIP RENTALS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(249,"DIAB",3,0,2100,14)="042-3;""(042) EQUIP RENTALS - A&A PATIENTS"""
^DIE(249,"DIAB",3,0,2100,15)="046-5;""(046) ALL OTHER ITEMS - NUMBER ITEMS - COMMERCIAL"""
^DIE(249,"DIAB",3,0,2100,16)="050-3;""(050) ALL OTHER ITEMS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(249,"DIAB",3,0,2100,17)="053-3;""(053) ALL OTHER ITEMS - A&A PATIENTS"""
^DIE(249,"DIAB",4,0,2100,12)="036-6;""(036) EQUIP RENTALS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(249,"DIAB",4,0,2100,14)="043-3;""(043) EQUIP RENTALS - POST HOSPITAL CARE PATIENTS"""
^DIE(249,"DIAB",4,0,2100,15)="047-6;""(047) ALL OTHER ITEMS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(249,"DIAB",4,0,2100,17)="054-3;""(054) ALL OTHER ITEMS - POST HOSPITAL CARE PATIENTS"""
^DIE(249,"DIAB",9,0,2100,0)="001-4;""(001) WHEELCHAIR, FOLDING, DEPOT - NUMBER ITEMS - VA SOURCES"""
^DIE(249,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) WHEELCHAIR, FOLDING, DEPOT - NUMBER ITEMS - VA SOURCES~;"
^DIE(249,"DR",1,2100,1)="55.002(002) WHEELCHAIR, FOLDING, DEPOT - NUMBER ITEMS - COMMERCIAL~;56.003(003) WHEELCHAIR, FOLDING, DEPOT - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(249,"DR",1,2100,2)="53.005(005) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.006(006) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(249,"DR",1,2100,3)="54.007(007) WHEELCHAIR, FOLDING, DEPOT - NUMBER DISAB. SERVED - NSC INPATIENT~;53.008(008) WHEELCHAIR, FOLDING, DEPOT - SPECIAL LEGISLATION PATIENTS~;53.009(009) WHEELCHAIR, FOLDING, DEPOT - A&A PATIENTS~;"
^DIE(249,"DR",1,2100,4)="53.01(010) WHEELCHAIR, FOLDING, DEPOT - POST HOSPITAL CARE PATIENTS~;53.011(011) WHEELCHAIR, FOLDING, DEPOT - NUMBER NEW CASES~;54.012(012) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER ITEMS - VA SOURCES~;"
^DIE(249,"DR",1,2100,5)="55.013(013) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER ITEMS - COMMERCIAL~;56.014(014) WHEELCHAIR, FOLDING, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(249,"DR",1,2100,6)="53.016(016) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.017(017) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(249,"DR",1,2100,7)="54.018(018) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT~;53.019(019) WHEELCHAIR, FOLDING, ALL OTHER - SPECIAL LEGISLATION PATIENTS~;53.02(020) WHEELCHAIR, FOLDING, ALL OTHER - A&A PATIENTS~;"
^DIE(249,"DR",1,2100,8)="53.021(021) WHEELCHAIR, FOLDING, ALL OTHER - POST HOSPITAL CARE PATIENTS~;53.022(022) WHEELCHAIR, FOLDING, ALL OTHER - NUMBER NEW CASES~;54.023(023) WHEELCHAIR, MOTORIZED - NUMBER ITEMS - VA SOURCES~;"
^DIE(249,"DR",1,2100,9)="55.024(024) WHEELCHAIR, MOTORIZED - NUMBER ITEMS - COMMERCIAL~;56.025(025) WHEELCHAIR, MOTORIZED - BUDGETED TOTAL DOLLARS~;54.026(026) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(249,"DR",1,2100,10)="53.027(027) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.028(028) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - SC INPATIENT~;54.029(029) WHEELCHAIR, MOTORIZED - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(249,"DR",1,2100,11)="53.03(030) WHEELCHAIR, MOTORIZED - SPECIAL LEGISLATION PATIENTS~;53.031(031) WHEELCHAIR, MOTORIZED - A&A PATIENTS~;53.032(032) WHEELCHAIR, MOTORIZED - POST HOSPITAL CARE PATIENTS~;"
^DIE(249,"DR",1,2100,12)="53.033(033) WHEELCHAIR, MOTORIZED - NUMBER NEW CASES~;54.034(034) EQUIP RENTALS - NUMBER ITEMS - VA SOURCES~;55.035(035) EQUIP RENTALS - NUMBER ITEMS - COMMERCIAL~;56.036(036) EQUIP RENTALS - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(249,"DR",1,2100,13)="54.037(037) EQUIP RENTALS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.038(038) EQUIP RENTALS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.039(039) EQUIP RENTALS - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(249,"DR",1,2100,14)="54.04(040) EQUIP RENTALS - NUMBER DISAB. SERVED - NSC INPATIENT~;53.041(041) EQUIP RENTALS - SPECIAL LEGISLATION PATIENTS~;53.042(042) EQUIP RENTALS - A&A PATIENTS~;53.043(043) EQUIP RENTALS - POST HOSPITAL CARE PATIENTS~;"
^DIE(249,"DR",1,2100,15)="53.044(044) EQUIP RENTALS - NUMBER NEW CASES~;54.045(045) ALL OTHER ITEMS - NUMBER ITEMS - VA SOURCES~;55.046(046) ALL OTHER ITEMS - NUMBER ITEMS - COMMERCIAL~;56.047(047) ALL OTHER ITEMS - BUDGETED TOTAL COST (DOLLARS)~;"
^DIE(249,"DR",1,2100,16)="54.048(048) ALL OTHER ITEMS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.049(049) ALL OTHER ITEMS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.05(050) ALL OTHER ITEMS - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(249,"DR",1,2100,17)="54.051(051) ALL OTHER ITEMS - NUMBER DISAB. SERVED - NSC INPATIENT~;53.052(052) ALL OTHER ITEMS - SPECIAL LEGISLATION PATIENTS~;53.053(053) ALL OTHER ITEMS - A&A PATIENTS~;53.054(054) ALL OTHER ITEMS - POST HOSPITAL CARE PATIENTS~;"
^DIE(249,"DR",1,2100,18)="53.055(055) ALL OTHER ITEMS - NUMBER NEW CASES~;99///^S X=""$"";"
^DIE(250,0)="RMPR AMS5 AMIS 129^2900918.1956^^2100^0^^2931004"
^DIE(250,"DIAB",1,0,2100,1)="003-4;""(003) AID FOR BLIND - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",1,0,2100,2)="006-6;""(006) AID FOR BLIND - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",1,0,2100,3)="009-3;""(009) AID FOR BLIND - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,4)="013-4;""(013) ARTIFICIAL ARM, TOTAL - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",1,0,2100,5)="016-6;""(016) ARTIFICIAL ARM, TOTAL - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",1,0,2100,6)="019-3;""(019) ARTIFICIAL ARM, TOTAL - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,7)="022-6;""(022) ARTIFICIAL, LEG ABOVE KNEE - COST REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",1,0,2100,8)="025-3;""(025) ARTIFICIAL, LEG ABOVE KNEE - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",1,0,2100,9)="028-4;""(028) ARTIFICIAL, LEG ABOVE KNEE - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,10)="031-4;""(031) ARTIFICIAL, LEG BELOW KNEE, PTB - NUMBER REPAIRS"""
^DIE(250,"DIAB",1,0,2100,11)="034-3;""(034) ARTIFICIAL, LEG BELOW KNEE, PTB - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",1,0,2100,12)="037-4;""(037) ARTIFICIAL, LEG BELOW KNEE, PTB - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,13)="040-3;""(040) ARTIFICIAL, LEG BELOW KNEE, PTB - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,14)="043-4;""(043) ARTIFICIAL, LEG BELOW KNEE, STD - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",1,0,2100,15)="046-6;""(046) ARTIFICIAL, LEG BELOW KNEE, STD - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",1,0,2100,16)="048-4;""(048) ARTIFICIAL, LEG BELOW KNEE, STD - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,17)="051-4;""(051) ARTIFICIAL, LEG ALL OTHER - NUMBER REPAIRS"""
^DIE(250,"DIAB",1,0,2100,18)="054-3;""(054) ARTIFICIAL, LEG ALL OTHER - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",1,0,2100,19)="057-4;""(057) ARTIFICIAL, LEG ALL OTHER - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",1,0,2100,20)="060-3;""(060) ARTIFICIAL, LEG ALL OTHER - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,1)="004-3;""(004) AID FOR BLIND - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",2,0,2100,2)="007-4;""(007) AID FOR BLIND - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,3)="010-3;""(010) AID FOR BLIND - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,4)="014-3;""(014) ARTIFICIAL ARM, TOTAL - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",2,0,2100,5)="017-4;""(017) ARTIFICIAL ARM, TOTAL - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,6)="020-3;""(020) ARTIFICIAL ARM, TOTAL - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,7)="023-4;""(023) ARTIFICIAL, LEG ABOVE KNEE - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",2,0,2100,8)="026-6;""(026) ARTIFICIAL, LEG ABOVE KNEE - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",2,0,2100,9)="029-3;""(029) ARTIFICIAL, LEG ABOVE KNEE - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,10)="032-6;""(032) ARTIFICIAL, LEG BELOW KNEE, PTB - COST REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",2,0,2100,11)="035-3;""(035) ARTIFICIAL, LEG BELOW KNEE, PTB - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",2,0,2100,12)="038-4;""(038) ARTIFICIAL, LEG BELOW KNEE, PTB - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,13)="041-4;""(041) ARTIFICIAL, LEG BELOW KNEE, STD - NUMBER REPAIRS"""
^DIE(250,"DIAB",2,0,2100,14)="044-3;""(044) ARTIFICIAL, LEG BELOW KNEE, STD - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",2,0,2100,15)="047-4;""(047) ARTIFICIAL, LEG BELOW KNEE, STD - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,16)="049-3;""(049) ARTIFICIAL, LEG BELOW KNEE, STD - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",2,0,2100,17)="052-6;""(052) ARTIFICIAL, LEG ALL OTHER - COST REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",2,0,2100,18)="055-3;""(055) ARTIFICIAL, LEG ALL OTHER - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",2,0,2100,19)="058-4;""(058) ARTIFICIAL, LEG ALL OTHER - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,1)="005-3;""(005) AID FOR BLIND - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",3,0,2100,2)="008-4;""(008) AID FOR BLIND - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,3)="011-4;""(011) ARTIFICIAL ARM, TOTAL - NUMBER REPAIRS"""
^DIE(250,"DIAB",3,0,2100,4)="015-3;""(015) ARTIFICIAL ARM, TOTAL - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",3,0,2100,5)="018-4;""(018) ARTIFICIAL ARM, TOTAL - NSC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,6)="021-4;""(021) ARTIFICIAL, LEG ABOVE KNEE - NUMBER REPAIRS"""
^DIE(250,"DIAB",3,0,2100,7)="024-3;""(024) ARTIFICIAL, LEG ABOVE KNEE - VA FORM 10-2421 REPAIRS"""
^DIE(250,"DIAB",3,0,2100,8)="027-4;""(027) ARTIFICIAL, LEG ABOVE KNEE - SC OUTPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,9)="030-3;""(030) ARTIFICIAL, LEG ABOVE KNEE - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,10)="033-4;""(033) ARTIFICIAL, LEG BELOW KNEE, PTB - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",3,0,2100,11)="036-6;""(036) ARTIFICIAL, LEG BELOW KNEE, PTB - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",3,0,2100,12)="039-3;""(039) ARTIFICIAL, LEG BELOW KNEE, PTB - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,13)="042-6;""(042) ARTIFICIAL, LEG BELOW KNEE, STD - COST REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",3,0,2100,14)="045-3;""(045) ARTIFICIAL, LEG BELOW KNEE, STD - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(250,"DIAB",3,0,2100,16)="050-3;""(050) ARTIFICIAL, LEG BELOW KNEE, STD - NSC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",3,0,2100,17)="053-4;""(053) ARTIFICIAL, LEG ALL OTHER - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(250,"DIAB",3,0,2100,18)="056-6;""(056) ARTIFICIAL, LEG ALL OTHER - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",3,0,2100,19)="059-3;""(059) ARTIFICIAL, LEG ALL OTHER - SC INPATIENT DISAB. SERVED"""
^DIE(250,"DIAB",4,0,2100,3)="012-6;""(012) ARTIFICIAL ARM, TOTAL - COST REPAIRS (DOLLARS)"""
^DIE(250,"DIAB",9,0,2100,0)="001-4;""(001) AID FOR BLIND - NUMBER REPAIRS"""
^DIE(250,"DIAB",10,0,2100,0)="002-6;""(002) AID FOR BLIND - COST REPAIRS (DOLLARS)"""
^DIE(250,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) AID FOR BLIND - NUMBER REPAIRS~;56.002(002) AID FOR BLIND - COST REPAIRS (DOLLARS)~;"
^DIE(250,"DR",1,2100,1)="54.003(003) AID FOR BLIND - NUMBER REPAIRS THROUGH VA SOURCES~;53.004(004) AID FOR BLIND - VA FORM 10-2421 REPAIRS~;53.005(005) AID FOR BLIND - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(250,"DR",1,2100,2)="56.006(006) AID FOR BLIND - COST COMMERCIAL REPAIRS (DOLLARS)~;54.007(007) AID FOR BLIND - SC OUTPATIENT DISAB. SERVED~;54.008(008) AID FOR BLIND - NSC OUTPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,3)="53.009(009) AID FOR BLIND - SC INPATIENT DISAB. SERVED~;53.01(010) AID FOR BLIND - NSC INPATIENT DISAB. SERVED~;54.011(011) ARTIFICIAL ARM, TOTAL - NUMBER REPAIRS~;56.012(012) ARTIFICIAL ARM, TOTAL - COST REPAIRS (DOLLARS)~;"
^DIE(250,"DR",1,2100,4)="54.013(013) ARTIFICIAL ARM, TOTAL - NUMBER REPAIRS THROUGH VA SOURCES~;53.014(014) ARTIFICIAL ARM, TOTAL - VA FORM 10-2421 REPAIRS~;53.015(015) ARTIFICIAL ARM, TOTAL - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(250,"DR",1,2100,5)="56.016(016) ARTIFICIAL ARM, TOTAL - COST COMMERCIAL REPAIRS (DOLLARS)~;54.017(017) ARTIFICIAL ARM, TOTAL - SC OUTPATIENT DISAB. SERVED~;54.018(018) ARTIFICIAL ARM, TOTAL - NSC OUTPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,6)="53.019(019) ARTIFICIAL ARM, TOTAL - SC INPATIENT DISAB. SERVED~;53.02(020) ARTIFICIAL ARM, TOTAL - NSC INPATIENT DISAB. SERVED~;54.021(021) ARTIFICIAL, LEG ABOVE KNEE - NUMBER REPAIRS~;"
^DIE(250,"DR",1,2100,7)="56.022(022) ARTIFICIAL, LEG ABOVE KNEE - COST REPAIRS (DOLLARS)~;54.023(023) ARTIFICIAL, LEG ABOVE KNEE - NUMBER REPAIRS THROUGH VA SOURCES~;53.024(024) ARTIFICIAL, LEG ABOVE KNEE - VA FORM 10-2421 REPAIRS~;"
^DIE(250,"DR",1,2100,8)="53.025(025) ARTIFICIAL, LEG ABOVE KNEE - ALL OTHER COMMERCIAL REPAIRS~;56.026(026) ARTIFICIAL, LEG ABOVE KNEE - COST COMMERCIAL REPAIRS (DOLLARS)~;54.027(027) ARTIFICIAL, LEG ABOVE KNEE - SC OUTPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,9)="54.028(028) ARTIFICIAL, LEG ABOVE KNEE - NSC OUTPATIENT DISAB. SERVED~;53.029(029) ARTIFICIAL, LEG ABOVE KNEE - SC INPATIENT DISAB. SERVED~;53.03(030) ARTIFICIAL, LEG ABOVE KNEE - NSC INPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,10)="54.031(031) ARTIFICIAL, LEG BELOW KNEE, PTB - NUMBER REPAIRS~;56.032(032) ARTIFICIAL, LEG BELOW KNEE, PTB - COST REPAIRS (DOLLARS)~;54.033(033) ARTIFICIAL, LEG BELOW KNEE, PTB - NUMBER REPAIRS THROUGH VA SOURCES~;"
^DIE(250,"DR",1,2100,11)="53.034(034) ARTIFICIAL, LEG BELOW KNEE, PTB - VA FORM 10-2421 REPAIRS~;53.035(035) ARTIFICIAL, LEG BELOW KNEE, PTB - ALL OTHER COMMERCIAL REPAIRS~;56.036(036) ARTIFICIAL, LEG BELOW KNEE, PTB - COST COMMERCIAL REPAIRS (DOLLARS)~;"
^DIE(250,"DR",1,2100,12)="54.037(037) ARTIFICIAL, LEG BELOW KNEE, PTB - SC OUTPATIENT DISAB. SERVED~;54.038(038) ARTIFICIAL, LEG BELOW KNEE, PTB - NSC OUTPATIENT DISAB. SERVED~;53.039(039) ARTIFICIAL, LEG BELOW KNEE, PTB - SC INPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,13)="53.04(040) ARTIFICIAL, LEG BELOW KNEE, PTB - NSC INPATIENT DISAB. SERVED~;54.041(041) ARTIFICIAL, LEG BELOW KNEE, STD - NUMBER REPAIRS~;56.042(042) ARTIFICIAL, LEG BELOW KNEE, STD - COST REPAIRS (DOLLARS)~;"
^DIE(250,"DR",1,2100,14)="54.043(043) ARTIFICIAL, LEG BELOW KNEE, STD - NUMBER REPAIRS THROUGH VA SOURCES~;53.044(044) ARTIFICIAL, LEG BELOW KNEE, STD - VA FORM 10-2421 REPAIRS~;53.045(045) ARTIFICIAL, LEG BELOW KNEE, STD - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(250,"DR",1,2100,15)="56.046(046) ARTIFICIAL, LEG BELOW KNEE, STD - COST COMMERCIAL REPAIRS (DOLLARS)~;54.047(047) ARTIFICIAL, LEG BELOW KNEE, STD - SC OUTPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,16)="54.048(048) ARTIFICIAL, LEG BELOW KNEE, STD - NSC OUTPATIENT DISAB. SERVED~;53.049(049) ARTIFICIAL, LEG BELOW KNEE, STD - SC INPATIENT DISAB. SERVED~;53.05(050) ARTIFICIAL, LEG BELOW KNEE, STD - NSC INPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,17)="54.051(051) ARTIFICIAL, LEG ALL OTHER - NUMBER REPAIRS~;56.052(052) ARTIFICIAL, LEG ALL OTHER - COST REPAIRS (DOLLARS)~;54.053(053) ARTIFICIAL, LEG ALL OTHER - NUMBER REPAIRS THROUGH VA SOURCES~;"
^DIE(250,"DR",1,2100,18)="53.054(054) ARTIFICIAL, LEG ALL OTHER - VA FORM 10-2421 REPAIRS~;53.055(055) ARTIFICIAL, LEG ALL OTHER - ALL OTHER COMMERCIAL REPAIRS~;56.056(056) ARTIFICIAL, LEG ALL OTHER - COST COMMERCIAL REPAIRS (DOLLARS)~;"
^DIE(250,"DR",1,2100,19)="54.057(057) ARTIFICIAL, LEG ALL OTHER - SC OUTPATIENT DISAB. SERVED~;54.058(058) ARTIFICIAL, LEG ALL OTHER - NSC OUTPATIENT DISAB. SERVED~;53.059(059) ARTIFICIAL, LEG ALL OTHER - SC INPATIENT DISAB. SERVED~;"
^DIE(250,"DR",1,2100,20)="53.06(060) ARTIFICIAL, LEG ALL OTHER - NSC INPATIENT DISAB. SERVED~;99///^S X=""$"";"
^DIE(251,0)="RMPR AMS5 AMIS 130^2900918.2^^2100^0^^2931004"
^DIE(251,"DIAB",1,0,2100,1)="003-4;""(003) BRACE, TOTAL - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",1,0,2100,2)="006-6;""(006) BRACE, TOTAL - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(251,"DIAB",1,0,2100,3)="010-3;""(010) BRACE, TOTAL - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,4)="013-3;""(013) CLOTHING REPAIR - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",1,0,2100,5)="016-4;""(016) CLOTHING REPAIR - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,6)="019-4;""(019) EYEGLASS REPAIR - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",1,0,2100,7)="022-6;""(022) EYEGLASS REPAIR - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(251,"DIAB",1,0,2100,8)="025-3;""(025) EYEGLASS REPAIR - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,9)="028-3;""(028) HEARING AID, LOCAL REPAIRS - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",1,0,2100,10)="031-4;""(031) HEARING AID, LOCAL REPAIRS - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,11)="034-3;""(034) HEARING AID, LOCAL REPAIRS - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,12)="037-3;""(037) HOME DIALYSIS EQUIP - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",1,0,2100,13)="040-4;""(040) HOME DIALYSIS EQUIP - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",1,0,2100,14)="043-4;""(043) INVALID LIFTS - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",1,0,2100,15)="046-6;""(046) INVALID LIFTS - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(251,"DIAB",1,0,2100,16)="049-3;""(049) INVALID LIFTS - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,1)="004-3;""(004) BRACE, TOTAL - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",2,0,2100,2)="007-4;""(007) BRACE, TOTAL - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,3)="011-4;""(011) CLOTHING REPAIR - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",2,0,2100,4)="014-6;""(014) CLOTHING REPAIR - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(251,"DIAB",2,0,2100,5)="017-3;""(017) CLOTHING REPAIR - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,6)="020-3;""(020) EYEGLASS REPAIR - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",2,0,2100,7)="023-4;""(023) EYEGLASS REPAIR - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,8)="026-3;""(026) EYEGLASS REPAIR - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,9)="029-3;""(029) HEARING AID, LOCAL REPAIRS - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",2,0,2100,10)="032-4;""(032) HEARING AID, LOCAL REPAIRS - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,11)="035-4;""(035) HOME DIALYSIS EQUIP - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",2,0,2100,12)="038-6;""(038) HOME DIALYSIS EQUIP - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(251,"DIAB",2,0,2100,13)="041-3;""(041) HOME DIALYSIS EQUIP - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,14)="044-3;""(044) INVALID LIFTS - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",2,0,2100,15)="047-4;""(047) INVALID LIFTS - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",2,0,2100,16)="050-3;""(050) INVALID LIFTS - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,1)="005-3;""(005) BRACE, TOTAL - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",3,0,2100,2)="008-4;""(008) BRACE, TOTAL - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,3)="012-3;""(012) CLOTHING REPAIR - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",3,0,2100,4)="015-4;""(015) CLOTHING REPAIR - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,5)="018-3;""(018) CLOTHING REPAIR - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,6)="021-3;""(021) EYEGLASS REPAIR - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",3,0,2100,7)="024-4;""(024) EYEGLASS REPAIR - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,8)="027-4;""(027) HEARING AID, LOCAL REPAIRS - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(251,"DIAB",3,0,2100,9)="030-6;""(030) HEARING AID, LOCAL REPAIRS (DOLLARS) - COST COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",3,0,2100,10)="033-3;""(033) HEARING AID, LOCAL REPAIRS - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,11)="036-3;""(036) HOME DIALYSIS EQUIP - VA FORM 10-2421 REPAIRS"""
^DIE(251,"DIAB",3,0,2100,12)="039-4;""(039) HOME DIALYSIS EQUIP - SC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,13)="042-3;""(042) HOME DIALYSIS EQUIP - NSC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",3,0,2100,14)="045-3;""(045) INVALID LIFTS - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(251,"DIAB",3,0,2100,15)="048-4;""(048) INVALID LIFTS - NSC OUTPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",4,0,2100,2)="009-3;""(009) BRACE, TOTAL - SC INPATIENT DISAB. SERVED"""
^DIE(251,"DIAB",9,0,2100,0)="001-4;""(001) BRACE, TOTAL - NUMBER REPAIRS"""
^DIE(251,"DIAB",10,0,2100,0)="002-6;""(002) BRACE, TOTAL - COST REPAIRS (DOLLARS)"""
^DIE(251,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) BRACE, TOTAL - NUMBER REPAIRS~;56.002(002) BRACE, TOTAL - COST REPAIRS (DOLLARS)~;"
^DIE(251,"DR",1,2100,1)="54.003(003) BRACE, TOTAL - NUMBER REPAIRS THROUGH VA SOURCES~;53.004(004) BRACE, TOTAL - VA FORM 10-2421 REPAIRS~;53.005(005) BRACE, TOTAL - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(251,"DR",1,2100,2)="56.006(006) BRACE, TOTAL - COST COMMERCIAL REPAIRS (DOLLARS)~;54.007(007) BRACE, TOTAL - SC OUTPATIENT DISAB. SERVED~;54.008(008) BRACE, TOTAL - NSC OUTPATIENT DISAB. SERVED~;53.009(009) BRACE, TOTAL - SC INPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,3)="53.01(010) BRACE, TOTAL - NSC INPATIENT DISAB. SERVED~;54.011(011) CLOTHING REPAIR - NUMBER REPAIRS THROUGH VA SOURCES~;53.012(012) CLOTHING REPAIR - VA FORM 10-2421 REPAIRS~;"
^DIE(251,"DR",1,2100,4)="53.013(013) CLOTHING REPAIR - ALL OTHER COMMERCIAL REPAIRS~;56.014(014) CLOTHING REPAIR - COST COMMERCIAL REPAIRS (DOLLARS)~;54.015(015) CLOTHING REPAIR - SC OUTPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,5)="54.016(016) CLOTHING REPAIR - NSC OUTPATIENT DISAB. SERVED~;53.017(017) CLOTHING REPAIR - SC INPATIENT DISAB. SERVED~;53.018(018) CLOTHING REPAIR - NSC INPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,6)="54.019(019) EYEGLASS REPAIR - NUMBER REPAIRS THROUGH VA SOURCES~;53.02(020) EYEGLASS REPAIR - VA FORM 10-2421 REPAIRS~;53.021(021) EYEGLASS REPAIR - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(251,"DR",1,2100,7)="56.022(022) EYEGLASS REPAIR - COST COMMERCIAL REPAIRS (DOLLARS)~;54.023(023) EYEGLASS REPAIR - SC OUTPATIENT DISAB. SERVED~;54.024(024) EYEGLASS REPAIR - NSC OUTPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,8)="53.025(025) EYEGLASS REPAIR - SC INPATIENT DISAB. SERVED~;53.026(026) EYEGLASS REPAIR - NSC INPATIENT DISAB. SERVED~;54.027(027) HEARING AID, LOCAL REPAIRS - NUMBER REPAIRS THROUGH VA SOURCES~;"
^DIE(251,"DR",1,2100,9)="53.028(028) HEARING AID, LOCAL REPAIRS - VA FORM 10-2421 REPAIRS~;53.029(029) HEARING AID, LOCAL REPAIRS - ALL OTHER COMMERCIAL REPAIRS~;56.03(030) HEARING AID, LOCAL REPAIRS (DOLLARS) - COST COMMERCIAL REPAIRS~;"
^DIE(251,"DR",1,2100,10)="54.031(031) HEARING AID, LOCAL REPAIRS - SC OUTPATIENT DISAB. SERVED~;54.032(032) HEARING AID, LOCAL REPAIRS - NSC OUTPATIENT DISAB. SERVED~;53.033(033) HEARING AID, LOCAL REPAIRS - SC INPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,11)="53.034(034) HEARING AID, LOCAL REPAIRS - NSC INPATIENT DISAB. SERVED~;54.035(035) HOME DIALYSIS EQUIP - NUMBER REPAIRS THROUGH VA SOURCES~;53.036(036) HOME DIALYSIS EQUIP - VA FORM 10-2421 REPAIRS~;"
^DIE(251,"DR",1,2100,12)="53.037(037) HOME DIALYSIS EQUIP - ALL OTHER COMMERCIAL REPAIRS~;56.038(038) HOME DIALYSIS EQUIP - COST COMMERCIAL REPAIRS (DOLLARS)~;54.039(039) HOME DIALYSIS EQUIP - SC OUTPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,13)="54.04(040) HOME DIALYSIS EQUIP - NSC OUTPATIENT DISAB. SERVED~;53.041(041) HOME DIALYSIS EQUIP - SC INPATIENT DISAB. SERVED~;53.042(042) HOME DIALYSIS EQUIP - NSC INPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,14)="54.043(043) INVALID LIFTS - NUMBER REPAIRS THROUGH VA SOURCES~;53.044(044) INVALID LIFTS - VA FORM 10-2421 REPAIRS~;53.045(045) INVALID LIFTS - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(251,"DR",1,2100,15)="56.046(046) INVALID LIFTS - COST COMMERCIAL REPAIRS (DOLLARS)~;54.047(047) INVALID LIFTS - SC OUTPATIENT DISAB. SERVED~;54.048(048) INVALID LIFTS - NSC OUTPATIENT DISAB. SERVED~;"
^DIE(251,"DR",1,2100,16)="53.049(049) INVALID LIFTS - SC INPATIENT DISAB. SERVED~;53.05(050) INVALID LIFTS - NSC INPATIENT DISAB. SERVED~;99///^S X=""$"";"
^DIE(252,0)="RMPR AMS5 AMIS 131^2900918.2009^^2100^0^^2931004"
^DIE(252,"DIAB",1,0,2100,1)="002-3;""(002) MEDICAL EQUIP, ALL OTHER - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",1,0,2100,2)="005-4;""(005) MEDICAL EQUIP, ALL OTHER - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,3)="008-3;""(008) MEDICAL EQUIP, ALL OTHER - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,4)="011-3;""(011) SHOE, INLAY - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",1,0,2100,5)="015-3;""(015) SHOE, INLAY - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,6)="018-3;""(018) SHOE MODIFICATIONS - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",1,0,2100,7)="021-4;""(021) SHOE MODIFICATIONS - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,8)="024-3;""(024) SHOE MODIFICATIONS - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,9)="027-3;""(027) SHOE, ORTHOPEDIC - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",1,0,2100,10)="030-4;""(030) SHOE, ORTHOPEDIC - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,11)="034-6;""(034) WHEELCHAIRS - COST REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",1,0,2100,12)="038-6;""(038) WHEELCHAIRS - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",1,0,2100,13)="042-3;""(042) WHEELCHAIRS - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",1,0,2100,14)="045-3;""(045) ALL OTHER REPAIRS - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",1,0,2100,15)="048-4;""(048) ALL OTHER REPAIRS - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,1)="003-3;""(003) MEDICAL EQUIP, ALL OTHER - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",2,0,2100,2)="006-4;""(006) MEDICAL EQUIP, ALL OTHER - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,3)="009-4;""(009) SHOE, INLAY - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DIAB",2,0,2100,4)="012-6;""(012) SHOE, INLAY - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",2,0,2100,5)="016-3;""(016) SHOE, INLAY - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,6)="019-3;""(019) SHOE MODIFICATIONS - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",2,0,2100,7)="022-4;""(022) SHOE MODIFICATIONS - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,8)="025-4;""(025) SHOE, ORTHOPEDIC - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DIAB",2,0,2100,9)="028-6;""(028) SHOE, ORTHOPEDIC - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",2,0,2100,10)="031-3;""(031) SHOE, ORTHOPEDIC - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,11)="035-4;""(035) WHEELCHAIRS - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DIAB",2,0,2100,12)="039-4;""(039) WHEELCHAIRS - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",2,0,2100,13)="043-4;""(043) ALL OTHER REPAIRS - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DIAB",2,0,2100,14)="046-6;""(046) ALL OTHER REPAIRS - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",2,0,2100,15)="049-3;""(049) ALL OTHER REPAIRS - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,1)="004-6;""(004) MEDICAL EQUIP, ALL OTHER - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",3,0,2100,2)="007-3;""(007) MEDICAL EQUIP, ALL OTHER - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,3)="010-3;""(010) SHOE, INLAY - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",3,0,2100,4)="013-4;""(013) SHOE, INLAY - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,5)="017-4;""(017) SHOE MODIFICATIONS - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DIAB",3,0,2100,6)="020-6;""(020) SHOE MODIFICATIONS - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(252,"DIAB",3,0,2100,7)="023-3;""(023) SHOE MODIFICATIONS - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,8)="026-3;""(026) SHOE, ORTHOPEDIC - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",3,0,2100,9)="029-4;""(029) SHOE, ORTHOPEDIC - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,10)="032-3;""(032) SHOE, ORTHOPEDIC - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,11)="036-3;""(036) WHEELCHAIRS - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",3,0,2100,12)="040-4;""(040) WHEELCHAIRS - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,13)="044-3;""(044) ALL OTHER REPAIRS - VA FORM 10-2421 REPAIRS"""
^DIE(252,"DIAB",3,0,2100,14)="047-4;""(047) ALL OTHER REPAIRS - SC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",3,0,2100,15)="050-3;""(050) ALL OTHER REPAIRS - NSC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",4,0,2100,4)="014-4;""(014) SHOE, INLAY - NSC OUTPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",4,0,2100,10)="033-4;""(033) WHEELCHAIRS - NUMBER REPAIRS"""
^DIE(252,"DIAB",4,0,2100,11)="037-3;""(037) WHEELCHAIRS - ALL OTHER COMMERCIAL REPAIRS"""
^DIE(252,"DIAB",4,0,2100,12)="041-3;""(041) WHEELCHAIRS - SC INPATIENT DISAB. SERVED"""
^DIE(252,"DIAB",9,0,2100,0)="001-4;""(001) MEDICAL EQUIP, ALL OTHER - NUMBER REPAIRS THROUGH VA SOURCES"""
^DIE(252,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) MEDICAL EQUIP, ALL OTHER - NUMBER REPAIRS THROUGH VA SOURCES~;"
^DIE(252,"DR",1,2100,1)="53.002(002) MEDICAL EQUIP, ALL OTHER - VA FORM 10-2421 REPAIRS~;53.003(003) MEDICAL EQUIP, ALL OTHER - ALL OTHER COMMERCIAL REPAIRS~;56.004(004) MEDICAL EQUIP, ALL OTHER - COST COMMERCIAL REPAIRS (DOLLARS)~;"
^DIE(252,"DR",1,2100,2)="54.005(005) MEDICAL EQUIP, ALL OTHER - SC OUTPATIENT DISAB. SERVED~;54.006(006) MEDICAL EQUIP, ALL OTHER - NSC OUTPATIENT DISAB. SERVED~;53.007(007) MEDICAL EQUIP, ALL OTHER - SC INPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,3)="53.008(008) MEDICAL EQUIP, ALL OTHER - NSC INPATIENT DISAB. SERVED~;54.009(009) SHOE, INLAY - NUMBER REPAIRS THROUGH VA SOURCES~;53.01(010) SHOE, INLAY - VA FORM 10-2421 REPAIRS~;"
^DIE(252,"DR",1,2100,4)="53.011(011) SHOE, INLAY - ALL OTHER COMMERCIAL REPAIRS~;56.012(012) SHOE, INLAY - COST COMMERCIAL REPAIRS (DOLLARS)~;54.013(013) SHOE, INLAY - SC OUTPATIENT DISAB. SERVED~;54.014(014) SHOE, INLAY - NSC OUTPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,5)="53.015(015) SHOE, INLAY - SC INPATIENT DISAB. SERVED~;53.016(016) SHOE, INLAY - NSC INPATIENT DISAB. SERVED~;54.017(017) SHOE MODIFICATIONS - NUMBER REPAIRS THROUGH VA SOURCES~;"
^DIE(252,"DR",1,2100,6)="53.018(018) SHOE MODIFICATIONS - VA FORM 10-2421 REPAIRS~;53.019(019) SHOE MODIFICATIONS - ALL OTHER COMMERCIAL REPAIRS~;56.02(020) SHOE MODIFICATIONS - COST COMMERCIAL REPAIRS (DOLLARS)~;"
^DIE(252,"DR",1,2100,7)="54.021(021) SHOE MODIFICATIONS - SC OUTPATIENT DISAB. SERVED~;54.022(022) SHOE MODIFICATIONS - NSC OUTPATIENT DISAB. SERVED~;53.023(023) SHOE MODIFICATIONS - SC INPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,8)="53.024(024) SHOE MODIFICATIONS - NSC INPATIENT DISAB. SERVED~;54.025(025) SHOE, ORTHOPEDIC - NUMBER REPAIRS THROUGH VA SOURCES~;53.026(026) SHOE, ORTHOPEDIC - VA FORM 10-2421 REPAIRS~;"
^DIE(252,"DR",1,2100,9)="53.027(027) SHOE, ORTHOPEDIC - ALL OTHER COMMERCIAL REPAIRS~;56.028(028) SHOE, ORTHOPEDIC - COST COMMERCIAL REPAIRS (DOLLARS)~;54.029(029) SHOE, ORTHOPEDIC - SC OUTPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,10)="54.03(030) SHOE, ORTHOPEDIC - NSC OUTPATIENT DISAB. SERVED~;53.031(031) SHOE, ORTHOPEDIC - SC INPATIENT DISAB. SERVED~;53.032(032) SHOE, ORTHOPEDIC - NSC INPATIENT DISAB. SERVED~;54.033(033) WHEELCHAIRS - NUMBER REPAIRS~;"
^DIE(252,"DR",1,2100,11)="56.034(034) WHEELCHAIRS - COST REPAIRS (DOLLARS)~;54.035(035) WHEELCHAIRS - NUMBER REPAIRS THROUGH VA SOURCES~;53.036(036) WHEELCHAIRS - VA FORM 10-2421 REPAIRS~;53.037(037) WHEELCHAIRS - ALL OTHER COMMERCIAL REPAIRS~;"
^DIE(252,"DR",1,2100,12)="56.038(038) WHEELCHAIRS - COST COMMERCIAL REPAIRS (DOLLARS)~;54.039(039) WHEELCHAIRS - SC OUTPATIENT DISAB. SERVED~;54.04(040) WHEELCHAIRS - NSC OUTPATIENT DISAB. SERVED~;53.041(041) WHEELCHAIRS - SC INPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,13)="53.042(042) WHEELCHAIRS - NSC INPATIENT DISAB. SERVED~;54.043(043) ALL OTHER REPAIRS - NUMBER REPAIRS THROUGH VA SOURCES~;53.044(044) ALL OTHER REPAIRS - VA FORM 10-2421 REPAIRS~;"
^DIE(252,"DR",1,2100,14)="53.045(045) ALL OTHER REPAIRS - ALL OTHER COMMERCIAL REPAIRS~;56.046(046) ALL OTHER REPAIRS - COST COMMERCIAL REPAIRS (DOLLARS)~;54.047(047) ALL OTHER REPAIRS - SC OUTPATIENT DISAB. SERVED~;"
^DIE(252,"DR",1,2100,15)="54.048(048) ALL OTHER REPAIRS - NSC OUTPATIENT DISAB. SERVED~;53.049(049) ALL OTHER REPAIRS - SC INPATIENT DISAB. SERVED~;53.05(050) ALL OTHER REPAIRS - NSC INPATIENT DISAB. SERVED~;99///^S X=""$"";"
^DIE(253,0)="RMPR AMS5 AMIS 132^2900516.1219^^2100"
^DIE(253,"DIAB",1,0,2100,1)="003-3;""(003) ARTIFICIAL EYES - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",1,0,2100,2)="007-2;""(007) ARTIFICIAL EYES - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,3)="011-3;""(011) BODY RESTORATIONS - SC PATIENTS SERVED"""
^DIE(253,"DIAB",1,0,2100,4)="015-4;""(015) BODY RESTORATIONS - TOTAL LABOR COST"""
^DIE(253,"DIAB",1,0,2100,5)="019-3;""(019) COSMETIC GLOVES - NUMBER ITEMS"""
^DIE(253,"DIAB",1,0,2100,6)="023-4;""(023) COSMETIC GLOVES - HOURS LABOR USED"""
^DIE(253,"DIAB",1,0,2100,7)="027-3;""(027) COSMETIC GLOVES - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,8)="031-3;""(031) EYE IMPLANTS - MATERIAL COST"""
^DIE(253,"DIAB",1,0,2100,9)="035-3;""(035) EYE IMPLANTS - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,10)="039-3;""(039) FACIAL RESTOR, ARTIFICIAL EAR - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",1,0,2100,11)="042-4;""(042) FACIAL RESTOR, ARTIFICIAL EAR - TOTAL LABOR COST"""
^DIE(253,"DIAB",1,0,2100,12)="045-3;""(045) FACIAL RESTOR, ARTIFICIAL EAR - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,13)="048-3;""(048) FACIAL RESTOR, ARTIFICIAL NOSE - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",1,0,2100,14)="051-4;""(051) FACIAL RESTOR, ARTIFICIAL NOSE - TOTAL LABOR COST"""
^DIE(253,"DIAB",1,0,2100,15)="054-3;""(054) FACIAL RESTOR, ARTIFICIAL NOSE - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,16)="057-3;""(057) FACIAL RESTOR, ORBITAL - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",1,0,2100,17)="061-2;""(061) FACIAL RESTOR, ORBITAL - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",1,0,2100,18)="064-3;""(064) FACIAL RESTOR, ALL OTHER - NUMBER ITEMS"""
^DIE(253,"DIAB",1,0,2100,19)="068-4;""(068) FACIAL RESTOR, ALL OTHER - HOURS LABOR USED"""
^DIE(253,"DIAB",1,0,2100,20)="071-3;""(071) FACIAL RESTOR, ALL OTHER - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,1)="004-3;""(004) ARTIFICIAL EYES - MATERIAL COST"""
^DIE(253,"DIAB",2,0,2100,2)="008-3;""(008) ARTIFICIAL EYES - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,3)="012-3;""(012) BODY RESTORATIONS - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",2,0,2100,4)="016-2;""(016) BODY RESTORATIONS - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,5)="020-3;""(020) COSMETIC GLOVES - SC PATIENTS SERVED"""
^DIE(253,"DIAB",2,0,2100,6)="024-4;""(024) COSMETIC GLOVES - TOTAL LABOR COST"""
^DIE(253,"DIAB",2,0,2100,7)="028-3;""(028) EYE IMPLANTS - NUMBER ITEMS"""
^DIE(253,"DIAB",2,0,2100,8)="032-4;""(032) EYE IMPLANTS - HOURS LABOR USED"""
^DIE(253,"DIAB",2,0,2100,9)="036-3;""(036) EYE IMPLANTS - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,10)="040-3;""(040) FACIAL RESTOR, ARTIFICIAL EAR - MATERIAL COST"""
^DIE(253,"DIAB",2,0,2100,11)="043-2;""(043) FACIAL RESTOR, ARTIFICIAL EAR - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,12)="046-3;""(046) FACIAL RESTOR, ARTIFICIAL NOSE - NUMBER ITEMS"""
^DIE(253,"DIAB",2,0,2100,13)="049-3;""(049) FACIAL RESTOR, ARTIFICIAL NOSE - MATERIAL COST"""
^DIE(253,"DIAB",2,0,2100,14)="052-2;""(052) FACIAL RESTOR, ARTIFICIAL NOSE - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,15)="055-3;""(055) FACIAL RESTOR, ORBITAL - NUMBER ITEMS"""
^DIE(253,"DIAB",2,0,2100,16)="058-3;""(058) FACIAL RESTOR, ORBITAL - MATERIAL COST"""
^DIE(253,"DIAB",2,0,2100,17)="062-3;""(062) FACIAL RESTOR, ORBITAL - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",2,0,2100,18)="065-3;""(065) FACIAL RESTOR, ALL OTHER - SC PATIENTS SERVED"""
^DIE(253,"DIAB",2,0,2100,19)="069-4;""(069) FACIAL RESTOR, ALL OTHER - TOTAL LABOR COST"""
^DIE(253,"DIAB",2,0,2100,20)="072-3;""(072) FACIAL RESTOR, ALL OTHER - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,1)="005-4;""(005) ARTIFICIAL EYES - HOURS LABOR USED"""
^DIE(253,"DIAB",3,0,2100,2)="009-3;""(009) ARTIFICIAL EYES - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,3)="013-3;""(013) BODY RESTORATIONS - MATERIAL COST"""
^DIE(253,"DIAB",3,0,2100,4)="017-3;""(017) BODY RESTORATIONS - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,5)="021-3;""(021) COSMETIC GLOVES - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",3,0,2100,6)="025-2;""(025) COSMETIC GLOVES - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,7)="029-3;""(029) EYE IMPLANTS - SC PATIENTS SERVED"""
^DIE(253,"DIAB",3,0,2100,8)="033-4;""(033) EYE IMPLANTS - TOTAL LABOR COST"""
^DIE(253,"DIAB",3,0,2100,9)="037-3;""(037) FACIAL RESTOR, ARTIFICIAL EAR - NUMBER ITEMS"""
^DIE(253,"DIAB",3,0,2100,10)="041-4;""(041) FACIAL RESTOR, ARTIFICIAL EAR - HOURS LABOR USED"""
^DIE(253,"DIAB",3,0,2100,11)="044-3;""(044) FACIAL RESTOR, ARTIFICIAL EAR - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,12)="047-3;""(047) FACIAL RESTOR, ARTIFICIAL NOSE - SC PATIENTS SERVED"""
^DIE(253,"DIAB",3,0,2100,13)="050-4;""(050) FACIAL RESTOR, ARTIFICIAL NOSE - HOURS LABOR USED"""
^DIE(253,"DIAB",3,0,2100,14)="053-3;""(053) FACIAL RESTOR, ARTIFICIAL NOSE - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,15)="056-3;""(056) FACIAL RESTOR, ORBITAL - SC PATIENTS SERVED"""
^DIE(253,"DIAB",3,0,2100,16)="059-4;""(059) FACIAL RESTOR, ORBITAL - HOURS LABOR USED"""
^DIE(253,"DIAB",3,0,2100,17)="063-3;""(063) FACIAL RESTOR, ORBITAL - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",3,0,2100,18)="066-3;""(066) FACIAL RESTOR, ALL OTHER - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",3,0,2100,19)="070-2;""(070) FACIAL RESTOR, ALL OTHER - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",4,0,2100,1)="006-4;""(006) ARTIFICIAL EYES - TOTAL LABOR COST"""
^DIE(253,"DIAB",4,0,2100,2)="010-3;""(010) BODY RESTORATIONS - NUMBER ITEMS"""
^DIE(253,"DIAB",4,0,2100,3)="014-4;""(014) BODY RESTORATIONS - HOURS LABOR USED"""
^DIE(253,"DIAB",4,0,2100,4)="018-3;""(018) BODY RESTORATIONS - TOTAL COST CHARGED - BACKLOG"""
^DIE(253,"DIAB",4,0,2100,5)="022-3;""(022) COSMETIC GLOVES - MATERIAL COST"""
^DIE(253,"DIAB",4,0,2100,6)="026-3;""(026) COSMETIC GLOVES - HOURS LABOR - BACKLOG"""
^DIE(253,"DIAB",4,0,2100,7)="030-3;""(030) EYE IMPLANTS - NSC PATIENTS SERVED"""
^DIE(253,"DIAB",4,0,2100,8)="034-2;""(034) EYE IMPLANTS - NUMBER ITEMS - BACKLOG"""
^DIE(253,"DIAB",4,0,2100,9)="038-3;""(038) FACIAL RESTOR, ARTIFICIAL EAR - SC PATIENTS SERVED"""
^DIE(253,"DIAB",4,0,2100,16)="060-4;""(060) FACIAL RESTOR, ORBITAL - TOTAL LABOR COST"""
^DIE(253,"DIAB",4,0,2100,18)="067-3;""(067) FACIAL RESTOR, ALL OTHER - MATERIAL COST"""
^DIE(253,"DIAB",9,0,2100,0)="001-3;""(001) ARTIFICIAL EYES - NUMBER ITEMS"""
^DIE(253,"DIAB",10,0,2100,0)="002-3;""(002) ARTIFICIAL EYES - SC PATIENTS SERVED"""
^DIE(253,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) ARTIFICIAL EYES - NUMBER ITEMS~;53.002(002) ARTIFICIAL EYES - SC PATIENTS SERVED~;"
^DIE(253,"DR",1,2100,1)="53.003(003) ARTIFICIAL EYES - NSC PATIENTS SERVED~;53.004(004) ARTIFICIAL EYES - MATERIAL COST~;54.005(005) ARTIFICIAL EYES - HOURS LABOR USED~;54.006(006) ARTIFICIAL EYES - TOTAL LABOR COST~;"
^DIE(253,"DR",1,2100,2)="57.007(007) ARTIFICIAL EYES - NUMBER ITEMS - BACKLOG~;53.008(008) ARTIFICIAL EYES - HOURS LABOR - BACKLOG~;53.009(009) ARTIFICIAL EYES - TOTAL COST CHARGED - BACKLOG~;53.01(010) BODY RESTORATIONS - NUMBER ITEMS~;"
^DIE(253,"DR",1,2100,3)="53.011(011) BODY RESTORATIONS - SC PATIENTS SERVED~;53.012(012) BODY RESTORATIONS - NSC PATIENTS SERVED~;53.013(013) BODY RESTORATIONS - MATERIAL COST~;54.014(014) BODY RESTORATIONS - HOURS LABOR USED~;"
^DIE(253,"DR",1,2100,4)="54.015(015) BODY RESTORATIONS - TOTAL LABOR COST~;57.016(016) BODY RESTORATIONS - NUMBER ITEMS - BACKLOG~;53.017(017) BODY RESTORATIONS - HOURS LABOR - BACKLOG~;53.018(018) BODY RESTORATIONS - TOTAL COST CHARGED - BACKLOG~;"
^DIE(253,"DR",1,2100,5)="53.019(019) COSMETIC GLOVES - NUMBER ITEMS~;53.02(020) COSMETIC GLOVES - SC PATIENTS SERVED~;53.021(021) COSMETIC GLOVES - NSC PATIENTS SERVED~;53.022(022) COSMETIC GLOVES - MATERIAL COST~;"
^DIE(253,"DR",1,2100,6)="54.023(023) COSMETIC GLOVES - HOURS LABOR USED~;54.024(024) COSMETIC GLOVES - TOTAL LABOR COST~;57.025(025) COSMETIC GLOVES - NUMBER ITEMS - BACKLOG~;53.026(026) COSMETIC GLOVES - HOURS LABOR - BACKLOG~;"
^DIE(253,"DR",1,2100,7)="53.027(027) COSMETIC GLOVES - TOTAL COST CHARGED - BACKLOG~;53.028(028) EYE IMPLANTS - NUMBER ITEMS~;53.029(029) EYE IMPLANTS - SC PATIENTS SERVED~;53.03(030) EYE IMPLANTS - NSC PATIENTS SERVED~;"
^DIE(253,"DR",1,2100,8)="53.031(031) EYE IMPLANTS - MATERIAL COST~;54.032(032) EYE IMPLANTS - HOURS LABOR USED~;54.033(033) EYE IMPLANTS - TOTAL LABOR COST~;57.034(034) EYE IMPLANTS - NUMBER ITEMS - BACKLOG~;"
^DIE(253,"DR",1,2100,9)="53.035(035) EYE IMPLANTS - HOURS LABOR - BACKLOG~;53.036(036) EYE IMPLANTS - TOTAL COST CHARGED - BACKLOG~;53.037(037) FACIAL RESTOR, ARTIFICIAL EAR - NUMBER ITEMS~;53.038(038) FACIAL RESTOR, ARTIFICIAL EAR - SC PATIENTS SERVED~;"
^DIE(253,"DR",1,2100,10)="53.039(039) FACIAL RESTOR, ARTIFICIAL EAR - NSC PATIENTS SERVED~;53.04(040) FACIAL RESTOR, ARTIFICIAL EAR - MATERIAL COST~;54.041(041) FACIAL RESTOR, ARTIFICIAL EAR - HOURS LABOR USED~;"
^DIE(253,"DR",1,2100,11)="54.042(042) FACIAL RESTOR, ARTIFICIAL EAR - TOTAL LABOR COST~;57.043(043) FACIAL RESTOR, ARTIFICIAL EAR - NUMBER ITEMS - BACKLOG~;53.044(044) FACIAL RESTOR, ARTIFICIAL EAR - HOURS LABOR - BACKLOG~;"
^DIE(253,"DR",1,2100,12)="53.045(045) FACIAL RESTOR, ARTIFICIAL EAR - TOTAL COST CHARGED - BACKLOG~;53.046(046) FACIAL RESTOR, ARTIFICIAL NOSE - NUMBER ITEMS~;53.047(047) FACIAL RESTOR, ARTIFICIAL NOSE - SC PATIENTS SERVED~;"
^DIE(253,"DR",1,2100,13)="53.048(048) FACIAL RESTOR, ARTIFICIAL NOSE - NSC PATIENTS SERVED~;53.049(049) FACIAL RESTOR, ARTIFICIAL NOSE - MATERIAL COST~;54.05(050) FACIAL RESTOR, ARTIFICIAL NOSE - HOURS LABOR USED~;"
^DIE(253,"DR",1,2100,14)="54.051(051) FACIAL RESTOR, ARTIFICIAL NOSE - TOTAL LABOR COST~;57.052(052) FACIAL RESTOR, ARTIFICIAL NOSE - NUMBER ITEMS - BACKLOG~;53.053(053) FACIAL RESTOR, ARTIFICIAL NOSE - HOURS LABOR - BACKLOG~;"
^DIE(253,"DR",1,2100,15)="53.054(054) FACIAL RESTOR, ARTIFICIAL NOSE - TOTAL COST CHARGED - BACKLOG~;53.055(055) FACIAL RESTOR, ORBITAL - NUMBER ITEMS~;53.056(056) FACIAL RESTOR, ORBITAL - SC PATIENTS SERVED~;"
^DIE(253,"DR",1,2100,16)="53.057(057) FACIAL RESTOR, ORBITAL - NSC PATIENTS SERVED~;53.058(058) FACIAL RESTOR, ORBITAL - MATERIAL COST~;54.059(059) FACIAL RESTOR, ORBITAL - HOURS LABOR USED~;54.06(060) FACIAL RESTOR, ORBITAL - TOTAL LABOR COST~;"
^DIE(253,"DR",1,2100,17)="57.061(061) FACIAL RESTOR, ORBITAL - NUMBER ITEMS - BACKLOG~;53.062(062) FACIAL RESTOR, ORBITAL - HOURS LABOR - BACKLOG~;53.063(063) FACIAL RESTOR, ORBITAL - TOTAL COST CHARGED - BACKLOG~;"
^DIE(253,"DR",1,2100,18)="53.064(064) FACIAL RESTOR, ALL OTHER - NUMBER ITEMS~;53.065(065) FACIAL RESTOR, ALL OTHER - SC PATIENTS SERVED~;53.066(066) FACIAL RESTOR, ALL OTHER - NSC PATIENTS SERVED~;53.067(067) FACIAL RESTOR, ALL OTHER - MATERIAL COST~;"
^DIE(253,"DR",1,2100,19)="54.068(068) FACIAL RESTOR, ALL OTHER - HOURS LABOR USED~;54.069(069) FACIAL RESTOR, ALL OTHER - TOTAL LABOR COST~;57.07(070) FACIAL RESTOR, ALL OTHER - NUMBER ITEMS - BACKLOG~;"
^DIE(253,"DR",1,2100,20)="53.071(071) FACIAL RESTOR, ALL OTHER - HOURS LABOR - BACKLOG~;53.072(072) FACIAL RESTOR, ALL OTHER - TOTAL COST CHARGED - BACKLOG~;99///^S X=""$"";"
^DIE(254,0)="RMPR AMS5 AMIS 133^2900516.1326^^2100"
^DIE(254,"DIAB",1,0,2100,1)="003-3;""(003) OCULAR CONFORMERS - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",1,0,2100,2)="007-2;""(007) OCULAR CONFORMERS - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,3)="011-3;""(011) PLASTIC HANDS, FULL OR PARTIAL - SC PATIENTS SERVED"""
^DIE(254,"DIAB",1,0,2100,4)="014-4;""(014) PLASTIC HANDS, FULL OR PARTIAL - HOURS LABOR USED"""
^DIE(254,"DIAB",1,0,2100,5)="017-3;""(017) PLASTIC HANDS, FULL OR PARTIAL - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,6)="021-3;""(021) SKULL PLATES - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",1,0,2100,7)="026-3;""(026) SKULL PLATES - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,8)="030-3;""(030) FACE MASKS, RADIO THERAPY - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",1,0,2100,9)="034-2;""(034) FACE MASKS, RADIO THERAPY - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,10)="037-3;""(037) TRACHEAL APPLIANCES - NUMBER ITEMS"""
^DIE(254,"DIAB",1,0,2100,11)="041-4;""(041) TRACHEAL APPLIANCES - HOURS LABOR USED"""
^DIE(254,"DIAB",1,0,2100,12)="045-3;""(045) TRACHEAL APPLIANCES - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,13)="049-3;""(049) OTHER NEW ITEMS - MATERIAL COST"""
^DIE(254,"DIAB",1,0,2100,14)="053-3;""(053) OTHER NEW ITEMS - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,15)="057-3;""(057) REPAIRS TO APPLIANCES - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",1,0,2100,16)="061-2;""(061) REPAIRS TO APPLIANCES - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",1,0,2100,17)="064-3;""(064) OTHER ITEMS OR SERVICES - NUMBER ITEMS"""
^DIE(254,"DIAB",1,0,2100,18)="068-4;""(068) OTHER ITEMS OR SERVICES - HOURS LABOR USED"""
^DIE(254,"DIAB",1,0,2100,19)="071-3;""(071) OTHER ITEMS OR SERVICES - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,1)="004-3;""(004) OCULAR CONFORMERS - MATERIAL COST"""
^DIE(254,"DIAB",2,0,2100,2)="008-3;""(008) OCULAR CONFORMERS - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,3)="012-3;""(012) PLASTIC HANDS, FULL OR PARTIAL - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",2,0,2100,4)="015-4;""(015) PLASTIC HANDS, FULL OR PARTIAL - TOTAL LABOR COST"""
^DIE(254,"DIAB",2,0,2100,5)="018-3;""(018) PLASTIC HANDS, FULL OR PARTIAL - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,6)="022-3;""(022) SKULL PLATES - MATERIAL COST"""
^DIE(254,"DIAB",2,0,2100,7)="027-3;""(027) SKULL PLATES - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,8)="031-3;""(031) FACE MASKS, RADIO THERAPY - MATERIAL COST"""
^DIE(254,"DIAB",2,0,2100,9)="035-3;""(035) FACE MASKS, RADIO THERAPY - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,10)="038-3;""(038) TRACHEAL APPLIANCES - SC PATIENTS SERVED"""
^DIE(254,"DIAB",2,0,2100,11)="042-4;""(042) TRACHEAL APPLIANCES - TOTAL LABOR COST"""
^DIE(254,"DIAB",2,0,2100,12)="046-3;""(046) OTHER NEW ITEMS - NUMBER ITEMS"""
^DIE(254,"DIAB",2,0,2100,13)="050-4;""(050) OTHER NEW ITEMS - HOURS LABOR USED"""
^DIE(254,"DIAB",2,0,2100,14)="054-3;""(054) OTHER NEW ITEMS - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,15)="058-3;""(058) REPAIRS TO APPLIANCES - MATERIAL COST"""
^DIE(254,"DIAB",2,0,2100,16)="062-3;""(062) REPAIRS TO APPLIANCES - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",2,0,2100,17)="065-3;""(065) OTHER ITEMS OR SERVICES - SC PATIENTS SERVED"""
^DIE(254,"DIAB",2,0,2100,18)="069-4;""(069) OTHER ITEMS OR SERVICES - TOTAL LABOR COST"""
^DIE(254,"DIAB",2,0,2100,19)="072-3;""(072) OTHER ITEMS OR SERVICES - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,1)="005-4;""(005) OCULAR CONFORMERS - HOURS LABOR USED"""
^DIE(254,"DIAB",3,0,2100,2)="009-3;""(009) OCULAR CONFORMERS - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,3)="013-3;""(013) PLASTIC HANDS, FULL OR PARTIAL - MATERIAL COST"""
^DIE(254,"DIAB",3,0,2100,4)="016-2;""(016) PLASTIC HANDS, FULL OR PARTIAL - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,5)="019-3;""(019) SKULL PLATES - NUMBER ITEMS"""
^DIE(254,"DIAB",3,0,2100,6)="023-4;""(023) SKULL PLATES - HOURS LABOR USED"""
^DIE(254,"DIAB",3,0,2100,7)="028-3;""(028) FACE MASKS, RADIO THERAPY - NUMBER ITEMS"""
^DIE(254,"DIAB",3,0,2100,8)="032-4;""(032) FACE MASKS, RADIO THERAPY - HOURS LABOR USED"""
^DIE(254,"DIAB",3,0,2100,9)="036-3;""(036) FACE MASKS, RADIO THERAPY - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,10)="039-3;""(039) TRACHEAL APPLIANCES - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",3,0,2100,11)="043-2;""(043) TRACHEAL APPLIANCES - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,12)="047-3;""(047) OTHER NEW ITEMS - SC PATIENTS SERVED"""
^DIE(254,"DIAB",3,0,2100,13)="051-4;""(051) OTHER NEW ITEMS - TOTAL LABOR COST"""
^DIE(254,"DIAB",3,0,2100,14)="055-3;""(055) REPAIRS TO APPLIANCES - NUMBER ITEMS"""
^DIE(254,"DIAB",3,0,2100,15)="059-4;""(059) REPAIRS TO APPLIANCES - HOURS LABOR USED"""
^DIE(254,"DIAB",3,0,2100,16)="063-3;""(063) REPAIRS TO APPLIANCES - TOTAL COST CHARGED - BACKLOG"""
^DIE(254,"DIAB",3,0,2100,17)="066-3;""(066) OTHER ITEMS OR SERVICES - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",3,0,2100,18)="070-2;""(070) OTHER ITEMS OR SERVICES - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",4,0,2100,1)="006-4;""(006) OCULAR CONFORMERS - TOTAL LABOR COST"""
^DIE(254,"DIAB",4,0,2100,2)="010-3;""(010) PLASTIC HANDS, FULL OR PARTIAL - NUMBER ITEMS"""
^DIE(254,"DIAB",4,0,2100,5)="020-3;""(020) SKULL PLATES - SC PATIENTS SERVED"""
^DIE(254,"DIAB",4,0,2100,6)="024-4;""(024) SKULL PLATES - TOTAL LABOR COST"""
^DIE(254,"DIAB",4,0,2100,7)="029-3;""(029) FACE MASKS, RADIO THERAPY - SC PATIENTS SERVED"""
^DIE(254,"DIAB",4,0,2100,8)="033-4;""(033) FACE MASKS, RADIO THERAPY - TOTAL LABOR COST"""
^DIE(254,"DIAB",4,0,2100,10)="040-3;""(040) TRACHEAL APPLIANCES - MATERIAL COST"""
^DIE(254,"DIAB",4,0,2100,11)="044-3;""(044) TRACHEAL APPLIANCES - HOURS LABOR - BACKLOG"""
^DIE(254,"DIAB",4,0,2100,12)="048-3;""(048) OTHER NEW ITEMS - NSC PATIENTS SERVED"""
^DIE(254,"DIAB",4,0,2100,13)="052-2;""(052) OTHER NEW ITEMS - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",4,0,2100,14)="056-3;""(056) REPAIRS TO APPLIANCES - SC PATIENTS SERVED"""
^DIE(254,"DIAB",4,0,2100,15)="060-4;""(060) REPAIRS TO APPLIANCES - TOTAL LABOR COST"""
^DIE(254,"DIAB",4,0,2100,17)="067-3;""(067) OTHER ITEMS OR SERVICES - MATERIAL COST"""
^DIE(254,"DIAB",5,0,2100,6)="025-2;""(025) SKULL PLATES - NUMBER ITEMS - BACKLOG"""
^DIE(254,"DIAB",9,0,2100,0)="001-3;""(001) OCULAR CONFORMERS - NUMBER ITEMS"""
^DIE(254,"DIAB",10,0,2100,0)="002-3;""(002) OCULAR CONFORMERS - SC PATIENTS SERVED"""
^DIE(254,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) OCULAR CONFORMERS - NUMBER ITEMS~;53.002(002) OCULAR CONFORMERS - SC PATIENTS SERVED~;"
^DIE(254,"DR",1,2100,1)="53.003(003) OCULAR CONFORMERS - NSC PATIENTS SERVED~;53.004(004) OCULAR CONFORMERS - MATERIAL COST~;54.005(005) OCULAR CONFORMERS - HOURS LABOR USED~;54.006(006) OCULAR CONFORMERS - TOTAL LABOR COST~;"
^DIE(254,"DR",1,2100,2)="57.007(007) OCULAR CONFORMERS - NUMBER ITEMS - BACKLOG~;53.008(008) OCULAR CONFORMERS - HOURS LABOR - BACKLOG~;53.009(009) OCULAR CONFORMERS - TOTAL COST CHARGED - BACKLOG~;53.01(010) PLASTIC HANDS, FULL OR PARTIAL - NUMBER ITEMS~;"
^DIE(254,"DR",1,2100,3)="53.011(011) PLASTIC HANDS, FULL OR PARTIAL - SC PATIENTS SERVED~;53.012(012) PLASTIC HANDS, FULL OR PARTIAL - NSC PATIENTS SERVED~;53.013(013) PLASTIC HANDS, FULL OR PARTIAL - MATERIAL COST~;"
^DIE(254,"DR",1,2100,4)="54.014(014) PLASTIC HANDS, FULL OR PARTIAL - HOURS LABOR USED~;54.015(015) PLASTIC HANDS, FULL OR PARTIAL - TOTAL LABOR COST~;57.016(016) PLASTIC HANDS, FULL OR PARTIAL - NUMBER ITEMS - BACKLOG~;"
^DIE(254,"DR",1,2100,5)="53.017(017) PLASTIC HANDS, FULL OR PARTIAL - HOURS LABOR - BACKLOG~;53.018(018) PLASTIC HANDS, FULL OR PARTIAL - TOTAL COST CHARGED - BACKLOG~;53.019(019) SKULL PLATES - NUMBER ITEMS~;53.02(020) SKULL PLATES - SC PATIENTS SERVED~;"
^DIE(254,"DR",1,2100,6)="53.021(021) SKULL PLATES - NSC PATIENTS SERVED~;53.022(022) SKULL PLATES - MATERIAL COST~;54.023(023) SKULL PLATES - HOURS LABOR USED~;54.024(024) SKULL PLATES - TOTAL LABOR COST~;57.025(025) SKULL PLATES - NUMBER ITEMS - BACKLOG~;"
^DIE(254,"DR",1,2100,7)="53.026(026) SKULL PLATES - HOURS LABOR - BACKLOG~;53.027(027) SKULL PLATES - TOTAL COST CHARGED - BACKLOG~;53.028(028) FACE MASKS, RADIO THERAPY - NUMBER ITEMS~;53.029(029) FACE MASKS, RADIO THERAPY - SC PATIENTS SERVED~;"
^DIE(254,"DR",1,2100,8)="53.03(030) FACE MASKS, RADIO THERAPY - NSC PATIENTS SERVED~;53.031(031) FACE MASKS, RADIO THERAPY - MATERIAL COST~;54.032(032) FACE MASKS, RADIO THERAPY - HOURS LABOR USED~;54.033(033) FACE MASKS, RADIO THERAPY - TOTAL LABOR COST~;"
^DIE(254,"DR",1,2100,9)="57.034(034) FACE MASKS, RADIO THERAPY - NUMBER ITEMS - BACKLOG~;53.035(035) FACE MASKS, RADIO THERAPY - HOURS LABOR - BACKLOG~;53.036(036) FACE MASKS, RADIO THERAPY - TOTAL COST CHARGED - BACKLOG~;"
^DIE(254,"DR",1,2100,10)="53.037(037) TRACHEAL APPLIANCES - NUMBER ITEMS~;53.038(038) TRACHEAL APPLIANCES - SC PATIENTS SERVED~;53.039(039) TRACHEAL APPLIANCES - NSC PATIENTS SERVED~;53.04(040) TRACHEAL APPLIANCES - MATERIAL COST~;"
^DIE(254,"DR",1,2100,11)="54.041(041) TRACHEAL APPLIANCES - HOURS LABOR USED~;54.042(042) TRACHEAL APPLIANCES - TOTAL LABOR COST~;57.043(043) TRACHEAL APPLIANCES - NUMBER ITEMS - BACKLOG~;53.044(044) TRACHEAL APPLIANCES - HOURS LABOR - BACKLOG~;"
^DIE(254,"DR",1,2100,12)="53.045(045) TRACHEAL APPLIANCES - TOTAL COST CHARGED - BACKLOG~;53.046(046) OTHER NEW ITEMS - NUMBER ITEMS~;53.047(047) OTHER NEW ITEMS - SC PATIENTS SERVED~;53.048(048) OTHER NEW ITEMS - NSC PATIENTS SERVED~;"
^DIE(254,"DR",1,2100,13)="53.049(049) OTHER NEW ITEMS - MATERIAL COST~;54.05(050) OTHER NEW ITEMS - HOURS LABOR USED~;54.051(051) OTHER NEW ITEMS - TOTAL LABOR COST~;57.052(052) OTHER NEW ITEMS - NUMBER ITEMS - BACKLOG~;"
^DIE(254,"DR",1,2100,14)="53.053(053) OTHER NEW ITEMS - HOURS LABOR - BACKLOG~;53.054(054) OTHER NEW ITEMS - TOTAL COST CHARGED - BACKLOG~;53.055(055) REPAIRS TO APPLIANCES - NUMBER ITEMS~;53.056(056) REPAIRS TO APPLIANCES - SC PATIENTS SERVED~;"
^DIE(254,"DR",1,2100,15)="53.057(057) REPAIRS TO APPLIANCES - NSC PATIENTS SERVED~;53.058(058) REPAIRS TO APPLIANCES - MATERIAL COST~;54.059(059) REPAIRS TO APPLIANCES - HOURS LABOR USED~;54.06(060) REPAIRS TO APPLIANCES - TOTAL LABOR COST~;"
^DIE(254,"DR",1,2100,16)="57.061(061) REPAIRS TO APPLIANCES - NUMBER ITEMS - BACKLOG~;53.062(062) REPAIRS TO APPLIANCES - HOURS LABOR - BACKLOG~;53.063(063) REPAIRS TO APPLIANCES - TOTAL COST CHARGED - BACKLOG~;"
^DIE(254,"DR",1,2100,17)="53.064(064) OTHER ITEMS OR SERVICES - NUMBER ITEMS~;53.065(065) OTHER ITEMS OR SERVICES - SC PATIENTS SERVED~;53.066(066) OTHER ITEMS OR SERVICES - NSC PATIENTS SERVED~;53.067(067) OTHER ITEMS OR SERVICES - MATERIAL COST~;"
^DIE(254,"DR",1,2100,18)="54.068(068) OTHER ITEMS OR SERVICES - HOURS LABOR USED~;54.069(069) OTHER ITEMS OR SERVICES - TOTAL LABOR COST~;57.07(070) OTHER ITEMS OR SERVICES - NUMBER ITEMS - BACKLOG~;"
^DIE(254,"DR",1,2100,19)="53.071(071) OTHER ITEMS OR SERVICES - HOURS LABOR - BACKLOG~;53.072(072) OTHER ITEMS OR SERVICES - TOTAL COST CHARGED - BACKLOG~;99///^S X=""$"";"
^DIE(255,0)="RMPR AMS5 AMIS 134^2900617.1438^^2100"
^DIE(255,"DIAB",1,0,2100,1)="003-3;""(003) ITEM NO. 1 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",1,0,2100,2)="008-4;""(008) ITEM NO. 2 - STATION NUMBER"""
^DIE(255,"DIAB",1,0,2100,3)="013-4;""(013) ITEM NO. 2 - HOURS LABOR USED"""
^DIE(255,"DIAB",1,0,2100,4)="018-3;""(018) ITEM NO. 3 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",1,0,2100,5)="023-4;""(023) ITEM NO. 4 - NUMBER ITEMS"""
^DIE(255,"DIAB",1,0,2100,6)="028-4;""(028) ITEM NO. 4 - TOTAL LABOR COST"""
^DIE(255,"DIAB",1,0,2100,7)="033-3;""(033) ITEM NO. 5 - MATERIAL COST"""
^DIE(255,"DIAB",1,0,2100,8)="038-3;""(038) ITEM NO. 6 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",1,0,2100,9)="043-4;""(043) ITEM NO. 7 - STATION NUMBER"""
^DIE(255,"DIAB",1,0,2100,10)="048-4;""(048) ITEM NO. 7 - HOURS LABOR USED"""
^DIE(255,"DIAB",1,0,2100,11)="053-3;""(053) ITEM NO. 8 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",1,0,2100,12)="058-4;""(058) ITEM NO. 9 - NUMBER ITEMS"""
^DIE(255,"DIAB",1,0,2100,13)="063-4;""(063) ITEM NO. 9 - TOTAL LABOR COST"""
^DIE(255,"DIAB",1,0,2100,14)="068-3;""(068) ITEM NO. 10 - MATERIAL COST"""
^DIE(255,"DIAB",2,0,2100,1)="004-3;""(004) ITEM NO. 1 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",2,0,2100,2)="009-4;""(009) ITEM NO. 2 - NUMBER ITEMS"""
^DIE(255,"DIAB",2,0,2100,3)="014-4;""(014) ITEM NO. 2 - TOTAL LABOR COST"""
^DIE(255,"DIAB",2,0,2100,4)="019-3;""(019) ITEM NO. 3 - MATERIAL COST"""
^DIE(255,"DIAB",2,0,2100,5)="024-3;""(024) ITEM NO. 4 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",2,0,2100,6)="029-4;""(029) ITEM NO. 5 - STATION NUMBER"""
^DIE(255,"DIAB",2,0,2100,7)="034-4;""(034) ITEM NO. 5 - HOURS LABOR USED"""
^DIE(255,"DIAB",2,0,2100,8)="039-3;""(039) ITEM NO. 6 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",2,0,2100,9)="044-4;""(044) ITEM NO. 7 - NUMBER ITEMS"""
^DIE(255,"DIAB",2,0,2100,10)="049-4;""(049) ITEM NO. 7 - TOTAL LABOR COST"""
^DIE(255,"DIAB",2,0,2100,11)="054-3;""(054) ITEM NO. 8 - MATERIAL COST"""
^DIE(255,"DIAB",2,0,2100,12)="059-3;""(059) ITEM NO. 9 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",2,0,2100,13)="064-4;""(064) ITEM NO. 10 - STATION NUMBER"""
^DIE(255,"DIAB",2,0,2100,14)="069-4;""(069) ITEM NO. 10 - HOURS LABOR USED"""
^DIE(255,"DIAB",3,0,2100,1)="005-3;""(005) ITEM NO. 1 - MATERIAL COST"""
^DIE(255,"DIAB",3,0,2100,2)="010-3;""(010) ITEM NO. 2 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",3,0,2100,3)="015-4;""(015) ITEM NO. 3 - STATION NUMBER"""
^DIE(255,"DIAB",3,0,2100,4)="020-4;""(020) ITEM NO. 3 - HOURS LABOR USED"""
^DIE(255,"DIAB",3,0,2100,5)="025-3;""(025) ITEM NO. 4 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",3,0,2100,6)="030-4;""(030) ITEM NO. 5 - NUMBER ITEMS"""
^DIE(255,"DIAB",3,0,2100,7)="035-4;""(035) ITEM NO. 5 - TOTAL LABOR COST"""
^DIE(255,"DIAB",3,0,2100,8)="040-3;""(040) ITEM NO. 6 - MATERIAL COST"""
^DIE(255,"DIAB",3,0,2100,9)="045-3;""(045) ITEM NO. 7 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",3,0,2100,10)="050-4;""(050) ITEM NO. 8 - STATION NUMBER"""
^DIE(255,"DIAB",3,0,2100,11)="055-4;""(055) ITEM NO. 8 - HOURS LABOR USED"""
^DIE(255,"DIAB",3,0,2100,12)="060-3;""(060) ITEM NO. 9 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",3,0,2100,13)="065-4;""(065) ITEM NO. 10 - NUMBER ITEMS"""
^DIE(255,"DIAB",3,0,2100,14)="070-4;""(070) ITEM NO. 10 - TOTAL LABOR COST"""
^DIE(255,"DIAB",4,0,2100,1)="006-4;""(006) ITEM NO. 1 - HOURS LABOR USED"""
^DIE(255,"DIAB",4,0,2100,2)="011-3;""(011) ITEM NO. 2 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",4,0,2100,3)="016-4;""(016) ITEM NO. 3 - NUMBER ITEMS"""
^DIE(255,"DIAB",4,0,2100,4)="021-4;""(021) ITEM NO. 3 - TOTAL LABOR COST"""
^DIE(255,"DIAB",4,0,2100,5)="026-3;""(026) ITEM NO. 4 - MATERIAL COST"""
^DIE(255,"DIAB",4,0,2100,6)="031-3;""(031) ITEM NO. 5 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",4,0,2100,7)="036-4;""(036) ITEM NO. 6 - STATION NUMBER"""
^DIE(255,"DIAB",4,0,2100,8)="041-4;""(041) ITEM NO. 6 - HOURS LABOR USED"""
^DIE(255,"DIAB",4,0,2100,9)="046-3;""(046) ITEM NO. 7 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",4,0,2100,10)="051-4;""(051) ITEM NO. 8 - NUMBER ITEMS"""
^DIE(255,"DIAB",4,0,2100,11)="056-4;""(056) ITEM NO. 8 - TOTAL LABOR COST"""
^DIE(255,"DIAB",4,0,2100,12)="061-3;""(061) ITEM NO. 9 - MATERIAL COST"""
^DIE(255,"DIAB",4,0,2100,13)="066-3;""(066) ITEM NO. 10 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",5,0,2100,1)="007-4;""(007) ITEM NO. 1 - TOTAL LABOR COST"""
^DIE(255,"DIAB",5,0,2100,2)="012-3;""(012) ITEM NO. 2 - MATERIAL COST"""
^DIE(255,"DIAB",5,0,2100,3)="017-3;""(017) ITEM NO. 3 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",5,0,2100,4)="022-4;""(022) ITEM NO. 4 - STATION NUMBER"""
^DIE(255,"DIAB",5,0,2100,5)="027-4;""(027) ITEM NO. 4 - HOURS LABOR USED"""
^DIE(255,"DIAB",5,0,2100,6)="032-3;""(032) ITEM NO. 5 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",5,0,2100,7)="037-4;""(037) ITEM NO. 6 - NUMBER ITEMS"""
^DIE(255,"DIAB",5,0,2100,8)="042-4;""(042) ITEM NO. 6 - TOTAL LABOR COST"""
^DIE(255,"DIAB",5,0,2100,9)="047-3;""(047) ITEM NO. 7 - MATERIAL COST"""
^DIE(255,"DIAB",5,0,2100,10)="052-3;""(052) ITEM NO. 8 - SC PATIENTS SERVED"""
^DIE(255,"DIAB",5,0,2100,11)="057-4;""(057) ITEM NO. 9 - STATION NUMBER"""
^DIE(255,"DIAB",5,0,2100,12)="062-4;""(062) ITEM NO. 9 - HOURS LABOR USED"""
^DIE(255,"DIAB",5,0,2100,13)="067-3;""(067) ITEM NO. 10 - NSC PATIENTS SERVED"""
^DIE(255,"DIAB",9,0,2100,0)="001-4;""(001) ITEM NO. 1 - STATION NUMBER"""
^DIE(255,"DIAB",10,0,2100,0)="002-4;""(002) ITEM NO. 1 - NUMBER ITEMS"""
^DIE(255,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) ITEM NO. 1 - STATION NUMBER~;54.002(002) ITEM NO. 1 - NUMBER ITEMS~;"
^DIE(255,"DR",1,2100,1)="53.003(003) ITEM NO. 1 - SC PATIENTS SERVED~;53.004(004) ITEM NO. 1 - NSC PATIENTS SERVED~;53.005(005) ITEM NO. 1 - MATERIAL COST~;54.006(006) ITEM NO. 1 - HOURS LABOR USED~;54.007(007) ITEM NO. 1 - TOTAL LABOR COST~;"
^DIE(255,"DR",1,2100,2)="54.008(008) ITEM NO. 2 - STATION NUMBER~;54.009(009) ITEM NO. 2 - NUMBER ITEMS~;53.01(010) ITEM NO. 2 - SC PATIENTS SERVED~;53.011(011) ITEM NO. 2 - NSC PATIENTS SERVED~;53.012(012) ITEM NO. 2 - MATERIAL COST~;"
^DIE(255,"DR",1,2100,3)="54.013(013) ITEM NO. 2 - HOURS LABOR USED~;54.014(014) ITEM NO. 2 - TOTAL LABOR COST~;54.015(015) ITEM NO. 3 - STATION NUMBER~;54.016(016) ITEM NO. 3 - NUMBER ITEMS~;53.017(017) ITEM NO. 3 - SC PATIENTS SERVED~;"
^DIE(255,"DR",1,2100,4)="53.018(018) ITEM NO. 3 - NSC PATIENTS SERVED~;53.019(019) ITEM NO. 3 - MATERIAL COST~;54.02(020) ITEM NO. 3 - HOURS LABOR USED~;54.021(021) ITEM NO. 3 - TOTAL LABOR COST~;54.022(022) ITEM NO. 4 - STATION NUMBER~;"
^DIE(255,"DR",1,2100,5)="54.023(023) ITEM NO. 4 - NUMBER ITEMS~;53.024(024) ITEM NO. 4 - SC PATIENTS SERVED~;53.025(025) ITEM NO. 4 - NSC PATIENTS SERVED~;53.026(026) ITEM NO. 4 - MATERIAL COST~;54.027(027) ITEM NO. 4 - HOURS LABOR USED~;"
^DIE(255,"DR",1,2100,6)="54.028(028) ITEM NO. 4 - TOTAL LABOR COST~;54.029(029) ITEM NO. 5 - STATION NUMBER~;54.03(030) ITEM NO. 5 - NUMBER ITEMS~;53.031(031) ITEM NO. 5 - SC PATIENTS SERVED~;53.032(032) ITEM NO. 5 - NSC PATIENTS SERVED~;"
^DIE(255,"DR",1,2100,7)="53.033(033) ITEM NO. 5 - MATERIAL COST~;54.034(034) ITEM NO. 5 - HOURS LABOR USED~;54.035(035) ITEM NO. 5 - TOTAL LABOR COST~;54.036(036) ITEM NO. 6 - STATION NUMBER~;54.037(037) ITEM NO. 6 - NUMBER ITEMS~;"
^DIE(255,"DR",1,2100,8)="53.038(038) ITEM NO. 6 - SC PATIENTS SERVED~;53.039(039) ITEM NO. 6 - NSC PATIENTS SERVED~;53.04(040) ITEM NO. 6 - MATERIAL COST~;54.041(041) ITEM NO. 6 - HOURS LABOR USED~;54.042(042) ITEM NO. 6 - TOTAL LABOR COST~;"
^DIE(255,"DR",1,2100,9)="54.043(043) ITEM NO. 7 - STATION NUMBER~;54.044(044) ITEM NO. 7 - NUMBER ITEMS~;53.045(045) ITEM NO. 7 - SC PATIENTS SERVED~;53.046(046) ITEM NO. 7 - NSC PATIENTS SERVED~;53.047(047) ITEM NO. 7 - MATERIAL COST~;"
^DIE(255,"DR",1,2100,10)="54.048(048) ITEM NO. 7 - HOURS LABOR USED~;54.049(049) ITEM NO. 7 - TOTAL LABOR COST~;54.05(050) ITEM NO. 8 - STATION NUMBER~;54.051(051) ITEM NO. 8 - NUMBER ITEMS~;53.052(052) ITEM NO. 8 - SC PATIENTS SERVED~;"
^DIE(255,"DR",1,2100,11)="53.053(053) ITEM NO. 8 - NSC PATIENTS SERVED~;53.054(054) ITEM NO. 8 - MATERIAL COST~;54.055(055) ITEM NO. 8 - HOURS LABOR USED~;54.056(056) ITEM NO. 8 - TOTAL LABOR COST~;54.057(057) ITEM NO. 9 - STATION NUMBER~;"
^DIE(255,"DR",1,2100,12)="54.058(058) ITEM NO. 9 - NUMBER ITEMS~;53.059(059) ITEM NO. 9 - SC PATIENTS SERVED~;53.06(060) ITEM NO. 9 - NSC PATIENTS SERVED~;53.061(061) ITEM NO. 9 - MATERIAL COST~;54.062(062) ITEM NO. 9 - HOURS LABOR USED~;"
^DIE(255,"DR",1,2100,13)="54.063(063) ITEM NO. 9 - TOTAL LABOR COST~;54.064(064) ITEM NO. 10 - STATION NUMBER~;54.065(065) ITEM NO. 10 - NUMBER ITEMS~;53.066(066) ITEM NO. 10 - SC PATIENTS SERVED~;53.067(067) ITEM NO. 10 - NSC PATIENTS SERVED~;"
^DIE(255,"DR",1,2100,14)="53.068(068) ITEM NO. 10 - MATERIAL COST~;54.069(069) ITEM NO. 10 - HOURS LABOR USED~;54.07(070) ITEM NO. 10 - TOTAL LABOR COST~;99///^S X=""$"";"
^DIE(256,0)="RMPR AMS5 AMIS 135^2900617.1358^^2100^^^2900814"
^DIE(256,"DIAB",1,0,2100,1)="003-3;""(003) ARCH SUPPORTS (EACH) - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",1,0,2100,2)="007-2;""(007) ARCH SUPPORTS (EACH) - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,3)="010-4;""(010) ARTIFICIAL ARMS, ALL TYPES - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,4)="013-4;""(013) ARTIFICIAL ARMS, ALL TYPES - MATERIAL COST"""
^DIE(256,"DIAB",1,0,2100,5)="016-2;""(016) ARTIFICIAL ARMS, ALL TYPES - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,6)="019-4;""(019) ART. LEGS, PERM, ALL TYPES - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,7)="022-4;""(022) ART. LEGS, PERM, ALL TYPES - MATERIAL COST"""
^DIE(256,"DIAB",1,0,2100,8)="025-2;""(025) ART. LEGS, PERM, ALL TYPES - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,9)="028-4;""(028) ART. LEGS, ABOVE-KNEE, TEMP - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,10)="031-4;""(031) ART. LEGS, ABOVE-KNEE, TEMP - MATERIAL COST"""
^DIE(256,"DIAB",1,0,2100,11)="034-2;""(034) ART. LEGS, ABOVE-KNEE, TEMP - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,12)="037-4;""(037) ART. LEGS, BELOW-KNEE, TEMP - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,13)="040-4;""(040) ART. LEGS, BELOW-KNEE, TEMP - MATERIAL COST"""
^DIE(256,"DIAB",1,0,2100,14)="043-2;""(043) ART. LEGS, BELOW-KNEE, TEMP - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,15)="046-4;""(046) BELTS, CUSTOM - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,16)="051-5;""(051) BELTS, CUSTOM - TOTAL LABOR COST"""
^DIE(256,"DIAB",1,0,2100,17)="055-4;""(055) BELTS (PREFAB) - NUMBER ITEMS"""
^DIE(256,"DIAB",1,0,2100,18)="059-4;""(059) BELTS (PREFAB) - HOURS LABOR USED"""
^DIE(256,"DIAB",1,0,2100,19)="063-3;""(063) BELTS (PREFAB) - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",1,0,2100,20)="067-4;""(067) BRACES, ANKLE - MATERIAL COST"""
^DIE(256,"DIAB",1,0,2100,21)="071-3;""(071) BRACES, ANKLE - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,1)="004-4;""(004) ARCH SUPPORTS (EACH) - MATERIAL COST"""
^DIE(256,"DIAB",2,0,2100,2)="008-3;""(008) ARCH SUPPORTS (EACH) - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,3)="011-3;""(011) ARTIFICIAL ARMS, ALL TYPES - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,4)="014-4;""(014) ARTIFICIAL ARMS, ALL TYPES - HOURS LABOR USED"""
^DIE(256,"DIAB",2,0,2100,5)="017-3;""(017) ARTIFICIAL ARMS, ALL TYPES - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,6)="020-3;""(020) ART. LEGS, PERM, ALL TYPES - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,7)="023-4;""(023) ART. LEGS, PERM, ALL TYPES - HOURS LABOR USED"""
^DIE(256,"DIAB",2,0,2100,8)="026-3;""(026) ART. LEGS, PERM, ALL TYPES - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,9)="029-3;""(029) ART. LEGS, ABOVE-KNEE, TEMP - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,10)="032-4;""(032) ART. LEGS, ABOVE-KNEE, TEMP - HOURS LABOR USED"""
^DIE(256,"DIAB",2,0,2100,11)="035-3;""(035) ART. LEGS, ABOVE-KNEE, TEMP - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,12)="038-3;""(038) ART. LEGS, BELOW-KNEE, TEMP - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,13)="041-4;""(041) ART. LEGS, BELOW-KNEE, TEMP - HOURS LABOR USED"""
^DIE(256,"DIAB",2,0,2100,14)="044-3;""(044) ART. LEGS, BELOW-KNEE, TEMP - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,15)="047-3;""(047) BELTS, CUSTOM - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,16)="052-2;""(052) BELTS, CUSTOM - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",2,0,2100,17)="056-3;""(056) BELTS (PREFAB) - SC PATIENTS SERVED"""
^DIE(256,"DIAB",2,0,2100,18)="060-5;""(060) BELTS (PREFAB) - TOTAL LABOR COST"""
^DIE(256,"DIAB",2,0,2100,19)="064-4;""(064) BRACES, ANKLE - NUMBER ITEMS"""
^DIE(256,"DIAB",2,0,2100,20)="068-4;""(068) BRACES, ANKLE - HOURS LABOR USED"""
^DIE(256,"DIAB",2,0,2100,21)="072-3;""(072) BRACES, ANKLE - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,1)="005-4;""(005) ARCH SUPPORTS (EACH) - HOURS LABOR USED"""
^DIE(256,"DIAB",3,0,2100,2)="009-3;""(009) ARCH SUPPORTS (EACH) - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,3)="012-3;""(012) ARTIFICIAL ARMS, ALL TYPES - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,4)="015-5;""(015) ARTIFICIAL ARMS, ALL TYPES - TOTAL LABOR COST"""
^DIE(256,"DIAB",3,0,2100,5)="018-3;""(018) ARTIFICIAL ARMS, ALL TYPES - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,6)="021-3;""(021) ART. LEGS, PERM, ALL TYPES - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,7)="025-5;""(024) ART. LEGS, PERM, ALL TYPES - TOTAL LABOR COST"""
^DIE(256,"DIAB",3,0,2100,8)="027-3;""(027) ART. LEGS, PERM, ALL TYPES - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,9)="030-3;""(030) ART. LEGS, ABOVE-KNEE, TEMP - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,10)="033-5;""(033) ART. LEGS, ABOVE-KNEE, TEMP - TOTAL LABOR COST"""
^DIE(256,"DIAB",3,0,2100,11)="036-3;""(036) ART. LEGS, ABOVE-KNEE, TEMP - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,12)="039-3;""(039) ART. LEGS, BELOW-KNEE, TEMP - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,13)="042-5;""(042) ART. LEGS, BELOW-KNEE, TEMP - TOTAL LABOR COST"""
^DIE(256,"DIAB",3,0,2100,14)="045-3;""(045) ART. LEGS, BELOW-KNEE, TEMP - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,15)="048-3;""(048) BELTS, CUSTOM - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,16)="053-3;""(053) BELTS, CUSTOM - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,17)="057-3;""(057) BELTS (PREFAB) - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,18)="061-2;""(061) BELTS (PREFAB) - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",3,0,2100,19)="065-3;""(065) BRACES, ANKLE - SC PATIENTS SERVED"""
^DIE(256,"DIAB",3,0,2100,20)="069-5;""(069) BRACES, ANKLE - TOTAL LABOR COST"""
^DIE(256,"DIAB",4,0,2100,1)="006-5;""(006) ARCH SUPPORTS (EACH) - TOTAL LABOR COST"""
^DIE(256,"DIAB",4,0,2100,15)="049-4;""(049) BELTS, CUSTOM - MATERIAL COST"""
^DIE(256,"DIAB",4,0,2100,16)="054-3;""(054) BELTS, CUSTOM - TOTAL COST CHARGED - BACKLOG"""
^DIE(256,"DIAB",4,0,2100,17)="058-4;""(058) BELTS (PREFAB) - MATERIAL COST"""
^DIE(256,"DIAB",4,0,2100,18)="062-3;""(062) BELTS (PREFAB) - HOURS LABOR - BACKLOG"""
^DIE(256,"DIAB",4,0,2100,19)="066-3;""(066) BRACES, ANKLE - NSC PATIENTS SERVED"""
^DIE(256,"DIAB",4,0,2100,20)="070-2;""(070) BRACES, ANKLE - NUMBER ITEMS - BACKLOG"""
^DIE(256,"DIAB",5,0,2100,15)="050-4;""(050) BELTS, CUSTOM - HOURS LABOR USED"""
^DIE(256,"DIAB",9,0,2100,0)="001-4;""(001) ARCH SUPPORTS (EACH) - NUMBER ITEMS"""
^DIE(256,"DIAB",10,0,2100,0)="002-3;""(002) ARCH SUPPORTS (EACH) - SC PATIENTS SERVED"""
^DIE(256,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) ARCH SUPPORTS (EACH) - NUMBER ITEMS~;53.002(002) ARCH SUPPORTS (EACH) - SC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,1)="53.003(003) ARCH SUPPORTS (EACH) - NSC PATIENTS SERVED~;54.004(004) ARCH SUPPORTS (EACH) - MATERIAL COST~;54.005(005) ARCH SUPPORTS (EACH) - HOURS LABOR USED~;55.006(006) ARCH SUPPORTS (EACH) - TOTAL LABOR COST~;"
^DIE(256,"DR",1,2100,2)="57.007(007) ARCH SUPPORTS (EACH) - NUMBER ITEMS - BACKLOG~;53.008(008) ARCH SUPPORTS (EACH) - HOURS LABOR - BACKLOG~;53.009(009) ARCH SUPPORTS (EACH) - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,3)="54.01(010) ARTIFICIAL ARMS, ALL TYPES - NUMBER ITEMS~;53.011(011) ARTIFICIAL ARMS, ALL TYPES - SC PATIENTS SERVED~;53.012(012) ARTIFICIAL ARMS, ALL TYPES - NSC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,4)="54.013(013) ARTIFICIAL ARMS, ALL TYPES - MATERIAL COST~;54.014(014) ARTIFICIAL ARMS, ALL TYPES - HOURS LABOR USED~;55.015(015) ARTIFICIAL ARMS, ALL TYPES - TOTAL LABOR COST~;"
^DIE(256,"DR",1,2100,5)="57.016(016) ARTIFICIAL ARMS, ALL TYPES - NUMBER ITEMS - BACKLOG~;53.017(017) ARTIFICIAL ARMS, ALL TYPES - HOURS LABOR - BACKLOG~;53.018(018) ARTIFICIAL ARMS, ALL TYPES - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,6)="54.019(019) ART. LEGS, PERM, ALL TYPES - NUMBER ITEMS~;53.02(020) ART. LEGS, PERM, ALL TYPES - SC PATIENTS SERVED~;53.021(021) ART. LEGS, PERM, ALL TYPES - NSC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,7)="54.022(022) ART. LEGS, PERM, ALL TYPES - MATERIAL COST~;54.023(023) ART. LEGS, PERM, ALL TYPES - HOURS LABOR USED~;55.025(024) ART. LEGS, PERM, ALL TYPES - TOTAL LABOR COST~;"
^DIE(256,"DR",1,2100,8)="57.025(025) ART. LEGS, PERM, ALL TYPES - NUMBER ITEMS - BACKLOG~;53.026(026) ART. LEGS, PERM, ALL TYPES - HOURS LABOR - BACKLOG~;53.027(027) ART. LEGS, PERM, ALL TYPES - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,9)="54.028(028) ART. LEGS, ABOVE-KNEE, TEMP - NUMBER ITEMS~;53.029(029) ART. LEGS, ABOVE-KNEE, TEMP - SC PATIENTS SERVED~;53.03(030) ART. LEGS, ABOVE-KNEE, TEMP - NSC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,10)="54.031(031) ART. LEGS, ABOVE-KNEE, TEMP - MATERIAL COST~;54.032(032) ART. LEGS, ABOVE-KNEE, TEMP - HOURS LABOR USED~;55.033(033) ART. LEGS, ABOVE-KNEE, TEMP - TOTAL LABOR COST~;"
^DIE(256,"DR",1,2100,11)="57.034(034) ART. LEGS, ABOVE-KNEE, TEMP - NUMBER ITEMS - BACKLOG~;53.035(035) ART. LEGS, ABOVE-KNEE, TEMP - HOURS LABOR - BACKLOG~;53.036(036) ART. LEGS, ABOVE-KNEE, TEMP - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,12)="54.037(037) ART. LEGS, BELOW-KNEE, TEMP - NUMBER ITEMS~;53.038(038) ART. LEGS, BELOW-KNEE, TEMP - SC PATIENTS SERVED~;53.039(039) ART. LEGS, BELOW-KNEE, TEMP - NSC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,13)="54.04(040) ART. LEGS, BELOW-KNEE, TEMP - MATERIAL COST~;54.041(041) ART. LEGS, BELOW-KNEE, TEMP - HOURS LABOR USED~;55.042(042) ART. LEGS, BELOW-KNEE, TEMP - TOTAL LABOR COST~;"
^DIE(256,"DR",1,2100,14)="57.043(043) ART. LEGS, BELOW-KNEE, TEMP - NUMBER ITEMS - BACKLOG~;53.044(044) ART. LEGS, BELOW-KNEE, TEMP - HOURS LABOR - BACKLOG~;53.045(045) ART. LEGS, BELOW-KNEE, TEMP - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,15)="54.046(046) BELTS, CUSTOM - NUMBER ITEMS~;53.047(047) BELTS, CUSTOM - SC PATIENTS SERVED~;53.048(048) BELTS, CUSTOM - NSC PATIENTS SERVED~;54.049(049) BELTS, CUSTOM - MATERIAL COST~;54.05(050) BELTS, CUSTOM - HOURS LABOR USED~;"
^DIE(256,"DR",1,2100,16)="55.051(051) BELTS, CUSTOM - TOTAL LABOR COST~;57.052(052) BELTS, CUSTOM - NUMBER ITEMS - BACKLOG~;53.053(053) BELTS, CUSTOM - HOURS LABOR - BACKLOG~;53.054(054) BELTS, CUSTOM - TOTAL COST CHARGED - BACKLOG~;"
^DIE(256,"DR",1,2100,17)="54.055(055) BELTS (PREFAB) - NUMBER ITEMS~;53.056(056) BELTS (PREFAB) - SC PATIENTS SERVED~;53.057(057) BELTS (PREFAB) - NSC PATIENTS SERVED~;54.058(058) BELTS (PREFAB) - MATERIAL COST~;"
^DIE(256,"DR",1,2100,18)="54.059(059) BELTS (PREFAB) - HOURS LABOR USED~;55.06(060) BELTS (PREFAB) - TOTAL LABOR COST~;57.061(061) BELTS (PREFAB) - NUMBER ITEMS - BACKLOG~;53.062(062) BELTS (PREFAB) - HOURS LABOR - BACKLOG~;"
^DIE(256,"DR",1,2100,19)="53.063(063) BELTS (PREFAB) - TOTAL COST CHARGED - BACKLOG~;54.064(064) BRACES, ANKLE - NUMBER ITEMS~;53.065(065) BRACES, ANKLE - SC PATIENTS SERVED~;53.066(066) BRACES, ANKLE - NSC PATIENTS SERVED~;"
^DIE(256,"DR",1,2100,20)="54.067(067) BRACES, ANKLE - MATERIAL COST~;54.068(068) BRACES, ANKLE - HOURS LABOR USED~;55.069(069) BRACES, ANKLE - TOTAL LABOR COST~;57.07(070) BRACES, ANKLE - NUMBER ITEMS - BACKLOG~;"
^DIE(256,"DR",1,2100,21)="53.071(071) BRACES, ANKLE - HOURS LABOR - BACKLOG~;53.072(072) BRACES, ANKLE - TOTAL COST CHARGED - BACKLOG~;99///^S X=""$"";"
^DIE(257,0)="RMPR AMS5 AMIS 136^2900617.1406^^2100"
^DIE(257,"DIAB",1,0,2100,1)="003-3;""(003) BRACES, CERVICAL - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",1,0,2100,2)="007-2;""(007) BRACES, CERVICAL - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,3)="011-3;""(011) BRACES, LEG, ABOVE-KNEE - SC PATIENTS SERVED"""
^DIE(257,"DIAB",1,0,2100,4)="015-5;""(015) BRACES, LEG, ABOVE-KNEE - TOTAL LABOR COST"""
^DIE(257,"DIAB",1,0,2100,5)="018-3;""(018) BRACES, LEG, ABOVE-KNEE - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,6)="022-4;""(022) BRACES, SPINAL - MATERIAL COST"""
^DIE(257,"DIAB",1,0,2100,7)="026-3;""(026) BRACES, SPINAL - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,8)="030-3;""(030) BRACES, ALL OTHER - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",1,0,2100,9)="034-2;""(034) BRACES, ALL OTHER - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,10)="038-3;""(038) CERVICAL COLLARS - SC PATIENTS SERVED"""
^DIE(257,"DIAB",1,0,2100,11)="042-5;""(042) CERVICAL COLLARS - TOTAL LABOR COST"""
^DIE(257,"DIAB",1,0,2100,12)="046-4;""(046) ELASTIC HOSE (EA.) - NUMBER ITEMS"""
^DIE(257,"DIAB",1,0,2100,13)="050-4;""(050) ELASTIC HOSE (EA.) - HOURS LABOR USED"""
^DIE(257,"DIAB",1,0,2100,14)="054-3;""(054) ELASTIC HOSE (EA.) - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,15)="058-4;""(058) SHOE MODIFICATIONS - MATERIAL COST"""
^DIE(257,"DIAB",1,0,2100,16)="062-3;""(062) SHOE MODIFICATIONS - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",1,0,2100,17)="066-3;""(066) SHOES, INLAY - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",1,0,2100,18)="071-3;""(071) SHOES, INLAY - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,1)="004-4;""(004) BRACES, CERVICAL - MATERIAL COST"""
^DIE(257,"DIAB",2,0,2100,2)="008-3;""(008) BRACES, CERVICAL - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,3)="012-3;""(012) BRACES, LEG, ABOVE-KNEE - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",2,0,2100,4)="016-2;""(016) BRACES, LEG, ABOVE-KNEE - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,5)="019-4;""(019) BRACES, SPINAL - NUMBER ITEMS"""
^DIE(257,"DIAB",2,0,2100,6)="023-4;""(023) BRACES, SPINAL - HOURS LABOR USED"""
^DIE(257,"DIAB",2,0,2100,7)="027-3;""(027) BRACES, SPINAL - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,8)="031-4;""(031) BRACES, ALL OTHER - MATERIAL COST"""
^DIE(257,"DIAB",2,0,2100,9)="035-3;""(035) BRACES, ALL OTHER - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,10)="039-3;""(039) CERVICAL COLLARS - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",2,0,2100,11)="043-2;""(043) CERVICAL COLLARS - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,12)="047-3;""(047) ELASTIC HOSE (EA.) - SC PATIENTS SERVED"""
^DIE(257,"DIAB",2,0,2100,13)="051-5;""(051) ELASTIC HOSE (EA.) - TOTAL LABOR COST"""
^DIE(257,"DIAB",2,0,2100,14)="055-4;""(055) SHOE MODIFICATIONS - NUMBER ITEMS"""
^DIE(257,"DIAB",2,0,2100,15)="059-4;""(059) SHOE MODIFICATIONS - HOURS LABOR USED"""
^DIE(257,"DIAB",2,0,2100,16)="063-3;""(063) SHOE MODIFICATIONS - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",2,0,2100,17)="067-4;""(067) SHOES, INLAY - MATERIAL COST"""
^DIE(257,"DIAB",2,0,2100,18)="072-3;""(072) SHOES, INLAY - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,1)="005-4;""(005) BRACES, CERVICAL - HOURS LABOR USED"""
^DIE(257,"DIAB",3,0,2100,2)="009-3;""(009) BRACES, CERVICAL - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,3)="013-4;""(013) BRACES, LEG, ABOVE-KNEE - MATERIAL COST"""
^DIE(257,"DIAB",3,0,2100,4)="017-3;""(017) BRACES, LEG, ABOVE-KNEE - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,5)="020-3;""(020) BRACES, SPINAL - SC PATIENTS SERVED"""
^DIE(257,"DIAB",3,0,2100,6)="024-5;""(024) BRACES, SPINAL - TOTAL LABOR COST"""
^DIE(257,"DIAB",3,0,2100,7)="028-4;""(028) BRACES, ALL OTHER - NUMBER ITEMS"""
^DIE(257,"DIAB",3,0,2100,8)="032-4;""(032) BRACES, ALL OTHER - HOURS LABOR USED"""
^DIE(257,"DIAB",3,0,2100,9)="036-3;""(036) BRACES, ALL OTHER - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,10)="040-4;""(040) CERVICAL COLLARS - MATERIAL COST"""
^DIE(257,"DIAB",3,0,2100,11)="044-3;""(044) CERVICAL COLLARS - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,12)="048-3;""(048) ELASTIC HOSE (EA.) - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",3,0,2100,13)="052-2;""(052) ELASTIC HOSE (EA.) - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",3,0,2100,14)="056-3;""(056) SHOE MODIFICATIONS - SC PATIENTS SERVED"""
^DIE(257,"DIAB",3,0,2100,15)="060-5;""(060) SHOE MODIFICATIONS - TOTAL LABOR COST"""
^DIE(257,"DIAB",3,0,2100,16)="064-4;""(064) SHOES, INLAY - NUMBER ITEMS"""
^DIE(257,"DIAB",3,0,2100,17)="068-4;""(068) SHOES, INLAY - HOURS LABOR USED"""
^DIE(257,"DIAB",4,0,2100,1)="006-5;""(006) BRACES, CERVICAL - TOTAL LABOR COST"""
^DIE(257,"DIAB",4,0,2100,2)="010-4;""(010) BRACES, LEG, ABOVE-KNEE - NUMBER ITEMS"""
^DIE(257,"DIAB",4,0,2100,3)="014-4;""(014) BRACES, LEG, ABOVE-KNEE - HOURS LABOR USED"""
^DIE(257,"DIAB",4,0,2100,5)="021-3;""(021) BRACES, SPINAL - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",4,0,2100,6)="025-2;""(025) BRACES, SPINAL - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",4,0,2100,7)="029-3;""(029) BRACES, ALL OTHER - SC PATIENTS SERVED"""
^DIE(257,"DIAB",4,0,2100,8)="033-5;""(033) BRACES, ALL OTHER - TOTAL LABOR COST"""
^DIE(257,"DIAB",4,0,2100,9)="037-4;""(037) CERVICAL COLLARS - NUMBER ITEMS"""
^DIE(257,"DIAB",4,0,2100,10)="041-4;""(041) CERVICAL COLLARS - HOURS LABOR USED"""
^DIE(257,"DIAB",4,0,2100,11)="045-3;""(045) CERVICAL COLLARS - TOTAL COST CHARGED - BACKLOG"""
^DIE(257,"DIAB",4,0,2100,12)="049-4;""(049) ELASTIC HOSE (EA.) - MATERIAL COST"""
^DIE(257,"DIAB",4,0,2100,13)="053-3;""(053) ELASTIC HOSE (EA.) - HOURS LABOR - BACKLOG"""
^DIE(257,"DIAB",4,0,2100,14)="057-3;""(057) SHOE MODIFICATIONS - NSC PATIENTS SERVED"""
^DIE(257,"DIAB",4,0,2100,15)="061-2;""(061) SHOE MODIFICATIONS - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",4,0,2100,16)="065-3;""(065) SHOES, INLAY - SC PATIENTS SERVED"""
^DIE(257,"DIAB",4,0,2100,17)="069-5;""(069) SHOES, INLAY - TOTAL LABOR COST"""
^DIE(257,"DIAB",5,0,2100,17)="070-2;""(070) SHOES, INLAY - NUMBER ITEMS - BACKLOG"""
^DIE(257,"DIAB",9,0,2100,0)="001-4;""(001) BRACES, CERVICAL - NUMBER ITEMS"""
^DIE(257,"DIAB",10,0,2100,0)="002-3;""(002) BRACES, CERVICAL - SC PATIENTS SERVED"""
^DIE(257,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) BRACES, CERVICAL - NUMBER ITEMS~;53.002(002) BRACES, CERVICAL - SC PATIENTS SERVED~;"
^DIE(257,"DR",1,2100,1)="53.003(003) BRACES, CERVICAL - NSC PATIENTS SERVED~;54.004(004) BRACES, CERVICAL - MATERIAL COST~;54.005(005) BRACES, CERVICAL - HOURS LABOR USED~;55.006(006) BRACES, CERVICAL - TOTAL LABOR COST~;"
^DIE(257,"DR",1,2100,2)="57.007(007) BRACES, CERVICAL - NUMBER ITEMS - BACKLOG~;53.008(008) BRACES, CERVICAL - HOURS LABOR - BACKLOG~;53.009(009) BRACES, CERVICAL - TOTAL COST CHARGED - BACKLOG~;54.01(010) BRACES, LEG, ABOVE-KNEE - NUMBER ITEMS~;"
^DIE(257,"DR",1,2100,3)="53.011(011) BRACES, LEG, ABOVE-KNEE - SC PATIENTS SERVED~;53.012(012) BRACES, LEG, ABOVE-KNEE - NSC PATIENTS SERVED~;54.013(013) BRACES, LEG, ABOVE-KNEE - MATERIAL COST~;54.014(014) BRACES, LEG, ABOVE-KNEE - HOURS LABOR USED~;"
^DIE(257,"DR",1,2100,4)="55.015(015) BRACES, LEG, ABOVE-KNEE - TOTAL LABOR COST~;57.016(016) BRACES, LEG, ABOVE-KNEE - NUMBER ITEMS - BACKLOG~;53.017(017) BRACES, LEG, ABOVE-KNEE - HOURS LABOR - BACKLOG~;"
^DIE(257,"DR",1,2100,5)="53.018(018) BRACES, LEG, ABOVE-KNEE - TOTAL COST CHARGED - BACKLOG~;54.019(019) BRACES, SPINAL - NUMBER ITEMS~;53.02(020) BRACES, SPINAL - SC PATIENTS SERVED~;53.021(021) BRACES, SPINAL - NSC PATIENTS SERVED~;"
^DIE(257,"DR",1,2100,6)="54.022(022) BRACES, SPINAL - MATERIAL COST~;54.023(023) BRACES, SPINAL - HOURS LABOR USED~;55.024(024) BRACES, SPINAL - TOTAL LABOR COST~;57.025(025) BRACES, SPINAL - NUMBER ITEMS - BACKLOG~;"
^DIE(257,"DR",1,2100,7)="53.026(026) BRACES, SPINAL - HOURS LABOR - BACKLOG~;53.027(027) BRACES, SPINAL - TOTAL COST CHARGED - BACKLOG~;54.028(028) BRACES, ALL OTHER - NUMBER ITEMS~;53.029(029) BRACES, ALL OTHER - SC PATIENTS SERVED~;"
^DIE(257,"DR",1,2100,8)="53.03(030) BRACES, ALL OTHER - NSC PATIENTS SERVED~;54.031(031) BRACES, ALL OTHER - MATERIAL COST~;54.032(032) BRACES, ALL OTHER - HOURS LABOR USED~;55.033(033) BRACES, ALL OTHER - TOTAL LABOR COST~;"
^DIE(257,"DR",1,2100,9)="57.034(034) BRACES, ALL OTHER - NUMBER ITEMS - BACKLOG~;53.035(035) BRACES, ALL OTHER - HOURS LABOR - BACKLOG~;53.036(036) BRACES, ALL OTHER - TOTAL COST CHARGED - BACKLOG~;54.037(037) CERVICAL COLLARS - NUMBER ITEMS~;"
^DIE(257,"DR",1,2100,10)="53.038(038) CERVICAL COLLARS - SC PATIENTS SERVED~;53.039(039) CERVICAL COLLARS - NSC PATIENTS SERVED~;54.04(040) CERVICAL COLLARS - MATERIAL COST~;54.041(041) CERVICAL COLLARS - HOURS LABOR USED~;"
^DIE(257,"DR",1,2100,11)="55.042(042) CERVICAL COLLARS - TOTAL LABOR COST~;57.043(043) CERVICAL COLLARS - NUMBER ITEMS - BACKLOG~;53.044(044) CERVICAL COLLARS - HOURS LABOR - BACKLOG~;53.045(045) CERVICAL COLLARS - TOTAL COST CHARGED - BACKLOG~;"
^DIE(257,"DR",1,2100,12)="54.046(046) ELASTIC HOSE (EA.) - NUMBER ITEMS~;53.047(047) ELASTIC HOSE (EA.) - SC PATIENTS SERVED~;53.048(048) ELASTIC HOSE (EA.) - NSC PATIENTS SERVED~;54.049(049) ELASTIC HOSE (EA.) - MATERIAL COST~;"
^DIE(257,"DR",1,2100,13)="54.05(050) ELASTIC HOSE (EA.) - HOURS LABOR USED~;55.051(051) ELASTIC HOSE (EA.) - TOTAL LABOR COST~;57.052(052) ELASTIC HOSE (EA.) - NUMBER ITEMS - BACKLOG~;53.053(053) ELASTIC HOSE (EA.) - HOURS LABOR - BACKLOG~;"
^DIE(257,"DR",1,2100,14)="53.054(054) ELASTIC HOSE (EA.) - TOTAL COST CHARGED - BACKLOG~;54.055(055) SHOE MODIFICATIONS - NUMBER ITEMS~;53.056(056) SHOE MODIFICATIONS - SC PATIENTS SERVED~;53.057(057) SHOE MODIFICATIONS - NSC PATIENTS SERVED~;"
^DIE(257,"DR",1,2100,15)="54.058(058) SHOE MODIFICATIONS - MATERIAL COST~;54.059(059) SHOE MODIFICATIONS - HOURS LABOR USED~;55.06(060) SHOE MODIFICATIONS - TOTAL LABOR COST~;57.061(061) SHOE MODIFICATIONS - NUMBER ITEMS - BACKLOG~;"
^DIE(257,"DR",1,2100,16)="53.062(062) SHOE MODIFICATIONS - HOURS LABOR - BACKLOG~;53.063(063) SHOE MODIFICATIONS - TOTAL COST CHARGED - BACKLOG~;54.064(064) SHOES, INLAY - NUMBER ITEMS~;53.065(065) SHOES, INLAY - SC PATIENTS SERVED~;"
^DIE(257,"DR",1,2100,17)="53.066(066) SHOES, INLAY - NSC PATIENTS SERVED~;54.067(067) SHOES, INLAY - MATERIAL COST~;54.068(068) SHOES, INLAY - HOURS LABOR USED~;55.069(069) SHOES, INLAY - TOTAL LABOR COST~;57.07(070) SHOES, INLAY - NUMBER ITEMS - BACKLOG~;"
^DIE(257,"DR",1,2100,18)="53.071(071) SHOES, INLAY - HOURS LABOR - BACKLOG~;53.072(072) SHOES, INLAY - TOTAL COST CHARGED - BACKLOG~;99///^S X=""$"";"
^DIE(258,0)="RMPR AMS5 AMIS 137^2900916.2045^^2100^0^^2901105"
^DIE(258,"DIAB",1,0,2100,1)="003-3;""(003) SHOES, ORTHOPEDIC (EA) - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",1,0,2100,2)="007-2;""(007) SHOES, ORTHOPEDIC (EA) - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,3)="011-3;""(011) OTHER NEW ITEMS - SC PATIENTS SERVED"""
^DIE(258,"DIAB",1,0,2100,4)="015-5;""(015) OTHER NEW ITEMS - TOTAL LABOR COST"""
^DIE(258,"DIAB",1,0,2100,5)="019-4;""(019) REPAIRS, ART. LIMBS - NUMBER ITEMS"""
^DIE(258,"DIAB",1,0,2100,6)="023-4;""(023) REPAIRS, ART. LIMBS - HOURS LABOR USED"""
^DIE(258,"DIAB",1,0,2100,7)="027-3;""(027) REPAIRS, ART. LIMBS - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,8)="031-4;""(031) REPAIRS, BRACES - MATERIAL COST"""
^DIE(258,"DIAB",1,0,2100,9)="035-3;""(035) REPAIRS, BRACES - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,10)="039-3;""(039) REPAIRS, SHOES - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",1,0,2100,11)="043-2;""(043) REPAIRS, SHOES - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,12)="047-3;""(047) REPAIRS, WHEELCHAIRS - SC PATIENTS SERVED"""
^DIE(258,"DIAB",1,0,2100,13)="051-5;""(051) REPAIRS, WHEELCHAIRS - TOTAL LABOR COST"""
^DIE(258,"DIAB",1,0,2100,14)="054-3;""(054) REPAIRS, WHEELCHAIRS - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,15)="058-4;""(058) REPAIRS, ALL OTHER - MATERIAL COST"""
^DIE(258,"DIAB",1,0,2100,16)="062-3;""(062) REPAIRS, ALL OTHER - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",1,0,2100,17)="066-3;""(066) WORK FOR STATION - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",1,0,2100,18)="070-2;""(070) WORK FOR STATION - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,1)="004-4;""(004) SHOES, ORTHOPEDIC (EA) - MATERIAL COST"""
^DIE(258,"DIAB",2,0,2100,2)="008-3;""(008) SHOES, ORTHOPEDIC (EA) - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,3)="012-3;""(012) OTHER NEW ITEMS - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",2,0,2100,4)="016-2;""(016) OTHER NEW ITEMS - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,5)="020-3;""(020) REPAIRS, ART. LIMBS - SC PATIENTS SERVED"""
^DIE(258,"DIAB",2,0,2100,6)="024-5;""(024) REPAIRS, ART. LIMBS - TOTAL LABOR COST"""
^DIE(258,"DIAB",2,0,2100,7)="028-4;""(028) REPAIRS, BRACES - NUMBER ITEMS"""
^DIE(258,"DIAB",2,0,2100,8)="032-4;""(032) REPAIRS, BRACES - HOURS LABOR USED"""
^DIE(258,"DIAB",2,0,2100,9)="036-3;""(036) REPAIRS, BRACES - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,10)="040-4;""(040) REPAIRS, SHOES - MATERIAL COST"""
^DIE(258,"DIAB",2,0,2100,11)="044-3;""(044) REPAIRS, SHOES - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,12)="048-3;""(048) REPAIRS, WHEELCHAIRS - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",2,0,2100,13)="052-2;""(052) REPAIRS, WHEELCHAIRS - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,14)="055-4;""(055) REPAIRS, ALL OTHER - NUMBER ITEMS"""
^DIE(258,"DIAB",2,0,2100,15)="059-4;""(059) REPAIRS, ALL OTHER - HOURS LABOR USED"""
^DIE(258,"DIAB",2,0,2100,16)="063-3;""(063) REPAIRS, ALL OTHER - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",2,0,2100,17)="067-4;""(067) WORK FOR STATION - MATERIAL COST"""
^DIE(258,"DIAB",2,0,2100,18)="071-3;""(071) WORK FOR STATION - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,1)="005-4;""(005) SHOES, ORTHOPEDIC (EA) - HOURS LABOR USED"""
^DIE(258,"DIAB",3,0,2100,2)="009-3;""(009) SHOES, ORTHOPEDIC (EA) - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,3)="013-4;""(013) OTHER NEW ITEMS - MATERIAL COST"""
^DIE(258,"DIAB",3,0,2100,4)="017-3;""(017) OTHER NEW ITEMS - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,5)="021-3;""(021) REPAIRS, ART. LIMBS - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",3,0,2100,6)="025-2;""(025) REPAIRS, ART. LIMBS - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,7)="029-3;""(029) REPAIRS, BRACES - SC PATIENTS SERVED"""
^DIE(258,"DIAB",3,0,2100,8)="033-5;""(033) REPAIRS, BRACES - TOTAL LABOR COST"""
^DIE(258,"DIAB",3,0,2100,9)="037-4;""(037) REPAIRS, SHOES - NUMBER ITEMS"""
^DIE(258,"DIAB",3,0,2100,10)="041-4;""(041) REPAIRS, SHOES - HOURS LABOR USED"""
^DIE(258,"DIAB",3,0,2100,11)="045-3;""(045) REPAIRS, SHOES - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,12)="049-5;""(049) REPAIRS, WHEELCHAIRS - MATERIAL COST"""
^DIE(258,"DIAB",3,0,2100,13)="053-3;""(053) REPAIRS, WHEELCHAIRS - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",3,0,2100,14)="056-3;""(056) REPAIRS, ALL OTHER - SC PATIENTS SERVED"""
^DIE(258,"DIAB",3,0,2100,15)="060-5;""(060) REPAIRS, ALL OTHER - TOTAL LABOR COST"""
^DIE(258,"DIAB",3,0,2100,16)="064-4;""(064) WORK FOR STATION - NUMBER ITEMS"""
^DIE(258,"DIAB",3,0,2100,17)="068-4;""(068) WORK FOR STATION - HOURS LABOR USED"""
^DIE(258,"DIAB",3,0,2100,18)="072-3;""(072) WORK FOR STATION - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",4,0,2100,1)="006-5;""(006) SHOES, ORTHOPEDIC (EA) - TOTAL LABOR COST"""
^DIE(258,"DIAB",4,0,2100,2)="010-4;""(010) OTHER NEW ITEMS - NUMBER ITEMS"""
^DIE(258,"DIAB",4,0,2100,3)="014-4;""(014) OTHER NEW ITEMS - HOURS LABOR USED"""
^DIE(258,"DIAB",4,0,2100,4)="018-3;""(018) OTHER NEW ITEMS - TOTAL COST CHARGED - BACKLOG"""
^DIE(258,"DIAB",4,0,2100,5)="022-4;""(022) REPAIRS, ART. LIMBS - MATERIAL COST"""
^DIE(258,"DIAB",4,0,2100,6)="026-3;""(026) REPAIRS, ART. LIMBS - HOURS LABOR - BACKLOG"""
^DIE(258,"DIAB",4,0,2100,7)="030-3;""(030) REPAIRS, BRACES - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",4,0,2100,8)="034-2;""(034) REPAIRS, BRACES - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",4,0,2100,9)="038-3;""(038) REPAIRS, SHOES - SC PATIENTS SERVED"""
^DIE(258,"DIAB",4,0,2100,10)="042-5;""(042) REPAIRS, SHOES - TOTAL LABOR COST"""
^DIE(258,"DIAB",4,0,2100,11)="046-4;""(046) REPAIRS, WHEELCHAIRS - NUMBER ITEMS"""
^DIE(258,"DIAB",4,0,2100,12)="050-4;""(050) REPAIRS, WHEELCHAIRS - HOURS LABOR USED"""
^DIE(258,"DIAB",4,0,2100,14)="057-3;""(057) REPAIRS, ALL OTHER - NSC PATIENTS SERVED"""
^DIE(258,"DIAB",4,0,2100,15)="061-2;""(061) REPAIRS, ALL OTHER - NUMBER ITEMS - BACKLOG"""
^DIE(258,"DIAB",4,0,2100,16)="065-3;""(065) WORK FOR STATION - SC PATIENTS SERVED"""
^DIE(258,"DIAB",4,0,2100,17)="069-5;""(069) WORK FOR STATION - TOTAL LABOR COST"""
^DIE(258,"DIAB",9,0,2100,0)="001-4;""(001) SHOES, ORTHOPEDIC (EA) - NUMBER ITEMS"""
^DIE(258,"DIAB",10,0,2100,0)="002-3;""(002) SHOES, ORTHOPEDIC (EA) - SC PATIENTS SERVED"""
^DIE(258,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) SHOES, ORTHOPEDIC (EA) - NUMBER ITEMS~;53.002(002) SHOES, ORTHOPEDIC (EA) - SC PATIENTS SERVED~;"
^DIE(258,"DR",1,2100,1)="53.003(003) SHOES, ORTHOPEDIC (EA) - NSC PATIENTS SERVED~;54.004(004) SHOES, ORTHOPEDIC (EA) - MATERIAL COST~;54.005(005) SHOES, ORTHOPEDIC (EA) - HOURS LABOR USED~;55.006(006) SHOES, ORTHOPEDIC (EA) - TOTAL LABOR COST~;"
^DIE(258,"DR",1,2100,2)="57.007(007) SHOES, ORTHOPEDIC (EA) - NUMBER ITEMS - BACKLOG~;53.008(008) SHOES, ORTHOPEDIC (EA) - HOURS LABOR - BACKLOG~;53.009(009) SHOES, ORTHOPEDIC (EA) - TOTAL COST CHARGED - BACKLOG~;54.01(010) OTHER NEW ITEMS - NUMBER ITEMS~;"
^DIE(258,"DR",1,2100,3)="53.011(011) OTHER NEW ITEMS - SC PATIENTS SERVED~;53.012(012) OTHER NEW ITEMS - NSC PATIENTS SERVED~;54.013(013) OTHER NEW ITEMS - MATERIAL COST~;54.014(014) OTHER NEW ITEMS - HOURS LABOR USED~;"
^DIE(258,"DR",1,2100,4)="55.015(015) OTHER NEW ITEMS - TOTAL LABOR COST~;57.016(016) OTHER NEW ITEMS - NUMBER ITEMS - BACKLOG~;53.017(017) OTHER NEW ITEMS - HOURS LABOR - BACKLOG~;53.018(018) OTHER NEW ITEMS - TOTAL COST CHARGED - BACKLOG~;"
^DIE(258,"DR",1,2100,5)="54.019(019) REPAIRS, ART. LIMBS - NUMBER ITEMS~;53.02(020) REPAIRS, ART. LIMBS - SC PATIENTS SERVED~;53.021(021) REPAIRS, ART. LIMBS - NSC PATIENTS SERVED~;54.022(022) REPAIRS, ART. LIMBS - MATERIAL COST~;"
^DIE(258,"DR",1,2100,6)="54.023(023) REPAIRS, ART. LIMBS - HOURS LABOR USED~;55.024(024) REPAIRS, ART. LIMBS - TOTAL LABOR COST~;57.025(025) REPAIRS, ART. LIMBS - NUMBER ITEMS - BACKLOG~;53.026(026) REPAIRS, ART. LIMBS - HOURS LABOR - BACKLOG~;"
^DIE(258,"DR",1,2100,7)="53.027(027) REPAIRS, ART. LIMBS - TOTAL COST CHARGED - BACKLOG~;54.028(028) REPAIRS, BRACES - NUMBER ITEMS~;53.029(029) REPAIRS, BRACES - SC PATIENTS SERVED~;53.03(030) REPAIRS, BRACES - NSC PATIENTS SERVED~;"
^DIE(258,"DR",1,2100,8)="54.031(031) REPAIRS, BRACES - MATERIAL COST~;54.032(032) REPAIRS, BRACES - HOURS LABOR USED~;55.033(033) REPAIRS, BRACES - TOTAL LABOR COST~;57.034(034) REPAIRS, BRACES - NUMBER ITEMS - BACKLOG~;"
^DIE(258,"DR",1,2100,9)="53.035(035) REPAIRS, BRACES - HOURS LABOR - BACKLOG~;53.036(036) REPAIRS, BRACES - TOTAL COST CHARGED - BACKLOG~;54.037(037) REPAIRS, SHOES - NUMBER ITEMS~;53.038(038) REPAIRS, SHOES - SC PATIENTS SERVED~;"
^DIE(258,"DR",1,2100,10)="53.039(039) REPAIRS, SHOES - NSC PATIENTS SERVED~;54.04(040) REPAIRS, SHOES - MATERIAL COST~;54.041(041) REPAIRS, SHOES - HOURS LABOR USED~;55.042(042) REPAIRS, SHOES - TOTAL LABOR COST~;"
^DIE(258,"DR",1,2100,11)="57.043(043) REPAIRS, SHOES - NUMBER ITEMS - BACKLOG~;53.044(044) REPAIRS, SHOES - HOURS LABOR - BACKLOG~;53.045(045) REPAIRS, SHOES - TOTAL COST CHARGED - BACKLOG~;54.046(046) REPAIRS, WHEELCHAIRS - NUMBER ITEMS~;"
^DIE(258,"DR",1,2100,12)="53.047(047) REPAIRS, WHEELCHAIRS - SC PATIENTS SERVED~;53.048(048) REPAIRS, WHEELCHAIRS - NSC PATIENTS SERVED~;55.049(049) REPAIRS, WHEELCHAIRS - MATERIAL COST~;54.05(050) REPAIRS, WHEELCHAIRS - HOURS LABOR USED~;"
^DIE(258,"DR",1,2100,13)="55.051(051) REPAIRS, WHEELCHAIRS - TOTAL LABOR COST~;57.052(052) REPAIRS, WHEELCHAIRS - NUMBER ITEMS - BACKLOG~;53.053(053) REPAIRS, WHEELCHAIRS - HOURS LABOR - BACKLOG~;"
^DIE(258,"DR",1,2100,14)="53.054(054) REPAIRS, WHEELCHAIRS - TOTAL COST CHARGED - BACKLOG~;54.055(055) REPAIRS, ALL OTHER - NUMBER ITEMS~;53.056(056) REPAIRS, ALL OTHER - SC PATIENTS SERVED~;53.057(057) REPAIRS, ALL OTHER - NSC PATIENTS SERVED~;"
^DIE(258,"DR",1,2100,15)="54.058(058) REPAIRS, ALL OTHER - MATERIAL COST~;54.059(059) REPAIRS, ALL OTHER - HOURS LABOR USED~;55.06(060) REPAIRS, ALL OTHER - TOTAL LABOR COST~;57.061(061) REPAIRS, ALL OTHER - NUMBER ITEMS - BACKLOG~;"
^DIE(258,"DR",1,2100,16)="53.062(062) REPAIRS, ALL OTHER - HOURS LABOR - BACKLOG~;53.063(063) REPAIRS, ALL OTHER - TOTAL COST CHARGED - BACKLOG~;54.064(064) WORK FOR STATION - NUMBER ITEMS~;53.065(065) WORK FOR STATION - SC PATIENTS SERVED~;"
^DIE(258,"DR",1,2100,17)="53.066(066) WORK FOR STATION - NSC PATIENTS SERVED~;54.067(067) WORK FOR STATION - MATERIAL COST~;54.068(068) WORK FOR STATION - HOURS LABOR USED~;55.069(069) WORK FOR STATION - TOTAL LABOR COST~;"
^DIE(258,"DR",1,2100,18)="57.07(070) WORK FOR STATION - NUMBER ITEMS - BACKLOG~;53.071(071) WORK FOR STATION - HOURS LABOR - BACKLOG~;53.072(072) WORK FOR STATION - TOTAL COST CHARGED - BACKLOG~;99///^S X=""$"";"
^DIE(259,0)="RMPR AMS5 AMIS 138^2900916.2051^^2100^0^^2900916"
^DIE(259,"DIAB",1,0,2100,1)="003-3;""(003) ITEM NO. 1 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",1,0,2100,2)="008-3;""(008) ITEM NO. 2 - STATION NUMBER"""
^DIE(259,"DIAB",1,0,2100,3)="013-4;""(013) ITEM NO. 2 - HOURS LABOR USED"""
^DIE(259,"DIAB",1,0,2100,4)="018-3;""(018) ITEM NO. 3 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",1,0,2100,5)="023-4;""(023) ITEM NO. 4 - NUMBER ITEMS"""
^DIE(259,"DIAB",1,0,2100,6)="028-4;""(028) ITEM NO. 4 - TOTAL LABOR COST"""
^DIE(259,"DIAB",1,0,2100,7)="033-4;""(033) ITEM NO. 5 - MATERIAL COST"""
^DIE(259,"DIAB",1,0,2100,8)="038-3;""(038) ITEM NO. 6 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",1,0,2100,9)="043-3;""(043) ITEM NO. 7 - STATION NUMBER"""
^DIE(259,"DIAB",1,0,2100,10)="048-4;""(048) ITEM NO. 7 - HOURS LABOR USED"""
^DIE(259,"DIAB",1,0,2100,11)="053-3;""(053) ITEM NO. 8 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",1,0,2100,12)="058-4;""(058) ITEM NO. 9 - NUMBER ITEMS"""
^DIE(259,"DIAB",1,0,2100,13)="063-4;""(063) ITEM NO. 9 - TOTAL LABOR COST"""
^DIE(259,"DIAB",1,0,2100,14)="068-4;""(068) ITEM NO. 10 - MATERIAL COST"""
^DIE(259,"DIAB",2,0,2100,1)="004-3;""(004) ITEM NO. 1 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",2,0,2100,2)="009-4;""(009) ITEM NO. 2 - NUMBER ITEMS"""
^DIE(259,"DIAB",2,0,2100,3)="014-4;""(014) ITEM NO. 2 - TOTAL LABOR COST"""
^DIE(259,"DIAB",2,0,2100,4)="019-4;""(019) ITEM NO. 3 - MATERIAL COST"""
^DIE(259,"DIAB",2,0,2100,5)="024-3;""(024) ITEM NO. 4 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",2,0,2100,6)="029-3;""(029) ITEM NO. 5 - STATION NUMBER"""
^DIE(259,"DIAB",2,0,2100,7)="034-4;""(034) ITEM NO. 5 - HOURS LABOR USED"""
^DIE(259,"DIAB",2,0,2100,8)="039-3;""(039) ITEM NO. 6 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",2,0,2100,9)="044-4;""(044) ITEM NO. 7 - NUMBER ITEMS"""
^DIE(259,"DIAB",2,0,2100,10)="049-4;""(049) ITEM NO. 7 - TOTAL LABOR COST"""
^DIE(259,"DIAB",2,0,2100,11)="054-4;""(054) ITEM NO. 8 - MATERIAL COST"""
^DIE(259,"DIAB",2,0,2100,12)="059-3;""(059) ITEM NO. 9 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",2,0,2100,13)="064-3;""(064) ITEM NO. 10 - STATION NUMBER"""
^DIE(259,"DIAB",2,0,2100,14)="069-4;""(069) ITEM NO. 10 - HOURS LABOR USED"""
^DIE(259,"DIAB",3,0,2100,1)="005-4;""(005) ITEM NO. 1 - MATERIAL COST"""
^DIE(259,"DIAB",3,0,2100,2)="010-3;""(010) ITEM NO. 2 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",3,0,2100,3)="015-3;""(015) ITEM NO. 3 - STATION NUMBER"""
^DIE(259,"DIAB",3,0,2100,4)="020-4;""(020) ITEM NO. 3 - HOURS LABOR USED"""
^DIE(259,"DIAB",3,0,2100,5)="025-3;""(025) ITEM NO. 4 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",3,0,2100,6)="030-4;""(030) ITEM NO. 5 - NUMBER ITEMS"""
^DIE(259,"DIAB",3,0,2100,7)="035-4;""(035) ITEM NO. 5 - TOTAL LABOR COST"""
^DIE(259,"DIAB",3,0,2100,8)="040-4;""(040) ITEM NO. 6 - MATERIAL COST"""
^DIE(259,"DIAB",3,0,2100,9)="045-3;""(045) ITEM NO. 7 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",3,0,2100,10)="050-3;""(050) ITEM NO. 8 - STATION NUMBER"""
^DIE(259,"DIAB",3,0,2100,11)="055-4;""(055) ITEM NO. 8 - HOURS LABOR USED"""
^DIE(259,"DIAB",3,0,2100,12)="060-3;""(060) ITEM NO. 9 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",3,0,2100,13)="065-4;""(065) ITEM NO. 10 - NUMBER ITEMS"""
^DIE(259,"DIAB",3,0,2100,14)="070-4;""(070) ITEM NO. 10 - TOTAL LABOR COST"""
^DIE(259,"DIAB",4,0,2100,1)="006-4;""(006) ITEM NO. 1 - HOURS LABOR USED"""
^DIE(259,"DIAB",4,0,2100,2)="011-3;""(011) ITEM NO. 2 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",4,0,2100,3)="016-4;""(016) ITEM NO. 3 - NUMBER ITEMS"""
^DIE(259,"DIAB",4,0,2100,4)="021-4;""(021) ITEM NO. 3 - TOTAL LABOR COST"""
^DIE(259,"DIAB",4,0,2100,5)="026-4;""(026) ITEM NO. 4 - MATERIAL COST"""
^DIE(259,"DIAB",4,0,2100,6)="031-3;""(031) ITEM NO. 5 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",4,0,2100,7)="036-3;""(036) ITEM NO. 6 - STATION NUMBER"""
^DIE(259,"DIAB",4,0,2100,8)="041-4;""(041) ITEM NO. 6 - HOURS LABOR USED"""
^DIE(259,"DIAB",4,0,2100,9)="046-3;""(046) ITEM NO. 7 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",4,0,2100,10)="051-4;""(051) ITEM NO. 8 - NUMBER ITEMS"""
^DIE(259,"DIAB",4,0,2100,11)="056-4;""(056) ITEM NO. 8 - TOTAL LABOR COST"""
^DIE(259,"DIAB",4,0,2100,12)="061-4;""(061) ITEM NO. 9 - MATERIAL COST"""
^DIE(259,"DIAB",4,0,2100,13)="066-3;""(066) ITEM NO. 10 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",5,0,2100,1)="007-4;""(007) ITEM NO. 1 - TOTAL LABOR COST"""
^DIE(259,"DIAB",5,0,2100,2)="012-4;""(012) ITEM NO. 2 - MATERIAL COST"""
^DIE(259,"DIAB",5,0,2100,3)="017-3;""(017) ITEM NO. 3 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",5,0,2100,4)="022-3;""(022) ITEM NO. 4 - STATION NUMBER"""
^DIE(259,"DIAB",5,0,2100,5)="027-4;""(027) ITEM NO. 4 - HOURS LABOR USED"""
^DIE(259,"DIAB",5,0,2100,6)="032-3;""(032) ITEM NO. 5 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",5,0,2100,7)="037-4;""(037) ITEM NO. 6 - NUMBER ITEMS"""
^DIE(259,"DIAB",5,0,2100,8)="042-4;""(042) ITEM NO. 6 - TOTAL LABOR COST"""
^DIE(259,"DIAB",5,0,2100,9)="047-4;""(047) ITEM NO. 7 - MATERIAL COST"""
^DIE(259,"DIAB",5,0,2100,10)="052-3;""(052) ITEM NO. 8 - SC PATIENTS SERVED"""
^DIE(259,"DIAB",5,0,2100,11)="057-3;""(057) ITEM NO. 9 - STATION NUMBER"""
^DIE(259,"DIAB",5,0,2100,12)="062-4;""(062) ITEM NO. 9 - HOURS LABOR USED"""
^DIE(259,"DIAB",5,0,2100,13)="067-3;""(067) ITEM NO. 10 - NSC PATIENTS SERVED"""
^DIE(259,"DIAB",9,0,2100,0)="001-3;""(001) ITEM NO. 1 - STATION NUMBER"""
^DIE(259,"DIAB",10,0,2100,0)="002-4;""(002) ITEM NO. 1 - NUMBER ITEMS"""
^DIE(259,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) ITEM NO. 1 - STATION NUMBER~;54.002(002) ITEM NO. 1 - NUMBER ITEMS~;"
^DIE(259,"DR",1,2100,1)="53.003(003) ITEM NO. 1 - SC PATIENTS SERVED~;53.004(004) ITEM NO. 1 - NSC PATIENTS SERVED~;54.005(005) ITEM NO. 1 - MATERIAL COST~;54.006(006) ITEM NO. 1 - HOURS LABOR USED~;54.007(007) ITEM NO. 1 - TOTAL LABOR COST~;"
^DIE(259,"DR",1,2100,2)="53.008(008) ITEM NO. 2 - STATION NUMBER~;54.009(009) ITEM NO. 2 - NUMBER ITEMS~;53.01(010) ITEM NO. 2 - SC PATIENTS SERVED~;53.011(011) ITEM NO. 2 - NSC PATIENTS SERVED~;54.012(012) ITEM NO. 2 - MATERIAL COST~;"
^DIE(259,"DR",1,2100,3)="54.013(013) ITEM NO. 2 - HOURS LABOR USED~;54.014(014) ITEM NO. 2 - TOTAL LABOR COST~;53.015(015) ITEM NO. 3 - STATION NUMBER~;54.016(016) ITEM NO. 3 - NUMBER ITEMS~;53.017(017) ITEM NO. 3 - SC PATIENTS SERVED~;"
^DIE(259,"DR",1,2100,4)="53.018(018) ITEM NO. 3 - NSC PATIENTS SERVED~;54.019(019) ITEM NO. 3 - MATERIAL COST~;54.02(020) ITEM NO. 3 - HOURS LABOR USED~;54.021(021) ITEM NO. 3 - TOTAL LABOR COST~;53.022(022) ITEM NO. 4 - STATION NUMBER~;"
^DIE(259,"DR",1,2100,5)="54.023(023) ITEM NO. 4 - NUMBER ITEMS~;53.024(024) ITEM NO. 4 - SC PATIENTS SERVED~;53.025(025) ITEM NO. 4 - NSC PATIENTS SERVED~;54.026(026) ITEM NO. 4 - MATERIAL COST~;54.027(027) ITEM NO. 4 - HOURS LABOR USED~;"
^DIE(259,"DR",1,2100,6)="54.028(028) ITEM NO. 4 - TOTAL LABOR COST~;53.029(029) ITEM NO. 5 - STATION NUMBER~;54.03(030) ITEM NO. 5 - NUMBER ITEMS~;53.031(031) ITEM NO. 5 - SC PATIENTS SERVED~;53.032(032) ITEM NO. 5 - NSC PATIENTS SERVED~;"
^DIE(259,"DR",1,2100,7)="54.033(033) ITEM NO. 5 - MATERIAL COST~;54.034(034) ITEM NO. 5 - HOURS LABOR USED~;54.035(035) ITEM NO. 5 - TOTAL LABOR COST~;53.036(036) ITEM NO. 6 - STATION NUMBER~;54.037(037) ITEM NO. 6 - NUMBER ITEMS~;"
^DIE(259,"DR",1,2100,8)="53.038(038) ITEM NO. 6 - SC PATIENTS SERVED~;53.039(039) ITEM NO. 6 - NSC PATIENTS SERVED~;54.04(040) ITEM NO. 6 - MATERIAL COST~;54.041(041) ITEM NO. 6 - HOURS LABOR USED~;54.042(042) ITEM NO. 6 - TOTAL LABOR COST~;"
^DIE(259,"DR",1,2100,9)="53.043(043) ITEM NO. 7 - STATION NUMBER~;54.044(044) ITEM NO. 7 - NUMBER ITEMS~;53.045(045) ITEM NO. 7 - SC PATIENTS SERVED~;53.046(046) ITEM NO. 7 - NSC PATIENTS SERVED~;54.047(047) ITEM NO. 7 - MATERIAL COST~;"
^DIE(259,"DR",1,2100,10)="54.048(048) ITEM NO. 7 - HOURS LABOR USED~;54.049(049) ITEM NO. 7 - TOTAL LABOR COST~;53.05(050) ITEM NO. 8 - STATION NUMBER~;54.051(051) ITEM NO. 8 - NUMBER ITEMS~;53.052(052) ITEM NO. 8 - SC PATIENTS SERVED~;"
^DIE(259,"DR",1,2100,11)="53.053(053) ITEM NO. 8 - NSC PATIENTS SERVED~;54.054(054) ITEM NO. 8 - MATERIAL COST~;54.055(055) ITEM NO. 8 - HOURS LABOR USED~;54.056(056) ITEM NO. 8 - TOTAL LABOR COST~;53.057(057) ITEM NO. 9 - STATION NUMBER~;"
^DIE(259,"DR",1,2100,12)="54.058(058) ITEM NO. 9 - NUMBER ITEMS~;53.059(059) ITEM NO. 9 - SC PATIENTS SERVED~;53.06(060) ITEM NO. 9 - NSC PATIENTS SERVED~;54.061(061) ITEM NO. 9 - MATERIAL COST~;54.062(062) ITEM NO. 9 - HOURS LABOR USED~;"
^DIE(259,"DR",1,2100,13)="54.063(063) ITEM NO. 9 - TOTAL LABOR COST~;53.064(064) ITEM NO. 10 - STATION NUMBER~;54.065(065) ITEM NO. 10 - NUMBER ITEMS~;53.066(066) ITEM NO. 10 - SC PATIENTS SERVED~;53.067(067) ITEM NO. 10 - NSC PATIENTS SERVED~;"
^DIE(259,"DR",1,2100,14)="54.068(068) ITEM NO. 10 - MATERIAL COST~;54.069(069) ITEM NO. 10 - HOURS LABOR USED~;54.07(070) ITEM NO. 10 - TOTAL LABOR COST~;99///^S X=""$"";"
^DIE(260,0)="RMPR AMS5 AMIS 139^2900918.2012^^2100^0^^2931004"
^DIE(260,"DIAB",1,0,2100,1)="003-6;""(003) MODIFICATIONS, VANS - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(260,"DIAB",1,0,2100,2)="006-3;""(006) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(260,"DIAB",1,0,2100,3)="009-3;""(009) MODIFICATIONS, VANS - A&A PATIENTS"""
^DIE(260,"DIAB",1,0,2100,4)="013-5;""(013) ADAPTIVE EQUIP, ALL OTHER - NUMBER ITEMS - COMMERCIAL"""
^DIE(260,"DIAB",1,0,2100,5)="016-3;""(016) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(260,"DIAB",1,0,2100,6)="018-4;""(018) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(260,"DIAB",1,0,2100,7)="021-3;""(021) ADAPTIVE EQUIP, ALL OTHER - POST HOSPITAL CARE PATIENTS"""
^DIE(260,"DIAB",1,0,2100,8)="025-3;""(025) ADAPTIVE EQUIP - ALL OTHER REPAIRS"""
^DIE(260,"DIAB",1,0,2100,9)="028-3;""(028) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(260,"DIAB",1,0,2100,10)="031-4;""(031) ENVIRONMENTAL CONTROLS - NUMBER REPAIRS - VA SOURCES"""
^DIE(260,"DIAB",1,0,2100,11)="034-6;""(034) ENVIRONMENTAL CONTROLS - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(260,"DIAB",1,0,2100,12)="037-3;""(037) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(260,"DIAB",2,0,2100,1)="004-4;""(004) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(260,"DIAB",2,0,2100,2)="007-4;""(007) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(260,"DIAB",2,0,2100,3)="010-3;""(010) MODIFICATIONS, VANS - POST HOSPITAL CARE PATIENTS"""
^DIE(260,"DIAB",2,0,2100,4)="014-6;""(014) ADAPTIVE EQUIP, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)"""
^DIE(260,"DIAB",2,0,2100,5)="017-3;""(017) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(260,"DIAB",2,0,2100,6)="019-3;""(019) ADAPTIVE EQUIP, ALL OTHER - SPECIAL LEGISLATION PATIENTS"""
^DIE(260,"DIAB",2,0,2100,7)="022-3;""(022) ADAPTIVE EQUIP, ALL OTHER - NUMBER NEW CASES"""
^DIE(260,"DIAB",2,0,2100,8)="026-6;""(026) ADAPTIVE EQUIP - COST COMMERCIAL REPAIRS (DOLLARS)"""
^DIE(260,"DIAB",2,0,2100,9)="029-3;""(029) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - SC INPATIENT"""
^DIE(260,"DIAB",2,0,2100,10)="032-3;""(032) ENVIRONMENTAL CONTROLS - 2421 REPAIRS"""
^DIE(260,"DIAB",2,0,2100,11)="035-4;""(035) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(260,"DIAB",2,0,2100,12)="038-3;""(038) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(260,"DIAB",3,0,2100,1)="005-3;""(005) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(260,"DIAB",3,0,2100,2)="008-3;""(008) MODIFICATIONS, VANS - SPECIAL LEGISLATION PATIENTS"""
^DIE(260,"DIAB",3,0,2100,3)="011-3;""(011) MODIFICATIONS, VANS - NUMBER NEW CASES"""
^DIE(260,"DIAB",3,0,2100,4)="015-4;""(015) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(260,"DIAB",3,0,2100,6)="020-3;""(020) ADAPTIVE EQUIP, ALL OTHER - A&A PATIENTS"""
^DIE(260,"DIAB",3,0,2100,7)="023-4;""(023) ADAPTIVE EQUIP - NUMBER REPAIRS - VA SOURCES"""
^DIE(260,"DIAB",3,0,2100,8)="027-4;""(027) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT"""
^DIE(260,"DIAB",3,0,2100,9)="030-3;""(030) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT"""
^DIE(260,"DIAB",3,0,2100,10)="033-3;""(033) ENVIRONMENTAL CONTROLS - ALL OTHER REPAIRS"""
^DIE(260,"DIAB",3,0,2100,11)="036-3;""(036) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC OUTPATIENT"""
^DIE(260,"DIAB",4,0,2100,3)="012-4;""(012) ADAPTIVE EQUIP, ALL OTHER - NUMBER ITEMS - VA SOURCES"""
^DIE(260,"DIAB",4,0,2100,7)="024-3;""(024) ADAPTIVE EQUIP - 2421 REPAIRS"""
^DIE(260,"DIAB",9,0,2100,0)="001-4;""(001) MODIFICATIONS, VANS - NUMBER ITEMS - VA SOURCES"""
^DIE(260,"DIAB",10,0,2100,0)="002-5;""(002) MODIFICATIONS, VANS - NUMBER ITEMS - COMMERCIAL"""
^DIE(260,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) MODIFICATIONS, VANS - NUMBER ITEMS - VA SOURCES~;55.002(002) MODIFICATIONS, VANS - NUMBER ITEMS - COMMERCIAL~;"
^DIE(260,"DR",1,2100,1)="56.003(003) MODIFICATIONS, VANS - BUDGETED TOTAL COST (DOLLARS)~;54.004(004) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.005(005) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(260,"DR",1,2100,2)="53.006(006) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - SC INPATIENT~;54.007(007) MODIFICATIONS, VANS - NUMBER DISAB. SERVED - NSC INPATIENT~;53.008(008) MODIFICATIONS, VANS - SPECIAL LEGISLATION PATIENTS~;"
^DIE(260,"DR",1,2100,3)="53.009(009) MODIFICATIONS, VANS - A&A PATIENTS~;53.01(010) MODIFICATIONS, VANS - POST HOSPITAL CARE PATIENTS~;53.011(011) MODIFICATIONS, VANS - NUMBER NEW CASES~;54.012(012) ADAPTIVE EQUIP, ALL OTHER - NUMBER ITEMS - VA SOURCES~;"
^DIE(260,"DR",1,2100,4)="55.013(013) ADAPTIVE EQUIP, ALL OTHER - NUMBER ITEMS - COMMERCIAL~;56.014(014) ADAPTIVE EQUIP, ALL OTHER - BUDGETED TOTAL COST (DOLLARS)~;54.015(015) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(260,"DR",1,2100,5)="53.016(016) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.017(017) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - SC INPATIENT~;"
^DIE(260,"DR",1,2100,6)="54.018(018) ADAPTIVE EQUIP, ALL OTHER - NUMBER DISAB. SERVED - NSC INPATIENT~;53.019(019) ADAPTIVE EQUIP, ALL OTHER - SPECIAL LEGISLATION PATIENTS~;53.02(020) ADAPTIVE EQUIP, ALL OTHER - A&A PATIENTS~;"
^DIE(260,"DR",1,2100,7)="53.021(021) ADAPTIVE EQUIP, ALL OTHER - POST HOSPITAL CARE PATIENTS~;53.022(022) ADAPTIVE EQUIP, ALL OTHER - NUMBER NEW CASES~;54.023(023) ADAPTIVE EQUIP - NUMBER REPAIRS - VA SOURCES~;53.024(024) ADAPTIVE EQUIP - 2421 REPAIRS~;"
^DIE(260,"DR",1,2100,8)="53.025(025) ADAPTIVE EQUIP - ALL OTHER REPAIRS~;56.026(026) ADAPTIVE EQUIP - COST COMMERCIAL REPAIRS (DOLLARS)~;54.027(027) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - SC OUTPATIENT~;"
^DIE(260,"DR",1,2100,9)="53.028(028) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - NSC OUTPATIENT~;53.029(029) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - SC INPATIENT~;53.03(030) ADAPTIVE EQUIP - NUMBER DISAB. SERVED - NSC INPATIENT~;"
^DIE(260,"DR",1,2100,10)="54.031(031) ENVIRONMENTAL CONTROLS - NUMBER REPAIRS - VA SOURCES~;53.032(032) ENVIRONMENTAL CONTROLS - 2421 REPAIRS~;53.033(033) ENVIRONMENTAL CONTROLS - ALL OTHER REPAIRS~;"
^DIE(260,"DR",1,2100,11)="56.034(034) ENVIRONMENTAL CONTROLS - COST COMMERCIAL REPAIRS (DOLLARS)~;54.035(035) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC OUTPATIENT~;53.036(036) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC OUTPATIENT~;"
^DIE(260,"DR",1,2100,12)="53.037(037) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - SC INPATIENT~;53.038(038) ENVIRONMENTAL CONTROLS - NUMBER DISAB. SERVED - NSC INPATIENT~;99///^S X=""$"";"
^DIE(261,0)="RMPR AMS5 AMIS 150^2900916.2055^^2100^1^^2931007"
^DIE(261,"DIAB",1,0,2100,1)="003-4;""(003) NON V.I.S.T ELIGIBLE VETS. SERVED - OTHER"""
^DIE(261,"DIAB",1,0,2100,2)="007-3;""(007) VISUAL ACTIVITY - LEGALLY BLIND BY FIELD RESTR."""
^DIE(261,"DIAB",1,0,2100,3)="011-3;""(011) MAJOR ACTIVITY OF VET. - VOLUNTEER WORK (10 HRS/WK)"""
^DIE(261,"DIAB",1,0,2100,4)="014-3;""(014) MAJOR ACTIVITY OF VET. - NO WELL DEFINED ACTIVITY"""
^DIE(261,"DIAB",1,0,2100,5)="019-3;""(019) PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(261,"DIAB",1,0,2100,6)="024-4;""(024) ENTITLEMENT - SC FOR BLINDNESS"""
^DIE(261,"DIAB",1,0,2100,7)="030-3;""(030) AGE CATEGORY - 55-64"""
^DIE(261,"DIAB",1,0,2100,8)="036-4;""(036) DECLINED V.I.S.T. ANNUAL REVIEW"""
^DIE(261,"DIAB",1,0,2100,9)="040-4;""(040) V.I.S.T REFERRALS - BLIND REHAB. CENTER - ADD. TRAINING"""
^DIE(261,"DIAB",1,0,2100,10)="043-4;""(043) V.I.S.T REFERRALS - OTHER NON-VA AGENCIES - FIRST EXP."""
^DIE(261,"DIAB",1,0,2100,11)="046-4;""(046) VETS. NOT ACCEPTED FOR BLIND REHAB. - CLINIC"""
^DIE(261,"DIAB",1,0,2100,12)="049-4;""(049) VETS. DC'ED DURING RPT PERIOD - OTHER NON-VA"""
^DIE(261,"DIAB",2,0,2100,1)="004-3;""(004) VISUAL ACTIVITY - NO SIGHT"""
^DIE(261,"DIAB",2,0,2100,2)="008-3;""(008) VISUAL ACTIVITY - NOT KNOWN"""
^DIE(261,"DIAB",2,0,2100,3)="012-3;""(012) MAJOR ACTIVITY OF VET. - RETIRED W/ APPROP. ACTIVITIES"""
^DIE(261,"DIAB",2,0,2100,4)="015-3;""(015) MAJOR ACTIVITY OF VET. - NOT KNOWN"""
^DIE(261,"DIAB",2,0,2100,5)="020-3;""(020) PERIOD OF SERVICE - PEACETIME"""
^DIE(261,"DIAB",2,0,2100,6)="025-4;""(025) ENTITLEMENT - NSC PENSION A&A/HB"""
^DIE(261,"DIAB",2,0,2100,7)="031-3;""(031) AGE CATEGORY - 65-74"""
^DIE(261,"DIAB",2,0,2100,8)="037-4;""(037) 'NO SHOW' V.I.S.T. ANNUAL REVIEW"""
^DIE(261,"DIAB",2,0,2100,9)="041-4;""(041) V.I.S.T REFERRALS - BLIND REHAB. CLINIC - FIRST EXP."""
^DIE(261,"DIAB",2,0,2100,10)="044-4;""(044) V.I.S.T REFERRALS - OTHER NON-VA AGENCIES - ADD. TRAINING"""
^DIE(261,"DIAB",2,0,2100,11)="047-4;""(047) VETS. DC'ED DURING RPT PERIOD - BLIND REHAB. CENTER"""
^DIE(261,"DIAB",2,0,2100,12)="050-4;""(050) AVG. MAN HRS. EXPENSED BY V.I.S.T. CO-OR. PER WK"""
^DIE(261,"DIAB",3,0,2100,1)="005-3;""(005) VISUAL ACTIVITY - LIGHT PER UP TO AND INCLUDING 5/200"""
^DIE(261,"DIAB",3,0,2100,2)="009-3;""(009) MAJOR ACTIVITY OF VET. - EMPLOYED FOR PAY"""
^DIE(261,"DIAB",3,0,2100,3)="013-3;""(013) MAJOR ACTIVITY OF VET. - TOO ILL OR TOO DISABLED"""
^DIE(261,"DIAB",3,0,2100,4)="016-3;""(016) PERIOD OF SERVICE - WWI, SAW"""
^DIE(261,"DIAB",3,0,2100,5)="021-3;""(021) PERIOD OF SERVICE - NOT KNOWN"""
^DIE(261,"DIAB",3,0,2100,6)="026-3;""(026) AGE CATEGORY - UNDER 25"""
^DIE(261,"DIAB",3,0,2100,7)="032-3;""(032) AGE CATEGORY - 75-84"""
^DIE(261,"DIAB",3,0,2100,8)="038-4;""(038) V.I.S.T. CO-OR. & CO-OR. INITIATED FIELD VISITS"""
^DIE(261,"DIAB",3,0,2100,9)="042-4;""(042) V.I.S.T REFERRALS - BLIND REHAB. CLINIC - ADD. TRAINING"""
^DIE(261,"DIAB",3,0,2100,10)="045-4;""(045) VETS. NOT ACCEPTED FOR BLIND REHAB. - CENTER"""
^DIE(261,"DIAB",3,0,2100,11)="048-4;""(048) VETS. DC'ED DURING RPT PERIOD - BLIND REHAB. CLINIC"""
^DIE(261,"DIAB",4,0,2100,1)="006-3;""(006) VISUAL ACTIVITY - LIGHT PER OF 6/200 TO 20/200"""
^DIE(261,"DIAB",4,0,2100,2)="010-3;""(010) MAJOR ACTIVITY OF VET. - ENGAGED IN TRAINING OR SCHOOL"""
^DIE(261,"DIAB",4,0,2100,4)="017-3;""(017) PERIOD OF SERVICE - WWII"""
^DIE(261,"DIAB",4,0,2100,5)="022-4;""(022) ENTITLEMENT - SC 0% ONLY"""
^DIE(261,"DIAB",4,0,2100,6)="027-3;""(027) AGE CATEGORY - 25-34"""
^DIE(261,"DIAB",4,0,2100,7)="033-3;""(033) AGE CATEGORY - 85 AND OVER"""
^DIE(261,"DIAB",4,0,2100,8)="039-4;""(039) V.I.S.T REFERRALS - BLIND REHAB. CENTER - FIRST EXP."""
^DIE(261,"DIAB",5,0,2100,4)="018-3;""(018) PERIOD OF SERVICE - KOREAN"""
^DIE(261,"DIAB",5,0,2100,5)="023-4;""(023) ENTITLEMENT - COMP SC - KAWARD 10% - SMC"""
^DIE(261,"DIAB",5,0,2100,6)="028-3;""(028) AGE CATEGORY - 35-44"""
^DIE(261,"DIAB",5,0,2100,7)="034-3;""(034) AGE CATEGORY - NOT KNOWN"""
^DIE(261,"DIAB",6,0,2100,6)="029-3;""(029) AGE CATEGORY - 45-54"""
^DIE(261,"DIAB",6,0,2100,7)="035-4;""(035) TOTAL NUMBER V.I.S.T. ANNUAL REVIEWS"""
^DIE(261,"DIAB",9,0,2100,0)="001-4;""(001) TOTAL V.I.S.T ELIGIBLE VETS."""
^DIE(261,"DIAB",10,0,2100,0)="002-4;""(002) NON V.I.S.T ELIGIBLE VETS. SERVED - REVIEWED FOR BRC ATTENDANCE"""
^DIE(261,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=3;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) TOTAL V.I.S.T ELIGIBLE VETS.~;54.002(002) NON V.I.S.T ELIGIBLE VETS. SERVED - REVIEWED FOR BRC ATTENDANCE~;"
^DIE(261,"DR",1,2100,1)="54.003(003) NON V.I.S.T ELIGIBLE VETS. SERVED - OTHER~;53.004(004) VISUAL ACTIVITY - NO SIGHT~;53.005(005) VISUAL ACTIVITY - LIGHT PER UP TO AND INCLUDING 5/200~;53.006(006) VISUAL ACTIVITY - LIGHT PER OF 6/200 TO 20/200~;"
^DIE(261,"DR",1,2100,2)="53.007(007) VISUAL ACTIVITY - LEGALLY BLIND BY FIELD RESTR.~;53.008(008) VISUAL ACTIVITY - NOT KNOWN~;53.009(009) MAJOR ACTIVITY OF VET. - EMPLOYED FOR PAY~;53.01(010) MAJOR ACTIVITY OF VET. - ENGAGED IN TRAINING OR SCHOOL~;"
^DIE(261,"DR",1,2100,3)="53.011(011) MAJOR ACTIVITY OF VET. - VOLUNTEER WORK (10 HRS/WK)~;53.012(012) MAJOR ACTIVITY OF VET. - RETIRED W/ APPROP. ACTIVITIES~;53.013(013) MAJOR ACTIVITY OF VET. - TOO ILL OR TOO DISABLED~;"
^DIE(261,"DR",1,2100,4)="53.014(014) MAJOR ACTIVITY OF VET. - NO WELL DEFINED ACTIVITY~;53.015(015) MAJOR ACTIVITY OF VET. - NOT KNOWN~;53.016(016) PERIOD OF SERVICE - WWI, SAW~;53.017(017) PERIOD OF SERVICE - WWII~;53.018(018) PERIOD OF SERVICE - KOREAN~;"
^DIE(261,"DR",1,2100,5)="53.019(019) PERIOD OF SERVICE - VIETNAM ERA~;53.02(020) PERIOD OF SERVICE - PEACETIME~;53.021(021) PERIOD OF SERVICE - NOT KNOWN~;54.022(022) ENTITLEMENT - SC 0% ONLY~;54.023(023) ENTITLEMENT - COMP SC - KAWARD 10% - SMC~;"
^DIE(261,"DR",1,2100,6)="54.024(024) ENTITLEMENT - SC FOR BLINDNESS~;54.025(025) ENTITLEMENT - NSC PENSION A&A/HB~;53.026(026) AGE CATEGORY - UNDER 25~;53.027(027) AGE CATEGORY - 25-34~;53.028(028) AGE CATEGORY - 35-44~;53.029(029) AGE CATEGORY - 45-54~;"
^DIE(261,"DR",1,2100,7)="53.03(030) AGE CATEGORY - 55-64~;53.031(031) AGE CATEGORY - 65-74~;53.032(032) AGE CATEGORY - 75-84~;53.033(033) AGE CATEGORY - 85 AND OVER~;53.034(034) AGE CATEGORY - NOT KNOWN~;54.035(035) TOTAL NUMBER V.I.S.T. ANNUAL REVIEWS~;"
^DIE(261,"DR",1,2100,8)="54.036(036) DECLINED V.I.S.T. ANNUAL REVIEW~;54.037(037) 'NO SHOW' V.I.S.T. ANNUAL REVIEW~;54.038(038) V.I.S.T. CO-OR. & CO-OR. INITIATED FIELD VISITS~;54.039(039) V.I.S.T REFERRALS - BLIND REHAB. CENTER - FIRST EXP.~;"
^DIE(261,"DR",1,2100,9)="54.04(040) V.I.S.T REFERRALS - BLIND REHAB. CENTER - ADD. TRAINING~;54.041(041) V.I.S.T REFERRALS - BLIND REHAB. CLINIC - FIRST EXP.~;54.042(042) V.I.S.T REFERRALS - BLIND REHAB. CLINIC - ADD. TRAINING~;"
^DIE(261,"DR",1,2100,10)="54.043(043) V.I.S.T REFERRALS - OTHER NON-VA AGENCIES - FIRST EXP.~;54.044(044) V.I.S.T REFERRALS - OTHER NON-VA AGENCIES - ADD. TRAINING~;54.045(045) VETS. NOT ACCEPTED FOR BLIND REHAB. - CENTER~;"
^DIE(261,"DR",1,2100,11)="54.046(046) VETS. NOT ACCEPTED FOR BLIND REHAB. - CLINIC~;54.047(047) VETS. DC'ED DURING RPT PERIOD - BLIND REHAB. CENTER~;54.048(048) VETS. DC'ED DURING RPT PERIOD - BLIND REHAB. CLINIC~;"
^DIE(261,"DR",1,2100,12)="54.049(049) VETS. DC'ED DURING RPT PERIOD - OTHER NON-VA~;54.05(050) AVG. MAN HRS. EXPENSED BY V.I.S.T. CO-OR. PER WK~;99///^S X=""$"";"
^DIE(262,0)="RMPR AMS5 AMIS 173^2900617.2226^^2100"
^DIE(262,"DIAB",1,0,2100,1)="003-4;""(003) INPATIENT FTEE - NURSES REGISTERED"""
^DIE(262,"DIAB",1,0,2100,2)="007-4;""(007) INPATIENT FTEE - TECHNICIANS BOWEL"""
^DIE(262,"DIAB",1,0,2100,3)="012-4;""(012) INPATIENT FTEE - ALL OTHER PERSONNEL"""
^DIE(262,"DIAB",1,0,2100,4)="016-4;""(016) OUTPATIENT FTEE - NURSING ASSISTANTS LPN/LVN"""
^DIE(262,"DIAB",1,0,2100,5)="020-4;""(020) OUTPATIENT FTEE - THERAPISTS"""
^DIE(262,"DIAB",1,0,2100,6)="025-4;""(025) PATIENTS REMAINING SC FOR SCI"""
^DIE(262,"DIAB",1,0,2100,7)="029-5;""(029) HOSPITALIZED LESS THAN 1 YR - PT. DAYS OF CARE"""
^DIE(262,"DIAB",2,0,2100,1)="004-4;""(004) INPATIENT FTEE - NURSING ASSISTANTS LPN/LVN"""
^DIE(262,"DIAB",2,0,2100,2)="008-4;""(008) INPATIENT FTEE - THERAPISTS"""
^DIE(262,"DIAB",2,0,2100,3)="013-4;""(013) OUTPATIENT FTEE - PHYSICIANS"""
^DIE(262,"DIAB",2,0,2100,4)="017-4;""(017) OUTPATIENT FTEE - NURSING ASSISTANTS OTHER"""
^DIE(262,"DIAB",2,0,2100,5)="021-4;""(021) OUTPATIENT FTEE - PSYCHOLOGISTS"""
^DIE(262,"DIAB",2,0,2100,6)="026-4;""(026) NUMBER OF OUTPATIENT VISITS"""
^DIE(262,"DIAB",2,0,2100,7)="030-4;""(030) HOSPITALIZED LESS THAN 1 YR - LOSSES"""
^DIE(262,"DIAB",3,0,2100,1)="005-4;""(005) INPATIENT FTEE - NURSING ASSISTANTS OTHER"""""
^DIE(262,"DIAB",3,0,2100,2)="009-4;""(009) INPATIENT FTEE - PSYCHOLOGISTS"""
^DIE(262,"DIAB",3,0,2100,3)="014-4;""(014) OUTPATIENT FTEE - PHYSICIAN CONSULTANTS & ATTENDINGS"""
^DIE(262,"DIAB",3,0,2100,4)="018-4;""(018) OUTPATIENT FTEE - TECHNICIANS GENITO-URINARY"""
^DIE(262,"DIAB",3,0,2100,5)="022-4;""(022) OUTPATIENT FTEE - SOCIAL WORKERS"""
^DIE(262,"DIAB",3,0,2100,6)="027-5;""(027) HOSPITALIZED 1 YR OR MORE - PT. DAYS OF CARE"""
^DIE(262,"DIAB",4,0,2100,1)="006-4;""(006) INPATIENT FTEE - TECHNICIANS GENITO-URINARY"""
^DIE(262,"DIAB",4,0,2100,2)="010-4;""(010) INPATIENT FTEE - SOCIAL WORKERS"""
^DIE(262,"DIAB",4,0,2100,3)="015-4;""(015) OUTPATIENT FTEE - NURSES REGISTERED"""
^DIE(262,"DIAB",4,0,2100,4)="019-4;""(019) OUTPATIENT FTEE - TECHNICIANS BOWEL"""
^DIE(262,"DIAB",4,0,2100,5)="023-4;""(023) OUTPATIENT FTEE - ADMIN. PERSONNEL"""
^DIE(262,"DIAB",4,0,2100,6)="028-4;""(028) HOSPITALIZED 1 YR OR MORE - LOSSES"""
^DIE(262,"DIAB",5,0,2100,2)="011-4;""(011) INPATIENT FTEE - ADMIN. PERSONNEL"""
^DIE(262,"DIAB",5,0,2100,5)="024-4;""(024) OUTPATIENT FTEE - ALL OTHER PERSONNEL"""
^DIE(262,"DIAB",9,0,2100,0)="001-4;""(001) INPATIENT FTEE - PHYSICIANS"""
^DIE(262,"DIAB",10,0,2100,0)="002-4;""(002) INPATIENT FTEE - PHYSICIAN CONSULTANTS & ATTENDINGS"""
^DIE(262,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) INPATIENT FTEE - PHYSICIANS~;54.002(002) INPATIENT FTEE - PHYSICIAN CONSULTANTS & ATTENDINGS~;"
^DIE(262,"DR",1,2100,1)="54.003(003) INPATIENT FTEE - NURSES REGISTERED~;54.004(004) INPATIENT FTEE - NURSING ASSISTANTS LPN/LVN~;54.005(005) INPATIENT FTEE - NURSING ASSISTANTS OTHER~;54.006(006) INPATIENT FTEE - TECHNICIANS GENITO-URINARY~;"
^DIE(262,"DR",1,2100,2)="54.007(007) INPATIENT FTEE - TECHNICIANS BOWEL~;54.008(008) INPATIENT FTEE - THERAPISTS~;54.009(009) INPATIENT FTEE - PSYCHOLOGISTS~;54.01(010) INPATIENT FTEE - SOCIAL WORKERS~;54.011(011) INPATIENT FTEE - ADMIN. PERSONNEL~;"
^DIE(262,"DR",1,2100,3)="54.012(012) INPATIENT FTEE - ALL OTHER PERSONNEL~;54.013(013) OUTPATIENT FTEE - PHYSICIANS~;54.014(014) OUTPATIENT FTEE - PHYSICIAN CONSULTANTS & ATTENDINGS~;54.015(015) OUTPATIENT FTEE - NURSES REGISTERED~;"
^DIE(262,"DR",1,2100,4)="54.016(016) OUTPATIENT FTEE - NURSING ASSISTANTS LPN/LVN~;54.017(017) OUTPATIENT FTEE - NURSING ASSISTANTS OTHER~;54.018(018) OUTPATIENT FTEE - TECHNICIANS GENITO-URINARY~;54.019(019) OUTPATIENT FTEE - TECHNICIANS BOWEL~;"
^DIE(262,"DR",1,2100,5)="54.02(020) OUTPATIENT FTEE - THERAPISTS~;54.021(021) OUTPATIENT FTEE - PSYCHOLOGISTS~;54.022(022) OUTPATIENT FTEE - SOCIAL WORKERS~;54.023(023) OUTPATIENT FTEE - ADMIN. PERSONNEL~;54.024(024) OUTPATIENT FTEE - ALL OTHER PERSONNEL~;"
^DIE(262,"DR",1,2100,6)="54.025(025) PATIENTS REMAINING SC FOR SCI~;54.026(026) NUMBER OF OUTPATIENT VISITS~;55.027(027) HOSPITALIZED 1 YR OR MORE - PT. DAYS OF CARE~;54.028(028) HOSPITALIZED 1 YR OR MORE - LOSSES~;"
^DIE(262,"DR",1,2100,7)="55.029(029) HOSPITALIZED LESS THAN 1 YR - PT. DAYS OF CARE~;54.03(030) HOSPITALIZED LESS THAN 1 YR - LOSSES~;99///^S X=""$"";"
^DIE(263,0)="RMPR AMS5 AMIS 174^2900617.2324^^2100^^^2920403"
^DIE(263,"DIAB",1,0,2100,1)="003-2;""(003) PARAPLEGIA - DIRECT ADMISSION - READMISSION - SC"""
^DIE(263,"DIAB",1,0,2100,2)="006-2;""(006) PARAPLEGIA - TRANSFERS FROM VA HOSPITALS - NSC"""
^DIE(263,"DIAB",1,0,2100,3)="009-2;""(009) QUADRIPLEGIA - DIRECT ADMISSION - READMISSION - SC"""
^DIE(263,"DIAB",1,0,2100,4)="012-2;""(012) QUADRIPLEGIA - TRANSFERS FROM VA HOSPITALS - NSC"""
^DIE(263,"DIAB",1,0,2100,5)="016-2;""(016) PARAPLEGIA - DISCHARGES - OPT-SC"""
^DIE(263,"DIAB",1,0,2100,6)="021-2;""(021) QUADRIPLEGIA - DISCHARGES - OPT-SC"""
^DIE(263,"DIAB",1,0,2100,7)="025-2;""(025) PARAPLEGIA - LOS SC 30-59 DAYS"""
^DIE(263,"DIAB",1,0,2100,8)="030-2;""(030) PARAPLEGIA - LOS NSC 1-29 DAYS"""
^DIE(263,"DIAB",1,0,2100,9)="035-2;""(035) PARAPLEGIA - LOS NSC 720 & OVER DAYS"""
^DIE(263,"DIAB",1,0,2100,10)="039-2;""(039) QUADRIPLEGIA - LOS SC 180-359 DAYS"""
^DIE(263,"DIAB",1,0,2100,11)="043-2;""(043) QUADRIPLEGIA - LOS NSC 30-59 DAYS"""
^DIE(263,"DIAB",1,0,2100,12)="047-2;""(047) QUADRIPLEGIA - LOS NSC 720 & OVER DAYS"""
^DIE(263,"DIAB",1,0,2100,13)="051-3;""(051) PARAPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC NSC"""
^DIE(263,"DIAB",1,0,2100,14)="054-3;""(054) QUADRIPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC SC"""
^DIE(263,"DIAB",1,0,2100,15)="057-2;""(057) PARAPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC NSC"""
^DIE(263,"DIAB",1,0,2100,16)="060-2;""(060) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC SC"""
^DIE(263,"DIAB",1,0,2100,17)="063-2;""(063) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC NSC"""
^DIE(263,"DIAB",1,0,2100,18)="066-4;""(066) PARAPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF PATIENTS"""
^DIE(263,"DIAB",1,0,2100,19)="069-4;""(069) PARAPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF VISITS"""
^DIE(263,"DIAB",1,0,2100,20)="072-4;""(072) QUADRIPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF PATIENTS"""
^DIE(263,"DIAB",2,0,2100,1)="004-2;""(004) PARAPLEGIA - DIRECT ADMISSION - READMISSION - NSC"""
^DIE(263,"DIAB",2,0,2100,2)="007-2;""(007) QUADRIPLEGIA - DIRECT ADMISSION - 1ST TIME - SC"""
^DIE(263,"DIAB",2,0,2100,3)="010-2;""(010) QUADRIPLEGIA - DIRECT ADMISSION - READMISSION - NSC"""
^DIE(263,"DIAB",2,0,2100,4)="013-3;""(013) TOTAL SCI PTS. W/ INJURIES SUSTAINED WITHIN PAST 6 MONTHS"""
^DIE(263,"DIAB",2,0,2100,5)="017-2;""(017) PARAPLEGIA - DISCHARGES - OPT-NSC"""
^DIE(263,"DIAB",2,0,2100,6)="022-2;""(022) QUADRIPLEGIA - DISCHARGES - OPT-NSC"""
^DIE(263,"DIAB",2,0,2100,7)="026-2;""(026) PARAPLEGIA - LOS SC 60-179 DAYS"""
^DIE(263,"DIAB",2,0,2100,8)="031-2;""(031) PARAPLEGIA - LOS NSC 30-59 DAYS"""
^DIE(263,"DIAB",2,0,2100,9)="036-2;""(036) QUADRIPLEGIA - LOS SC 1-29 DAYS"""
^DIE(263,"DIAB",2,0,2100,10)="040-2;""(040) QUADRIPLEGIA - LOS SC 360-719 DAYS"""
^DIE(263,"DIAB",2,0,2100,11)="044-2;""(044) QUADRIPLEGIA - LOS NSC 60-179 DAYS"""
^DIE(263,"DIAB",2,0,2100,12)="048-3;""(048) PARAPLEGIA - SCI WARDS CENSUS - TRAUMATIC SC"""
^DIE(263,"DIAB",2,0,2100,13)="052-3;""(052) QUADRIPLEGIA - SCI WARDS CENSUS - TRAUMATIC SC"""
^DIE(263,"DIAB",2,0,2100,14)="055-3;""(055) QUADRIPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC NSC"""
^DIE(263,"DIAB",2,0,2100,15)="058-2;""(058) PARAPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC SC"""
^DIE(263,"DIAB",2,0,2100,16)="061-2;""(061) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC NSC"""
^DIE(263,"DIAB",2,0,2100,17)="064-3;""(064) PARAPLEGIA - CENSUS IN OPT-NSC STATUS"""
^DIE(263,"DIAB",2,0,2100,18)="067-4;""(067) PARAPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF VISITS"""
^DIE(263,"DIAB",2,0,2100,19)="070-4;""(070) QUADRIPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF PATIENTS"""
^DIE(263,"DIAB",2,0,2100,20)="073-4;""(073) QUADRIPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF VISITS"""
^DIE(263,"DIAB",3,0,2100,1)="005-2;""(005) PARAPLEGIA - TRANSFERS FROM VA HOSPITALS - SC"""
^DIE(263,"DIAB",3,0,2100,2)="008-2;""(008) QUADRIPLEGIA - DIRECT ADMISSION - 1ST TIME - NSC"""
^DIE(263,"DIAB",3,0,2100,3)="011-2;""(011) QUADRIPLEGIA - TRANSFERS FROM VA HOSPITALS - SC"""
^DIE(263,"DIAB",3,0,2100,4)="014-3;""(014) PARAPLEGIA - DISCHARGES - REGULAR"""
^DIE(263,"DIAB",3,0,2100,5)="018-2;""(018) PARAPLEGIA - DEATHS"""
^DIE(263,"DIAB",3,0,2100,6)="023-2;""(023) QUADRIPLEGIA - DISCHARGES - DEATHS"""
^DIE(263,"DIAB",3,0,2100,7)="027-2;""(027) PARAPLEGIA - LOS SC 180-359 DAYS"""
^DIE(263,"DIAB",3,0,2100,8)="032-2;""(032) PARAPLEGIA - LOS NSC 60-179 DAYS"""
^DIE(263,"DIAB",3,0,2100,9)="037-2;""(037) QUADRIPLEGIA - LOS SC 30-59 DAYS"""
^DIE(263,"DIAB",3,0,2100,10)="041-2;""(041) QUADRIPLEGIA - LOS SC 720 & OVER DAYS"""
^DIE(263,"DIAB",3,0,2100,11)="045-2;""(045) QUADRIPLEGIA - LOS NSC 180-359 DAYS"""
^DIE(263,"DIAB",3,0,2100,12)="049-3;""(049) PARAPLEGIA - SCI WARDS CENSUS - TRAUMATIC NSC"""
^DIE(263,"DIAB",3,0,2100,13)="053-3;""(053) QUADRIPLEGIA - SCI WARDS CENSUS - TRAUMATIC NSC"""
^DIE(263,"DIAB",3,0,2100,14)="056-2;""(056) PARAPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC SC"""
^DIE(263,"DIAB",3,0,2100,15)="059-2;""(059) PARAPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC NSC"""
^DIE(263,"DIAB",3,0,2100,16)="062-2;""(062) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC SC"""
^DIE(263,"DIAB",3,0,2100,17)="065-3;""(065) QUADRIPLEGIA - CENSUS IN OPT-NSC STATUS"""
^DIE(263,"DIAB",3,0,2100,18)="068-4;""(068) PARAPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF PATIENTS"""
^DIE(263,"DIAB",3,0,2100,19)="071-4;""(071) QUADRIPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF VISITS"""
^DIE(263,"DIAB",4,0,2100,4)="015-2;""(015) PARAPLEGIA - DISCHARGES - IRREGULAR"""
^DIE(263,"DIAB",4,0,2100,5)="019-2;""(019) QUADRIPLEGIA - DISCHARGES - REGULAR"""
^DIE(263,"DIAB",4,0,2100,6)="024-2;""(024) PARAPLEGIA - LOS SC 1-29 DAYS"""
^DIE(263,"DIAB",4,0,2100,7)="028-2;""(028) PARAPLEGIA - LOS SC 360-719 DAYS"""
^DIE(263,"DIAB",4,0,2100,8)="033-2;""(033) PARAPLEGIA - LOS NSC 180-359 DAYS"""
^DIE(263,"DIAB",4,0,2100,9)="038-2;""(038) QUADRIPLEGIA - LOS SC 60-179 DAYS"""
^DIE(263,"DIAB",4,0,2100,10)="042-2;""(042) QUADRIPLEGIA - LOS NSC 1-29 DAYS"""
^DIE(263,"DIAB",4,0,2100,11)="046-2;""(046) QUADRIPLEGIA - LOS NSC 360-719 DAYS"""
^DIE(263,"DIAB",4,0,2100,12)="050-3;""(050) PARAPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC SC"""
^DIE(263,"DIAB",5,0,2100,5)="020-2;""(020) QUADRIPLEGIA - DISCHARGES - IRREGULAR"""
^DIE(263,"DIAB",5,0,2100,7)="029-2;""(029) PARAPLEGIA - LOS SC 720 & OVER DAYS"""
^DIE(263,"DIAB",5,0,2100,8)="034-2;""(034) PARAPLEGIA - LOS NSC 360-719 DAYS"""
^DIE(263,"DIAB",9,0,2100,0)="001-2;""(001) PARAPLEGIA - DIRECT ADMISSION - 1ST TIME - SC"""
^DIE(263,"DIAB",10,0,2100,0)="002-2;""(002) PARAPLEGIA - DIRECT ADMISSION - 1ST TIME - NSC"""
^DIE(263,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=5;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;57.001(001) PARAPLEGIA - DIRECT ADMISSION - 1ST TIME - SC~;57.002(002) PARAPLEGIA - DIRECT ADMISSION - 1ST TIME - NSC~;"
^DIE(263,"DR",1,2100,1)="57.003(003) PARAPLEGIA - DIRECT ADMISSION - READMISSION - SC~;57.004(004) PARAPLEGIA - DIRECT ADMISSION - READMISSION - NSC~;57.005(005) PARAPLEGIA - TRANSFERS FROM VA HOSPITALS - SC~;"
^DIE(263,"DR",1,2100,2)="57.006(006) PARAPLEGIA - TRANSFERS FROM VA HOSPITALS - NSC~;57.007(007) QUADRIPLEGIA - DIRECT ADMISSION - 1ST TIME - SC~;57.008(008) QUADRIPLEGIA - DIRECT ADMISSION - 1ST TIME - NSC~;"
^DIE(263,"DR",1,2100,3)="57.009(009) QUADRIPLEGIA - DIRECT ADMISSION - READMISSION - SC~;57.01(010) QUADRIPLEGIA - DIRECT ADMISSION - READMISSION - NSC~;57.011(011) QUADRIPLEGIA - TRANSFERS FROM VA HOSPITALS - SC~;"
^DIE(263,"DR",1,2100,4)="57.012(012) QUADRIPLEGIA - TRANSFERS FROM VA HOSPITALS - NSC~;53.013(013) TOTAL SCI PTS. W/ INJURIES SUSTAINED WITHIN PAST 6 MONTHS~;53.014(014) PARAPLEGIA - DISCHARGES - REGULAR~;57.015(015) PARAPLEGIA - DISCHARGES - IRREGULAR~;"
^DIE(263,"DR",1,2100,5)="57.016(016) PARAPLEGIA - DISCHARGES - OPT-SC~;57.017(017) PARAPLEGIA - DISCHARGES - OPT-NSC~;57.018(018) PARAPLEGIA - DEATHS~;57.019(019) QUADRIPLEGIA - DISCHARGES - REGULAR~;57.02(020) QUADRIPLEGIA - DISCHARGES - IRREGULAR~;"
^DIE(263,"DR",1,2100,6)="57.021(021) QUADRIPLEGIA - DISCHARGES - OPT-SC~;57.022(022) QUADRIPLEGIA - DISCHARGES - OPT-NSC~;57.023(023) QUADRIPLEGIA - DISCHARGES - DEATHS~;57.024(024) PARAPLEGIA - LOS SC 1-29 DAYS~;"
^DIE(263,"DR",1,2100,7)="57.025(025) PARAPLEGIA - LOS SC 30-59 DAYS~;57.026(026) PARAPLEGIA - LOS SC 60-179 DAYS~;57.027(027) PARAPLEGIA - LOS SC 180-359 DAYS~;57.028(028) PARAPLEGIA - LOS SC 360-719 DAYS~;57.029(029) PARAPLEGIA - LOS SC 720 & OVER DAYS~;"
^DIE(263,"DR",1,2100,8)="57.03(030) PARAPLEGIA - LOS NSC 1-29 DAYS~;57.031(031) PARAPLEGIA - LOS NSC 30-59 DAYS~;57.032(032) PARAPLEGIA - LOS NSC 60-179 DAYS~;57.033(033) PARAPLEGIA - LOS NSC 180-359 DAYS~;57.034(034) PARAPLEGIA - LOS NSC 360-719 DAYS~;"
^DIE(263,"DR",1,2100,9)="57.035(035) PARAPLEGIA - LOS NSC 720 & OVER DAYS~;57.036(036) QUADRIPLEGIA - LOS SC 1-29 DAYS~;57.037(037) QUADRIPLEGIA - LOS SC 30-59 DAYS~;57.038(038) QUADRIPLEGIA - LOS SC 60-179 DAYS~;"
^DIE(263,"DR",1,2100,10)="57.039(039) QUADRIPLEGIA - LOS SC 180-359 DAYS~;57.04(040) QUADRIPLEGIA - LOS SC 360-719 DAYS~;57.041(041) QUADRIPLEGIA - LOS SC 720 & OVER DAYS~;57.042(042) QUADRIPLEGIA - LOS NSC 1-29 DAYS~;"
^DIE(263,"DR",1,2100,11)="57.043(043) QUADRIPLEGIA - LOS NSC 30-59 DAYS~;57.044(044) QUADRIPLEGIA - LOS NSC 60-179 DAYS~;57.045(045) QUADRIPLEGIA - LOS NSC 180-359 DAYS~;57.046(046) QUADRIPLEGIA - LOS NSC 360-719 DAYS~;"
^DIE(263,"DR",1,2100,12)="57.047(047) QUADRIPLEGIA - LOS NSC 720 & OVER DAYS~;53.048(048) PARAPLEGIA - SCI WARDS CENSUS - TRAUMATIC SC~;53.049(049) PARAPLEGIA - SCI WARDS CENSUS - TRAUMATIC NSC~;53.05(050) PARAPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC SC~;"
^DIE(263,"DR",1,2100,13)="53.051(051) PARAPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC NSC~;53.052(052) QUADRIPLEGIA - SCI WARDS CENSUS - TRAUMATIC SC~;53.053(053) QUADRIPLEGIA - SCI WARDS CENSUS - TRAUMATIC NSC~;"
^DIE(263,"DR",1,2100,14)="53.054(054) QUADRIPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC SC~;53.055(055) QUADRIPLEGIA - SCI WARDS CENSUS - NON-TRAUMATIC NSC~;57.056(056) PARAPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC SC~;"
^DIE(263,"DR",1,2100,15)="57.057(057) PARAPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC NSC~;57.058(058) PARAPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC SC~;57.059(059) PARAPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC NSC~;"
^DIE(263,"DR",1,2100,16)="57.06(060) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC SC~;57.061(061) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - TRAUMATIC NSC~;57.062(062) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC SC~;"
^DIE(263,"DR",1,2100,17)="57.063(063) QUADRIPLEGIA - ALL OTHER WARDS CENSUS - NON-TRAUMATIC NSC~;53.064(064) PARAPLEGIA - CENSUS IN OPT-NSC STATUS~;53.065(065) QUADRIPLEGIA - CENSUS IN OPT-NSC STATUS~;"
^DIE(263,"DR",1,2100,18)="54.066(066) PARAPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF PATIENTS~;54.067(067) PARAPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF VISITS~;54.068(068) PARAPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF PATIENTS~;"
^DIE(263,"DR",1,2100,19)="54.069(069) PARAPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF VISITS~;54.07(070) QUADRIPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF PATIENTS~;54.071(071) QUADRIPLEGIA - OUTPATIENT CLINIC - SC NUMBER OF VISITS~;"
^DIE(263,"DR",1,2100,20)="54.072(072) QUADRIPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF PATIENTS~;54.073(073) QUADRIPLEGIA - OUTPATIENT CLINIC - NSC NUMBER OF VISITS~;99///^S X=""$"";"
^DIE(264,0)="RMPR AMS5 AMIS 362^2900619.1109^^2100"
^DIE(264,"DIAB",1,0,2100,1)="004-2;""(004) GAINS - QUADRIPLEGIC - NSC"""
^DIE(264,"DIAB",1,0,2100,2)="008-2;""(008) LOSSES - PARAPLEGIC - DEATHS - NSC"""
^DIE(264,"DIAB",1,0,2100,3)="012-2;""(012) LOSSES - QUADRIPLEGIC - DISCHARGES - NSC"""
^DIE(264,"DIAB",1,0,2100,4)="016-2;""(016) LOSSES - QUADRIPLEGIC - READ. TO HOSP. - NSC"""
^DIE(264,"DIAB",1,0,2100,5)="019-2;""(019) LIVING ARRNG. - PARAPLEGIC - PERS. CARE RESID. - SC"""
^DIE(264,"DIAB",1,0,2100,6)="022-2;""(022) LIVING ARRNG. - PARAPLEGIC - INDEPENDENT - NSC"""
^DIE(264,"DIAB",1,0,2100,7)="026-2;""(026) LIVING ARRNG. - QUADRIPLEGIC - FAMILY - NSC"""
^DIE(264,"DIAB",1,0,2100,8)="029-2;""(029) LIVING ARRNG. - QUADRIPLEGIC - INDEPENDENT - SC"""
^DIE(264,"DIAB",1,0,2100,9)="032-2;""(032) LIVING ARRNG. - QUADRIPLEGIC - OTHER - NSC"""
^DIE(264,"DIAB",1,0,2100,10)="036-3;""(036) PARAPLEGIC - HOME VISITS BY R.N. - NSC"""
^DIE(264,"DIAB",1,0,2100,11)="040-3;""(040) PARAPLEGIC - HOME VISITS BY DIETICIAN - NSC"""
^DIE(264,"DIAB",1,0,2100,12)="044-3;""(044) PARAPLEGIC - HOME VISITS BY RMS - NSC"""
^DIE(264,"DIAB",1,0,2100,13)="048-3;""(048) PARAPLEGIC - HOME VISITS BY OTHER - NSC"""
^DIE(264,"DIAB",1,0,2100,14)="052-3;""(052) QUADRIPLEGIC - HOME VISITS BY R.N. - NSC"""
^DIE(264,"DIAB",1,0,2100,15)="056-3;""(056) QUADRIPLEGIC - HOME VISITS BY DIETICAIN - NSC"""
^DIE(264,"DIAB",1,0,2100,16)="059-2;""(059) QUADRIPLEGIC - HOME VISITS BY RMS - SC"""
^DIE(264,"DIAB",1,0,2100,17)="062-3;""(062) QUADRIPLEGIC - HOME VISITS BY HOME HLTH. AIDE - NSC"""
^DIE(264,"DIAB",1,0,2100,18)="066-3;""(066) DIRECT CARE - ALL SCI - SKILLED - NSC"""
^DIE(264,"DIAB",1,0,2100,19)="070-3;""(070) PT. VISITS - PARAPLEGIC - CLINIC - NSC"""
^DIE(264,"DIAB",1,0,2100,20)="074-3;""(074) PT. VISITS - PARAPLEGIC - OTHER - NSC"""
^DIE(264,"DIAB",1,0,2100,21)="077-2;""(077) PT. VISITS - PARAPLEGIC - PTS. NOT IN HOME CARE - SC"""
^DIE(264,"DIAB",1,0,2100,22)="080-3;""(080) PT. VISITS - QUADRIPLEGIC - CLINIC - NSC"""
^DIE(264,"DIAB",1,0,2100,23)="084-3;""(084) PT. VISITS - QUADRIPLEGIC - OTHER - NSC"""
^DIE(264,"DIAB",1,0,2100,24)="087-2;""(087) PT. VISITS - QUADRIPLEGIC - PTS. NOT IN HOME CARE - SC"""
^DIE(264,"DIAB",1,0,2100,25)="090-3;""(090) STAFF TRAINING/ADMIN (HRS) - COMMUNITY DEV."""
^DIE(264,"DIAB",1,0,2100,26)="094-8;""(094) STAFF TRAINING/ADMIN - TOTAL MILEAGE"""
^DIE(264,"DIAB",2,0,2100,1)="005-2;""(005) LOSSES - PARAPLEGIC - DISCHARGES - SC"""
^DIE(264,"DIAB",2,0,2100,2)="009-2;""(009) LOSSES - PARAPLEGIC - READ. TO HOSP. - SC"""
^DIE(264,"DIAB",2,0,2100,3)="013-2;""(013) LOSSES - QUADRIPLEGIC - DEATHS - SC"""
^DIE(264,"DIAB",2,0,2100,4)="017-2;""(017) LIVING ARRNG. - PARAPLEGIC - FAMILY - SC"""
^DIE(264,"DIAB",2,0,2100,5)="020-2;""(020) LIVING ARRNG. - PARAPLEGIC - PERS. CARE RESID. - NSC"""
^DIE(264,"DIAB",2,0,2100,6)="023-2;""(023) LIVING ARRNG. - PARAPLEGIC - OTHER - SC"""
^DIE(264,"DIAB",2,0,2100,7)="027-2;""(027) LIVING ARRNG. - QUADRIPLEGIC - PERS. CARE RESID. - SC"""
^DIE(264,"DIAB",2,0,2100,8)="030-2;""(030) LIVING ARRNG. - QUADRIPLEGIC - INDEPENDENT - NSC"""
^DIE(264,"DIAB",2,0,2100,9)="033-2;""(033) PARAPLEGIC - HOME VISITS BY PHYSICIAN - SC"""
^DIE(264,"DIAB",2,0,2100,10)="037-2;""(037) PARAPLEGIC - HOME VISITS BY L.P.N. - SC"""
^DIE(264,"DIAB",2,0,2100,11)="041-2;""(041) PARAPLEGIC - HOME VISITS BY SOC. WORKER - SC"""
^DIE(264,"DIAB",2,0,2100,12)="045-2;""(045) PARAPLEGIC - HOME VISITS BY HOME HLTH. AIDE - SC"""
^DIE(264,"DIAB",2,0,2100,13)="049-2;""(049) QUADRIPLEGIC - HOME VISITS BY PHYSICIAN - SC"""
^DIE(264,"DIAB",2,0,2100,14)="053-2;""(053) QUADRIPLEGIC - HOME VISITS BY L.P.N. - SC"""
^DIE(264,"DIAB",2,0,2100,15)="057-2;""(057) QUADRIPLEGIC - HOME VISITS BY SOC. WORKER - SC"""
^DIE(264,"DIAB",2,0,2100,16)="060-3;""(060) QUADRIPLEGIC - HOME VISITS BY RMS - NSC"""
^DIE(264,"DIAB",2,0,2100,17)="063-2;""(063) QUADRIPLEGIC - HOME VISITS BY OTHER - SC"""
^DIE(264,"DIAB",2,0,2100,18)="067-2;""(067) DIRECT CARE - ALL SCI - UNSKILLED - SC"""
^DIE(264,"DIAB",2,0,2100,19)="071-2;""(071) PT. VISITS - PARAPLEGIC - WARD - SC"""
^DIE(264,"DIAB",2,0,2100,20)="075-2;""(075) PT. VISITS - PARAPLEGIC - DC. PLANNING - SC"""
^DIE(264,"DIAB",2,0,2100,21)="078-3;""(078) PT. VISITS - PARAPLEGIC - PTS. NOT IN HOME CARE - NSC"""
^DIE(264,"DIAB",2,0,2100,22)="081-2;""(081) PT. VISITS - QUADRIPLEGIC - WARD - SC"""
^DIE(264,"DIAB",2,0,2100,23)="085-2;""(085) PT. VISITS - QUADRIPLEGIC - DC. PLANNING - SC"""
^DIE(264,"DIAB",2,0,2100,24)="088-3;""(088) PT. VISITS - QUADRIPLEGIC - PTS. NOT IN HOME CARE - NSC"""
^DIE(264,"DIAB",2,0,2100,25)="091-3;""(091) STAFF TRAINING/ADMIN (HRS) - IN SVC. TRNG."""
^DIE(264,"DIAB",3,0,2100,1)="006-2;""(006) LOSSES - PARAPLEGIC - DISCHARGES - NSC"""
^DIE(264,"DIAB",3,0,2100,2)="010-2;""(010) LOSSES - PARAPLEGIC - READ. TO HOSP. - NSC"""
^DIE(264,"DIAB",3,0,2100,3)="014-2;""(014) LOSSES - QUADRIPLEGIC - DEATHS - NSC"""
^DIE(264,"DIAB",3,0,2100,4)="018-2;""(018) LIVING ARRNG. - PARAPLEGIC - FAMILY - NSC"""
^DIE(264,"DIAB",3,0,2100,5)="021-2;""(021) LIVING ARRNG. - PARAPLEGIC - INDEPENDENT - SC"""
^DIE(264,"DIAB",3,0,2100,6)="024-2;""(024) LIVING ARRNG. - PARAPLEGIC - OTHER - NSC"""
^DIE(264,"DIAB",3,0,2100,7)="028-2;""(028) LIVING ARRNG. - QUADRIPLEGIC - PERS. CARE RESID. - NSC"""
^DIE(264,"DIAB",3,0,2100,8)="031-2;""(031) LIVING ARRNG. - QUADRIPLEGIC - OTHER - SC"""
^DIE(264,"DIAB",3,0,2100,9)="034-3;""(034) PARAPLEGIC - HOME VISITS BY PHYSICIAN - NSC"""
^DIE(264,"DIAB",3,0,2100,10)="038-3;""(038) PARAPLEGIC - HOME VISITS BY L.P.N. - NSC"""
^DIE(264,"DIAB",3,0,2100,11)="042-3;""(042) PARAPLEGIC - HOME VISITS BY SOC. WORKER - NSC"""
^DIE(264,"DIAB",3,0,2100,12)="046-3;""(046) PARAPLEGIC - HOME VISITS BY HOME HLTH. AIDE - NSC"""
^DIE(264,"DIAB",3,0,2100,13)="050-3;""(050) QUADRIPLEGIC - HOME VISITS BY PHYSICIAN - NSC"""
^DIE(264,"DIAB",3,0,2100,14)="054-3;""(054) QUADRIPLEGIC - HOME VISITS BY L.P.N. - NSC"""
^DIE(264,"DIAB",3,0,2100,15)="058-3;""(058) QUADRIPLEGIC - HOME VISITS BY SOC. WORKER - NSC"""
^DIE(264,"DIAB",3,0,2100,16)="061-2;""(061) QUADRIPLEGIC - HOME VISITS BY HOME HLTH. AIDE - SC"""
^DIE(264,"DIAB",3,0,2100,17)="064-3;""(064) QUADRIPLEGIC - HOME VISITS BY OTHER - NSC"""
^DIE(264,"DIAB",3,0,2100,18)="068-3;""(068) DIRECT CARE - ALL SCI - UNSKILLED - NSC"""
^DIE(264,"DIAB",3,0,2100,19)="072-3;""(072) PT. VISITS - PARAPLEGIC - WARD - NSC"""
^DIE(264,"DIAB",3,0,2100,20)="076-3;""(076) PT. VISITS - PARAPLEGIC - DC. PLANNING - NSC"""
^DIE(264,"DIAB",3,0,2100,21)="079-2;""(079) PT. VISITS - QUADRIPLEGIC - CLINIC - SC"""
^DIE(264,"DIAB",3,0,2100,22)="082-3;""(082) PT. VISITS - QUADRIPLEGIC - WARD - NSC"""
^DIE(264,"DIAB",3,0,2100,23)="086-3;""(086) PT. VISITS - QUADRIPLEGIC - DC. PLANNING - NSC"""
^DIE(264,"DIAB",3,0,2100,24)="089-3;""(089) STAFF TRAINING/ADMIN (HRS) - COMMUNITY ED."""
^DIE(264,"DIAB",3,0,2100,25)="092-4;""(092) STAFF TRAINING/ADMIN (HRS) - ADMIN."""
^DIE(264,"DIAB",4,0,2100,1)="007-2;""(007) LOSSES - PARAPLEGIC - DEATHS - SC"""
^DIE(264,"DIAB",4,0,2100,2)="011-2;""(011) LOSSES - QUADRIPLEGIC - DISCHARGES - SC"""
^DIE(264,"DIAB",4,0,2100,3)="015-2;""(015) LOSSES - QUADRIPLEGIC - READ. TO HOSP. - SC"""
^DIE(264,"DIAB",4,0,2100,6)="025-2;""(025) LIVING ARRNG. - QUADRIPLEGIC - FAMILY - SC"""
^DIE(264,"DIAB",4,0,2100,9)="035-2;""(035) PARAPLEGIC - HOME VISITS BY R.N. - SC"""
^DIE(264,"DIAB",4,0,2100,10)="039-2;""(039) PARAPLEGIC - HOME VISITS BY DIETICIAN - SC"""
^DIE(264,"DIAB",4,0,2100,11)="043-2;""(043) PARAPLEGIC - HOME VISITS BY RMS - SC"""
^DIE(264,"DIAB",4,0,2100,12)="047-2;""(047) PARAPLEGIC - HOME VISITS BY OTHER - SC"""
^DIE(264,"DIAB",4,0,2100,13)="051-2;""(051) QUADRIPLEGIC - HOME VISITS BY R.N. - SC"""
^DIE(264,"DIAB",4,0,2100,14)="055-2;""(055) QUADRIPLEGIC - HOME VISITS BY DIETICIAN - SC"""
^DIE(264,"DIAB",4,0,2100,17)="065-2;""(065) DIRECT CARE - ALL SCI - SKILLED - SC"""
^DIE(264,"DIAB",4,0,2100,18)="069-2;""(069) PT. VISITS - PARAPLEGIC - CLINIC - SC"""
^DIE(264,"DIAB",4,0,2100,19)="073-2;""(073) PT. VISITS - PARAPLEGIC - OTHER - SC"""
^DIE(264,"DIAB",4,0,2100,22)="083-2;""(083) PT. VISITS - QUADRIPLEGIC - OTHER - SC"""
^DIE(264,"DIAB",4,0,2100,25)="093-3;""(093) STAFF TRAINING/ADMIN (HRS) - COMMITTERS"""
^DIE(264,"DIAB",9,0,2100,0)="001-2;""(001) GAINS - PARAPLEGIC - SC"""
^DIE(264,"DIAB",10,0,2100,0)="002-2;""(002) GAINS - PARAPLEGIC - NSC"""
^DIE(264,"DIAB",11,0,2100,0)="003-2;""(003) GAINS - QUADRIPLEGIC - SC"""
^DIE(264,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;57.001(001) GAINS - PARAPLEGIC - SC~;57.002(002) GAINS - PARAPLEGIC - NSC~;57.003(003) GAINS - QUADRIPLEGIC - SC~;"
^DIE(264,"DR",1,2100,1)="57.004(004) GAINS - QUADRIPLEGIC - NSC~;57.005(005) LOSSES - PARAPLEGIC - DISCHARGES - SC~;57.006(006) LOSSES - PARAPLEGIC - DISCHARGES - NSC~;57.007(007) LOSSES - PARAPLEGIC - DEATHS - SC~;"
^DIE(264,"DR",1,2100,2)="57.008(008) LOSSES - PARAPLEGIC - DEATHS - NSC~;57.009(009) LOSSES - PARAPLEGIC - READ. TO HOSP. - SC~;57.01(010) LOSSES - PARAPLEGIC - READ. TO HOSP. - NSC~;57.011(011) LOSSES - QUADRIPLEGIC - DISCHARGES - SC~;"
^DIE(264,"DR",1,2100,3)="57.012(012) LOSSES - QUADRIPLEGIC - DISCHARGES - NSC~;57.013(013) LOSSES - QUADRIPLEGIC - DEATHS - SC~;57.014(014) LOSSES - QUADRIPLEGIC - DEATHS - NSC~;57.015(015) LOSSES - QUADRIPLEGIC - READ. TO HOSP. - SC~;"
^DIE(264,"DR",1,2100,4)="57.016(016) LOSSES - QUADRIPLEGIC - READ. TO HOSP. - NSC~;57.017(017) LIVING ARRNG. - PARAPLEGIC - FAMILY - SC~;57.018(018) LIVING ARRNG. - PARAPLEGIC - FAMILY - NSC~;"
^DIE(264,"DR",1,2100,5)="57.019(019) LIVING ARRNG. - PARAPLEGIC - PERS. CARE RESID. - SC~;57.02(020) LIVING ARRNG. - PARAPLEGIC - PERS. CARE RESID. - NSC~;57.021(021) LIVING ARRNG. - PARAPLEGIC - INDEPENDENT - SC~;"
^DIE(264,"DR",1,2100,6)="57.022(022) LIVING ARRNG. - PARAPLEGIC - INDEPENDENT - NSC~;57.023(023) LIVING ARRNG. - PARAPLEGIC - OTHER - SC~;57.024(024) LIVING ARRNG. - PARAPLEGIC - OTHER - NSC~;57.025(025) LIVING ARRNG. - QUADRIPLEGIC - FAMILY - SC~;"
^DIE(264,"DR",1,2100,7)="57.026(026) LIVING ARRNG. - QUADRIPLEGIC - FAMILY - NSC~;57.027(027) LIVING ARRNG. - QUADRIPLEGIC - PERS. CARE RESID. - SC~;57.028(028) LIVING ARRNG. - QUADRIPLEGIC - PERS. CARE RESID. - NSC~;"
^DIE(264,"DR",1,2100,8)="57.029(029) LIVING ARRNG. - QUADRIPLEGIC - INDEPENDENT - SC~;57.03(030) LIVING ARRNG. - QUADRIPLEGIC - INDEPENDENT - NSC~;57.031(031) LIVING ARRNG. - QUADRIPLEGIC - OTHER - SC~;"
^DIE(264,"DR",1,2100,9)="57.032(032) LIVING ARRNG. - QUADRIPLEGIC - OTHER - NSC~;57.033(033) PARAPLEGIC - HOME VISITS BY PHYSICIAN - SC~;53.034(034) PARAPLEGIC - HOME VISITS BY PHYSICIAN - NSC~;57.035(035) PARAPLEGIC - HOME VISITS BY R.N. - SC~;"
^DIE(264,"DR",1,2100,10)="53.036(036) PARAPLEGIC - HOME VISITS BY R.N. - NSC~;57.037(037) PARAPLEGIC - HOME VISITS BY L.P.N. - SC~;53.038(038) PARAPLEGIC - HOME VISITS BY L.P.N. - NSC~;57.039(039) PARAPLEGIC - HOME VISITS BY DIETICIAN - SC~;"
^DIE(264,"DR",1,2100,11)="53.04(040) PARAPLEGIC - HOME VISITS BY DIETICIAN - NSC~;57.041(041) PARAPLEGIC - HOME VISITS BY SOC. WORKER - SC~;53.042(042) PARAPLEGIC - HOME VISITS BY SOC. WORKER - NSC~;57.043(043) PARAPLEGIC - HOME VISITS BY RMS - SC~;"
^DIE(264,"DR",1,2100,12)="53.044(044) PARAPLEGIC - HOME VISITS BY RMS - NSC~;57.045(045) PARAPLEGIC - HOME VISITS BY HOME HLTH. AIDE - SC~;53.046(046) PARAPLEGIC - HOME VISITS BY HOME HLTH. AIDE - NSC~;57.047(047) PARAPLEGIC - HOME VISITS BY OTHER - SC~;"
^DIE(264,"DR",1,2100,13)="53.048(048) PARAPLEGIC - HOME VISITS BY OTHER - NSC~;57.049(049) QUADRIPLEGIC - HOME VISITS BY PHYSICIAN - SC~;53.05(050) QUADRIPLEGIC - HOME VISITS BY PHYSICIAN - NSC~;57.051(051) QUADRIPLEGIC - HOME VISITS BY R.N. - SC~;"
^DIE(264,"DR",1,2100,14)="53.052(052) QUADRIPLEGIC - HOME VISITS BY R.N. - NSC~;57.053(053) QUADRIPLEGIC - HOME VISITS BY L.P.N. - SC~;53.054(054) QUADRIPLEGIC - HOME VISITS BY L.P.N. - NSC~;57.055(055) QUADRIPLEGIC - HOME VISITS BY DIETICIAN - SC~;"
^DIE(264,"DR",1,2100,15)="53.056(056) QUADRIPLEGIC - HOME VISITS BY DIETICAIN - NSC~;57.057(057) QUADRIPLEGIC - HOME VISITS BY SOC. WORKER - SC~;53.058(058) QUADRIPLEGIC - HOME VISITS BY SOC. WORKER - NSC~;"
^DIE(264,"DR",1,2100,16)="57.059(059) QUADRIPLEGIC - HOME VISITS BY RMS - SC~;53.06(060) QUADRIPLEGIC - HOME VISITS BY RMS - NSC~;57.061(061) QUADRIPLEGIC - HOME VISITS BY HOME HLTH. AIDE - SC~;"
^DIE(264,"DR",1,2100,17)="53.062(062) QUADRIPLEGIC - HOME VISITS BY HOME HLTH. AIDE - NSC~;57.063(063) QUADRIPLEGIC - HOME VISITS BY OTHER - SC~;53.064(064) QUADRIPLEGIC - HOME VISITS BY OTHER - NSC~;57.065(065) DIRECT CARE - ALL SCI - SKILLED - SC~;"
^DIE(264,"DR",1,2100,18)="53.066(066) DIRECT CARE - ALL SCI - SKILLED - NSC~;57.067(067) DIRECT CARE - ALL SCI - UNSKILLED - SC~;53.068(068) DIRECT CARE - ALL SCI - UNSKILLED - NSC~;57.069(069) PT. VISITS - PARAPLEGIC - CLINIC - SC~;"
^DIE(264,"DR",1,2100,19)="53.07(070) PT. VISITS - PARAPLEGIC - CLINIC - NSC~;57.071(071) PT. VISITS - PARAPLEGIC - WARD - SC~;53.072(072) PT. VISITS - PARAPLEGIC - WARD - NSC~;57.073(073) PT. VISITS - PARAPLEGIC - OTHER - SC~;"
^DIE(264,"DR",1,2100,20)="53.074(074) PT. VISITS - PARAPLEGIC - OTHER - NSC~;57.075(075) PT. VISITS - PARAPLEGIC - DC. PLANNING - SC~;53.076(076) PT. VISITS - PARAPLEGIC - DC. PLANNING - NSC~;"
^DIE(264,"DR",1,2100,21)="57.077(077) PT. VISITS - PARAPLEGIC - PTS. NOT IN HOME CARE - SC~;53.078(078) PT. VISITS - PARAPLEGIC - PTS. NOT IN HOME CARE - NSC~;57.079(079) PT. VISITS - QUADRIPLEGIC - CLINIC - SC~;"
^DIE(264,"DR",1,2100,22)="53.08(080) PT. VISITS - QUADRIPLEGIC - CLINIC - NSC~;57.081(081) PT. VISITS - QUADRIPLEGIC - WARD - SC~;53.082(082) PT. VISITS - QUADRIPLEGIC - WARD - NSC~;57.083(083) PT. VISITS - QUADRIPLEGIC - OTHER - SC~;"
^DIE(264,"DR",1,2100,23)="53.084(084) PT. VISITS - QUADRIPLEGIC - OTHER - NSC~;57.085(085) PT. VISITS - QUADRIPLEGIC - DC. PLANNING - SC~;53.086(086) PT. VISITS - QUADRIPLEGIC - DC. PLANNING - NSC~;"
^DIE(264,"DR",1,2100,24)="57.087(087) PT. VISITS - QUADRIPLEGIC - PTS. NOT IN HOME CARE - SC~;53.088(088) PT. VISITS - QUADRIPLEGIC - PTS. NOT IN HOME CARE - NSC~;53.089(089) STAFF TRAINING/ADMIN (HRS) - COMMUNITY ED.~;"
^DIE(264,"DR",1,2100,25)="53.09(090) STAFF TRAINING/ADMIN (HRS) - COMMUNITY DEV.~;53.091(091) STAFF TRAINING/ADMIN (HRS) - IN SVC. TRNG.~;54.092(092) STAFF TRAINING/ADMIN (HRS) - ADMIN.~;53.093(093) STAFF TRAINING/ADMIN (HRS) - COMMITTERS~;"
^DIE(264,"DR",1,2100,26)="59.094(094) STAFF TRAINING/ADMIN - TOTAL MILEAGE~;99///^S X=""$"";"
^DIE(265,0)="MC AMS2 J41 MICU^2901022.1307^^2100^^^2931007"
^DIE(265,"DIAB",11,0,2100,0)="2502;T"
^DIE(265,"DIAB",12,0,2100,0)="2503;T"
^DIE(265,"DIAB",13,0,2100,0)="2504;T"
^DIE(265,"DIAB",14,0,2100,0)="2505;T"
^DIE(265,"DIAB",16,0,2100,0)="2507;T"
^DIE(265,"DIAB",23,0,2100,0)="2516;T"
^DIE(265,"DIAB",24,0,2100,0)="2517;T"
^DIE(265,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=2;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;2500;2501;2502T~;2503T~;2504T~;2505T~;2506;2507T~;2508;2999///^S X=""000000000000"";2512;2513;2514;2515;2516T~;2517T~;2518;"
^DIE(265,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(266,0)="MC AMS2 J42 SICU^2901022.1309^^2100^^^2931007"
^DIE(266,"DIAB",11,0,2100,0)="2502;T"
^DIE(266,"DIAB",12,0,2100,0)="2503;T"
^DIE(266,"DIAB",13,0,2100,0)="2504;T"
^DIE(266,"DIAB",14,0,2100,0)="2505;T"
^DIE(266,"DIAB",16,0,2100,0)="2507;T"
^DIE(266,"DIAB",23,0,2100,0)="2516;T"
^DIE(266,"DIAB",24,0,2100,0)="2517;T"
^DIE(266,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=2;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;2500;2501;2502T~;2503T~;2504T~;2505T~;2506;2507T~;2508;2999///^S X=""000000000000"";2512;2513;2514;2515;2516T~;2517T~;2518;"
^DIE(266,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(267,0)="MC AMS2 J43 CCU^2901022.131^^2100"
^DIE(267,"DIAB",11,0,2100,0)="2502;T"
^DIE(267,"DIAB",12,0,2100,0)="2503;T"
^DIE(267,"DIAB",13,0,2100,0)="2504;T"
^DIE(267,"DIAB",14,0,2100,0)="2505;T"
^DIE(267,"DIAB",16,0,2100,0)="2507;T"
^DIE(267,"DIAB",23,0,2100,0)="2516;T"
^DIE(267,"DIAB",24,0,2100,0)="2517;T"
^DIE(267,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=2;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;2500;2501;2502T~;2503T~;2504T~;2505T~;2506;2507T~;2508;2999///^S X=""000000000000"";2512;2513;2514;2515;2516T~;2517T~;2518;"
^DIE(267,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(268,0)="MC AMS2 J44 GEN PURPOSE UNIT^2900918.1409^^2100^0^^2900918"
^DIE(268,"DIAB",11,0,2100,0)="2502;T"
^DIE(268,"DIAB",12,0,2100,0)="2503;T"
^DIE(268,"DIAB",13,0,2100,0)="2504;T"
^DIE(268,"DIAB",14,0,2100,0)="2505;T"
^DIE(268,"DIAB",16,0,2100,0)="2507;T"
^DIE(268,"DIAB",18,0,2100,0)="2509;T"
^DIE(268,"DIAB",19,0,2100,0)="2510;T"
^DIE(268,"DIAB",20,0,2100,0)="2511;T"
^DIE(268,"DIAB",25,0,2100,0)="2516;T"
^DIE(268,"DIAB",26,0,2100,0)="2517;T"
^DIE(268,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=2;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;2500;2501;2502T~;2503T~;2504T~;2505T~;2506;2507T~;2508;2509T~;2510T~;2511T~;2512;2513;2514;2515;2516T~;2517T~;2518;"
^DIE(268,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(269,0)="MC AMS2 J19 DIALYSIS^2900918.2046^^2100^0^^2940824"
^DIE(269,"DIAB",1,0,2100,1)="2418;T"
^DIE(269,"DIAB",3,0,2100,1)="2420;T"
^DIE(269,"DIAB",4,0,2100,1)="2421;T"
^DIE(269,"DIAB",4,0,2100,2)="2456;T"
^DIE(269,"DIAB",5,0,2100,1)="2422;T"
^DIE(269,"DIAB",5,0,2100,2)="2457;T"
^DIE(269,"DIAB",6,0,2100,1)="2423;T"
^DIE(269,"DIAB",6,0,2100,2)="2458;T"
^DIE(269,"DIAB",7,0,2100,1)="2424;T"
^DIE(269,"DIAB",7,0,2100,2)="2459;T"
^DIE(269,"DIAB",8,0,2100,0)="2998;""T"""
^DIE(269,"DIAB",8,0,2100,1)="2425;T"
^DIE(269,"DIAB",9,0,2100,0)="2401;T"
^DIE(269,"DIAB",9,0,2100,1)="2426;T"
^DIE(269,"DIAB",9,0,2100,2)="2461;T"
^DIE(269,"DIAB",10,0,2100,0)="2402;T"
^DIE(269,"DIAB",10,0,2100,1)="2427;T"
^DIE(269,"DIAB",10,0,2100,2)="2462;T"
^DIE(269,"DIAB",11,0,2100,0)="2403;T"
^DIE(269,"DIAB",11,0,2100,1)="2428;T"
^DIE(269,"DIAB",11,0,2100,2)="2463;T"
^DIE(269,"DIAB",12,0,2100,0)="2404;T"
^DIE(269,"DIAB",12,0,2100,1)="2429;T"
^DIE(269,"DIAB",12,0,2100,2)="2464;T"
^DIE(269,"DIAB",13,0,2100,1)="2430;T"
^DIE(269,"DIAB",14,0,2100,0)="2406;T"
^DIE(269,"DIAB",14,0,2100,1)="2431;T"
^DIE(269,"DIAB",15,0,2100,0)="2407;T"
^DIE(269,"DIAB",15,0,2100,1)="2432;T"
^DIE(269,"DIAB",16,0,2100,0)="2408;T"
^DIE(269,"DIAB",16,0,2100,1)="2433;T"
^DIE(269,"DIAB",16,0,2100,2)="2515;""FTEE-NURSING ASSISTANTS AND LPN'S"""
^DIE(269,"DIAB",17,0,2100,0)="2409;T"
^DIE(269,"DIAB",17,0,2100,1)="2434;T"
^DIE(269,"DIAB",18,0,2100,0)="2410;T"
^DIE(269,"DIAB",18,0,2100,1)="2435;T"
^DIE(269,"DIAB",19,0,2100,0)="2411;T"
^DIE(269,"DIAB",19,0,2100,1)="2436;T"
^DIE(269,"DIAB",19,0,2100,2)="2517;T"
^DIE(269,"DIAB",20,0,2100,0)="2412;T"
^DIE(269,"DIAB",20,0,2100,1)="2437;T"
^DIE(269,"DIAB",21,0,2100,0)="2413;T"
^DIE(269,"DIAB",22,0,2100,0)="2414;T"
^DIE(269,"DIAB",22,0,2100,1)="2439;T"
^DIE(269,"DIAB",23,0,2100,0)="2415;T"
^DIE(269,"DIAB",23,0,2100,1)="2440;T"
^DIE(269,"DIAB",24,0,2100,0)="2416;T"
^DIE(269,"DIAB",25,0,2100,0)="2417;T"
^DIE(269,"DIAB",26,0,2100,1)="2443;T"
^DIE(269,"DIAB",27,0,2100,1)="2444;T"
^DIE(269,"DIAB",28,0,2100,1)="2445;T"
^DIE(269,"DIAB",29,0,2100,1)="2446;T"
^DIE(269,"DIAB",30,0,2100,1)="2447;T"
^DIE(269,"DIAB",31,0,2100,1)="2448;T"
^DIE(269,"DIAB",32,0,2100,1)="2449;T"
^DIE(269,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=5;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");2998T~;2401T~;2402T~;2403T~;2404T~;2405;2406T~;2407T~;2408T~;2409T~;2410T~;2411T~;2412T~;2413T~;2414T~;2415T~;2416T~;2417T~;"
^DIE(269,"DR",1,2100,1)="2418T~;2419;2420T~;2421T~;2422T~;2423T~;2424T~;2425T~;2426T~;2427T~;2428T~;2429T~;2430T~;2431T~;2432T~;2433T~;2434T~;2435T~;2436T~;2437T~;2438;2439T~;2440T~;2441;2442;2443T~;2444T~;2445T~;2446T~;2447T~;2448T~;2449T~;2450;2451;2452;"
^DIE(269,"DR",1,2100,2)="2453;2454;2455;2456T~;2457T~;2458T~;2459T~;2460;2461T~;2462T~;2463T~;2464T~;2512;2519;2514;2515FTEE-NURSING ASSISTANTS AND LPN'S~;2520;2521;2517T~;2518;99///^S X=""$"";"
^DIE(270,0)="MC AMS2 234 AUD-SPEECH PATH^2900907.092^^2100^0^^2921014"
^DIE(270,"DIAB",8,0,2100,0)="2998;T"
^DIE(270,"DIAB",31,0,2100,1)="2655;T"
^DIE(270,"DIAB",42,0,2100,1)="2666;T"
^DIE(270,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=6;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");2998T~;2601;2602;2603;2604;2605;2606;2607;2608;2609;2610;2611;2612;2613;2614;2615;2616;2617;2618;2619;2620;2621;2622;2623;2624;"
^DIE(270,"DR",1,2100,1)="2625;2626;2627;2628;2629;2630;2631;2632;2633;2634;2635;2636;2637;2638;2639;2640;2641;2642;2643;2644;2645;2646;2647;2648;2649;2650;2651;2652;2653;2654;2655T~;2656;2657;2658;2659;2660;2661;2662;2663;2664;2665;2666T~;99///^S X=""$"";"
^DIE(271,0)="MC AMS2 J15 CATHETERIZATION^2900907.0836^^2100^0^^2931215"
^DIE(271,"DIAB",8,0,2100,0)="2998;T"
^DIE(271,"DIAB",19,0,2100,0)="2711;T"
^DIE(271,"DIAB",20,0,2100,0)="2712;T"
^DIE(271,"DIAB",21,0,2100,0)="2713;T"
^DIE(271,"DIAB",22,0,2100,0)="2714;T"
^DIE(271,"DIAB",23,0,2100,0)="2715;T"
^DIE(271,"DIAB",24,0,2100,0)="2716;T"
^DIE(271,"DIAB",25,0,2100,0)="2717;T"
^DIE(271,"DIAB",26,0,2100,0)="2718;T"
^DIE(271,"DIAB",27,0,2100,0)="2719;T"
^DIE(271,"DIAB",28,0,2100,0)="2720;T"
^DIE(271,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=4;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");2998T~;2701;2702;2703;2704;2705;2706;2707;2708;2709;2710;2711T~;2712T~;2713T~;2714T~;2715T~;2716T~;2717T~;2718T~;2719T~;2720T~;"
^DIE(271,"DR",1,2100,1)="2512;2514;2522;2515;2523;99///^S X=""$"";"
^DIE(272,0)="MC AMS2 230 HOME OXYGEN^2900917.1058^^2100^0^^2931004"
^DIE(272,"DIAB",10,0,2100,0)="2802;T"
^DIE(272,"DIAB",11,0,2100,0)="2803;T"
^DIE(272,"DIAB",13,0,2100,0)="2805;T"
^DIE(272,"DIAB",14,0,2100,0)="2806;T"
^DIE(272,"DIAB",23,0,2100,0)="2815;T"
^DIE(272,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=""M"";52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;2801;2802T~;2803T~;2804;2805T~;2806T~;2807;2808;2809;2810;2811;2812;2813;2814;2815T~;2816;99///^S X=""$"";"
^DIE(273,0)="GECO PHY4 PHYSICIAN PART-2^2901106.093^^2100^^^2920929"
^DIE(273,"DR",1,2100)="4266;4267;5///^S X=GECS(""SITE"");4268;4275;S FLAG=$S(X=4!(X[""L"")!(X[""l""):""L"",1:""G"");4276;4277;4278;4279;4280;4281;4282;S:FLAG=""L"" Y=4286;4283;4284;4285;K FLAG S:+Y>0 Y=99;4286;4286.5;K FLAG;99///^S X=""$"";"
^DIE(274,0)="GECO PHY4 PHYSICIAN PART-1^2901010.105^^2100^^^2920929"
^DIE(274,"DR",1,2100)="4266;4267;5///^S X=GECS(""SITE"");4268;4269///^S X=2;4270;4271;4272;4273;4274;99///^S X=""$"";"
^DIE(275,0)="GECO PHY4 PHYSICIAN PART-3^2901106.0932^^2100^^^2920929"
^DIE(275,"DR",1,2100)="4266;4267;5///^S X=GECS(""SITE"");4268;4287;4288;4289;4290;4291;S:+X=0 Y=4294;4292;4293;S Y=99;4294;4295;4296;4297;4298;4299;4300;99///^S X=""$"";"
^DIE(276,0)="GECO PHY4 PHYSICIAN PART-4^2901106.0934^^2100^^^2920929"
^DIE(276,"DR",1,2100)="4266;4267;5///^S X=GECS(""SITE"");4268;4301///^S X=8;4302;4303;S:+X>0 Y=99;4304;99///^S X=""$"";"
^DIE(277,0)="GECO NSY4 STAFF MGMT - 1^2900920.1859^@^2100^1^@^2901010"
^DIE(277,"DR",1,2100)="4366///^S X=""MQP"";4348///^S X=GECS(""SITE"");4268;4349;4350;4351///^S X=""PERS"";4352;4353;4354;99///^S X=""$"";"
^DIE(278,0)="GECO NSY4 STAFF MGMT - 2^2900920.19^@^2100^0^@^2901010"
^DIE(278,"DR",1,2100)="4355;4356;99///^S X=""$"";"
^DIE(279,0)="GECO NSY4 STAFF MGMT - 3^2900920.1901^@^2100^0^@^2901010"
^DIE(279,"DR",1,2100)="4357;4358;99///^S X=""$"";"
^DIE(280,0)="GECO NSY4 STAFF MGMT - 4^2900920.1901^@^2100^0^@^2900920"
^DIE(280,"DR",1,2100)="4359;4360;99///^S X=""$"";"
^DIE(281,0)="GECO NSY4 STAFF MGMT - 5^2900920.1901^@^2100^0^@^2900920"
^DIE(281,"DR",1,2100)="4361;4362;99///^S X=""$"";"
^DIE(282,0)="GECO NSY4 STAFF MGMT - 6^2900920.1902^@^2100^0^@^2900920"
^DIE(282,"DR",1,2100)="4363;4364;99///^S X=""$"";"
^DIE(283,0)="GECO NSY4 STAFF MGMT - 7^2900706.1427^@^2100^2081^@^2901010"
^DIE(283,"DR",1,2100)="4365;99///^S X=""$"";"
^DIE(284,0)="GECO WGE4 BLS FORM^2900924.0922^^2100^^^2910102"
^DIE(284,"DR",1,2100)="4305;4306;4307///^S X=""P"";4308;4309;4310;4311;4312;4313;4347.5///^S X="" "";4313.5///^S X="" "";"
^DIE(285,0)="GECO WGE4 EI FORM^2900924.0929^^2100"
^DIE(285,"DR",1,2100)="4305;4306;4314;4308;4309;4310;4315;4316;4317;4318;4319;4320;4321;4322;4323;4324;4325;S:+X=0 Y=4342;4326;4327;S:+X=0 Y=4328;4327.5;4328;4342;S:+X=0 Y=4313.5;4342.5;4343;S:+X=0 Y=4345;4344;4345;4347.5///^S X="" "";4313.5///^S X=1;"
^DIE(286,0)="GECO WGE4 DATA FORM^2900924.0928^^2100"
^DIE(286,"DR",1,2100)="4305;4306;4329;4330;4331;4332;4346;S:X="""" Y=4333;4346.1;4346.2;4346.3;S:X="""" Y=4333;4346.4;4346.5;4333;4334;4335;4336;4337;4338;4339;4340;4341;4347.5///^S X="" "";4313.5///^S X=2;"
^DIE(287,0)="GECO WGE4 CONT FORM^2900924.0925^^2100"
^DIE(287,"DR",1,2100)="4305;4306;4329;4330;4331;4332;4346;S:X="""" Y=4341;4346.1;4346.2;4346.3;S:X="""" Y=4341;4346.4;4346.5;4346.6;S:X="""" Y=4341;4346.7;4346.8;4346.9;S:X="""" Y=4341;4347;4347.1;4347.2;S:X="""" Y=4341;4347.3;4347.4;4341;4347.5;4313.5///^S X=3;"
^DIE(288,0)="GECO HBHC2 EVAL/ADM FORM 3^2900717.1312^@^2100^1^@^2900921"
^DIE(288,"DR",1,2100)="2200///^S X=3;5///^S X=GECS(""SITE"");2200.01;2200.02;2200.03;2200.04;2200.05;2200.06;2200.07;2200.08;2200.09;2200.1;2200.11;2200.12;2200.13;2200.14;S:X=2 GECSHBHC=1 S:X=1 Y=2200.17;2200.15;2200.16;2200.17;2200.18;"
^DIE(288,"DR",1,2100,1)="I $D(GECSHBHC) K GECSHBHC S Y="""";2200.19;2200.2;2200.21;2200.22;2200.23;2200.24;2200.25;2200.26;2200.27;2200.28;2200.29;2200.3;2200.31;2200.32;2200.33;2200.34;2200.35;2200.36;2200.37;2200.38;"
^DIE(289,0)="GECO HBHC2 VISIT LOG FORM 4^2900920.1936^@^2100^0^@^2900921"
^DIE(289,"DR",1,2100)="2200///^S X=4;5///^S X=GECS(""SITE"");2200.4;2200.41;2200.42;2200.43;2200.44;2200.18;2200.45;2200.55///^S X=""                                                                         "";"
^DIE(290,0)="GECO HBHC2 DISCHARGE FORM 5^2900920.1931^@^2100^0^@^2900921"
^DIE(290,"DR",1,2100)="2200///^S X=5;5///^S X=GECS(""SITE"");2200.5;2200.05;2200.1;2200.11;2200.51;S:X'=1&(X'=2) Y=2200.44 S:X=4 GECSHBHC=1;2200.52;2200.53;2200.44;2200.18;2200.54///^S X=""  "";2200.2;I $D(GECSHBHC) K GECSHBHC S Y="""";2200.21;2200.22;2200.23;"
^DIE(290,"DR",1,2100,1)="2200.24;2200.25;2200.26;2200.27;2200.28;2200.29;2200.3;2200.31;2200.32;2200.33;2200.34;2200.35;2200.36;2200.37;2200.38;2200.39///^S X=""                                              "";"
^DIE(291,0)="GECO FORM2 REQUISITION^2900920.1925^@^2100^0^@^2931208"
^DIE(291,"DR",1,2100)="2201.06;2201.1///^S X=""       "";5///^S X=GECS(""SITE"");2201.01///^S X=777;2201.02;2201.08;2201.09;2201.03;2201.04;2201.11///^S X=""                                   "";"
^DIE(292,0)="VOLU VOL2 01 ADD NEW VOL^2901119.1315^^2100^^^2931206"
^DIE(292,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;203;204;205;206;207;208;209;210;99///^S X=""$"";"
^DIE(293,0)="VOLU VOL2 02 ADD NEW VOL^2901119.1322^^2100^^^2931206"
^DIE(293,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;211;212;213;217;218;219;220;221;222;99///^S X=""$"";"
^DIE(294,0)="VOLU VOL2 03 REACTIVATE VOL^2901119.1325^^2100^^^2931206"
^DIE(294,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;223///****;99///^S X=""$"";"
^DIE(295,0)="VOLU VOL2 03 TERMINATE VOL^2901119.1326^^2100^^^2930428"
^DIE(295,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;210;99///^S X=""$"";"
^DIE(296,0)="VOLU VOL2 04 CHANGE VOL DATA^2901119.1327^^2100^^^2931206"
^DIE(296,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;211;212;213;217;218;219;220;221;222;99///^S X=""$"";"
^DIE(297,0)="VOLU VOL2 04 DELETE COMB^2901119.1327^^2100^^^2930428"
^DIE(297,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;211;212;213;99///^S X=""$"";"
^DIE(298,0)="VOLU VOL2 05 ADD NEW VOL^2901119.1328^^2100"
^DIE(298,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;214;215;216;99///^S X=""$"";"
^DIE(299,0)="VOLU VOL2 08 CORRECT COMB^2901119.1329^^2100"
^DIE(299,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;211;212;213;99///^S X=""$"";"
^DIE(300,0)="VOLU VOL2 09 DELETE VOL^2901119.133^^2100^^^2920928"
^DIE(300,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;99///^S X=""$"";"
^DIE(301,0)="VOLU VOL2 10 CHANGE COMB^2901119.1331^^2100^^^2931206"
^DIE(301,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;214;215;216;99///^S X=""$"";"
^DIE(302,0)="VOLU VOL2 10 DELETE COMB^2901119.1331^^2100^^^2930621"
^DIE(302,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;214;215;216;99///^S X=""$"";"
^DIE(303,0)="VOLU VOL2 11 CORRECT COMB^2901119.1332^^2100"
^DIE(303,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;214;215;216;99///^S X=""$"";"
^DIE(304,0)="VOLU VOL2 03 CHANGE VOL DATA^2901119.1324^^2100^^^2931206"
^DIE(304,"DR",1,2100)="7///^S X=$E(GECS(""TT""),1,2);200//^S X=GECS(""SITE"");201;202;203;204;205;206;207;208;209;99///^S X=""$"";"
^DIE(305,0)="ESP AMS7 196^2900907.1102^^2100^0^^2941108"
^DIE(305,"DR",1,2100)="1///AMS;52.1///((;52.2///5;52.3///8;5///^S X=GECS(""SITE"");6;7///;52.4;700.01;700.02;700.03;700.04;700.05;700.06;700.07;700.08;700.09;700.1;700.11;700.12;700.13;700.14;700.15;700.16;700.17;700.18;700.19;700.2;700.21;700.22;700.23;"
^DIE(305,"DR",1,2100,1)="700.24;700.25;700.26;700.27;700.28;700.29;700.3;700.31;700.32;700.33;700.34;700.35;700.36;700.37;700.38;700.39;700.4;700.41;700.42;700.43;700.44;700.45;700.46;700.47;700.48;700.49;700.5;700.51;700.52;700.53;700.54;700.55;700.56;"
^DIE(305,"DR",1,2100,2)="700.57;700.58;700.59;700.6;700.61;700.62;700.63;700.64;700.65;700.66;700.67;700.68;700.69;700.7;700.71;700.72;700.73;700.74;99///^S X=""$"";"
^DIE(306,0)="FB AMS1 RCS 18-3^2940819.1235^^2100^^^^"
^DIE(306,"DIAB",11,0,2100,0)="1542;REQ"
^DIE(306,"DR",1,2100)="1///^S X=""CNH"";5///^S X=GECS(""SITE"");1534;1535;1536;I 1;1537;1539;I 1;1541;1542R~;I 1;1543;1544;1545;1547;99////^S X=""$"";"
^DIE(307,0)="DG AMS1D AMIS 290^2911205.0821^^2100^^^2931202^"
^DIE(307,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1451;1452;1559;1453;1454;1455;1456;1457;1458;1459;1460;1461;1462;1463;1464;1553;1554;1555;1556;1557;1558;99///^S X=""$"";"
^DIE(308,0)="DG AMS1 AMIS^2911015.1114^^2100^^^^"
^DIE(308,"DR",1,2100)="Q;1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1235;1236;1237;1238;1239;1240;1241;1242;1243;1244;1245;1247;1251;1252;99///^S X=""$"";"
^DIE(309,0)="DG AMS1 AMIS 345^2911015.1128^^2100^^^^"
^DIE(309,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=6;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1322;1323;1324;1325;1326;1238;1327;1328;1243;1244;1329;1252;1330;1331;1245;1247;1251;99///^S X=""$"";"
^DIE(310,0)="DG AMS1 AMIS 334^2911015.1126^^2100^^^^"
^DIE(310,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=2;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1235;1236;1237;1238;1239;1240;1241;1242;1243;1244;1381;1246;1247;1251;1252;99///^S X=""$"";"
^DIE(311,0)="DG AMS1 AMIS 336^2911015.1128^^2100^^^^"
^DIE(311,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1235;1236;1237;1238;1239;1240;1241;1242;1243;1244;1245;1247;1251;1252;1253;99///^S X=""$"";"
^DIE(312,0)="SD AMS1 AMIS223^2890620.1214^^2100^^^2950119"
^DIE(312,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1298;1299;1300;1301;1302;1303;1304;1305;1306;1307;1308;1309;1310;1311;1312;1313;1314;1315;1316;1317;1318;1319;1320;1321;"
^DIE(312,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(313,0)="DG AMS1 AMIS 400^2890620.0945^^2100^^^2930915"
^DIE(313,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1258;1259;1260;1261;1262;1263;1264;1265;1266;1267;1268;1269;1270;1271;1272;1273;1274;1275;1276;1277;1278;1279;1280;1281;"
^DIE(313,"DR",1,2100,1)="1282;1283;1284;1285;1286;1287;1288;1289;1290;1291;1292;1293;1294;1295;99///^S X=""$"";"
^DIE(314,0)="DG AMS1 AMIS 420^2890620.0945^^2100^^^2910613"
^DIE(314,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1258;1259;1260;1261;1262;1263;1264;1265;1266;1267;1268;1269;1270;1271;1272;1273;1274;1275;1276;1277;1278;1279;1280;1281;"
^DIE(314,"DR",1,2100,1)="1282;1283;1284;1285;1286;1287;1288;1289;1290;1291;1292;1293;1294;1295;1296;1297;99///^S X=""$"";"
^DIE(315,0)="DG AMS1C AMIS 167^2890712.1214^^2100^^^2931215"
^DIE(315,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=9;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;1430;1431;1432;1433;1434;1435;1436;1437;1438;1439;1440;1441;1442;1443;1444;1445;1446;1447;1448;1449;1450;99////^S X=""$"";"
^DIE(316,0)="PSGE AMS3 AMIS 158^2900514.0914^^2100^^^2900601"
^DIE(316,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=3;52.3///^S X=8;5///^S X=GECS(""SITE"");6//;7///^S X=GECS(""TT"");52.4;W !!!?5,""DOSES BY TYPE"",!!;3100;3101;3102;3103;3104;W !!!?5,""UNITS OF ISSUE"",!!;3105;3106;3107;"
^DIE(316,"DR",1,2100,1)="W !!!?5,""PRESCRIPTIONS DISPENSED"",!!;3108;3109;W !!!?5,""STERILE PRODUCTS"",!!;3110;3111;3112;3113;3114;3115;3116;3117;W !!;3118;3119;W !!?5,""HOURS-PROFESSIONAL"",!!;3120;3121;W !!?5,""HOURS-NON-PROFESSIONAL"",!!;3122;3123;"
^DIE(316,"DR",1,2100,2)="99///^S X=""$"";"
^DIE(317,0)="PSGE AMS3 AMIS 157^2900514.1349^^2100^^^2900601"
^DIE(317,"DR",1,2100)="1///^S X=""AMS"";52.1///^S X=""(("";52.2///^S X=4;52.3///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");52.4;W !!?5,""PRESCRIPTIONS DISPENSED"",!!;3201;3202;3203;3204;W !!;3205;W !!?5,""PRESCRIPTION BREAKDOWN"",!!;3206;3207;3208;3209;"
^DIE(317,"DR",1,2100,1)="3210;3211;W !!;3212;W !!?5,""HOURS PROFESSIONAL"",!!;3213;3214;W !!?5,""HOURS NON-PROFESSIONAL"",!!;3215;3216;W !!?5,""PARTICIPATING PHARMACIES"",!!;3217;3218;W !!?5,""COST OF ISSUE TO PHARMACY"",!!;3219;3220;3221;3222;"
^DIE(317,"DR",1,2100,2)="W !!?5,""OTHER HOURS"",!!;3223;3224;3225;3226;W !!;3227;3228;99///^S X=""$"";"
^DIE(318,0)="FH AMS4 224^2901214.1037^^2100^^^2931105"
^DIE(318,"DIAB",9,0,2100,0)="4224.001;T"
^DIE(318,"DIAB",10,0,2100,0)="4224.002;T"
^DIE(318,"DIAB",12,0,2100,0)="4224.004;T"
^DIE(318,"DIAB",13,0,2100,0)="4224.005;T"
^DIE(318,"DIAB",14,0,2100,0)="4224.006;T"
^DIE(318,"DIAB",15,0,2100,0)="4224.007;T"
^DIE(318,"DIAB",20,0,2100,0)="4224.012;T"
^DIE(318,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=4;1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=224;1257;4224.001T~;4224.002T~;4224.003;4224.004T~;4224.005T~;4224.006T~;4224.007T~;4224.008;4224.009;4224.01;4224.011;4224.012T~;"
^DIE(318,"DR",1,2100,1)="99///^S X=""$"";"
^DIE(320,0)="PRCC CA2 10-2418a^2900412.1341^^2100^^^2941213"
^DIE(320,"DIAB",1,0,2100,0)="224;""STATION NUMBER"""
^DIE(320,"DR",1,2100)="224STATION NUMBER~;225;226;227;228;230;250;251;252;253;254;255;256;257;258;259;260;261;262;263;264;265;266;267;268;269;270;271;272;273;274;275;276;277;278;279;280;281;282;99///$;"
^DIE(321,0)="PRCC CA2 10-2418D1^2900412.1359^^2100^^^2941214"
^DIE(321,"DIAB",1,0,2100,0)="224;""STATION NUMBER"""
^DIE(321,"DIAB",9,0,2100,0)="232;""TITLE"""
^DIE(321,"DIAB",10,0,2100,0)="233;""TYPE"""
^DIE(321,"DR",1,2100)="224STATION NUMBER~;225;226;227;228///D1;229;230;231;232TITLE~;233TYPE~;234;235;236;99///$;"
^DIE(322,0)="PRCC CA2 10-2418D2^2901022.1314^^2100^^^2941214"
^DIE(322,"DIAB",1,0,2100,0)="224;""STATION NUMBER"""
^DIE(322,"DIAB",9,0,2100,0)="C&A CITY;""CITY"""
^DIE(322,"DIAB",10,0,2100,0)="C&A STATE;""STATE"""
^DIE(322,"DIAB",11,0,2100,0)="C&A ZIP;""ZIP"""
^DIE(322,"DR",1,2100)="224STATION NUMBER~;225;226;227;228///D2;229;230;237;238CITY~;239STATE~;240ZIP~;99///$;"
^DIE(323,0)="PRCC CA2 10-2418D3^2900412.1454^^2100^^^2941214"
^DIE(323,"DIAB",1,0,2100,0)="224;""STATION NUMBER"""
^DIE(323,"DR",1,2100)="224STATION NUMBER~;225;226;227;228///D3;229;230;241;242///2576;243////^S X=""      "";244;245;246;247;248;249;99///$;"
^DIE(325,0)="GECO WGE4 PARAMETERS^2900924.1112^^2100"
^DIE(325,"DR",1,2100)="4304.9;4304.91;4304.92;4304.93;4304.94;4304.95;4304.96;4304.97;4304.98///^S X=""U"";4304.99;"
^DIE(326,0)="GECO PER4 RECRUITMENT^2901010.0853^^2100^^^2930303"
^DIE(326,"DIAB",4,0,2100,0)="4006;REQ"
^DIE(326,"DIAB",5,0,2100,0)="4015;REQ"
^DIE(326,"DIAB",6,0,2100,0)="4011;REQ"
^DIE(326,"DIAB",8,0,2100,0)="4007;""GRADE OF POSITION-1"""
^DIE(326,"DR",1,2100)="@1;5//^S X=GECS(""SITE"");S:X'?3N Y=""@1"";4006R~;4015R~;4011R~;4016;4007GRADE OF POSITION-1~;4012;4013;4014;4017;4018;4019;4020;99///^S X=""$"";"
^DIE(327,0)="GECO PER4 VACANT POSITIONS^2901010.0906^^2100^^^2930331"
^DIE(327,"DIAB",1,0,2100,0)="4000;REQ"
^DIE(327,"DIAB",7,0,2100,0)="4006;REQ"
^DIE(327,"DIAB",8,0,2100,0)="4015;REQ"
^DIE(327,"DR",1,2100)="4000R~;4001;4002;4003;4004;4005;4006R~;4015R~;4007;4008;4021///^S X="" "";@1;5//^S X=GECS(""SITE"");S:X'?3N Y=""@1"";4009;4010;99///^S X=""$"";"
^DIE(328,0)="PRCC CA2 10-2418 HEADER^2901025.133^^2100^^^2940906"
^DIE(328,"DIAB",1,0,2100,0)="]224;""STATION NUMBER"""
^DIE(328,"DR",1,2100)="224STATION NUMBER~;S Y=2021;2028;2021;S Y=227;2029;227;2022///DA;2023;2024;2025;2026;2027;99///$;"
^DIE(329,0)="YS AMS5 314^2901022.0958^^2100^^^2931209"
^DIE(329,"DIAB",1,0,2100,1)="003-3;""(003) GAINS FROM OTHER BED SERVICES"""
^DIE(329,"DIAB",1,0,2100,2)="008-3;""(008) LOSSES/TREATMENT COMPLETED"""
^DIE(329,"DIAB",1,0,2100,3)="013-3;""(013) LOSSES/TRANSFER TO OTHER VA FACILITY"""
^DIE(329,"DIAB",1,0,2100,4)="018-3;""(018) ELIGIBILITY STATUS/CAT.A - NSC"""
^DIE(329,"DIAB",1,0,2100,5)="023-3;""(023) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4"""
^DIE(329,"DIAB",1,0,2100,6)="027-3;""(027) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3"""
^DIE(329,"DIAB",1,0,2100,7)="031-3;""(031) DIAG OF PTS ADMITTED BY CODE - 303.0"""
^DIE(329,"DIAB",1,0,2100,8)="035-3;""(035) ADM BY PERIOD OF SERVICE - ALL OTHER"""
^DIE(329,"DIAB",1,0,2100,9)="039-4;""(039) PTS ADMITTED TO MODALITIES OF CARE - NALT.MAIN."""
^DIE(329,"DIAB",1,0,2100,10)="043-3;""(043) VOCATIONAL REHABILITATION"""
^DIE(329,"DIAB",1,0,2100,11)="048-3;""(048) RATES OF RECIDIVISM - FIVE+"""
^DIE(329,"DIAB",1,0,2100,12)="053-4;""(053) COMP WORK THERAPY - IND.PATIENTS"""
^DIE(329,"DIAB",2,0,2100,1)="004-3;""(004) GAINS/TRANSFER FROM OTHER VA FACILITY"""
^DIE(329,"DIAB",2,0,2100,2)="009-3;""(009) LOSSES/TREATMENT NOT COMPLETED"""
^DIE(329,"DIAB",2,0,2100,3)="014-3;""(014) LOSSES/REFERRED OUTSIDE VA"""
^DIE(329,"DIAB",2,0,2100,4)="019-3;""(019) ELIGIBILITY STATUS/OTHER CATEGORIES"""
^DIE(329,"DIAB",2,0,2100,5)="024-3;""(024) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6"""
^DIE(329,"DIAB",2,0,2100,6)="028-3;""(028) DIAG OF PTS ADMITTED BY CODE - OTHER DRUGS"""
^DIE(329,"DIAB",2,0,2100,7)="032-3;""(032) ADM BY PERIOD OF SERVICE - WWII"""
^DIE(329,"DIAB",2,0,2100,8)="036-3;""(036) ADM W/MULT.SUBSTANCE ABUSE - TOTAL"""
^DIE(329,"DIAB",2,0,2100,9)="040-3;""(040) PTS ADMITTED TO MODALITIES OF CARE - DRUG FREE THERAPY"""
^DIE(329,"DIAB",2,0,2100,10)="044-3;""(044) RATES OF RECIDIVISM - ONE"""
^DIE(329,"DIAB",2,0,2100,11)="049-4;""(049) STAFFING - AUTHORIZED FTEE"""
^DIE(329,"DIAB",2,0,2100,12)="054-4;""(054) COMP WORK THERAPY - NUM OF SESSIONS"""
^DIE(329,"DIAB",3,0,2100,1)="005-3;""(005) GAINS/REFERRED FROM OUTSIDE VA"""
^DIE(329,"DIAB",3,0,2100,2)="010-3;""(010) LOSSES TO OTHER BED SERVICES"""
^DIE(329,"DIAB",3,0,2100,3)="015-3;""(015) LOSSES/OTHER"""
^DIE(329,"DIAB",3,0,2100,4)="020-6;""(020) PATIENT DAYS OF CARE"""
^DIE(329,"DIAB",3,0,2100,5)="025-3;""(025) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2"""
^DIE(329,"DIAB",3,0,2100,6)="029-3;""(029) DIAG OF PTS ADMITTED BY CODE - 291/303.9"""
^DIE(329,"DIAB",3,0,2100,7)="033-3;""(033) ADM BY PERIOD OF SERVICE - KOREA"""
^DIE(329,"DIAB",3,0,2100,8)="037-3;""(037) ADM W/MULT.SUBSTANCE ABUSE - ALCOHOL"""
^DIE(329,"DIAB",3,0,2100,9)="041-3;""(041) PTS ADMITTED TO MODALITIES OF CARE - OTHER"""
^DIE(329,"DIAB",3,0,2100,10)="045-3;""(045) RATES OF RECIDIVISM - TWO"""
^DIE(329,"DIAB",3,0,2100,11)="050-4;""(050) STAFFING - ACTUAL FTEE"""
^DIE(329,"DIAB",4,0,2100,1)="006-3;""(006) GAINS/ASMRO"""
^DIE(329,"DIAB",4,0,2100,2)="011-3;""(011) LOSSES TO DOMICILIARY"""
^DIE(329,"DIAB",4,0,2100,3)="016-4;""(016) REMAINING IN INPAT.CARE - END OF PERIOD"""
^DIE(329,"DIAB",4,0,2100,4)="021-3;""(021) OPERATING BEDS"""
^DIE(329,"DIAB",4,0,2100,5)="026-3;""(026) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7"""
^DIE(329,"DIAB",4,0,2100,6)="030-3;""(030) DIAG OF PTS ADMITTED BY CODE - 305.0"""
^DIE(329,"DIAB",4,0,2100,7)="034-3;""(034) ADM BY PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(329,"DIAB",4,0,2100,8)="038-3;""(038) PTS ADMITTED TO MODALITIES OF CARE - METH.MAIN."""
^DIE(329,"DIAB",4,0,2100,9)="042-3;""(042) FAMILY THERAPY"""
^DIE(329,"DIAB",4,0,2100,10)="046-3;""(046) RATES OF RECIDIVISM - THREE"""
^DIE(329,"DIAB",4,0,2100,11)="051-3;""(051) CONSULTATIONS - IND.PATIENTS"""
^DIE(329,"DIAB",5,0,2100,1)="007-3;""(007) GAINS/ALL OTHER"""
^DIE(329,"DIAB",5,0,2100,2)="012-3;""(012) LOSSES TO STATION OPT.CARE"""
^DIE(329,"DIAB",5,0,2100,3)="017-3;""(017) ELIGIBILITY STATUS/CAT.A - SC"""
^DIE(329,"DIAB",5,0,2100,4)="022-3;""(022) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5"""
^DIE(329,"DIAB",5,0,2100,10)="047-3;""(047) RATES OF RECIDIVISM - FOUR"""
^DIE(329,"DIAB",5,0,2100,11)="052-4;""(052) CONSULTATIONS - NUM OF SESSIONS"""
^DIE(329,"DIAB",9,0,2100,0)="001-3;""(001) GAINS FROM STATION OPT CARE - AMB CARE"""
^DIE(329,"DIAB",10,0,2100,0)="002-3;""(002) GAINS FROM STATION OPT CARE - OTHER"""
^DIE(329,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) GAINS FROM STATION OPT CARE - AMB CARE~;53.002(002) GAINS FROM STATION OPT CARE - OTHER~;"
^DIE(329,"DR",1,2100,1)="53.003(003) GAINS FROM OTHER BED SERVICES~;53.004(004) GAINS/TRANSFER FROM OTHER VA FACILITY~;53.005(005) GAINS/REFERRED FROM OUTSIDE VA~;53.006(006) GAINS/ASMRO~;53.007(007) GAINS/ALL OTHER~;"
^DIE(329,"DR",1,2100,2)="53.008(008) LOSSES/TREATMENT COMPLETED~;53.009(009) LOSSES/TREATMENT NOT COMPLETED~;53.01(010) LOSSES TO OTHER BED SERVICES~;53.011(011) LOSSES TO DOMICILIARY~;53.012(012) LOSSES TO STATION OPT.CARE~;"
^DIE(329,"DR",1,2100,3)="53.013(013) LOSSES/TRANSFER TO OTHER VA FACILITY~;53.014(014) LOSSES/REFERRED OUTSIDE VA~;53.015(015) LOSSES/OTHER~;54.016(016) REMAINING IN INPAT.CARE - END OF PERIOD~;53.017(017) ELIGIBILITY STATUS/CAT.A - SC~;"
^DIE(329,"DR",1,2100,4)="53.018(018) ELIGIBILITY STATUS/CAT.A - NSC~;53.019(019) ELIGIBILITY STATUS/OTHER CATEGORIES~;56.02(020) PATIENT DAYS OF CARE~;53.021(021) OPERATING BEDS~;53.022(022) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5~;"
^DIE(329,"DR",1,2100,5)="53.023(023) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4~;53.024(024) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6~;53.025(025) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2~;53.026(026) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7~;"
^DIE(329,"DR",1,2100,6)="53.027(027) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3~;53.028(028) DIAG OF PTS ADMITTED BY CODE - OTHER DRUGS~;53.029(029) DIAG OF PTS ADMITTED BY CODE - 291/303.9~;53.03(030) DIAG OF PTS ADMITTED BY CODE - 305.0~;"
^DIE(329,"DR",1,2100,7)="53.031(031) DIAG OF PTS ADMITTED BY CODE - 303.0~;53.032(032) ADM BY PERIOD OF SERVICE - WWII~;53.033(033) ADM BY PERIOD OF SERVICE - KOREA~;53.034(034) ADM BY PERIOD OF SERVICE - VIETNAM ERA~;"
^DIE(329,"DR",1,2100,8)="53.035(035) ADM BY PERIOD OF SERVICE - ALL OTHER~;53.036(036) ADM W/MULT.SUBSTANCE ABUSE - TOTAL~;53.037(037) ADM W/MULT.SUBSTANCE ABUSE - ALCOHOL~;53.038(038) PTS ADMITTED TO MODALITIES OF CARE - METH.MAIN.~;"
^DIE(329,"DR",1,2100,9)="54.039(039) PTS ADMITTED TO MODALITIES OF CARE - NALT.MAIN.~;53.04(040) PTS ADMITTED TO MODALITIES OF CARE - DRUG FREE THERAPY~;53.041(041) PTS ADMITTED TO MODALITIES OF CARE - OTHER~;53.042(042) FAMILY THERAPY~;"
^DIE(329,"DR",1,2100,10)="53.043(043) VOCATIONAL REHABILITATION~;53.044(044) RATES OF RECIDIVISM - ONE~;53.045(045) RATES OF RECIDIVISM - TWO~;53.046(046) RATES OF RECIDIVISM - THREE~;53.047(047) RATES OF RECIDIVISM - FOUR~;"
^DIE(329,"DR",1,2100,11)="53.048(048) RATES OF RECIDIVISM - FIVE+~;54.049(049) STAFFING - AUTHORIZED FTEE~;54.05(050) STAFFING - ACTUAL FTEE~;53.051(051) CONSULTATIONS - IND.PATIENTS~;54.052(052) CONSULTATIONS - NUM OF SESSIONS~;"
^DIE(329,"DR",1,2100,12)="54.053(053) COMP WORK THERAPY - IND.PATIENTS~;54.054(054) COMP WORK THERAPY - NUM OF SESSIONS~;99///^S X=""$"";"
^DIE(330,0)="YS AMS5 318^2901018.1103^^2100^^^2931208"
^DIE(330,"DIAB",1,0,2100,1)="003-3;""(003) GAINS FROM OTHER BED SERVICES"""
^DIE(330,"DIAB",1,0,2100,2)="009-3;""(009) CARE/AMBULATORY"""
^DIE(330,"DIAB",1,0,2100,3)="014-3;""(014) LOSSES TO DOMICILIARY"""
^DIE(330,"DIAB",1,0,2100,4)="019-4;""(019) NON-VA CARE AT VA EXPENSE"""
^DIE(330,"DIAB",1,0,2100,5)="024-4;""(024) ELIGIBILITY STATUS/OTHER CATEGORIES"""
^DIE(330,"DIAB",1,0,2100,6)="028-4;""(028) ADM BY PERIOD OF SERVICE - ALL OTHER"""
^DIE(330,"DIAB",1,0,2100,7)="032-4;""(032) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2"""
^DIE(330,"DIAB",1,0,2100,8)="036-4;""(036) DIAG OF PTS ADMITTED BY CODE - 291/303.9"""
^DIE(330,"DIAB",1,0,2100,9)="040-4;""(040) ADM W/MULT.SUBSTANCE USE - ALCOHOL"""
^DIE(330,"DIAB",1,0,2100,10)="045-4;""(045) REMAINING IN AMB.CARE - METH.MAIN."""
^DIE(330,"DIAB",1,0,2100,11)="050-4;""(050) VOCATIONAL REHABILITATION"""
^DIE(330,"DIAB",1,0,2100,12)="055-4;""(055) RATE OF RECIDIVISM - FIVE+"""
^DIE(330,"DIAB",1,0,2100,13)="060-4;""(060) HOME VISITS - IND.PATIENTS"""
^DIE(330,"DIAB",2,0,2100,1)="004-3;""(004) GAINS/TRANSFER FROM OTHER VA FACILITY"""
^DIE(330,"DIAB",2,0,2100,2)="010-3;""(010) LOSSES/TREATMENT COMPLETED"""
^DIE(330,"DIAB",2,0,2100,3)="015-3;""(015) LOSSES/TRANSFER TO OTHER VA FACILITY"""
^DIE(330,"DIAB",2,0,2100,4)="020-4;""(020) DIFFERENT PATIENTS VISITING"""
^DIE(330,"DIAB",2,0,2100,5)="025-4;""(025) ADM BY PERIOD OF SERVICE - WWII"""
^DIE(330,"DIAB",2,0,2100,6)="029-4;""(029) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5"""
^DIE(330,"DIAB",2,0,2100,7)="033-4;""(033) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7"""
^DIE(330,"DIAB",2,0,2100,8)="037-4;""(037) DIAG OF PTS ADMITTED BY CODE - 305.0"""
^DIE(330,"DIAB",2,0,2100,9)="041-4;""(041) ON ADMISSION - METH.MAIN."""
^DIE(330,"DIAB",2,0,2100,10)="046-4;""(046) REMAINING IN AMB.CARE - NALT.MAIN."""
^DIE(330,"DIAB",2,0,2100,11)="051-4;""(051) RATE OF RECIDIVISM - ONE"""
^DIE(330,"DIAB",2,0,2100,12)="056-4;""(056) STAFFING - AUTHORIZED FTEE"""
^DIE(330,"DIAB",2,0,2100,13)="061-4;""(061) HOME VISITS - NUM OF SESSIONS"""
^DIE(330,"DIAB",3,0,2100,1)="005-3;""(005) GAINS/REFERRED FROM OUTSIDE VA"""
^DIE(330,"DIAB",3,0,2100,2)="011-3;""(011) LOSSES/TREATMENT NOT COMPLETED"""
^DIE(330,"DIAB",3,0,2100,3)="016-3;""(016) LOSSES/REFERRED OUTSIDE VA"""
^DIE(330,"DIAB",3,0,2100,4)="021-6;""(021) VISITS MADE"""
^DIE(330,"DIAB",3,0,2100,5)="026-4;""(026) ADM BY PERIOD OF SERVICE - KOREA"""
^DIE(330,"DIAB",3,0,2100,6)="030-4;""(030) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4"""
^DIE(330,"DIAB",3,0,2100,7)="034-4;""(034) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3"""
^DIE(330,"DIAB",3,0,2100,8)="038-4;""(038) DIAG OF PTS ADMITTED BY CODE - 303.0"""
^DIE(330,"DIAB",3,0,2100,9)="042-4;""(042) ON ADMISSION - NALT.MAIN."""
^DIE(330,"DIAB",3,0,2100,10)="047-4;""(047) REMAINING IN AMB.CARE - DRUG FREE THERAPY"""
^DIE(330,"DIAB",3,0,2100,11)="052-4;""(052) RATE OF RECIDIVISM - TWO"""
^DIE(330,"DIAB",3,0,2100,12)="057-4;""(057) STAFFING - ACTUAL FTEE"""
^DIE(330,"DIAB",4,0,2100,1)="006-3;""(006) GAINS/ASMRO"""
^DIE(330,"DIAB",4,0,2100,2)="012-3;""(012) LOSSES TO INPATIENT SUB.ABUSE UNIT"""
^DIE(330,"DIAB",4,0,2100,3)="017-3;""(017) LOSSES/OTHER"""
^DIE(330,"DIAB",4,0,2100,4)="022-4;""(022) ELIGIBILITY STATUS/CAT.A - SC"""
^DIE(330,"DIAB",4,0,2100,5)="027-4;""(027) ADM BY PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(330,"DIAB",4,0,2100,6)="031-4;""(031) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6"""
^DIE(330,"DIAB",4,0,2100,7)="035-4;""(035) DIAG OF PTS ADMITTED BY CODE - 304.6/305.7"""
^DIE(330,"DIAB",4,0,2100,8)="039-4;""(039) ADM W/MULT.SUBSTANCE USE - TOTAL"""
^DIE(330,"DIAB",4,0,2100,9)="043-4;""(043) ON ADMISSION - DRUG FREE THERAPY"""
^DIE(330,"DIAB",4,0,2100,10)="048-4;""(048) REMAINING IN AMB.CARE - OTHER MODALITIES"""
^DIE(330,"DIAB",4,0,2100,11)="053-4;""(053) RATE OF RECIDIVISM - THREE"""
^DIE(330,"DIAB",4,0,2100,12)="058-4;""(058) CONSULTATIONS - IND.PATIENTS"""
^DIE(330,"DIAB",5,0,2100,1)="007-3;""(007) GAINS/ALL OTHER"""
^DIE(330,"DIAB",5,0,2100,2)="013-3;""(013) LOSSES TO OTHER BED SERVICES"""
^DIE(330,"DIAB",5,0,2100,3)="018-4;""(018) REMAINING IN OUTPATIENT CARE"""
^DIE(330,"DIAB",5,0,2100,4)="023-4;""(023) ELIGIBILITY STATUS/CAT.A - NSC"""
^DIE(330,"DIAB",5,0,2100,9)="044-4;""(044) ON ADMISSION - OTHER MODALITIES"""
^DIE(330,"DIAB",5,0,2100,10)="049-4;""(049) FAMILY THERAPY"""
^DIE(330,"DIAB",5,0,2100,11)="054-4;""(054) RATE OF RECIDIVISM - FOUR"""
^DIE(330,"DIAB",5,0,2100,12)="059-4;""(059) CONSULTATIONS - NUM OF SESSIONS"""
^DIE(330,"DIAB",6,0,2100,1)="008-3;""(008) CARE/PRE-BED"""
^DIE(330,"DIAB",9,0,2100,0)="001-3;""(001) GAINS/INPATIENT SUB.ABUSE UNIT"""
^DIE(330,"DIAB",10,0,2100,0)="002-3;""(002) GAINS/OTHER AMB.CARE"""
^DIE(330,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) GAINS/INPATIENT SUB.ABUSE UNIT~;53.002(002) GAINS/OTHER AMB.CARE~;"
^DIE(330,"DR",1,2100,1)="53.003(003) GAINS FROM OTHER BED SERVICES~;53.004(004) GAINS/TRANSFER FROM OTHER VA FACILITY~;53.005(005) GAINS/REFERRED FROM OUTSIDE VA~;53.006(006) GAINS/ASMRO~;53.007(007) GAINS/ALL OTHER~;53.008(008) CARE/PRE-BED~;"
^DIE(330,"DR",1,2100,2)="53.009(009) CARE/AMBULATORY~;53.01(010) LOSSES/TREATMENT COMPLETED~;53.011(011) LOSSES/TREATMENT NOT COMPLETED~;53.012(012) LOSSES TO INPATIENT SUB.ABUSE UNIT~;53.013(013) LOSSES TO OTHER BED SERVICES~;"
^DIE(330,"DR",1,2100,3)="53.014(014) LOSSES TO DOMICILIARY~;53.015(015) LOSSES/TRANSFER TO OTHER VA FACILITY~;53.016(016) LOSSES/REFERRED OUTSIDE VA~;53.017(017) LOSSES/OTHER~;54.018(018) REMAINING IN OUTPATIENT CARE~;"
^DIE(330,"DR",1,2100,4)="54.019(019) NON-VA CARE AT VA EXPENSE~;54.02(020) DIFFERENT PATIENTS VISITING~;56.021(021) VISITS MADE~;54.022(022) ELIGIBILITY STATUS/CAT.A - SC~;54.023(023) ELIGIBILITY STATUS/CAT.A - NSC~;"
^DIE(330,"DR",1,2100,5)="54.024(024) ELIGIBILITY STATUS/OTHER CATEGORIES~;54.025(025) ADM BY PERIOD OF SERVICE - WWII~;54.026(026) ADM BY PERIOD OF SERVICE - KOREA~;54.027(027) ADM BY PERIOD OF SERVICE - VIETNAM ERA~;"
^DIE(330,"DR",1,2100,6)="54.028(028) ADM BY PERIOD OF SERVICE - ALL OTHER~;54.029(029) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5~;54.03(030) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4~;54.031(031) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6~;"
^DIE(330,"DR",1,2100,7)="54.032(032) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2~;54.033(033) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7~;54.034(034) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3~;54.035(035) DIAG OF PTS ADMITTED BY CODE - 304.6/305.7~;"
^DIE(330,"DR",1,2100,8)="54.036(036) DIAG OF PTS ADMITTED BY CODE - 291/303.9~;54.037(037) DIAG OF PTS ADMITTED BY CODE - 305.0~;54.038(038) DIAG OF PTS ADMITTED BY CODE - 303.0~;54.039(039) ADM W/MULT.SUBSTANCE USE - TOTAL~;"
^DIE(330,"DR",1,2100,9)="54.04(040) ADM W/MULT.SUBSTANCE USE - ALCOHOL~;54.041(041) ON ADMISSION - METH.MAIN.~;54.042(042) ON ADMISSION - NALT.MAIN.~;54.043(043) ON ADMISSION - DRUG FREE THERAPY~;54.044(044) ON ADMISSION - OTHER MODALITIES~;"
^DIE(330,"DR",1,2100,10)="54.045(045) REMAINING IN AMB.CARE - METH.MAIN.~;54.046(046) REMAINING IN AMB.CARE - NALT.MAIN.~;54.047(047) REMAINING IN AMB.CARE - DRUG FREE THERAPY~;54.048(048) REMAINING IN AMB.CARE - OTHER MODALITIES~;54.049(049) FAMILY THERAPY~;"
^DIE(330,"DR",1,2100,11)="54.05(050) VOCATIONAL REHABILITATION~;54.051(051) RATE OF RECIDIVISM - ONE~;54.052(052) RATE OF RECIDIVISM - TWO~;54.053(053) RATE OF RECIDIVISM - THREE~;54.054(054) RATE OF RECIDIVISM - FOUR~;"
^DIE(330,"DR",1,2100,12)="54.055(055) RATE OF RECIDIVISM - FIVE+~;54.056(056) STAFFING - AUTHORIZED FTEE~;54.057(057) STAFFING - ACTUAL FTEE~;54.058(058) CONSULTATIONS - IND.PATIENTS~;54.059(059) CONSULTATIONS - NUM OF SESSIONS~;"
^DIE(330,"DR",1,2100,13)="54.06(060) HOME VISITS - IND.PATIENTS~;54.061(061) HOME VISITS - NUM OF SESSIONS~;99///^S X=""$"";"
^DIE(331,0)="YS AMS5 324^2901022.0909^^2100"
^DIE(331,"DIAB",1,0,2100,1)="003-4;""(003) INPAT.CARE/LOSSES - REFERRED OUTSIDE VA"""
^DIE(331,"DIAB",1,0,2100,2)="008-4;""(008) OUTPAT.CARE/LOSSES - TRANSFER TO VA SATC"""
^DIE(331,"DIAB",1,0,2100,3)="012-5;""(012) OUTPAT.CARE/VISITS MADE"""
^DIE(331,"DIAB",2,0,2100,1)="004-4;""(004) INPAT.CARE/LOSSES - ALL OTHER"""
^DIE(331,"DIAB",2,0,2100,2)="009-4;""(009) OUTPAT.CARE/LOSSES - REFERRED OUTSIDE VA"""
^DIE(331,"DIAB",3,0,2100,1)="005-4;""(005) INPAT.CARE/PATIENTS REMAINING EOP"""
^DIE(331,"DIAB",3,0,2100,2)="010-4;""(010) OUTPAT.CARE/LOSSES - ALL OTHER"""
^DIE(331,"DIAB",4,0,2100,1)="006-5;""(006) INPAT.CARE/PATIENT DAYS OF CARE"""
^DIE(331,"DIAB",4,0,2100,2)="011-4;""(011) OUTPAT.CARE/REMAINING IN OUTPAT.CARE"""
^DIE(331,"DIAB",5,0,2100,1)="007-4;""(007) OUTPAT.CARE/TOTAL GAINS"""
^DIE(331,"DIAB",9,0,2100,0)="001-4;""(001) INPAT.CARE/TOTAL GAINS"""
^DIE(331,"DIAB",10,0,2100,0)="002-4;""(002) INPAT.CARE/LOSSES - TRANSFER TO VA SATC"""
^DIE(331,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) INPAT.CARE/TOTAL GAINS~;54.002(002) INPAT.CARE/LOSSES - TRANSFER TO VA SATC~;"
^DIE(331,"DR",1,2100,1)="54.003(003) INPAT.CARE/LOSSES - REFERRED OUTSIDE VA~;54.004(004) INPAT.CARE/LOSSES - ALL OTHER~;54.005(005) INPAT.CARE/PATIENTS REMAINING EOP~;55.006(006) INPAT.CARE/PATIENT DAYS OF CARE~;54.007(007) OUTPAT.CARE/TOTAL GAINS~;"
^DIE(331,"DR",1,2100,2)="54.008(008) OUTPAT.CARE/LOSSES - TRANSFER TO VA SATC~;54.009(009) OUTPAT.CARE/LOSSES - REFERRED OUTSIDE VA~;54.01(010) OUTPAT.CARE/LOSSES - ALL OTHER~;54.011(011) OUTPAT.CARE/REMAINING IN OUTPAT.CARE~;"
^DIE(331,"DR",1,2100,3)="55.012(012) OUTPAT.CARE/VISITS MADE~;99///^S X=""$"";"
^DIE(332,0)="YS AMS5 319^2901022.0941^^2100"
^DIE(332,"DIAB",1,0,2100,1)="003-3;""(003) GAINS FROM OTHER BED SERVICES"""
^DIE(332,"DIAB",1,0,2100,2)="008-3;""(008) LOSSES/TREATMENT COMPLETED"""
^DIE(332,"DIAB",1,0,2100,3)="013-3;""(013) LOSSES/TRANSFER TO OTHER VA FACILITY"""
^DIE(332,"DIAB",1,0,2100,4)="018-3;""(018) ELIGIBILITY STATUS/CAT.A - NSC"""
^DIE(332,"DIAB",1,0,2100,5)="023-3;""(023) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4"""
^DIE(332,"DIAB",1,0,2100,6)="027-3;""(027) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3"""
^DIE(332,"DIAB",1,0,2100,7)="031-3;""(031) DIAG OF PTS ADMITTED BY CODE - 303.0"""
^DIE(332,"DIAB",1,0,2100,8)="035-3;""(035) ADM BY PERIOD OF SERVICE - ALL OTHER"""
^DIE(332,"DIAB",1,0,2100,9)="039-4;""(039) PTS ADMITTED TO MODALITIES OF CARE - NALT.MAIN."""
^DIE(332,"DIAB",1,0,2100,10)="043-3;""(043) VOCATIONAL REHABILITATION"""
^DIE(332,"DIAB",1,0,2100,11)="048-3;""(048) RATES OF RECIDIVISM - FIVE+"""
^DIE(332,"DIAB",1,0,2100,12)="053-4;""(053) COMP WORK THERAPY - IND.PATIENTS"""
^DIE(332,"DIAB",2,0,2100,1)="004-3;""(004) GAINS/TRANSFER FROM OTHER VA FACILITY"""
^DIE(332,"DIAB",2,0,2100,2)="009-3;""(009) LOSSES/TREATMENT NOT COMPLETED"""
^DIE(332,"DIAB",2,0,2100,3)="014-3;""(014) LOSSES/REFERRED OUTSIDE VA"""
^DIE(332,"DIAB",2,0,2100,4)="019-3;""(019) ELIGIBILITY STATUS/OTHER CATEGORIES"""
^DIE(332,"DIAB",2,0,2100,5)="024-3;""(024) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6"""
^DIE(332,"DIAB",2,0,2100,6)="028-3;""(028) DIAG OF PTS ADMITTED BY CODE - OTHER DRUGS"""
^DIE(332,"DIAB",2,0,2100,7)="032-3;""(032) ADM BY PERIOD OF SERVICE - WWII"""
^DIE(332,"DIAB",2,0,2100,8)="036-3;""(036) ADM W/MULT.SUBSTANCE USE - TOTAL"""
^DIE(332,"DIAB",2,0,2100,9)="040-3;""(040) PTS ADMITTED TO MODALITIES OF CARE - DRUG FREE THERAPY"""
^DIE(332,"DIAB",2,0,2100,10)="044-3;""(044) RATES OF RECIDIVISM - ONE"""
^DIE(332,"DIAB",2,0,2100,11)="049-4;""(049) STAFFING - AUTHORIZED FTEE"""
^DIE(332,"DIAB",2,0,2100,12)="054-4;""(054) COMP WORK THERAPY - NUM OF SESSIONS"""
^DIE(332,"DIAB",3,0,2100,1)="005-3;""(005) GAINS/REFERRED FROM OUTSIDE VA"""
^DIE(332,"DIAB",3,0,2100,2)="010-3;""(010) LOSSES TO OTHER DOMICILIARY SERVICES"""
^DIE(332,"DIAB",3,0,2100,3)="015-3;""(015) LOSSES/OTHER"""
^DIE(332,"DIAB",3,0,2100,4)="020-6;""(020) PATIENT DAYS OF CARE"""
^DIE(332,"DIAB",3,0,2100,5)="025-3;""(025) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2"""
^DIE(332,"DIAB",3,0,2100,6)="029-3;""(029) DIAG OF PTS ADMITTED BY CODE - 291/303.9"""
^DIE(332,"DIAB",3,0,2100,7)="033-3;""(033) ADM BY PERIOD OF SERVICE - KOREA"""
^DIE(332,"DIAB",3,0,2100,8)="037-3;""(037) ADM W/MULT.SUBSTANCE USE - ALCOHOL"""
^DIE(332,"DIAB",3,0,2100,9)="041-3;""(041) PTS ADMITTED TO MODALITIES OF CARE - OTHER"""
^DIE(332,"DIAB",3,0,2100,10)="045-3;""(045) RATES OF RECIDIVISM - TWO"""
^DIE(332,"DIAB",3,0,2100,11)="050-4;""(050) STAFFING - ACTUAL FTEE"""
^DIE(332,"DIAB",4,0,2100,1)="006-3;""(006) GAINS/ASMRO"""
^DIE(332,"DIAB",4,0,2100,2)="011-3;""(011) LOSSES TO OTHER BED SERVICES"""
^DIE(332,"DIAB",4,0,2100,3)="016-4;""(016) REMAINING IN INPAT.CARE - END OF PERIOD"""
^DIE(332,"DIAB",4,0,2100,4)="021-3;""(021) OPERATING BEDS"""
^DIE(332,"DIAB",4,0,2100,5)="026-3;""(026) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7"""
^DIE(332,"DIAB",4,0,2100,6)="030-3;""(030) DIAG OF PTS ADMITTED BY CODE - 305.0"""
^DIE(332,"DIAB",4,0,2100,7)="034-3;""(034) ADM BY PERIOD OF SERVICE - VIETNAM ERA"""
^DIE(332,"DIAB",4,0,2100,8)="038-3;""(038) PTS ADMITTED TO MODALITIES OF CARE - METH.MAIN."""
^DIE(332,"DIAB",4,0,2100,9)="042-3;""(042) FAMILY THERAPY"""
^DIE(332,"DIAB",4,0,2100,10)="046-3;""(046) RATES OF RECIDIVISM - THREE"""
^DIE(332,"DIAB",4,0,2100,11)="051-3;""(051) CONSULTATIONS - IND.PATIENTS"""
^DIE(332,"DIAB",5,0,2100,1)="007-3;""(007) GAINS/ALL OTHER"""
^DIE(332,"DIAB",5,0,2100,2)="012-3;""(012) LOSSES TO STATION OPT.CARE"""
^DIE(332,"DIAB",5,0,2100,3)="017-3;""(017) ELIGIBILITY STATUS/CAT.A - SC"""
^DIE(332,"DIAB",5,0,2100,4)="022-3;""(022) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5"""
^DIE(332,"DIAB",5,0,2100,10)="047-3;""(047) RATES OF RECIDIVISM - FOUR"""
^DIE(332,"DIAB",5,0,2100,11)="052-4;""(052) CONSULTATIONS - NUM OF SESSIONS"""
^DIE(332,"DIAB",9,0,2100,0)="001-3;""(001) GAINS FROM STATION OPT CARE - AMB CARE"""
^DIE(332,"DIAB",10,0,2100,0)="002-3;""(002) GAINS FROM STATION OPT CARE - OTHER"""
^DIE(332,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;53.001(001) GAINS FROM STATION OPT CARE - AMB CARE~;53.002(002) GAINS FROM STATION OPT CARE - OTHER~;"
^DIE(332,"DR",1,2100,1)="53.003(003) GAINS FROM OTHER BED SERVICES~;53.004(004) GAINS/TRANSFER FROM OTHER VA FACILITY~;53.005(005) GAINS/REFERRED FROM OUTSIDE VA~;53.006(006) GAINS/ASMRO~;53.007(007) GAINS/ALL OTHER~;"
^DIE(332,"DR",1,2100,2)="53.008(008) LOSSES/TREATMENT COMPLETED~;53.009(009) LOSSES/TREATMENT NOT COMPLETED~;53.01(010) LOSSES TO OTHER DOMICILIARY SERVICES~;53.011(011) LOSSES TO OTHER BED SERVICES~;53.012(012) LOSSES TO STATION OPT.CARE~;"
^DIE(332,"DR",1,2100,3)="53.013(013) LOSSES/TRANSFER TO OTHER VA FACILITY~;53.014(014) LOSSES/REFERRED OUTSIDE VA~;53.015(015) LOSSES/OTHER~;54.016(016) REMAINING IN INPAT.CARE - END OF PERIOD~;53.017(017) ELIGIBILITY STATUS/CAT.A - SC~;"
^DIE(332,"DR",1,2100,4)="53.018(018) ELIGIBILITY STATUS/CAT.A - NSC~;53.019(019) ELIGIBILITY STATUS/OTHER CATEGORIES~;56.02(020) PATIENT DAYS OF CARE~;53.021(021) OPERATING BEDS~;53.022(022) DIAG OF PTS ADMITTED BY CODE - 304.0/304.7/305.5~;"
^DIE(332,"DR",1,2100,5)="53.023(023) DIAG OF PTS ADMITTED BY CODE - 304.1/305.4~;53.024(024) DIAG OF PTS ADMITTED BY CODE - 304.2/305.6~;53.025(025) DIAG OF PTS ADMITTED BY CODE - 304.3/305.2~;53.026(026) DIAG OF PTS ADMITTED BY CODE - 304.4/305.7~;"
^DIE(332,"DR",1,2100,6)="53.027(027) DIAG OF PTS ADMITTED BY CODE - 304.5/305.3~;53.028(028) DIAG OF PTS ADMITTED BY CODE - OTHER DRUGS~;53.029(029) DIAG OF PTS ADMITTED BY CODE - 291/303.9~;53.03(030) DIAG OF PTS ADMITTED BY CODE - 305.0~;"
^DIE(332,"DR",1,2100,7)="53.031(031) DIAG OF PTS ADMITTED BY CODE - 303.0~;53.032(032) ADM BY PERIOD OF SERVICE - WWII~;53.033(033) ADM BY PERIOD OF SERVICE - KOREA~;53.034(034) ADM BY PERIOD OF SERVICE - VIETNAM ERA~;"
^DIE(332,"DR",1,2100,8)="53.035(035) ADM BY PERIOD OF SERVICE - ALL OTHER~;53.036(036) ADM W/MULT.SUBSTANCE USE - TOTAL~;53.037(037) ADM W/MULT.SUBSTANCE USE - ALCOHOL~;53.038(038) PTS ADMITTED TO MODALITIES OF CARE - METH.MAIN.~;"
^DIE(332,"DR",1,2100,9)="54.039(039) PTS ADMITTED TO MODALITIES OF CARE - NALT.MAIN.~;53.04(040) PTS ADMITTED TO MODALITIES OF CARE - DRUG FREE THERAPY~;53.041(041) PTS ADMITTED TO MODALITIES OF CARE - OTHER~;53.042(042) FAMILY THERAPY~;"
^DIE(332,"DR",1,2100,10)="53.043(043) VOCATIONAL REHABILITATION~;53.044(044) RATES OF RECIDIVISM - ONE~;53.045(045) RATES OF RECIDIVISM - TWO~;53.046(046) RATES OF RECIDIVISM - THREE~;53.047(047) RATES OF RECIDIVISM - FOUR~;"
^DIE(332,"DR",1,2100,11)="53.048(048) RATES OF RECIDIVISM - FIVE+~;54.049(049) STAFFING - AUTHORIZED FTEE~;54.05(050) STAFFING - ACTUAL FTEE~;53.051(051) CONSULTATIONS - IND.PATIENTS~;54.052(052) CONSULTATIONS - NUM OF SESSIONS~;"
^DIE(332,"DR",1,2100,12)="54.053(053) COMP WORK THERAPY - IND.PATIENTS~;54.054(054) COMP WORK THERAPY - NUM OF SESSIONS~;99///^S X=""$"";"
^DIE(333,0)="LR AMS5 MISCELLANEOUS J07^2901023.1206^^2100"
^DIE(333,"DIAB",1,0,2100,1)="003-5;""(003) ALVEOLAR GAS 94015 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,2)="007-5;""(007) CARBON MONOXIDE UPTAKE FRAC. 94725 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,3)="011-5;""(011) EXP FLOW RATE/PEAK 94212 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,4)="015-5;""(015) LUNGS/MECH.PROP.OF 94730 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,5)="019-5;""(019) NITROGEN WASH OUT 94350 - TEST"""
^DIE(333,"DIAB",1,0,2100,6)="023-5;""(023) RESIDUAL CAP. FUNC/FRC 84600 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,7)="027-5;""(027) VEINOUS-ARTERIAL SHUNT 94760 - PATIENT"""
^DIE(333,"DIAB",1,0,2100,8)="031-5;""(031) VITAL CAP./TIMED 94160 - PATIENT"""
^DIE(333,"DIAB",2,0,2100,1)="004-5;""(004) ALVEOLAR VENTILATION 94020 - PATIENT"""
^DIE(333,"DIAB",2,0,2100,2)="008-5;""(008) CARDIOVASCULAR STRESS TEST 93051 - PATIENT"""
^DIE(333,"DIAB",2,0,2100,3)="012-5;""(012) HELIUM DILUTION/LUNG VOL 94245 - TEST"""
^DIE(333,"DIAB",2,0,2100,4)="016-5;""(016) MAX.BREATHING CAP/BRONCODILAT 94205 - PATIENT"""
^DIE(333,"DIAB",2,0,2100,5)="020-5;""(020) OXYGEN CONSUMP.SCHOLANDER 94685 - TEST"""
^DIE(333,"DIAB",2,0,2100,6)="024-5;""(024) RESIDUAL VOLUME/RV 94240 - PATIENT"""
^DIE(333,"DIAB",2,0,2100,7)="028-5;""(028) VENTILATION/MAX.VOLUNTARY 94030 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,1)="005-5;""(005) BASAL METABOLIC RATE 89000 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,2)="009-5;""(009) DEAD SPACE/TIDAL VOL 94065 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,3)="013-5;""(013) LUNG COMPLIANCE 94750 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,4)="017-5;""(017) MAX.BREATHING CAP/DIRECT 94200 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,5)="021-5;""(021) PHONOCARDIOGRAM 93200 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,6)="025-5;""(025) SEMEN ANALYSIS/PRES OF SPERM 89300 - PATIENT"""
^DIE(333,"DIAB",3,0,2100,7)="029-5;""(029) VITAL CAP.AFTER BRONCHODIL 94060 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,1)="006-5;""(006) CARBON MONOXIDE DIFF.CAP 94720 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,2)="010-5;""(010) EXP FLOW RATE/MMFR 94210 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,3)="014-5;""(014) LUNG DEAD SPACE 94075 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,4)="018-5;""(018) MINUTE VENTILATION/VE 94230 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,5)="022-5;""(022) PULMONARY DIFF.CAP 94775 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,6)="026-5;""(026) VECTOR CARDIOGRAM 83220 - PATIENT"""
^DIE(333,"DIAB",4,0,2100,7)="030-5;""(030) VITAL CAP./FORCED 94150 - PATIENT"""
^DIE(333,"DIAB",9,0,2100,0)="001-5;""(001) AIRWAY RESISTANCE 94005 - PATIENT"""
^DIE(333,"DIAB",10,0,2100,0)="002-5;""(002) ALVEOLAR ARTER.GRADIENT 94715 - PATIENT"""
^DIE(333,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""3"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;55.001(001) AIRWAY RESISTANCE 94005 - PATIENT~;55.002(002) ALVEOLAR ARTER.GRADIENT 94715 - PATIENT~;"
^DIE(333,"DR",1,2100,1)="55.003(003) ALVEOLAR GAS 94015 - PATIENT~;55.004(004) ALVEOLAR VENTILATION 94020 - PATIENT~;55.005(005) BASAL METABOLIC RATE 89000 - PATIENT~;55.006(006) CARBON MONOXIDE DIFF.CAP 94720 - PATIENT~;"
^DIE(333,"DR",1,2100,2)="55.007(007) CARBON MONOXIDE UPTAKE FRAC. 94725 - PATIENT~;55.008(008) CARDIOVASCULAR STRESS TEST 93051 - PATIENT~;55.009(009) DEAD SPACE/TIDAL VOL 94065 - PATIENT~;55.01(010) EXP FLOW RATE/MMFR 94210 - PATIENT~;"
^DIE(333,"DR",1,2100,3)="55.011(011) EXP FLOW RATE/PEAK 94212 - PATIENT~;55.012(012) HELIUM DILUTION/LUNG VOL 94245 - TEST~;55.013(013) LUNG COMPLIANCE 94750 - PATIENT~;55.014(014) LUNG DEAD SPACE 94075 - PATIENT~;"
^DIE(333,"DR",1,2100,4)="55.015(015) LUNGS/MECH.PROP.OF 94730 - PATIENT~;55.016(016) MAX.BREATHING CAP/BRONCODILAT 94205 - PATIENT~;55.017(017) MAX.BREATHING CAP/DIRECT 94200 - PATIENT~;55.018(018) MINUTE VENTILATION/VE 94230 - PATIENT~;"
^DIE(333,"DR",1,2100,5)="55.019(019) NITROGEN WASH OUT 94350 - TEST~;55.02(020) OXYGEN CONSUMP.SCHOLANDER 94685 - TEST~;55.021(021) PHONOCARDIOGRAM 93200 - PATIENT~;55.022(022) PULMONARY DIFF.CAP 94775 - PATIENT~;"
^DIE(333,"DR",1,2100,6)="55.023(023) RESIDUAL CAP. FUNC/FRC 84600 - PATIENT~;55.024(024) RESIDUAL VOLUME/RV 94240 - PATIENT~;55.025(025) SEMEN ANALYSIS/PRES OF SPERM 89300 - PATIENT~;55.026(026) VECTOR CARDIOGRAM 83220 - PATIENT~;"
^DIE(333,"DR",1,2100,7)="55.027(027) VEINOUS-ARTERIAL SHUNT 94760 - PATIENT~;55.028(028) VENTILATION/MAX.VOLUNTARY 94030 - PATIENT~;55.029(029) VITAL CAP.AFTER BRONCHODIL 94060 - PATIENT~;55.03(030) VITAL CAP./FORCED 94150 - PATIENT~;"
^DIE(333,"DR",1,2100,8)="55.031(031) VITAL CAP./TIMED 94160 - PATIENT~;99///^S X=""$"";"
^DIE(334,0)="PRCC CA2 10-2418D3T^2910305.1057^^2100^1^^2941214"
^DIE(334,"DIAB",1,0,2100,0)="]C&A STATION;""STATION NUMBER"""
^DIE(334,"DR",1,2100)="224STATION NUMBER~;225;226;227;228///D3;229///T;230;99///$;"
^DIE(335,0)="RMPR AMS5 AMIS 363^2910128.0956^@^2100^0^@^2910305"
^DIE(335,"DIAB",1,0,2100,1)="002-5;""(002) SPECIAL PRGMS AND INDEPENDENT LIVING - RECREATION"""
^DIE(335,"DIAB",1,0,2100,2)="005-4;""(005) SPECIAL PRGMS AND INDEPENDENT LIVING - OTHER"""
^DIE(335,"DIAB",1,0,2100,3)="009-4;""(009) PATIENT DAYS OF CARE - QUADRAPLEGIC - NSC"""
^DIE(335,"DIAB",2,0,2100,1)="003-3;""(003) SPECIAL PRGMS AND INDEPENDENT LIVING - PEER COUNSELING"""
^DIE(335,"DIAB",2,0,2100,2)="006-4;""(006) PATIENT DAYS OF CARE - PARAPLEGIC - SC"""
^DIE(335,"DIAB",3,0,2100,1)="004-5;""(004) SPECIAL PRGMS AND INDEPENDENT LIVING - OTHER PROGRAMS"""
^DIE(335,"DIAB",3,0,2100,2)="007-4;""(007) PATIENT DAYS OF CARE - PARAPLEGIC - NSC"""
^DIE(335,"DIAB",4,0,2100,2)="008-4;""(008) PATIENT DAYS OF CARE - QUADRAPLEGIC - SC"""
^DIE(335,"DIAB",9,0,2100,0)="001-4;""(001) SPECIAL PRGMS AND INDEPENDENT LIVING - PATIENT EDUCATION"""
^DIE(335,"DR",1,2100)="1///^S X=""AMS"";1254///^S X=""(("";1255///^S X=""M"";1256///^S X=8;5///^S X=GECS(""SITE"");6;7///^S X=GECS(""TT"");1257;54.001(001) SPECIAL PRGMS AND INDEPENDENT LIVING - PATIENT EDUCATION~;"
^DIE(335,"DR",1,2100,1)="55.002(002) SPECIAL PRGMS AND INDEPENDENT LIVING - RECREATION~;53.003(003) SPECIAL PRGMS AND INDEPENDENT LIVING - PEER COUNSELING~;55.004(004) SPECIAL PRGMS AND INDEPENDENT LIVING - OTHER PROGRAMS~;"
^DIE(335,"DR",1,2100,2)="54.005(005) SPECIAL PRGMS AND INDEPENDENT LIVING - OTHER~;54.006(006) PATIENT DAYS OF CARE - PARAPLEGIC - SC~;54.007(007) PATIENT DAYS OF CARE - PARAPLEGIC - NSC~;54.008(008) PATIENT DAYS OF CARE - QUADRAPLEGIC - SC~;"
^DIE(335,"DR",1,2100,3)="54.009(009) PATIENT DAYS OF CARE - QUADRAPLEGIC - NSC~;99///^S X=""$"";"
^DIE(336,0)="YSDD DDC5 5356^2910607.1737^^2100^^^^"
^DIE(336,"DIAB",2,0,2100,1)="TYPE CODE;""TYPE"""
^DIE(336,"DIAB",6,0,2100,2)="TREATMENT MODALITY;""MODAL"""
^DIE(336,"DIAB",9,0,2100,0)="PATIENT FIRST NAME;""FIRST NAME"""
^DIE(336,"DIAB",11,0,2100,0)="PATIENT MI;""MI"""
^DIE(336,"DIAB",15,0,2100,0)="PATIENT SEX;""SEX"""
^DIE(336,"DIAB",17,0,2100,0)="PATIENT DATE OF BIRTH;""DATE OF BIRTH"""
^DIE(336,"DIAB",19,0,2100,0)="COUNSELOR ID NUMBER;""COUNS NO"""
^DIE(336,"DIAB",21,0,2100,0)="ACTION CODE;""ACTION"""
^DIE(336,"DR",1,2100)="5///^S X=GECS(""SITE"");@1;5000;@2;5001;@3;5002;@4;5003FIRST NAME~;@5;5004MI~;@6;5005;@7;5006SEX~;@8;5007DATE OF BIRTH~;@9;5008COUNS NO~;@10;5009ACTION~;S GECQACT=X;@11;"
^DIE(336,"DR",1,2100,1)="S DIC(""S"")=$S(X=""A"":""I Y=0!(Y=9)"",X=""C"":""I Y'<1,(Y'>3)"",X=""D"":""I Y'<1,(Y'>6)"",1:"""");5010TYPE~;S GECQTYP=X K DIC(""S"");"
^DIE(336,"DR",1,2100,2)="S GECQMASK=$S(GECQACT=""A"":""RRRROOORRRRRR"",GECQACT=""C"":$S(GECQTYP=1:""RRROOOOOORRRN"",GECQTYP=2:""RRRNNNNNNRRRR"",GECQTYP=3:""RRRNNNNNNRRRN"",1:""""),GECQACT=""D"":""RRRNNNNNNRRRN"",1:"""");K GECQACT,GECQTYP;@12;5011;@13;5012MODAL~;"
^DIE(336,"DR",1,2100,3)="F GECQI=1:1:$L(GECQMASK) I $E(GECQMASK,GECQI)=""R"",($P(^GECS(2100,DA,""YSDDC5""),""^"",GECQI)']"""") S GECQASK=GECQI Q;I $D(GECQASK),(GECQASK>0),(GECQASK<14) W !!,*7,""Required field(s) OMITTED."",! S Y=""@""_GECQASK K GECQASK;"
^DIE(336,"DR",1,2100,4)="S GECQFLD=""CLINIC^PATIENT ID #^PATIENT LAST NAME^FIRST NAME^MI^EBC^SEX^DOB^COUNS NO^ACTION^TYPE^ACTION EFF DATE^MODAL"";"
^DIE(336,"DR",1,2100,5)="F GECQI=1:1:$L(GECQMASK) I $E(GECQMASK,GECQI)=""N"",($P(^GECS(2100,DA,""YSDDC5""),""^"",GECQI)]"""") W !,*7,$P(GECQFLD,""^"",GECQI),"" should be OMITTED from this transaction type..."" S $P(^(""YSDDC5""),""^"",GECQI)="""" W ""Removed."";"
^DIE(336,"DR",1,2100,6)="K GECQMASK,GECQFLD,GECQI;5013///^S X=""01"";5014///^S X=""@"";5015///^S X=""$"";"
^DIE(337,0)="YSDD DDC5 5357^2910401.0955^^2100^^^^"
^DIE(337,"DIAB",5,0,2100,0)="5017;""EFFECTIVE DATE OF '01' SEQUENCE"""
^DIE(337,"DIAB",7,0,2100,0)="MEDICATION SEQUENCE;""SEQUENCE"""
^DIE(337,"DIAB",9,0,2100,0)="DOSAGE DURATION;""DURATION"""
^DIE(337,"DR",1,2100)="5///^S X=GECS(""SITE"");5000;5001;5002;5017EFFECTIVE DATE OF '01' SEQUENCE~;5018;5019SEQUENCE~;5020;5021DURATION~;5013///^S X=""02"";5014///^S X=""@"";5015///^S X=""$"";"
^DIE(338,0)="YSDD DDC5 5334^2910329.0947^^2100^^^^"
^DIE(338,"DIAB",1,0,2100,1)="DOSAGE CODE-FRIDAY;""   FRIDAY CODE"""
^DIE(338,"DIAB",2,0,2100,1)="DOSAGE-FRIDAY;""        DOSAGE"""
^DIE(338,"DIAB",3,0,2100,0)="PATIENT IDENTIFICATION NUMBER;""PATIENT ID"""
^DIE(338,"DIAB",3,0,2100,1)="DOSAGE CODE-SATURDAY;"" SATURDAY CODE"""
^DIE(338,"DIAB",4,0,2100,1)="DOSAGE-SATURDAY;""        DOSAGE"""
^DIE(338,"DIAB",5,0,2100,0)="MEDICATION FOR WEEK OF;""FOR THE WEEK OF"""
^DIE(338,"DIAB",5,0,2100,1)="DOSAGE CODE-SUNDAY;""   SUNDAY CODE"""
^DIE(338,"DIAB",6,0,2100,0)="DOSAGE CODE-MONDAY;""   MONDAY CODE"""
^DIE(338,"DIAB",6,0,2100,1)="DOSAGE-SUNDAY;""        DOSAGE"""
^DIE(338,"DIAB",7,0,2100,0)="DOSAGE-MONDAY;""        DOSAGE"""
^DIE(338,"DIAB",8,0,2100,0)="DOSAGE CODE-TUESDAY;""  TUESDAY CODE"""
^DIE(338,"DIAB",9,0,2100,0)="DOSAGE-TUESDAY;""        DOSAGE"""
^DIE(338,"DIAB",10,0,2100,0)="DOSAGE CODE-WEDNESDAY;""WEDNESDAY CODE"""
^DIE(338,"DIAB",11,0,2100,0)="DOSAGE-WEDNESDAY;""        DOSAGE"""
^DIE(338,"DIAB",12,0,2100,0)="DOSAGE CODE-THURSDAY;"" THURSDAY CODE"""
^DIE(338,"DIAB",13,0,2100,0)="DOSAGE-THURSDAY;""        DOSAGE"""
^DIE(338,"DR",1,2100)="5///^S X=GECS(""SITE"");5000;5001PATIENT ID~;5002;5025FOR THE WEEK OF~;5026   MONDAY CODE~;5027        DOSAGE~;5028  TUESDAY CODE~;5029        DOSAGE~;5030WEDNESDAY CODE~;5031        DOSAGE~;5032 THURSDAY CODE~;5033        DOSAGE~;"
^DIE(338,"DR",1,2100,1)="5034   FRIDAY CODE~;5035        DOSAGE~;5036 SATURDAY CODE~;5037        DOSAGE~;5038   SUNDAY CODE~;5039        DOSAGE~;5013///^S X=""03"";5014///^S X=""@"";5015///^S X=""$"";"
^DIE(339,0)="YSDD DDC5 5333^2910604.1513^^2100^^^2910626^"
^DIE(339,"DIAB",3,0,2100,0)="HCF TEXT CODE;""TEXT CODE"""
^DIE(339,"DIAB",7,0,2100,0)="HCF TEXT;""TEXT"""
^DIE(339,"DR",1,2100)="5///^S X=GECS(""SITE"");5000;5022TEXT CODE~;S GECQCODE=X;5023///^S X="" "";@1;5024TEXT~;I $D(GECQCODE),(GECQCODE=5),'((X?5N)!(X?5N1""-""4N)) W *7,""  INVALID ZIP CODE."" S Y=""@1"";5067///^S X=""    "";5013///^S X=""08"";5014///^S X=""@"";"
^DIE(339,"DR",1,2100,1)="5015///^S X=""$"";K GECQCODE;"
^DIE(340,0)="YSDD DDC5 5335^2910329.0823^^2100^^^^"
^DIE(340,"DIAB",1,0,2100,1)="5057;""SECOND OTHER DRUG NAME/CODE"""
^DIE(340,"DIAB",2,0,2100,1)="5058;""SECOND OTHER DRUG RESULT"""
^DIE(340,"DIAB",3,0,2100,1)="5059;""THIRD OTHER DRUG PRESCRIBED"""
^DIE(340,"DIAB",4,0,2100,1)="5060;""THIRD OTHER DRUG NAME/CODE"""
^DIE(340,"DIAB",5,0,2100,1)="5061;""THIRD OTHER DRUG RESULT"""
^DIE(340,"DIAB",6,0,2100,1)="5062;""NOT TESTED-QUANTITY NOT SUFFICIENT"""
^DIE(340,"DIAB",18,0,2100,0)="5053;""FIRST OTHER DRUG PRESCRIBED"""
^DIE(340,"DIAB",19,0,2100,0)="5054;""FIRST OTHER DRUG NAME/CODE"""
^DIE(340,"DIAB",20,0,2100,0)="5055;""FIRST OTHER DRUG RESULT"""
^DIE(340,"DIAB",21,0,2100,0)="5056;""SECOND OTHER DRUG PRESCRIBED"""
^DIE(340,"DR",1,2100)="5///^S X=GECS(""SITE"");5000;5001;5002;5040;5041;5042;5043;5044;5045;5046;5047;5048;5049;5050;5051;5052;5053FIRST OTHER DRUG PRESCRIBED~;5054FIRST OTHER DRUG NAME/CODE~;5055FIRST OTHER DRUG RESULT~;5056SECOND OTHER DRUG PRESCRIBED~;"
^DIE(340,"DR",1,2100,1)="5057SECOND OTHER DRUG NAME/CODE~;5058SECOND OTHER DRUG RESULT~;5059THIRD OTHER DRUG PRESCRIBED~;5060THIRD OTHER DRUG NAME/CODE~;5061THIRD OTHER DRUG RESULT~;5062NOT TESTED-QUANTITY NOT SUFFICIENT~;5013///^S X=""04"";5014///^S X=""@"";"
^DIE(340,"DR",1,2100,2)="5015///^S X=""$"";"
^DIE(341,0)="YSDD DDC5 53CO^2910329.0935^^2100^^^^"
^DIE(341,"DIAB",5,0,2100,0)="5063;""DATE OF COUNSELING SESSION"""
^DIE(341,"DIAB",6,0,2100,0)="5064;""SUBJ DISC OR REASON FOR ABSENCE - FIRST"""
^DIE(341,"DIAB",7,0,2100,0)="5065;""                                - SECOND"""
^DIE(341,"DIAB",8,0,2100,0)="5066;""                                - THIRD"""
^DIE(341,"DR",1,2100)="5///^S X=GECS(""SITE"");5000;5001;5002;5063DATE OF COUNSELING SESSION~;5064SUBJ DISC OR REASON FOR ABSENCE - FIRST~;5065                                - SECOND~;5066                                - THIRD~;5013///^S X=""05"";"
^DIE(341,"DR",1,2100,1)="5014///^S X=""@"";5015///^S X=""$"";"
^DIE(345,0)="PRCFMS:CONTROL^2940606.1435^@^2100^7^@^2950206"
^DIE(345,"DR",1,2100)="5///^S X=$G(GECS(""SITE""));401///^S X=$P(GECS(""TT""),"":"");@1;402;403;"
^DIE(345,"DR",1,2100,1)="S %=$G(^GECS(2100,DA,""FMS"")) I $P(%,""^"",3)'=""Y"",$$CHEKDUPL^GECSSTAA(%) W !,""WARNING -- DUPLICATE TRANSACTION NUMBER IN STACK FILE.  FMS WILL REJECT !"",!?11,""PLEASE RE-ENTER TRANSACTION NUMBER."" S Y=""@1"";"
^DIE(345,"DR",1,2100,2)="S X=""PRC0C"" X:$D(^%ZOSF(""TEST"")) ^(""TEST"") I '$T S Y=""@2"";S X=$$SEC1^PRC0C($G(GECS(""SITE""))) I X'="""" S $P(^GECS(2100,DA,""FMS""),""^"",4)=X,Y="""";@2;404;"
^DIE(346,0)="PRCFMS:TV^2950119.1134^@^2100^55^@^2950206"
^DIE(346,"DIAB",4,0,2100,4)="VENDOR ID;""EMPLOYEE CODE"""
^DIE(346,"DIAB",5,0,2100,4)="VENDOR ADDRESS CODE;""EMPLOYEE CODE (SUFFIX)"""
^DIE(346,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(346,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(346,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(346,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(346,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TV2"";450.01EMPLOYEE CODE~;450.02EMPLOYEE CODE (SUFFIX)~;450.03///^S X="""";450.04///^S X="""";"
^DIE(346,"DR",1,2100,5)="450.05///^S X=PRC(""FY"");450.06///^S X="""";450.07///^S X="""";450.08;450.09;450.1///^S X="""";450.11///^S X="""";450.12///^S X="""";450.13///^S X="""";450.14///^S X="""";@2;"
^DIE(346,"DR",1,2100,6)="S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;"
^DIE(346,"DR",1,2100,7)="I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Begins !"" S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;"
^DIE(346,"DR",1,2100,8)="450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@3;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(346,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Ends !"" S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(346,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30)<$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) W $C(7),!!,""Travel Date Begins can't be greater than Travel Date Ends !!  Please reenter. "" S Y=""@3"";"
^DIE(346,"DR",1,2100,11)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.21;450.22;450.23;450.24;450.25;450.26;450.27;450.28;421.2///^S X=""~"";"
^DIE(346,"DR",1,2100,12)="420.3///^S X=""TV3"";450.29///^S X="""";450.3;450.31;450.32;450.33///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.35///^S X="""";450.36///^S X="""";450.37///^S X="""";450.38;450.39///^S X="""";450.4///^S X="""";"
^DIE(346,"DR",1,2100,13)="450.41///^S X="""";450.42///^S X="""";450.43///^S X="""";450.44;450.45///^S X="""";450.46///^S X="""";450.47///^S X="""";421.3///^S X=""~"";420.4///^S X=""TV4"";W !;"
^DIE(346,"DR",1,2100,14)="S DIR(0)=""Y"",DIR(""B"")=""Yes"",DIR(""A"")=""Do you want to enter Travel Voucher with Liquidating ADVANCE "" D ^DIR S Y=$S(Y=0:""@5"",Y=1:""@4"",$D(DIRUT):""@99"",1:""@99"");@4;450.55;450.56;450.57;450.58;450.59;450.6///^S X="""";450.61///^S X="""";"
^DIE(346,"DR",1,2100,15)="450.62;450.63;450.64;450.65;450.66;450.67;450.68///^S X="""";450.69///^S X="""";450.7;450.71;450.72;450.73;450.74;450.75;450.76///^S X="""";450.77///^S X="""";450.78;@5;421.4///^S X=""~"";500;S Y="""";@99;"
^DIE(346,"DR",1,2100,16)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT;"
^DIE(346,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(346,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(346,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.02;50.03///^S X="""";50.04///^S X="""";50.05///^S X="""";50.06///^S X="""";50.07;50.08;50.09///^S X="""";50.1///^S X="""";50.11;50.12;50.13;"
^DIE(346,"DR",2,2100.02,3)="50.14;50.15;50.16;50.17;50.18///^S X="""";50.19;50.2///^S X="""";50.21///^S X="""";50.22///^S X="""";50.23///^S X="""";50.24;50.26///^S X="""";50.27///^S X="""";50.28///^S X="""";50.29///^S X="""";50.3///^S X="""";50.31///^S X="""";61.15///^S X="""";"
^DIE(346,"DR",2,2100.02,4)="50.33///^S X="""";50.34///^S X="""";50.35///^S X="""";50.36///^S X="""";421.1///^S X=""~"";420.2///^S X=""TVB"";50.37///^S X="""";50.38///^S X="""";50.39///^S X="""";50.4;50.41;50.42///^S X="""";50.43///^S X="""";50.44///^S X="""";421.2///^S X=""~"";"
^DIE(347,0)="PRCFMS:MO^2940901.1116^@^2100^55^@^2940923"
^DIE(347,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(347,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(347,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(347,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(347,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",8)="""" $P(^(""FMSMO2""),""^"",8)=PRCFUND;QUIT;420.2///^S X=""MO2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(347,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(347,"DR",1,2100,6)="450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;462.08;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.1///^S X="""";"
^DIE(347,"DR",1,2100,7)="462.11///^S X="""";454.16///^S X="""";450.01;450.02;450.23;462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";450.27///^S X="""";450.28///^S X="""";462.21///^S X="""";462.22///^S X="""";462.23;421.2///^S X=""~"";420.3///^S X=""MO3"";"
^DIE(347,"DR",1,2100,8)="462.24///^S X="""";462.25///^S X="""";462.26///^S X="""";462.27///^S X="""";462.28///^S X="""";462.29///^S X="""";460.06;S Y=""@3"";@2;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(347,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""END DATE: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",2)=PRCYMD;"
^DIE(347,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2)<$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) W $C(7),!!,""START DATE can't be greater than END DATE !! Please reenter."",! S Y=""@2"";S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(347,"DR",1,2100,11)="462.31///^S X=PRCY;462.32///^S X=PRCM;462.33///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;462.34///^S X="""";462.35///^S X="""";462.36///^S X="""";452.24///^S X="""";462.38///^S X="""";462.39///^S X="""";"
^DIE(347,"DR",1,2100,12)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1)'="""" S Y=""@4"";@3;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(347,"DR",1,2100,13)="N %DT,Y S %DT(""A"")=""START DATE: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(347,"DR",1,2100,14)="462.4///^S X=PRCY;462.41///^S X=PRCM;462.42///^S X=PRCD;S Y=""@2"";@4;462.43;462.44;462.45///^S X="""";462.46///^S X="""";462.47///^S X="""";462.48///^S X="""";454.21;462.5///^S X="""";462.51///^S X="""";462.52///^S X="""";462.53///^S X="""";"
^DIE(347,"DR",1,2100,15)="462.54///^S X="""";462.55;462.56///^S X="""";462.57;462.58;450.3///^S X="""";421.3///^S X=""~"";420.4///^S X=""MO4"";450.31///^S X="""";454.35;454.36;454.38///^S X="""";454.39///^S X="""";454.41///^S X="""";454.42///^S X="""";462.67///^S X="""";454.46;"
^DIE(347,"DR",1,2100,16)="454.47///^S X="""";454.48///^S X="""";421.4///^S X=""~"";420.5///^S X=""MO5"";462.71///^S X="""";462.72///^S X="""";462.73///^S X="""";462.74///^S X="""";462.75///^S X="""";462.76///^S X="""";462.77///^S X="""";462.78///^S X="""";450.32///^S X="""";"
^DIE(347,"DR",1,2100,17)="421.5///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;"
^DIE(347,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""MOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(347,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(347,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15///^S X="""";50.16///^S X="""";54.03///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;"
^DIE(347,"DR",2,2100.02,3)="62.18///^S X="""";62.19;62.2///^S X="""";62.21///^S X="""";421.1///^S X=""~"";420.2///^S X=""MOB"";50.46///^S X="""";62.23///^S X="""";62.24///^S X="""";62.25///^S X="""";62.26///^S X="""";54.24///^S X="""";62.28///^S X="""";62.29///^S X="""";"
^DIE(347,"DR",2,2100.02,4)="62.3///^S X="""";63.13///^S X="""";62.32///^S X="""";62.33///^S X="""";62.34///^S X="""";62.35///^S X="""";62.36///^S X="""";62.37///^S X="""";62.38///^S X="""";62.39///^S X="""";60.1///^S X="""";62.41///^S X="""";62.42///^S X="""";62.43///^S X="""";"
^DIE(347,"DR",2,2100.02,5)="62.44///^S X="""";62.45///^S X="""";421.2///^S X=""~"";420.3///^S X=""MOC"";50.42;50.43;50.44;421.3///^S X=""~"";"
^DIE(348,0)="PRCFMS:IV^2940708.1122^@^2100^55^@^2940830"
^DIE(348,"DIAB",1,1,2100.02,4)="66.04;""BUYER SUB COST CENTER"""
^DIE(348,"DIAB",3,1,2100.02,4)="66.06;""BUYER BUDGET OBJECT CODE (BOC)"""
^DIE(348,"DIAB",4,1,2100.02,2)="54.25;""SELLER REVENUE SOURCE"""
^DIE(348,"DIAB",5,0,2100,7)="450.06;""ACCOUNTING PERIOD MONTH (optional)"""
^DIE(348,"DIAB",5,0,2100,9)="454.16;""DOCUMENT DESCRIPTION (optional)"""
^DIE(348,"DIAB",5,1,2100.02,0)="52.12;""LINE DOLLAR AMOUNT"""
^DIE(348,"DIAB",6,0,2100,7)="450.05;""ACCOUNTING PERIOD YEAR (optional)"""
^DIE(348,"DIAB",6,0,2100,9)="454.21;""DOCUMENT TOTAL DOLLARS"""
^DIE(348,"DIAB",6,1,2100.02,0)="52.13;""INCREASE OR DECREASE INDICATOR"""
^DIE(348,"DIAB",6,1,2100.02,3)="66.03;""BUYER COST CENTER"""
^DIE(348,"DIAB",6,1,2100.02,4)="54.1;""BUYER ACCOUNTING TRANSACTION TYPE"""
^DIE(348,"DIAB",7,1,2100.02,2)="61.13;""SELLER ACCOUNTING TRANSACTION TYPE"""
^DIE(348,"DIAB",7,1,2100.02,4)="62.19;""BUYER DESCRIPTION"""
^DIE(348,"DIAB",8,1,2100.02,2)="50.4;""SELLER DESCRIPTION"""
^DIE(348,"DR",1,2100)="W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)=2"";"
^DIE(348,"DR",1,2100,1)="W ! S PRCSELCP=$$CP^PRCSUTCP(GECS(""SITE""),""Select SELLING CONTROL POINT: "","""",PRCSCREN,PRCDEFLT) I PRCSELCP<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRCSELCP;"
^DIE(348,"DR",1,2100,2)="S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",2),0)),""^"");S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";"
^DIE(348,"DR",1,2100,3)="W ! S PRCBUYCP=$$CP^PRCSUTCP(GECS(""SITE""),""Select BUYING CONTROL POINT: "","""",PRCSCREN,PRCDEFLT) I PRCBUYCP<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",2)=PRCBUYCP;D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";"
^DIE(348,"DR",1,2100,4)="S PRCSBBFY=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRCSELCP),PRCBBBFY=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRCBUYCP);"
^DIE(348,"DR",1,2100,5)="S PRCSETAB=$$ACC^PRC0C(GECS(""SITE""),PRCSELCP_""^""_PRC(""FY"")_""^""_PRCSBBFY),PRCBUTAB=$$ACC^PRC0C(GECS(""SITE""),PRCBUYCP_""^""_PRC(""FY"")_""^""_PRCBBBFY);420.2///^S X=""IV2"";"
^DIE(348,"DR",1,2100,6)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCDATE=+Y;I PRCDATE<1 S Y=""@99"";"
^DIE(348,"DR",1,2100,7)="S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCDATE;450.11///^S X=$E(PRCDATE,2,3);450.12///^S X=$E(PRCDATE,4,5);450.13///^S X=$E(PRCDATE,6,7);450.06ACCOUNTING PERIOD MONTH (optional)~;450.05ACCOUNTING PERIOD YEAR (optional)~;"
^DIE(348,"DR",1,2100,8)="450.21///^S X="""";450.22///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.09///^S X="""";450.03///^S X="""";450.01///^S X="""";450.02///^S X="""";455.19///^S X="""";450.23///^S X="""";450.24///^S X="""";"
^DIE(348,"DR",1,2100,9)="450.25///^S X="""";450.26///^S X="""";450.27///^S X="""";450.28///^S X="""";454.16DOCUMENT DESCRIPTION (optional)~;454.21DOCUMENT TOTAL DOLLARS~;421.2///^S X=""~"";W !!,""-- Enter ACCOUNTING LINE information --"";500;S Y="""";@99;"
^DIE(348,"DR",1,2100,10)="K PRC,PRCBBBFY,PRCBUTAB,PRCBUYCP,PRCDATE,PRCDEFLT,PRCSBBFY,PRCSCREN,PRCSELCP,PRCSETAB;"
^DIE(348,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""IVA"";.01;52.12LINE DOLLAR AMOUNT~;52.13INCREASE OR DECREASE INDICATOR~;54.24;W !!,""-- Enter SELLER information --"";54.11///^S X=$E($P(PRCSETAB,""^"",6),3,4);"
^DIE(348,"DR",2,2100.02,1)="54.12///^S X=$S($P(PRCSETAB,""^"",6)=$P(PRCSETAB,""^"",7):"""",1:$E($P(PRCSETAB,""^"",7),3,4));54.13///^S X=$P(PRCSETAB,""^"",5);50.02///^S X=GECS(""SITE"");50.03///^S X="""";50.04///^S X="""";50.05///^S X="""";50.12///^S X=$P(PRCSETAB,""^"",3);"
^DIE(348,"DR",2,2100.02,2)="50.06///^S X="""";50.09///^S X="""";50.1///^S X="""";54.25SELLER REVENUE SOURCE~;54.26///^S X="""";50.11///^S X="""";61.13SELLER ACCOUNTING TRANSACTION TYPE~;50.4SELLER DESCRIPTION~;54.03///^S X="""";W !!,""-- Enter BUYER information --"";"
^DIE(348,"DR",2,2100.02,3)="50.07///^S X=$E($P(PRCBUTAB,""^"",6),3,4);50.08///^S X=$S($P(PRCBUTAB,""^"",6)=$P(PRCBUTAB,""^"",7):"""",1:$E($P(PRCBUTAB,""^"",7),3,4));50.01///^S X=$P(PRCBUTAB,""^"",5);66.01///^S X=GECS(""SITE"");66.02///^S X="""";66.03BUYER COST CENTER~;"
^DIE(348,"DR",2,2100.02,4)="66.04BUYER SUB COST CENTER~;66.05///^S X=$P(PRCBUTAB,""^"",3);66.06BUYER BUDGET OBJECT CODE (BOC)~;421.1///^S X=""~"";420.2///^S X=""IVB"";54.1BUYER ACCOUNTING TRANSACTION TYPE~;62.19BUYER DESCRIPTION~;421.2///^S X=""~"";"
^DIE(349,0)="PRCFMS:TO^2950119.0941^@^2100^55^@^2950119"
^DIE(349,"DIAB",5,0,2100,8)="VENDOR ID;""EMPLOYEE CODE"""
^DIE(349,"DIAB",6,0,2100,8)="VENDOR ADDRESS CODE;""EMPLOYEE CODE (SUFFIX)"""
^DIE(349,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCAMT,PRCADV,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCYMD,PRCY,PRCM,PRCD,PRCTOT;W !,""STATION: "",GECS(""SITE"");"
^DIE(349,"DR",1,2100,1)="S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";"
^DIE(349,"DR",1,2100,2)="W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");"
^DIE(349,"DR",1,2100,3)="D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(349,"DR",1,2100,4)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(349,"DR",1,2100,5)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21)=$E(PRCFYB,3,4);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",22)="""" $P(^(""FMSTV2""),""^"",22)=$E(PRCFYE,3,4);"
^DIE(349,"DR",1,2100,6)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",6)="""" $P(^(""FMSTO5""),""^"",6)=PRCFUND;S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",7)="""" $P(^(""FMSTO5""),""^"",7)=$E(PRCFYB,3,4);"
^DIE(349,"DR",1,2100,7)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",8)="""" $P(^(""FMSTO5""),""^"",8)=$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA,""FMSTO4"")),""^"",17)="""" $P(^(""FMSTO4""),""^"",17)=GECS(""SITE"");"
^DIE(349,"DR",1,2100,8)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",2)="""" $P(^(""FMSTO5""),""^"",2)=PRCJOB;S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",3)="""" $P(^(""FMSTO5""),""^"",3)=PRCPROJ;QUIT;420.2///^S X=""TO2"";450.01EMPLOYEE CODE~;450.02EMPLOYEE CODE (SUFFIX)~;"
^DIE(349,"DR",1,2100,9)="450.23///^S X="""";450.07///^S X="""";452.05;450.08;450.21;450.22;450.05///^S X=PRC(""FY"");450.06///^S X="""";450.11///^S X="""";450.12///^S X="""";450.13///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");"
^DIE(349,"DR",1,2100,10)="452.16///^S X="""";452.17///^S X="""";452.18///^S X="""";452.19///^S X="""";452.2///^S X="""";452.21///^S X="""";452.24///^S X="""";@2;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(349,"DR",1,2100,11)="N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Begins !"" S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;"
^DIE(349,"DR",1,2100,12)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;421.2///^S X=""~"";420.3///^S X=""TO3"";@3;"
^DIE(349,"DR",1,2100,13)="S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;"
^DIE(349,"DR",1,2100,14)="I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Ends !"" S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(349,"DR",1,2100,15)="I $P(^GECS(2100,DA,""FMSTV2""),""^"",30)<$P(^GECS(2100,DA,""FMSTV2""),""^"",29) W $C(7),!!,""Travel Date Begins can't be greater than Travel Date Ends !! Please reenter. "",! S Y=""@3"";"
^DIE(349,"DR",1,2100,16)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;452.31///^S X="""";452.32///^S X="""";452.33///^S X="""";452.34///^S X="""";452.35;452.36;"
^DIE(349,"DR",1,2100,17)="452.37///^S X="""";452.38;452.39;452.4///^S X="""";452.41///^S X="""";421.3///^S X=""~"";420.4///^S X=""TO4"";W !;"
^DIE(349,"DR",1,2100,18)="S DIR(0)=""Y"",DIR(""B"")=""Yes"",DIR(""A"")=""Do you want to enter Travel Order with ADVANCE "" D ^DIR S TO5=Y S Y=$S(Y=0:""@5"",Y=1:""@4"",$D(DIRUT):""@99"",1:""@99"");@4;452.42;452.43;452.48///^S X="""";452.49///^S X="""";452.5///^S X="""";452.62;"
^DIE(349,"DR",1,2100,19)="452.71;452.72;452.73;452.63;452.44///^S X="""";450.52///^S X="""";450.5///^S X="""";452.6///^S X="""";450.48///^S X="""";452.51///^S X="""";452.52///^S X="""";450.51///^S X="""";452.59///^S X="""";452.64;452.65;@5;421.4///^S X=""~"";"
^DIE(349,"DR",1,2100,20)="420.5///^S X=""TO5"";I TO5=0 S Y=""@6"";452.47///^S X="""";452.53///^S X="""";452.54///^S X="""";452.55///^S X="""";452.56///^S X="""";452.57///^S X="""";452.66///^S X="""";452.67;452.68;452.69///^S X="""";452.7///^S X="""";450.53///^S X="""";"
^DIE(349,"DR",1,2100,21)="450.54///^S X="""";450.32;452.14///^S X="""";452.22///^S X="""";452.23///^S X="""";@6;421.5///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCADV,PRCAMT,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCTOT;"
^DIE(349,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(349,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(349,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.07;50.08;50.02;50.03///^S X="""";50.06;50.09;50.1///^S X="""";50.11;50.12;50.14;52.12;52.13///^S X="""";50.04;50.05;50.4;50.42///^S X="""";"
^DIE(349,"DR",2,2100.02,3)="50.43///^S X="""";50.44///^S X="""";421.1///^S X=""~"";"
^DIE(350,0)="PRCFMS:RV^2940831.0859^@^2100^55^@^2940831"
^DIE(350,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(350,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(350,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(350,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(350,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TV2"";450.01;450.02;450.03///^S X="""";450.04///^S X="""";450.05///^S X=PRC(""FY"");450.06;450.07///^S X="""";450.08;"
^DIE(350,"DR",1,2100,5)="450.09;450.1///^S X="""";@2;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;"
^DIE(350,"DR",1,2100,6)="I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.14///^S X="""";@3;"
^DIE(350,"DR",1,2100,7)="S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;"
^DIE(350,"DR",1,2100,8)="I PRCYMD<1 W $C(7),!,""Please enter Travel Date Begins !"",! S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;"
^DIE(350,"DR",1,2100,9)="450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@4;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(350,"DR",1,2100,10)="N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!,""Please enter Travel Date Ends !"",! S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(350,"DR",1,2100,11)="I $P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30)<$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) W $C(7),!!,""TRAVEL DATE BEGINS CAN'T BE GREATER THAN TRAVEL DATE ENDS !!  PLEASE REENTER. "" S Y=""@3"";"
^DIE(350,"DR",1,2100,12)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.21;450.22;450.23///^S X="""";450.24///^S X="""";450.25///^S X="""";450.26///^S X="""";"
^DIE(350,"DR",1,2100,13)="450.27///^S X="""";450.28///^S X="""";421.2///^S X=""~"";420.3///^S X=""TV3"";450.29;450.3;450.31;450.32///^S X="""";450.33///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.35;450.36;450.37;450.38;"
^DIE(350,"DR",1,2100,14)="450.39///^S X="""";450.4;450.41;450.42;450.43;450.44;450.45;450.46;450.47;421.3///^S X=""~"";420.4///^S X=""TV4"";450.55;450.56;450.57;450.58;450.59;450.6;450.61;450.62;450.63;450.64;450.65;450.66;450.67;450.68;450.69;450.7;450.71;"
^DIE(350,"DR",1,2100,15)="450.72;450.73;450.74;450.75;450.76;450.77;450.78;421.4///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT;"
^DIE(350,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(350,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(350,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.02;50.03;50.04;50.05;50.06;50.07;50.08;50.09;50.1;50.11;50.12;50.13;50.14;50.15;50.16;50.17;50.18;50.19;50.2;50.21;50.22;50.23;50.24;"
^DIE(350,"DR",2,2100.02,3)="50.25;50.26///^S X="""";50.27///^S X="""";50.28///^S X="""";50.29///^S X="""";50.3///^S X="""";50.31///^S X="""";61.15///^S X="""";50.33///^S X="""";50.34///^S X="""";50.35///^S X="""";50.36///^S X="""";421.1///^S X=""~"";420.2///^S X=""TVB"";"
^DIE(350,"DR",2,2100.02,4)="50.37///^S X="""";50.38///^S X="""";50.39;50.4;50.41;50.42;50.43;50.44;421.2///^S X=""~"";"
^DIE(351,0)="PRCFMS:RO^2940830.1459^@^2100^55^@^2941207"
^DIE(351,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCAMT,PRCADV,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCYMD,PRCY,PRCM,PRCD,PRCTOT;W !,""STATION: "",GECS(""SITE"");"
^DIE(351,"DR",1,2100,1)="S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";"
^DIE(351,"DR",1,2100,2)="W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");"
^DIE(351,"DR",1,2100,3)="D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(351,"DR",1,2100,4)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(351,"DR",1,2100,5)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TO2"";450.01;450.02;450.23///^S X="""";450.07///^S X="""";452.05;450.08;450.21;450.22;450.05///^S X=PRC(""FY"");"
^DIE(351,"DR",1,2100,6)="450.06;@2;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;"
^DIE(351,"DR",1,2100,7)="I PRCYMD<1 W $C(7) S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;"
^DIE(351,"DR",1,2100,8)="450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");452.16///^S X="""";452.17///^S X="""";452.18///^S X="""";452.19///^S X="""";452.2///^S X="""";452.21///^S X="""";452.24///^S X="""";@3;"
^DIE(351,"DR",1,2100,9)="S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;"
^DIE(351,"DR",1,2100,10)="I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Begins !"" S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;"
^DIE(351,"DR",1,2100,11)="450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;421.2///^S X=""~"";420.3///^S X=""TO3"";@4;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(351,"DR",1,2100,12)="N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Ends !"" S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(351,"DR",1,2100,13)="I $P(^GECS(2100,DA,""FMSTV2""),""^"",30)<$P(^GECS(2100,DA,""FMSTV2""),""^"",29) W $C(7),!!,""Travel Date Begins can't be greater than Travel Date Ends !! Please reenter. "",! S Y=""@3"";"
^DIE(351,"DR",1,2100,14)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;452.31///^S X="""";452.32///^S X="""";452.33///^S X="""";452.34///^S X="""";452.35;452.36;452.37;"
^DIE(351,"DR",1,2100,15)="452.38;452.39;452.4;452.41;421.3///^S X=""~"";420.4///^S X=""TO4"";452.42;S PRCADV=X I PRCADV="""" S PRCAMT="""",Y=""@6"";452.43;S PRCAMT=X;@5;"
^DIE(351,"DR",1,2100,16)="S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;N %DT,Y S %DT(""A"")=""SCHEDULED PAY DATE: "" S %DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y;"
^DIE(351,"DR",1,2100,17)="I PRCYMD<1 W $C(7),!!,""Please enter Scheduled Pay Date !"" S Y=""@5"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);452.48///^S X=PRCY;452.49///^S X=PRCM;"
^DIE(351,"DR",1,2100,18)="452.5///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;452.62;452.71;452.72;452.73;452.63;@6;452.44;450.52;I PRCAMT="""" S Y=""@7"";450.5;S PRCPRLG=X I PRCPRLG'=""N"" S Y=""@7"";452.6;@7;450.48;452.51;452.52;450.51;452.59;452.64;452.65;"
^DIE(351,"DR",1,2100,19)="421.4///^S X=""~"";420.5///^S X=""TO5"";452.47;452.53;452.54;452.55;452.56;452.57;452.66;452.67;452.68;452.69;452.7;450.53;450.54;450.32///^S X="""";452.14///^S X="""";452.22///^S X="""";452.23///^S X="""";421.5///^S X=""~"";500;S Y="""";@99;"
^DIE(351,"DR",1,2100,20)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCADV,PRCAMT,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCTOT;"
^DIE(351,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TAV""),""^"",2)=GECS(""SITE"");"
^DIE(351,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(351,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.07;50.08;50.02;50.03;50.06;50.09;50.1;50.11;50.12;50.14;52.12;52.13;50.04;50.05;50.4;50.42;50.43;50.44;421.1///^S X=""~"";"
^DIE(352,0)="PRCFMS:TP^2950111.1344^@^2100^55^@^2950120"
^DIE(352,"DIAB",3,0,2100,8)="VENDOR ID;""EMPLOYEE CODE"""
^DIE(352,"DIAB",4,0,2100,8)="VENDOR ADDRESS CODE;""EMPLOYEE CODE (SUFFIX)"""
^DIE(352,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCYMD,PRCY,PRCM,PRCD,PRCDEFLT,PRCSPAY,PRCACC,PRCINV,PRCTOT;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(352,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(352,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(352,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(352,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTP2"")),""^"",6)="""" $P(^(""FMSTP2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TP2"";450.12///^S X="""";450.13///^S X="""";450.11///^S X="""";450.06///^S X="""";450.05///^S X=PRC(""FY"");454.06;454.07;"
^DIE(352,"DR",1,2100,5)="450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.32;454.09;454.1///^S X="""";@1;S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;"
^DIE(352,"DR",1,2100,6)="N %DT,Y S %DT(""A"")=""SCHEDULED PAYMENT DATE: "",%DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";I PRCYMD<0 W $C(7),!!,""Please enter Scheduled Payment Date !"" S Y=""@1"";"
^DIE(352,"DR",1,2100,7)="S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);454.11///^S X=PRCY;454.12///^S X=PRCM;454.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;454.14///^S X="""";450.08;454.16;"
^DIE(352,"DR",1,2100,8)="450.51///^S X="""";454.18///^S X="""";450.01EMPLOYEE CODE~;450.02EMPLOYEE CODE (SUFFIX)~;454.21;S PRCVEND=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",1) I $TR(PRCVEND,""misc"",""MISC"")'?1""MISC"".E S Y=""@3"";450.23;454.23;454.24;450.26;450.27;450.28;"
^DIE(352,"DR",1,2100,9)="@3;454.28///^S X="""";421.2///^S X=""~"";420.3///^S X=""TP3"";454.29///^S X="""";450.54///^S X="""";450.48///^S X="""";450.49///^S X="""";450.52//^S X=""N"";450.53///^S X="""";454.35///^S X="""";454.36///^S X="""";454.37///^S X="""";454.46///^S X="""";"
^DIE(352,"DR",1,2100,10)="454.38///^S X="""";454.39///^S X="""";454.4///^S X="""";454.47///^S X="""";454.41///^S X="""";454.42///^S X="""";454.43///^S X="""";454.48///^S X="""";454.44///^S X="""";421.3///^S X=""~"";500;S Y="""";@99;"
^DIE(352,"DR",1,2100,11)="K PRCPROJ,PRCFUND,PRCFCP,PRCFYB,PRCFYE,PRCD,PRCDEFLT,PRCSPAY,PRCACC,PRCINV,PRCYMD,PRCY,PRCM,PRCD,PRCTOT;"
^DIE(352,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TPA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",13)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(352,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;"
^DIE(352,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;QUIT;50.15;50.16;54.03;54.04///^S X="""";54.05///^S X="""";54.06///^S X="""";54.07;54.08;50.4///^S X="""";54.1///^S X="""";54.11;54.12;54.13;50.02;"
^DIE(352,"DR",2,2100.02,3)="50.03///^S X="""";50.04///^S X="""";50.05///^S X="""";50.12;50.06///^S X="""";50.09///^S X="""";50.11;50.1///^S X="""";54.23///^S X="""";54.24///^S X="""";54.25///^S X="""";54.26///^S X="""";54.27///^S X="""";54.28///^S X="""";54.29///^S X="""";"
^DIE(352,"DR",2,2100.02,4)="54.3///^S X="""";52.12;54.32///^S X="""";54.33;54.34;54.35;50.23;421.1///^S X=""~"";420.2///^S X=""TPB"";54.37///^S X="""";54.38///^S X="""";50.41;50.42///^S X="""";50.43///^S X="""";50.44///^S X="""";421.2///^S X=""~"";420.3///^S X=""TPC"";"
^DIE(352,"DR",2,2100.02,5)="50.46///^S X="""";54.44///^S X="""";50.28///^S X="""";50.29///^S X="""";421.3///^S X=""~"";"
^DIE(353,0)="PRCFMS:DD^2950209.1404^@^2100^55^@^2950209"
^DIE(353,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(353,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(353,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(353,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(353,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTP2"")),""^"",6)="""" $P(^(""FMSTP2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""DD2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(353,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(353,"DR",1,2100,6)="450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");454.06;454.07;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;450.08;454.16;450.51;450.01;"
^DIE(353,"DR",1,2100,7)="450.02;454.21;450.23;455.17;455.18;455.19;450.3;450.31;455.22;450.32;421.2///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(353,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""DDA"";@2;.01;50.15;50.16;54.03;@3;S PRCDEL=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",39) I PRCDEL N Y S Y=PRCDEL X ^DD(""DD"") S PRCDEL=Y;"
^DIE(353,"DR",2,2100.02,1)="N %DT,Y S %DT(""A"")=""ACCP/DEL DATE: "",%DT=""AEX"" S:PRCDEL'="""" %DT(""B"")=PRCDEL D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",39)=PRCYMD;"
^DIE(353,"DR",2,2100.02,2)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.04///^S X=PRCY;54.05///^S X=PRCM;54.06///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.07;54.08;50.4;54.1;"
^DIE(353,"DR",2,2100.02,3)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(353,"DR",2,2100.02,4)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;54.11;54.12;54.13;50.02;50.03;50.04;50.05;50.12;50.06;"
^DIE(353,"DR",2,2100.02,5)="50.09;50.11;50.1;54.23;54.24;54.25;54.26;@4;S PRCINV=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;"
^DIE(353,"DR",2,2100.02,6)="N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",40)=PRCYMD;"
^DIE(353,"DR",2,2100.02,7)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.27///^S X=PRCY;54.28///^S X=PRCM;54.29///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.3;52.12;54.32;54.33;55.34;@5;"
^DIE(353,"DR",2,2100.02,8)="S PRCLOG=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",41) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(353,"DR",2,2100.02,9)="S:PRCYMD<0 Y=""@4"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",41)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);55.35///^S X=PRCY;55.36///^S X=PRCM;55.37///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;55.38;"
^DIE(353,"DR",2,2100.02,10)="421.1///^S X=""~"";420.2///^S X=""DDB"";55.39;55.4;55.41;50.41;50.42;50.43;50.44;55.47;421.2///^S X=""~"";"
^DIE(354,0)="PRCFMS:DV^2940831.0932^@^2100^55^@^2940831"
^DIE(354,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(354,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(354,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(354,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(354,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTP2"")),""^"",6)="""" $P(^(""FMSTP2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""DD2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(354,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(354,"DR",1,2100,6)="450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");454.06;454.07;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;450.08;454.16;450.51;450.01;"
^DIE(354,"DR",1,2100,7)="450.02;454.21;450.23;455.17;455.18;455.19;450.3;450.31;455.22;450.32;421.2///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(354,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""DDA"";@2;.01;50.15;50.16;54.03;@3;S PRCDEL=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",39) I PRCDEL N Y S Y=PRCDEL X ^DD(""DD"") S PRCDEL=Y;"
^DIE(354,"DR",2,2100.02,1)="N %DT,Y S %DT(""A"")=""ACCP/DEL DATE: "",%DT=""AEX"" S:PRCDEL'="""" %DT(""B"")=PRCDEL D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",39)=PRCYMD;"
^DIE(354,"DR",2,2100.02,2)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.04///^S X=PRCY;54.05///^S X=PRCM;54.06///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.07;54.08;50.4;54.1;"
^DIE(354,"DR",2,2100.02,3)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(354,"DR",2,2100.02,4)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;54.11;54.12;54.13;50.02;50.03;50.04;50.05;50.12;50.06;"
^DIE(354,"DR",2,2100.02,5)="50.09;50.11;50.1;54.23;54.24;54.25;54.26;@4;S PRCINV=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;"
^DIE(354,"DR",2,2100.02,6)="N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",40)=PRCYMD;"
^DIE(354,"DR",2,2100.02,7)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.27///^S X=PRCY;54.28///^S X=PRCM;54.29///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.3;52.12;54.32;54.33;55.34;@5;"
^DIE(354,"DR",2,2100.02,8)="S PRCLOG=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",41) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(354,"DR",2,2100.02,9)="S:PRCYMD<0 Y=""@4"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",41)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);55.35///^S X=PRCY;55.36///^S X=PRCM;55.37///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;55.38;"
^DIE(354,"DR",2,2100.02,10)="421.1///^S X=""~"";420.2///^S X=""DDB"";55.39;55.4;55.41;50.41;50.42;50.43;50.44;55.47///^S X="""";421.2///^S X=""~"";"
^DIE(355,0)="PRCFMS:PV^2940901.1005^@^2100^55^@^2950118"
^DIE(355,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(355,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(355,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(355,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);420.2///^S X=""PV2"";@1;"
^DIE(355,"DR",1,2100,4)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";"
^DIE(355,"DR",1,2100,5)="S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");"
^DIE(355,"DR",1,2100,6)="454.06///^S X="""";454.07///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;454.1///^S X="""";@2;S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;"
^DIE(355,"DR",1,2100,7)="N %DT,Y S %DT(""A"")=""SCHEDULED PAYMENT DATE: "",%DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@1"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;"
^DIE(355,"DR",1,2100,8)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);454.11///^S X=PRCY;454.12///^S X=PRCM;454.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;454.14///^S X="""";450.08///^S X="""";454.16///^S X="""";450.51///^S X="""";454.18///^S X="""";"
^DIE(355,"DR",1,2100,9)="450.01;450.02;454.21;450.23;454.23;454.24;450.26;450.27;450.28;454.28;421.2///^S X=""~"";420.3///^S X=""PV3"";454.29;450.54///^S X="""";450.48///^S X="""";450.49///^S X="""";455.19///^S X="""";467.03///^S X="""";450.53///^S X="""";450.3///^S X="""";"
^DIE(355,"DR",1,2100,10)="450.31///^S X="""";467.04///^S X="""";467.05///^S X="""";467.06///^S X="""";467.08///^S X="""";467.09///^S X="""";467.1///^S X="""";467.11///^S X="""";467.12///^S X="""";467.13///^S X="""";467.14///^S X="""";467.15///^S X="""";467.16;454.36;454.37;454.35;"
^DIE(355,"DR",1,2100,11)="454.39;454.4;454.38;454.42///^S X="""";454.43///^S X="""";454.41///^S X="""";454.44///^S X="""";421.3///^S X=""~"";420.4///^S X=""PV4"";455.22///^S X="""";450.32///^S X="""";454.46;454.47;454.48///^S X="""";467.17///^S X="""";467.18///^S X="""";"
^DIE(355,"DR",1,2100,12)="467.19///^S X="""";467.2///^S X="""";467.21///^S X="""";467.22///^S X="""";467.23///^S X="""";467.01;467.02;467.24///^S X="""";421.4///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(355,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""PVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(355,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(355,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15;50.16;54.03;54.04///^S X="""";54.05///^S X="""";54.06///^S X="""";54.07;54.08///^S X="""";50.4;54.1///^S X="""";54.11;54.12;54.13;50.02;50.03;"
^DIE(355,"DR",2,2100.02,3)="50.04;50.05;50.12;50.06;50.09;50.11;50.1;54.23///^S X="""";54.24///^S X="""";54.25;54.26;@3;S PRCINV=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;"
^DIE(355,"DR",2,2100.02,4)="N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",40)=PRCYMD;"
^DIE(355,"DR",2,2100.02,5)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.27///^S X=PRCY;54.28///^S X=PRCM;54.29///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.3;52.12;54.32;54.33;@4;"
^DIE(355,"DR",2,2100.02,6)="S PRCLOG=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",41) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(355,"DR",2,2100.02,7)="I PRCYMD<1 W $C(7),!,""Please enter Log Date !"",! S Y=""@4"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",41)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);55.35///^S X=PRCY;55.36///^S X=PRCM;"
^DIE(355,"DR",2,2100.02,8)="55.37///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;50.39;54.37///^S X="""";421.1///^S X=""~"";420.2///^S X=""PVB"";67.01///^S X="""";54.38;55.38///^S X="""";55.39///^S X="""";55.4///^S X="""";55.41///^S X="""";50.41;67.02///^S X="""";67.03///^S X="""";"
^DIE(355,"DR",2,2100.02,9)="67.04///^S X="""";67.05///^S X="""";50.42;50.43;50.44;55.47///^S X="""";67.06///^S X="""";67.07///^S X="""";67.08///^S X="""";421.2///^S X=""~"";"
^DIE(356,0)="PRCFMS:IF^2940831.0952^@^2100^55^@^2940831"
^DIE(356,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCFROM,PRCTO,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(356,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(356,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(356,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(356,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTP2"")),""^"",6)="""" $P(^(""FMSTP2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""IF2"";@2;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(356,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(356,"DR",1,2100,6)="450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");454.06;454.07;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;@3;"
^DIE(356,"DR",1,2100,7)="S PRCFROM=$P($G(^GECS(2100,DA,""FMSIF2"")),""^"",1) I PRCFROM N Y S Y=PRCFROM X ^DD(""DD"") S PRCFROM=Y;N %DT,Y S %DT(""A"")=""DATE COVERED FROM: "",%DT=""AEX"" S:PRCFROM'="""" %DT(""B"")=PRCFROM D ^%DT S PRCYMD=+Y;"
^DIE(356,"DR",1,2100,8)="I PRCYMD<1 W $C(7),!,""Please enter Date Covered From !,"",! S Y=""@3"";S $P(^GECS(2100,DA,""FMSIF2""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);458.1///^S X=PRCY;458.11///^S X=PRCM;"
^DIE(356,"DR",1,2100,9)="458.12///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@4;S PRCTO=$P($G(^GECS(2100,DA,""FMSIF2"")),""^"",2) I PRCTO N Y S Y=PRCTO X ^DD(""DD"") S PRCTO=Y;N %DT,Y S %DT(""A"")=""DATE COVERED TO: "",%DT=""AEX"" S:PRCTO'="""" %DT(""B"")=PRCTO D ^%DT S PRCYMD=+Y;"
^DIE(356,"DR",1,2100,10)="I PRCYMD<1 W $C(7),!,""Please enter Date Covered To !"",! S Y=""@4"";S $P(^GECS(2100,DA,""FMSIF2""),""^"",2)=PRCYMD;"
^DIE(356,"DR",1,2100,11)="I $P($G(^GECS(2100,DA,""FMSIF2"")),""^"",2)<$P($G(^GECS(2100,DA,""FMSIF2"")),""^"",1) W $C(7),!!,""DATE COVERED FROM CAN'T BE GREATER THAN DATE COVERED TO. PLEASE REENTER ! "" S Y=""@3"";"
^DIE(356,"DR",1,2100,12)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);458.13///^S X=PRCY;458.14///^S X=PRCM;458.15///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.08;454.16;450.51;458.19;458.2;454.21;458.22;458.23;458.24;450.26;450.27;450.28;"
^DIE(356,"DR",1,2100,13)="454.28;421.2///^S X=""~"";420.3///^S X=""IF3"";454.29;450.52;450.48;450.49;450.54;450.53;450.32///^S X="""";421.3///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTEFLT,PRCFROM,PRCTO;"
^DIE(356,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""IFA"";@5;.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(356,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(356,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;54.1;54.11;54.12;54.13;50.02;50.03;50.12;50.13;50.06;50.09;50.04;50.05;58.13;58.14;57.08;50.11;52.12;58.18;50.24;50.15;50.16;54.03;58.23;50.1;"
^DIE(356,"DR",2,2100.02,3)="50.4;58.26;58.27;58.28;58.29;@6;S PRCTEFLT=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(356,"DR",2,2100.02,4)="N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@6"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(356,"DR",2,2100.02,5)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);58.3///^S X=PRCY;58.31///^S X=PRCM;421.1///^S X=""~"";420.2///^S X=""IFB"";58.32///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;50.41;50.42;50.43;50.44;421.2///^S X=""~"";"
^DIE(357,0)="PRCFMS:CX^2940831.0935^@^2100^55^@^2940831"
^DIE(357,"DR",1,2100)="K PRCDEFLT,PRCCFM,PRCEFT,PRCYMD,PRCY,PRCM,PRCD;420.2///^S X=""CX2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(357,"DR",1,2100,1)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(357,"DR",1,2100,2)="450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05;421.2///^S X=""~"";500;S Y="""";@99;K PRCDEFLT,PRCSPAY,PRCCFM,PRCEFT,PRCYMD,PRCY,PRCM,PRCD;"
^DIE(357,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""CXA"";@2;57.01;57.02;57.03;57.04;@3;S PRCSPAY=$P($G(^GECS(2100,DA(1),""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;"
^DIE(357,"DR",2,2100.02,1)="N %DT,Y S %DT(""A"")=""SCHEDULE DATE: "",%DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA(1),""FMSTV2""),""^"",31)=PRCYMD;"
^DIE(357,"DR",2,2100.02,2)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);57.05///^S X=PRCY;57.06///^S X=PRCM;57.07///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;57.08///^S X="""";57.09///^S X="""";57.14;S PRCEFT=X I PRCEFT'=""Y"" S Y=""@4"";57.1;57.11;57.12;"
^DIE(357,"DR",2,2100.02,3)="57.13;@4;57.15;57.16;57.17;57.18;57.19;I PRCEFT'=""Y"" S Y=""@6"";57.2;@5;S PRCCFM=$P($G(^GECS(2100,DA(1),""CXA"")),""^"",1) I PRCCFM N Y S Y=PRCCFM X ^DD(""DD"") S PRCCFM=Y;"
^DIE(357,"DR",2,2100.02,4)="N %DT,Y S %DT(""A"")=""CONFIRM DATE: "",%DT=""AEX"" S:PRCCFM'="""" %DT(""B"")=PRCCFM D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!,""Please enter Confirm Date !"",! S Y=""@3"";S $P(^GECS(2100,DA(1),""CXA""),""^"",1)=PRCYMD;"
^DIE(357,"DR",2,2100.02,5)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);57.21///^S X=PRCY;57.22///^S X=PRCM;57.23///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;57.24;@6;421.1///^S X=""~"";"
^DIE(358,0)="PRCFMS:NC^2940831.1034^@^2100^55^@^2940831"
^DIE(358,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(358,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(358,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(358,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(358,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTP2"")),""^"",6)="""" $P(^(""FMSTP2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""NC2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(358,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(358,"DR",1,2100,6)="450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");454.06;454.07;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;450.08;454.16;450.51;450.01;"
^DIE(358,"DR",1,2100,7)="450.02;454.21;450.23;455.19;450.3;450.31;455.22;450.32;421.2///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(358,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""NCA"";@2;.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(358,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(358,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15;50.16;54.03;@3;S PRCDEL=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",39) I PRCDEL N Y S Y=PRCDEL X ^DD(""DD"") S PRCDEL=Y;"
^DIE(358,"DR",2,2100.02,3)="N %DT,Y S %DT(""A"")=""ACCP/DEL DATE: "",%DT=""AEX"" S:PRCDEL'="""" %DT(""B"")=PRCDEL D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",39)=PRCYMD;"
^DIE(358,"DR",2,2100.02,4)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.04///^S X=PRCY;54.05///^S X=PRCM;54.06///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.07;54.08;50.4;54.1;54.11;54.12;54.13;50.02;50.03;50.04;50.05;50.12;50.06;50.09;50.11;"
^DIE(358,"DR",2,2100.02,5)="50.1;54.23;54.24;54.25;54.26;@4;S PRCINV=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;"
^DIE(358,"DR",2,2100.02,6)="N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",40)=PRCYMD;"
^DIE(358,"DR",2,2100.02,7)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.27///^S X=PRCY;54.28///^S X=PRCM;54.29///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.3;52.12;54.32;54.33;55.34;@5;"
^DIE(358,"DR",2,2100.02,8)="S PRCLOG=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",41) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(358,"DR",2,2100.02,9)="S:PRCYMD<0 Y=""@4"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",41)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);55.35///^S X=PRCY;55.36///^S X=PRCM;55.37///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;55.38;"
^DIE(358,"DR",2,2100.02,10)="421.1///^S X=""~"";420.2///^S X=""NCB"";55.39;55.4;55.41;50.41;50.42;50.43;50.44;421.2///^S X=""~"";"
^DIE(359,0)="PRCFMS:TN^2940831.1457^@^2100^55^@^2940831"
^DIE(359,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTKT,PRCINV,PRCSPAY,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(359,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(359,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(359,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(359,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TN2"";450.01;450.02;450.08;450.21;450.22;450.51;450.48;461.08;450.23;460.21;452.16;450.05///^S X=PRC(""FY"");"
^DIE(359,"DR",1,2100,5)="450.06;@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;"
^DIE(359,"DR",1,2100,6)="S:PRCYMD<1 Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@2;"
^DIE(359,"DR",1,2100,7)="S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;N %DT,Y S %DT(""A"")=""SCHEDULED PAYMENT DATE: "" S %DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(359,"DR",1,2100,8)="S:PRCYMD<0 Y=""@1"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);461.17///^S X=PRCY;461.18///^S X=PRCM;461.19///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@3;"
^DIE(359,"DR",1,2100,9)="S PRCTKT=$P($G(^GECS(2100,DA,""FMSTN2"")),""^"",1) I PRCTKT N Y S Y=PRCTKT X ^DD(""DD"") S PRCTKT=Y;N %DT,Y S %DT(""A"")=""TICKET AS OF DATE: "" S %DT=""AEX"" S:PRCTKT'="""" %DT(""B"")=PRCTKT D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@2"";"
^DIE(359,"DR",1,2100,10)="S $P(^GECS(2100,DA,""FMSTN2""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);461.2///^S X=PRCY;461.21///^S X=PRCM;461.22///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@4;"
^DIE(359,"DR",1,2100,11)="S PRCINV=$P($G(^GECS(2100,DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;N %DT,Y S %DT(""A"")=""VENDOR INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@4"";"
^DIE(359,"DR",1,2100,12)="S $P(^GECS(2100,DA,""DDA""),""^"",40)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);461.26;461.27;454.21;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.23;454.24;421.2///^S X=""~"";"
^DIE(359,"DR",1,2100,13)="420.3///^S X=""TN3"";450.26;450.27;450.28;452.6;450.52;450.54;450.53;450.32;461.4;461.41;461.42;455.22;421.3///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTKT,PRCINV,PRCSPAY;"
^DIE(359,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TNA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(359,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(359,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;50.07;50.08;50.01;50.27;50.02;50.31;50.3;50.28;50.29;50.26;61.11;61.12;61.13;54.33;61.15;50.13;50.03;50.04;50.05;50.06;50.09;50.11;50.12;50.1;"
^DIE(359,"DR",2,2100.02,3)="61.25;54.34;54.35;50.14;50.41;50.42;50.43;50.44;421.1///^S X=""~"";420.2///^S X=""TNB"";50.46///^S X="""";55.38;55.39;55.4;421.2///^S X=""~"";"
^DIE(360,0)="PRCFMS:CR^2950127.153^^2100^^^2950131^"
^DIE(360,"DR",1,2100)="420.2///^S X=""CR2"";450.11;450.12;450.13;450.06///^S X="""";450.05///^S X="""";340.1;450.22;454.1///^S X="""";450.34//^S X=""E"";460.06;340.2///^S X="""";340.3;460.13;454.21;340.4///^S X="""";340.5;340.6;340.7;421.2///^S X=""~"";"
^DIE(360,"DR",1,2100,1)="420.3///^S X=""LIN"";421.3///^S X=""~"";420.4///^S X=""CRA"";500;421.4///^S X=""~"";420.5///^S X=""CRB"";341.93///^S X="""";341.95///^S X="""";450.56///^S X="""";450.57///^S X="""";341.8;341.9;341.91;450.85;421.5///^S X=""~"";"
^DIE(360,"DR",2,2100.02)=".01///^S X=""001"";60.01;54.12;54.13;50.02;50.03///^S X="""";50.12;54.25;54.26;50.06;50.09;50.13;50.11;50.1///^S X="""";54.23///^S X="""";58.13;58.14;52.12;54.32;54.33///^S X="""";54.1;50.15;50.16;54.03;57.02;55.34;50.4;340.3///^S X="""";"
^DIE(360,"DR",2,2100.02,1)="58.29;60.34///^S X="""";50.04;50.05;55.41;"
^DIE(361,0)="PRCFMS:OP^2940510.1553^@^2100^42^@^2940510"
^DIE(361,"DR",1,2100)="420.2///^S X=""PV2"";450.12;450.13;450.11;450.06///^S X="""";450.05///^S X="""";454.06///^S X="""";454.07///^S X="""";450.34///^S X=""E"";454.09///^S X=""01"";454.1///^S X="""";454.11;454.12;454.13;454.14///^S X="""";450.08///^S X="""";"
^DIE(361,"DR",1,2100,1)="454.16///^S X="""";450.51///^S X="""";454.18///^S X="""";450.01///^S X=""MISCVET"";450.02///^S X="""";454.21;450.23;450.24;450.25;450.26;450.27;450.28;421.2///^S X=""~"";420.3///^S X=""LIN"";421.3///^S X=""~"";420.4///^S X=""PVA"";500;"
^DIE(361,"DR",1,2100,2)="421.4///^S X=""~"";"
^DIE(361,"DR",2,2100.02)=".01///^S X=""001"";50.15///^S X="""";50.16///^S X="""";54.03///^S X="""";54.04///^S X="""";54.05///^S X="""";54.06///^S X="""";54.07///^S X="""";54.08///^S X="""";50.4///^S X="""";54.1///^S X="""";54.11;54.12///^S X="""";54.13;50.02;50.03///^S X="""";"
^DIE(361,"DR",2,2100.02,1)="50.04///^S X="""";50.05///^S X="""";50.12///^S X="""";50.06///^S X="""";50.09///^S X="""";50.11///^S X="""";50.1///^S X="""";54.23///^S X="""";54.24///^S X="""";54.25///^S X=""ARRV"";54.26///^S X="""";54.27///^S X="""";54.28///^S X="""";54.29///^S X="""";"
^DIE(361,"DR",2,2100.02,2)="54.3///^S X="""";52.12;54.32///^S X=""I"";"
^DIE(362,0)="PRCFMS:WR^2941103.1527^^2100^^^^"
^DIE(362,"DR",1,2100)="420.2///^S X=""CR2"";450.11;450.12;450.13;450.06///^S X="""";450.05///^S X="""";340.1///^S X="""";450.22///^S X="""";454.1///^S X="""";450.34///^S X=""E"";460.06///^S X="""";340.2///^S X="""";340.3///^S X=999999999999;460.13///^S X="""";454.21;"
^DIE(362,"DR",1,2100,1)="340.4///^S X="""";340.5;340.6;340.7;421.2///^S X=""~"";420.3///^S X=""LIN"";421.3///^S X=""~"";420.4///^S X=""CRA"";500;421.4///^S X=""~"";"
^DIE(362,"DR",2,2100.02)=".01;60.01;54.12///^S X="""";54.13;50.02;50.03///^S X="""";50.12///^S X="""";54.25;54.26///^S X="""";50.06///^S X="""";50.09///^S X="""";50.13///^S X="""";50.11///^S X="""";50.1///^S X="""";54.23///^S X="""";58.13;58.14///^S X="""";52.12;"
^DIE(362,"DR",2,2100.02,1)="54.32///^S X=""I"";54.33///^S X="""";54.1;50.15;50.16;54.03;"
^DIE(363,0)="PRCFMS:SV^2950206.112^^2100^42^^2950206"
^DIE(363,"DR",1,2100)="420.2///^S X=""SV2"";450.11;450.12;450.13;450.06///^S X="""";450.05///^S X="""";450.34//^S X=""E"";340.8///^S X="""";462.06///^S X="""";462.07///^S X="""";462.08;340.9;340.91;454.16;340.92///^S X="""";454.21;421.2///^S X=""~"";420.3///^S X=""LIN"";"
^DIE(363,"DR",1,2100,1)="421.3///^S X=""~"";420.4///^S X=""SVA"";500;421.4///^S X=""~"";420.5///^S X=""SVB"";341.1;341.2;341.3;341.4;341.5//^S X="""";340.5;340.6;340.7;455.19///^S X="""";341.6///^S X="""";450.54///^S X="""";450.53///^S X="""";341.7///^S X="""";"
^DIE(363,"DR",1,2100,2)="341.8///^S X="""";341.9///^S X="""";341.91///^S X="""";450.85;421.5///^S X=""~"";"
^DIE(363,"DR",2,2100.02)=".01;340.1;50.07;50.08;50.01;50.46;50.02;50.03///^S X="""";50.04///^S X="""";50.05///^S X="""";50.12;340.2;54.26///^S X="""";50.11///^S X="""";50.1///^S X="""";58.13///^S X="""";58.14///^S X="""";57.08///^S X="""";54.24///^S X="""";57.12///^S X="""";"
^DIE(363,"DR",2,2100.02,1)="57.13;57.03;"
^DIE(364,0)="PRCFMS:BD^2950127.1452^^2100^^^^"
^DIE(364,"DR",1,2100)="420.2///^S X=""BD2"";450.12;450.13;450.11;450.06///^S X="""";450.05///^S X="""";460.06;340.1;450.22;450.34//^S X=""E"";450.01;450.02;454.21;460.13;454.1///^S X="""";454.16///^S X="""";450.23;460.15;460.16;460.17;460.18;460.19;460.2;"
^DIE(364,"DR",1,2100,1)="460.22///^S X=""N"";460.23///^S X="""";460.24///^S X="""";460.25///^S X="""";460.26///^S X="""";452.24///^S X="""";460.28///^S X=""A"";421.2///^S X=""~"";420.3///^S X=""BD3"";455.19///^S X="""";460.29///^S X="""";450.3;450.31;341.92;421.3///^S X=""~"";"
^DIE(364,"DR",1,2100,2)="420.4///^S X=""LIN"";421.4///^S X=""~"";420.5///^S X=""BDA"";500;421.5///^S X=""~"";420.6///^S X=""BDB"";341.93///^S X="""";341.94///^S X="""";341.8;341.9;341.91;421.6///^S X=""~"";"
^DIE(364,"DR",2,2100.02)=".01;60.01;54.12;54.13;50.02;50.03;50.12;54.25;54.26;50.06;50.09;50.11;50.1///^S X="""";54.23///^S X="""";52.12;54.32;50.4//^S X=""AR_INTERFACE"";50.15;50.16;54.03;54.1;60.1///^S X="""";60.11///^S X="""";50.13;58.29;60.32///^S X="""";"
^DIE(364,"DR",2,2100.02,1)="60.33///^S X="""";60.34///^S X="""";50.04;50.05;"
^DIE(365,0)="PRCFMS:MV^2940901.082^@^2100^55^@^2940901"
^DIE(365,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(365,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(365,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(365,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;420.2///^S X=""PV2"";@1;"
^DIE(365,"DR",1,2100,4)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";"
^DIE(365,"DR",1,2100,5)="S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");"
^DIE(365,"DR",1,2100,6)="454.06///^S X="""";454.07///^S X="""";450.34///^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;454.1///^S X="""";@2;S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;"
^DIE(365,"DR",1,2100,7)="N %DT,Y S %DT(""A"")=""SCHEDULED PAYMENT DATE: "",%DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@1"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;"
^DIE(365,"DR",1,2100,8)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);454.11///^S X=PRCY;454.12///^S X=PRCM;454.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;454.14;450.08;454.16///^S X="""";450.51///^S X="""";454.18///^S X="""";450.01;450.02;454.21;"
^DIE(365,"DR",1,2100,9)="450.23;454.23;454.24;450.26;450.27;450.28;454.28;421.2///^S X=""~"";420.3///^S X=""PV3"";454.29;450.54;450.48;450.49;455.19///^S X="""";467.03;450.53;450.3;450.31;@3;"
^DIE(365,"DR",1,2100,10)="S PRCDEL=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",1) I PRCDEL N Y S Y=PRCDEL X ^DD(""DD"") S PRCDEL=Y;N %DT,Y S %DT(""A"")=""ACCP/DEL DATE: "",%DT=""AEX"" S:PRCDEL'="""" %DT(""B"")=PRCDEL D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";"
^DIE(365,"DR",1,2100,11)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.04///^S X=PRCY;467.05///^S X=PRCM;467.06///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;467.08;@4;"
^DIE(365,"DR",1,2100,12)="S PRCINV=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",2) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@4"";"
^DIE(365,"DR",1,2100,13)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",2)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.09///^S X=PRCY;467.1///^S X=PRCM;467.11///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@5;"
^DIE(365,"DR",1,2100,14)="S PRCLOG=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",3) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@5"";"
^DIE(365,"DR",1,2100,15)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.12///^S X=PRCY;467.13///^S X=PRCM;467.14///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;467.15;467.16;454.36;454.37;454.35;454.39;"
^DIE(365,"DR",1,2100,16)="454.4;454.38;454.42///^S X="""";454.43///^S X="""";454.41///^S X="""";454.44;421.3///^S X=""~"";420.4///^S X=""PV4"";455.22;450.32///^S X="""";454.46;454.47;454.48///^S X="""";467.17;467.18;467.19;467.2///^S X="""";467.21///^S X="""";"
^DIE(365,"DR",1,2100,17)="467.22///^S X="""";467.23///^S X="""";467.01;467.02;467.24///^S X="""";421.4///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(365,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""PVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(365,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(365,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15;50.16;54.03;54.04///^S X="""";54.05///^S X="""";54.06///^S X="""";54.07;54.08///^S X="""";50.4;54.1;54.11;54.12;54.13;50.02;50.03;50.04;50.05;"
^DIE(365,"DR",2,2100.02,3)="50.12;50.06;50.09;50.11;50.1;54.23///^S X="""";54.24///^S X="""";54.25;54.26;@7;S PRCINV=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",40) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;"
^DIE(365,"DR",2,2100.02,4)="N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@7"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",40)=PRCYMD;"
^DIE(365,"DR",2,2100.02,5)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);54.27///^S X=PRCY;54.28///^S X=PRCM;54.29///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;54.3;52.12;54.32;54.33;@8;"
^DIE(365,"DR",2,2100.02,6)="S PRCLOG=$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA"")),""^"",41) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";"
^DIE(365,"DR",2,2100.02,7)="I PRCYMD<1 W $C(7),!,""Please enter Log Date !"",! S Y=""@8"";S $P(^GECS(2100,DA(1),""FMSLIN"",DA,""DDA""),""^"",41)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);55.35///^S X=PRCY;55.36///^S X=PRCM;"
^DIE(365,"DR",2,2100.02,8)="55.37///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;50.39;54.37///^S X="""";421.1///^S X=""~"";420.2///^S X=""PVB"";67.01///^S X="""";54.38;55.38;55.39;55.4;55.41;50.41;67.02///^S X="""";67.03///^S X="""";67.04///^S X="""";67.05///^S X="""";50.42;50.43;"
^DIE(365,"DR",2,2100.02,9)="50.44;55.47///^S X="""";67.06///^S X="""";67.07///^S X="""";67.08///^S X="""";421.2///^S X=""~"";"
^DIE(366,0)="PRCFMS:AV^2940901.0858^@^2100^55^@^2940901"
^DIE(366,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(366,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(366,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(366,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;QUIT;420.2///^S X=""PV2"";@1;"
^DIE(366,"DR",1,2100,4)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<1 Y=""@99"";"
^DIE(366,"DR",1,2100,5)="S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.12///^S X=PRCM;450.13///^S X=PRCD;450.11///^S X=PRCY K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");"
^DIE(366,"DR",1,2100,6)="454.06///^S X="""";454.07///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.09;454.1///^S X="""";@2;S PRCSPAY=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",31) I PRCSPAY N Y S Y=PRCSPAY X ^DD(""DD"") S PRCSPAY=Y;"
^DIE(366,"DR",1,2100,7)="N %DT,Y S %DT(""A"")=""SCHEDULED PAYMENT DATE: "",%DT=""AEX"" S:PRCSPAY'="""" %DT(""B"")=PRCSPAY D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@1"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",31)=PRCYMD;"
^DIE(366,"DR",1,2100,8)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);454.11///^S X=PRCY;454.12///^S X=PRCM;454.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;454.14///^S X="""";450.08;454.16///^S X="""";450.51///^S X="""";454.18///^S X="""";450.01;"
^DIE(366,"DR",1,2100,9)="450.02;454.21;450.23;454.23;454.24;450.26;450.27;450.28;454.28;421.2///^S X=""~"";420.3///^S X=""PV3"";454.29;450.54///^S X="""";450.48///^S X="""";450.49///^S X="""";455.19///^S X="""";467.03///^S X="""";450.53///^S X="""";450.3;450.31;@3;"
^DIE(366,"DR",1,2100,10)="S PRCDEL=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",1) I PRCDEL N Y S Y=PRCDEL X ^DD(""DD"") S PRCDEL=Y;N %DT,Y S %DT(""A"")=""ACCP/DEL DATE: "",%DT=""AEX"" S:PRCDEL'="""" %DT(""B"")=PRCDEL D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@3"";"
^DIE(366,"DR",1,2100,11)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.04///^S X=PRCY;467.05///^S X=PRCM;467.06///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;467.08;@4;"
^DIE(366,"DR",1,2100,12)="S PRCINV=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",2) I PRCINV N Y S Y=PRCINV X ^DD(""DD"") S PRCINV=Y;N %DT,Y S %DT(""A"")=""INVOICE DATE: "",%DT=""AEX"" S:PRCINV'="""" %DT(""B"")=PRCINV D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@4"";"
^DIE(366,"DR",1,2100,13)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",2)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.09///^S X=PRCY;467.1///^S X=PRCM;467.11///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@5;"
^DIE(366,"DR",1,2100,14)="S PRCLOG=$P($G(^GECS(2100,DA,""FMSPV5"")),""^"",3) I PRCLOG N Y S Y=PRCLOG X ^DD(""DD"") S PRCLOG=Y;N %DT,Y S %DT(""A"")=""LOG DATE: "",%DT=""AEX"" S:PRCLOG'="""" %DT(""B"")=PRCLOG D ^%DT S PRCYMD=+Y S:X="""" PRCYMD="""";S:PRCYMD<0 Y=""@5"";"
^DIE(366,"DR",1,2100,15)="S $P(^GECS(2100,DA,""FMSPV5""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);467.12///^S X=PRCY;467.13///^S X=PRCM;467.14///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;467.15///^S X="""";467.16;454.36///^S X="""";"
^DIE(366,"DR",1,2100,16)="454.37///^S X="""";454.35///^S X="""";454.39///^S X="""";454.4///^S X="""";454.38///^S X="""";454.42///^S X="""";454.43///^S X="""";454.41///^S X="""";454.44///^S X="""";421.3///^S X=""~"";420.4///^S X=""PV4"";455.22;450.32///^S X="""";454.46///^S X="""";"
^DIE(366,"DR",1,2100,17)="454.47///^S X="""";454.48///^S X="""";467.17///^S X="""";467.18///^S X="""";467.19///^S X="""";467.2///^S X="""";467.21///^S X="""";467.22///^S X="""";467.23///^S X="""";467.01;467.02;467.24///^S X="""";421.4///^S X=""~"";500;S Y="""";@99;"
^DIE(366,"DR",1,2100,18)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCDEL,PRCINV,PRCLOG;"
^DIE(366,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""PVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TPA"")),""^"",11)="""" $P(^(""TPA""),""^"",11,13)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4)_""^""_PRCFUND;"
^DIE(366,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(366,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15;50.16;54.03;54.04///^S X="""";54.05///^S X="""";54.06///^S X="""";54.07///^S X="""";54.08///^S X="""";50.4;54.1;54.11;54.12;54.13;50.02;50.03;"
^DIE(366,"DR",2,2100.02,3)="50.04;50.05;50.12;50.06;50.09;50.11;50.1;54.23///^S X="""";54.24///^S X="""";54.25;54.26;54.27///^S X="""";54.28///^S X="""";54.29///^S X="""";54.3///^S X="""";52.12;54.32;54.33;55.35///^S X="""";55.36///^S X="""";55.37///^S X="""";50.39///^S X="""";"
^DIE(366,"DR",2,2100.02,4)="54.37///^S X="""";421.1///^S X=""~"";420.2///^S X=""PVB"";67.01///^S X="""";54.38///^S X="""";55.38;55.39;55.4;55.41;50.41;67.02///^S X="""";67.03///^S X="""";67.04///^S X="""";67.05///^S X="""";50.42;50.43;50.44;55.47///^S X="""";67.06///^S X="""";"
^DIE(366,"DR",2,2100.02,5)="67.07///^S X="""";67.08///^S X="""";421.2///^S X=""~"";"
^DIE(367,0)="PRCFMS:SO^2940901.1321^@^2100^55^@^2940901"
^DIE(367,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(367,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(367,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(367,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(367,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",8)="""" $P(^(""FMSMO2""),""^"",8)=PRCFUND;QUIT;420.2///^S X=""MO2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(367,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(367,"DR",1,2100,6)="450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;462.08;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.1///^S X="""";"
^DIE(367,"DR",1,2100,7)="462.11///^S X="""";454.16///^S X="""";450.01;450.02;450.23;462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";450.27///^S X="""";450.28///^S X="""";462.21///^S X="""";462.22///^S X="""";462.23;421.2///^S X=""~"";420.3///^S X=""MO3"";"
^DIE(367,"DR",1,2100,8)="462.24///^S X="""";462.25///^S X="""";462.26///^S X="""";462.27///^S X="""";462.28///^S X="""";462.29///^S X="""";460.06;S Y=""@3"";@2;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(367,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""END DATE: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",2)=PRCYMD;"
^DIE(367,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2)<$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) W $C(7),!!,""START DATE can't be greater than END DATE !! Please reenter."",! S Y=""@2"";S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(367,"DR",1,2100,11)="462.31///^S X=PRCY;462.32///^S X=PRCM;462.33///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;462.34///^S X="""";462.35///^S X="""";462.36///^S X="""";452.24///^S X="""";462.38///^S X="""";462.39///^S X="""";"
^DIE(367,"DR",1,2100,12)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1)'="""" S Y=""@4"";@3;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(367,"DR",1,2100,13)="N %DT,Y S %DT(""A"")=""START DATE: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(367,"DR",1,2100,14)="462.4///^S X=PRCY;462.41///^S X=PRCM;462.42///^S X=PRCD;S Y=""@2"";@4;462.43;462.44;462.45///^S X="""";462.46///^S X="""";462.47///^S X="""";462.48///^S X="""";454.21;462.5///^S X="""";462.51///^S X="""";462.52///^S X="""";462.53///^S X="""";"
^DIE(367,"DR",1,2100,15)="462.54///^S X="""";462.55;462.56///^S X="""";462.57;462.58;450.3///^S X="""";421.3///^S X=""~"";420.4///^S X=""MO4"";450.31///^S X="""";454.35;454.36;454.38///^S X="""";454.39///^S X="""";454.41///^S X="""";454.42///^S X="""";462.67;454.46;"
^DIE(367,"DR",1,2100,16)="454.47///^S X="""";454.48///^S X="""";421.4///^S X=""~"";420.5///^S X=""MO5"";462.71///^S X="""";462.72///^S X="""";462.73///^S X="""";462.74///^S X="""";462.75///^S X="""";462.76///^S X="""";462.77///^S X="""";462.78///^S X="""";450.32///^S X="""";"
^DIE(367,"DR",1,2100,17)="421.5///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;"
^DIE(367,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""MOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(367,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(367,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15///^S X="""";50.16///^S X="""";54.03///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;"
^DIE(367,"DR",2,2100.02,3)="62.18///^S X="""";62.19;62.2///^S X="""";62.21///^S X="""";421.1///^S X=""~"";420.2///^S X=""MOB"";50.46///^S X="""";62.23///^S X="""";62.24///^S X="""";62.25///^S X="""";62.26///^S X="""";54.24///^S X="""";62.28///^S X="""";62.29///^S X="""";"
^DIE(367,"DR",2,2100.02,4)="62.3///^S X="""";63.13///^S X="""";62.32///^S X="""";62.33///^S X="""";62.34///^S X="""";62.35///^S X="""";62.36///^S X="""";62.37///^S X="""";62.38///^S X="""";62.39///^S X="""";60.1///^S X="""";62.41///^S X="""";62.42///^S X="""";62.43///^S X="""";"
^DIE(367,"DR",2,2100.02,5)="62.44///^S X="""";62.45///^S X="""";421.2///^S X=""~"";420.3///^S X=""MOC"";50.42;50.43;50.44;421.3///^S X=""~"";"
^DIE(368,0)="PRCFMS:CO(CONTRACT ORDER)^2940902.0909^@^2100^55^@^2940902"
^DIE(368,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(368,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(368,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(368,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(368,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",8)="""" $P(^(""FMSMO2""),""^"",8)=PRCFUND;QUIT;420.2///^S X=""MO2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(368,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(368,"DR",1,2100,6)="450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;462.08;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.1///^S X="""";"
^DIE(368,"DR",1,2100,7)="462.11///^S X="""";454.16///^S X="""";450.01;450.02;450.23;462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";450.27///^S X="""";450.28///^S X="""";462.21///^S X="""";462.22///^S X="""";462.23///^S X="""";421.2///^S X=""~"";420.3///^S X=""MO3"";"
^DIE(368,"DR",1,2100,8)="462.24///^S X="""";462.25///^S X="""";462.26///^S X="""";462.27///^S X="""";462.28///^S X="""";462.29///^S X="""";460.06;S Y=""@3"";@2;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(368,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""END DATE: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",2)=PRCYMD;"
^DIE(368,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2)<$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) W $C(7),!!,""START DATE can't be greater than END DATE !! Please reenter."",! S Y=""@2"";S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(368,"DR",1,2100,11)="462.31///^S X=PRCY;462.32///^S X=PRCM;462.33///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;462.34///^S X="""";462.35///^S X="""";462.36///^S X="""";452.24///^S X="""";462.38///^S X="""";462.39///^S X="""";"
^DIE(368,"DR",1,2100,12)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1)'="""" S Y=""@4"";@3;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(368,"DR",1,2100,13)="N %DT,Y S %DT(""A"")=""START DATE: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(368,"DR",1,2100,14)="462.4///^S X=PRCY;462.41///^S X=PRCM;462.42///^S X=PRCD;S Y=""@2"";@4;462.43;462.44;462.45///^S X="""";462.46///^S X="""";462.47///^S X="""";462.48///^S X="""";454.21;462.5///^S X="""";462.51///^S X="""";462.52///^S X="""";462.53///^S X="""";"
^DIE(368,"DR",1,2100,15)="462.54///^S X="""";462.55;462.56///^S X="""";462.57;462.58;450.3///^S X="""";421.3///^S X=""~"";420.4///^S X=""MO4"";450.31///^S X="""";454.35;454.36;454.38///^S X="""";454.39///^S X="""";454.41///^S X="""";454.42///^S X="""";462.67;454.46;"
^DIE(368,"DR",1,2100,16)="454.47///^S X="""";454.48///^S X="""";421.4///^S X=""~"";420.5///^S X=""MO5"";462.71///^S X="""";462.72///^S X="""";462.73///^S X="""";462.74///^S X="""";462.75///^S X="""";462.76///^S X="""";462.77///^S X="""";462.78///^S X="""";450.32///^S X="""";"
^DIE(368,"DR",1,2100,17)="421.5///^S X="""";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;"
^DIE(368,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""MOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(368,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(368,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15///^S X="""";50.16///^S X="""";54.03///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;"
^DIE(368,"DR",2,2100.02,3)="62.18///^S X="""";62.19;62.2///^S X="""";62.21///^S X="""";421.1///^S X=""~"";420.2///^S X=""MOB"";50.46///^S X="""";62.23///^S X="""";62.24///^S X="""";62.25///^S X="""";62.26///^S X="""";54.24///^S X="""";62.28///^S X="""";62.29///^S X="""";"
^DIE(368,"DR",2,2100.02,4)="62.3///^S X="""";63.13///^S X="""";62.32///^S X="""";62.33///^S X="""";62.34///^S X="""";62.35///^S X="""";62.36///^S X="""";62.37///^S X="""";62.38///^S X="""";62.39///^S X="""";60.1///^S X="""";62.41///^S X="""";62.42///^S X="""";62.43///^S X="""";"
^DIE(368,"DR",2,2100.02,5)="62.44///^S X="""";62.45///^S X="""";421.2///^S X=""~"";420.3///^S X=""MOC"";50.42;50.43;50.44;421.3///^S X=""~"";"
^DIE(369,0)="PRCFMS:AO^2940901.141^@^2100^55^@^2940902"
^DIE(369,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(369,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(369,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(369,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(369,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",8)="""" $P(^(""FMSMO2""),""^"",8)=PRCFUND;QUIT;420.2///^S X=""MO2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(369,"DR",1,2100,5)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(369,"DR",1,2100,6)="450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;462.08;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");454.1///^S X="""";"
^DIE(369,"DR",1,2100,7)="462.11///^S X="""";454.16///^S X="""";450.01;450.02;450.23;462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";450.27///^S X="""";450.28///^S X="""";462.21///^S X="""";462.22///^S X="""";462.23///^S X="""";421.2///^S X=""~"";420.3///^S X=""MO3"";"
^DIE(369,"DR",1,2100,8)="462.24///^S X="""";462.25///^S X="""";462.26///^S X="""";462.27///^S X="""";462.28///^S X="""";462.29///^S X="""";460.06;S Y=""@3"";@2;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(369,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""END DATE: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@2"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",2)=PRCYMD;"
^DIE(369,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",2)<$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) W $C(7),!!,""START DATE can't be greater than END DATE !! Please reenter."",! S Y=""@2"";S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(369,"DR",1,2100,11)="462.31///^S X=PRCY;462.32///^S X=PRCM;462.33///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;462.34///^S X="""";462.35///^S X="""";462.36///^S X="""";452.24///^S X="""";462.38///^S X="""";462.39///^S X="""";"
^DIE(369,"DR",1,2100,12)="I $P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1)'="""" S Y=""@4"";@3;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSMO1"")),""^"",1) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(369,"DR",1,2100,13)="N %DT,Y S %DT(""A"")=""START DATE: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;S:PRCYMD<0 Y=""@3"";S $P(^GECS(2100,DA,""FMSMO1""),""^"",1)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);"
^DIE(369,"DR",1,2100,14)="462.4///^S X=PRCY;462.41///^S X=PRCM;462.42///^S X=PRCD;S Y=""@2"";@4;462.43;462.44;462.45///^S X="""";462.46///^S X="""";462.47///^S X="""";462.48///^S X="""";454.21;462.5///^S X="""";462.51///^S X="""";462.52///^S X="""";462.53///^S X="""";"
^DIE(369,"DR",1,2100,15)="462.54///^S X="""";462.55;462.56///^S X="""";462.57;462.58;450.3///^S X="""";421.3///^S X=""~"";420.4///^S X=""MO4"";450.31///^S X="""";454.35;454.36;454.38///^S X="""";454.39///^S X="""";454.41///^S X="""";454.42///^S X="""";462.67;454.46;"
^DIE(369,"DR",1,2100,16)="454.47///^S X="""";454.48///^S X="""";421.4///^S X=""~"";420.5///^S X=""MO5"";462.71///^S X="""";462.72///^S X="""";462.73///^S X="""";462.74///^S X="""";462.75///^S X="""";462.76///^S X="""";462.77///^S X="""";462.78///^S X="""";450.32///^S X="""";"
^DIE(369,"DR",1,2100,17)="421.5///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;"
^DIE(369,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""MOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(369,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(369,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.15///^S X="""";50.16///^S X="""";54.03///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;"
^DIE(369,"DR",2,2100.02,3)="62.18///^S X="""";62.19;62.2///^S X="""";62.21///^S X="""";421.1///^S X=""~"";420.2///^S X=""MOB"";50.46///^S X="""";62.23///^S X="""";62.24///^S X="""";62.25///^S X="""";62.26///^S X="""";54.24///^S X="""";62.28///^S X="""";62.29///^S X="""";"
^DIE(369,"DR",2,2100.02,4)="62.3///^S X="""";63.13///^S X="""";62.32///^S X="""";62.33///^S X="""";62.34///^S X="""";62.35///^S X="""";62.36///^S X="""";62.37///^S X="""";62.38///^S X="""";62.39///^S X="""";60.1///^S X="""";62.41///^S X="""";62.42///^S X="""";62.43///^S X="""";"
^DIE(369,"DR",2,2100.02,5)="62.44///^S X="""";62.45///^S X="""";421.2///^S X=""~"";420.3///^S X=""MOC"";50.42;50.43;50.44;421.3///^S X=""~"";"
^DIE(370,0)="PRCFMS:RC^2940902.1136^@^2100^55^@^2940902"
^DIE(370,"DIAB",1,0,2100,6)="REF TRANS CODE;""REF DOC(transaction code)"""
^DIE(370,"DIAB",2,0,2100,6)="REF TRANS NUMBER;""REF DOC(transaction number)"""
^DIE(370,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(370,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(370,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(370,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;"
^DIE(370,"DR",1,2100,4)="420.2///^S X=""RC2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;"
^DIE(370,"DR",1,2100,5)="I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;"
^DIE(370,"DR",1,2100,6)="463.08REF DOC(transaction code)~;463.09REF DOC(transaction number)~;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.01;463.1;450.23///^S X="""";462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";"
^DIE(370,"DR",1,2100,7)="450.27///^S X="""";450.28///^S X="""";463.01;463.02///^S X="""";463.03///^S X="""";463.04///^S X="""";463.05;421.2///^S X=""~"";420.3///^S X=""RC3"";463.06///^S X="""";460.06;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;454.21;463.11///^S X="""";"
^DIE(370,"DR",1,2100,8)="463.12///^S X="""";467.16;463.07///^S X="""";450.32///^S X="""";421.3///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT;"
^DIE(370,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""RCA"";62.23///^S X="""";62.26///^S X="""";63.01///^S X="""";62.29///^S X="""";62.3///^S X="""";63.13///^S X="""";63.02///^S X="""";63.03///^S X="""";63.04///^S X="""";63.05///^S X="""";63.06///^S X="""";"
^DIE(370,"DR",2,2100.02,1)="63.07///^S X="""";63.08///^S X="""";62.38///^S X="""";63.09///^S X="""";63.1///^S X="""";63.11///^S X="""";63.12///^S X="""";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;"
^DIE(370,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(370,"DR",2,2100.02,3)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;54.03;63.14///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;"
^DIE(370,"DR",2,2100.02,4)="50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;50.24;421.1///^S X=""~"";420.2///^S X=""RCB"";62.19;67.01///^S X="""";50.41;50.42;50.43;50.44;421.2///^S X=""~"";"
^DIE(371,0)="PRCFMS:RT^2940902.0957^@^2100^55^@^2940902"
^DIE(371,"DIAB",1,0,2100,6)="REF TRANS CODE;""REF DOC(transaction code)"""
^DIE(371,"DIAB",2,0,2100,6)="REF TRANS NUMBER;""REF DOC(transaction number)"""
^DIE(371,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(371,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "",1,PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(371,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(371,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSMO2"")),""^"",6)="""" $P(^(""FMSMO2""),""^"",6,7)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;"
^DIE(371,"DR",1,2100,4)="420.2///^S X=""RC2"";@1;S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSIV2"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCYMD=+Y;"
^DIE(371,"DR",1,2100,5)="I PRCYMD<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"",3)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.11///^S X=PRCY;450.12///^S X=PRCM;450.13///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;"
^DIE(371,"DR",1,2100,6)="463.08REF DOC(transaction code)~;463.09REF DOC(transaction number)~;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.01;463.1;450.23///^S X="""";462.16///^S X="""";462.17///^S X="""";450.26///^S X="""";"
^DIE(371,"DR",1,2100,7)="450.27///^S X="""";450.28///^S X="""";463.01;463.02///^S X="""";463.03///^S X="""";463.04///^S X="""";463.05;421.2///^S X=""~"";420.3///^S X=""RC3"";463.06///^S X="""";460.06;450.06;450.05///^S X=PRC(""FY"");462.06;462.07;454.21;463.11///^S X="""";"
^DIE(371,"DR",1,2100,8)="463.12///^S X="""";467.16;463.07;450.32///^S X="""";421.3///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT;"
^DIE(371,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""RCA"";62.23///^S X="""";62.26///^S X="""";63.01///^S X="""";62.29///^S X="""";62.3///^S X="""";63.13///^S X="""";63.02///^S X="""";63.03///^S X="""";63.04///^S X="""";63.05///^S X="""";63.06///^S X="""";"
^DIE(371,"DR",2,2100.02,1)="63.07///^S X="""";63.08///^S X="""";62.38///^S X="""";63.09///^S X="""";63.1///^S X="""";63.11///^S X="""";63.12///^S X="""";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;"
^DIE(371,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);"
^DIE(371,"DR",2,2100.02,3)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;54.03;63.14///^S X="""";50.07;50.08;50.01;50.02;50.03;50.04;"
^DIE(371,"DR",2,2100.02,4)="50.05;50.12;50.06;50.09;50.11;50.1;52.12;54.32;50.24;421.1///^S X=""~"";420.2///^S X=""RCB"";62.19;67.01///^S X="""";50.41;50.42;50.43;50.44;421.2///^S X=""~"";"
^DIE(372,0)="FB FEEBASIS-IFCAP 994.01^2940609.1208^@^2100^0^@^2940824"
^DIE(372,"DR",1,2100)="S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$P(^GECS(2100,DA,0),""^"",2);S X=""PRCS58"" X:$D(^%ZOSF(""TEST"")) ^(""TEST"") I $T S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$$FB^PRCS58;S Y=1600;1602;5;7;1600;1601;500;99///$;"
^DIE(372,"DR",2,2100.02)="1600;1601;"
^DIE(373,0)="FB FEEBASIS-IFCAP 994.00^2940609.1204^@^2100^0^@^2940726"
^DIE(373,"DR",1,2100)="S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$P(^GECS(2100,DA,0),""^"",2);S X=""PRCS58"" X:$D(^%ZOSF(""TEST"")) ^(""TEST"") I $T S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$$FB^PRCS58;S Y=1600;1602;5;7;1600;1601;99///$;"
^DIE(374,0)="FB FEEBASIS-IFCAP 994.90^2940609.121^@^2100^0^@^2940609"
^DIE(374,"DR",1,2100)="S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$P(^GECS(2100,DA,0),""^"",2);S X=""PRCS58"" X:$D(^%ZOSF(""TEST"")) ^(""TEST"") I $T S $P(^GECS(2100,DA,""FBFEE2""),""^"",3)=$$FB^PRCS58;S Y=1600;1602;5;7;1600;1601;500;99///$;"
^DIE(374,"DR",2,2100.02)="1602;1603;1604;"
^DIE(375,0)="PRCFMS:SA^2940722.0857^^2100^50^^2940823"
^DIE(375,"DIAB",1,0,2100,6)="450.21;""BUDGET FY (BEGINNING)"""
^DIE(375,"DIAB",1,1,2100.02,1)="67;""ACT"""
^DIE(375,"DIAB",1,1,2100.02,2)="67.901;""SUBALLOW INC/DEC (QTR 2) AMT"""
^DIE(375,"DIAB",1,1,2100.02,3)="67.1103;""(QTR 4) I/D"""
^DIE(375,"DIAB",2,0,2100,6)="450.22;""BUDGET FY (ENDING)"""
^DIE(375,"DIAB",2,1,2100.02,1)="67.3;""REF STATION"""
^DIE(375,"DIAB",2,1,2100.02,2)="67.902;""SUBALLOW INC/DEC (QTR 3) AMT"""
^DIE(375,"DIAB",2,1,2100.02,3)="67.7;""APPROPRIATED-IND"""
^DIE(375,"DIAB",3,0,2100,6)="465.8;""PEND TRANS TYPE"""
^DIE(375,"DIAB",3,1,2100.02,1)="67.1;""A/O"""
^DIE(375,"DIAB",3,1,2100.02,2)="67.903;""SUBALLOW INC/DEC (QTR 4) AMT"""
^DIE(375,"DIAB",4,0,2100,6)="465.4;""FUND"""
^DIE(375,"DIAB",4,1,2100.02,1)="67.2;""STATION"""
^DIE(375,"DIAB",4,1,2100.02,2)="67.12;""DESCRIPTION"""
^DIE(375,"DIAB",5,0,2100,5)="450.06;""ACCOUNTING PERIOD MONTH (optional)"""
^DIE(375,"DIAB",5,0,2100,6)="465.6;""TOTAL CHARGE AMT"""
^DIE(375,"DIAB",5,1,2100.02,1)="67.4;""FCP/PRJ"""
^DIE(375,"DIAB",5,1,2100.02,2)="67.6;""OVR"""
^DIE(375,"DIAB",6,0,2100,5)="450.05;""ACCOUNTING PERIOD YEAR (optional)"""
^DIE(375,"DIAB",6,0,2100,6)="465.7;""PEND/APRV/POST IND"""
^DIE(375,"DIAB",6,1,2100.02,1)="67.5;""LMT"""
^DIE(375,"DIAB",6,1,2100.02,2)="67.11;""(QTR 1) I/D"""
^DIE(375,"DIAB",7,0,2100,6)="465.9;""APRV TR TYPE""  FMSB APRV TR TYPE"
^DIE(375,"DIAB",7,1,2100.02,1)="67.13;""FTES/QTY"""
^DIE(375,"DIAB",8,0,2100,6)="465.11;""POST TR TYPE"""
^DIE(375,"DIAB",8,1,2100.02,2)="67.1101;(QTR 2) I/D"
^DIE(375,"DIAB",9,0,2100,6)="465.12;""POST THRU QTR"""
^DIE(375,"DIAB",9,1,2100.02,2)="67.1102;(QTR 3) I/D"
^DIE(375,"DIAB",12,1,2100.02,1)="67.9;""SUBALLOW INC/DEC (QTR 1) AMT"""
^DIE(375,"DR",1,2100)="W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSB"")),""^""),0)),""^"");W ! S PRCFCP=$$CP^PRCSUTCP(GECS(""SITE""),""Select FUND CONTROL POINT: "","""","""",PRCDEFLT) I PRCFCP<1 S Y=""@99"";"
^DIE(375,"DR",1,2100,1)="S $P(^GECS(2100,DA,""FMSB""),""^"")=PRCFCP;D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRCBBFY=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRCFCP);S PRCACC=$$ACC^PRC0C(GECS(""SITE""),PRCFCP_""^""_PRC(""FY"")_""^""_PRCBBFY);"
^DIE(375,"DR",1,2100,2)="S PRCSFCP=$$SFCP^PRC0D(GECS(""SITE""),PRCFCP);420.2///^S X=""SA2"";S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSB"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;"
^DIE(375,"DR",1,2100,3)="N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCDATE=+Y;I PRCDATE<1 S Y=""@99"";"
^DIE(375,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E($P(PRCACC,""^"",6),3,4)_""^""_$E($P(PRCACC,""^"",7),3,4);S:$P($G(^GECS(2100,DA,""FMSB"")),""^"",5)="""" $P(^(""FMSB""),""^"",5)=$P(PRCACC,""^"",5);"
^DIE(375,"DR",1,2100,5)="S $P(^GECS(2100,DA,""FMSB""),""^"",3)=PRCDATE;450.12///^S X=$E(PRCDATE,4,5);450.13///^S X=$E(PRCDATE,6,7);450.11///^S X=$E(PRCDATE,2,3);450.06ACCOUNTING PERIOD MONTH (optional)~;450.05ACCOUNTING PERIOD YEAR (optional)~;"
^DIE(375,"DR",1,2100,6)="450.21BUDGET FY (BEGINNING)~;450.22BUDGET FY (ENDING)~;465.8PEND TRANS TYPE~;465.4FUND~;465.6TOTAL CHARGE AMT~;465.7PEND/APRV/POST IND~;465.9APRV TR TYPE~;465.11POST TR TYPE~;465.12POST THRU QTR~;421.2///^S X=""~"";"
^DIE(375,"DR",1,2100,7)="D EN^DDIOL(""Enter SUBALLOWANCE LINE Document""_$TR($J("""",25),"" "",""-""));500;S Y="""";@99;K PRC,PRCACC,PRCBBFY,PRCFCP,PRCDEFLT,PRCSFCP;"
^DIE(375,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""SAA"";S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSB"")),""^"",1)="""" $P(^(""FMSB""),""^"",1,5)=GECS(""SITE"")_""^""_$P(PRCACC,""^"")_""^""_GECS(""SITE"")_""^""_$P(PRCACC,""^"",3)_""^""_$P(PRCACC,""^"",4);QUIT;"
^DIE(375,"DR",2,2100.02,1)="67ACT~;67.3REF STATION~;67.1A/O~;67.2STATION~;67.4FCP/PRJ~;67.5LMT~;67.13FTES/QTY~;67.8///^S X="""";67.8///^S X="""";67.8///^S X="""";67.8///^S X="""";67.9SUBALLOW INC/DEC (QTR 1) AMT~;S:PRCSFCP=2 Y=67.11;"
^DIE(375,"DR",2,2100.02,2)="67.901SUBALLOW INC/DEC (QTR 2) AMT~;67.902SUBALLOW INC/DEC (QTR 3) AMT~;67.903SUBALLOW INC/DEC (QTR 4) AMT~;67.12DESCRIPTION~;67.6OVR~;67.11(QTR 1) I/D~;S:PRCSFCP=2 Y=67.7;67.1101(QTR 2) I/D~;67.1102(QTR 3) I/D~;"
^DIE(375,"DR",2,2100.02,3)="67.1103(QTR 4) I/D~;67.7APPROPRIATED-IND~;421.1///^S X=""~"";"
^DIE(376,0)="PRCFMS:AT^2940722.1458^^2100^50^^2940722"
^DIE(376,"DIAB",1,0,2100,7)="450.05;""ACCOUNTING PERIOD YEAR (optional)"""
^DIE(376,"DIAB",1,1,2100.02,3)="67.14;""FORM PROGRAM"""
^DIE(376,"DIAB",2,0,2100,7)="450.21;""BUDGET FY (BEGINNING)"""
^DIE(376,"DIAB",2,1,2100.02,3)="67.5;""FROM LMT"""
^DIE(376,"DIAB",3,0,2100,7)="450.22;""BUDGET FY (ENDING)"""
^DIE(376,"DIAB",3,1,2100.02,2)="67.1;""FROM A/O"""
^DIE(376,"DIAB",3,1,2100.02,3)="67.15;""FROM QUARTER"""
^DIE(376,"DIAB",4,0,2100,7)="465.4;""FUND"""
^DIE(376,"DIAB",4,1,2100.02,2)="67.2;""FROM STATION"""
^DIE(376,"DIAB",4,1,2100.02,3)="67.16;""FROM IND"""
^DIE(376,"DIAB",5,1,2100.02,3)="67.101;""TO A/O"""
^DIE(376,"DIAB",6,1,2100.02,3)="67.102;""TO STATION"""
^DIE(376,"DIAB",7,1,2100.02,3)="67.141;""TO PROGRAM"""
^DIE(376,"DIAB",8,0,2100,6)="450.06;""ACCOUNTING PERIOD MONTH (optional)"""
^DIE(376,"DIAB",8,1,2100.02,3)="67.501;""TO LMT"""
^DIE(376,"DIAB",9,1,2100.02,3)="67.1501;""TO QUARTER"""
^DIE(376,"DIAB",10,1,2100.02,3)="67.9;""TRANSFER AMOUNT"""
^DIE(376,"DR",1,2100)="W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSB"")),""^""),0)),""^"");"
^DIE(376,"DR",1,2100,1)="W ! S PRCFCP=$$CP^PRCSUTCP(GECS(""SITE""),""Select TRANSFER FROM FUND CONTROL POINT: "","""","""",PRCDEFLT) I PRCFCP<1 S Y=""@99"";S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSB"")),""^"",2),0)),""^"");"
^DIE(376,"DR",1,2100,2)="W ! S PRCFCP2=$$CP^PRCSUTCP(GECS(""SITE""),""Select TRANSFER TO FUND CONTROL POINT: "","""","""",PRCDEFLT) I PRCFCP2<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSB""),""^"")=PRCFCP,$P(^GECS(2100,DA,""FMSB""),""^"",2)=PRCFCP2;"
^DIE(376,"DR",1,2100,3)="D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRCBBFY=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRCFCP);S PRCACC=$$ACC^PRC0C(GECS(""SITE""),PRCFCP_""^""_PRC(""FY"")_""^""_PRCBBFY);S PRCACC2=$$ACC^PRC0C(GECS(""SITE""),PRCFCP2_""^""_PRC(""FY"")_""^""_PRCBBFY);"
^DIE(376,"DR",1,2100,4)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSB"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCDATE=+Y;I PRCDATE<1 S Y=""@99"";"
^DIE(376,"DR",1,2100,5)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E($P(PRCACC,""^"",6),3,4)_""^""_$E($P(PRCACC,""^"",7),3,4);S:$P($G(^GECS(2100,DA,""FMSB"")),""^"",5)="""" $P(^(""FMSB""),""^"",5)=$P(PRCACC,""^"",5);"
^DIE(376,"DR",1,2100,6)="S $P(^GECS(2100,DA,""FMSB""),""^"",3)=PRCDATE;420.2///^S X=""AT1"";461.27///^S X=""AT"";402;450.12///^S X=$E(PRCDATE,4,5);450.13///^S X=$E(PRCDATE,6,7);450.11///^S X=$E(PRCDATE,2,3);450.06ACCOUNTING PERIOD MONTH (optional)~;"
^DIE(376,"DR",1,2100,7)="450.05ACCOUNTING PERIOD YEAR (optional)~;450.21BUDGET FY (BEGINNING)~;450.22BUDGET FY (ENDING)~;465.4FUND~;421.2///^S X=""~"";D EN^DDIOL(""Enter ALLOWANCE TRANSFER LINE Document""_$TR($J("""",25),"" "",""-""));500;S Y="""";@99;"
^DIE(376,"DR",1,2100,8)="K PRC,PRCACC,PRCBBFY,PRCFCP,PRCDEFLT,PRCSFCP,PRCACC2,PRCFCP2;"
^DIE(376,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""ATA"";"
^DIE(376,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSB"")),""^"",1)="""" $P(^(""FMSB""),""^"",1,2)=GECS(""SITE"")_""^""_$P(PRCACC,""^""),$P(^(""FMSB""),""^"",5)=$P(PRCACC,""^"",4),$P(^(""FMSB""),""^"",20)=$P(PRCACC,""^"",2);"
^DIE(376,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSB1"")),""^"",1)="""" $P(^(""FMSB1""),""^"",1,2)=GECS(""SITE"")_""^""_$P(PRCACC2,""^""),$P(^(""FMSB1""),""^"",5)=$P(PRCACC2,""^"",4),$P(^(""FMSB1""),""^"",4)=$P(PRCACC2,""^"",2);QUIT;67.1FROM A/O~;67.2FROM STATION~;"
^DIE(376,"DR",2,2100.02,3)="67.14FORM PROGRAM~;67.5FROM LMT~;67.15FROM QUARTER~;67.16FROM IND~;67.101TO A/O~;67.102TO STATION~;67.141TO PROGRAM~;67.501TO LMT~;67.1501TO QUARTER~;67.9TRANSFER AMOUNT~;421.1///^S X=""~"";"
^DIE(377,0)="PRCFMS:ST^2940722.1547^^2100^0^^2940722"
^DIE(377,"DIAB",1,0,2100,7)="450.05;""ACCOUNTING PERIOD YEAR (optional)"""
^DIE(377,"DIAB",1,1,2100.02,2)="67.4;""FROM FCP/PRJ"""
^DIE(377,"DIAB",2,0,2100,7)="450.21;""BUDGET FY (BEGINNING)"""
^DIE(377,"DIAB",2,1,2100.02,2)="67.5;""FROM LMT"""
^DIE(377,"DIAB",3,0,2100,7)="450.22;""BUDGET FY (ENDING)"""
^DIE(377,"DIAB",3,1,2100.02,1)="67.1;""FROM A/O"""
^DIE(377,"DIAB",3,1,2100.02,2)="67.15;""FROM QUARTER"""
^DIE(377,"DIAB",4,0,2100,7)="465.4;""FUND"""
^DIE(377,"DIAB",4,1,2100.02,1)="67.2;""FROM STATION"""
^DIE(377,"DIAB",4,1,2100.02,2)="67.16;""FROM IND"""
^DIE(377,"DIAB",5,1,2100.02,2)="67.101;""TO A/O"""
^DIE(377,"DIAB",6,0,2100,6)="450.06;""ACCOUNTING PERIOD MONTH (optional)"""
^DIE(377,"DIAB",6,1,2100.02,2)="67.102;""TO STATION"""
^DIE(377,"DIAB",7,1,2100.02,2)="67.401;""TO FCP/PRJ"""
^DIE(377,"DIAB",8,1,2100.02,2)="67.501;""TO LMT"""
^DIE(377,"DIAB",9,1,2100.02,2)="67.1501;""TO QUARTER"""
^DIE(377,"DIAB",10,1,2100.02,2)="67.9;""TRANSFER AMOUNT"""
^DIE(377,"DR",1,2100)="W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSB"")),""^""),0)),""^"");"
^DIE(377,"DR",1,2100,1)="W ! S PRCFCP=$$CP^PRCSUTCP(GECS(""SITE""),""Select TRANSFER FROM FUND CONTROL POINT: "","""","""",PRCDEFLT) I PRCFCP<1 S Y=""@99"";S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSB"")),""^"",2),0)),""^"");"
^DIE(377,"DR",1,2100,2)="W ! S PRCFCP2=$$CP^PRCSUTCP(GECS(""SITE""),""Select TRANSFER TO FUND CONTROL POINT: "","""","""",PRCDEFLT) I PRCFCP2<1 S Y=""@99"";S $P(^GECS(2100,DA,""FMSB""),""^"")=PRCFCP,$P(^GECS(2100,DA,""FMSB""),""^"",2)=PRCFCP2;"
^DIE(377,"DR",1,2100,3)="D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRCBBFY=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRCFCP);S PRCACC=$$ACC^PRC0C(GECS(""SITE""),PRCFCP_""^""_PRC(""FY"")_""^""_PRCBBFY);S PRCACC2=$$ACC^PRC0C(GECS(""SITE""),PRCFCP2_""^""_PRC(""FY"")_""^""_PRCBBFY);"
^DIE(377,"DR",1,2100,4)="S PRCDEFLT=$P($G(^GECS(2100,DA,""FMSB"")),""^"",3) I PRCDEFLT N Y S Y=PRCDEFLT X ^DD(""DD"") S PRCDEFLT=Y;N %DT,Y S %DT(""A"")=""TRANSACTION DATE: "",%DT=""AEX"" S:PRCDEFLT'="""" %DT(""B"")=PRCDEFLT D ^%DT S PRCDATE=+Y;I PRCDATE<1 S Y=""@99"";"
^DIE(377,"DR",1,2100,5)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E($P(PRCACC,""^"",6),3,4)_""^""_$E($P(PRCACC,""^"",7),3,4);S:$P($G(^GECS(2100,DA,""FMSB"")),""^"",5)="""" $P(^(""FMSB""),""^"",5)=$P(PRCACC,""^"",5);"
^DIE(377,"DR",1,2100,6)="S $P(^GECS(2100,DA,""FMSB""),""^"",3)=PRCDATE;420.2///^S X=""ST2"";450.12///^S X=$E(PRCDATE,4,5);450.13///^S X=$E(PRCDATE,6,7);450.11///^S X=$E(PRCDATE,2,3);450.06ACCOUNTING PERIOD MONTH (optional)~;"
^DIE(377,"DR",1,2100,7)="450.05ACCOUNTING PERIOD YEAR (optional)~;450.21BUDGET FY (BEGINNING)~;450.22BUDGET FY (ENDING)~;465.4FUND~;421.2///^S X=""~"";D EN^DDIOL(""Enter SUBALLOWANCE TRANSFER LINE Document""_$TR($J("""",25),"" "",""-""));500;S Y="""";@99;"
^DIE(377,"DR",1,2100,8)="K PRC,PRCACC,PRCBBFY,PRCFCP,PRCDEFLT,PRCSFCP,PRCACC2,PRCFCP2;"
^DIE(377,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""STA"";S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSB"")),""^"",1)="""" $P(^(""FMSB""),""^"",1,4)=GECS(""SITE"")_""^""_$P(PRCACC,""^"")_""^^""_$P(PRCACC,""^"",3),$P(^(""FMSB""),""^"",5)=$P(PRCACC,""^"",4);"
^DIE(377,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""FMSB1"")),""^"",1)="""" $P(^(""FMSB1""),""^"",1,2)=GECS(""SITE"")_""^""_$P(PRCACC2,""^""),$P(^(""FMSB1""),""^"",5)=$P(PRCACC2,""^"",4),$P(^(""FMSB1""),""^"",6)=$P(PRCACC2,""^"",3);QUIT;67.1FROM A/O~;67.2FROM STATION~;"
^DIE(377,"DR",2,2100.02,2)="67.4FROM FCP/PRJ~;67.5FROM LMT~;67.15FROM QUARTER~;67.16FROM IND~;67.101TO A/O~;67.102TO STATION~;67.401TO FCP/PRJ~;67.501TO LMT~;67.1501TO QUARTER~;67.9TRANSFER AMOUNT~;421.1///^S X=""~"";"
^DIE(378,0)="PRCFMS:TY^2941205.1614^@^2100^55^@^2941207"
^DIE(378,"DIAB",4,0,2100,4)="VENDOR ID;""EMPLOYEE CODE"""
^DIE(378,"DIAB",5,0,2100,4)="VENDOR ADDRESS CODE;""EMPLOYEE CODE (SUFFIX)"""
^DIE(378,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCYMD,PRCY,PRCM,PRCD;W !,""STATION: "",GECS(""SITE"");S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");"
^DIE(378,"DR",1,2100,1)="S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";"
^DIE(378,"DR",1,2100,2)="S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(378,"DR",1,2100,3)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(378,"DR",1,2100,4)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21,22)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);QUIT;420.2///^S X=""TV2"";450.01EMPLOYEE CODE~;450.02EMPLOYEE CODE (SUFFIX)~;450.03///^S X="""";450.04///^S X="""";"
^DIE(378,"DR",1,2100,5)="450.05///^S X=PRC(""FY"");450.06///^S X="""";450.07///^S X="""";450.08;450.09;450.1///^S X="""";450.11///^S X="""";450.12///^S X="""";450.13///^S X="""";450.14///^S X="""";@2;"
^DIE(378,"DR",1,2100,6)="S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;"
^DIE(378,"DR",1,2100,7)="I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Begins !"" S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;"
^DIE(378,"DR",1,2100,8)="450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;@3;S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;"
^DIE(378,"DR",1,2100,9)="N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Ends !"" S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(378,"DR",1,2100,10)="I $P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30)<$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) W $C(7),!!,""Travel Date Begins can't be greater than Travel Date Ends !!  Please reenter. "" S Y=""@3"";"
^DIE(378,"DR",1,2100,11)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;450.21;450.22;450.23///^S X="""";450.24///^S X="""";450.25///^S X="""";450.26///^S X="""";"
^DIE(378,"DR",1,2100,12)="450.27///^S X="""";450.28///^S X="""";421.2///^S X=""~"";420.3///^S X=""TV3"";450.29///^S X="""";450.3;450.31;450.32;450.33///^S X="""";450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");450.35///^S X="""";450.36///^S X="""";"
^DIE(378,"DR",1,2100,13)="450.37///^S X="""";450.38;450.39///^S X="""";450.4///^S X="""";450.41///^S X="""";450.42///^S X="""";450.43///^S X="""";450.44;450.45///^S X="""";450.46///^S X="""";450.47///^S X="""";450.48;@4;450.49;"
^DIE(378,"DR",1,2100,14)="I X="""" W $C(7),!!,""PMT Sequence Number is required !!"" S Y=""@4"";450.5///^S X=""N"";450.51;450.52///^S X=""Y"";450.53;450.54;450.85;421.3///^S X=""~"";420.4///^S X=""TV4"";W !;"
^DIE(378,"DR",1,2100,15)="S DIR(0)=""Y"",DIR(""B"")=""Yes"",DIR(""A"")=""Do you want to enter Travel Voucher with Liquidating ADVANCE "" D ^DIR S Y=$S(Y=0:""@6"",Y=1:""@5"",$D(DIRUT):""@99"",1:""@99"");@5;450.55;450.56;450.57;450.58;450.59;450.6///^S X="""";450.61///^S X="""";"
^DIE(378,"DR",1,2100,16)="450.62;450.63;450.64;450.65;450.66;450.67;450.68///^S X="""";450.69///^S X="""";450.7;450.71;450.72;450.73;450.74;450.75;450.76///^S X="""";450.77///^S X="""";450.78;@6;421.4///^S X=""~"";500;S Y="""";@99;"
^DIE(378,"DR",1,2100,17)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT;"
^DIE(378,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TVA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(378,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(378,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.02;50.03///^S X="""";50.04///^S X="""";50.05///^S X="""";50.06///^S X="""";50.07;50.08;50.09///^S X="""";50.1///^S X="""";50.11;50.12;"
^DIE(378,"DR",2,2100.02,3)="50.13///^S X="""";50.14///^S X="""";50.15///^S X="""";50.16;50.17;50.18///^S X="""";50.19;50.2///^S X="""";50.21///^S X="""";50.22///^S X="""";50.23///^S X="""";50.24;50.26///^S X="""";50.27///^S X="""";50.28///^S X="""";50.29///^S X="""";50.3///^S X="""";"
^DIE(378,"DR",2,2100.02,4)="50.31///^S X="""";61.15///^S X="""";50.33///^S X="""";50.34///^S X="""";50.35///^S X="""";50.36///^S X="""";421.1///^S X=""~"";420.2///^S X=""TVB"";50.37///^S X="""";50.38///^S X="""";50.39///^S X="""";50.4///^S X="""";50.41;50.42///^S X="""";"
^DIE(378,"DR",2,2100.02,5)="50.43///^S X="""";50.44///^S X="""";421.2///^S X=""~"";"
^DIE(379,0)="PRCFMS:TZ^2950119.1325^@^2100^55^@^2950119"
^DIE(379,"DIAB",5,0,2100,8)="VENDOR ID;""EMPLOYEE CODE"""
^DIE(379,"DIAB",6,0,2100,8)="VENDOR ADDRESS CODE;""EMPLOYEE CODE (SUFFIX)"""
^DIE(379,"DR",1,2100)="K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCAMT,PRCADV,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCYMD,PRCY,PRCM,PRCD,PRCTOT;W !,""STATION: "",GECS(""SITE"");"
^DIE(379,"DR",1,2100,1)="S PRCDEFLT=$P($G(^PRC(420,GECS(""SITE""),1,+$P($G(^GECS(2100,DA,""FMSIV2"")),""^""),0)),""^"");S PRCSCREN="",$P(^PRC(420,""_GECS(""SITE"")_"",1,+Y,0),U,12)="""""""""";"
^DIE(379,"DR",1,2100,2)="W ! S PRC(""CP"")=$$CP^PRCSUTCP(GECS(""SITE""),""Select CONTROL POINT: "","""",PRCSCREN,PRCDEFLT);I PRC(""CP"")<1 W $C(7),!!,""Fund Control Point required. "" S Y=""@99"";S $P(^GECS(2100,DA,""FMSIV2""),""^"")=PRC(""CP"");"
^DIE(379,"DR",1,2100,3)="D FY^PRCSUT I 'PRC(""FY"") S Y=""@99"";S PRC(""BBFY"")=$$BBFY^PRCSUT(GECS(""SITE""),PRC(""FY""),PRC(""CP""));S TABLE=$$ACC^PRC0C(+GECS(""SITE""),+PRC(""CP"")_""^""_+PRC(""FY"")_""^""_+PRC(""BBFY""));"
^DIE(379,"DR",1,2100,4)="S PRCPROJ=$P(TABLE,U,3),PRCFUND=$P(TABLE,U,5),PRCFYB=$P(TABLE,U,6),PRCFYE=$P(TABLE,U,7),PRCJOB=$P(TABLE,U,10);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",8)="""" $P(^(""FMSTV2""),""^"",8)=PRCFUND;"
^DIE(379,"DR",1,2100,5)="S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",21)="""" $P(^(""FMSTV2""),""^"",21)=$E(PRCFYB,3,4);S:$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",22)="""" $P(^(""FMSTV2""),""^"",22)=$E(PRCFYE,3,4);"
^DIE(379,"DR",1,2100,6)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",6)="""" $P(^(""FMSTO5""),""^"",6)=PRCFUND;S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",7)="""" $P(^(""FMSTO5""),""^"",7)=$E(PRCFYB,3,4);"
^DIE(379,"DR",1,2100,7)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",8)="""" $P(^(""FMSTO5""),""^"",8)=$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA,""FMSTO4"")),""^"",17)="""" $P(^(""FMSTO4""),""^"",17)=GECS(""SITE"");"
^DIE(379,"DR",1,2100,8)="S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",2)="""" $P(^(""FMSTO5""),""^"",2)=PRCJOB;S:$P($G(^GECS(2100,DA,""FMSTO5"")),""^"",3)="""" $P(^(""FMSTO5""),""^"",3)=PRCPROJ;QUIT;420.2///^S X=""TO2"";450.01EMPLOYEE CODE~;450.02EMPLOYEE CODE (SUFFIX)~;"
^DIE(379,"DR",1,2100,9)="450.23///^S X="""";450.07///^S X="""";452.05;450.08;450.21;450.22;450.05///^S X=PRC(""FY"");450.06///^S X="""";450.11;450.12;450.13;450.34//^S X=$S($P($G(^GECS(2100,DA,""FMS"")),""^"",3)=""Y"":""M"",1:""E"");452.16///^S X="""";452.17///^S X="""";"
^DIE(379,"DR",1,2100,10)="452.18///^S X="""";452.19///^S X="""";452.2///^S X="""";452.21///^S X="""";452.24///^S X="""";@2;S PRCTBFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",29) I PRCTBFLT N Y S Y=PRCTBFLT X ^DD(""DD"") S PRCTBFLT=Y;"
^DIE(379,"DR",1,2100,11)="N %DT,Y S %DT(""A"")=""TRAVEL DATE BEGINS: "",%DT=""AEX"" S:PRCTBFLT'="""" %DT(""B"")=PRCTBFLT D ^%DT S PRCYMD=+Y;I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Begins !"" S Y=""@2"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",29)=PRCYMD;"
^DIE(379,"DR",1,2100,12)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.15///^S X=PRCY;450.16///^S X=PRCM;450.17///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;421.2///^S X=""~"";420.3///^S X=""TO3"";@3;"
^DIE(379,"DR",1,2100,13)="S PRCTEFLT=$P($G(^GECS(2100,DA,""FMSTV2"")),""^"",30) I PRCTEFLT N Y S Y=PRCTEFLT X ^DD(""DD"") S PRCTEFLT=Y;N %DT,Y S %DT(""A"")=""TRAVEL DATE ENDS: "",%DT=""AEX"" S:PRCTEFLT'="""" %DT(""B"")=PRCTEFLT D ^%DT S PRCYMD=+Y;"
^DIE(379,"DR",1,2100,14)="I PRCYMD<1 W $C(7),!!,""Please enter Travel Date Ends !"" S Y=""@3"";S $P(^GECS(2100,DA,""FMSTV2""),""^"",30)=PRCYMD;"
^DIE(379,"DR",1,2100,15)="I $P(^GECS(2100,DA,""FMSTV2""),""^"",30)<$P(^GECS(2100,DA,""FMSTV2""),""^"",29) W $C(7),!!,""Travel Date Begins can't be greater than Travel Date Ends !! Please reenter. "",! S Y=""@3"";"
^DIE(379,"DR",1,2100,16)="S PRCY=$E(PRCYMD,2,3),PRCM=$E(PRCYMD,4,5),PRCD=$E(PRCYMD,6,7);450.18///^S X=PRCY;450.19///^S X=PRCM;450.2///^S X=PRCD K PRCYMD,PRCY,PRCM,PRCD;452.31///^S X="""";452.32///^S X="""";452.33///^S X="""";452.34///^S X="""";452.35;452.36;452.37;"
^DIE(379,"DR",1,2100,17)="452.38;452.39;452.4///^S X="""";452.41///^S X="""";421.3///^S X=""~"";420.4///^S X=""TO4"";W !;"
^DIE(379,"DR",1,2100,18)="S DIR(0)=""Y"",DIR(""B"")=""Yes"",DIR(""A"")=""Do you want to enter Travel Order with ADVANCE "" D ^DIR S TO5=Y S Y=$S(Y=0:""@5"",Y=1:""@4"",$D(DIRUT):""@99"",1:""@99"");@4;452.42;452.43;452.48///^S X="""";452.49///^S X="""";452.5///^S X="""";452.62;"
^DIE(379,"DR",1,2100,19)="452.71;452.72;452.73;452.63;452.44;450.52//^S X=""Y"";450.5//^S X=""N"";452.6;450.48///^S X="""";452.51///^S X="""";452.52///^S X="""";450.51///^S X="""";452.59///^S X="""";452.64;452.65;@5;421.4///^S X=""~"";420.5///^S X=""TO5"";I TO5=0 S Y=""@6"";"
^DIE(379,"DR",1,2100,20)="452.47///^S X="""";452.53///^S X="""";452.54///^S X="""";452.55///^S X="""";452.56///^S X="""";452.57///^S X="""";452.66///^S X="""";452.67;452.68;452.69///^S X="""";452.7///^S X="""";450.53///^S X="""";450.54///^S X="""";450.32;452.14///^S X="""";"
^DIE(379,"DR",1,2100,21)="452.22///^S X="""";452.23///^S X="""";@6;421.5///^S X=""~"";500;S Y="""";@99;K PRCPROJ,PRCFUND,PRCFCP,PRCJOB,PRCADV,PRCAMT,PRCPRLG,PRCFYB,PRCFYE,PRCDEFLT,PRCTBFLT,PRCTEFLT,PRCSPAY,PRCTOT;"
^DIE(379,"DR",2,2100.02)="420///^S X=""LIN"";421///^S X=""~"";420.1///^S X=""TOA"";.01;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",1)="""" $P(^(""TVA""),""^"",1)=PRCFUND;S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",2)="""" $P(^(""TVA""),""^"",2)=GECS(""SITE"");"
^DIE(379,"DR",2,2100.02,1)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",7)="""" $P(^(""TVA""),""^"",7,8)=$E(PRCFYB,3,4)_""^""_$E(PRCFYE,3,4);S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",11)="""" $P(^(""TVA""),""^"",11)=PRCJOB;"
^DIE(379,"DR",2,2100.02,2)="S:$P($G(^GECS(2100,DA(1),""FMSLIN"",DA,""TVA"")),""^"",12)="""" $P(^(""TVA""),""^"",12)=PRCPROJ;QUIT;50.01;50.07;50.08;50.02;50.03///^S X="""";50.06;50.09;50.1///^S X="""";50.11;50.12;50.14///^S X="""";52.12;52.13;50.04;50.05;50.4;50.42;50.43;"
^DIE(379,"DR",2,2100.02,3)="50.44///^S X="""";421.1///^S X=""~"";"
^DIE(381,0)="ENFA XFR^2970327.1013^^6915.6^^^2970710"
^DIE(381,"DR",1,6915.6)="101//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),62);102//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),63);103//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),35);104//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),61);105//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),19);"
^DIE(382,0)="ENFA CHANGE EN^2960304.1715^^6915.4^3^^2960424"
^DIE(382,"DR",1,6915.4)="@0;27//00;I X=""00"" S Y=""@999"";I '$D(^ENG(6915.3,""ABTR"",ENEQ(""DA""),X)) D SHOW^ENFACHG1 K X S Y=""@0"";S ENFB(""DA"")=$O(^ENG(6915.3,""ABTR"",ENEQ(""DA""),X,0));"
^DIE(382,"DR",1,6915.4,1)="I $P($G(^ENG(6915.3,ENFB(""DA""),0)),U,2)<$P($G(^ENG(6915.2,ENFA(""DA""),0)),U,2) D SHOW^ENFACHG1 K X,ENFB(""DA"") S Y=""@0"";104////^S X=ENFB(""DA"");@999;"
^DIE(383,0)="ENFA CHANGE FB^2960326.0845^^6915.4^3^^2960424"
^DIE(383,"DIAB",5,0,6915.4,0)="40//^S X=$P(^ENG(6915.3,ENFB(""DA""),200),U);""BETTERMENT VALUE"""
^DIE(383,"DR",1,6915.4)="30//^S X=$P(^ENG(6915.3,ENFB(""DA""),200),U,2);S ENX=$P(^ENG(6915.3,ENFB(""DA""),200),U,3);105//^S X=ENX;34//^S X=$P(^ENG(6915.3,ENFB(""DA""),200),U,4);40BETTERMENT VALUE~//^S X=$P(^ENG(6915.3,ENFB(""DA""),200),U);K ENX;"
^DIE(384,0)="ENFA CHANGE FA^2970327.1313^^6915.4^^^2970721"
^DIE(384,"DR",1,6915.4)="100//^S X=$$GET1^DIQ(6914,ENEQ(""DA""),18);S ENX=$S($P(ENEQ(2),U,4)]"""":$P(ENEQ(2),U,4),1:"""");105//^S X=ENX;34//^S X=$P(ENEQ(3),U,4);37//^S X=$P(ENEQ(2),U,6);40//^S X=$P(^ENG(6915.2,ENFA(""DA""),200),U);"
^DIE(384,"DR",1,6915.4,1)="S ENX=$S($P(ENEQ(2),U,10)]"""":$P(ENEQ(2),U,10),1:"""");106//^S X=ENX;K ENX;"
^DIE(385,0)="HL MESSAGING PROTOCOL EDIT^2950523.1421^^101^^^^"
^DIE(385,"DIAB",1,0,101,1)="770.2;""CLIENT APPLICATION"";REQ"
^DIE(385,"DIAB",1,1,101.01,0)="ALL"
^DIE(385,"DIAB",2,0,101,0)="1;""TEXT"""
^DIE(385,"DIAB",2,0,101,1)="770.3;REQ"
^DIE(385,"DIAB",4,0,101,1)="770.4;REQ"
^DIE(385,"DIAB",7,0,101,1)="770.95;REQ"
^DIE(385,"DIAB",8,0,101,0)="770.1;REQ"
^DIE(385,"DIAB",9,0,101,0)="770.3;REQ"
^DIE(385,"DIAB",11,0,101,0)="770.4;REQ"
^DIE(385,"DIAB",14,0,101,0)="770.8;""ACCEPT ACKNOWLEDGEMENT"""
^DIE(385,"DIAB",14,0,101,1)="771;""PROCESS ROUTINE"";REQ"
^DIE(385,"DIAB",15,0,101,0)="770.9;""APPLICATION ACKNOWLEDGEMENT"""
^DIE(385,"DIAB",16,0,101,0)="770.95;REQ"
^DIE(385,"DIAB",19,0,101,0)="772;""PROCESS ACK ROUTINE"""
^DIE(385,"DIAB",20,0,101,0)="10;""SUBSCRIBER"""
^DIE(385,"DR",1,101)=".01;1TEXT~;12;3.5;4;S Y=$S(X=""E"":""@1"",X=""S"":""@2"",1:""@3"");@1;770.1R~;770.3R~;770.11;770.4R~;770.5;770.6;770.8ACCEPT ACKNOWLEDGEMENT~;770.9APPLICATION ACKNOWLEDGEMENT~;770.95R~;20;15;772PROCESS ACK ROUTINE~;10SUBSCRIBER~;S Y=""@3"";@2;"
^DIE(385,"DR",1,101,1)="770.2R~CLIENT APPLICATION~;770.3R~;770.11;770.4R~;770.5;770.7;770.95R~;773.1;773.2;773.3;773.4;20;15;771R~PROCESS ROUTINE~;@3;"
^DIE(385,"DR",2,101.01)=".01:14"
^DIE(386,0)="HL 1.6 APPLICATION PARAM EDIT^2941121.085^^771^^^^"
^DIE(386,"DR",1,771)=".01;2;3;7;100;101;"
^DIE(387,0)="HL TCP/IP ENTER^2950731.1609^^869.2^^^^"
^DIE(387,"DR",1,869.2)="400.01;400.02;200.03;200.04;200.06;200.07;"
^DIE(388,0)="OR EDIT^2890228^^100.98^^^^"
^DIE(388,"DR",1,100.98)=".01;3;"
^DIE(389,0)="OR MEMBER^2890131^^100.98^^^^"
^DIE(389,"DIAB",1,1,100.981,0)="ALL"
^DIE(389,"DR",1,100.98)="1;"
^DIE(389,"DR",2,100.981)=".01"
^DIE(390,0)="OR EDIT PROTOCOL^2890310^^101^^^^"
^DIE(390,"DR",1,101)=".01;1;4//O;12;20;"
^DIE(391,0)="OR EDIT PACKAGE^2910418.113^^100.99^^^^"
^DIE(391,"DIAB",1,2,100.9951,0)="ALL"
^DIE(391,"DIAB",1,2,100.9955,0)="ALL"
^DIE(391,"DR",1,100.99)="Q;5;"
^DIE(391,"DR",2,100.995)="1.1;1.2;1.3;2;3;4;5;10;15;"
^DIE(391,"DR",3,100.9951)=".01:1"
^DIE(391,"DR",3,100.9955)=".01:.03"
^DIE(391,"DR",4,100.99511)=".01"
^DIE(392,0)="OR EDIT MENU^2890211^^101^^^^"
^DIE(392,"DR",1,101)=".01;1;4//Q;12;20;15;10;"
^DIE(392,"DR",2,101.01)=".01;2;3;"
^DIE(393,0)="OR PROFILE^2890211^^101^^^^"
^DIE(393,"DR",1,101)=".01;1;4//A;12;20;15;"
^DIE(394,0)="OR ADV MENU^2890522.1453^^101^^^^"
^DIE(394,"DIAB",1,1,101.021,0)="ALL"
^DIE(394,"DR",1,101)=".01;1;4//Q;12;20;15;10;41;42//5;24;27;28;29;21;"
^DIE(394,"DR",2,101.01)=".01;2;3;"
^DIE(394,"DR",2,101.021)=".01"
^DIE(395,0)="OR PRINT FORMAT EDIT^2980818.1519^^100.23^^^2990519"
^DIE(395,"DR",1,100.23)=".01;1;.02;K ORTYPE;.04;.05;"
^DIE(395,"DR",2,100.231)=".01;S ORTYPE=X;.02;.03;S:$P(^ORD(100.22,ORTYPE,0),""^"")[""FREE"" Y=""@1"";.04;.07;S Y=$S($L($P(^ORD(100.22,ORTYPE,0),""^"",5)):""@2"",1:""@3"");@1;.05;S Y=""@3"";@2;.06;@3;"
^DIE(396,0)="ORCL PARAMETER EDIT^2970729.1128^^100.99^^^2970729"
^DIE(396,"DR",1,100.99)="6;7;8;9;11;12;21;27;26;28;29;25;20;19;22;23;24;32;34;35;36;37;38;39;18;"
^DIE(396,"DR",2,100.9901)=".03;.04;.07;.06;.08;.05;1;"
^DIE(396,"DR",2,100.9925)=".01;.03;.04;.07;.05;.08;.06;.09;1;1.1;"
^DIE(396,"DR",3,100.99011)=".01;.02;"
^DIE(397,0)="OR ACTIVATE ITEMS^2911011.0849^^101^^^^"
^DIE(397,"DR",1,101)="10;"
^DIE(397,"DR",2,101.01)=".01;6;"
^DIE(398,0)="ORCL PROTOCOL MENU^2920128.1101^^101^^^^"
^DIE(398,"DR",1,101)="3.5;4;10;41;"
^DIE(398,"DR",2,101.01)=".01;2;3;"
^DIE(399,0)="ORCL ADV MENU EDIT^2920205.1544^^101^^^^"
^DIE(399,"DR",1,101)=".01;1;3.5;4;12;43;28;29;27;24;20;26;15;"
^DIE(400,0)="GMTS EDIT HLTH SUM TYPE^3070327.1407^^142^^^3070925"
^DIE(400,"DIAB",5,0,142,0)="SUPPRESS COMP WITHOUT DATA;T"
^DIE(400,"DR",1,142)="I '$D(GMTSNEW) S GMTSNEW=0;I GMTSNEW,'GMTSMGR S Y=""@1"";.01;.02;.08T~;100;I 'GMTSMGR S Y=0;.05;.06;S Y=0;@1;.06////^S X=DUZ;S Y=.01;"
^DIE(401,0)="GMTS DELETE HLTH SUM TYPE^2951004.0749^^142^^^3021106"
^DIE(401,"DR",1,142)="S GMTSMGR=$S($D(^XUSEC(""GMTSMGR"",DUZ)):1,1:0);I 'GMTSMGR S %=$P(^GMT(142,DA,0),U,2) I %]"""",$D(^XUSEC(%,DUZ))[0 W !,$C(7),""The ""_$P(^GMT(142,DA,0),U)_"" summary type is currently locked to prevent deletion."",! S Y=0;"
^DIE(401,"DR",1,142,1)="S %=+$P(^GMT(142,DA,0),U,3) I 'GMTSMGR,%'=DUZ W !,$C(7),""You may only delete summary types for which you are the owner."",! S Y=0;"
^DIE(401,"DR",1,142,2)="I $P(^GMT(142,DA,0),U)=""GMTS HS ADHOC OPTION"" W !,$C(7),""GMTS HS ADHOC OPTION Summary may NOT be deleted."",! S Y=0;W !,""Are you sure you want to delete the ""_$P(^GMT(142,DA,0),U)_"" Health Summary Type"";S %=2;D YN^DICN;"
^DIE(401,"DR",1,142,3)="I %'=1 W !,""Nothing Deleted!"" S Y=0;W !,""Health Summary Type ""_$P(^GMT(142,DA,0),U)_"" Deleted!"";.01///@;"
^DIE(402,0)="VALM ADD/EDIT LIST TEMPLATE^2921122.2124^^409.61^^^^"
^DIE(402,"DIAB",1,1,409.621,0)="ALL"
^DIE(402,"DR",1,409.61)="W !,""Demographic Parameters:"";W !,""-----------------------"";.01;.11;.09;.02;.1;.16;W !!,""List Region Parameters:"";W !,""-----------------------"";.05;.06;.04;200;W !!,""Code Parameters:"";W !,""----------------"";100;106;105;103;102;"
^DIE(402,"DR",1,409.61,1)="W !!,""Other Parameters:"";W !,""-----------------"";.12;.07;.08;.13;107;.14;"
^DIE(402,"DR",2,409.621)=".01:.06"
^DIE(403,0)="VALM DEMOGRAPHICS EDIT^2921214.1044^^409.61^^^^"
^DIE(403,"DR",1,409.61)=".01;.09;.11;"
^DIE(404,0)="VALM LIST REGION EDIT^2921214.1138^^409.61^^^^"
^DIE(404,"DR",1,409.61)=".05;.06;.04;"
^DIE(405,0)="VALM PROTOCOL INFORMATION^2921214.1045^^409.61^^^^"
^DIE(405,"DR",1,409.61)=".02;.1;1.01;1.02;"
^DIE(406,0)="VALM OTHER FIELDS^2930331.2112^^409.61^^^^"
^DIE(406,"DR",1,409.61)=".07;.08;.12;.13;.14;"
^DIE(407,0)="VALM MUMPS CODE EDIT^2930107.0932^^409.61^^^^"
^DIE(407,"DR",1,409.61)="100;106;105;102;103;107;"
^DIE(408,0)="VALM CAPTION EDIT^2921214.1047^^409.61^^^^"
^DIE(408,"DR",1,409.61)="200;"
^DIE(408,"DR",2,409.621)=".01;.02;.03;.04;.05;.06;"
^DIE(409,0)="VALM PROTOCOL EDIT^2921217.1425^^101^^^^"
^DIE(409,"DIAB",1,1,101.01,0)="ALL"
^DIE(409,"DR",1,101)=".01;12;1;4;20;15;10;26;28;41;42;"
^DIE(409,"DR",2,101.01)=".01:4"
^DIE(410,0)="VALM NEW ENTRY DEFAULTS^2930401.0823^^409.61^^^^"
^DIE(410,"DR",1,409.61)=".02////^S X=2;.04////^S X=80;.05////^S X=5;.06////^S X=14;.07////^S X=0;.08////^S X=1;.11////^S X=$P(^SD(409.61,DA,0),U);.12////^S X=1;.14////^S X=1;1.02////^S X=""VALM HIDDEN ACTIONS"";100////^S X=""D HDR^""_VALMROU;"
^DIE(410,"DR",1,409.61,1)="103////^S X=""D HELP^""_VALMROU;105////^S X=""D EXIT^""_VALMROU;106////^S X=""D INIT^""_VALMROU;"
^DIE(411,0)="GMRC SETUP REQUEST SERVICE^3080219.1055^^123.5^^^3080501"
^DIE(411,"DIAB",1,1,123.51,0)="ALL"
^DIE(411,"DIAB",1,1,123.5134,0)="ALL"
^DIE(411,"DIAB",1,1,123.52,0)="ALL"
^DIE(411,"DIAB",1,1,123.53,0)="ALL"
^DIE(411,"DIAB",1,1,123.54,0)="ALL"
^DIE(411,"DIAB",1,1,123.555,0)="ALL"
^DIE(411,"DIAB",1,1,123.57,0)="ALL"
^DIE(411,"DIAB",1,1,123.58,0)="ALL"
^DIE(411,"DIAB",1,1,123.59,0)="ALL"
^DIE(411,"DIAB",3,0,123.5,3)="PRINT NAME;""ABBREVIATED PRINT NAME (Optional)~"""
^DIE(411,"DR",1,123.5)="I '$D(GMRCSAFE) D EN^DDIOL(""Editing of this file should only be done via the Setup Request Services option."") S Y="""";"
^DIE(411,"DR",1,123.5,1)="I $O(^GMR(123.5,DA,""IFCS"",0)) D EN^DDIOL(""Service is configured to receive inter-facility consults from another facility."","""",""!!"");"
^DIE(411,"DR",1,123.5,2)="I $O(^GMR(123.5,DA,""IFCS"",0)) D EN^DDIOL(""Editing of the SERVICE NAME may disrupt inter-facility consult operations."","""",""!"");D EN^DDIOL("" "") I $G(GMRCSAFE) S Y=123.01;S:$P(^GMR(123.5,DA,0),U)=""SUICIDE HOTLINE"" Y=""@1"";.01;@1;"
^DIE(411,"DR",1,123.5,3)="123.01///^S X=""CONSULTS"";I $G(GMRCSAFE) S Y=1.1;1.11ABBREVIATED PRINT NAME (Optional)~~;11;1.1;123.03///^S X=""GMRCACTM SERVICE ACTION MENU"";2;123.09;1.04;1.05;125;I $G(GMRCSAFE) S Y=123.08;1.01;1.02;124;1.03;D EN^DDIOL("" "");"
^DIE(411,"DR",1,123.5,4)="D EN^DDIOL(""Inter-facility information"");I $O(^GMR(123.5,DA,""IFCS"",0)) D EN^DDIOL("" "") S Y=134;132;133;I +$G(^GMR(123.5,DA,""IFC"")) D EN^DDIOL("" "") S Y=123.08;134;D EN^DDIOL("" "");123.08;123.1;123.2;.08;123.3;123.31;123.35;123.33;"
^DIE(411,"DR",1,123.5,5)="123.34;.07;D EN^DDIOL("" "");123.5;1.06;.06;10;S:$P(^GMR(123.5,DA,0),U)=""ALL SERVICES""!($P(^GMR(123.5,DA,0),U)=""SUICIDE HOTLINE"") Y=0;150;"
^DIE(411,"DR",2,123.51)=".01:2"
^DIE(411,"DR",2,123.5134)=".01"
^DIE(411,"DR",2,123.52)=".01"
^DIE(411,"DR",2,123.53)=".01"
^DIE(411,"DR",2,123.54)=".01:2"
^DIE(411,"DR",2,123.55)=".01;"
^DIE(411,"DR",2,123.555)=".01:.02"
^DIE(411,"DR",2,123.57)=".01"
^DIE(411,"DR",2,123.58)=".01:.02"
^DIE(411,"DR",2,123.59)=".01"
^DIE(412,0)="GMRC SERVICE USER MGMT^2991129.0842^^123.5^^^2991129"
^DIE(412,"DIAB",1,1,123.53,0)="ALL"
^DIE(412,"DIAB",1,1,123.54,0)="ALL"
^DIE(412,"DIAB",1,1,123.55,0)="ALL"
^DIE(412,"DIAB",1,1,123.555,0)="ALL"
^DIE(412,"DIAB",1,1,123.57,0)="ALL"
^DIE(412,"DIAB",1,1,123.58,0)="ALL"
^DIE(412,"DIAB",1,1,123.59,0)="ALL"
^DIE(412,"DR",1,123.5)="123.08;123.1;123.2;D EN^DDIOL("" "");123.3;123.31;123.35;123.33;123.34;123.5;"
^DIE(412,"DR",2,123.53)=".01"
^DIE(412,"DR",2,123.54)=".01:2"
^DIE(412,"DR",2,123.55)=".01"
^DIE(412,"DR",2,123.555)=".01:.02"
^DIE(412,"DR",2,123.57)=".01"
^DIE(412,"DR",2,123.58)=".01:.02"
^DIE(412,"DR",2,123.59)=".01"
^DIE(413,0)="DG EMPLOYER^2840824^^2^^^^"
^DIE(413,"DR",1,2)=".3111;S:X="""" Y="""";.3112;.3113;S:X="""" Y=.3116;.3114;S:X="""" Y=.3116;.3115;.3116;.3117;.3119;"
^DIE(414,0)="DGREG^2930708.1711^^2^^^^"
^DIE(414,"DR",1,2)="1000///^S X=DFN1;"
^DIE(414,"DR",2,2.101)="4////^S X=DUZ;I '$D(^DPT(DFN,.36)) S Y=23;I $P(^DPT(DFN,.36),U,2) S Y=23;I $S($D(^DIC(8,+^DPT(DFN,.36),0)):$P(^(0),U,9),1:0)'=5 S Y=23;23;I ""NU""[X S Y=20;24:32;S:X="""" Y=34;33;34;35;38;37;10;20;I ""UN""[X S Y="""";21;S:X=""N"" Y="""";22;"
^DIE(415,0)="DGREGE^2930609.1625^^2^^^^"
^DIE(415,"DR",1,2)="1000///^S X=DFN1;"
^DIE(415,"DR",2,2.101)="1;2;2.1;13;I '$O(^DG(40.8,+$O(^DG(40.8,0)))) S Y=""@1"";3;@1;S:'$P(^DPT(DA(1),""DIS"",DA,0),U,6) Y=""@2"";5;6;@2;S DFN=DA(1) I '$D(^DPT(DFN,.36)) S Y=23;I $P(^DPT(DFN,.36),U,2) S Y=23;"
^DIE(415,"DR",2,2.101,1)="I $S($D(^DIC(8,+$P(^DPT(DFN,.36),U,1),0)):$P(^(0),U,9),1:0)'=5 S Y=23;23;I ""NU""[X S Y=20;24:32;S:X="""" Y=34;33;34;35;38;37;10;20;I ""UN""[X S Y="""";21;S:X=""N"" Y="""";22;S Y=0;"
^DIE(416,0)="DGREGEO^2930708.1712^^2^^^^"
^DIE(416,"DR",1,2)="1000///^S X=DFN1;"
^DIE(416,"DR",2,2.101)="1;2;2.1;13;I '$O(^DG(40.8,+$O(^DG(40.8,0)))) S Y=""@1"";3;@1;S DFN=DA(1) I '$D(^DPT(DFN,.36)) S Y=23;I $P(^DPT(DFN,.36),U,2) S Y=23;I $S($D(^DIC(8,+$P(^DPT(DFN,.36),U,1),0)):$P(^(0),U,9),1:0)'=5 S Y=23;23;I ""NU""[X S Y=20;24:32;"
^DIE(416,"DR",2,2.101,1)="S:X="""" Y=34;33;34;35;38;37;10;20;I ""UN""[X S Y="""";21;S:X=""N"" Y="""";22;S Y=0;"
^DIE(417,0)="FBAA ADDRESS EDIT^2930722.1216^^2^705^^2950118"
^DIE(417,"DR",1,2)=".111;.112;S:X="""" Y=.114;.113;.114;.115;I +$G(^DG(43,1,""VERSION""))<5.3 S Y=.116;.1112;S Y=.117;.116;.117;"
^DIE(418,0)="DGCOLLATERAL^2901009.1129^^2^^^^"
^DIE(418,"%D",0)="^^1^1^2870520^"
^DIE(418,"%D",1,0)="This template is the collateral patient registration template."
^DIE(418,"DR",1,2)="S DIE(""NO^"")="""";.01;.03;.09;I $D(^DPT(DFN,.36)),+$P(^(.36),""^"",11)>0 S Y=.3601;1901;I X'=""N"" S Y=""@99"";.361;I $S('$D(^DIC(8,+X,0)):1,$P(^DIC(8,+X,0),""^"",9)'=13:1,1:0) S Y=""@99"";.323;"
^DIE(418,"DR",1,2,1)="I $S('$D(^DIC(21,+X,0)):1,$P(^DIC(21,+X,0),""^"",1)'[""OTHER NON-VET"":1,1:0) S Y=""@99"";.3601;I X]"""" S Y=""@1"";@99;W !!,""PATIENT CANNOT BE A COLLATERAL!!"",*7 S DGNOCOL=1;@1;"
^DIE(418,"DR",1,2,2)="K DIE(""NO^"") I 'DGNOCOL,$D(^DPT(DFN,.36)) S DGCOLV=+$P(^(.36),""^"",11);"
^DIE(419,0)="DG PATIENT TYPE^2920505.0953^^391^^^^"
^DIE(419,"DIAB",8,0,391,0)="74;""ON SCREEN 7 (ELIGIBILITY STATUS DATA), EDIT SC CONDITIONS PER PATIENT?"""
^DIE(419,"DR",1,391)=".01;.05;.02;.04;3;S:'X Y=6;6;74ON SCREEN 7 (ELIGIBILITY STATUS DATA), EDIT SC CONDITIONS PER PATIENT?~;8;9;10;S:'X Y=11;101:102;11;I $S('$D(DUZ(0)):1,DUZ(0)'=""@"":1,1:0) S Y=0;200;"
^DIE(420,0)="DG LOAD EDIT SCREEN 7^2930419.1826^^2^^^3000627"
^DIE(420,"%D",0)="^^1^1^2960425^^^^"
^DIE(420,"%D",1,0)="This template is used to enter/edit data on registration screen 7."
^DIE(420,"AB","16^DGRPX710",.01)="1^DGRPX713"
^DIE(420,"AB","16^DGRPX710",.02)="2^DGRPX713"
^DIE(420,"AB","9^DGRPX710",.01)="1^DGRPX711"
^DIE(420,"AB","^",.291)="4^DGRPX73"
^DIE(420,"AB","^",.292)="3^DGRPX73"
^DIE(420,"AB","^",.293)="1^DGRPX73"
^DIE(420,"AB","^",.301)="5^DGRPX7"
^DIE(420,"AB","^",.3012)="10^DGRPX7"
^DIE(420,"AB","^",.302)="7^DGRPX7"
^DIE(420,"AB","^",.3025)="12^DGRPX73"
^DIE(420,"AB","^",.304)="8^DGRPX7"
^DIE(420,"AB","^",.305)="9^DGRPX7"
^DIE(420,"AB","^",.309)="8^DGRPX710"
^DIE(420,"AB","^",.313)="5^DGRPX73"
^DIE(420,"AB","^",.314)="6^DGRPX73"
^DIE(420,"AB","^",.323)="10^DGRPX710"
^DIE(420,"AB","^",.361)="6^DGRPX710"
^DIE(420,"AB","^",.36205)="9^DGRPX73"
^DIE(420,"AB","^",.36215)="10^DGRPX73"
^DIE(420,"AB","^",.36235)="11^DGRPX73"
^DIE(420,"AB","^",.3626)="3^DGRPX710"
^DIE(420,"AB","^",.36265)="1^DGRPX710"
^DIE(420,"AB","^",.36295)="14^DGRPX73"
^DIE(420,"AB","^",.3731)="16^DGRPX710"
^DIE(420,"AB","^",361)="9^DGRPX710"
^DIE(420,"AB","^",391)="2^DGRPX7"
^DIE(420,"AB","^",1901)="4^DGRPX7"
^DIE(420,"AB","^",11500.02)="12^DGRPX710"
^DIE(420,"AB","^",11500.03)="13^DGRPX710"
^DIE(420,"AB","^","@702")="7^DGRPX73"
^DIE(420,"AB","^","@703")="4^DGRPX710"
^DIE(420,"AB","^","@704")="14^DGRPX710"
^DIE(420,"AB","^","@99")="17^DGRPX710"
^DIE(420,"DIAB",1,1,2.05,0)="ALL"
^DIE(420,"DR",1,2)="S:DGDR'[""701"" Y=""@702"";391;D SC7^DGRPV;1901;.301;S:X'=""Y"" Y=.293;.302;.304;.305;.3012;.293;S:'X Y=.313;.292;.291;.313;.314;@702;S:DGDR'[""702"" Y=""@703"";.36205;.36215;.36235;.3025;"
^DIE(420,"DR",1,2,1)="S:(X'=""Y"")&($P($G(^DPT(DA,.362)),U,12,14)'[""Y"") Y=.36265;.36295;.36265;S:X'=""Y"" Y=""@703"";.3626;@703;S:DGDR'[""703"" Y=""@704"";.361;D AAC1^DGLOCK2 S:DGAAC(1)']"""" Y=361;.309;361;.323;D ^DGYZODS S:'DGODS Y=""@704"";11500.02;11500.03;@704;"
^DIE(420,"DR",1,2,2)="S:DGDR'[""704"" Y=""@99"";.3731;@99;"
^DIE(420,"DR",2,2.0361)=".01;"
^DIE(420,"DR",2,2.05)=".01:.02"
^DIE(420,"ROU")="^DGRPX7"
^DIE(420,"ROUOLD")="DGRPX7"
^DIE(421,0)="DG CONSISTENCY CHECKER^2910122.1107^^2^^^^"
^DIE(421,"%D",0)="^^2^2^2910122^"
^DIE(421,"%D",1,0)="This template is used when editing the eligibility data via the consistency"
^DIE(421,"%D",2,0)="checker to prevent store errors at ISM sites."
^DIE(421,"AB","^",.309)="4^DGRPXC"
^DIE(421,"AB","^",.323)="5^DGRPXC"
^DIE(421,"AB","^",.361)="1^DGRPXC"
^DIE(421,"AB","^",11500.02)="7^DGRPXC"
^DIE(421,"AB","^",11500.03)="8^DGRPXC"
^DIE(421,"DR",1,2)=".361;S DGECODE=$S($D(^DIC(8,+X,0)):$P(^(0),""^"",9),1:"""");S:$S(DGECODE=7:0,DGECODE=6:0,1:1) Y=.323;.309;.323;D ^DGYZODS S:'DGODS Y="""";11500.02;11500.03;"
^DIE(421,"ROU")="^DGRPXC"
^DIE(421,"ROUOLD")="DGRPXC"
^DIE(422,0)="DGRP COLLATERAL REGISTER^2910201.0911^^2^^^2990614^"
^DIE(422,"AB","^",.323)="3^DGRPXR"
^DIE(422,"AB","^",.323,"///")=""
^DIE(422,"AB","^",.361)="2^DGRPXR"
^DIE(422,"AB","^",.361,"///")=""
^DIE(422,"AB","^",1901)="1^DGRPXR"
^DIE(422,"AB","^",1901,"///")=""
^DIE(422,"DR",1,2)="1901///^S X=""N"";.361////^S X=DGRPX;.323///^S X=""OTHER NON-VETERANS"";"
^DIE(422,"ROU")="^DGRPXR"
^DIE(422,"ROUOLD")="DGRPXR"
^DIE(423,0)="DGWARD^2990708.1156^^42^^^3000612"
^DIE(423,"DIAB",1,1,42.01,0)="ALL"
^DIE(423,"DIAB",1,1,42.09,0)="ALL"
^DIE(423,"DIAB",6,0,42,0)="HOSPITAL LOCATION:"
^DIE(423,"DR",1,42)=".01;Q;.04;.015;S DGWDDIV=X;^44^SC(^^S I(0,0)=D0 S Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");.02;.017;.03;.15;.035;100;.09;1;400;401;"
^DIE(423,"DR",2,42.01)=".01"
^DIE(423,"DR",2,42.05)=".01;2.5;S:+X=0 Y=0;4;"
^DIE(423,"DR",2,42.09)=".01:2"
^DIE(423,"DR",2,44)="Q;3.5///^S X=DGWDDIV;3;1;"
^DIE(424,0)="DGPAR^2860522^^43^^^^"
^DIE(424,"DIAB",22,0,43,0)="20:MEDICAL CENTER DIVISION:"
^DIE(424,"DR",1,43)="3;4;5;5.5;6;8;9;10;11;S SDMD=X;S DGIND=1;12;S DFN1=X;13;14;15;16;17;18;19;20;^40.8^DG(40.8,^^X DR(99,1,9.3) S X=$P(Y(101),U,1) S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(424,"DR",2,40.8)="3;"
^DIE(424,"DR",2,43.01)=".01;2;3;6;7;8;9;"
^DIE(424,"DR",99,1,9.2)="F D=0:0 S (D,D1)=$N(^DG(43,D0,""GL1"",D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^DG(40.8,+X,0)) X=$P(^(0),U,1) 1 Q:'$D(D)  S D=D1"
^DIE(424,"DR",99,1,9.3)="S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2):D0>0 S X="""" K DIC S DIC=""^DG(40.8,"",DIC(0)=""NMFLE"" D ^DIC S (D,D0,D(0))=+Y S Y(101)=$S($D(^DG(40.8,D0,0)):^(0),1:"""")"
^DIE(425,0)="DGWIN^2860620^^42^^^^"
^DIE(425,"DIAB",1,0,42,0)="NAME:CENSUS:"
^DIE(425,"DR",1,42)="^41.9^DG(41.9,^^X DR(99,1,9.2) S Y(101)=$S($D(^DG(41.9,D0,0)):^(0),1:"""") S X=$S('$D(^DIC(42,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(425,"DR",2,41.9)="S:'$D(^DG(41.9,DA,""C"",0)) ^(0)=""^41.91DA^1^1"" S:'$D(^DG(41.9,DA,""C"",DGEGL,0)) ^(0)=DGEGL;1///^S X=DGEGL;"
^DIE(425,"DR",3,41.91)="1;2;3;5;6;7;8;9;10:27;101;"
^DIE(425,"DR",99,1,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^DG(41.9,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,D(0))=+Y"
^DIE(426,0)="DG101^3070215.0847^^45^^^3070215"
^DIE(426,"AB","18^DGPTX1",.05)="3^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.32101)="10^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.32102)="11^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.32103)="14^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.3212)="16^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.3213)="13^DGPTX11"
^DIE(426,"AB","18^DGPTX1",.525)="1^DGPTX19"
^DIE(426,"AB","18^DGPTX1",.526)="3^DGPTX19"
^DIE(426,"AB","18^DGPTX1",2)="5^DGPTX11"
^DIE(426,"AB","18^DGPTX1",6)="4^DGPTX11"
^DIE(426,"AB","18^DGPTX1",57.4)="6^DGPTX11"
^DIE(426,"AB","18^DGPTX1","@31")="8^DGPTX11"
^DIE(426,"AB","18^DGPTX1","@41")="6^DGPTX19"
^DIE(426,"AB","18^DGPTX1","@42")="4^DGPTX19"
^DIE(426,"AB","18^DGPTX1","@991")="8^DGPTX19"
^DIE(426,"AB","4^DGPTX11",.01)="1^DGPTX13"
^DIE(426,"AB","4^DGPTX11",.02)="3^DGPTX13"
^DIE(426,"AB","4^DGPTX11","@61")="4^DGPTX13"
^DIE(426,"AB","5^DGPTX11",.01)="1^DGPTX14"
^DIE(426,"AB","5^DGPTX11",.02)="3^DGPTX14"
^DIE(426,"AB","5^DGPTX11","@21")="4^DGPTX14"
^DIE(426,"AB","^",3)="4^DGPTX1"
^DIE(426,"AB","^",5)="5^DGPTX1"
^DIE(426,"AB","^",20)="6^DGPTX1"
^DIE(426,"AB","^",20.1)="10^DGPTX1"
^DIE(426,"AB","^",20.1,"///")=""
^DIE(426,"AB","^",21.1)="8^DGPTX1"
^DIE(426,"AB","^",21.2)="9^DGPTX1"
^DIE(426,"AB","^",22)="7^DGPTX1"
^DIE(426,"AB","^",23)="12^DGPTX1"
^DIE(426,"AB","^",73)="26^DGPTX1"
^DIE(426,"AB","^",74)="27^DGPTX1"
^DIE(426,"AB","^",75)="22^DGPTX1"
^DIE(426,"AB","^",76.1)="31^DGPTX1"
^DIE(426,"AB","^",76.2)="1^DGPTX12"
^DIE(426,"AB","^",77)="3^DGPTX12"
^DIE(426,"AB","^",78)="2^DGPTX12"
^DIE(426,"AB","^","@1")="2^DGPTX1"
^DIE(426,"AB","^","@10")="13^DGPTX1"
^DIE(426,"AB","^","@2")="15^DGPTX1"
^DIE(426,"AB","^","@3")="16^DGPTX1"
^DIE(426,"AB","^","@4")="17^DGPTX1"
^DIE(426,"AB","^","@5")="20^DGPTX1"
^DIE(426,"AB","^","@6")="24^DGPTX1"
^DIE(426,"AB","^","@7")="29^DGPTX1"
^DIE(426,"AB","^","@99")="4^DGPTX12"
^DIE(426,"DIAB",1,0,45,1)="PATIENT:"
^DIE(426,"DIAB",1,2,2.02,0)=".01;""RACE"""
^DIE(426,"DIAB",1,2,2.06,0)=".01;""ETHNICITY"""
^DIE(426,"DIAB",4,1,2,0)="6;""ETHNICITY"""
^DIE(426,"DIAB",5,1,2,0)="2;""RACE"""
^DIE(426,"DIAB",6,0,45,0)="SOURCE OF ADMISSION;REQ"
^DIE(426,"DR",1,45)="S:+DGJUMP'=1 Y=""@99"";@1;S DGJUMP=$P(DGJUMP,""1,"",2);3//^S X=$P($$SITE^VASITE,U,3);5;20R~;22;21.1;21.2;20.1////^S X=$$ELIG^DGUTL3(DFN,1,$P($G(^DGPT(DA,101)),U,8));I DGPTFMT>1 S Y=""@10"";23;@10;S:+DGJUMP'=2 Y=""@99"";@2;@3;@4;"
^DIE(426,"DR",1,45,1)="^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");S:+DGJUMP'=5 Y=""@99"";@5;S DGJUMP=$P(DGJUMP,""5,"",2);75;S:+DGJUMP'=6 Y=""@99"";@6;S DGJUMP=$P(DGJUMP,""6,"",2);73;74;"
^DIE(426,"DR",1,45,2)="S:DGJUMP'=7 Y=""@99"";@7;S DGJUMP=$P(DGJUMP,""7,"",2);76.1;76.2;78;77;@99;S:+DGJUMP Y=""@""_+DGJUMP;"
^DIE(426,"DR",2,2)="S:+DGJUMP'=2 Y=""@991"";S DGJUMP=$P(DGJUMP,""2,"",2);.05;6ETHNICITY~;2RACE~;57.4;S:+DGJUMP'=3 Y=""@991"";@31;S DGJUMP=$P(DGJUMP,""3,"",2);.32101;.32102;S:X'=""Y"" Y=.32103;.3213;.32103;S:X'=""Y"" Y=.525;.3212;.525;S:X'=""Y"" Y=""@42"";.526;@42;"
^DIE(426,"DR",2,2,1)="S:+DGJUMP'=4 Y=""@991"";@41;S DGJUMP=$P(DGJUMP,""4,"",2);@991;I +DGJUMP>2&(+DGJUMP<5) S Y=""@""_+DGJUMP_1;"
^DIE(426,"DR",3,2.02)=".01RACE~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.02,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@21"";.02;@21;"
^DIE(426,"DR",3,2.06)=".01ETHNICITY~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.06,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@61"";.02;@61;"
^DIE(426,"ROU")="^DGPTX1"
^DIE(426,"ROUOLD")="DGPTX1"
^DIE(427,0)="DG101F^3070215.0848^^45^^^3070215"
^DIE(427,"DIAB",1,0,45,1)="PATIENT:"
^DIE(427,"DIAB",1,2,2.02,0)=".01;""RACE"""
^DIE(427,"DIAB",1,2,2.06,0)=".01;""ETHNICITY"""
^DIE(427,"DIAB",4,1,2,0)="6;""ETHNICITY"""
^DIE(427,"DIAB",5,1,2,0)="2;""RACE"""
^DIE(427,"DIAB",6,0,45,0)="20;REQ"
^DIE(427,"DR",1,45)="S:+DGJUMP'=1 Y=""@99"";@1;S DGJUMP=$P(DGJUMP,""1,"",2);3//^S X=$P($$SITE^VASITE,U,3);5;20R~;22;21.1;21.2;20.1////^S X=$$ELIG^DGUTL3(DFN,1,$P($G(^DGPT(DA,101)),U,8));I DGPTFMT>1 S Y=""@10"";23;@10;S:+DGJUMP'=2 Y=""@99"";@2;@3;@4;"
^DIE(427,"DR",1,45,1)="^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");S:+DGJUMP'=5 Y=""@99"";@5;S DGJUMP=$P(DGJUMP,""5,"",2);70;71;72;72.1;75;10;S:+DGJUMP'=6 Y=""@99"";@6;"
^DIE(427,"DR",1,45,2)="S DGJUMP=$P(DGJUMP,""6,"",2);73;74;S:DGJUMP'=7 Y=""@99"";@7;S DGJUMP=$P(DGJUMP,""7,"",2);76.1;76.2;78;77;@99;S:+DGJUMP Y=""@""_+DGJUMP;"
^DIE(427,"DR",2,2)="S:+DGJUMP'=2 Y=""@991"";S DGJUMP=$P(DGJUMP,""2,"",2);.05;6ETHNICITY~;2RACE~;57.4;S:+DGJUMP'=3 Y=""@991"";@31;S DGJUMP=$P(DGJUMP,""3,"",2);.32101;.32102;S:X'=""Y"" Y=.32103;.3213;.32103;S:X'=""Y"" Y=.525;.3212;.525;S:X'=""Y"" Y=""@42"";.526;@42;"
^DIE(427,"DR",2,2,1)="S:+DGJUMP'=4 Y=""@991"";@41;S DGJUMP=$P(DGJUMP,""4,"",2);@991;I +DGJUMP>2&(+DGJUMP<5) S Y=""@""_+DGJUMP_1;"
^DIE(427,"DR",3,2.02)=".01RACE~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.02,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@21"";.02;@21;"
^DIE(427,"DR",3,2.06)=".01ETHNICITY~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.06,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@61"";.02;@61;"
^DIE(428,0)="DG401^3061024.1041^^45^^^3070726"
^DIE(428,"AB","1^DGPTX4",.01)="5^DGPTX41"
^DIE(428,"AB","1^DGPTX4",3)="6^DGPTX41"
^DIE(428,"AB","1^DGPTX4",4)="7^DGPTX41"
^DIE(428,"AB","1^DGPTX4",5)="8^DGPTX41"
^DIE(428,"AB","1^DGPTX4",6)="9^DGPTX41"
^DIE(428,"AB","1^DGPTX4",7)="10^DGPTX41"
^DIE(428,"AB","1^DGPTX4",8)="15^DGPTX41"
^DIE(428,"AB","1^DGPTX4",9)="20^DGPTX41"
^DIE(428,"AB","1^DGPTX4",10)="25^DGPTX41"
^DIE(428,"AB","1^DGPTX4",11)="1^DGPTX44"
^DIE(428,"AB","1^DGPTX4",12)="6^DGPTX44"
^DIE(428,"AB","1^DGPTX4",300.01)="13^DGPTX44"
^DIE(428,"AB","1^DGPTX4","@2")="12^DGPTX41"
^DIE(428,"AB","1^DGPTX4","@30")="17^DGPTX41"
^DIE(428,"AB","1^DGPTX4","@40")="22^DGPTX41"
^DIE(428,"AB","1^DGPTX4","@50")="27^DGPTX41"
^DIE(428,"AB","1^DGPTX4","@60")="3^DGPTX44"
^DIE(428,"AB","1^DGPTX4","@70")="8^DGPTX44"
^DIE(428,"AB","1^DGPTX4","@800")="10^DGPTX44"
^DIE(428,"AB","1^DGPTX4","@899")="14^DGPTX44"
^DIE(428,"AB","^",40)="1^DGPTX4"
^DIE(428,"AB","^",40,"///")=""
^DIE(428,"AR",45.01,422)="1^DGPTX45"
^DIE(428,"AR",45.01,423)="2^DGPTX45"
^DIE(428,"AR",45.01,424)="3^DGPTX45"
^DIE(428,"AR",45.01,425)="4^DGPTX45"
^DIE(428,"AR",45.01,426)="5^DGPTX45"
^DIE(428,"DR",1,45)="40///^S X=+DGSUR;"
^DIE(428,"DR",2,45.01)="K DGPTIT S DGHOLD=$S($D(^DGPT(DGPTF,""S"",DGSUR,0)):^(0),1:"""");S:'$D(DGADD) DGADD=0;S:DGADD Y=""@2"";S:DGJUMP'[1 (DGNFLD,Y)=""@2"";.01;3;4;5;6;7;S:DGJUMP'[2 Y=0;@2;S DGNFLD=""@30"";I DGADD,$P(DGHOLD,U,8)]"""" S Y=""@30"";8;"
^DIE(428,"DR",2,45.01,1)="I X K DGPTIT S DGNFLD=""@30"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@30;S DGNFLD=""@40"";I DGADD,$P(DGHOLD,U,9)]"""" S Y=""@40"";9;I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@40;S DGNFLD=""@50"";"
^DIE(428,"DR",2,45.01,2)="I DGADD,$P(DGHOLD,U,10)]"""" S Y=""@50"";10;I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@50;S DGNFLD=""@60"";I DGADD,$P(DGHOLD,U,11)]"""" S Y=""@60"";11;I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";"
^DIE(428,"DR",2,45.01,3)="@60;S DGNFLD=""@70"";I DGADD,$P(DGHOLD,U,12)]"""" S Y=""@70"";12;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@70;K DGNFLD S Y="""";@800;D SCAN^DGPTSCAN I '$D(DGBPC) S Y=""@899"";I '$D(DGBPC(1)) S Y=""@899"";300.01;@899;"
^DIE(428,"DR",2,45.01,4)="K DGPTIT S Y=DGNFLD;"
^DIE(428,"ROU")="^DGPTX4"
^DIE(428,"ROUOLD")="DGPTX4"
^DIE(429,0)="DG501F^3070622.1638^^45^^^3051214"
^DIE(429,"AB","4^DGX5F",2)="5^DGX5F1"
^DIE(429,"AB","4^DGX5F",3)="8^DGX5F1"
^DIE(429,"AB","4^DGX5F",4)="11^DGX5F1"
^DIE(429,"AB","4^DGX5F",5)="25^DGX5F1"
^DIE(429,"AB","4^DGX5F",6)="29^DGX5F1"
^DIE(429,"AB","4^DGX5F",7)="1^DGX5F4"
^DIE(429,"AB","4^DGX5F",8)="5^DGX5F4"
^DIE(429,"AB","4^DGX5F",9)="9^DGX5F4"
^DIE(429,"AB","4^DGX5F",10)="2^DGX5F1"
^DIE(429,"AB","4^DGX5F",18)="16^DGX5F1"
^DIE(429,"AB","4^DGX5F",18,"///")=""
^DIE(429,"AB","4^DGX5F",26)="30^DGX5F5"
^DIE(429,"AB","4^DGX5F",27)="36^DGX5F5"
^DIE(429,"AB","4^DGX5F",28)="1^DGX5F6"
^DIE(429,"AB","4^DGX5F",29)="7^DGX5F6"
^DIE(429,"AB","4^DGX5F",30)="13^DGX5F6"
^DIE(429,"AB","4^DGX5F",31)="24^DGX5F5"
^DIE(429,"AB","4^DGX5F",300.02)="16^DGX5F4"
^DIE(429,"AB","4^DGX5F",300.03)="20^DGX5F4"
^DIE(429,"AB","4^DGX5F",300.04)="1^DGX5F5"
^DIE(429,"AB","4^DGX5F",300.05)="9^DGX5F5"
^DIE(429,"AB","4^DGX5F",300.06)="13^DGX5F5"
^DIE(429,"AB","4^DGX5F",300.07)="17^DGX5F5"
^DIE(429,"AB","4^DGX5F","@10")="3^DGX5F1"
^DIE(429,"AB","4^DGX5F","@15")="6^DGX5F1"
^DIE(429,"AB","4^DGX5F","@16")="9^DGX5F1"
^DIE(429,"AB","4^DGX5F","@17")="12^DGX5F1"
^DIE(429,"AB","4^DGX5F","@2")="14^DGX5F1"
^DIE(429,"AB","4^DGX5F","@25")="18^DGX5F1"
^DIE(429,"AB","4^DGX5F","@27")="20^DGX5F1"
^DIE(429,"AB","4^DGX5F","@28")="23^DGX5F1"
^DIE(429,"AB","4^DGX5F","@30")="27^DGX5F1"
^DIE(429,"AB","4^DGX5F","@40")="31^DGX5F1"
^DIE(429,"AB","4^DGX5F","@50")="3^DGX5F4"
^DIE(429,"AB","4^DGX5F","@60")="7^DGX5F4"
^DIE(429,"AB","4^DGX5F","@70")="11^DGX5F4"
^DIE(429,"AB","4^DGX5F","@800")="13^DGX5F4"
^DIE(429,"AB","4^DGX5F","@820")="18^DGX5F4"
^DIE(429,"AB","4^DGX5F","@830")="22^DGX5F4"
^DIE(429,"AB","4^DGX5F","@835")="4^DGX5F5"
^DIE(429,"AB","4^DGX5F","@840")="7^DGX5F5"
^DIE(429,"AB","4^DGX5F","@850")="11^DGX5F5"
^DIE(429,"AB","4^DGX5F","@860")="15^DGX5F5"
^DIE(429,"AB","4^DGX5F","@899")="19^DGX5F5"
^DIE(429,"AB","4^DGX5F","@900")="21^DGX5F5"
^DIE(429,"AB","4^DGX5F","@904")="26^DGX5F5"
^DIE(429,"AB","4^DGX5F","@905")="28^DGX5F5"
^DIE(429,"AB","4^DGX5F","@910")="32^DGX5F5"
^DIE(429,"AB","4^DGX5F","@915")="34^DGX5F5"
^DIE(429,"AB","4^DGX5F","@920")="38^DGX5F5"
^DIE(429,"AB","4^DGX5F","@925")="40^DGX5F5"
^DIE(429,"AB","4^DGX5F","@930")="3^DGX5F6"
^DIE(429,"AB","4^DGX5F","@935")="5^DGX5F6"
^DIE(429,"AB","4^DGX5F","@940")="9^DGX5F6"
^DIE(429,"AB","4^DGX5F","@945")="11^DGX5F6"
^DIE(429,"AB","4^DGX5F","@950")="16^DGX5F6"
^DIE(429,"AB","4^DGX5F","@955")="18^DGX5F6"
^DIE(429,"AB","4^DGX5F","@999")="19^DGX5F6"
^DIE(429,"AB","^",50)="4^DGX5F"
^DIE(429,"AB","^",50,"///")=""
^DIE(429,"AR",45.02,447)="1^DGX5F7"
^DIE(429,"AR",45.02,448)="2^DGX5F7"
^DIE(429,"AR",45.02,449)="3^DGX5F7"
^DIE(429,"AR",45.02,450)="4^DGX5F7"
^DIE(429,"AR",45.02,451)="5^DGX5F7"
^DIE(429,"AR",45.02,452)="6^DGX5F7"
^DIE(429,"AR",45.02,453)="7^DGX5F7"
^DIE(429,"AR",45.02,454)="8^DGX5F7"
^DIE(429,"AR",45.02,455)="9^DGX5F7"
^DIE(429,"AR",45.02,456)="10^DGX5F7"
^DIE(429,"DIAB",1,1,45.02,1)="TREATED FOR SC CONDITION//NO;""WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?"""
^DIE(429,"DIAB",2,1,45.02,8)="EXPOSED TO ENVIR CONTAMINANTS;""WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?"""
^DIE(429,"DIAB",2,1,45.02,9)="TREATMENT FOR HEAD/NECK CA;""WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?"""
^DIE(429,"DIAB",4,1,45.02,7)="TREATED FOR AO CONDITION;""WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?"""
^DIE(429,"DIAB",8,1,45.02,8)="TREATMENT FOR MST;""WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?"""
^DIE(429,"DIAB",9,1,45.02,6)="POTENTIALLY RELATED TO COMBAT//YES;""WAS TREATMENT RELATED TO COMBAT?"""
^DIE(429,"DIAB",10,1,45.02,7)="TREATED FOR IR CONDITION;""WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?"""
^DIE(429,"DR",1,45)="F X=2:1:7 S DGDUP(X)=0;K DGPTIT;S DGNFLD=""@10"";50///^S X=+DGMOV;"
^DIE(429,"DR",2,45.02)="S:DGJUMP'[1 Y=""@2"";10;@10;S DGNFLD=""@15"";2;@15;S DGNFLD=""@16"";3;@16;S DGNFLD=""@17"";4;@17;S:DGJUMP'[2 Y=0;@2;I $D(^DPT(+^DGPT(DGPTF,0),.3)),$P(^(.3),U)=""Y"" S (DGNFLD,Y)=""@25"";18////^S X=2;S (DGNFLD,Y)=""@27"";@25;"
^DIE(429,"DR",2,45.02,1)="18WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?~//NO;@27;S DGNFLD=""@28"";S Y=""@900"";@28;S DGNFLD=""@30"";5;I X K DGPTIT S DGNFLD=""@30"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@30;S DGNFLD=""@40"";6;"
^DIE(429,"DR",2,45.02,2)="I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@40;S DGNFLD=""@50"";7;I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@50;S DGNFLD=""@60"";8;"
^DIE(429,"DR",2,45.02,3)="I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@60;S DGNFLD=""@70"";9;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@70;K DGNFLD,DGDUP S Y="""";@800;D SCAN^DGPTSCAN S:'$D(DGBPC) Y=""@899"";"
^DIE(429,"DR",2,45.02,4)="I '$D(DGBPC(2))!(DGDUP(2)) S Y=""@820"";300.02;S:X]"""" DGDUP(2)=1;@820;I '$D(DGBPC(3))!(DGDUP(3)) S Y=""@830"";300.03;S:X]"""" DGDUP(3)=1;@830;I '$D(DGBPC(4))!(DGDUP(4)) S Y=""@840"";D DRUG^DGPTSC01 I $D(DGTX) S Y=""@835"";300.04;"
^DIE(429,"DR",2,45.02,5)="S:X]"""" DGDUP(4)=1;S Y=""@840"";@835;300.04//^S X=DGTX;S:X]"""" DGDUP(4)=1;@840;I '$D(DGBPC(5))!(DGDUP(5)) S Y=""@850"";300.05;S:X]"""" DGDUP(5)=1;@850;I '$D(DGBPC(6))!(DGDUP(6)) S Y=""@860"";300.06;S:X]"""" DGDUP(6)=1;@860;"
^DIE(429,"DR",2,45.02,6)="I '$D(DGBPC(7))!(DGDUP(7)) S Y=""@899"";300.07;S:X]"""" DGDUP(7)=1;@899;K DGPTIT S Y=DGNFLD;@900;K DGEXQ D CHQUES^DGPTSPQ I '$D(DGEXQ) S Y=""@999"";I '$D(DGEXQ(6)) S Y=""@904"";31WAS TREATMENT RELATED TO COMBAT?~//YES;S Y=""@905"";@904;"
^DIE(429,"DR",2,45.02,7)="31///@;@905;I '$D(DGEXQ(1)) S Y=""@910"";26WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?~;S Y=""@915"";@910;26///@;@915;I '$D(DGEXQ(2)) S Y=""@920"";27WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?~;S Y=""@925"";@920;27///@;@925;"
^DIE(429,"DR",2,45.02,8)="I '$D(DGEXQ(3)) S Y=""@930"";28WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?~;S Y=""@935"";@930;28///@;@935;I '$D(DGEXQ(4)) S Y=""@940"";29WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?~;S Y=""@945"";@940;29///@;@945;"
^DIE(429,"DR",2,45.02,9)="I '$D(DGEXQ(5)) S Y=""@950"";30WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?~;I X[""Y"",$D(DFN),$$FILEHNC^DGNTAPI1(DFN);S Y=""@955"";@950;30///@;@955;@999;K DGEXQ S Y=DGNFLD;"
^DIE(429,"ROU")="^DGX5F"
^DIE(429,"ROUOLD")="DGX5F"
^DIE(430,0)="DG501^3070622.1637^^45^^^3070625"
^DIE(430,"AB","4^DGPTX5",3)="5^DGPTX51"
^DIE(430,"AB","4^DGPTX5",4)="8^DGPTX51"
^DIE(430,"AB","4^DGPTX5",5)="22^DGPTX51"
^DIE(430,"AB","4^DGPTX5",6)="27^DGPTX51"
^DIE(430,"AB","4^DGPTX5",7)="1^DGPTX52"
^DIE(430,"AB","4^DGPTX5",8)="6^DGPTX52"
^DIE(430,"AB","4^DGPTX5",9)="11^DGPTX52"
^DIE(430,"AB","4^DGPTX5",18)="10^DGPTX51"
^DIE(430,"AB","4^DGPTX5",18,"///")=""
^DIE(430,"AB","4^DGPTX5",26)="30^DGPTX53"
^DIE(430,"AB","4^DGPTX5",27)="36^DGPTX53"
^DIE(430,"AB","4^DGPTX5",28)="1^DGPTX54"
^DIE(430,"AB","4^DGPTX5",29)="7^DGPTX54"
^DIE(430,"AB","4^DGPTX5",30)="13^DGPTX54"
^DIE(430,"AB","4^DGPTX5",31)="24^DGPTX53"
^DIE(430,"AB","4^DGPTX5",300.02)="18^DGPTX52"
^DIE(430,"AB","4^DGPTX5",300.03)="22^DGPTX52"
^DIE(430,"AB","4^DGPTX5",300.04)="1^DGPTX53"
^DIE(430,"AB","4^DGPTX5",300.05)="9^DGPTX53"
^DIE(430,"AB","4^DGPTX5",300.06)="13^DGPTX53"
^DIE(430,"AB","4^DGPTX5",300.07)="17^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@10")="6^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@15")="12^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@2")="16^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@20")="14^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@25")="19^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@40")="24^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@50")="29^DGPTX51"
^DIE(430,"AB","4^DGPTX5","@60")="3^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@70")="8^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@80")="13^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@800")="15^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@810")="20^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@820")="24^DGPTX52"
^DIE(430,"AB","4^DGPTX5","@825")="4^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@830")="7^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@840")="11^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@850")="15^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@899")="19^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@900")="21^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@904")="26^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@905")="28^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@910")="32^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@915")="34^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@920")="38^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@925")="40^DGPTX53"
^DIE(430,"AB","4^DGPTX5","@930")="3^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@935")="5^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@940")="9^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@945")="11^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@950")="16^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@955")="18^DGPTX54"
^DIE(430,"AB","4^DGPTX5","@999")="19^DGPTX54"
^DIE(430,"AB","^",50)="4^DGPTX5"
^DIE(430,"AB","^",50,"///")=""
^DIE(430,"AR",45.02,447)="1^DGPTX55"
^DIE(430,"AR",45.02,448)="2^DGPTX55"
^DIE(430,"AR",45.02,449)="3^DGPTX55"
^DIE(430,"AR",45.02,450)="4^DGPTX55"
^DIE(430,"AR",45.02,451)="5^DGPTX55"
^DIE(430,"DIAB",1,1,45.02,1)="TREATED FOR SC CONDITION//NO;""WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?"""
^DIE(430,"DIAB",4,1,45.02,7)="POTENTIALLY RELATED TO COMBAT//YES;""WAS TREATMENT RELATED TO COMBAT?"""
^DIE(430,"DIAB",6,1,45.02,8)="TREATED FOR IR CONDITION;""WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?"""
^DIE(430,"DIAB",6,1,45.02,9)="TREATMENT FOR MST;""WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?"""
^DIE(430,"DIAB",10,1,45.02,7)="TREATED FOR AO CONDITION;""WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?"""
^DIE(430,"DIAB",12,1,45.02,8)="EXPOSED TO ENVIR CONTAMINANTS;""WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?"""
^DIE(430,"DIAB",12,1,45.02,9)="TREATMENT FOR HEAD/NECK CA;""WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?"""
^DIE(430,"DR",1,45)="F X=2:1:7 S DGDUP(X)=0;K DGPTIT;S DGHOLD=$S($D(^DGPT(DGPTF,""M"",+DGMOV,0)):^(0),1:"""");50///^S X=+DGMOV;"
^DIE(430,"DR",2,45.02)="S:'$D(DGADD) DGADD=0;S:DGJUMP'[1 Y=""@2"";S:DGADD Y=""@20"";S DGNFLD=""@10"";3;@10;S DGNFLD=""@15"";4;I $D(^DPT(+^DGPT(DGPTF,0),.3)),$P(^(.3),U)=""Y"" S Y=""@15"";18////^S X=2;S (DGNFLD,Y)=""@20"";@15;"
^DIE(430,"DR",2,45.02,1)="18WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?~//NO;@20;S:DGJUMP'[2 Y="""";@2;S DGNFLD=""@25"";S Y=""@900"";@25;I DGADD,$P(DGHOLD,U,5)]"""" S Y=""@40"";S DGNFLD=""@40"";5;I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(430,"DR",2,45.02,2)="@40;I DGADD,$P(DGHOLD,U,6)]"""" S Y=""@50"";S DGNFLD=""@50"";6;I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@50;I DGADD,$P(DGHOLD,U,7)]"""" S Y=""@60"";S DGNFLD=""@60"";7;"
^DIE(430,"DR",2,45.02,3)="I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@60;I DGADD,$P(DGHOLD,U,8)]"""" S Y=""@70"";S DGNFLD=""@70"";8;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@70;I DGADD,$P(DGHOLD,U,9)]"""" S Y=""@80"";"
^DIE(430,"DR",2,45.02,4)="S DGNFLD=""@80"";9;I X K DGPTIT S DGNFLD=""@80"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@80;K DGNFLD,DGDUP,DGADD S Y="""";@800;D SCAN^DGPTSCAN S:'$D(DGBPC) Y=""@899"";I '$D(DGBPC(2))!(DGDUP(2)) S Y=""@810"";300.02;S:X]"""" DGDUP(2)=1;@810;"
^DIE(430,"DR",2,45.02,5)="I '$D(DGBPC(3))!(DGDUP(3)) S Y=""@820"";300.03;S:X]"""" DGDUP(3)=1;@820;I '$D(DGBPC(4))!(DGDUP(4)) S Y=""@830"";D DRUG^DGPTSC01 I $D(DGTX) S Y=""@825"";300.04;S:X]"""" DGDUP(4)=1;S Y=""@830"";@825;300.04//^S X=DGTX;S:X]"""" DGDUP(4)=1;@830;"
^DIE(430,"DR",2,45.02,6)="I '$D(DGBPC(5))!(DGDUP(5)) S Y=""@840"";300.05;S:X]"""" DGDUP(5)=1;@840;I '$D(DGBPC(6))!(DGDUP(6)) S Y=""@850"";300.06;S:X]"""" DGDUP(6)=1;@850;I '$D(DGBPC(7))!(DGDUP(7)) S Y=""@899"";300.07;S:X]"""" DGDUP(7)=1;@899;K DGPTIT,DGTX S Y=DGNFLD;"
^DIE(430,"DR",2,45.02,7)="@900;K DGEXQ D CHQUES^DGPTSPQ I '$D(DGEXQ) S Y=""@999"";I '$D(DGEXQ(6)) S Y=""@904"";31WAS TREATMENT RELATED TO COMBAT?~//YES;S Y=""@905"";@904;31///@;@905;I '$D(DGEXQ(1)) S Y=""@910"";26WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?~;"
^DIE(430,"DR",2,45.02,8)="S Y=""@915"";@910;26///@;@915;I '$D(DGEXQ(2)) S Y=""@920"";27WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?~;S Y=""@925"";@920;27///@;@925;I '$D(DGEXQ(3)) S Y=""@930"";28WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?~;"
^DIE(430,"DR",2,45.02,9)="S Y=""@935"";@930;28///@;@935;I '$D(DGEXQ(4)) S Y=""@940"";29WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?~;S Y=""@945"";@940;29///@;@945;I '$D(DGEXQ(5)) S Y=""@950"";30WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?~;"
^DIE(430,"DR",2,45.02,10)="I X[""Y"",$D(DFN),$$FILEHNC^DGNTAPI1(DFN);S Y=""@955"";@950;30///@;@955;@999;K DGEXQ S Y=DGNFLD;"
^DIE(430,"ROU")="^DGPTX5"
^DIE(430,"ROUOLD")="DGPTX5"
^DIE(431,0)="DGMT ENTER/EDIT THRESHOLD^2920406.0923^^43^^^2960626^"
^DIE(431,"DR",1,43)="250;"
^DIE(431,"DR",2,43.03)=".01:4;X ""I '$$ACT^DGMTDD(5,DA) S Y=""""@10"""""";5:7;@10;8;17;"
^DIE(432,0)="DG701^3030606.1142^^45^^^3040614"
^DIE(432,"%D",0)="^^1^1^2950809^"
^DIE(432,"%D",1,0)=" "
^DIE(432,"AB","^",79)="4^DGPTX7"
^DIE(432,"AB","^",79.16)="11^DGPTX7"
^DIE(432,"AB","^",79.17)="17^DGPTX7"
^DIE(432,"AB","^",79.18)="23^DGPTX7"
^DIE(432,"AB","^",79.19)="1^DGPTX73"
^DIE(432,"AB","^",79.201)="8^DGPTX73"
^DIE(432,"AB","^",79.21)="14^DGPTX73"
^DIE(432,"AB","^",79.22)="20^DGPTX73"
^DIE(432,"AB","^",79.23)="1^DGPTX74"
^DIE(432,"AB","^",79.24)="6^DGPTX74"
^DIE(432,"AB","^",79.241)="11^DGPTX74"
^DIE(432,"AB","^",79.242)="16^DGPTX74"
^DIE(432,"AB","^",79.243)="21^DGPTX74"
^DIE(432,"AB","^",300.02)="1^DGPTX77"
^DIE(432,"AB","^",300.03)="6^DGPTX77"
^DIE(432,"AB","^",300.04)="12^DGPTX77"
^DIE(432,"AB","^",300.05)="21^DGPTX77"
^DIE(432,"AB","^",300.06)="26^DGPTX77"
^DIE(432,"AB","^",300.07)="31^DGPTX77"
^DIE(432,"AB","^","@10")="8^DGPTX7"
^DIE(432,"AB","^","@100")="14^DGPTX74"
^DIE(432,"AB","^","@110")="19^DGPTX74"
^DIE(432,"AB","^","@120")="23^DGPTX74"
^DIE(432,"AB","^","@20")="14^DGPTX7"
^DIE(432,"AB","^","@30")="21^DGPTX7"
^DIE(432,"AB","^","@40")="27^DGPTX7"
^DIE(432,"AB","^","@50")="5^DGPTX73"
^DIE(432,"AB","^","@55")="11^DGPTX73"
^DIE(432,"AB","^","@60")="18^DGPTX73"
^DIE(432,"AB","^","@70")="24^DGPTX73"
^DIE(432,"AB","^","@80")="4^DGPTX74"
^DIE(432,"AB","^","@800")="25^DGPTX74"
^DIE(432,"AB","^","@820")="3^DGPTX77"
^DIE(432,"AB","^","@840")="8^DGPTX77"
^DIE(432,"AB","^","@850")="15^DGPTX77"
^DIE(432,"AB","^","@860")="18^DGPTX77"
^DIE(432,"AB","^","@870")="23^DGPTX77"
^DIE(432,"AB","^","@880")="28^DGPTX77"
^DIE(432,"AB","^","@890")="33^DGPTX77"
^DIE(432,"AB","^","@90")="9^DGPTX74"
^DIE(432,"AR",45,432)="1^DGPTX78"
^DIE(432,"AR",45,434)="2^DGPTX78"
^DIE(432,"AR",45,435)="3^DGPTX78"
^DIE(432,"AR",45,436)="4^DGPTX78"
^DIE(432,"AR",45,437)="5^DGPTX78"
^DIE(432,"AR",45,438)="6^DGPTX78"
^DIE(432,"AR",45,439)="7^DGPTX78"
^DIE(432,"AR",45,440)="8^DGPTX78"
^DIE(432,"AR",45,441)="9^DGPTX78"
^DIE(432,"AR",45,442)="1^DGPTX79"
^DIE(432,"AR",45,443)="2^DGPTX79"
^DIE(432,"AR",45,444)="3^DGPTX79"
^DIE(432,"AR",45,445)="4^DGPTX79"
^DIE(432,"DR",1,45)="F X=2:1:7 S DGDUP(X)=0;K DGPTIT D FLAGCHK^DGPTSCAN;S DGNFLD=""@10"";79;I X K DGPTIT S DGNFLD=""@10"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,1)="S:$P($G(^DGPT(D0,70)),U,10)_$P($G(^DGPT(D0,70)),U,16,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";Q;@10;S DGNFLD=""@20"";Q;79.16;I X K DGPTIT S DGNFLD=""@20"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,2)="S:$P($G(^DGPT(D0,70)),U,16,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@20;Q;S DGNFLD=""@30"";79.17;I X K DGPTIT S DGNFLD=""@30"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,3)="S:$P($G(^DGPT(D0,70)),U,17,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";Q;@30;S DGNFLD=""@40"";79.18;I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";Q;"
^DIE(432,"DR",1,45,4)="S:$P($G(^DGPT(D0,70)),U,18,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@40;S DGNFLD=""@50"";79.19;Q;I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,5)="S:$P($G(^DGPT(D0,70)),U,19,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@50;S DGNFLD=""@55"";Q;79.201;I X K DGPTIT S DGNFLD=""@55"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,6)="S:$P($G(^DGPT(D0,70)),U,20,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@55;Q;S DGNFLD=""@60"";79.21;I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,7)="S:$P($G(^DGPT(D0,70)),U,21,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";Q;@60;S DGNFLD=""@70"";79.22;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";Q;"
^DIE(432,"DR",1,45,8)="S:$P($G(^DGPT(D0,70)),U,22,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@70;S DGNFLD=""@80"";79.23;I X K DGPTIT S DGNFLD=""@80"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,9)="S:$P($G(^DGPT(D0,70)),U,23,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@80;S DGNFLD=""@90"";79.24;I X K DGPTIT S DGNFLD=""@90"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";S:$P($G(^DGPT(D0,70)),U,24)_$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";"
^DIE(432,"DR",1,45,10)="@90;S DGNFLD=""@100"";79.241;I X K DGPTIT S DGNFLD=""@100"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";S:$P($G(^DGPT(D0,71)),U,1,3)?.""^"" Y=""@120"";@100;S DGNFLD=""@110"";79.242;I X K DGPTIT S DGNFLD=""@110"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";"
^DIE(432,"DR",1,45,11)="S:$P($G(^DGPT(D0,71)),U,2,3)?.""^"" Y=""@120"";@110;S DGNFLD=""@120"";79.243;I X K DGPTIT S DGNFLD=""@120"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@120;K DGNFLD,DGDUP S Y="""";@800;D SCAN^DGPTSCAN,ANYPSY^DGPTSCAN S:'$D(DGBPC) Y=""@890"";"
^DIE(432,"DR",1,45,12)="I '$D(DGBPC(2))!(DGDUP(2)) S Y=""@820"";I $P(DG701,U,2)]"""" S Y=""@820"";300.02;S:X]"""" DGDUP(2)=1;@820;I '$D(DGBPC(3))!(DGDUP(3)) S Y=""@840"";I $P(DG701,U,3)]"""" S Y=""@840"";300.03;S:X]"""" DGDUP(3)=1;@840;"
^DIE(432,"DR",1,45,13)="I '$D(DGBPC(4))!(DGDUP(4)) S Y=""@860"";I $P(DG701,U,4)]"""" S Y=""@860"";D DRUG^DGPTSC01 I $D(DGTX) S Y=""@850"";300.04;S:X]"""" DGDUP(4)=1;S Y=""@860"";@850;300.04//^S X=DGTX;S:X]"""" DGDUP(4)=1;@860;I '$D(DGPBC(5))!(DGDUP(5)) S Y=""@870"";"
^DIE(432,"DR",1,45,14)="I $P(DG701,U,5)]"""" S Y=""@870"";300.05;S:X]"""" DGDUP(5)=1;@870;I '$D(DGBPC(6))!(DGDUP(6)) S Y=""@880"";I $P(DG701,U,6)]"""" S Y=""@880"";300.06;S:X]"""" DGDUP(6)=1;@880;I '$D(DGBPC(7))!(DGDUP(7)) S Y=""@890"";I $P(DG701,U,7)]"""" S Y=""@890"";"
^DIE(432,"DR",1,45,15)="300.07;S:X]"""" DGDUP(7)=1;@890;K DGIT,DGPTIT S Y=DGNFLD;"
^DIE(432,"ROU")="^DGPTX7"
^DIE(432,"ROUOLD")="DGPTX7"
^DIE(433,0)="DGSCHADMIT^2980519.1327^^41.1^^^2980609"
^DIE(433,"DR",1,41.1)="I '$D(DGDIV)!('$D(DUZ)#2) W !!,*7,""NECESSARY VARIABLES NOT DEFINED!!"" S Y=0;S DGSDIV=$P(DGDIV,""^"",2);11////^S X=DUZ;2;10;S:X=""T"" Y=9;8;S DGJJ=$$WACT^DGSCHAD(X,$P(^DGS(41.1,DA,0),U,2));"
^DIE(433,"DR",1,41.1,1)="I DGJJ=0 W !!,*7,""Ward OUT-OF-SERVICE on selected date... Try again!"",! S Y=2,$P(^DGS(41.1,DA,0),U,8)="""";I DGJJ=-1 W !!,*7,""???... Try again."",! S Y=2,$P(^DGS(41.1,DA,0),U,8)="""";"
^DIE(433,"DR",1,41.1,2)="I DGJJ=1 W !,""Ward will be in-service on selected date."",!;I X,'DGDIV S DGSDIV=$S($D(^DIC(42,+X,0)):+$P(^(0),""^"",11),1:"""") I DGSDIV S DGSDIV=$S($D(^DG(40.8,+DGSDIV,0)):$P(^(0),""^"",1),1:"""");S Y=12;9;12//^S X=DGSDIV;3:7;"
^DIE(434,0)="DG ENTER/EDIT SECURITY^2950503.0828^^38.1^^^^"
^DIE(434,"DR",1,38.1)="2;3////^S X=DUZ;4///^S X=""NOW"";"
^DIE(435,0)="DG601^3070301.0926^^45^^^3070607"
^DIE(435,"DR",1,45)="S DGDUP(8)=0;K DGPTIT;S DGHOLD=$S($D(^DGPT(DGPTF,""P"",+P(DGZP,1),0)):^(0),1:"""");60///^S X=P(DGZP,1);"
^DIE(435,"DR",2,45.05)="S:'$D(DGADD) DGADD=0;S:DGJUMP'[1 Y=""@2"";S DGNFLD=""@10"";.01;@10;S DGNFLD=""@15"";1///^D BS^DGPTFM6 S X=DGMOVM K DGMOVM;@15;S:DGJUMP'[2 Y="""";@2;S DGNFLD=""@25"";S Y=""@899"";@25;I DGADD,$P(DGHOLD,U,5)]"""" S Y=""@40"";S DGNFLD=""@40"";4;"
^DIE(435,"DR",2,45.05,1)="I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@40;I DGADD,$P(DGHOLD,U,6)]"""" S Y=""@50"";S DGNFLD=""@50"";5;I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@50;I DGADD,$P(DGHOLD,U,7)]"""" S Y=""@60"";"
^DIE(435,"DR",2,45.05,2)="S DGNFLD=""@60"";6;I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@60;I DGADD,$P(DGHOLD,U,8)]"""" S Y=""@70"";S DGNFLD=""@70"";7;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@70;"
^DIE(435,"DR",2,45.05,3)="I DGADD,$P(DGHOLD,U,9)]"""" S Y=""@80"";S DGNFLD=""@80"";8;I X K DGPTIT S DGNFLD=""@80"",Y=""@800"",DGPTIT(X_$C(59)_""ICD0("")="""";@80;K DGNFLD,DGDUP,DGADD S Y="""";@800;D SCAN^DGPTSCAN;I '$D(DGBPC(8))!(DGDUP(8)) S Y=""@899"";3;"
^DIE(435,"DR",2,45.05,4)="S:X]"""" DGDUP(8)=1 S:X']"""" Y=""@800"";@899;K DGPTIT S Y=DGNFLD;@999;S Y=DGNFLD;"
^DIE(436,0)="DGQWK^3070215.0849^^45^^^3070215"
^DIE(436,"DIAB",1,2,2.02,0)=".01;""RACE"""
^DIE(436,"DIAB",1,2,2.06,0)=".01;""ETHNICITY"""
^DIE(436,"DIAB",2,1,2,0)="6;""ETHNICITY"""
^DIE(436,"DIAB",3,1,2,0)="2;""RACE"""
^DIE(436,"DIAB",8,0,45,0)="PATIENT:"
^DIE(436,"DR",1,45)="3//^S X=$P($$SITE^VASITE,U,3);5;20;22;21.1;21.2;20.1////^S X=$$ELIG^DGUTL3(DFN,2,$P($G(^DGPT(DA,101)),U,8));^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");75;73;74;"
^DIE(436,"DR",1,45,1)="76.1;76.2;78;77;"
^DIE(436,"DR",2,2)=".05;6ETHNICITY~;2RACE~;57.4;.32101;.32102;S:X'=""Y"" Y=.32103;.3213;.32103;S:X'=""Y"" Y=.525;.3212;.525;S:X'=""Y"" Y=.115;.526;"
^DIE(436,"DR",3,2.02)=".01RACE~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.02,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@21"";.02;@21;"
^DIE(436,"DR",3,2.06)=".01ETHNICITY~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.06,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@61"";.02;@61;"
^DIE(437,0)="DGQWKF^3070215.085^^45^^^3070215"
^DIE(437,"DIAB",1,2,2.02,0)=".01;""RACE"""
^DIE(437,"DIAB",1,2,2.06,0)=".01;""ETHNICITY"""
^DIE(437,"DIAB",2,1,2,0)="6;""ETHNICITY"""
^DIE(437,"DIAB",3,1,2,0)="2;""RACE"""
^DIE(437,"DIAB",8,0,45,0)="PATIENT:"
^DIE(437,"DR",1,45)="3//^S X=$P($$SITE^VASITE,U,3);5;20;22;21.1;21.2;20.1////^S X=$$ELIG^DGUTL3(DFN,2,$P($G(^DGPT(DA,101)),U,8));^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");10;70;71;"
^DIE(437,"DR",1,45,1)="72;72.1;75;73;74;76.1;76.2;78;77;"
^DIE(437,"DR",2,2)=".05;6ETHNICITY~;2RACE~;57.4;.32101;.32102;S:X'=""Y"" Y=.32103;.3213;.32103;S:X'=""Y"" Y=.525;.3212;.525;S:X'=""Y"" Y=.115;.526;"
^DIE(437,"DR",3,2.02)=".01RACE~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.02,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@21"";.02;@21;"
^DIE(437,"DR",3,2.06)=".01ETHNICITY~;I $P($G(^DIC(10.3,+$P($G(^DPT(DA(1),.06,DA,0)),""^"",2),0)),""^"",2)=""S"" S Y=""@61"";.02;@61;"
^DIE(438,0)="DGRUG^2980306.133^^45.9^^^2980307"
^DIE(438,"DR",1,45.9)=".01;S DFN=X;2;3///^S X=$E($P(^DPT(DFN,0),""^"",9),1,9);4///^S X=$P(^DPT(DFN,0),""^"",2);5///^S X=$E($P(^DPT(DFN,0),""^"",3),1,3)+1700;8///^S:$D(^DG(40.8,1,0)) X=$E($P(^(0),""^"",2),1,3);I $D(DGCR) S Y=70;W !!,""***MEDICAL TREATMENTS***"",!;"
^DIE(438,"DR",1,45.9,1)="10//^S X=""NO"";11//^S X=""NO"";12//^S X=""NO"";13//^S X=""NO"";14//^S X=""NO"";15//^S X=""NO"";16//^S X=""NO"";17//^S X=""NO"";18//^S X=""NO"";19//^S X=""NO"";20//^S X=""NO"";I $P(^DG(45.9,D0,0),""^"",14)=1 S $P(^(0),""^"",21)=1,Y=""@101"";21;@101;"
^DIE(438,"DR",1,45.9,2)="W !!,""***MEDICAL EVENTS***"",!;23//^S X=""NO REDDENED SKIN"";24//^S X=""NO"";25//^S X=""NO"";26//^S X=""NO"";27//^S X=""NO"";28//^S X=""NO"";W !!,""***SELECTED DIAGNOSES***"",!;32//^S X=""NO"";33//^S X=""NO"";34//^S X=""NO"";35//^S X=""NO"";"
^DIE(438,"DR",1,45.9,3)="W !!,""***ACTIVITIES OF DAILY LIVING (ADLs)***"",!;40//^S X=""1> FEEDS SELF"";41//^S X=""1> WALKS,NO SUPERVISION"";42//^S X=""1> NO SUPERVISION"";43//^S X=""1> NO SUPERVISION"";W !!,""***BEHAVIORS***"",!;44//^S X=""1> NONE IN PAST 4 WEEKS"";"
^DIE(438,"DR",1,45.9,4)="45//^S X=""1> NONE IN PAST 4 WEEKS"";46//^S X=""2> NOT DISRUPTIVE TO OTHERS"";47//^S X=""NO"";W !!,""***SPECIALIZED SERVICES***"",!;W !!,""---REHABILITATION MEDICINE THERAPIES---"",!;48//^S X=""1> DOES NOT RECEIVE"";"
^DIE(438,"DR",1,45.9,5)="I X=1 S $P(^DG(45.9,D0,0),""^"",49)=0,$P(^(0),""^"",63)=0,Y=50;49;49.5;50//^S X=""1> DOES NOT RECEIVE"";I X=1 S $P(^DG(45.9,D0,0),""^"",51)=0,$P(^(0),""^"",64)=0,Y=52;51;51.5;52//^S X=""1> DOES NOT RECEIVE"";"
^DIE(438,"DR",1,45.9,6)="I X=1 S $P(^DG(45.9,D0,0),""^"",53)=0,$P(^(0),""^"",65)=0,Y=54;53;53.5;54//^S X=""1> DOES NOT RECEIVE"";I X=1 S $P(^DG(45.9,D0,0),""^"",55)=0,$P(^(0),""^"",66)=0,Y=56;55;55.5;56//^S X=""1> DOES NOT RECEIVE"";"
^DIE(438,"DR",1,45.9,7)="I X=1 S $P(^DG(45.9,D0,0),""^"",57)=0,$P(^(0),""^"",67)=0,Y=""@102"";57;57.5;@102;W !!,""---CHRONIC RESPIRATORY SUPPORT---"",!;58//^S X=""NO"";I X=1 S $P(^DG(45.9,D0,0),""^"",59,62)=""1^1^1^1"",Y=70;59;60;61;62;Q;70;"
^DIE(439,0)="DGRUG16^2881024^^45.9^^^^"
^DIE(439,"DR",1,45.9)=".01;S DFN=X;2;3///^S X=$E($P(^DPT(DFN,0),""^"",9),1,9);4///^S X=$P(^DPT(DFN,0),""^"",2);5///^S X=$S($E($P(^DPT(DFN,0),""^"",3),1)=1:18,1:19),X=X_$E($P(^(0),""^"",3),2,3);8///^S:$D(^DG(40.8,1,0)) X=$E($P(^(0),""^"",2),1,3);"
^DIE(439,"DR",1,45.9,1)="I $D(DGCR) S Y=""@103"";W !!,""***MEDICAL TREATMENTS***"",!;10;11;12;13;14;15;16;17;18;19;20;W !!,""***MEDICAL EVENTS***"",!;23;24;25;26;27;28;W !!,""***SELECTED DIAGNOSES***"",!;32;33;34;35;"
^DIE(439,"DR",1,45.9,2)="W !!,""***ACTIVITIES OF DAILY LIVING (ADLs)***"",!;40;41;42;43;W !!,""***BEHAVIORS***"",!;44;45;46;47;W !!,""***SPECIALIZED SERVICES***"",!;48;I X=1 S $P(^DG(45.9,D0,0),""^"",49)=0,Y=50;49;50;I X=1 S $P(^DG(45.9,D0,0),""^"",51)=0,Y=52;51;52;"
^DIE(439,"DR",1,45.9,3)="I X=1 S $P(^DG(45.9,D0,0),""^"",53)=0,Y=54;53;54;I X=1 S $P(^DG(45.9,D0,0),""^"",55)=0,Y=56;55;56;I X=1 S $P(^DG(45.9,D0,0),""^"",57)=0,Y=""@103"";57;@103;Q;70;"
^DIE(440,0)="DG RAM-DATA-INPUT^2890811^^81^^^^"
^DIE(440,"DR",1,81)="100;"
^DIE(440,"DR",2,81.02)=".02;"
^DIE(441,0)="DGPT STUFF ENTRY^2900926.1123^^45.85^^^^"
^DIE(441,"DR",1,45.85)=".02////^S X=$S($D(DGAD0):+DGAD0,1:"""");.03////^S X=$S($D(DGAD):DGAD,1:"""");.04////^S X=$S($D(DGCN):DGCN,1:"""");.05////^S X=$S('$D(DGAD1):"""",DGAD1:+DGAD1,1:"""");.06////^S X=$S($D(DGCWD):DGCWD,1:"""");"
^DIE(441,"DR",1,45.85,1)=".12////^S X=$S($D(DGAD0):$P(DGAD0,U,16),1:"""");"
^DIE(442,0)="DGPT CENSUS DATE^2900611.1003^^45.86^^^^"
^DIE(442,"DIAB",2,0,45.86,0)=".01;""CENSUS DATE"""
^DIE(442,"DR",1,45.86)=".05;.01CENSUS DATE~;W !;.02;.03;W !;.04;"
^DIE(443,0)="DG PTF CREATE PTF ENTRY^2900504.1358^^45^^^^"
^DIE(443,"AB","4^DGPTXC",.01)="1^DGPTXC1"
^DIE(443,"AB","4^DGPTXC",.01,"///")=""
^DIE(443,"AB","^",2)="1^DGPTXC"
^DIE(443,"AB","^",2,"///")=""
^DIE(443,"AB","^",4)="2^DGPTXC"
^DIE(443,"AB","^",4,"///")=""
^DIE(443,"AB","^",6)="3^DGPTXC"
^DIE(443,"AB","^",6,"///")=""
^DIE(443,"AB","^",11)="5^DGPTXC"
^DIE(443,"AB","^",11,"///")=""
^DIE(443,"AB","^",50)="4^DGPTXC"
^DIE(443,"AB","^",50,"///")=""
^DIE(443,"AR",45,432)="1^DGPTXC2"
^DIE(443,"AR",45,433)="2^DGPTXC2"
^DIE(443,"AR",45,434)="3^DGPTXC2"
^DIE(443,"AR",45,435)="4^DGPTXC2"
^DIE(443,"AR",45,436)="5^DGPTXC2"
^DIE(443,"AR",45,437)="6^DGPTXC2"
^DIE(443,"AR",45,438)="7^DGPTXC2"
^DIE(443,"AR",45,439)="8^DGPTXC2"
^DIE(443,"AR",45,440)="9^DGPTXC2"
^DIE(443,"AR",45,441)="1^DGPTXC3"
^DIE(443,"AR",45,442)="2^DGPTXC3"
^DIE(443,"AR",45,443)="3^DGPTXC3"
^DIE(443,"AR",45,444)="4^DGPTXC3"
^DIE(443,"AR",45,445)="5^DGPTXC3"
^DIE(443,"AR",45,446)="6^DGPTXC3"
^DIE(443,"DR",1,45)="2////^S X=$P(DGPTDATA,U,2);4////^S X=$P(DGPTDATA,U,3);6////^S X=0;50///^S X=1;11////^S X=$S('$D(DGRTY):1,'DGRTY:1,1:+DGRTY);"
^DIE(443,"DR",2,45.02)=".01///^S X=1;"
^DIE(443,"ROU")="^DGPTXC"
^DIE(443,"ROUOLD")="DGPTXC"
^DIE(444,0)="DGTREAT^2950727.1136^^45.7^^^^"
^DIE(444,"DIAB",1,1,45.701,0)="ALL"
^DIE(444,"DR",1,45.7)=".01;100;1;2;10;99;"
^DIE(444,"DR",2,45.701)=".01"
^DIE(444,"DR",2,45.702)=".01;.02;"
^DIE(445,0)="DG ELIG ENTER/EDIT^2900104.0847^^8^^^^"
^DIE(445,"DIAB",1,1,8.01,0)="ALL"
^DIE(445,"DR",1,8)=".01;2;5;6;8;9;11;10;"
^DIE(445,"DR",2,8.01)=".01"
^DIE(446,0)="DGPM ADMIT^3030218.1445^^405^^^3030311"
^DIE(446,"%D",0)="^^3^3^2890921^^^"
^DIE(446,"%D",1,0)="This template is used by routine DGPMV3 to capture admission data for a"
^DIE(446,"%D",2,0)="particular patient.  This template can not be used without the"
^DIE(446,"%D",3,0)="interaction of the 'Admit a Patient' option in MAS."
^DIE(446,"AB","^",.01)="2^DGPMX1"
^DIE(446,"AB","^",.01,"///")=""
^DIE(446,"AB","^",.04)="13^DGPMX1"
^DIE(446,"AB","^",.05)="1^DGPMX12"
^DIE(446,"AB","^",.06)="6^DGPMX12"
^DIE(446,"AB","^",.07)="7^DGPMX12"
^DIE(446,"AB","^",.1)="2^DGPMX12"
^DIE(446,"AB","^",.11)="10^DGPMX1"
^DIE(446,"AB","^",.12)="5^DGPMX1"
^DIE(446,"AB","^",41)="4^DGPMX1"
^DIE(446,"AB","^",54)="7^DGPMX1"
^DIE(446,"AB","^",54,"///")=""
^DIE(446,"AB","^",102)="14^DGPMX12"
^DIE(446,"AB","^",102,"///")=""
^DIE(446,"AB","^",103)="16^DGPMX12"
^DIE(446,"AB","^",103,"///")=""
^DIE(446,"AB","^",11500.01)="11^DGPMX12"
^DIE(446,"AB","^",11500.01,"///")=""
^DIE(446,"AB","^","@11")="11^DGPMX1"
^DIE(446,"AB","^","@12")="12^DGPMX12"
^DIE(446,"DIAB",1,0,405,3)="103///NOW"
^DIE(446,"DIAB",4,0,405,0)="41;""DOES THE PATIENT WISH TO BE EXCLUDED FROM THE FACILITY DIRECTORY?"";REQ"
^DIE(446,"DIAB",6,0,405,1)=".04;""TYPE OF ADMISSION"""
^DIE(446,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=41;.01///^S X=DGPMY;Q;41R~DOES THE PATIENT WISH TO BE EXCLUDED FROM THE FACILITY DIRECTORY?~;.12;Q;54////^S X=$$ADCAT^DGSAUTL($P(^DGPM(DA,0),U,12));"
^DIE(446,"DR",1,405,1)="I $S('$D(^DPT(DFN,.3)):1,$P(^(.3),""^"",1)'=""Y"":1,1:0) S Y=""@11"";Q;.11;@11;S ^DISV(DUZ,""^DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM1"")):^(""DGPM1""),1:"""");.04TYPE OF ADMISSION~;"
^DIE(446,"DR",1,405,2)="S ^DISV(DUZ,""DGPM1"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");I $P(^DGPM(DA,0),""^"",18)'=9 S Y=.1;.05;.1;Q;Q;Q;.06;.07;Q;Q;D DFN^DGYZODS S:'DGODS Y=""@12"";11500.01////1;@12;I DGPMP=^DGPM(DA,0) S Y="""";102////^S X=DUZ;Q;"
^DIE(446,"DR",1,405,3)="103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(446,"ROU")="^DGPMX1"
^DIE(446,"ROUOLD")="DGPMX1"
^DIE(447,0)="DGPM TRANSFER^2911227.1201^^405^^^2970205"
^DIE(447,"%D",0)="^^2^2^2940615^^^"
^DIE(447,"%D",1,0)="This template is used by the MAS option 'Transfer a Patient' to capture data"
^DIE(447,"%D",2,0)="relating to a patient's transfer.  It can only be used through this option."
^DIE(447,"AB","^",.01)="2^DGPMX2"
^DIE(447,"AB","^",.01,"///")=""
^DIE(447,"AB","^",.04)="6^DGPMX2"
^DIE(447,"AB","^",.05)="9^DGPMX22"
^DIE(447,"AB","^",.06)="1^DGPMX21"
^DIE(447,"AB","^",.06,"///")=""
^DIE(447,"AB","^",.07)="4^DGPMX21"
^DIE(447,"AB","^",.07,"///")=""
^DIE(447,"AB","^",.13)="5^DGPMX22"
^DIE(447,"AB","^",102)="10^DGPMX23"
^DIE(447,"AB","^",102,"///")=""
^DIE(447,"AB","^",103)="12^DGPMX23"
^DIE(447,"AB","^",103,"///")=""
^DIE(447,"AB","^","@2")="12^DGPMX22"
^DIE(447,"AB","^","@21")="8^DGPMX22"
^DIE(447,"AB","^","@22")="4^DGPMX2"
^DIE(447,"AB","^","@24")="9^DGPMX21"
^DIE(447,"AB","^","@25")="8^DGPMX23"
^DIE(447,"AB","^","@26")="3^DGPMX22"
^DIE(447,"AB","^","@27")="6^DGPMX21"
^DIE(447,"DIAB",1,0,405,4)="103///NOW"
^DIE(447,"DIAB",5,0,405,3)=".05;""ASIH FACILITY"""
^DIE(447,"DIAB",6,0,405,0)=".04;""TYPE OF TRANSFER"""
^DIE(447,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=""@22"";.01///^S X=DGPMY;Q;@22;S ^DISV(DUZ,""^DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM2"")):^(""DGPM2""),1:"""");.04TYPE OF TRANSFER~;"
^DIE(447,"DR",1,405,1)="S ^DISV(DUZ,""DGPM2"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");S DGZ=$P(^DGPM(DA,0),""^"",18) I $S(DGZ<4:0,DGZ<22:1,DGZ<27:0,DGZ=44:1,1:0) K DGZ S Y=""@2"";S Y=$S(DGZ=43!(DGZ=45):""@21"",1:.06);.06////^S X=$P(DGPM0,""^"",6);"
^DIE(447,"DR",1,405,2)="I ""^1^23^""'[(""^""_DGZ_""^"") S Y=""@24"";D TROC^DGPMVDD I DGPMOC!(DGOOS) S Y=""@27"";.07////^S X=DGZ7;S Y=""@24"";@27;K DGPMOC,DGOOS;.07;@24;I DGZ<4 S Y=""@26"";I $S(DGZ=22:0,DGZ'=24:1,1:0) S Y=""@25"";.07;S Y=""@25"";@26;D UARET^DGPMVDD;"
^DIE(447,"DR",1,405,3)=".13//^S X=DGPMRET;K DGPMRET;S Y=""@25"";@21;.05ASIH FACILITY~;.06////^S X=$P(DGPM0,""^"",6);S Y=""@25"";@2;.13///@;Q;Q;Q;Q;.06;.07;@25;I DGPMP=^DGPM(DA,0) S Y="""";102////^S X=DUZ;Q;"
^DIE(447,"DR",1,405,4)="103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);K DGPMOC,DGOOS,DGZ,DGZ6,DGZ7;"
^DIE(447,"ROU")="^DGPMX2"
^DIE(447,"ROUOLD")="DGPMX2"
^DIE(448,0)="DGPM DISCHARGE^2930324.1203^^405^^^2970129"
^DIE(448,"%D",0)="^^2^2^2900412^^"
^DIE(448,"%D",1,0)="This template is used by the MAS routine DGPMV3 to capture discharge data for"
^DIE(448,"%D",2,0)="a patient.  It can not be used outside of the 'Discharge a Patient' option."
^DIE(448,"AB","^",.01)="2^DGPMX3"
^DIE(448,"AB","^",.01,"///")=""
^DIE(448,"AB","^",.04)="6^DGPMX3"
^DIE(448,"AB","^",.05)="1^DGPMX31"
^DIE(448,"AB","^",102)="13^DGPMX31"
^DIE(448,"AB","^",102,"///")=""
^DIE(448,"AB","^",103)="1^DGPMX32"
^DIE(448,"AB","^",103,"///")=""
^DIE(448,"AB","^",11500.02)="4^DGPMX31"
^DIE(448,"AB","^",11500.03)="6^DGPMX31"
^DIE(448,"AB","^",11500.05)="8^DGPMX31"
^DIE(448,"AB","^",11500.06)="10^DGPMX31"
^DIE(448,"AB","^","@31")="11^DGPMX31"
^DIE(448,"AB","^","@32")="4^DGPMX3"
^DIE(448,"DIAB",6,0,405,0)=".04;""TYPE OF DISCHARGE"""
^DIE(448,"DIAB",8,0,405,2)="103///NOW"
^DIE(448,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=""@32"";.01///^S X=DGPMY;Q;@32;S ^DISV(DUZ,""DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM3"")):^(""DGPM3""),1:"""");.04TYPE OF DISCHARGE~;"
^DIE(448,"DR",1,405,1)="S ^DISV(DUZ,""DGPM3"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");I $P(^DGPM(DA,0),""^"",18)'=10 S Y=""@31"";.05;D ON^DGYZODS;S:'DGODS Y=""@31"";11500.02;S Y=$S('DGODSPT:11500.05,'X:""@31"",1:11500.03);11500.03;S Y=""@31"";11500.05;"
^DIE(448,"DR",1,405,2)="S:'X Y=""@31"";11500.06;@31;I DGPMP=^DGPM(DA,0) S Y="""";102////^S X=DUZ;Q;Q;103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(448,"ROU")="^DGPMX3"
^DIE(448,"ROUOLD")="DGPMX3"
^DIE(449,0)="DGPM LODGER CHECK-OUT^2970512.1556^^405^^^2970521"
^DIE(449,"%D",0)="^^2^2^2890921^"
^DIE(449,"%D",1,0)="This template is used by the Lodger Check-Out option of MAS to capture data"
^DIE(449,"%D",2,0)="relating a lodger's check-out movement."
^DIE(449,"AB","^",.01)="2^DGPMX5"
^DIE(449,"AB","^",.01,"///")=""
^DIE(449,"AB","^",.04)="6^DGPMX5"
^DIE(449,"AB","^",.04,"///")=""
^DIE(449,"AB","^",30.03)="5^DGPMX51"
^DIE(449,"AB","^",102)="7^DGPMX51"
^DIE(449,"AB","^",102,"///")=""
^DIE(449,"AB","^",103)="9^DGPMX51"
^DIE(449,"AB","^",103,"///")=""
^DIE(449,"AB","^","@51")="4^DGPMX5"
^DIE(449,"AB","^","@52")="9^DGPMX5"
^DIE(449,"AB","^","@53")="3^DGPMX51"
^DIE(449,"DIAB",1,0,405,1)=".04;""CHECK-OUT TYPE"""
^DIE(449,"DIAB",1,0,405,2)="103///NOW"
^DIE(449,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=""@51"";.01///^S X=DGPMY;Q;@51;D ONLY^DGPMV35 S:'$D(DGPMCO) Y=""@52"";.04////^S X=DGPMCO;K DGPMCO;S Y=""@53"";@52;S ^DISV(DUZ,""^DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM5"")):^(""DGPM5""),1:"""");"
^DIE(449,"DR",1,405,1)=".04CHECK-OUT TYPE~;S ^DISV(DUZ,""DGPM5"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");@53;S:DGPMN DIE(""NO^"")="""";30.03;I DGPMP=^DGPM(DA,0) S Y="""";102////^S X=DUZ;Q;"
^DIE(449,"DR",1,405,2)="103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(449,"ROU")="^DGPMX5"
^DIE(449,"ROUOLD")="DGPMX5"
^DIE(450,0)="DGPM CHECK-IN LODGER^2991029.1535^^405^^^3040120"
^DIE(450,"%D",0)="3^.4021^3^3^3040128^^^"
^DIE(450,"%D",1,0)="This template is used by the Check-in Lodger movement of MAS to capture data"
^DIE(450,"%D",2,0)="necessary for a lodger's check in.  This template can only be used from"
^DIE(450,"%D",3,0)="within the MAS package."
^DIE(450,"AB","^",.01)="2^DGPMX4"
^DIE(450,"AB","^",.01,"///")=""
^DIE(450,"AB","^",.04)="6^DGPMX4"
^DIE(450,"AB","^",.05)="12^DGPMX4"
^DIE(450,"AB","^",.05,"///")=""
^DIE(450,"AB","^",.06)="9^DGPMX4"
^DIE(450,"AB","^",.07)="10^DGPMX4"
^DIE(450,"AB","^",30.01)="8^DGPMX43"
^DIE(450,"AB","^",30.02)="9^DGPMX43"
^DIE(450,"AB","^",102)="11^DGPMX43"
^DIE(450,"AB","^",102,"///")=""
^DIE(450,"AB","^",103)="13^DGPMX43"
^DIE(450,"AB","^",103,"///")=""
^DIE(450,"AB","^","@41")="14^DGPMX4"
^DIE(450,"AB","^","@42")="7^DGPMX43"
^DIE(450,"AB","^","@43")="4^DGPMX4"
^DIE(450,"DIAB",6,0,405,0)=".04;""CHECK-IN TYPE"""
^DIE(450,"DIAB",9,0,405,2)="103///NOW"
^DIE(450,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=""@43"";.01///^S X=DGPMY;Q;@43;S ^DISV(DUZ,""DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM4"")):^(""DGPM4""),1:"""");.04CHECK-IN TYPE~;S ^DISV(DUZ,""DGPM4"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");"
^DIE(450,"DR",1,405,1)="S:$P(^DGPM(DA,0),""^"",18)=6 Y=""@41"";.06;.07;S:($P(DGPMP,""^"",18)=$P(^DGPM(DA,0),""^"",18)) Y=""@42"";.05///@;S Y=""@42"";@41;.05;S:($P(DGPMP,""^"",18)=$P(^DGPM(DA,0),""^"",18)) Y=""@42"";N DGWARD;S DGWARD(405,DA_"","",.06)="""";"
^DIE(450,"DR",1,405,2)="D FILE^DIE("""",""DGWARD"","""");.07///@;@42;30.01;30.02;I DGPMP=^DGPM(DA,0) S Y="""";102////^S X=DUZ;Q;103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(450,"ROU")="^DGPMX4"
^DIE(450,"ROUOLD")="DGPMX4"
^DIE(451,0)="DGPM SPECIALTY TRANSFER^2950801.1127^^405^^^2990328^"
^DIE(451,"AB","^",.01)="2^DGPMX6"
^DIE(451,"AB","^",.01,"///")=""
^DIE(451,"AB","^",.04)="6^DGPMX6"
^DIE(451,"AB","^",.04,"///")=""
^DIE(451,"AB","^",.08)="16^DGPMX6"
^DIE(451,"AB","^",.09)="14^DGPMX6"
^DIE(451,"AB","^",.19)="17^DGPMX6"
^DIE(451,"AB","^",99)="1^DGPMX67"
^DIE(451,"AB","^",102)="4^DGPMX67"
^DIE(451,"AB","^",102,"///")=""
^DIE(451,"AB","^",103)="6^DGPMX67"
^DIE(451,"AB","^",103,"///")=""
^DIE(451,"AB","^","@10")="3^DGPMX6"
^DIE(451,"AB","^","@20")="9^DGPMX6"
^DIE(451,"AB","^","@30")="13^DGPMX6"
^DIE(451,"AB","^","@35")="15^DGPMX6"
^DIE(451,"AB","^","@40")="2^DGPMX67"
^DIE(451,"DIAB",2,0,405,1)=".04;SPECIALTY TRANSFER TYPE"
^DIE(451,"DIAB",5,0,405,2)="103///NOW"
^DIE(451,"DR",1,405)="S:$S(DGPMN:1,DGPMY=+^DGPM(DA,0):1,1:0) Y=""@10"";.01///^S X=DGPMY;@10;S:$D(DGPMPC) Y=""@35"";D ONLY^DGPMV36 S:'$D(DGPMSPI) Y=""@20"";.04////^S X=DGPMSPI;K DGPMSPI;S Y=""@30"";@20;"
^DIE(451,"DR",1,405,1)="S ^DISV(DUZ,""^DG(405.1,"")=$S($D(^DISV(DUZ,""DGPM6"")):^(""DGPM6""),1:"""");.04SPECIALTY TRANSFER TYPE~;S ^DISV(DUZ,""DGPM6"")=$S($D(^DISV(DUZ,""^DG(405.1,"")):^(""^DG(405.1,""),1:"""");@30;.09;@35;.08;.19;K DIE(""NO^"");S:$D(DGPMBYP) Y=""@40"";99;"
^DIE(451,"DR",1,405,2)="@40;S:DGPMP=^DGPM(DA,0) Y="""";102////^S X=DUZ;Q;103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(451,"ROU")="^DGPMX6"
^DIE(451,"ROUOLD")="DGPMX6"
^DIE(452,0)="DGPM ASIH ADMIT^3030219.1157^^405^^^3030219"
^DIE(452,"%D",0)="^.4021^3^3^3000425^^^^"
^DIE(452,"%D",1,0)="This template is used when transfering a patient TO ASIH or CONTINUED ASIH,"
^DIE(452,"%D",2,0)="both of which cause a new admission to be created.  This template edits the"
^DIE(452,"%D",3,0)="hospital admission."
^DIE(452,"AB","^",.01)="2^DGPMXA"
^DIE(452,"AB","^",.01,"///")=""
^DIE(452,"AB","^",.06)="4^DGPMXA"
^DIE(452,"AB","^",.06,"///")=""
^DIE(452,"AB","^",.07)="5^DGPMXA"
^DIE(452,"AB","^",.07,"///")=""
^DIE(452,"AB","^",.1)="10^DGPMXA"
^DIE(452,"AB","^",.11)="8^DGPMXA"
^DIE(452,"AB","^",.12)="6^DGPMXA"
^DIE(452,"AB","^",41)="3^DGPMXA"
^DIE(452,"AB","^",102)="2^DGPMXA1"
^DIE(452,"AB","^",102,"///")=""
^DIE(452,"AB","^",103)="4^DGPMXA1"
^DIE(452,"AB","^",103,"///")=""
^DIE(452,"AB","^",11500.01)="1^DGPMXA1"
^DIE(452,"AB","^",11500.01,"///")=""
^DIE(452,"AB","^","@1")="9^DGPMXA"
^DIE(452,"DIAB",3,0,405,0)="41;""DOES THE PATIENT WISH TO BE EXCLUDED FROM THE FACILITY DIRECTORY?"";REQ"
^DIE(452,"DIAB",8,0,405,1)="103///NOW"
^DIE(452,"DR",1,405)="S:DGPMNA Y=41;.01///^S X=+DGPMA;41R~DOES THE PATIENT WISH TO BE EXCLUDED FROM THE FACILITY DIRECTORY?~;.06////^S X=$P(DGPMA,""^"",6);.07////^S X=$P(DGPMA,""^"",7);.12;I $S('$D(^DPT(DFN,.3)):1,$P(^(.3),""^"",1)'=""Y"":1,1:0) S Y=""@1"";.11;"
^DIE(452,"DR",1,405,1)="@1;.1;Q;D DFN^DGYZODS S:'DGODS Y=102;11500.01////1;102////^S X=DUZ;Q;103///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(452,"ROU")="^DGPMXA"
^DIE(452,"ROUOLD")="DGPMXA"
^DIE(453,0)="DG PTF ATTACH^2900223.1938^^405^^^^"
^DIE(453,"DIAB",3,0,405,0)="PTF ENTRY:"
^DIE(453,"DR",1,405)=".16////^S X=PTF;S:'DGPMDN Y=""@99"";^45^DGPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@99;"
^DIE(453,"DR",2,45)="70////^S X=+DGPMDN;72////^S X=$S('$D(DGTY):"""",DGTY:DGTY,1:"""");"
^DIE(454,0)="DG PTF ADD MESSAGE^2900319.23^^45.5^^^3000622^"
^DIE(454,"AB","^",1)="1^DGPTXM"
^DIE(454,"AB","^",1,"///")=""
^DIE(454,"AB","^",2)="2^DGPTXM"
^DIE(454,"AB","^",2,"///")=""
^DIE(454,"AB","^",3)="3^DGPTXM"
^DIE(454,"AB","^",3,"///")=""
^DIE(454,"AB","^",10)="5^DGPTXM"
^DIE(454,"AB","^",10,"///")=""
^DIE(454,"AB","^","@99")="6^DGPTXM"
^DIE(454,"DR",1,45.5)="1////^S X=DFN;2////^S X=DUZ;3///NOW;S:'$D(DGMSG) Y=""@99"";10///^S X=DGMSG;@99;"
^DIE(454,"ROU")="^DGPTXM"
^DIE(454,"ROUOLD")="DGPTXM"
^DIE(455,0)="DG PTF POST CREATE^2950522.145^^45^^^3000622"
^DIE(455,"AB","^",20)="3^DGPTXA"
^DIE(455,"AB","^","@10")="5^DGPTXA"
^DIE(455,"AB","^","@20")="7^DGPTXA"
^DIE(455,"DR",1,45)="S:$D(DGPTSOA) Y=""@10"";S:$P(^DGPT(DA,0),U,4) Y=""@20"";20;S Y=""@20"";@10;20////^S X=DGPTSOA;@20;"
^DIE(455,"ROU")="^DGPTXA"
^DIE(455,"ROUOLD")="DGPTXA"
^DIE(456,0)="DGPM BED EDIT^2900718.0909^^405.4^^^^"
^DIE(456,"DIAB",1,1,405.41,0)="ALL"
^DIE(456,"DR",1,405.4)=".01;.02;100;"
^DIE(456,"DR",2,405.41)=".01"
^DIE(457,0)="DG ID FORMAT ENTER/EDIT^2901019.1209^^8.2^^^^"
^DIE(457,"DR",1,8.2)=".01;50;100;1;2;4;300;400;"
^DIE(458,0)="DGPT 501 CLEANUP^2910515.1554^^45^^^^"
^DIE(458,"DR",1,45)="50///^S X=+DGMOV;"
^DIE(458,"DR",2,45.02)="I $D(DGBPC(2)),$P(DGHOLD,U,2)]"""" S Y=""@20"";300.02////^S X=""@"";@20;I $D(DGBPC(3)),$P(DGHOLD,U,3)]"""" S Y=""@30"";300.03////^S X=""@"";@30;I $D(DGBPC(4)),$P(DGHOLD,U,4)]"""" S Y=""@40"";300.04////^S X=""@"";@40;"
^DIE(458,"DR",2,45.02,1)="I $D(DGBPC(5)),$P(DGHOLD,U,5)]"""" S Y=""@50"";300.05////^S X=""@"";@50;I $D(DGBPC(6)),$P(DGHOLD,U,6)]"""" S Y=""@60"";300.06////^S X=""@"";@60;I $D(DGBPC(7)),$P(DGHOLD,U,7)]"""" S Y=""@899"";300.07////^S X=""@"";@899;"
^DIE(459,0)="DGPT 401 CLEANUP^2910515.1544^^45^^^^"
^DIE(459,"DR",1,45)="40///^S X=+DGSUR;"
^DIE(459,"DR",2,45.01)="I $D(DGBPC(1)),$P(DGHOLD,U)]"""" S Y=""@99"";300.01////^S X=""@"";@99;"
^DIE(460,0)="DGJ EDIT IRT RECORD^2930324.1448^^393^^^3011023^"
^DIE(460,"AB","^",.02)="3^DGJXE"
^DIE(460,"AB","^",.02,"///")=""
^DIE(460,"AB","^",.03)="5^DGJXE"
^DIE(460,"AB","^",.04)="9^DGJXE"
^DIE(460,"AB","^",.05)="12^DGJXE"
^DIE(460,"AB","^",.06)="15^DGJXE"
^DIE(460,"AB","^",.06,"///")=""
^DIE(460,"AB","^",.07)="1^DGJXE1"
^DIE(460,"AB","^",.08)="18^DGJXE"
^DIE(460,"AB","^",.08,"///")=""
^DIE(460,"AB","^",.09)="2^DGJXE1"
^DIE(460,"AB","^",.1)="4^DGJXE1"
^DIE(460,"AB","^",.11)="1^DGJXE5"
^DIE(460,"AB","^",.11,"///")=""
^DIE(460,"AB","^",.12)="19^DGJXE"
^DIE(460,"AB","^",10.01)="12^DGJXE1"
^DIE(460,"AB","^",10.02)="17^DGJXE1"
^DIE(460,"AB","^",10.03)="21^DGJXE1"
^DIE(460,"AB","^",10.04)="25^DGJXE1"
^DIE(460,"AB","^",10.05)="1^DGJXE4"
^DIE(460,"AB","^",10.06)="5^DGJXE4"
^DIE(460,"AB","^",10.07)="10^DGJXE4"
^DIE(460,"AB","^",10.08)="14^DGJXE4"
^DIE(460,"AB","^",20.01)="8^DGJXE5"
^DIE(460,"AB","^","@1")="21^DGJXE"
^DIE(460,"AB","^","@10")="28^DGJXE1"
^DIE(460,"AB","^","@11")="9^DGJXE4"
^DIE(460,"AB","^","@13")="14^DGJXE"
^DIE(460,"AB","^","@15")="6^DGJXE5"
^DIE(460,"AB","^","@2")="17^DGJXE4"
^DIE(460,"AB","^","@20")="3^DGJXE5"
^DIE(460,"AB","^","@3")="10^DGJXE"
^DIE(460,"AB","^","@4")="6^DGJXE1"
^DIE(460,"AB","^","@5")="6^DGJXE"
^DIE(460,"AB","^","@6")="8^DGJXE1"
^DIE(460,"AB","^","@8")="27^DGJXE4"
^DIE(460,"AB","^","@9")="20^DGJXE1"
^DIE(460,"DIAB",4,0,393,4)=".09;""PRIMARY PHYSICIAN"""
^DIE(460,"DR",1,393)="K DGJTUP;S:DGJTNUM'[""1"" Y=""@1"";.02////^S X=$P(^VAS(393,D0,0),""^"",2);I X=1 S DGJTXX=$P(^VAS(393,D0,0),""^"",5) S Y=""@5"";.03;@5;S Y=""@3"";I $P(^VAS(393,D0,0),""^"",4)']"""" S Y=""@3"";.04;@3;"
^DIE(460,"DR",1,393,1)="I $P(^VAS(393,D0,0),""^"",2)=$O(^VAS(393.3,""B"",""DISCHARGE SUMMARY"",0)) S Y=""@13"";.05;S DGJTXX=X;@13;.06////^S X=+DGJTDV;"
^DIE(460,"DR",1,393,2)="S DGX=DGJTXX,DGX=$S($D(^SC(+DGX,42)):$P(^DIC(42,+(^SC(+DGX,42)),0),""^"",3),$D(^SC(+DGX,0)):$P(^SC(+DGX,0),""^"",8),1:"""") I DGX']"""" S DGX=0;"
^DIE(460,"DR",1,393,3)="S DGJX=$S($D(^DG(393.1,""AC"",DGX)):$O(^(DGX,0)),1:"""") I DGJX]"""" S DGJX=$P(^DG(393.1,+DGJX,0),""^"",1);.08///^S X=DGJX;.12;S DGJTUP=1;@1;I $P(DGJTNO,""^"",2)=$O(^VAS(393.3,""B"",""DISCHARGE SUMMARY"",0)) S Y=""@6"";"
^DIE(460,"DR",1,393,4)="I $P(DGJTNO,""^"",2)=$O(^VAS(393.3,""B"",""DISCHARGE SUMMARY"",0)) S Y="""";S:DGJTNUM'[""2"" Y=""@6"";.07;.09PRIMARY PHYSICIAN~;I $P(DGJTDEL,""^"",3)=0&($P(DGJTDEL,""^"",10)=""P"") S DGJTUP=1 S Y=""@4"";.1;S DGJTUP=1;@4;S:DGJTNUM'[""3"" Y="""";@6;"
^DIE(460,"DR",1,393,5)="I $D(DGJTDEF)&(DGJTNUM[""3"") S Y=""@20"";S:DGJTNUM'[""3"" Y=""@15"";I $P(DGJTNO,""^"",2)=$O(^VAS(393.3,""B"",""DISCHARGE SUMMARY"",0)) D LESS48^DGJTUTL S:X=1 Y=""@10"" S:X=-1 Y=""@15"";10.01;"
^DIE(460,"DR",1,393,6)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",2)="""",$P(^(""DT""),""^"",3)="""",$P(^(""DT""),""^"",4)="""",$P(^(""DT""),""^"",5)="""",$P(^(""DT""),""^"",6)="""",$P(^(""DT""),""^"",7)="""",$P(^(""DT""),""^"",8)="""";I X="""" S DGJTST=""INCOMPLETE"",Y=""@2"";"
^DIE(460,"DR",1,393,7)="S DGJTDDT=$S($P(^VAS(393,D0,0),""^"",4)]"""":$P(^DGPM($P(^VAS(393,D0,0),""^"",4),0),""^"",1),1:$P(^VAS(393,D0,0),""^"",3));"
^DIE(460,"DR",1,393,8)="S DGJTDDT=$S(DGJTDDT[""."":$P(DGJTDDT,""."",1),1:DGJTDDT) I X<DGJTDDT S $P(^VAS(393,D0,""DT""),""^"",1)="""" W !,""Date must be equal to or after EVENT DATE... no time required."" S Y=""@6"";10.02;"
^DIE(460,"DR",1,393,9)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",1)="""",$P(^(""DT""),""^"",3)="""",$P(^(""DT""),""^"",4)="""",$P(^(""DT""),""^"",5)="""",$P(^(""DT""),""^"",6)="""",$P(^(""DT""),""^"",7)="""",$P(^(""DT""),""^"",8)="""" S DGJTST=""INCOMPLETE"",Y=""@2"";S DGJTST=""DICTATED"";@9;10.03;"
^DIE(460,"DR",1,393,10)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",4)="""";I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",3)="""" S Y=""@9"";I X="""" S DGJTST=""DICTATED"",Y=""@2"";10.04;"
^DIE(460,"DR",1,393,11)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",3)="""",DGJTST=""DICTATED"",Y=""@2"";S DGJTST=""TRANSCRIBED"";@10;10.05;I X="""" S $P(^VAS(393,D0,""DT""),""^"",6)="""";"
^DIE(460,"DR",1,393,12)="I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",5)="""",Y=""@10"";I X="""" S DGJTST=""TRANSCRIBED"",Y=""@2"";10.06;"
^DIE(460,"DR",1,393,13)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",5)="""",DGJTST=""TRANSCRIBED"",Y=""@2"";S DGJTST=""SIGNED"";I $P(DGJTDEL,""^"",3)=0 S DGJTST=""SIGNED NO REVIEW"",Y=""@2"";@11;10.07;I X="""" S $P(^VAS(393,D0,""DT""),""^"",8)="""";"
^DIE(460,"DR",1,393,14)="I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",7)="""",Y=""@11"";I X="""" S DGJTST=""SIGNED"",Y=""@2"";10.08;I X="""" S $P(^VAS(393,D0,""DT""),""^"",7)="""",DGJTST=""SIGNED"",Y=""@2"";"
^DIE(460,"DR",1,393,15)="S DGJTST=""REVIEWED"";@2;I X="""" S DGJTUP=1;I X]"""" S DGJTUP=1;S DGJTST=^VAS(393,D0,""DT"");I $P(DGJTST,""^"",1)']"""" S DGJTST=""INCOMPLETE"" S Y=""@8"";I $P(DGJTST,""^"",3)']"""" S DGJTST=""DICTATED"" S Y=""@8"";"
^DIE(460,"DR",1,393,16)="I $P(DGJTST,""^"",5)']"""" S DGJTST=""TRANSCRIBED"" S Y=""@8"";I $P(DGJTST,""^"",7)']"""" S DGJTST=""SIGNED"" S Y=""@8"";I $P(DGJTDEL,""^"",3)=0 S DGJTST=""SIGNED NO REVIEW"";I $P(DGJTDEL,""^"",3)=1 S DGJTST=""REVIEWED"";@8;"
^DIE(460,"DR",1,393,17)="S DGJTST=$O(^DG(393.2,""B"",DGJTST,0));.11////^S X=DGJTST;S Y=""@15"";@20;.11;S DGJTUP=1;@15;S:DGJTNUM'[""4"" Y="""";20.01;S DGJTUP=1;"
^DIE(460,"ROU")="^DGJXE"
^DIE(460,"ROUOLD")="DGJXE"
^DIE(461,0)="DGJ ENTER IRT RECORD^2921201.1548^^393^^^2990727^"
^DIE(461,"AB","^",.02)="1^DGJXA"
^DIE(461,"AB","^",.02,"///")=""
^DIE(461,"AB","^",.03)="2^DGJXA"
^DIE(461,"AB","^",.03,"///")=""
^DIE(461,"AB","^",.04)="3^DGJXA"
^DIE(461,"AB","^",.04,"///")=""
^DIE(461,"AB","^",.05)="4^DGJXA"
^DIE(461,"AB","^",.05,"///")=""
^DIE(461,"AB","^",.06)="5^DGJXA"
^DIE(461,"AB","^",.06,"///")=""
^DIE(461,"AB","^",.07)="6^DGJXA"
^DIE(461,"AB","^",.07,"///")=""
^DIE(461,"AB","^",.08)="7^DGJXA"
^DIE(461,"AB","^",.08,"///")=""
^DIE(461,"AB","^",.09)="8^DGJXA"
^DIE(461,"AB","^",.09,"///")=""
^DIE(461,"AB","^",.1)="9^DGJXA"
^DIE(461,"AB","^",.1,"///")=""
^DIE(461,"AB","^",.11)="1^DGJXA2"
^DIE(461,"AB","^",.11,"///")=""
^DIE(461,"AB","^",.12)="10^DGJXA"
^DIE(461,"AB","^",.12,"///")=""
^DIE(461,"AB","^",10.01)="12^DGJXA"
^DIE(461,"AB","^",10.02)="1^DGJXA1"
^DIE(461,"AB","^",10.03)="5^DGJXA1"
^DIE(461,"AB","^",10.04)="8^DGJXA1"
^DIE(461,"AB","^",10.05)="12^DGJXA1"
^DIE(461,"AB","^",10.06)="15^DGJXA1"
^DIE(461,"AB","^",10.07)="20^DGJXA1"
^DIE(461,"AB","^",10.08)="23^DGJXA1"
^DIE(461,"AB","^",20.01)="2^DGJXA2"
^DIE(461,"AB","^","@2")="26^DGJXA1"
^DIE(461,"AB","^","@5")="4^DGJXA1"
^DIE(461,"AB","^","@6")="11^DGJXA1"
^DIE(461,"AB","^","@7")="19^DGJXA1"
^DIE(461,"AB","^","@8")="11^DGJXA"
^DIE(461,"DR",1,393)=".02////^S X=DGJTYP;.03///^S X=DGJTDT;.04////^S X=DGJTAIFN;.05////^S X=DGJTWD;.06////^S X=+DGJTDV;.07////^S X=DGJTSP;.08////^S X=DGJTSV;.09////^S X=DGJT1PH;.1////^S X=DGJT2PH;.12////^S X=DGJTPR;@8;10.01;"
^DIE(461,"DR",1,393,1)="I X="""" S DGJTST=""INCOMPLETE"",Y=""@2"";S DGJTDDT=$S($P(^VAS(393,D0,0),""^"",4)]"""":$P(^DGPM($P(^VAS(393,D0,0),""^"",4),0),""^"",1),1:$P(^VAS(393,D0,0),""^"",3));"
^DIE(461,"DR",1,393,2)="S DGJTDDT=$S(DGJTDDT[""."":$P(DGJTDDT,""."",1),1:DGJTDDT) I X<DGJTDDT S $P(^VAS(393,D0,""DT""),""^"",1)="""" W !,""Date must be equal to or after EVENT DATE...no time required."" S Y=""@8"";10.02;"
^DIE(461,"DR",1,393,3)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",1)="""" S DGJTST=""INCOMPLETE"",Y=""@2"";S DGJTST=""DICTATED"";@5;10.03;I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",3)="""" S Y=""@5"";"
^DIE(461,"DR",1,393,4)="I X="""" S DGJTST=""DICTATED"",Y=""@2"";10.04;I X="""" S $P(^VAS(393,D0,""DT""),""^"",3)="""",DGJTST=""DICTATED"",Y=""@2"";S DGJTST=""TRANSCRIBED"";@6;10.05;"
^DIE(461,"DR",1,393,5)="I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",5)="""" S Y=""@6"";I X="""" S DGJTST=""TRANSCRIBED"",Y=""@2"";10.06;"
^DIE(461,"DR",1,393,6)="I X="""" S $P(^VAS(393,D0,""DT""),""^"",5)="""",DGJTST=""TRANSCRIBED"",Y=""@2"";S DGJTST=""SIGNED"";I $P(DGJTDEL,""^"",3)'=1 S DGJTST=""SIGNED NO REVIEW"",Y=""@2"";@7;10.07;"
^DIE(461,"DR",1,393,7)="I X]"""",X<$P(^VAS(393,D0,""DT""),""^"",1) W !!?5,""Date must be after the DATE DICTATED"" S $P(^VAS(393,D0,""DT""),""^"",7)="""",Y=""@7"";I X="""" S DGJTST=""SIGNED"",Y=""@2"";10.08;I X="""" S $P(^VAS(393,D0,""DT""),""^"",7)="""",DGJTST=""SIGNED"",Y=""@2"";"
^DIE(461,"DR",1,393,8)="S DGJTST=""REVIEWED"";@2;S DGJTST=$O(^DG(393.2,""B"",DGJTST,0));.11////^S X=DGJTST;20.01;"
^DIE(461,"ROU")="^DGJXA"
^DIE(461,"ROUOLD")="DGJXA"
^DIE(462,0)="DGJ IRT PARAMETERS^3011022.0903^^40.8^^^3011023"
^DIE(462,"DR",1,40.8)="100.01;100.02;100.03;I X=0 S DGJPAR=1 S Y=""@1"";100.04;@1;100.1;100.05;100.06;100.07;I $D(DGJPAR) S Y=""@2"";100.08;@2;100.09;100.2;100.3;K DGJPAR;"
^DIE(463,0)="DGPT 150^2910225.1455^^45.87^^^^"
^DIE(463,"DIAB",1,0,45.87,3)=".08//^S X=DGRFAC;""Requesting Facility/Suffix"";REQ"
^DIE(463,"DIAB",2,0,45.87,1)=".06//^S X=DGTADM;""Admission DATE/TIME"";REQ"
^DIE(463,"DIAB",2,0,45.87,2)=".07//^S X=DGFAC;""Admitting Facility/Suffix"";REQ"
^DIE(463,"DIAB",4,0,45.87,0)=".09;""Patient Name (Optional)"""
^DIE(463,"DIAB",4,0,45.87,1)=".1;""Admitting Facility Name (Optional)"""
^DIE(463,"DIAB",6,0,45.87,0)=".05//^S X=DGSSN;""SSN of the Patient"";REQ"
^DIE(463,"DR",1,45.87)="D HDRPX^DGPTRPO;.02////^S X=DUZ;.04////^S X=DGCTL;.09Patient Name (Optional)~;I DGPAT'=X,$D(^DPT(+X,0)) S DGSSN=$P(^(0),""^"",9),DGNAME=$P(^DPT(X,0),""^"") D HDRPX^DGPTRPO;.05R~SSN of the Patient~//^S X=DGSSN;"
^DIE(463,"DR",1,45.87,1)="I DGSSN'=X S DGSSN=X D HDRPX^DGPTRPO;.06R~Admission DATE/TIME~//^S X=DGTADM;I DGTADM'=X S DGTADM=X,DGADM=$E(X,4,5)_$E(X,6,7)_$E(X,2,3)_$E($P(X,""."",2)_""0000"",1,4) D HDRPX^DGPTRPO;.1Admitting Facility Name (Optional)~;"
^DIE(463,"DR",1,45.87,2)="I DGINST'=X,$D(^DIC(4,+X,99)) S DGFAC=$E($P(^(99),""^"")_""      "",1,6),DGFNAM=$P(^DIC(4,X,0),""^"") D HDRPX^DGPTRPO;.07R~Admitting Facility/Suffix~//^S X=DGFAC;I DGFAC'=X S DGFAC=X D HDRPX^DGPTRPO;"
^DIE(463,"DR",1,45.87,3)=".08R~Requesting Facility/Suffix~//^S X=DGRFAC;I DGRFAC'=X S DGRFAC=X D HDRPX^DGPTRPO;"
^DIE(464,0)="DGPT 151^2910225.1203^^45.87^^^^"
^DIE(464,"DIAB",2,0,45.87,1)=".08//^S X=DGRFAC;""Requesting Facility/Suffix"";REQ"
^DIE(464,"DIAB",4,0,45.87,0)=".09;""Patient Name (Optional)"""
^DIE(464,"DIAB",6,0,45.87,0)=".05//^S X=DGSSN;""SSN of the Patient"";REQ"
^DIE(464,"DR",1,45.87)="D HDRPX^DGPTRPO;.02////^S X=DUZ;.04////^S X=DGCTL;.09Patient Name (Optional)~;I DGPAT'=X,$D(^DPT(+X,0)) S DGSSN=$P(^(0),""^"",9),DGNAME=$P(^DPT(X,0),""^"") D HDRPX^DGPTRPO;.05R~SSN of the Patient~//^S X=DGSSN;"
^DIE(464,"DR",1,45.87,1)="I DGSSN'=X S DGSSN=X D HDRPX^DGPTRPO;.08R~Requesting Facility/Suffix~//^S X=DGRFAC;I DGRFAC'=X S DGRFAC=X D HDRPX^DGPTRPO;"
^DIE(465,0)="DGPT 099^2910225.1216^^45.87^^^^"
^DIE(465,"DIAB",1,0,45.87,2)=".08//^S X=DGRFAC;""Requesting Facility Number/Suffix"";REQ"
^DIE(465,"DIAB",2,0,45.87,1)=".06//^S X=DGTADM;""Admission DATE/TIME"";REQ"
^DIE(465,"DIAB",4,0,45.87,0)=".09;""Patient Name (Optional)"""
^DIE(465,"DIAB",6,0,45.87,0)=".05//^S X=DGSSN;""SSN of the Patient"";REQ"
^DIE(465,"DR",1,45.87)="D HD099^DGPTF09X;.02////^S X=DUZ;.04////^S X=DGCTL;.09Patient Name (Optional)~;I DGPAT'=X,$D(^DPT(+X,0)) S DGSSN=$P(^(0),""^"",9),DGNAME=$P(^DPT(X,0),""^"") D HD099^DGPTF09X;.05R~SSN of the Patient~//^S X=DGSSN;"
^DIE(465,"DR",1,45.87,1)="I DGSSN'=X S DGSSN=X D HD099^DGPTF09X;.06R~Admission DATE/TIME~//^S X=DGTADM;I DGTADM'=X S DGTADM=X,DGADM=$E(X,4,5)_$E(X,6,7)_$E(X,2,3)_$E($P(X,""."",2)_""0000"",1,4) D HD099^DGPTF09X;"
^DIE(465,"DR",1,45.87,2)=".08R~Requesting Facility Number/Suffix~//^S X=DGRFAC;I DGRFAC'=X S DGRFAC=X D HD099^DGPTF09X;"
^DIE(466,0)="DG501Q^2910709.1148^^45^^^^"
^DIE(466,"DR",1,45)="K DGPTIT;S DGHOLD=$S($D(^DGPT(DGPTF,""M"",+DGMOV,0)):^(0),1:"""");50///^S X=+DGMOV;"
^DIE(466,"DR",2,45.02)="S:'$D(DGADD) DGADD=0;S:DGJUMP'[1 Y=""@2"";S:DGADD Y=""@20"";S DGNFLD=""@10"";3;@10;S DGNFLD=""@15"";4;S:DGJUMP'[2 Y="""";@2;I $D(^DPT(+^DGPT(DGPTF,0),.3)),$P(^(.3),U)=""Y"" S Y=""@15"";18////^S X=2;S (DGNFLD,Y)=""@20"";@15;18//NO;@20;"
^DIE(466,"DR",2,45.02,1)="I DGADD,$P(DGHOLD,U,5)]"""" S Y=""@40"";S DGNFLD=""@40"";5;I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@40;I DGADD,$P(DGHOLD,U,6)]"""" S Y=""@50"";S DGNFLD=""@50"";6;"
^DIE(466,"DR",2,45.02,2)="I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@50;I DGADD,$P(DGHOLD,U,7)]"""" S Y=""@60"";S DGNFLD=""@60"";7;I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@60;I DGADD,$P(DGHOLD,U,8)]"""" S Y=""@70"";"
^DIE(466,"DR",2,45.02,3)="S DGNFLD=""@70"";8;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@70;I DGADD,$P(DGHOLD,U,9)]"""" S Y=""@80"";S DGNFLD=""@80"";9;I X K DGPTIT S DGNFLD=""@80"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@80;K DGNFLD S Y="""";@800;"
^DIE(466,"DR",2,45.02,4)="D SCAN^DGPTSCAN S:'$D(DGBPC) Y=""@899"";I '$D(DGBPC(2)) S Y=""@810"";300.02;@810;I '$D(DGBPC(3)) S Y=""@820"";300.03;@820;I '$D(DGBPC(4)) S Y=""@830"";300.04;@830;I '$D(DGBPC(5)) S Y=""@840"";300.05;@840;I '$D(DGBPC(6)) S Y=""@850"";300.06;"
^DIE(466,"DR",2,45.02,5)="@850;I '$D(DGBPC(7)) S Y=""@899"";300.07;@899;K DGPTIT S Y=DGNFLD;"
^DIE(467,0)="DGMT ENTER/EDIT MARITAL STATUS^2920507.1927^^408.22^^^^"
^DIE(467,"AB","^",.05)="5^DGMTXM"
^DIE(467,"AB","^",.06)="7^DGMTXM"
^DIE(467,"AB","^",.07)="1^DGMTXM1"
^DIE(467,"AB","^",.08)="4^DGMTXM1"
^DIE(467,"AB","^","@101")="4^DGMTXM"
^DIE(467,"AB","^","@102")="2^DGMTXM1"
^DIE(467,"AB","^","@998")="5^DGMTXM1"
^DIE(467,"AB","^","@999")="7^DGMTXM1"
^DIE(467,"DIAB",2,0,408.22,1)=".06;REQ;""DID YOU LIVE WITH YOUR SPOUSE LAST YEAR"""
^DIE(467,"DIAB",4,0,408.22,1)=".07;REQ;T"
^DIE(467,"DIAB",5,0,408.22,0)=".05//^S X=$S(""^2^5^""[(U_$S($D(^DPT(DFN,0)):$P(^(0),U,5),1:"""")_U)!($D(DGREL(""S""))):""YES"",1:""NO"");REQ;T"
^DIE(467,"DIAB",7,0,408.22,1)=".08//^S X=$S($D(DGREL(""C"")):""YES"",1:"""");REQ;T"
^DIE(467,"DR",1,408.22)="K DGFIN;I '$D(DFN)!('$D(DGDR)) W !,*7,""Variables DFN and DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;.05T~R~//^S X=$S(""^2^5^""[(U_$S($D(^DPT(DFN,0)):$P(^(0),U,5),1:"""")_U)!($D(DGREL(""S""))):""YES"",1:""NO"");"
^DIE(467,"DR",1,408.22,1)="S:'X Y=""@102"";.06DID YOU LIVE WITH YOUR SPOUSE LAST YEAR~R~;S:X Y=""@102"";.07T~R~;@102;S:DGDR'[""102"" Y=""@998"";.08T~R~//^S X=$S($D(DGREL(""C"")):""YES"",1:"""");@998;S DGFIN="""";@999;"
^DIE(467,"ROU")="^DGMTXM"
^DIE(467,"ROUOLD")="DGMTXM"
^DIE(468,0)="DGMT ENTER/EDIT DEPENDENTS^3050224.1105^^408.22^^^3050708"
^DIE(468,"AB","^",.06)="19^DGMTXD"
^DIE(468,"AB","^",.09)="12^DGMTXD"
^DIE(468,"AB","^",.1)="21^DGMTXD"
^DIE(468,"AB","^",.11)="25^DGMTXD"
^DIE(468,"AB","^",.12)="27^DGMTXD"
^DIE(468,"AB","^",.18)="14^DGMTXD"
^DIE(468,"AB","^",.19)="23^DGMTXD"
^DIE(468,"AB","^","@1")="16^DGMTXD"
^DIE(468,"AB","^","@10")="24^DGMTXD"
^DIE(468,"AB","^","@2")="18^DGMTXD"
^DIE(468,"AB","^","@998")="28^DGMTXD"
^DIE(468,"DIAB",2,0,408.22,2)="CONTRIBUTED TO SUPPORT;T"
^DIE(468,"DIAB",4,0,408.22,2)="AMOUNT CONTRIBUTED TO CHILD;T"
^DIE(468,"DIAB",5,0,408.22,1)="INCAPABLE OF SELF-SUPPORT;T"
^DIE(468,"DIAB",6,0,408.22,2)="CHILD HAD INCOME;T"
^DIE(468,"DIAB",7,0,408.22,1)="CHILD 18-23 IN SCHOOL//YES;T"
^DIE(468,"DIAB",8,0,408.22,2)="INCOME AVAILABLE TO YOU;T"
^DIE(468,"DIAB",10,0,408.22,1)="CHILD 18-23 IN SCHOOL//NO;T"
^DIE(468,"DIAB",12,0,408.22,1)="LIVED WITH PATIENT;""DID THE CHILD LIVE WITH YOU"""
^DIE(468,"DR",1,408.22)="K DGFIN;N IAIPTR,PRPTR,PFILE,PIEN,PREC;N PDOB,AGE,PREF;S IAIPTR=$P(^DGMT(408.22,DA,0),""^"",2);S PRPTR=$P(^DGMT(408.21,IAIPTR,0),""^"",2);S PREF=$P(^DGPR(408.12,PRPTR,0),""^"",3);S PFILE=""^""_$P(PREF,$CHAR(59),2);"
^DIE(468,"DR",1,408.22,1)="S PIEN=$P(PREF,$CHAR(59),1);S PREC=PFILE_PIEN_"",0)"";S DOB=$P(@PREC,""^"",3);S AGE=($$FMDIFF^XLFDT(DT,DOB)/365.25);.09T~;I (AGE<18)!(AGE>23.99999) S Y=""@1"";.18T~//YES;S Y=""@2"";@1;.18T~//NO;@2;.06DID THE CHILD LIVE WITH YOU~;"
^DIE(468,"DR",1,408.22,2)="S:X Y=""@10"";.1T~;S:'X Y=""@10"";.19T~;@10;.11T~;S:'X Y=""@998"";.12T~;@998;S DGFIN="""";"
^DIE(468,"ROU")="^DGMTXD"
^DIE(468,"ROUOLD")="DGMTXD"
^DIE(469,0)="DGMT ENTER/EDIT ANNUAL INCOME^2920518.1445^^408.21^^^^"
^DIE(469,"AB","^",.08)="5^DGMTXI"
^DIE(469,"AB","^",.09)="8^DGMTXI"
^DIE(469,"AB","^",.1)="11^DGMTXI"
^DIE(469,"AB","^",.11)="14^DGMTXI"
^DIE(469,"AB","^",.12)="17^DGMTXI"
^DIE(469,"AB","^",.13)="20^DGMTXI"
^DIE(469,"AB","^",.14)="1^DGMTXI1"
^DIE(469,"AB","^",.15)="4^DGMTXI1"
^DIE(469,"AB","^",.16)="7^DGMTXI1"
^DIE(469,"AB","^",.17)="10^DGMTXI1"
^DIE(469,"AB","^","@101")="4^DGMTXI"
^DIE(469,"AB","^","@102")="6^DGMTXI"
^DIE(469,"AB","^","@103")="9^DGMTXI"
^DIE(469,"AB","^","@104")="12^DGMTXI"
^DIE(469,"AB","^","@105")="15^DGMTXI"
^DIE(469,"AB","^","@106")="18^DGMTXI"
^DIE(469,"AB","^","@107")="21^DGMTXI"
^DIE(469,"AB","^","@108")="2^DGMTXI1"
^DIE(469,"AB","^","@109")="5^DGMTXI1"
^DIE(469,"AB","^","@110")="8^DGMTXI1"
^DIE(469,"AB","^","@998")="11^DGMTXI1"
^DIE(469,"AB","^","@999")="13^DGMTXI1"
^DIE(469,"DIAB",17,0,408.21,1)=".17;""ALL OTHER INCOME"""
^DIE(469,"DR",1,408.21)="K DGFIN;I '$D(DGDR)!('$D(DGPRTY)) W !,*7,""Variable DGDR and DGPRTY must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;.08;@102;S:DGDR'[""102"" Y=""@103"";.09;@103;S:DGDR'[""103"" Y=""@104"";.1;@104;S:DGDR'[""104"" Y=""@105"";.11;@105;"
^DIE(469,"DR",1,408.21,1)="S:DGDR'[""105"" Y=""@106"";.12;@106;S:DGDR'[""106"" Y=""@107"";.13;@107;S:DGDR'[""107"" Y=""@108"";.14;@108;S:DGDR'[""108"" Y=""@109"";.15;@109;S:DGDR'[""109"" Y=""@110"";.16;@110;S:DGDR'[""110"" Y=""@998"";.17ALL OTHER INCOME~;@998;S DGFIN="""";@999;"
^DIE(469,"ROU")="^DGMTXI"
^DIE(469,"ROUOLD")="DGMTXI"
^DIE(470,0)="DGMT ENTER/EDIT CHILD EXPENSES^2920504.0924^^408.21^^^^"
^DIE(470,"DIAB",2,0,408.21,0)="1.03;""POST-SECONDARY EDUCATION EXPENSES"""
^DIE(470,"DR",1,408.21)="K DGFIN;1.03POST-SECONDARY EDUCATION EXPENSES~;S DGFIN="""";"
^DIE(470,"ROUOLD")=""
^DIE(471,0)="DGMT ENTER/EDIT COMPLETION^3020820.1107^^408.31^^^3021204"
^DIE(471,"AB","^",.03)="9^DGMTXC"
^DIE(471,"AB","^",.03,"///")=""
^DIE(471,"AB","^",.04)="10^DGMTXC"
^DIE(471,"AB","^",.04,"///")=""
^DIE(471,"AB","^",.05)="19^DGMTXC"
^DIE(471,"AB","^",.05,"///")=""
^DIE(471,"AB","^",.06)="13^DGMTXC"
^DIE(471,"AB","^",.06,"///")=""
^DIE(471,"AB","^",.07)="15^DGMTXC"
^DIE(471,"AB","^",.07,"///")=""
^DIE(471,"AB","^",.11)="21^DGMTXC"
^DIE(471,"AB","^",.12)="23^DGMTXC"
^DIE(471,"AB","^",.12,"///")=""
^DIE(471,"AB","^",.13)="1^DGMTXC2"
^DIE(471,"AB","^",.13,"///")=""
^DIE(471,"AB","^",.14)="5^DGMTXC"
^DIE(471,"AB","^",.14,"///")=""
^DIE(471,"AB","^",.15)="11^DGMTXC"
^DIE(471,"AB","^",.15,"///")=""
^DIE(471,"AB","^",.16)="7^DGMTXC2"
^DIE(471,"AB","^",.16,"///")=""
^DIE(471,"AB","^",.18)="12^DGMTXC"
^DIE(471,"AB","^",.18,"///")=""
^DIE(471,"AB","^",.2)="12^DGMTXC2"
^DIE(471,"AB","^",.2,"///")=""
^DIE(471,"AB","^",.21)="13^DGMTXC2"
^DIE(471,"AB","^",.21,"///")=""
^DIE(471,"AB","^",.22)="14^DGMTXC2"
^DIE(471,"AB","^",.22,"///")=""
^DIE(471,"AB","^",.27)="4^DGMTXC2"
^DIE(471,"AB","^",.27,"///")=""
^DIE(471,"AB","^",2.01)="15^DGMTXC2"
^DIE(471,"AB","^",2.01,"///")=""
^DIE(471,"AB","^",2.04)="16^DGMTXC2"
^DIE(471,"AB","^",2.04,"///")=""
^DIE(471,"AB","^",2.05)="16^DGMTXC"
^DIE(471,"AB","^",2.05,"///")=""
^DIE(471,"AB","^",2.09)="17^DGMTXC2"
^DIE(471,"AB","^",2.09,"///")=""
^DIE(471,"AB","^",50)="7^DGMTXC"
^DIE(471,"AB","^","@20")="8^DGMTXC"
^DIE(471,"AB","^","@30")="17^DGMTXC"
^DIE(471,"AB","^","@40")="22^DGMTXC"
^DIE(471,"AB","^","@50")="2^DGMTXC2"
^DIE(471,"AB","^","@55")="5^DGMTXC2"
^DIE(471,"AB","^","@60")="8^DGMTXC2"
^DIE(471,"AB","^","@998")="18^DGMTXC2"
^DIE(471,"AB","^","@999")="20^DGMTXC2"
^DIE(471,"DIAB",6,0,408.31,3)=".11;REQ"
^DIE(471,"DIAB",7,0,408.31,4)=".07;REQ"
^DIE(471,"DR",1,408.31)="K DGFIN;I '$D(DGCAT)!('$D(DGINT))!('$D(DGNWT))!('$D(DGTHA))!('$D(DGTYC))!('$D(DGMTS)) W !,*7,""Variables DGCAT, DGINT, DGNWT, DGTHA, DGTYC and DGMTS must be defined!"" S Y=""@999"";"
^DIE(471,"DR",1,408.31,1)="I '$D(DFN)!('$D(DGDET))!('$D(DGMTDT))!('$D(DGND)) W !,*7,""Variables DFN, DGND, DGDET and DGMTDT must be defined!"" S Y=""@999"";S:'$P(^DGMT(408.31,DA,0),U,14)&('$D(DGREF)) Y=""@20"";.14///^S X=$S($D(DGREF):1,1:""@"");S:'X Y=""@20"";50;@20;"
^DIE(471,"DR",1,408.31,2)=".03////^S X=DGMTS;.04////^S X=$S('$D(DGREF):DGINT,1:""@"");.15////^S X=$S('$D(DGREF):DGDET,1:""@"");.18////^S X=DGND;.06////^S X=DUZ;S:$P(^DGMT(408.31,DA,0),U,7) Y=""@30"";.07///^S X=$S(DGMTDT=DT:""NOW"",1:DGMTDT);"
^DIE(471,"DR",1,408.31,3)="2.05////^S X=$$GETSITE^DGMTU4(.DUZ);@30;S:DGMTYPT'=1 Y=""@60"";.05////^S X=$S('$D(DGREF):DGNWT,1:""@"");I DGTYC'=""D"" S Y=""@40"";.11R~;@40;.12////^S X=DGTHA;I '$D(DGTHB) S Y=""@50"";.13////^S X=DGTHB;@50;I '$D(DGTHG) S Y=""@55"";"
^DIE(471,"DR",1,408.31,4)=".27////^S X=DGTHG;@55;S:'$P(^DGMT(408.31,DA,0),U,16)&('$D(DGMTPAR(""PREV""))) Y=""@60"";.16///^S X=$S($D(DGMTPAR(""PREV"")):1,1:""@"");@60;S:DGMTDT'<DT Y=""@998"";.07R~;I $P(^DGMT(408.31,DA,0),U,3)'=6 S Y=""@998"";.2////@;.21////@;.22////@;"
^DIE(471,"DR",1,408.31,5)="2.01////@;2.04////@;2.09////@;@998;S DGFIN="""";@999;"
^DIE(471,"ROU")="^DGMTXC"
^DIE(471,"ROUOLD")="DGMTXC"
^DIE(472,0)="DGMT ENTER/EDIT ADJUDICATION^2920403.1326^^408.31^^^^"
^DIE(472,"DR",1,408.31)=".03;S:X=2 Y=""@999"";.1///^S X=""NOW"";50;@999;"
^DIE(473,0)="DGMT ENTER/EDIT CATEGORY^2930720.1037^^408.31^^^^"
^DIE(473,"DR",1,408.31)="I '$D(DGMTS) W !,*7,""Variable DGMTS must be defined!"" S Y=""@999"";.03;I $P(^DGMT(408.31,DA,0),U,3)'=4 S Y=""@89"";S DIE(""NO^"")="""";.2;I '$P(^DGMT(408.31,DA,0),U,20) S Y=""@89"";.21;.22;@89;.08////^S X=DUZ;.09///^S X=""NOW"";50;@999;"
^DIE(474,0)="DGMT ENTER/EDIT EXPENSES^3050111.104^^408.21^^^3050712"
^DIE(474,"AB","^",1.02)="8^DGMTXE"
^DIE(474,"AB","^",1.03)="10^DGMTXE"
^DIE(474,"AB","^",1.12)="5^DGMTXE"
^DIE(474,"AB","^","@1010")="9^DGMTXE"
^DIE(474,"AB","^","@112")="4^DGMTXE"
^DIE(474,"AB","^","@998")="11^DGMTXE"
^DIE(474,"AB","^","@999")="13^DGMTXE"
^DIE(474,"DR",1,408.21)="K DGFIN;I '$D(DGDR)!('$D(DGVIR0)) W !,*7,""Variables DGDR and DGVIR0 must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@998"";@112;1.12;W !,$$GRSADJ^DGMTSCU4(DA,DFN,DGMTDT,DGVIRI);S:'$P(DGVIR0,U,5)&('$P(DGVIR0,U,8)) Y=""@1010"";1.02;@1010;"
^DIE(474,"DR",1,408.21,1)="1.03;@998;S DGFIN="""";@999;"
^DIE(474,"ROU")="^DGMTXE"
^DIE(474,"ROUOLD")="DGMTXE"
^DIE(475,0)="DGRP ENTER/EDIT ANNUAL INCOME^2920521.1254^^408.21^^^3000626^"
^DIE(475,"%D",0)="^.4021^4^4^3000425^^"
^DIE(475,"%D",1,0)="This template is used to edit information on registration screen 9 (the"
^DIE(475,"%D",2,0)="income screening screen).  It must be called from the load/edit screen"
^DIE(475,"%D",3,0)="(by using one of the registration options).  DGDR is used to traverse the"
^DIE(475,"%D",4,0)="template allowing entry of only those items selected for edit."
^DIE(475,"AB","^",.08)="5^DGRPXI"
^DIE(475,"AB","^",.09)="8^DGRPXI"
^DIE(475,"AB","^",.1)="11^DGRPXI"
^DIE(475,"AB","^",.11)="14^DGRPXI"
^DIE(475,"AB","^",.12)="17^DGRPXI"
^DIE(475,"AB","^",.13)="20^DGRPXI"
^DIE(475,"AB","^",.14)="23^DGRPXI"
^DIE(475,"AB","^",.15)="26^DGRPXI"
^DIE(475,"AB","^",.16)="29^DGRPXI"
^DIE(475,"AB","^",.17)="32^DGRPXI"
^DIE(475,"AB","^","@901")="4^DGRPXI"
^DIE(475,"AB","^","@902")="6^DGRPXI"
^DIE(475,"AB","^","@903")="9^DGRPXI"
^DIE(475,"AB","^","@904")="12^DGRPXI"
^DIE(475,"AB","^","@905")="15^DGRPXI"
^DIE(475,"AB","^","@906")="18^DGRPXI"
^DIE(475,"AB","^","@907")="21^DGRPXI"
^DIE(475,"AB","^","@908")="24^DGRPXI"
^DIE(475,"AB","^","@909")="27^DGRPXI"
^DIE(475,"AB","^","@910")="30^DGRPXI"
^DIE(475,"AB","^","@998")="33^DGRPXI"
^DIE(475,"AB","^","@999")="35^DGRPXI"
^DIE(475,"DR",1,408.21)="K DGFIN;I '$D(DGDR) W !,*7,""Variable DGDR must be defined!"" S Y=""@999"";S:DGDR'[901 Y=""@902"";@901;.08;@902;S:DGDR'[902 Y=""@903"";.09;@903;S:DGDR'[903 Y=""@904"";.1;@904;S:DGDR'[904 Y=""@905"";.11;@905;S:DGDR'[905 Y=""@906"";.12;@906;"
^DIE(475,"DR",1,408.21,1)="S:DGDR'[906 Y=""@907"";.13;@907;S:DGDR'[907 Y=""@908"";.14;@908;S:DGDR'[908 Y=""@909"";.15;@909;S:DGDR'[909 Y=""@910"";.16;@910;S:DGDR'[910 Y=""@998"";.17;@998;S DGFIN="""";@999;"
^DIE(475,"ROU")="^DGRPXI"
^DIE(475,"ROUOLD")="DGRPXI"
^DIE(476,0)="DGMT ENTER/EDIT NET WORTH^2920518.1435^^408.21^^^^"
^DIE(476,"AB","^",2.01)="5^DGMTXN"
^DIE(476,"AB","^",2.02)="8^DGMTXN"
^DIE(476,"AB","^",2.03)="11^DGMTXN"
^DIE(476,"AB","^",2.04)="14^DGMTXN"
^DIE(476,"AB","^",2.05)="17^DGMTXN"
^DIE(476,"AB","^","@101")="4^DGMTXN"
^DIE(476,"AB","^","@102")="6^DGMTXN"
^DIE(476,"AB","^","@103")="9^DGMTXN"
^DIE(476,"AB","^","@104")="12^DGMTXN"
^DIE(476,"AB","^","@105")="15^DGMTXN"
^DIE(476,"AB","^","@998")="18^DGMTXN"
^DIE(476,"AB","^","@999")="20^DGMTXN"
^DIE(476,"DR",1,408.21)="K DGFIN;I '$D(DGDR)!('$D(DGPRTY)) W !,*7,""Variable DGDR and DGPRTY must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;2.01;@102;S:DGDR'[""102"" Y=""@103"";2.02;@103;S:DGDR'[""103"" Y=""@104"";2.03;@104;S:DGDR'[""104"" Y=""@105"";2.04;"
^DIE(476,"DR",1,408.21,1)="@105;S:DGDR'[""105"" Y=""@998"";2.05;@998;S DGFIN="""";@999;"
^DIE(476,"ROU")="^DGMTXN"
^DIE(476,"ROUOLD")="DGMTXN"
^DIE(477,0)="DG101 PRE-SCCP-TEST^2920519.1331^^45^^^^"
^DIE(477,"DIAB",1,0,45,1)="PATIENT:"
^DIE(477,"DIAB",6,0,45,0)="SOURCE OF ADMISSION;REQ"
^DIE(477,"DR",1,45)="S:+DGJUMP'=1 Y=""@99"";@1;S DGJUMP=$P(DGJUMP,""1,"",2);3//^S X=$P($$SITE^VASITE,U,3);5;20R~;22;21.1;21.2;I DGPTFMT>1 S Y=""@10"";23;@10;S:+DGJUMP'=2 Y=""@99"";@2;@3;@4;"
^DIE(477,"DR",1,45,1)="^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");S:+DGJUMP'=5 Y=""@99"";@5;S DGJUMP=$P(DGJUMP,""5,"",2);75;S:+DGJUMP'=6 Y=""@99"";@6;S DGJUMP=$P(DGJUMP,""6,"",2);73;74;"
^DIE(477,"DR",1,45,2)="S:DGJUMP'=7 Y=""@99"";@7;S DGJUMP=$P(DGJUMP,""7,"",2);76.1;76.2;78;77;@99;S:+DGJUMP Y=""@""_+DGJUMP;"
^DIE(477,"DR",2,2)="S:+DGJUMP'=2 Y=""@991"";S DGJUMP=$P(DGJUMP,""2,"",2);.05;.06;.02;.03;57.4;S:+DGJUMP'=3 Y=""@991"";@31;S DGJUMP=$P(DGJUMP,""3,"",2);.32101;S:X'=""Y"" Y=.32103;.32102;.32103;S:X'=""Y"" Y=.525;.3212;.525;S:X'=""Y"" Y=""@42"";.526;@42;"
^DIE(477,"DR",2,2,1)="S:+DGJUMP'=4 Y=""@991"";@41;S DGJUMP=$P(DGJUMP,""4,"",2);.115;.116;.117;@991;I +DGJUMP>2&(+DGJUMP<5) S Y=""@""_+DGJUMP_1;"
^DIE(478,0)="DGJ ENTER IRT DEFICIENCY^2930310.1126^^393^^^3010110^"
^DIE(478,"DR",1,393)=".02////^S X=DGJTYP;.03///^S X=DGJTDT;.04////^S X=DGJTAIFN;.05////^S X=DGJTWD;.06////^S X=+DGJTDV;.07////^S X=DGJTSP;.08////^S X=DGJTSV;.09////^S X=DGJT1PH;.1////^S X=DGJT2PH;.12////^S X=DGJTPR;.11;20.01;"
^DIE(479,0)="DGJ DEF PARAMETER EDIT^2930729.1033^^393.3^^^2930729"
^DIE(479,"DIAB",2,0,393.3,0)=".01;""Deficiency Name"""
^DIE(479,"DR",1,393.3)="K DGJTUP;.01Deficiency Name~;.02;.06;.07;.08;S DGJTUP=1;"
^DIE(480,0)="DGBT MILES^2930209.1503^^392.1^^^2930423"
^DIE(480,"DR",1,392.1)="3;100;"
^DIE(480,"DR",2,392.1001)="2;"
^DIE(481,0)="DGBT REMARKS^2930209.1504^^392.1^^^2930209"
^DIE(481,"DR",1,392.1)="100;"
^DIE(481,"DR",2,392.1001)="4;5;"
^DIE(482,0)="DGBT ZIP^2930209.1504^^392.1^^^2971211"
^DIE(482,"DR",1,392.1)="4;"
^DIE(483,0)="DG501 SAVE 5.2^2930304.1503^^45^^^^"
^DIE(483,"DR",1,45)="F X=2:1:7 S DGDUP(X)=0;K DGPTIT;S DGHOLD=$S($D(^DGPT(DGPTF,""M"",+DGMOV,0)):^(0),1:"""");50///^S X=+DGMOV;"
^DIE(483,"DR",2,45.02)="S:'$D(DGADD) DGADD=0;S:DGJUMP'[1 Y=""@2"";S:DGADD Y=""@20"";S DGNFLD=""@10"";3;@10;S DGNFLD=""@15"";4;S:DGJUMP'[2 Y="""";@2;I $D(^DPT(+^DGPT(DGPTF,0),.3)),$P(^(.3),U)=""Y"" S Y=""@15"";18////^S X=2;S (DGNFLD,Y)=""@20"";@15;18//NO;@20;"
^DIE(483,"DR",2,45.02,1)="I DGADD,$P(DGHOLD,U,5)]"""" S Y=""@40"";S DGNFLD=""@40"";5;I X K DGPTIT S DGNFLD=""@40"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@40;I DGADD,$P(DGHOLD,U,6)]"""" S Y=""@50"";S DGNFLD=""@50"";6;"
^DIE(483,"DR",2,45.02,2)="I X K DGPTIT S DGNFLD=""@50"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@50;I DGADD,$P(DGHOLD,U,7)]"""" S Y=""@60"";S DGNFLD=""@60"";7;I X K DGPTIT S DGNFLD=""@60"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@60;I DGADD,$P(DGHOLD,U,8)]"""" S Y=""@70"";"
^DIE(483,"DR",2,45.02,3)="S DGNFLD=""@70"";8;I X K DGPTIT S DGNFLD=""@70"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@70;I DGADD,$P(DGHOLD,U,9)]"""" S Y=""@80"";S DGNFLD=""@80"";9;I X K DGPTIT S DGNFLD=""@80"",Y=""@800"",DGPTIT(X_$C(59)_""ICD9("")="""";@80;K DGNFLD,DGDUP S Y="""";"
^DIE(483,"DR",2,45.02,4)="@800;D SCAN^DGPTSCAN S:'$D(DGBPC) Y=""@899"";I '$D(DGBPC(2))!(DGDUP(2)) S Y=""@810"";300.02;S:X]"""" DGDUP(2)=1;@810;I '$D(DGBPC(3))!(DGDUP(3)) S Y=""@820"";300.03;S:X]"""" DGDUP(3)=1;@820;I '$D(DGBPC(4))!(DGDUP(4)) S Y=""@830"";"
^DIE(483,"DR",2,45.02,5)="D DRUG^DGPTSC01 I $D(DGTX) S Y=""@825"";300.04;S:X]"""" DGDUP(4)=1;S Y=""@830"";@825;300.04//^S X=DGTX;S:X]"""" DGDUP(4)=1;@830;I '$D(DGBPC(5))!(DGDUP(5)) S Y=""@840"";300.05;S:X]"""" DGDUP(5)=1;@840;I '$D(DGBPC(6))!(DGDUP(6)) S Y=""@850"";"
^DIE(483,"DR",2,45.02,6)="300.06;S:X]"""" DGDUP(6)=1;@850;I '$D(DGBPC(7))!(DGDUP(7)) S Y=""@899"";300.07;S:X]"""" DGDUP(7)=1;@899;K DGPTIT,DGTX S Y=DGNFLD;"
^DIE(484,0)="DGTS^2950922.1533^^40.8^^^^"
^DIE(484,"AB","1^DGXTS",.03)="2^DGXTS1"
^DIE(484,"AB","1^DGXTS",.03,"///")=""
^DIE(484,"AB","1^DGXTS",.04)="3^DGXTS1"
^DIE(484,"AB","1^DGXTS",10)="1^DGXTS1"
^DIE(484,"AB","1^DGXTS",10,"///")=""
^DIE(484,"AB","1^DGXTS","@1")="4^DGXTS1"
^DIE(484,"AB","1^DGXTS1",.02)="1^DGXTS2"
^DIE(484,"AB","1^DGXTS1",5)="4^DGXTS2"
^DIE(484,"AB","1^DGXTS1",6)="5^DGXTS2"
^DIE(484,"AB","1^DGXTS1",7)="6^DGXTS2"
^DIE(484,"AB","1^DGXTS1",8)="7^DGXTS2"
^DIE(484,"AB","^",50)="1^DGXTS"
^DIE(484,"AB","^",50,"///")=""
^DIE(484,"DR",1,40.8)="50///^S X=""`""_DGTSIEN;"
^DIE(484,"DR",2,40.806)="10///^S X=DGTSDT;.03///^S X=$S($D(DGTSPT):DGTSPT,1:"""");.04;@1;"
^DIE(484,"DR",3,40.807)=".02;S DGTSPT=X;I '$D(DGTSPT) S Y=1;5;6;7;8;"
^DIE(484,"ROU")="^DGXTS"
^DIE(484,"ROUOLD")="DGXTS"
^DIE(485,0)="SDB^3030424.1353^^44^^^3040503"
^DIE(485,"%D",0)="^^1^1^2970819^"
^DIE(485,"%D",1,0)=" "
^DIE(485,"AB","19^SDBT5",.01)="1^SDBT8"
^DIE(485,"AB","25^SDBT5",.01)="1^SDBT9"
^DIE(485,"AB","3^SDBT5",.01)="1^SDBT6"
^DIE(485,"AB","3^SDBT5",.02)="2^SDBT6"
^DIE(485,"AB","5^SDBT5",.01)="1^SDBT7"
^DIE(485,"AB","5^SDBT5",.02)="2^SDBT7"
^DIE(485,"AB","^",.01)="1^SDBT"
^DIE(485,"AB","^",1)="2^SDBT"
^DIE(485,"AB","^",3.5)="10^SDBT"
^DIE(485,"AB","^",8)="12^SDBT"
^DIE(485,"AB","^",9)="4^SDBT"
^DIE(485,"AB","^",10)="22^SDBT5"
^DIE(485,"AB","^",24)="2^SDBT5"
^DIE(485,"AB","^",30)="6^SDBT5"
^DIE(485,"AB","^",99)="15^SDBT"
^DIE(485,"AB","^",1910)="25^SDBT5"
^DIE(485,"AB","^",1912)="1^SDBT10"
^DIE(485,"AB","^",1913)="4^SDBT10"
^DIE(485,"AB","^",1914)="10^SDBT5"
^DIE(485,"AB","^",1916)="23^SDBT5"
^DIE(485,"AB","^",1917)="6^SDBT10"
^DIE(485,"AB","^",1918)="24^SDBT5"
^DIE(485,"AB","^",1918.5)="15^SDBT5"
^DIE(485,"AB","^",2000)="16^SDBT"
^DIE(485,"AB","^",2000.5)="17^SDBT"
^DIE(485,"AB","^",2001)="7^SDBT5"
^DIE(485,"AB","^",2002)="8^SDBT5"
^DIE(485,"AB","^",2003)="13^SDBT5"
^DIE(485,"AB","^",2005)="14^SDBT5"
^DIE(485,"AB","^",2500)="17^SDBT5"
^DIE(485,"AB","^",2501)="19^SDBT5"
^DIE(485,"AB","^",2502)="5^SDBT"
^DIE(485,"AB","^",2502.5)="7^SDBT"
^DIE(485,"AB","^",2503)="16^SDBT5"
^DIE(485,"AB","^",2504)="3^SDBT"
^DIE(485,"AB","^",2507)="13^SDBT"
^DIE(485,"AB","^",2508)="18^SDBT"
^DIE(485,"AB","^",2509)="19^SDBT"
^DIE(485,"AB","^",2510)="20^SDBT"
^DIE(485,"AB","^",2511)="1^SDBT5"
^DIE(485,"AB","^",2600)="3^SDBT5"
^DIE(485,"AB","^",2700)="5^SDBT5"
^DIE(485,"AB","^",2801)="4^SDBT5"
^DIE(485,"AB","^",2802)="14^SDBT"
^DIE(485,"AB","^","@05")="8^SDBT"
^DIE(485,"AB","^","@10")="11^SDBT"
^DIE(485,"AB","^","@25")="12^SDBT5"
^DIE(485,"AB","^","@30")="21^SDBT5"
^DIE(485,"AB","^","@99")="7^SDBT10"
^DIE(485,"DIAB",1,1,44.03,0)="ALL"
^DIE(485,"DIAB",1,1,44.04,0)="ALL"
^DIE(485,"DR",1,44)=".01;1;2504//Y;9;2502;S:X'[""Y"" Y=""@05"";2502.5;@05;S:$S('$D(^DG(43,1,""GL"")):1,$D(^DG(43,1,""GL""))&('$P(^DG(43,1,""GL""),""^"",2)):1,1:0) Y=""@10"";3.5//^S X=+$O(^DG(40.8,0)),X=$S($D(^(X,0)):$P(^(0),""^""),1:"""");@10;8;2507//REGULAR;2802;99;"
^DIE(485,"DR",1,44,1)="2000;2000.5//YES;2508;2509;2510;2511;24;2600;2801;2700;30;2001;2002;S:+$O(^SC(DA,""ST"",0))>0 Y=""@25"";1914;Q;@25;2003;2005;1918.5;2503;2500;S:X'=""Y"" Y=""@30"";2501;Q;@30;10;1916;1918;1910;1912;Q;I '$D(SDLA) S SDLA=X;1913;"
^DIE(485,"DR",1,44,2)="S:+$O(^SC(DA,""ST"",0))>0 Y=""@99"";1917//4;@99;"
^DIE(485,"DR",2,44.03)=".01"
^DIE(485,"DR",2,44.04)=".01"
^DIE(485,"DR",2,44.1)=".01;.02;"
^DIE(485,"DR",2,44.11)=".01;.02;"
^DIE(485,"ROU")="^SDBT"
^DIE(485,"ROUOLD")="SDBT"
^DIE(486,0)="SDM1^2930302.1138^^2^^^^"
^DIE(486,"AB","^",.111)="1^SDM1T"
^DIE(486,"AB","^",.1112)="2^SDM1T5"
^DIE(486,"AB","^",.112)="3^SDM1T"
^DIE(486,"AB","^",.113)="5^SDM1T"
^DIE(486,"AB","^",.114)="6^SDM1T"
^DIE(486,"AB","^",.115)="1^SDM1T5"
^DIE(486,"AB","^",.117)="3^SDM1T5"
^DIE(486,"AB","^",.131)="4^SDM1T5"
^DIE(486,"DR",1,2)=".111;S:X="""" Y=.114;.112;S:X="""" Y=.114;.113;.114;.115;.1112;.117;.131;"
^DIE(486,"ROU")="^SDM1T"
^DIE(486,"ROUOLD")="SDM1T"
^DIE(490,0)="SDXACSE^2951101.1122^^409.5^^^2970513"
^DIE(490,"%D",0)="^^3^3^2910404^^^^"
^DIE(490,"%D",1,0)="Input template (compiled into SDXACSE* routines), called by SDACS1."
^DIE(490,"%D",2,0)="This routine is invoked by other package developers adding stop codes"
^DIE(490,"%D",3,0)="to the scheduling visit file."
^DIE(490,"AB","3^SDXACSE",2)="1^SDXACSE1"
^DIE(490,"AB","3^SDXACSE",2,"///")=""
^DIE(490,"AB","3^SDXACSE",3)="2^SDXACSE1"
^DIE(490,"AB","3^SDXACSE",3,"///")=""
^DIE(490,"AB","3^SDXACSE",4)="3^SDXACSE1"
^DIE(490,"AB","3^SDXACSE",4,"///")=""
^DIE(490,"AB","3^SDXACSE",5)="4^SDXACSE1"
^DIE(490,"AB","3^SDXACSE",5,"///")=""
^DIE(490,"AB","3^SDXACSE",6)="3^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",6,"///")=""
^DIE(490,"AB","3^SDXACSE",11)="1^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",11,"///")=""
^DIE(490,"AB","3^SDXACSE",21)="5^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",21,"///")=""
^DIE(490,"AB","3^SDXACSE",22)="7^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",22,"///")=""
^DIE(490,"AB","3^SDXACSE",23)="9^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",23,"///")=""
^DIE(490,"AB","3^SDXACSE",24)="11^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",24,"///")=""
^DIE(490,"AB","3^SDXACSE",25)="13^SDXACSE2"
^DIE(490,"AB","3^SDXACSE",25,"///")=""
^DIE(490,"AB","3^SDXACSE","@1")="4^SDXACSE2"
^DIE(490,"AB","3^SDXACSE","@99")="14^SDXACSE2"
^DIE(490,"AB","^",10)="3^SDXACSE"
^DIE(490,"AB","^",10,"///")=""
^DIE(490,"AB","^","@89")="4^SDXACSE"
^DIE(490,"DR",1,409.5)="I '$D(SDAPTYP)!('$D(SDAPTYPR))!('$D(SDCPT))!('$D(SDJ)) W !,*7,""Variables must be defined, edit using option."" S Y=""@89"";I '$S($D(SDUZ):1,$D(DUZ):1,1:0) W !,*7,""User not defined."" S Y=""@89"";10///^S X=""`""_+SDY;@89;"
^DIE(490,"DR",2,409.51)="2////^S X=$S($D(SDUZ):SDUZ,1:DUZ);3////^S X=$P(SDCPT(SDJ),U,2);4////^S X=$S($G(SDOEP):$P($G(^SCE(SDOEP,0)),U,13),1:"""");5////^S X=SDAPTYP;I $D(SDNOTCG) S Y=""@1"";11////^S X=1;I 'SDAPTYPR S Y=""@1"";6////^S X=SDAPTYPR;@1;"
^DIE(490,"DR",2,409.51,1)="21////^S X=$P(SDCPT(SDJ),U,3);I $P(SDCPT(SDJ),U,4)']"""" S Y=""@99"";22////^S X=$P(SDCPT(SDJ),U,4);I $P(SDCPT(SDJ),U,5)']"""" S Y=""@99"";23////^S X=$P(SDCPT(SDJ),U,5);I $P(SDCPT(SDJ),U,6)']"""" S Y=""@99"";24////^S X=$P(SDCPT(SDJ),U,6);"
^DIE(490,"DR",2,409.51,2)="I $P(SDCPT(SDJ),U,7)']"""" S Y=""@99"";25////^S X=$P(SDCPT(SDJ),U,7);@99;"
^DIE(490,"ROU")="^SDXACSE"
^DIE(490,"ROUOLD")="SDXACSE"
^DIE(491,0)="SDAMBT^2920421.1326^^409.5^^^2970312"
^DIE(491,"AB","1^SDXA",2)="1^SDXA1"
^DIE(491,"AB","1^SDXA",2,"///")=""
^DIE(491,"AB","1^SDXA",3)="2^SDXA1"
^DIE(491,"AB","1^SDXA",3,"///")=""
^DIE(491,"AB","1^SDXA",4)="3^SDXA1"
^DIE(491,"AB","1^SDXA",4,"///")=""
^DIE(491,"AB","1^SDXA",5)="4^SDXA1"
^DIE(491,"AB","1^SDXA",5,"///")=""
^DIE(491,"AB","1^SDXA",7)="5^SDXA1"
^DIE(491,"AB","1^SDXA",7,"///")=""
^DIE(491,"AB","1^SDXA",21)="1^SDXA2"
^DIE(491,"AB","1^SDXA",21,"///")=""
^DIE(491,"AB","1^SDXA",22)="2^SDXA2"
^DIE(491,"AB","1^SDXA",22,"///")=""
^DIE(491,"AB","1^SDXA",23)="3^SDXA2"
^DIE(491,"AB","1^SDXA",23,"///")=""
^DIE(491,"AB","1^SDXA",24)="4^SDXA2"
^DIE(491,"AB","1^SDXA",24,"///")=""
^DIE(491,"AB","1^SDXA",25)="5^SDXA2"
^DIE(491,"AB","1^SDXA",25,"///")=""
^DIE(491,"AB","^",10)="1^SDXA"
^DIE(491,"AB","^",10,"///")=""
^DIE(491,"DR",1,409.5)="10///^S X=""`""_SDSC;"
^DIE(491,"DR",2,409.51)="2////^S X=$S($D(DUZ):DUZ,1:"""");3////^S X=$S($D(SDCL):SDCL,1:"""");4////^S X=$S(+SDEMP:+SDEMP,'+VAEL(1):"""",1:+VAEL(1));5////^S X=SDAPTYP;7////^S X=DT;21////^S X=$S($D(SDNEW(1)):SDNEW(1),1:"""");22////^S X=$S($D(SDNEW(2)):SDNEW(2),1:"""");"
^DIE(491,"DR",2,409.51,1)="23////^S X=$S($D(SDNEW(3)):SDNEW(3),1:"""");24////^S X=$S($D(SDNEW(4)):SDNEW(4),1:"""");25////^S X=$S($D(SDNEW(5)):SDNEW(5),1:"""");"
^DIE(491,"ROU")="^SDXA"
^DIE(491,"ROUOLD")="SDXA"
^DIE(492,0)="SDAM ADD LOG^2920220.0913^^409.65^^^^"
^DIE(492,"DR",1,409.65)=".02////^S X=SDSTART;.03////^S X=SDAMETH;.04////^S X=$S(DUZ:DUZ,1:"""");"
^DIE(493,0)="SD ENCOUNTER ENTRY^2980519.0956^^409.68^^^2980706"
^DIE(493,"%D",0)="^^1^1^2960801^^"
^DIE(493,"%D",1,0)=" "
^DIE(493,"AB","^",.02)="2^SDAMXOE"
^DIE(493,"AB","^",.02,"///")=""
^DIE(493,"AB","^",.03)="3^SDAMXOE"
^DIE(493,"AB","^",.03,"///")=""
^DIE(493,"AB","^",.04)="4^SDAMXOE"
^DIE(493,"AB","^",.04,"///")=""
^DIE(493,"AB","^",.05)="5^SDAMXOE"
^DIE(493,"AB","^",.05,"///")=""
^DIE(493,"AB","^",.06)="6^SDAMXOE"
^DIE(493,"AB","^",.06,"///")=""
^DIE(493,"AB","^",.08)="7^SDAMXOE"
^DIE(493,"AB","^",.08,"///")=""
^DIE(493,"AB","^",.09)="8^SDAMXOE"
^DIE(493,"AB","^",.09,"///")=""
^DIE(493,"AB","^",.1)="9^SDAMXOE"
^DIE(493,"AB","^",.1,"///")=""
^DIE(493,"AB","^",.11)="10^SDAMXOE"
^DIE(493,"AB","^",.11,"///")=""
^DIE(493,"AB","^",.12)="1^SDAMXOE"
^DIE(493,"AB","^",.12,"///")=""
^DIE(493,"AB","^",.13)="11^SDAMXOE"
^DIE(493,"AB","^",.13,"///")=""
^DIE(493,"AB","^",103)="12^SDAMXOE"
^DIE(493,"AB","^",103,"///")=""
^DIE(493,"AB","^",104)="13^SDAMXOE"
^DIE(493,"AB","^",104,"///")=""
^DIE(493,"DR",1,409.68)=".12////^S X=$G(SDVSIT(""STA""));.02////^S X=$G(SDVSIT(""DFN""));.03////^S X=$G(SDVSIT(""CLN""));.04////^S X=$G(SDVSIT(""LOC""));.05////^S X=$G(SDVSIT(""VST""));.06////^S X=$G(SDVSIT(""PAR""));.08////^S X=$G(SDVSIT(""ORG""));"
^DIE(493,"DR",1,409.68,1)=".09////^S X=$G(SDVSIT(""REF""));.1////^S X=$G(SDVSIT(""TYP""));.11////^S X=$G(SDVSIT(""DIV""));.13////^S X=$G(SDVSIT(""ELG""));103////^S X=$S(+$G(SDUZ):+SDUZ,1:$G(DUZ));104////^S X=$$NOW^XLFDT;"
^DIE(493,"ROU")="^SDAMXOE"
^DIE(493,"ROUOLD")="SDAMXOE"
^DIE(494,0)="DGMT UPDATE AUDIT^2940510.1554^^408.41^11983^^2941021"
^DIE(494,"DR",1,408.41)=".019////^S X=DGMTYPT;.07////^S X=DUZ;.02////^S X=DGMTATYP;.03////^S X=DGMTI;.04////^S X=$P(DGMTA,U,2);S:'DGMTFLG1 Y=""@88"";.08////^S X=DGMTOSRC;.09////^S X=DGMTNSRC;@88;S:'DGMTFLG Y=""@99"";.05////^S X=DGMTSOLD;.06////^S X=DGMTSNEW;"
^DIE(494,"DR",1,408.41,1)="@99;"
^DIE(495,0)="DGMT EFFECTIVE DATE^2941220.1413^^408.12^^^^"
^DIE(495,"DR",1,408.12)="75;"
^DIE(495,"DR",2,408.1275)="D IVM^DGDEP1;.01;.02;@99;"
^DIE(496,0)="DGMT COMMENTS^2950227.1035^^408.31^^^^"
^DIE(496,"DR",1,408.31)="50;"
^DIE(497,0)="IB RATE EDIT^2920206.1418^^399.3^1453^^2931201"
^DIE(497,"%D",0)="^^1^1^2920708^"
^DIE(497,"%D",1,0)="Update Rate Type File."
^DIE(497,"DR",1,399.3)=".01;.02;.04;.05;.08;.09;.03;.06;"
^DIE(498,0)="IB ACTIVATE^2880620^^399.2^^^2931201^"
^DIE(498,"%D",0)="^^1^1^2920708^"
^DIE(498,"%D",1,0)="Activate/inactivate revenue codes."
^DIE(498,"DR",1,399.2)="2;"
^DIE(499,0)="IB MAIL^2880624^^399^^^^"
^DIE(499,"%D",0)="^^1^1^2920708^"
^DIE(499,"%D",1,0)="Enter/edit a bill's mailing address."
^DIE(499,"DR",1,399)="104;105;106;107;108;109;"
^DIE(500,0)="IB EDIT SITE PARAM^2930204.0859^@^350.9^1453^@^2940112"
^DIE(500,"%D",0)="^^1^1^2920708^"
^DIE(500,"%D",1,0)="Enter/edit Integrated Billing Site Parameters."
^DIE(500,"DR",1,350.9)=".02;.03;.07;.08;.09;.13;.14;.11;.12;"
^DIE(501,0)="IB EDIT CLEAR^2910304.0803^@^350.9^1453^@^2940314"
^DIE(501,"%D",0)="^^1^1^2920708^"
^DIE(501,"%D",1,0)="Clear Integrated Billing Filer Parameters."
^DIE(501,"DR",1,350.9)=".04///@;.1///@;"
^DIE(502,0)="IB REVCODE EDIT^2920917.1008^^399^0^^2920917"
^DIE(502,"%D",0)="^^1^1^2920708^"
^DIE(502,"%D",1,0)="Enter/Edit a bill's revenue code information."
^DIE(502,"DR",1,399)="D:$D(IBIFN) RCD^IBCU1;42;202;S:'X Y=""@999"";203;I $P(^DGCR(399,DA,""U1""),""^"",11)="""" S Y=""@999"";210;@999;"
^DIE(502,"DR",2,399.042)=".01;.02;.03;.04;.05;I $P(^DGCR(399,DA,0),U,5)<3 S Y=""@99"";.06;I X="""" S Y=""@99"";.07;@99;"
^DIE(503,0)="IB BILLING CYCLE ADJUST^2920225.14^@^351^0^@^2940307"
^DIE(503,"%D",0)="^^1^1^2920708^"
^DIE(503,"%D",1,0)="Patient Billing Clock Maintenance, edit existing entry."
^DIE(503,"DR",1,351)=".03;.04;.05;I $P(^IBE(351,D0,0),""^"",9)<91 S Y=""@1"";.06;I $P(^IBE(351,D0,0),""^"",9)<181 S Y=""@1"";.07;I $P(^IBE(351,D0,0),""^"",9)<271 S Y=""@1"";.08;@1;.09;15;"
^DIE(504,0)="IB BILLING CYCLE ADD^2920225.1359^@^351^0^@^2940128"
^DIE(504,"%D",0)="^^1^1^2920724^^^^"
^DIE(504,"%D",1,0)="Patient Billing Clock Maintenance, new entry."
^DIE(504,"DR",1,351)=".03;.04;.05;I $P(^IBE(351,D0,0),""^"",9)<91 S Y=""@1"";.06;I $P(^IBE(351,D0,0),""^"",9)<181 S Y=""@1"";.07;I $P(^IBE(351,D0,0),""^"",9)<271 S Y=""@1"";.08;@1;.09;"
^DIE(506,0)="IB STATUS^3040608.1554^^399^^^3040809"
^DIE(506,"%D",0)="^^1^1^3040608^"
^DIE(506,"%D",1,0)="Edit a bill's status."
^DIE(506,"AB","7^IBXST",.01)="1^IBXST1"
^DIE(506,"AB","^",9)="4^IBXST"
^DIE(506,"AB","^",12)="16^IBXST"
^DIE(506,"AB","^",12,"///")=""
^DIE(506,"AB","^",14)="4^IBXST5"
^DIE(506,"AB","^",14,"///")=""
^DIE(506,"AB","^",21)="13^IBXST"
^DIE(506,"AB","^",21,"///")=""
^DIE(506,"AB","^",24)="1^IBXST5"
^DIE(506,"AB","^",24,"///")=""
^DIE(506,"AB","^",25)="10^IBXST"
^DIE(506,"AB","^",44)="7^IBXST"
^DIE(506,"AB","^","@90")="3^IBXST"
^DIE(506,"AB","^","@901")="9^IBXST"
^DIE(506,"AB","^","@902")="6^IBXST5"
^DIE(506,"AB","^","@91")="12^IBXST"
^DIE(506,"AB","^","@911")="18^IBXST"
^DIE(506,"AB","^","@92")="14^IBXST"
^DIE(506,"AB","^","@94")="3^IBXST5"
^DIE(506,"AB","^","@99")="9^IBXST5"
^DIE(506,"DIAB",1,1,399.044,0)="ALL"
^DIE(506,"DIAB",10,0,399,0)="REQUEST AN MRA?;""REQUEST MRA NOW?"""
^DIE(506,"DR",1,399)="S DIE(""NO^"")=""OUTOK"";I $D(IBYY) S Y=IBYY;@90;9;I $S(X="""":1,X=1:1,1:0) S Y=""@99"";S IBX3=3;44;S Y=""@99"";@901;25REQUEST MRA NOW?~;S Y=""@99"";@91;21///^S X=""NOW"";@92;I $P(^DGCR(399,DA,""S""),""^"",12)]"""" S Y=""@94"";12///^S X=DT;S Y=""@99"";"
^DIE(506,"DR",1,399,1)="@911;21///^S X=""NOW"";I $P($G(^DGCR(399,DA,0)),U,13)'=2 S Y=""@99"";I $P($G(^DGCR(399,DA,""TX"")),U,5)=""C"" S Y=""@99"";24///^S X=""1R"";S Y=""@99"";@94;14///^S X=DT;S Y=""@99"";@902;9///Y;S Y=""@99"";@99;K DIE(""NO^"");"
^DIE(506,"DR",2,399.044)=".01"
^DIE(506,"ROU")="^IBXST"
^DIE(506,"ROUOLD")="IBXST"
^DIE(507,0)="IB DEVICE^2960822.1324^@^353^^@^2970611"
^DIE(507,"%D",0)="^^1^1^2920708^^"
^DIE(507,"%D",1,0)="Bill Form Print Device Setup."
^DIE(507,"DR",1,353)=".01;.02;.03;2.08;2.09;"
^DIE(508,0)="IB SCREEN1^3070207.1847^@^399^^@^3070215"
^DIE(508,"%D",0)="^^1^1^2920708^^"
^DIE(508,"%D",1,0)="Enter/Edit billing screen 1, demographic information."
^DIE(508,"AB","1^IBXSC1",.02)="8^IBXSC11"
^DIE(508,"AB","1^IBXSC1",.03)="2^IBXSC11"
^DIE(508,"AB","1^IBXSC1",.05)="9^IBXSC11"
^DIE(508,"AB","1^IBXSC1",.111)="1^IBXSC17"
^DIE(508,"AB","1^IBXSC1",.1112)="1^IBXSC114"
^DIE(508,"AB","1^IBXSC1",.112)="3^IBXSC17"
^DIE(508,"AB","1^IBXSC1",.113)="5^IBXSC17"
^DIE(508,"AB","1^IBXSC1",.114)="6^IBXSC17"
^DIE(508,"AB","1^IBXSC1",.115)="7^IBXSC17"
^DIE(508,"AB","1^IBXSC1",.117)="2^IBXSC114"
^DIE(508,"AB","1^IBXSC1",.12105)="5^IBXSC114"
^DIE(508,"AB","1^IBXSC1",.1211)="2^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.12112)="9^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1212)="4^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1213)="6^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1214)="7^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1215)="8^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1217)="7^IBXSC114"
^DIE(508,"AB","1^IBXSC1",.1218)="1^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.1219)="10^IBXSC117"
^DIE(508,"AB","1^IBXSC1",.131)="3^IBXSC114"
^DIE(508,"AB","1^IBXSC1",.361)="13^IBXSC11"
^DIE(508,"AB","1^IBXSC1",1)="5^IBXSC11"
^DIE(508,"AB","1^IBXSC1",1901)="12^IBXSC11"
^DIE(508,"AB","1^IBXSC1","@12")="3^IBXSC11"
^DIE(508,"AB","1^IBXSC1","@13")="6^IBXSC11"
^DIE(508,"AB","1^IBXSC1","@14")="10^IBXSC11"
^DIE(508,"AB","1^IBXSC1","@15")="14^IBXSC11"
^DIE(508,"AB","1^IBXSC1","@155")="4^IBXSC114"
^DIE(508,"AB","1^IBXSC1","@16")="13^IBXSC117"
^DIE(508,"AB","1^IBXSC1","@915")="11^IBXSC117"
^DIE(508,"AB","5^IBXSC11",.01)="1^IBXSC12"
^DIE(508,"AB","5^IBXSC11",1)="2^IBXSC12"
^DIE(508,"AB","^",.18)="4^IBXSC1"
^DIE(508,"AB","^","@18")="5^IBXSC1"
^DIE(508,"AR",2,603)="1^IBXSC118"
^DIE(508,"DIAB",1,0,399,0)="PATIENT NAME:"
^DIE(508,"DIAB",1,2,2.01,0)="ALL"
^DIE(508,"DR",1,399)="^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");S:IBDR20'[""16"" Y=""@18"";I $D(DFN) D DIS^DGRPDB W !!;.18;@18;D:IBDR20[11 DEM^VADPT;"
^DIE(508,"DR",2,2)="S:IBDR20'[""11"" Y=""@12"";.03;@12;S:IBDR20'[""12"" Y=""@13"";1;@13;S:IBDR20'[""13"" Y=""@14"";.02;.05;@14;S:IBDR20'[""14"" Y=""@15"";1901;.361;@15;S:IBDR20'[""15"" Y=""@16"";S:$$EDADDR^IBCSCE(+$G(DFN)) Y=""@155"";.111;S:X="""" Y=.114;.112;S:X="""" Y=.114;"
^DIE(508,"DR",2,2,1)=".113;.114;.115;.1112;.117;.131;@155;.12105;S:X=""N"" Y=""@915"" S:X=""Y"" DIE(""NO^"")="""";.1217;I X']"""" W !?4,*7,""But I need a Start Date for this Temporary Address."" S Y=.12105;.1218;.1211;"
^DIE(508,"DR",2,2,2)="I X']"""" W !?4,*7,""But I need at least one line of a Temporary address."" S Y=.12105;.1212;S:X']"""" Y=.1214;.1213;.1214;.1215;.12112;.1219;@915;K DIE(""NO^"");@16;"
^DIE(508,"DR",3,2.01)=".01:1"
^DIE(508,"ROU")="^IBXSC1"
^DIE(508,"ROUOLD")="IBXSC1"
^DIE(509,0)="IB SCREEN2^2940308.1606^@^399^10882^@^2940316"
^DIE(509,"AB","1^IBXSC2",.07)="2^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.2205)="14^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.2206)="6^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.251)="18^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.252)="20^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.253)="1^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.254)="3^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.255)="4^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.256)="5^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.258)="7^IBXSC22"
^DIE(509,"AB","1^IBXSC2",.3111)="5^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.31115)="3^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3113)="7^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3114)="9^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3115)="11^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3116)="12^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3117)="13^IBXSC21"
^DIE(509,"AB","1^IBXSC2",.3119)="15^IBXSC21"
^DIE(509,"AB","1^IBXSC2","@41")="16^IBXSC21"
^DIE(509,"AB","1^IBXSC2","@42")="8^IBXSC22"
^DIE(509,"DIAB",1,0,399,0)=".02:"
^DIE(509,"DR",1,399)="^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(509,"DR",2,2)="S:IBDR20'[""21"" Y=""@41"";.07;.31115;I $S(X']"""":1,X=3:1,X=9:1,1:0) S Y=""@41"";.3111;S:X']"""" Y=""@41"";.3113;S:X']"""" Y=.3116;.3114;S:X']"""" Y=.3116;.3115;.3116;.3117;.2205;.3119;@41;S:IBDR20'[""22"" Y=""@42"";.251;S:X']"""" Y=""@42"";.252;"
^DIE(509,"DR",2,2,1)="S:X']"""" Y=.255;.253;S:X']"""" Y=.255;.254;.255;.256;.2206;.258;@42;"
^DIE(509,"ROU")="^IBXSC2"
^DIE(509,"ROUOLD")="IBXSC2"
^DIE(510,0)="IB SCREEN4^3070328.152^@^399^^@^3070330"
^DIE(510,"%D",0)="^^1^1^3070328^"
^DIE(510,"%D",1,0)="IB billing screen 4 is for Inpatient information."
^DIE(510,"AB","16^IBXSC4",.01)="1^IBXSC42"
^DIE(510,"AB","16^IBXSC4",.02)="2^IBXSC42"
^DIE(510,"AB","16^IBXSC4",.03)="4^IBXSC42"
^DIE(510,"AB","16^IBXSC4",.04)="8^IBXSC42"
^DIE(510,"AB","16^IBXSC4","@454")="6^IBXSC42"
^DIE(510,"AB","16^IBXSC4","@455")="9^IBXSC42"
^DIE(510,"AB","19^IBXSC4",.01)="1^IBXSC43"
^DIE(510,"AB","30^IBXSC4",.01)="1^IBXSC44"
^DIE(510,"AB","30^IBXSC4",.02)="2^IBXSC44"
^DIE(510,"AB","8^IBXSC4",.01)="1^IBXSC41"
^DIE(510,"AB","8^IBXSC4",.02)="2^IBXSC41"
^DIE(510,"AB","8^IBXSC4",.03)="3^IBXSC41"
^DIE(510,"AB","^",.09)="23^IBXSC4"
^DIE(510,"AB","^",40)="19^IBXSC4"
^DIE(510,"AB","^",41)="16^IBXSC4"
^DIE(510,"AB","^",47)="30^IBXSC4"
^DIE(510,"AB","^",48)="8^IBXSC4"
^DIE(510,"AB","^",158)="7^IBXSC4"
^DIE(510,"AB","^",159)="6^IBXSC4"
^DIE(510,"AB","^",159.5)="3^IBXSC4"
^DIE(510,"AB","^",160)="5^IBXSC4"
^DIE(510,"AB","^",162)="11^IBXSC4"
^DIE(510,"AB","^","@411")="4^IBXSC4"
^DIE(510,"AB","^","@42")="9^IBXSC4"
^DIE(510,"AB","^","@43")="12^IBXSC4"
^DIE(510,"AB","^","@44")="20^IBXSC4"
^DIE(510,"AB","^","@45")="13^IBXSC4"
^DIE(510,"AB","^","@46")="14^IBXSC4"
^DIE(510,"AB","^","@47")="17^IBXSC4"
^DIE(510,"AB","^","@48")="27^IBXSC4"
^DIE(510,"AB","^","@49")="31^IBXSC4"
^DIE(510,"DIAB",1,1,399.04,0)="ALL"
^DIE(510,"DIAB",1,1,399.048,0)="OTHER CARE;""SNF/SA CARE"""
^DIE(510,"DIAB",8,0,399,0)="OTHER CARE;""SNF/SA CARE"""
^DIE(510,"DR",1,399)="S:IBDR20'[""41"" Y=""@42"";I $P($G(^DGCR(399,DA,0)),U,8) S Y=""@411"";159.5//^S X=""12AM"";@411;160;159;158;48SNF/SA CARE~;@42;S:IBDR20'[""42"" Y=""@43"";162;@43;@45;@46;S:IBDR20'[""46"" Y=""@47"";41;@47;S:IBDR20'[""47"" Y=""@44"";40;@44;"
^DIE(510,"DR",1,399,1)="S:IBDR20'[""44"" Y=""@48"";S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;S IBPROT=X;D PRO^IBCSC4B;S IBASKCOD=1;@48;S:IBDR20'[""48"" Y=""@49"";I $P(^DGCR(399,DA,0),U,19)=2 S Y=""@49"";47;@49;"
^DIE(510,"DR",2,399.04)=".01"
^DIE(510,"DR",2,399.041)=".01;.02;I $P($G(^DGCR(399.1,+^DGCR(399,DA(1),""OC"",DA,0),0)),U,9)'=2 S Y=""@454"";.03;S Y=""@455"";@454;I '$P(^DGCR(399.1,+^DGCR(399,DA(1),""OC"",DA,0),0),U,10) S Y=""@455"";.04;@455;"
^DIE(510,"DR",2,399.047)=".01;.02;"
^DIE(510,"DR",2,399.048)=".01SNF/SA CARE~;.02;.03;S DGRVRCAL=1;"
^DIE(510,"ROU")="^IBXSC4"
^DIE(510,"ROUOLD")="IBXSC4"
^DIE(511,0)="IB SCREEN5^3000605.1552^@^399^^@^3010313"
^DIE(511,"AB","14^IBXSC5",.01)="1^IBXSC52"
^DIE(511,"AB","14^IBXSC5",.02)="2^IBXSC52"
^DIE(511,"AB","14^IBXSC5",.03)="4^IBXSC52"
^DIE(511,"AB","14^IBXSC5",.04)="8^IBXSC52"
^DIE(511,"AB","14^IBXSC5","@554")="6^IBXSC52"
^DIE(511,"AB","14^IBXSC5","@555")="9^IBXSC52"
^DIE(511,"AB","18^IBXSC5",.01)="1^IBXSC53"
^DIE(511,"AB","27^IBXSC5",.01)="1^IBXSC54"
^DIE(511,"AB","27^IBXSC5",.02)="2^IBXSC54"
^DIE(511,"AB","3^IBXSC5",.01)="1^IBXSC51"
^DIE(511,"AB","^",.03)="8^IBXSC5"
^DIE(511,"AB","^",.09)="22^IBXSC5"
^DIE(511,"AB","^",40)="18^IBXSC5"
^DIE(511,"AB","^",41)="14^IBXSC5"
^DIE(511,"AB","^",43)="3^IBXSC5"
^DIE(511,"AB","^",47)="27^IBXSC5"
^DIE(511,"AB","^","@51")="6^IBXSC5"
^DIE(511,"AB","^","@52")="9^IBXSC5"
^DIE(511,"AB","^","@54")="19^IBXSC5"
^DIE(511,"AB","^","@55")="11^IBXSC5"
^DIE(511,"AB","^","@56")="15^IBXSC5"
^DIE(511,"AB","^","@58")="16^IBXSC5"
^DIE(511,"AB","^","@59")="24^IBXSC5"
^DIE(511,"AB","^","@999")="28^IBXSC5"
^DIE(511,"DIAB",1,1,399.04,0)="ALL"
^DIE(511,"DIAB",1,1,399.043,0)="ALL"
^DIE(511,"DR",1,399)="S:IBDR20'[""53"" Y=""@51"";S:$D(IBOUT) Y=""@999"";43;@999;K IBOUT;@51;S:IBDR20'[""51"" Y=""@52"";.03;@52;S:IBDR20'[""52"" Y=""@55"";@55;@56;S:IBDR20'[""57"" Y=""@58"";41;@56;@58;S:IBDR20'[""58"" Y=""@54"";40;@54;S:IBDR20'[""54"" Y=""@59"";"
^DIE(511,"DR",1,399,1)="S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;S IBASKCOD=1;@59;S:IBDR20'[""59"" Y=""@999"";I $P(^DGCR(399,DA,0),U,19)=2 S Y=""@999"";47;@999;"
^DIE(511,"DR",2,399.04)=".01"
^DIE(511,"DR",2,399.041)=".01;.02;I $P($G(^DGCR(399.1,+^DGCR(399,DA(1),""OC"",DA,0),0)),U,9)'=2 S Y=""@554"";.03;S Y=""@555"";@554;I '$P(^DGCR(399.1,+^DGCR(399,DA(1),""OC"",DA,0),0),U,10) S Y=""@555"";.04;@555;"
^DIE(511,"DR",2,399.043)=".01"
^DIE(511,"DR",2,399.047)=".01;.02;"
^DIE(511,"ROU")="^IBXSC5"
^DIE(511,"ROUOLD")="IBXSC5"
^DIE(512,0)="IB SCREEN6^3070213.145^@^399^^@^3070213"
^DIE(512,"AB","5^IBXSC67",.01)="1^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.02)="2^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.03)="3^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.04)="4^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.05)="5^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.06)="7^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.07)="9^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.09)="6^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.1)="12^IBXSC68"
^DIE(512,"AB","5^IBXSC67",.12)="13^IBXSC68"
^DIE(512,"AB","5^IBXSC67","@658")="10^IBXSC68"
^DIE(512,"AB","5^IBXSC67","@659")="16^IBXSC68"
^DIE(512,"AB","^",.19)="1^IBXSC62"
^DIE(512,"AB","^",.22)="17^IBXSC6"
^DIE(512,"AB","^",.24)="5^IBXSC6"
^DIE(512,"AB","^",.25)="7^IBXSC6"
^DIE(512,"AB","^",.26)="11^IBXSC6"
^DIE(512,"AB","^",.27)="20^IBXSC6"
^DIE(512,"AB","^",42)="5^IBXSC67"
^DIE(512,"AB","^",151)="19^IBXSC62"
^DIE(512,"AB","^",152)="20^IBXSC62"
^DIE(512,"AB","^",153)="16^IBXSC62"
^DIE(512,"AB","^",155)="11^IBXSC62"
^DIE(512,"AB","^",156)="14^IBXSC62"
^DIE(512,"AB","^",157)="13^IBXSC62"
^DIE(512,"AB","^",161)="23^IBXSC62"
^DIE(512,"AB","^",165)="1^IBXSC67"
^DIE(512,"AB","^",202)="6^IBXSC67"
^DIE(512,"AB","^",203)="8^IBXSC67"
^DIE(512,"AB","^",210)="11^IBXSC67"
^DIE(512,"AB","^",216)="12^IBXSC6"
^DIE(512,"AB","^",217)="13^IBXSC6"
^DIE(512,"AB","^",218)="16^IBXSC67"
^DIE(512,"AB","^",219)="19^IBXSC67"
^DIE(512,"AB","^",220)="22^IBXSC67"
^DIE(512,"AB","^",221)="15^IBXSC6"
^DIE(512,"AB","^",243)="18^IBXSC6"
^DIE(512,"AB","^","@611")="3^IBXSC6"
^DIE(512,"AB","^","@612")="9^IBXSC6"
^DIE(512,"AB","^","@6121")="16^IBXSC6"
^DIE(512,"AB","^","@614")="24^IBXSC6"
^DIE(512,"AB","^","@615")="7^IBXSC62"
^DIE(512,"AB","^","@62")="9^IBXSC62"
^DIE(512,"AB","^","@63")="17^IBXSC62"
^DIE(512,"AB","^","@64")="21^IBXSC62"
^DIE(512,"AB","^","@65")="2^IBXSC67"
^DIE(512,"AB","^","@657")="9^IBXSC67"
^DIE(512,"AB","^","@66")="12^IBXSC67"
^DIE(512,"AB","^","@67")="13^IBXSC67"
^DIE(512,"AB","^","@672")="17^IBXSC67"
^DIE(512,"AB","^","@673")="20^IBXSC67"
^DIE(512,"AB","^","@68")="23^IBXSC67"
^DIE(512,"DIAB",4,0,399,1)="UB-04 TIMEFRAME OF BILL;TIMEFRAME OF BILL~"
^DIE(512,"DIAB",5,0,399,0)="UB-04 LOCATION OF CARE;LOCATION OF CARE~"
^DIE(512,"DIAB",7,0,399,0)="UB-04 BILL CLASSIFICATION;BILL CLASSIFICATION~"
^DIE(512,"DR",1,399)="S:IBDR20'[""61"" Y=""@62"";S:$P($G(^DGCR(399,DA,0)),U,19)'=3 Y=""@612"";@611;S DIE(""NO^"")="""";.24LOCATION OF CARE~~;S:'$D(DIE(""NO^"")) DIE(""NO^"")="""";.25BILL CLASSIFICATION~~;"
^DIE(512,"DR",1,399,1)="I '$$TOBIN^IBCU4($P(^DGCR(399,DA,0),U,25),DA) W !!,*7,""  **  The 'BILL CLASSIFICATION' must be consistent with the 'LOCATION OF CARE.'"",! S Y=""@611"";@612;K DIE(""NO^"");.26TIMEFRAME OF BILL~~;216;217;"
^DIE(512,"DR",1,399,2)="I '$$INPAT^IBCEF(DA)!($$FT^IBCEF(DA)'=3) S Y=""@6121"";221;@6121;.22;243;D DISPTAX^IBCEP81($P($G(^DGCR(399,DA,""U3"")),U,2),""Default Division"");.27;S DGRVRCAL=1;S DIPA(""FT1"")=$P($G(^DGCR(399,DA,0)),U,19);D CKFT^IBCIUT1(IBIFN);@614;.19;"
^DIE(512,"DR",1,399,3)="S DIPA(""FT"")=$P($G(^DGCR(399,DA,0)),U,19);I $P($G(^IBE(353,+DIPA(""FT""),2)),U,2)=""P"",$P($G(^(2)),U,4) S DIPA(""FT1"")=DIPA(""FT"") D CKFT^IBCIUT1(IBIFN) S Y=""@615"";W !,*7,""Must be a printable national form type"";"
^DIE(512,"DR",1,399,4)=".19///^S X=$G(DIPA(""FT1""));S Y=""@614"";@615;D FTPRV^IBCEU5(DA);@62;S:IBDR20'[""62"" Y=""@63"";155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y=""@63"";153;@63;S:IBDR20'[""63"" Y=""@64"";151;152;@64;S:IBDR20'[""64"" Y=""@65"";161;165;@65;"
^DIE(512,"DR",1,399,5)="S:IBDR20'[""65"" Y=""@66"";D RCD^IBCU1;42;202;S:'X Y=""@657"";203;@657;I $P(^DGCR(399,DA,""U1""),""^"",11)']"""" S Y=""@66"";210;@66;@67;S:IBDR20'[""67"" Y=""@68"";S:'$D(^DGCR(399,DA,""I1"")) Y=""@672"";218;@672;S:'$D(^DGCR(399,DA,""I2"")) Y=""@673"";219;"
^DIE(512,"DR",1,399,6)="@673;S:'$D(^DGCR(399,DA,""I3"")) Y=""@68"";220;@68;K DIE(""NO^"");"
^DIE(512,"DR",2,399.042)=".01;.02;.03;.04;.05;.09;.06;I '$P(^DGCR(399,DA(1),""RC"",DA,0),U,6) S Y=""@658"";.07;@658;I +$P(^DGCR(399,DA(1),""RC"",DA,0),U,8) S Y=""@659"";.1;.12;"
^DIE(512,"DR",2,399.042,1)="I $P($G(^DGCR(399,DA(1),""RC"",DA,0)),U,10)'=4!'$P(^DGCR(399,DA(1),""RC"",DA,0),U,6) S Y=""@659"";D LINKCPT^IBCEU5(DA(1),DA);@659;"
^DIE(512,"ROU")="^IBXSC6"
^DIE(512,"ROUOLD")="IBXSC6"
^DIE(513,0)="IB SCREEN7^3080131.1509^@^399^^@^3070215"
^DIE(513,"AB","1^IBXSC78",.01)="1^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.02)="2^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.03)="3^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.04)="4^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.05)="5^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.06)="7^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.07)="9^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.09)="6^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.1)="12^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.12)="13^IBXSC79"
^DIE(513,"AB","1^IBXSC78",.15)="1^IBXSC712"
^DIE(513,"AB","1^IBXSC78","@758")="10^IBXSC79"
^DIE(513,"AB","1^IBXSC78","@7581")="3^IBXSC712"
^DIE(513,"AB","1^IBXSC78","@759")="5^IBXSC712"
^DIE(513,"AB","3^IBXSC7",.01)="1^IBXSC71"
^DIE(513,"AB","^",.19)="1^IBXSC75"
^DIE(513,"AB","^",.22)="21^IBXSC7"
^DIE(513,"AB","^",.24)="11^IBXSC7"
^DIE(513,"AB","^",.25)="13^IBXSC7"
^DIE(513,"AB","^",.26)="17^IBXSC7"
^DIE(513,"AB","^",.27)="24^IBXSC7"
^DIE(513,"AB","^",42)="1^IBXSC78"
^DIE(513,"AB","^",43)="3^IBXSC7"
^DIE(513,"AB","^",151)="19^IBXSC75"
^DIE(513,"AB","^",152)="20^IBXSC75"
^DIE(513,"AB","^",153)="16^IBXSC75"
^DIE(513,"AB","^",155)="11^IBXSC75"
^DIE(513,"AB","^",156)="14^IBXSC75"
^DIE(513,"AB","^",157)="13^IBXSC75"
^DIE(513,"AB","^",162)="20^IBXSC7"
^DIE(513,"AB","^",202)="2^IBXSC78"
^DIE(513,"AB","^",203)="4^IBXSC78"
^DIE(513,"AB","^",210)="7^IBXSC78"
^DIE(513,"AB","^",216)="18^IBXSC7"
^DIE(513,"AB","^",217)="19^IBXSC7"
^DIE(513,"AB","^",218)="12^IBXSC78"
^DIE(513,"AB","^",219)="15^IBXSC78"
^DIE(513,"AB","^",220)="18^IBXSC78"
^DIE(513,"AB","^",243)="22^IBXSC7"
^DIE(513,"AB","^","@71")="6^IBXSC7"
^DIE(513,"AB","^","@711")="9^IBXSC7"
^DIE(513,"AB","^","@712")="15^IBXSC7"
^DIE(513,"AB","^","@714")="28^IBXSC7"
^DIE(513,"AB","^","@715")="7^IBXSC75"
^DIE(513,"AB","^","@72")="9^IBXSC75"
^DIE(513,"AB","^","@73")="17^IBXSC75"
^DIE(513,"AB","^","@75")="21^IBXSC75"
^DIE(513,"AB","^","@757")="5^IBXSC78"
^DIE(513,"AB","^","@76")="8^IBXSC78"
^DIE(513,"AB","^","@77")="9^IBXSC78"
^DIE(513,"AB","^","@772")="13^IBXSC78"
^DIE(513,"AB","^","@773")="16^IBXSC78"
^DIE(513,"AB","^","@78")="19^IBXSC78"
^DIE(513,"AB","^","@999")="4^IBXSC7"
^DIE(513,"DIAB",1,1,399.043,0)="ALL"
^DIE(513,"DIAB",4,0,399,1)="UB-04 TIMEFRAME OF BILL;TIMEFRAME OF BILL~"
^DIE(513,"DIAB",11,0,399,0)="UB-04 LOCATION OF CARE;LOCATION OF CARE~"
^DIE(513,"DIAB",13,0,399,0)="UB-04 BILL CLASSIFICATION;BILL CLASSIFICATION~"
^DIE(513,"DR",1,399)="S:IBDR20'[""74"" Y=""@71"";S:$D(IBOUT) Y=""@999"";43;@999;K IBOUT;@71;S:IBDR20'[""71"" Y=""@72"";S:$P($G(^DGCR(399,DA,0)),U,19)'=3 Y=""@712"";@711;S DIE(""NO^"")="""";.24LOCATION OF CARE~~;S:'$D(DIE(""NO^"")) DIE(""NO^"")="""";.25BILL CLASSIFICATION~~;"
^DIE(513,"DR",1,399,1)="I '$$TOBIN^IBCU4($P(^DGCR(399,DA,0),U,25),DA) W !!,*7,""  **  The 'BILL CLASSIFICATION' must be consistent with the 'LOCATION OF CARE.'"",! S Y=""@711"";@712;K DIE(""NO^"");.26TIMEFRAME OF BILL~~;216;217;162;.22;243;"
^DIE(513,"DR",1,399,2)="D DISPTAX^IBCEP81($P($G(^DGCR(399,DA,""U3"")),U,2),""Default Division"");.27;S DGRVRCAL=1;S DIPA(""FT1"")=$P($G(^DGCR(399,DA,0)),U,19);D CKFT^IBCIUT1(IBIFN);@714;.19;S DIPA(""FT"")=$P($G(^DGCR(399,DA,0)),U,19);"
^DIE(513,"DR",1,399,3)="I $P($G(^IBE(353,+DIPA(""FT""),2)),U,2)=""P"",$P($G(^(2)),U,4) S DIPA(""FT1"")=DIPA(""FT"") D CKFT^IBCIUT1(IBIFN) S Y=""@715"";W !,*7,""Must be a printable national form type"";.19///^S X=$G(DIPA(""FT1""));S Y=""@714"";@715;D FTPRV^IBCEU5(DA);@72;"
^DIE(513,"DR",1,399,4)="S:IBDR20'[""72"" Y=""@73"";155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y=""@73"";153;@73;S:IBDR20'[""73"" Y=""@75"";151;152;@75;S:IBDR20'[""75"" Y=""@76"";D RCD^IBCU1;42;202;S:'X Y=""@757"";203;@757;I $P(^DGCR(399,DA,""U1""),""^"",11)']"""" S Y=""@76"";210;@76;"
^DIE(513,"DR",1,399,5)="@77;S:IBDR20'[""77"" Y=""@78"";S:'$D(^DGCR(399,DA,""I1"")) Y=""@772"";218;@772;S:'$D(^DGCR(399,DA,""I2"")) Y=""@773"";219;@773;S:'$D(^DGCR(399,DA,""I3"")) Y=""@78"";220;@78;K DIE(""NO^"");"
^DIE(513,"DR",2,399.042)=".01;.02;.03;.04;.05;.09;.06;I '$P(^DGCR(399,DA(1),""RC"",DA,0),U,6) S Y=""@758"";.07//^S X=$$DEFDIV^IBCU7(DA(1));@758;I +$P(^DGCR(399,DA(1),""RC"",DA,0),U,8) W !,"" AUTO ADDED CHARGE - NO CHANGE TO TYPE/COMPONENT"" S Y=""@759"";.1;.12;"
^DIE(513,"DR",2,399.042,1)="I $S($P($G(^DGCR(399,DA(1),""RC"",DA,0)),U,10)=3:0,1:$P($G(^(0)),U,10)'=4)!$P($G(^(0)),U,8) S Y=""@759"";I $P($G(^DGCR(399,DA(1),""RC"",DA,0)),U,10)=4 S Y=""@7581"";S DGRVRCAL=1;D LINKRX^IBCEU5(DA(1),DA);.15;S Y=""@759"";@7581;"
^DIE(513,"DR",2,399.042,2)="D LINKCPT^IBCEU5(DA(1),DA);@759;"
^DIE(513,"DR",2,399.043)=".01"
^DIE(513,"ROU")="^IBXSC7"
^DIE(513,"ROUOLD")="IBXSC7"
^DIE(514,0)="IB SCREEN8^3070116.1847^@^399^^@^3000801"
^DIE(514,"AB","^",163)="19^IBXSC8"
^DIE(514,"AB","^",207)="11^IBXSC8"
^DIE(514,"AB","^",208)="2^IBXSC8"
^DIE(514,"AB","^",213)="14^IBXSC8"
^DIE(514,"AB","^","@82")="3^IBXSC8"
^DIE(514,"AB","^","@83")="5^IBXSC8"
^DIE(514,"AB","^","@84")="7^IBXSC8"
^DIE(514,"AB","^","@85")="9^IBXSC8"
^DIE(514,"AB","^","@86")="12^IBXSC8"
^DIE(514,"AB","^","@87")="15^IBXSC8"
^DIE(514,"AB","^","@88")="17^IBXSC8"
^DIE(514,"AB","^","@89")="20^IBXSC8"
^DIE(514,"DR",1,399)="S:IBDR20'[""81"" Y=""@82"";208;@82;S:IBDR20'[""82"" Y=""@83"";@83;S:IBDR20'[""83"" Y=""@84"";@84;S:IBDR20'[""84"" Y=""@85"";@85;S:IBDR20'[""85"" Y=""@86"";207;@86;S:IBDR20'[""86"" Y=""@87"";213;@87;S:IBDR20'[""87"" Y=""@88"";@88;S:IBDR20'[""88"" Y=""@89"";163;"
^DIE(514,"DR",1,399,1)="@89;"
^DIE(514,"ROU")="^IBXSC8"
^DIE(514,"ROUOLD")="IBXSC8"
^DIE(515,0)="IB SCREEN8H^3080312.1046^@^399^^@^3080312"
^DIE(515,"%D",0)="^^1^1^3070110^"
^DIE(515,"%D",1,0)="Billing screen 8 input template for form type CMS-1500."
^DIE(515,"DIAB",1,0,399,1)="TREATMENT AUTHORIZATION CODE;""PRIMARY AUTHORIZATION CODE"""
^DIE(515,"DIAB",1,0,399,2)="NON-VA FACILITY:"
^DIE(515,"DIAB",1,1,355.93,1)="FACILITY DEFAULT ID NUMBER;REQ;""LAB OR FACILITY PRIMARY ID"""
^DIE(515,"DIAB",1,1,399.0222,2)="PERFORMED BY:355.93:"
^DIE(515,"DIAB",1,2,355.9342,0)="ALL"
^DIE(515,"DIAB",1,3,355.9342,0)="ALL"
^DIE(515,"DIAB",4,1,399.0222,9)="PRIM INS PROVIDER ID TYPE;T;REQ"
^DIE(515,"DIAB",5,1,399.0222,9)="PRIMARY INS CO ID NUMBER;T"
^DIE(515,"DIAB",7,0,399,4)="D ASK19^IBCEU3(DA);X"
^DIE(515,"DIAB",8,0,399,0)="FORM LOCATOR 64A;T"
^DIE(515,"DIAB",8,1,399.0222,9)="SEC INS PROVIDER ID TYPE;T;REQ"
^DIE(515,"DIAB",9,1,399.0222,9)="SECONDARY INS CO ID NUMBER;T"
^DIE(515,"DIAB",9,2,355.93,1)="FACILITY DEFAULT ID NUMBER;REQ;""LAB OR FACILITY PRIMARY ID"""
^DIE(515,"DIAB",10,0,399,0)="FORM LOCATOR 64B;T"
^DIE(515,"DIAB",12,1,399.0222,9)="TERT INS PROVIDER ID TYPE;T;REQ"
^DIE(515,"DIAB",13,1,399.0222,9)="TERTIARY INS CO ID NUMBER;T"
^DIE(515,"DR",1,399)="K DIPA S DIPA(""I1"")=$D(^DGCR(399,DA,""I1"")),DIPA(""I2"")=$D(^(""I2"")),DIPA(""I3"")=$D(^(""I3""));S:IBDR20'[""81"" Y=""@82"";166;167;@82;S:IBDR20'[""82"" Y=""@83"";215;453T~;S:'DIPA(""I2"") Y=""@825"";454T~;S:'DIPA(""I3"") Y=""@825"";455;@825;"
^DIE(515,"DR",1,399,1)="163PRIMARY AUTHORIZATION CODE~;S:'DIPA(""I2"") Y=""@83"";230;S:'DIPA(""I3"") Y=""@83"";231;@83;S:IBDR20'[""83"" Y=""@84"";222;@84;S:IBDR20'[""84"" Y=""@86"";232;S DIPA(""NVA_FC"")=X S:X="""" Y=""@846"";"
^DIE(515,"DR",1,399,2)="^355.93^IBA(355.93,^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,10),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");S DIK=""^DGCR(399,"",DIK(1)=""232"" D EN1^DIK;K DIK;244;"
^DIE(515,"DR",1,399,3)="D DISPTAX^IBCEP81($P($G(^DGCR(399,DA,""U3"")),U,3),""Non-VA Facility"");233;@846;S DIPA(""OLDCLIA"")=$P($G(^DGCR(399,DA,""U2"")),U,13);235;I X="""",$G(DIPA(""OLDCLIA""))'="""" S IBMDOTCN=1;@847;I '$$XRAY^IBCEP8A(DA) S Y=""@848"";"
^DIE(515,"DR",1,399,4)="D MAMMODP^IBCEP8A(DA);242;@848;@86;S:IBDR20'[""86"" Y=""@87"";459;D ASK19^IBCEU3(DA);236;237;238//^S X=$S($$WNRBILL^IBEFUNC(DA):""31"",1:"""");@87;S:IBDR20'[""87"" Y=""@99"";I '$P($G(^DGCR(399,DA,""TX"")),U,8),'$$TXMT^IBCEF4(DA) S Y=""@872"";"
^DIE(515,"DR",1,399,5)="I $$REQMRA^IBEFUNC(DA) S Y=""@8711"";27//NO FORCED PRINT;S Y=""@872"";@8711;28//NO FORCED PRINT;@872;@99;"
^DIE(515,"DR",2,355.93)="S DIPA(""NVA_FC-0"")=$G(^IBA(355.93,+DIPA(""NVA_FC""),0)) S:$P(DIPA(""NVA_FC-0""),U,5)'=""""&($P(DIPA(""NVA_FC-0""),U,6)'="""")&($P(DIPA(""NVA_FC-0""),U,7)'="""") Y=""@841"";.05;.1;.06;.07;.08;@841;S:$P(DIPA(""NVA_FC-0""),U,9)'="""" Y=""@842"";"
^DIE(515,"DR",2,355.93,1)=".09LAB OR FACILITY PRIMARY ID~R~;@842;S:$P(DIPA(""NVA_FC-0""),U,11)'="""" Y=""@843"";.11;@843;S:$P(DIPA(""NVA_FC-0""),U,14)'="""" Y=""@844"";D EN2^IBCEP82(+DIPA(""NVA_FC""),2);@844;S:$D(^IBA(355.93,+DIPA(""NVA_FC""),""TAXONOMY""))>0 Y=""@845"";42;"
^DIE(515,"DR",2,355.93,2)="@845;"
^DIE(515,"DR",2,399.0222)=".01;S DIPA(""RF"")=X S:$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) DLAYGO=355.93;.02;K DLAYGO S DIPA(""PRF"")=X S:X="""" Y=""@98"";N Z1 S Z1=$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,2) S DIPA(""NVA_PRV"")=$S(Z1[""IBA(355.93"":+Z1,1:0);"
^DIE(515,"DR",2,399.0222,1)="S:DIPA(""NVA_PRV"")=0 Y=""@828"";"
^DIE(515,"DR",2,399.0222,2)="^355.93^IBA(355.93,^^N DIERR X DR(99,1,9.2) K DIC S DIC=""^IBA(355.93,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");@828;"
^DIE(515,"DR",2,399.0222,3)="S DIK=""^DGCR(399,""_DA(1)_"",""""PRV"""","",DIK(1)="".02"" D EN1^DIK K DIK;S Z1=$P($$PROVID^IBCEF73(DA(1)),U,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U));"
^DIE(515,"DR",2,399.0222,4)="I Z1="""",$P($G(DIPA(""NVA_PRV-0"")),U,2)=2 N X,Y,DIR S DIR(0)=""EA"",DIR(""A"",1)=""You must use Provider ID Maintenance to enter an SSN or EIN for this provider."",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR W ! K DIR;.15;"
^DIE(515,"DR",2,399.0222,5)="D DISPTAX^IBCEP81($P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,15),"""");N Z S Z=$$EXPAND^IBTRE(399.0222,.08,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,8)),DIPA(""SPC"")=$S(Z'="""":Z,1:""UNSPECIFIED"") W !,""    Prov Specialty On File: "",DIPA(""SPC"");"
^DIE(515,"DR",2,399.0222,6)="S DIPA(""CRD"")=$$CRED^IBCEU($P(^DGCR(399,DA(1),""PRV"",DA,0),U,2));.03;K DIPA(""W1"") S:$G(DIPA(""CRD""))'=$P(^DGCR(399,DA(1),""PRV"",DA,0),U,3) DIPA(""W1"")=1;I $G(DIPA(""W1"")) D WRT1^IBCSC8H($G(DIPA(""CRD"")));K DIPA(""W1"");"
^DIE(515,"DR",2,399.0222,7)="I '$G(DIPA(""I1"")) S Y=""@8305"";D PROVID^IBCEP2B(DA(1),DA,1,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8382"",DIPA(""EDIT"")=1:""@8391"",DIPA(""EDIT"")=2:""@8371"",1:"""");@8382;I '$G(DIPA(""I2"")) S Y=""@8305"";"
^DIE(515,"DR",2,399.0222,8)="D PROVID^IBCEP2B(DA(1),DA,2,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8383"",DIPA(""EDIT"")=1:""@8392"",DIPA(""EDIT"")=2:""@8372"",1:"""");@8383;I '$G(DIPA(""I3"")) S Y=""@8305"";"
^DIE(515,"DR",2,399.0222,9)="D PROVID^IBCEP2B(DA(1),DA,3,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8305"",DIPA(""EDIT"")=1:""@8393"",DIPA(""EDIT"")=2:""@8373"",1:"""");S Y=""@8305"";@8391;.12R~T~;.05T~;S Y=""@8382"";@8392;.13R~T~;.06T~;S Y=""@8383"";@8393;.14R~T~;.07T~;S Y=""@8305"";@8371;"
^DIE(515,"DR",2,399.0222,10)=".12////^S X=DIPA(""PRIDT"");.05////^S X=DIPA(""PRID"");S Y=""@8382"";@8372;.13////^S X=DIPA(""PRIDT"");.06////^S X=DIPA(""PRID"");S Y=""@8383"";@8373;.14////^S X=DIPA(""PRIDT"");.07////^S X=DIPA(""PRID"");S Y=""@8305"";@8305;@98;W @IOF;"
^DIE(515,"DR",3,355.93)="S DIPA(""NVA_PRV-0"")=$G(^IBA(355.93,DIPA(""NVA_PRV""),0));S:$P(DIPA(""NVA_PRV-0""),U,2)=1 Y=""@822"";S:$P(DIPA(""NVA_PRV-0""),U,3)'="""" Y=""@821"";.03;@821;S:$P(DIPA(""NVA_PRV-0""),U,3)'="""" Y=""@825"";.04;S Y=""@825"";@822;"
^DIE(515,"DR",3,355.93,1)="S:$P(DIPA(""NVA_PRV-0""),U,5)'=""""&($P(DIPA(""NVA_PRV-0""),U,6)'="""")&($P(DIPA(""NVA_PRV-0""),U,7)'="""") Y=""@823"";.05;.1;.06;.07;.08;@823;S:$P(DIPA(""NVA_PRV-0""),U,9)'="""" Y=""@824"";.09LAB OR FACILITY PRIMARY ID~R~;@824;"
^DIE(515,"DR",3,355.93,2)="S:$P(DIPA(""NVA_PRV-0""),U,11)'="""" Y=""@825"";.11;@825;S:$P(DIPA(""NVA_PRV-0""),U,14)'="""" Y=""@826"";D EN2^IBCEP82(DIPA(""NVA_PRV""),4);@826;S:$D(^IBA(355.93,DIPA(""NVA_PRV""),""TAXONOMY""))>0 Y=""@827"";42;@827;"
^DIE(515,"DR",3,355.9342)=".01:.03"
^DIE(515,"DR",4,355.9342)=".01:.03"
^DIE(515,"DR",99,1)="N DIERR X DR(99,1,9.2) K DIC S DIC=""^IBA(355.93,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^DIE(515,"DR",99,1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(399.0222,.02,"""",$P(Y(1),U,2))"
^DIE(515,"ROUOLD")="IBXSC8H"
^DIE(516,0)="IB NEW EXEMPTION^3020903.1709^@^354.1^^@^3020903"
^DIE(516,"AB","^",.02)="2^IBXEX"
^DIE(516,"AB","^",.02,"///")=""
^DIE(516,"AB","^",.03)="3^IBXEX"
^DIE(516,"AB","^",.03,"///")=""
^DIE(516,"AB","^",.04)="4^IBXEX"
^DIE(516,"AB","^",.04,"///")=""
^DIE(516,"AB","^",.05)="5^IBXEX"
^DIE(516,"AB","^",.05,"///")=""
^DIE(516,"AB","^",.06)="6^IBXEX"
^DIE(516,"AB","^",.06,"///")=""
^DIE(516,"AB","^",.07)="7^IBXEX"
^DIE(516,"AB","^",.07,"///")=""
^DIE(516,"AB","^",.08)="9^IBXEX"
^DIE(516,"AB","^",.08,"///")=""
^DIE(516,"AB","^",.1)="10^IBXEX"
^DIE(516,"AB","^",.1,"///")=""
^DIE(516,"AB","^",.11)="11^IBXEX"
^DIE(516,"AB","^",.11,"///")=""
^DIE(516,"AB","^",.15)="13^IBXEX"
^DIE(516,"AB","^",.15,"///")=""
^DIE(516,"AB","^","@99")="14^IBXEX"
^DIE(516,"DIAB",1,0,354.1,1)="DATE/TIME ADDED///NOW"
^DIE(516,"DR",1,354.1)="I '$D(DFN)!('$D(IBTYPE))!('$D(IBSTAT))!('$D(IBEXREA)) S Y=""@99"";.02////^S X=DFN;.03////^S X=IBTYPE;.04////^S X=IBSTAT;.05////^S X=IBEXREA;.06////^S X=IBHOW;.07////^S X=$S(DUZ:DUZ,1:.5);Q;"
^DIE(516,"DR",1,354.1,1)=".08///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);.1////1;.11////^S X=$G(IBASIG);I '$D(IBPRIOR) S Y=""@99"";.15////^S X=IBPRIOR;@99;"
^DIE(516,"ROU")="^IBXEX"
^DIE(516,"ROUOLD")="IBXEX"
^DIE(517,0)="IB CURRENT STATUS^2930119.1005^@^354^1453^@^2940318"
^DIE(517,"AB","^",.03)="3^IBXEXS"
^DIE(517,"AB","^",.03,"///")=""
^DIE(517,"AB","^",.04)="2^IBXEXS"
^DIE(517,"AB","^",.04,"///")=""
^DIE(517,"AB","^",.05)="4^IBXEXS"
^DIE(517,"AB","^",.05,"///")=""
^DIE(517,"AB","^","@99")="5^IBXEXS"
^DIE(517,"DR",1,354)="I '$D(IBSTAT)!('$D(IBDT)) S Y=""@99"";.04////^S X=+IBSTAT;.03////^S X=IBDT;.05////^S X=IBEXREA;@99;"
^DIE(517,"ROU")="^IBXEXS"
^DIE(517,"ROUOLD")="IBXEXS"
^DIE(518,0)="IB INACTIVATE EXEMPTION^2930126.1153^@^354.1^1453^@^2940318"
^DIE(518,"AB","^",.1)="2^IBXEXI"
^DIE(518,"AB","^",.1,"///")=""
^DIE(518,"AB","^",.15)="3^IBXEXI"
^DIE(518,"AB","^",.15,"///")=""
^DIE(518,"AB","^","@99")="4^IBXEXI"
^DIE(518,"DR",1,354.1)="I '$D(IBX) S Y=""@99"";.1////0;.15///@;@99;"
^DIE(518,"ROU")="^IBXEXI"
^DIE(518,"ROUOLD")="IBXEXI"
^DIE(519,0)="IB ENTER THRESHOLD^3000411.0955^@^354.3^^@^3000602"
^DIE(519,"DR",1,354.3)="S IBTH="""";.01;.02//BASIC PENSION;S IBTH=+$P(^IBE(354.3,DA,0),""^"",2);.03;I IBTH=4 S Y=""@99"";.04;.12;.05;.06;.07;.08;.09;.1;.11;@99;"
^DIE(520,0)="IBDF POSITION COPIED BLOCK^2950224.0837^^357.1^^^2970328"
^DIE(520,"%D",0)="^^1^1^2940308^"
^DIE(520,"%D",1,0)="Used to position a copied block onto a form."
^DIE(520,"DIAB",5,0,357.1,0)=".06;T;REQ"
^DIE(520,"DIAB",7,0,357.1,0)=".07;T;REQ"
^DIE(520,"DR",1,357.1)=".04;S IBY=X;.05;S IBX=X;.06R~T~;I (X+IBX)>$G(IBFORM(""WIDTH"")) W !,""WARNING!, The block extends past the right margin!"";.07R~T~;I (X+IBY)>$G(IBFORM(""HT"")) W !,""WARNING!, The block extends past the bottom margin!"";S IBDONE=1;"
^DIE(521,0)="IBDF EDIT HEADER&OUTLINE^2930415.0801^^357.1^^^2970121^"
^DIE(521,"%D",0)="^^1^1^2940308^"
^DIE(521,"%D",1,0)="Used to edit a block's header and outline."
^DIE(521,"DIAB",2,0,357.1,0)=".13;T"
^DIE(521,"DIAB",3,0,357.1,0)=".11;T"
^DIE(521,"DIAB",5,0,357.1,0)=".12;T"
^DIE(521,"DIAB",7,0,357.1,0)=".1;T"
^DIE(521,"DR",1,357.1)=".01////^S X=IBNAME;.13T~;.11T~;I $P(^IBE(357.1,D0,0),U,11)="""" S Y=""@1"";.12T~;@1;.1T~;"
^DIE(522,0)="IBDF EDIT DATA FIELD^2940527.101^^357.5^^^2970324^"
^DIE(522,"%D",0)="^^1^1^2940308^"
^DIE(522,"%D",1,0)="Used to edit a data field."
^DIE(522,"AB","11^IBDXI51",.01)="1^IBDXI52"
^DIE(522,"AB","11^IBDXI51",.03)="4^IBDXI52"
^DIE(522,"AB","11^IBDXI51",.04)="8^IBDXI52"
^DIE(522,"AB","11^IBDXI51",.05)="6^IBDXI52"
^DIE(522,"AB","11^IBDXI51",.06)="3^IBDXI53"
^DIE(522,"AB","11^IBDXI51",.07)="5^IBDXI53"
^DIE(522,"AB","11^IBDXI51",.08)="1^IBDXI53"
^DIE(522,"AB","11^IBDXI51",.09)="12^IBDXI52"
^DIE(522,"AB","11^IBDXI51",.09,"///")=""
^DIE(522,"AB","11^IBDXI51","@10")="7^IBDXI53"
^DIE(522,"AB","11^IBDXI51","@7")="10^IBDXI52"
^DIE(522,"AB","11^IBDXI51","@8")="15^IBDXI52"
^DIE(522,"AB","11^IBDXI51","@9")="20^IBDXI52"
^DIE(522,"AB","^",.01)="1^IBDXI5"
^DIE(522,"AB","^",.02)="3^IBDXI5"
^DIE(522,"AB","^",.02,"///")=""
^DIE(522,"AB","^",.03)="4^IBDXI5"
^DIE(522,"AB","^",.03,"///")=""
^DIE(522,"AB","^",.04)="10^IBDXI5"
^DIE(522,"AB","^",.05)="9^IBDXI5"
^DIE(522,"AB","^",.06)="13^IBDXI5"
^DIE(522,"AB","^",.07)="15^IBDXI5"
^DIE(522,"AB","^",.1)="2^IBDXI51"
^DIE(522,"AB","^",.11)="1^IBDXI51"
^DIE(522,"AB","^",.12)="3^IBDXI51"
^DIE(522,"AB","^",.13)="4^IBDXI51"
^DIE(522,"AB","^",.14)="5^IBDXI51"
^DIE(522,"AB","^",2)="11^IBDXI51"
^DIE(522,"AB","^","@1")="7^IBDXI5"
^DIE(522,"AB","^","@2")="11^IBDXI5"
^DIE(522,"AB","^","@4")="16^IBDXI5"
^DIE(522,"AB","^","@5")="7^IBDXI51"
^DIE(522,"AB","^","@99")="12^IBDXI51"
^DIE(522,"DIAB",1,0,357.5,1)=".1;T;REQ"
^DIE(522,"DIAB",1,1,357.52,1)=".09;""Select Subfield's Data"""
^DIE(522,"DIAB",2,0,357.5,1)=".12;T;REQ"
^DIE(522,"DIAB",3,0,357.5,1)=".13;T;REQ"
^DIE(522,"DIAB",4,0,357.5,1)=".14;T;REQ"
^DIE(522,"DIAB",4,1,357.52,0)=".03;T"
^DIE(522,"DIAB",9,0,357.5,0)=".05;T;REQ"
^DIE(522,"DIAB",10,0,357.5,0)=".04;T"
^DIE(522,"DIAB",13,0,357.5,0)=".06;T"
^DIE(522,"DIAB",15,0,357.5,0)=".07;T"
^DIE(522,"DIAB",17,0,357.5,0)=".11;T;REQ"
^DIE(522,"DR",1,357.5)=".01;I IBOLD S Y=""@1"";.02////^S X=$G(IBBLK);.03////^S X=$G(IBRTN);D DATATYPE^IBDF9B(+$G(IBRTN));D RESET^VALM4:VALMCC,REFRESH^VALM;@1;I '$G(IBLIST) S Y=""@2"";.05R~T~;.04T~;@2;I '$G(IBWP) S Y=""@5"";.06T~;S:X="""" Y=""@4"";.07T~;@4;.11R~T~;"
^DIE(522,"DR",1,357.5,1)=".1R~T~;.12R~T~;.13R~T~;.14R~T~;S Y=""@99"";@5;D FULL^VALM1;D HELP3^IBDFU5;S (IBY,IBX)=1;2;@99;S IBDELETE=0;"
^DIE(522,"DR",2,357.52)=".01;S:X="""" Y=""@99"" S IBW=$L(X);D RESET^VALM4:VALMCC,REFRESH^VALM;.03T~;I X[""I"" S Y=""@7"",IBW=0;.05//^S X=+IBY;S IBY=X+1;.04//^S X=+IBX;S IBX=X+2+IBW;@7;I $G(IBMF) S Y=""@8"";.09////^S X=1;S IBP=1;S Y=""@9"";@8;D HELP1^IBDFU5;"
^DIE(522,"DR",2,357.52,1)=".09Select Subfield's Data~;I 'X S Y=""@10"";S IBP=X;@9;.08//^S X=$G(IBLEN(IBP));S IBW=+X;.06//^S X=+IBY;S IBY=X+1;.07//^S X=+IBX;S IBX=X+2+IBW;@10;D FULL^VALM1;D HELP3^IBDFU5;"
^DIE(522,"ROU")="^IBDXI5"
^DIE(522,"ROUOLD")="IBDXI5"
^DIE(523,0)="IBDF EDIT FORM HEADER^2930730.1158^^357.5^^^2961024^"
^DIE(523,"%D",0)="^^1^1^2940308^"
^DIE(523,"%D",1,0)="Used to edit the data field that is the form header."
^DIE(523,"DIAB",1,1,357.52,0)=".01;""HEADER LINE"""
^DIE(523,"DIAB",2,1,357.52,0)=".03;""HOW SHOULD THE HEADER LINE APPEAR? CHOOSE FROM {B=bold,U=underline}"""
^DIE(523,"DIAB",3,0,357.5,0)="2;""HEADER LINE"""
^DIE(523,"DR",1,357.5)="W !!,""***** Each subfield entered here will be a header line *****"",!;W ""**** Lines will appear in the order entered ****"",!;2HEADER LINE~;"
^DIE(523,"DR",2,357.52)=".01HEADER LINE~;.03HOW SHOULD THE HEADER LINE APPEAR? CHOOSE FROM {B=bold,U=underline}~;"
^DIE(524,0)="IBDF EDIT HEADER BLOCK^2950914.1133^^357.1^^^2961024"
^DIE(524,"%D",0)="^^1^1^2940308^"
^DIE(524,"%D",1,0)="Used to edit the header block of a form."
^DIE(524,"DIAB",1,0,357.1,0)=".1//INVISIBLE;""HEADER BLOCK OUTLINE TYPE"""
^DIE(524,"DIAB",5,0,357.1,0)=".04//2;""ROW TO BEGIN THE HEADER BLOCK AT"""
^DIE(524,"DR",1,357.1)=".1HEADER BLOCK OUTLINE TYPE~//INVISIBLE;I X=1 S IBBOX=2;.06////^S X=+$G(MAXLEN)+IBBOX;.07////^S X=+$G(HDRLINES)+IBBOX;.04ROW TO BEGIN THE HEADER BLOCK AT~//2;.05//^S X=$$DFLTCOL^IBDF9C;S IBDELETE=0;"
^DIE(525,0)="IBDF FORM LINE^2950616.1517^^357.7^^^2960521"
^DIE(525,"%D",0)="^^1^1^2940308^"
^DIE(525,"%D",1,0)="Used to edit a line."
^DIE(525,"DIAB",6,0,357.7,0)=".04;T"
^DIE(525,"DR",1,357.7)="S IBDFDONE=0;.03;I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""line"");.02;I (X<$$MINX^IBDFU1B)!(X>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""line"");.04T~;.05;I X>$$MAXLEN^IBDF9D D WARNING^IBDFU1B(""line"");"
^DIE(525,"DR",1,357.7,1)="I $P($G(^IBE(357.7,IBLINE,0)),""^"",4)'=""H"" S Y=""@1"";.07;I X<2 S Y=""@1"";.08;I $$TOOMANY^IBDF9D() D WARNING^IBDFU1B(""line"");@1;.01///^S X=$$NEWNAME^IBDF9D($G(IBLINE));.06////^S X=$G(IBBLK);S IBDFDONE=1;"
^DIE(526,0)="IBDF NEW EMPTY BLOCK^2950417.1028^^357.1^^^2970319"
^DIE(526,"%D",0)="^^2^2^2940308^"
^DIE(526,"%D",1,0)="Used to edit the header, position, outline, and other characteristics of a"
^DIE(526,"%D",2,0)="new block."
^DIE(526,"DIAB",6,0,357.1,0)=".14;REQ"
^DIE(526,"DIAB",8,0,357.1,0)=".11;T"
^DIE(526,"DIAB",10,0,357.1,0)=".12//CR;T"
^DIE(526,"DIAB",12,0,357.1,0)=".1//SOLID LINE;T"
^DIE(526,"DIAB",14,0,357.1,0)=".04;T"
^DIE(526,"DIAB",15,0,357.1,0)=".05;T"
^DIE(526,"DIAB",17,0,357.1,0)=".06;T"
^DIE(526,"DIAB",18,0,357.1,0)=".07;T"
^DIE(526,"DIAB",19,0,357.1,0)=".13;T"
^DIE(526,"DR",1,357.1)="S IBDFDONE=0;.01;.02////^S X=$G(IBFORM);S:'$G(IBTKBLK) Y=""@1"";.14///^S X=$$TKORDER^IBDF13();.14R~;@1;.11T~;I X="""" S Y=""@2"";.12T~//CR;@2;.1T~//SOLID LINE;S:$G(IBTKBLK) Y=""@3"";.04T~;.05T~;@3;.06T~;.07T~;.13T~;S IBDFDONE=1;"
^DIE(527,0)="IBDF EDIT TEXT AREA^2930730.1203^^357.8^^^2960820^"
^DIE(527,"%D",0)="^^1^1^2940308^"
^DIE(527,"%D",1,0)="Used to edit a text area."
^DIE(527,"DR",1,357.8)="S IBDELETE=1;.01;.02////^S X=$G(IBBLK);.04;I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""text area"");.03;I (X<$$MINX^IBDFU1B)!(X>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""text area"");.05;"
^DIE(527,"DR",1,357.8,1)="I X>$$MAXW^IBDF9E D WARNING^IBDFU1B(""text area"");.06;I X>$$MAXHT^IBDF9E D WARNING^IBDFU1B(""text area"");D FULL^VALM1;1;D FORMAT^IBDF9E;S IBDELETE=0;"
^DIE(528,0)="IBDF EDIT SELECTION LIST^2971030.1322^^357.2^^^2990120"
^DIE(528,"%D",0)="^^2^2^2961219^^"
^DIE(528,"%D",1,0)="Used to edit a selection list, except for the position and size of the"
^DIE(528,"%D",2,0)="columns."
^DIE(528,"AB","28^IBDXI2",.01)="4^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.02)="25^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.02,"///")=""
^DIE(528,"AB","28^IBDXI2",.03)="1^IBDXI24"
^DIE(528,"AB","28^IBDXI2",.04)="8^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.05)="34^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.06)="11^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.07)="13^IBDXI24"
^DIE(528,"AB","28^IBDXI2",.08)="13^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.08,"///")=""
^DIE(528,"AB","28^IBDXI2",.09)="21^IBDXI21"
^DIE(528,"AB","28^IBDXI2",.1)="19^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@10")="26^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@11")="4^IBDXI24"
^DIE(528,"AB","28^IBDXI2","@3")="32^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@6")="15^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@7")="17^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@8")="23^IBDXI21"
^DIE(528,"AB","28^IBDXI2","@9")="9^IBDXI24"
^DIE(528,"AB","28^IBDXI2","@99")="14^IBDXI24"
^DIE(528,"AB","3^IBDXI22",.01)="1^IBDXI23"
^DIE(528,"AB","3^IBDXI22",.02)="2^IBDXI23"
^DIE(528,"AB","3^IBDXI22",.03)="3^IBDXI23"
^DIE(528,"AB","3^IBDXI22",.04)="4^IBDXI23"
^DIE(528,"AB","^",.01)="2^IBDXI2"
^DIE(528,"AB","^",.02)="5^IBDXI2"
^DIE(528,"AB","^",.02,"///")=""
^DIE(528,"AB","^",.04)="19^IBDXI2"
^DIE(528,"AB","^",.05)="15^IBDXI2"
^DIE(528,"AB","^",.06)="17^IBDXI2"
^DIE(528,"AB","^",.07)="20^IBDXI2"
^DIE(528,"AB","^",.08)="24^IBDXI2"
^DIE(528,"AB","^",.09)="22^IBDXI2"
^DIE(528,"AB","^",.11)="6^IBDXI2"
^DIE(528,"AB","^",.11,"///")=""
^DIE(528,"AB","^",.12)="25^IBDXI2"
^DIE(528,"AB","^",.13)="1^IBDXI22"
^DIE(528,"AB","^",.15)="10^IBDXI2"
^DIE(528,"AB","^",.16)="6^IBDXI22"
^DIE(528,"AB","^",.17)="8^IBDXI22"
^DIE(528,"AB","^",.18)="9^IBDXI22"
^DIE(528,"AB","^",.19)="13^IBDXI2"
^DIE(528,"AB","^",1)="3^IBDXI22"
^DIE(528,"AB","^",2)="28^IBDXI2"
^DIE(528,"AB","^","@1")="8^IBDXI2"
^DIE(528,"AB","^","@100")="4^IBDXI22"
^DIE(528,"AB","^","@101")="10^IBDXI22"
^DIE(528,"AB","^","@19")="11^IBDXI2"
^DIE(528,"AB","^","@2")="18^IBDXI2"
^DIE(528,"AB","^","@4")="23^IBDXI2"
^DIE(528,"AB","^","@5")="14^IBDXI2"
^DIE(528,"DIAB",1,0,357.2,1)=".07//TWO SPACES;T"
^DIE(528,"DIAB",1,0,357.2,2)=".16//1;T"
^DIE(528,"DIAB",2,1,357.22,3)=".06//BUBBLE;T;REQ"
^DIE(528,"DIAB",3,0,357.2,1)=".09//CSU;T"
^DIE(528,"DIAB",3,0,357.2,2)=".17//NARRATIVE AND CODE;T;REQ"
^DIE(528,"DIAB",3,1,357.22,1)=".04//TEXT;T"
^DIE(528,"DIAB",3,1,357.22,6)=".07;T;REQ"
^DIE(528,"DIAB",4,0,357.2,2)=".18//CODE ONLY;T;REQ"
^DIE(528,"DIAB",4,1,357.22,0)=".01;""SUBCOLUMN NUMBER"""
^DIE(528,"DIAB",5,0,357.2,1)=".08//0;T"
^DIE(528,"DIAB",5,1,357.22,4)=".02;T"
^DIE(528,"DIAB",6,0,357.2,1)=".12//NO;T"
^DIE(528,"DIAB",7,1,357.22,5)=".02;T"
^DIE(528,"DIAB",10,0,357.2,0)=".15;T"
^DIE(528,"DIAB",11,1,357.22,4)=".05;""Select Subcolumn's Data"";REQ"
^DIE(528,"DIAB",15,0,357.2,0)=".05;T"
^DIE(528,"DIAB",17,0,357.2,0)=".06;T"
^DIE(528,"DR",1,357.2)="S IBDELETE=1;.01;I IBOLD S Y=""@1"";D FULL^VALM1;.02////^S X=$G(IBBLK);.11////^S X=$G(IBRTN);D DATASIZE^IBDF9A(+X),LISTTYPE^IBDF9A(+X);@1;S:'IBDYN Y=""@19"";.15T~;@19;S:'IBCLRM Y=""@5"";.19//1;@5;.05T~;I X="""" S Y=""@2"";.06T~;@2;.04;"
^DIE(528,"DR",1,357.2,1)=".07T~//TWO SPACES;S:IBDYN Y=""@4"";.09T~//CSU;@4;.08T~//0;.12T~//NO;D MSG3^IBDF9A;D HELP4^IBDFU5;2;K ^DIE(""NO^"");I ('IBDYN)!(IBINPUT) S Y=""@100"";.13;D RESET^VALM4:VALMCC,REFRESH^VALM;1//1;@100;S:'$$OTHEROK^IBDF9A(IBRTN) Y=""@101"";"
^DIE(528,"DR",1,357.2,2)=".16T~//1;S:X=0 Y=""@101"";.17R~T~//NARRATIVE AND CODE;.18R~T~//CODE ONLY;@101;S IBDELETE=0;"
^DIE(528,"DR",2,357.21)=".01;.02;.03//^S X=1+$S($G(IBBLK(""BOX""))=1:1,1:0);.04;"
^DIE(528,"DR",2,357.22)="S DIE(""NO^"")=""BACKOUTOK"";S IBSC1=$P($G(^IBE(357.2,D0,2,D1,0)),U);S IBSC1(IBSC1)=$P($G(^IBE(357.2,D0,2,D1,0)),U,4)_""^""_$P($G(^IBE(357.2,D0,2,D1,0)),U,5);.01SUBCOLUMN NUMBER~;N IBSC3,IBSC4 D SCLOOP^IBDF9A3;"
^DIE(528,"DR",2,357.22,1)="S IBSC2=$P($G(^IBE(357.2,D0,2,D1,0)),U);S:(IBSC1'=IBSC2) IBSWITCH(+$G(IBSWITCH))=IBSC1_""^""_IBSC2,IBSWITCH=$G(IBSWITCH)+1;.04T~//TEXT;"
^DIE(528,"DR",2,357.22,2)="I X'=$P(IBSC1(IBSC1),U,1),$P(IBSC1(IBSC1),U,1)]"""" S $P(^IBE(357.2,D0,2,D1,0),U,4)=$P(IBSC1(IBSC1),U,1) W !!,""*** PREVENTING LOSS OF DATA ***"",!,""NOT ALLOWING THE 'TYPE OF SUBCOLUMN' TO BE CHANGED"",!! S X=$P(IBSC1(IBSC1),U,1);"
^DIE(528,"DR",2,357.22,3)="I X=1 S Y=""@3"";.06R~T~//BUBBLE;I $P(^IBE(357.91,X,0),""^"")'[""BUBBLE"" S Y=""@6"";.08////1;S Y=""@7"";@6;.08;@7;S:'$G(IBINPUT) Y=""@8"",IBD=0;.1;S:'$O(^IBE(357.6,IBINPUT,13,0)) Y=""@8"",IBD=0;.09;S IBD=+X;@8;"
^DIE(528,"DR",2,357.22,4)="I $P(^IBE(357.2,D0,2,D1,0),U,2)'="""" S Y=""@10"";.02///^S X=$S(IBD:$P($G(^IBD(357.98,IBD,0)),U,3),1:"""");@10;S X=X;.02T~;I X'="""" S Y=""@99"";.02////^S X="" "";S Y=""@99"";@3;D HELP2^IBDFU5;.05R~Select Subcolumn's Data~;S IBD=+X;"
^DIE(528,"DR",2,357.22,5)="N IBDFFLG D SCDEL^IBDF9A3 I $D(IBDFFLG) S Y=""@99"";.03//^S X=+$G(IBLEN(IBD));I $P(^IBE(357.2,D0,2,D1,0),U,2)'="""" S Y=""@11"";.02///^S X=$P($G(IBLEN(IBD)),U,2);@11;S X=X;.02T~;I X'="""" S Y=""@9"";.02////^S X="" "";@9;I IBD<2 S Y=""@99"";"
^DIE(528,"DR",2,357.22,6)="I IBDYN S Y=""@99"";S:IBDYN Y=""@99"";.07R~T~;@99;D HELP4^IBDFU5;"
^DIE(528,"ROU")="^IBDXI2"
^DIE(528,"ROUOLD")="IBDXI2"
^DIE(529,0)="IBDF EDIT SELECTION^2950127.1445^^357.3^^^2951207"
^DIE(529,"%D",0)="^^1^1^2940308^"
^DIE(529,"%D",1,0)="Used to edit a selection."
^DIE(529,"DR",1,357.3)=".05;1;"
^DIE(529,"DR",2,357.31)="I '$G(IBDFEDIT(+$G(^IBE(357.3,D0,1,D1,0)))) S Y=""@1"";.02;"
^DIE(530,0)="IBDF EDIT OLD OR COPIED FORM^2950814.0909^^357^^^2970423"
^DIE(530,"%D",0)="^^1^1^2940308^"
^DIE(530,"%D",1,0)="Used to edit an existing form."
^DIE(530,"DIAB",5,0,357,0)=".12;REQ"
^DIE(530,"DIAB",8,0,357,0)=".06;T"
^DIE(530,"DIAB",11,0,357,1)=".03;T"
^DIE(530,"DR",1,357)="S IBDELETE=1;.01;.02//DUPLEX,SHORT-EDGE BINDING;.04////1;.12R~;S IBSCAN=X;I 'IBSCAN S Y=""@1"";.06T~;.16///1;.09///133;.1///80;.11//1;W !!,""ENTER THE PAGES THAT SHOULD BE SCANNED."";2;S Y=""@2"";@1;S:'IBOLD Y=""@3"";.09;.1;.11//1;"
^DIE(530,"DR",1,357,1)="S Y=""@2"";@3;.16//133 COLUMNS x 80 LINES;S IBTXTSZ=X;.09///^S X=$S(IBTXTSZ=1:133,IBTXTSZ=2:96,1:80);.1///^S X=$S(IBTXTSZ=1:80,IBTXTSZ=2:72,1:80);.11//1;@2;.14///1;.15///p;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;"
^DIE(530,"DR",2,357.02)=".01;.02////1;"
^DIE(531,0)="IBDF EDIT NEW FORM^2951103.1343^^357^^^2970404"
^DIE(531,"%D",0)="^^1^1^2940308^"
^DIE(531,"%D",1,0)="Used to edit a new form."
^DIE(531,"DIAB",6,0,357,0)=".12;REQ"
^DIE(531,"DIAB",9,0,357,0)=".06;T"
^DIE(531,"DIAB",9,0,357,1)=".03;T"
^DIE(531,"DR",1,357)="S IBDELETE=1;S IBDVR=+$G(^DD(357,0,""VR""));.01;.02//DUPLEX,SHORT-EDGE BINDING;.04////1;.12R~;S IBSCAN=X;I 'IBSCAN S Y=""@1"";.06T~;.16///1;.09///133;.1///80;.11//1;W !!,""ENTER THE PAGES THAT SHOULD BE SCANNED."";2;S Y=""@2"";@1;"
^DIE(531,"DR",1,357,1)=".16//133 COLUMNS x 80 LINES;S IBTXTSZ=X;.09///^S X=$S(IBTXTSZ=1:133,IBTXTSZ=2:96,1:80);.1///^S X=$S(IBTXTSZ=1:80,IBTXTSZ=2:72,1:80);.11//1;@2;.14///1;.15///p;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;S:IBDVR<1 Y=""@10"";"
^DIE(531,"DR",1,357,2)="I $P(^IBE(357,DA,0),U,17)'="""" S Y=""@10"";S:IBDVR<1 Y=""@10"";.17////^S X=+$G(IBDVR);@10;"
^DIE(531,"DR",2,357.02)=".01;.02////1;"
^DIE(532,0)="IBDF EDIT AVAILABLE REPORT^2930924.1337^^357.6^^^2961024^"
^DIE(532,"%D",0)="^^2^2^2940308^"
^DIE(532,"%D",1,0)="Used to define a package interface that prints a report other than a"
^DIE(532,"%D",2,0)="Health Summary."
^DIE(532,"DIAB",1,1,357.66,0)="ALL"
^DIE(532,"DIAB",1,1,357.67,0)="ALL"
^DIE(532,"DIAB",3,0,357.6,0)="1;REQ"
^DIE(532,"DIAB",5,0,357.6,0)=".04;REQ"
^DIE(532,"DIAB",6,0,357.6,0)=".02;REQ"
^DIE(532,"DIAB",7,0,357.6,0)=".03;REQ"
^DIE(532,"DIAB",13,0,357.6,0)=".09;REQ"
^DIE(532,"DR",1,357.6)=".01;.06////4;1R~;3;.04R~;.02R~;.03R~;.1///NO;4.01;5.01;6;7;.09R~;S IBDELETE=0;"
^DIE(532,"DR",2,357.66)=".01"
^DIE(532,"DR",2,357.67)=".01"
^DIE(533,0)="IBDF POSITION/SIZE COLUMNS^2950505.1108^^357.2^^^2961024"
^DIE(533,"%D",0)="^^1^1^2940308^"
^DIE(533,"%D",1,0)="Used to edit the size and position of a selection list's columns."
^DIE(533,"DIAB",2,0,357.2,0)=".13;T"
^DIE(533,"DIAB",3,1,357.21,0)=".02;T"
^DIE(533,"DIAB",4,1,357.21,0)=".03//^S X=1+$S($G(IBBLK(""BOX""))=1:1,1:0);T"
^DIE(533,"DIAB",5,1,357.21,0)=".04;T"
^DIE(533,"DR",1,357.2)="D MSG1^IBDF9A;.13T~;D FULL^VALM1;D MSG2^IBDF9A;1;"
^DIE(533,"DR",2,357.21)=".01;D RESET^VALM4:VALMCC,REFRESH^VALM;.02T~;.03T~//^S X=1+$S($G(IBBLK(""BOX""))=1:1,1:0);.04T~;D FULL^VALM1;"
^DIE(534,0)="IBDF EDIT OUTPUT/SELECTION RTN^2950807.0837^^357.6^^^2970411"
^DIE(534,"%D",0)="^^2^2^2940308^"
^DIE(534,"%D",1,0)="Used to define a package interface of the type output routine or selection"
^DIE(534,"%D",2,0)="routine."
^DIE(534,"DIAB",1,1,357.615,0)="ALL"
^DIE(534,"DIAB",1,1,357.66,0)="ALL"
^DIE(534,"DIAB",1,1,357.67,0)="ALL"
^DIE(534,"DIAB",2,0,357.6,1)="3;T"
^DIE(534,"DIAB",4,0,357.6,1)=".04;REQ"
^DIE(534,"DIAB",5,0,357.6,1)=".03;REQ"
^DIE(534,"DIAB",6,0,357.6,0)="1;REQ"
^DIE(534,"DIAB",6,0,357.6,1)=".02;REQ"
^DIE(534,"DIAB",8,0,357.6,0)=".07;T;REQ"
^DIE(534,"DIAB",9,0,357.6,1)=".09;REQ"
^DIE(534,"DIAB",11,0,357.6,1)="2.01;T"
^DIE(534,"DIAB",12,0,357.6,1)="2.02;T"
^DIE(534,"DIAB",14,0,357.6,1)="2.17;T;REQ"
^DIE(534,"DIAB",15,0,357.6,0)=".13;T"
^DIE(534,"DIAB",15,0,357.6,1)="2.18;REQ"
^DIE(534,"DR",1,357.6)="W !!,""You must prefix the name with the name space of the package that is providing"",!,""the data."",!;.01;Q;.1///NO;.06///^S X=IBTYPE;1R~;S:IBTYPE=3 Y=""@2"";.07R~T~;S IBACTION=X;.05////1;S Y=""@3"";@2;.07////4;S IBACTION=4;.13T~;@3;"
^DIE(534,"DR",1,357.6,1)="D LOOKUP^IBDF16;3T~;.1///NO;.04R~;.03R~;.02R~;6;7;.09R~;S:IBACTION=5 Y=""@1"";2.01T~;2.02T~;S:IBTYPE=2 Y=""@4"";2.17R~T~;2.18R~;@4;S:(IBACTION=1)!(IBACTION=3) Y=""@1"";15;@1;S IBDELETE=0;"
^DIE(534,"DR",2,357.615)=".01:.05"
^DIE(534,"DR",2,357.66)=".01"
^DIE(534,"DR",2,357.67)=".01"
^DIE(535,0)="IBDF EDIT MARKING AREA^2930727.0815^^357.91^^^2961024^"
^DIE(535,"%D",0)="^^1^1^2940308^"
^DIE(535,"%D",1,0)="Used to edit a marking area."
^DIE(535,"DIAB",4,0,357.91,0)=".02;T;REQ"
^DIE(535,"DR",1,357.91)=".01;.03///NO;W !!,""Enter the characters that should be printed on the form, including spaces."",!!;.02R~T~;S IBDELETE=0;"
^DIE(536,0)="IBDF PRINT MANAGER^2970318.1058^^409.95^^^2970415"
^DIE(536,"%D",0)="^^1^1^2940308^"
^DIE(536,"%D",1,0)="Used to edit a clinic setup for the print manager."
^DIE(536,"DIAB",1,1,409.9502,0)="ALL"
^DIE(536,"DR",1,409.95)=".01;.02;.06;.08;.09;.03;.04;.05;.07;.1;W !!,""You can now select reports that should be printed for the clinic"",!,""IN ADDITION to the encounter forms that have been selected."",!;1;"
^DIE(536,"DR",1,409.95,1)="W !!,"" You may enter reports that you DO NOT want to print for this clinic. Entering"",!,""an EXCLUDED REPORT will prevent it from printing even if it is defined"",!,""to print for the entire division."",!;2;"
^DIE(536,"DR",2,409.9501)=".01;.02///FOR EVERY APPOINTMENT;.03//DUPLEX,SHORT-EDGE BINDING;"
^DIE(536,"DR",2,409.9502)=".01"
^DIE(537,0)="IBDF PRINT MANAGER^2940630.1352^^409.96^^^2970303^"
^DIE(537,"%D",0)="^^1^1^2940308^"
^DIE(537,"%D",1,0)="Used to edit a division setup for the print manager."
^DIE(537,"DR",1,409.96)=".01;1;"
^DIE(537,"DR",2,409.961)=".01;.02;.03//DUPLEX,SHORT-EDGE BINDING;"
^DIE(538,0)="IBT UR INFO^2940128.1135^@^356^1453^@^2940128"
^DIE(538,"DR",1,356)=".31;.25//NO;.24;1.07;.26//NONE;.27//NO;1.05;1.06;"
^DIE(539,0)="IBT BILLING INFO^3050808.114^@^356^^@^3050808"
^DIE(539,"DIAB",1,1,356.03,0)="ALL"
^DIE(539,"DR",1,356)=".19;I X S IBRNB=X,Y=""@993"";.17;.12;.21;.22;.23;.28;.29;1.08;W !,""Current BILLABLE FINDINGS:"" I '$P($G(^IBT(356,DA,3,0)),""^"",3) W "" <none existing>"";"
^DIE(539,"DR",1,356,1)="S IBX=0 F  S IBX=$O(^IBT(356,DA,3,IBX)) Q:'IBX  S IBY($P($G(^IBT(356.85,+$G(^IBT(356,DA,3,IBX,0)),0)),""^""))="""";S IBX="""" F  S IBX=$O(IBY(IBX)) Q:IBX=""""  W !?5,IBX;K IBY,IBX;"
^DIE(539,"DR",1,356,2)="W !,""Do you wish to Add or Change Findings"" D YN^DICN I %'=1 S Y=""@994"";3;2.03////^S X=DUZ;2.04////^S X=$$NOW^XLFDT;W !,""BILLABLE FINDINGS after edit:"" I '$P($G(^IBT(356,DA,3,0)),""^"",3) W "" <none existing>"";"
^DIE(539,"DR",1,356,3)="S IBX=0 F  S IBX=$O(^IBT(356,DA,3,IBX)) Q:'IBX  S IBY($P($G(^IBT(356.85,+$G(^IBT(356,DA,3,IBX,0)),0)),""^""))="""";S IBX="""" F  S IBX=$O(IBY(IBX)) Q:IBX=""""  W !?5,IBX;K IBY,IBX;S Y=""@994"";@993;"
^DIE(539,"DR",1,356,4)="W !,"" ADDITIONAL COMMENTS: "",$P($G(^IBT(356,DA,1)),""^"",8);W !,""Do you wish to edit Additional Comments"" D YN^DICN I %'=1 S Y=""@994"";1.08;2.01////^S X=DUZ;2.05////^S X=$$NOW^XLFDT;@994;2.02////^S X=DUZ;"
^DIE(539,"DR",1,356,5)="I $G(IBRNB) S DFN=$P(^IBT(356,DA,0),""^"",2),IBTRN=DA D FIND^IBOHCT(DFN,IBTRN) K IBRNB;"
^DIE(539,"DR",2,356.03)=".01"
^DIE(540,0)="IBT PRECERT INFO^2930713.1439^@^356^1453^@^2930915"
^DIE(540,"DR",1,356)=".14;.15;@99;"
^DIE(541,0)="IBT ADD COMMENTS^2930726.0933^@^356.1^1453^@^2940201"
^DIE(541,"DR",1,356.1)="11;"
^DIE(542,0)="IBT STATUS CHANGE^2930810.0818^@^356.1^1453^@^2940226"
^DIE(542,"DR",1,356.1)=".21;I X=3 S Y=""@99"";.2;@99;"
^DIE(543,0)="IBT REVIEW INFO^2931221.0829^@^356.1^1453^@^2940202"
^DIE(543,"DR",1,356.1)=".22;.01;.07;.23;"
^DIE(544,0)="IBT SPECIAL UNIT^2930726.0956^@^356.1^1453^@^2930803"
^DIE(544,"DR",1,356.1)="I $$TRTP^IBTRV($G(IBTRV))=40 S Y=""@99"";.08;.09;S Y=""@999"";@99;.13;@999;"
^DIE(545,0)="IBT QUICK EDIT^2940207.0924^@^356.2^1453^@^2940311"
^DIE(545,"DIAB",1,1,356.212,0)="ALL"
^DIE(545,"DIAB",1,1,356.213,0)="ALL"
^DIE(545,"DIAB",1,1,356.214,0)="ALL"
^DIE(545,"DIAB",2,0,356.2,6)=".08:"
^DIE(545,"DR",1,356.2)="S DIE(""NO^"")=""BACKOUTOK"";.01;.04;I $$TCODE^IBTRC(DA)=70 S Y=""@100"";I $P(^IBT(356.2,DA,0),U,2) S Y=""@200"";@100;.05;@200;S IBTLST=$$LAST^IBTRC3($P(^IBT(356.2,DA,0),""^"",2),DA);"
^DIE(545,"DR",1,356.2,1)="N DFN S DFN=$P(^IBT(356.2,DA,0),U,5) I DFN W ! D DISP^IBCNS W !;1.05//^S X=$$HIPD^IBTRC3(DA,$G(IBTLST));S IBTLST=$$LAST^IBTRC3($P(^IBT(356.2,DA,0),""^"",2),DA);I $$TCODE^IBTRC(DA)=70 S Y=""@250"";.06//^S X=$$PC^IBTRC3(DA,$G(IBTLST));"
^DIE(545,"DR",1,356.2,2)="@250;.17//^S X=$$MC^IBTRC3(DA,$G(IBTLST));I $P(^IBT(356.2,DA,0),U,17)'=1 S Y=""@170"";.07//^S X=$$CP^IBTRC3(DA,$G(IBTLST));@170;.09;I $$TCODE^IBTRC(DA)>30 S Y=""@300"";D HELP^IBTUTL3(DA);.11;"
^DIE(545,"DR",1,356.2,3)="N IBY S IBY=$P($G(^IBE(356.7,+$P(^IBT(356.2,DA,0),U,11),0)),U,3) S Y=$S(IBY:""@""_IBY,1:""@350"");@10;1.08;I X S Y=""@11"";.12;.13;@11;.14;.28//^S X=$$AN^IBTRC3(DA,$G(IBTLST));S Y=""@300"";@20;1.07;I X S Y=""@21"";.15;.16;@21;12;S Y=""@300"";"
^DIE(545,"DR",1,356.2,4)="@30;13;S Y=""@300"";@40;.2;S Y=""@300"";@50;.21;@300;@350;N IBTCOD S IBTCOD=$$TCODE^IBTRC(DA) S Y=$S(IBTCOD=50:""@355"",IBTCOD=60:""@356"",1:""@400"");@355;.26;.11;"
^DIE(545,"DR",1,356.2,5)="N IBY S IBY=$P($G(^IBE(356.7,+$P(^IBT(356.2,DA,0),U,11),0)),U,3) S:IBY=20 Y=""@400"";.28//^S X=$$AN^IBTRC3(DA,$G(IBTLST));S Y=""@400"";@356;.23;.1;I X'=3 S Y=""@41"";.29;I X=2 S Y=""@42"";.28;14;@41;.25;@42;"
^DIE(545,"DR",1,356.2,6)="I '$P(^IBT(356.2,DA,0),U,8) S Y=""@400"";^36^DIC(36,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@400;11;.19;.24;"
^DIE(545,"DR",2,36)=".147;.141;.142;.143;.144;.145;.146;"
^DIE(545,"DR",2,356.212)=".01"
^DIE(545,"DR",2,356.213)=".01:.02"
^DIE(545,"DR",2,356.214)=".01:.02"
^DIE(546,0)="IBT COMMENT INFO^2930729.1247^@^356.2^1453^@^2940128"
^DIE(546,"DR",1,356.2)="11;"
^DIE(547,0)="IBT CONTACT INFO^2931006.154^@^356.2^1453^@^2931006"
^DIE(547,"DR",1,356.2)="S IBTLST=$$LAST^IBTRC3($P(^IBT(356.2,DA,0),""^"",2),DA);.01;I $P(^IBT(356.2,DA,0),U,2) S Y=""@200"";.05;@200;.06//^S X=$$PC^IBTRC3(DA,$G(IBTLST));.17//^S X=$$MC^IBTRC3(DA,$G(IBTLST));I $P(^IBT(356.2,DA,0),U,17)'=1 S Y=""@170"";"
^DIE(547,"DR",1,356.2,1)=".07//^S X=$$CP^IBTRC3(DA,$G(IBTLST));@170;.09;"
^DIE(548,0)="IBT INSURANCE INFO^2940216.1138^@^356.2^1453^@^2940226"
^DIE(548,"DIAB",1,0,356.2,1)=".08:"
^DIE(548,"DR",1,356.2)="1.05;W !!,""You are now editing the Insurance Company: "",!,$P($G(^DIC(36,+$P(^IBT(356.2,DA,0),""^"",8),0)),""^""),!!;"
^DIE(548,"DR",1,356.2,1)="^36^DIC(36,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(548,"DR",2,36)=".131;.132;.133;.134;.135;.136;.137;.138;"
^DIE(549,0)="IBT ACTION INFO^2940207.0926^@^356.2^1453^@^2940226"
^DIE(549,"DIAB",1,1,356.212,0)="ALL"
^DIE(549,"DIAB",1,1,356.213,0)="ALL"
^DIE(549,"DIAB",1,1,356.214,0)="ALL"
^DIE(549,"DR",1,356.2)="S IBTLST=$$LAST^IBTRC3($P(^IBT(356.2,DA,0),""^"",2),DA);.04;I $$TCODE^IBTRC(DA)>30 S Y=""@300"";D HELP^IBTUTL3(DA);.11;N IBY S IBY=$P($G(^IBE(356.7,+$P(^IBT(356.2,DA,0),U,11),0)),U,3) S Y=$S(IBY:""@""_IBY,1:""@350"");@10;1.08;"
^DIE(549,"DR",1,356.2,1)="I X S Y=""@11"";.12;.13;@11;.14;.28//^S X=$$AN^IBTRC3(DA,$G(IBTLST));S Y=""@300"";@20;1.07;I X S Y=""@21"";.15;.16;@21;12;S Y=""@300"";@30;13;S Y=""@300"";@40;.2;S Y=""@300"";@50;.21;@300;@350;"
^DIE(549,"DR",1,356.2,2)="N IBTCOD S IBTCOD=$$TCODE^IBTRC(DA) S Y=$S(IBTCOD=50:""@355"",IBTCOD=60:""@356"",1:""@400"");@355;.26;.11;N IBY S IBY=$P($G(^IBE(356.7,+$P(^IBT(356.2,DA,0),U,11),0)),U,3) S:IBY=20 Y=""@400"";.28//^S X=$$AN^IBTRC3(DA,$G(IBTLST));S Y=""@400"";"
^DIE(549,"DR",1,356.2,3)="@356;.23;.1;I X'=3 S Y=""@41"";.29;I X=2 S Y=""@42"";.28;14;@41;.25;@42;@400;11;.19;.24;"
^DIE(549,"DR",2,356.212)=".01"
^DIE(549,"DR",2,356.213)=".01:.02"
^DIE(549,"DR",2,356.214)=".01:.02"
^DIE(550,0)="IBT APPEAL INFO^2930802.1018^@^356.2^1453^@^2931202"
^DIE(550,"DIAB",1,0,356.2,1)=".08:"
^DIE(550,"DR",1,356.2)="W !!,""You are now editing the Appeals Address Information for: "",!,$P($G(^DIC(36,+$P(^IBT(356.2,DA,0),""^"",8),0)),""^""),!!;"
^DIE(550,"DR",1,356.2,1)="^36^DIC(36,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(550,"DR",2,36)=".147;.141;.142;.143;.144;.145;.146;"
^DIE(551,0)="IBT STATUS CHANGE^2970930.1402^@^356^^@^2970930"
^DIE(551,"DR",1,356)=".19;I X S IBRNB=X;.2;.17;I $G(IBRNB) S DFN=$P(^IBT(356,DA,0),U,2),IBTRN=DA D FIND^IBOHCT(DFN,IBTRN) K IBRNB;"
^DIE(552,0)="IBT STATUS CHANGE^2930907.1206^@^356.2^1453^@^2940309"
^DIE(552,"DR",1,356.2)=".19;I X=3 S Y=""@99"";.24;@99;"
^DIE(553,0)="IBT REMOVE NEXT REVIEW^2930810.1152^@^356.1^1453^@^2940224"
^DIE(553,"DR",1,356.1)=".2///@;"
^DIE(554,0)="IBT REMOVE NEXT REVIEW^2940224.1015^@^356.2^1453^@^2940224"
^DIE(554,"DIAB",2,0,356.2,0)="TRACKING ID:"
^DIE(554,"DR",1,356.2)=".24///@;^356^IBT(356,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(554,"DR",2,356)="1.07//NONE;"
^DIE(555,0)="IBT ADD APPEAL^2940207.0927^@^356.2^1453^@^2940223"
^DIE(555,"DIAB",1,1,356.214,0)="ALL"
^DIE(555,"DR",1,356.2)="I '$G(IBPARNT) S Y=""@999"";I '$G(IBCDFN) S Y=""@999"";.18////^S X=IBPARNT;1.05////^S X=IBCDFN;@999;.04;.23;.1;I X'=3 S Y=""@200"";.29;I X=2 S Y=""@300"";.28;14;@200;.25;@300;11;.19;.24;@900;"
^DIE(555,"DR",2,356.214)=".01:.02"
^DIE(556,0)="IBT ASSIGN CASE^2930825.0657^@^356^1453^@^2931213"
^DIE(556,"DR",1,356)="1.05;1.06;"
^DIE(557,0)="IBT FINAL OUTCOME^2940207.0931^@^356.2^1453^@^2940207"
^DIE(557,"DIAB",1,1,356.214,0)="ALL"
^DIE(557,"DR",1,356.2)=".29;I X=2 S Y=""@999"";.28;14;@999;"
^DIE(557,"DR",2,356.214)=".01:.02"
^DIE(558,0)="IBEDIT INS CO1^3070714.1236^^36^^^3070731"
^DIE(558,"DIAB",1,0,36,1)="TRANSMIT ELECTRONICALLY;""EDI - Transmit?"""
^DIE(558,"DIAB",1,0,36,2)="EDI ID NUMBER - INST;""EDI - Inst Payer Primary ID"""
^DIE(558,"DIAB",1,0,36,3)="EDI INST SECONDARY ID QUAL(1);""EDI - 1ST Inst Payer Sec. ID Qualifier"""
^DIE(558,"DIAB",1,0,36,7)="EDI INST SECONDARY ID(2);""EDI - 2ND Inst Payer Sec. ID"""
^DIE(558,"DIAB",1,0,36,8)="EDI ID NUMBER - PROF;""EDI - Prof Payer Primary ID"""
^DIE(558,"DIAB",1,0,36,9)="EDI PROF SECONDARY ID QUAL(1);""EDI - 1ST Prof Payer Sec. ID Qualifier"""
^DIE(558,"DIAB",1,0,36,13)="EDI PROF SECONDARY ID(2);""EDI - 2ND Prof Payer Sec. ID"""
^DIE(558,"DIAB",1,0,36,14)="ELECTRONIC INSURANCE TYPE;""EDI - Insurance Type"""
^DIE(558,"DIAB",1,0,36,15)="MAX NUMBER TEST BILLS PER DAY;""MAX # TEST BILLS TO TRANSMIT PER DAY"""
^DIE(558,"DIAB",1,0,36,16)="REF PROV SEC ID DEF CMS-1500//UPIN;""Default ID (1500)"""
^DIE(558,"DIAB",1,1,36.03,0)="ALL"
^DIE(558,"DIAB",2,0,36,16)="REF PROV SEC ID REQ ON CLAIMS;""Require ID on Claim"""
^DIE(558,"DIAB",2,0,36,17)="SEND LAB OR FAC IDS FOR VAMC//YES;""Send VA Lab/Facility IDs or Facility Data for VAMC?"""
^DIE(558,"DIAB",2,0,36,21)="ANOTHER CO. PROCESS INQUIRIES?;T"
^DIE(558,"DIAB",3,0,36,22)="INS COMPANY LINK TYPE;T"
^DIE(558,"DIAB",4,0,36,16)="ATT/REND ID BILL SEC ID PROF//NO;""Use Att/Rend ID as Billing Provider Sec. ID (1500)?"""
^DIE(558,"DIAB",4,0,36,18)="ANOTHER CO. PROCESS IP CLAIMS?;T"
^DIE(558,"DIAB",5,0,36,15)="PERF PROV SECOND ID TYPE 1500;""Default ID (1500)"""
^DIE(558,"DIAB",5,0,36,16)="ATT/REND ID BILL SEC ID INST//NO;""Use Att/Rend ID as Billing Provider Sec. ID (UB)?"""
^DIE(558,"DIAB",6,0,36,4)="EDI INST SECONDARY ID(1);""EDI - 1ST Inst Payer Sec. ID"""
^DIE(558,"DIAB",6,0,36,10)="EDI PROF SECONDARY ID(1);""EDI - 1ST Prof Payer Sec. ID"""
^DIE(558,"DIAB",6,0,36,15)="PERF PROV SECOND ID TYPE UB;""Default ID (UB)"""
^DIE(558,"DIAB",6,0,36,23)="INS COMPANY LINK PARENT;T"
^DIE(558,"DIAB",7,0,36,5)="EDI INST SECONDARY ID QUAL(2);""EDI - 2ND Inst Payer Sec. ID Qualifier"""
^DIE(558,"DIAB",7,0,36,11)="EDI PROF SECONDARY ID QUAL(2);""EDI - 2ND Prof Payer Sec. ID Qualifier"""
^DIE(558,"DIAB",7,0,36,15)="SECONDARY ID REQUIREMENTS;""Require ID on Claim"""
^DIE(558,"DIAB",8,0,36,14)="BIN NUMBER;""EDI - Bin Number"""
^DIE(558,"DIAB",12,0,36,20)="ANOTHER CO. PROCESS APPEALS?;T"
^DIE(558,"DIAB",17,0,36,0)="ANOTHER CO. PROCESS PRECERTS?;T"
^DIE(558,"DIAB",20,0,36,19)="ANOTHER CO. PROCESS RX CLAIMS?;T"
^DIE(558,"DIAB",24,0,36,18)="ANOTHER CO. PROCESS OP CLAIMS?;T"
^DIE(558,"DR",1,36)="S:"",6,""'[IBY Y=""@0"";.01;@0;S:"",0,1,6,12,""'[IBY Y=""@10"";S:"",12,""[IBY Y=""@18"";2;1;.06;.07;.08;.09;.15;.12;.13;.132;.134;.178T~;S:'X Y=""@11"";.139;S Y=""@16"";@11;.133;@16;I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@171"";"
^DIE(558,"DR",1,36,1)="3.01EDI - Transmit?~;S DIPA(""IBTX"")=X;I X=$G(IBEDIKEY(1))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1721"";3.01////^S X=$G(IBEDIKEY(1));I $$EDIKEY^IBCNSC();S Y=""@171"";@1721;I '$G(DIPA(""IBTX"")) S Y=""@17"";"
^DIE(558,"DR",1,36,2)="3.04EDI - Inst Payer Primary ID~;I X=$G(IBEDIKEY(4))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17211"";3.04////^S X=$G(IBEDIKEY(4));I $$EDIKEY^IBCNSC();S Y=""@171"";@17211;I '$G(DIPA(""IBTX"")) S Y=""@17"";"
^DIE(558,"DR",1,36,3)="6.01EDI - 1ST Inst Payer Sec. ID Qualifier~;I X=""""&($G(IBEDIKEY(3,6))="""")&$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1722"";I X=$G(IBEDIKEY(1,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17212"";6.01////^S X=$G(IBEDIKEY(1,6));"
^DIE(558,"DR",1,36,4)="6.02////^S X=$G(IBEDIKEY(2,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17212;I '$G(DIPA(""IBTX"")) S Y=""@17"";6.02EDI - 1ST Inst Payer Sec. ID~;I X=$G(IBEDIKEY(2,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17213"";"
^DIE(558,"DR",1,36,5)="6.02////^S X=$G(IBEDIKEY(2,6));6.01////^S X=$G(IBEDIKEY(1,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17213;I '$G(DIPA(""IBTX"")) S Y=""@17"";6.03EDI - 2ND Inst Payer Sec. ID Qualifier~;I X=""""&$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1722"";"
^DIE(558,"DR",1,36,6)="I X=$G(IBEDIKEY(3,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17214"";6.03////^S X=$G(IBEDIKEY(3,6));6.04////^S X=$G(IBEDIKEY(4,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17214;I '$G(DIPA(""IBTX"")) S Y=""@17"";"
^DIE(558,"DR",1,36,7)="6.04EDI - 2ND Inst Payer Sec. ID~;I X=$G(IBEDIKEY(4,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1722"";6.04////^S X=$G(IBEDIKEY(4,6));6.03////^S X=$G(IBEDIKEY(3,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@1722;"
^DIE(558,"DR",1,36,8)="3.02EDI - Prof Payer Primary ID~;I X=$G(IBEDIKEY(2))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17221"";3.02////^S X=$G(IBEDIKEY(2));I $$EDIKEY^IBCNSC();S Y=""@171"";@17221;I '$G(DIPA(""IBTX"")) S Y=""@17"";"
^DIE(558,"DR",1,36,9)="6.05EDI - 1ST Prof Payer Sec. ID Qualifier~;I X=""""&($G(IBEDIKEY(7,6))="""")&$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1723"";I X=$G(IBEDIKEY(5,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17222"";6.05////^S X=$G(IBEDIKEY(5,6));"
^DIE(558,"DR",1,36,10)="6.06////^S X=$G(IBEDIKEY(6,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17222;I '$G(DIPA(""IBTX"")) S Y=""@17"";6.06EDI - 1ST Prof Payer Sec. ID~;I X=$G(IBEDIKEY(6,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17223"";"
^DIE(558,"DR",1,36,11)="6.06////^S X=$G(IBEDIKEY(6,6));6.05////^S X=$G(IBEDIKEY(5,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17223;I '$G(DIPA(""IBTX"")) S Y=""@17"";6.07EDI - 2ND Prof Payer Sec. ID Qualifier~;I X=""""&$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1723"";"
^DIE(558,"DR",1,36,12)="I X=$G(IBEDIKEY(7,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@17224"";6.07////^S X=$G(IBEDIKEY(7,6));6.08////^S X=$G(IBEDIKEY(8,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@17224;I '$G(DIPA(""IBTX"")) S Y=""@17"";"
^DIE(558,"DR",1,36,13)="6.08EDI - 2ND Prof Payer Sec. ID~;I X=$G(IBEDIKEY(8,6))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1723"";6.08////^S X=$G(IBEDIKEY(8,6));6.07////^S X=$G(IBEDIKEY(7,6));I $$EDIKEY^IBCNSC();S Y=""@171"";@1723;@17;"
^DIE(558,"DR",1,36,14)="3.09EDI - Insurance Type~;I X=$G(IBEDIKEY(9))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@1724"";3.09////^S X=$G(IBEDIKEY(9));I $$EDIKEY^IBCNSC();S Y=""@171"";@1724;@171;3.03EDI - Bin Number~;I $G(DIPA(""IBTX""))'=2 S Y=""@18"";"
^DIE(558,"DR",1,36,15)="3.06MAX # TEST BILLS TO TRANSMIT PER DAY~;@18;S:"",6,12,""'[IBY Y=""@181"";W !!,""Attending/Rendering Provider Secondary ID"";4.01Default ID (1500)~;4.02Default ID (UB)~;4.03Require ID on Claim~;W !!,""Referring Provider Secondary ID"";"
^DIE(558,"DR",1,36,16)="4.04Default ID (1500)~//UPIN;4.05Require ID on Claim~;W !!,""Billing Provider Secondary IDs"";4.06Use Att/Rend ID as Billing Provider Sec. ID (1500)?~//NO;4.08Use Att/Rend ID as Billing Provider Sec. ID (UB)?~//NO;"
^DIE(558,"DR",1,36,17)="W !!,""VA-Laboratory or Facility IDs"";4.07Send VA Lab/Facility IDs or Facility Data for VAMC?~//YES;@181;S:IBY[""1"" Y=""@99"";@10;S:"",0,2,6,""'[IBY Y=""@20"";.111;S:X="""" Y=""@1"";.112;S:X="""" Y=""@1"";.113;@1;.114;.115;.116;.131;.119;"
^DIE(558,"DR",1,36,18)="S:(IBY[""0"")!(IBY[""2"") Y=""@99"";@20;S:"",3,6,""'[IBY Y=""@30"";.128T~;S:'X Y=""@21"";.127;S Y=""@26"";@21;.121;S:X="""" Y=""@2"";.122;S:X="""" Y=""@2"";.123;@2;.124;.125;.126;.135;.129;@26;S:IBY[""3"" Y=""@99"";@30;S:"",10,6,""'[IBY Y=""@80"";.168T~;"
^DIE(558,"DR",1,36,19)="S:'X Y=""@31"";.167;S Y=""@36"";@31;.161;S:X="""" Y=""@5"";.162;S:X="""" Y=""@5"";.163;@5;.164;.165;.166;.136;.169;@36;S:IBY[""10"" Y=""@99"";@80;S:"",11,6,""'[IBY Y=""@90"";.188T~;S:'X Y=""@81"";.187;S Y=""@86"";@81;.181;S:X="""" Y=""@6"";.182;S:X="""" Y=""@6"";"
^DIE(558,"DR",1,36,20)=".183;@6;.184;.185;.186;.1311;.189;@86;S:IBY[""11"" Y=""@99"";@90;S:"",4,6,""'[IBY Y=""@40"";.148T~;S:'X Y=""@41"";.147;S Y=""@46"";@41;.141;S:X="""" Y=""@3"";.142;S:X="""" Y=""@3"";.143;@3;.144;.145;.146;.137;.149;@46;S:IBY[""4"" Y=""@99"";@40;"
^DIE(558,"DR",1,36,21)="S:"",5,6,""'[IBY Y=""@55"";.158T~;S:'X Y=""@51"";.157;S Y=""@56"";@51;.151;S:X="""" Y=""@4"";.152;S:X="""" Y=""@4"";.153;@4;.154;.155;.156;.138;.159;@56;S:IBY[""5"" Y=""@99"";@55;S:"",13,6,""'[IBY Y=""@60"";"
^DIE(558,"DR",1,36,22)="I '$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@551"";I $D(^DIC(36,""APC"",+$G(DA))),$P($G(^DIC(36,+$G(DA),3)),U,13)=""P"" S Y=""@551"";3.13T~;S DIPA(""IBLNK"")=X;I X=$G(IBEDIKEY(13))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@552"";"
^DIE(558,"DR",1,36,23)="3.13////^S X=$G(IBEDIKEY(13));I $$EDIKEY^IBCNSC();S Y=""@551"";@552;I $G(DIPA(""IBLNK""))'=""C"" S Y=""@551"";3.14T~;I X=$G(IBEDIKEY(14))!$$KCHK^XUSRB(""IB EDI INSURANCE EDIT"") S Y=""@553"";3.14////^S X=$G(IBEDIKEY(14));I $$EDIKEY^IBCNSC();"
^DIE(558,"DR",1,36,24)="S Y=""@551"";@553;D COPY^IBCEPCID(+$G(DA));@551;S:IBY="",13,"" Y=""@99"";@60;S:"",7,6,""'[IBY Y=""@50"";3.1;@50;S:"",8,6,""'[IBY Y=""@70"";11;S:IBY[""8"" Y=""@99"";@70;S:"",9,6,""'[IBY Y=""@99"";10;@99;"
^DIE(558,"DR",2,36.03)=".01"
^DIE(559,0)="IBCN AB MEN H^2940106.1308^@^355.4^12540^@^2940107"
^DIE(559,"DR",1,355.4)="5.14;5.05;5.06;5.11;2.14;2.05;2.06;2.11;"
^DIE(560,0)="IBCN AB POL INF^2930708.1222^@^355.4^11985^@^2940218"
^DIE(560,"DR",1,355.4)=".05;.06;"
^DIE(561,0)="IBCN AB OPT^2940106.1301^@^355.4^12540^@^2940315"
^DIE(561,"DR",1,355.4)="2.01;2.02;2.03;2.04;2.09;2.15;2.13;2.1;2.12;2.17;2.07;S:'X!(X="""") Y=""@10"";2.08;@10;"
^DIE(562,0)="IBCN AB INPT^2930611.112^@^355.4^11985^@^2940218"
^DIE(562,"DR",1,355.4)="5.01;5.02;5.03;5.04;5.09;5.07;5.08;5.1;5.12;"
^DIE(563,0)="IBCN AB HOME HEA^2930611.1121^@^355.4^11985^@^2940315"
^DIE(563,"DR",1,355.4)="3.01;3.02;3.03;3.04;3.05;"
^DIE(564,0)="IBCN AB HOSPC^2930611.1129^@^355.4^11985^@^2940110"
^DIE(564,"DR",1,355.4)="4.01;4.02;4.03;4.04;4.05;"
^DIE(565,0)="IBCN AB ADD COM^2930611.1142^@^355.4^11985^@^2930628"
^DIE(565,"DR",1,355.4)="1.08;"
^DIE(566,0)="IBCN AB EDIT ALL^2940106.1108^@^355.4^12540^@^2940106"
^DIE(566,"DR",1,355.4)=".05;.06;5.01;5.02;5.03;5.04;5.09;5.07;5.08;5.1;5.12;2.01;2.02;2.03;2.04;2.09;2.15;2.13;2.1;2.12;2.17;2.07;S:'X!(X="""") Y=""@10"";2.08;@10;5.14;5.05;5.06;5.11;2.14;2.05;2.06;2.11;3.01;3.02;3.03;3.04;3.05;4.01;4.02;4.03;4.04;4.05;3.06;"
^DIE(566,"DR",1,355.4,1)="3.07;3.08;3.09;4.06;4.07;4.08;4.09;"
^DIE(567,0)="IBCN BU ADD COM^2930630.1546^@^355.5^11985^@^2931228"
^DIE(567,"DR",1,355.5)="1.08;"
^DIE(568,0)="IBCN BU INPT^2931214.0854^^355.5^^^2940315^"
^DIE(568,"DR",1,355.5)=".06;.07;.11;.12;.19;.18;"
^DIE(569,0)="IBCN BU OPT^2931214.0853^^355.5^^^2931228^"
^DIE(569,"DR",1,355.5)=".08;.09;.13;.14;.1;.2;"
^DIE(570,0)="IBCN BU POL^2930708.1223^@^355.5^11985^@^2940218"
^DIE(570,"DR",1,355.5)=".04;.05;.15;.16;"
^DIE(571,0)="IBCN BU ED AL^2931227.0952^^355.5^0^^2940316"
^DIE(571,"DR",1,355.5)=".04;.05;.15;.16;.08;.09;.13;.14;.1;.2;.06;.07;.11;.12;.19;.18;1.08;"
^DIE(572,0)="IBCN AB REHAB^2930827.1146^@^355.4^0^@^2931227"
^DIE(572,"DR",1,355.4)="3.06;3.07;3.08;3.09;"
^DIE(573,0)="IBCN AB IV MGMT^2930827.1146^@^355.4^0^@^2940315"
^DIE(573,"DR",1,355.4)="4.06;4.07;4.08;4.09;"
^DIE(574,0)="IB SCREEN3^3060410.1453^@^399^^@^3060512"
^DIE(574,"AB","^",.07)="3^IBXSC3"
^DIE(574,"AB","^",.19)="7^IBXSC3"
^DIE(574,"AB","^",.21)="11^IBXSC33"
^DIE(574,"AB","^",104)="19^IBXSC38"
^DIE(574,"AB","^",105)="20^IBXSC38"
^DIE(574,"AB","^",106)="21^IBXSC38"
^DIE(574,"AB","^",107)="24^IBXSC38"
^DIE(574,"AB","^",108)="25^IBXSC38"
^DIE(574,"AB","^",109)="26^IBXSC38"
^DIE(574,"AB","^",111)="8^IBXSC33"
^DIE(574,"AB","^",112)="22^IBXSC3"
^DIE(574,"AB","^",113)="1^IBXSC33"
^DIE(574,"AB","^",114)="3^IBXSC33"
^DIE(574,"AB","^",121)="23^IBXSC38"
^DIE(574,"AB","^",122)="15^IBXSC33"
^DIE(574,"AB","^",122,"///")=""
^DIE(574,"AB","^",123)="19^IBXSC36"
^DIE(574,"AB","^",123,"///")=""
^DIE(574,"AB","^",124)="19^IBXSC37"
^DIE(574,"AB","^",124,"///")=""
^DIE(574,"AB","^",128)="16^IBXSC33"
^DIE(574,"AB","^",128,"///")=""
^DIE(574,"AB","^",129)="20^IBXSC36"
^DIE(574,"AB","^",129,"///")=""
^DIE(574,"AB","^",130)="20^IBXSC37"
^DIE(574,"AB","^",130,"///")=""
^DIE(574,"AB","^","@10")="13^IBXSC3"
^DIE(574,"AB","^","@31")="10^IBXSC33"
^DIE(574,"AB","^","@310")="18^IBXSC3"
^DIE(574,"AB","^","@311")="6^IBXSC33"
^DIE(574,"AB","^","@312")="21^IBXSC3"
^DIE(574,"AB","^","@313")="20^IBXSC3"
^DIE(574,"AB","^","@314")="15^IBXSC3"
^DIE(574,"AB","^","@321")="4^IBXSC36"
^DIE(574,"AB","^","@3211")="13^IBXSC33"
^DIE(574,"AB","^","@3212")="19^IBXSC33"
^DIE(574,"AB","^","@3213")="24^IBXSC33"
^DIE(574,"AB","^","@3214")="13^IBXSC36"
^DIE(574,"AB","^","@3215")="15^IBXSC36"
^DIE(574,"AB","^","@322")="4^IBXSC37"
^DIE(574,"AB","^","@3221")="17^IBXSC36"
^DIE(574,"AB","^","@3222")="23^IBXSC36"
^DIE(574,"AB","^","@3223")="28^IBXSC36"
^DIE(574,"AB","^","@3224")="13^IBXSC37"
^DIE(574,"AB","^","@3225")="15^IBXSC37"
^DIE(574,"AB","^","@323")="4^IBXSC38"
^DIE(574,"AB","^","@3231")="17^IBXSC37"
^DIE(574,"AB","^","@3232")="23^IBXSC37"
^DIE(574,"AB","^","@3233")="28^IBXSC37"
^DIE(574,"AB","^","@3234")="13^IBXSC38"
^DIE(574,"AB","^","@3235")="15^IBXSC38"
^DIE(574,"AB","^","@33")="17^IBXSC38"
^DIE(574,"AB","^","@34")="27^IBXSC38"
^DIE(574,"AB","^","@5")="6^IBXSC3"
^DIE(574,"AB","^","@998")="4^IBXSC33"
^DIE(574,"AB","^","@999")="28^IBXSC38"
^DIE(574,"AR",399,139)="1^IBXSC39"
^DIE(574,"DIAB",1,0,399,6)="PRIMARY PROVIDER #//VAR(""IBPSID"")"
^DIE(574,"DIAB",1,0,399,7)="PRIMARY ID QUALIFIER;""Primary ID Qualifier"""
^DIE(574,"DIAB",1,0,399,10)="SECONDARY PROVIDER #//VAR(""IBPSID"")"
^DIE(574,"DIAB",1,0,399,11)="SECONDARY ID QUALIFIER;""Secondary ID Qualifier"""
^DIE(574,"DIAB",3,0,399,14)="TERTIARY PROVIDER #//VAR(""IBPSID"")"
^DIE(574,"DIAB",3,0,399,15)="TERTIARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^DIE(574,"DIAB",5,0,399,6)="PRIMARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^DIE(574,"DIAB",5,0,399,10)="SECONDARY ID QUALIFIER///VAR(""IBPSQUAL"")"
^DIE(574,"DIAB",6,0,399,15)="TERTIARY ID QUALIFIER;""Tertiary ID Qualifier"""
^DIE(574,"DR",1,399)="S:$G(IBCNRTN) Y=""@313"" K IBCNRTN;S:IBDR20'[""31"" Y=""@31"";.07;S:'+$P(^IBE(350.9,1,1),U,22) Y=""@314"";S DIPA(""FT1"")=$P($G(^DGCR(399,DA,0)),U,19);@5;.19;S DIPA(""FT"")=$P($G(^DGCR(399,DA,0)),U,19);"
^DIE(574,"DR",1,399,1)="I $P($G(^IBE(353,+DIPA(""FT""),2)),U,2)=""P"",$P($G(^(2)),U,4) S DIPA(""FT1"")=DIPA(""FT"") D CKFT^IBCIUT1(IBIFN) S Y=""@10"";W !,*7,""Must be a printable national form type"";.19///^S X=$G(DIPA(""FT1""));S Y=""@5"";@10;D FTPRV^IBCEU5(DA);@314;"
^DIE(574,"DR",1,399,2)="S X=$P(^DGCR(399,DA,0),U,11);S Y=""@""_$S(X']"""":31,X=""p"":31,X=""o"":311,1:310);@310;D 1^IBCSCH1 S Y=""@""_$S(IBADI=-1:31,'IBADI:312,1:33);@313;@312;112;I X'="""" S:$E(IBVV,9) IBVV=$E(IBVV,1,8)_""0"";S:X="""" Y=""@998"";113;S:X="""" Y=""@998"";114;"
^DIE(574,"DR",1,399,3)="@998;S Y=""@31"";@311;D INST^IBCU;111;K DIC(""DR""),DLAYGO;@31;.21;S:IBDR20'[""32"" Y=""@33"";@3211;I '$$SUPPPT^IBCEP7B(DA,1) S Y=""@3212"";122///@;128///@;W !,""No Billing Prov Secondary IDs will be sent for Primary Ins/Elect Plan Type."";"
^DIE(574,"DR",1,399,4)="S Y=""@3221"";@3212;I '$$ATTREND^IBCEP7B(DA,1) S Y=""@3213"";I $P($G(^DGCR(399,DA,""M1"")),U,2)]"""" S Y=""@3213"";W !,""The Att/Rend ID will be sent as the primary ins. Billing Prov Sec ID."";S Y=""@3221"";@3213;"
^DIE(574,"DR",1,399,5)="S IBPSDAT=$$GETID^IBCEP7B(DA,1),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@321"";122///@;128///@;S DIE(""NO^"")=1;@321;S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,2),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,10);Q;"
^DIE(574,"DR",1,399,6)="122//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3214"";I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3214"";Q;128///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3215"";@3214;"
^DIE(574,"DR",1,399,7)="128Primary ID Qualifier~;@3215;K DIE(""NO^"");@3221;I '$$SUPPPT^IBCEP7B(DA,2) S Y=""@3222"";123///@;129///@;W !,""No Billing Prov Secondary IDs will be sent for Secondary Ins/Elect Plan Type."";S Y=""@3231"";@3222;"
^DIE(574,"DR",1,399,8)="I '$$ATTREND^IBCEP7B(DA,2) S Y=""@3223"";I $P($G(^DGCR(399,DA,""M1"")),U,3)]"""" S Y=""@3223"";W !,""The Att/Rend ID will be sent as the secondary ins. Billing Prov Sec ID."";S Y=""@3231"";@3223;"
^DIE(574,"DR",1,399,9)="S IBPSDAT=$$GETID^IBCEP7B(DA,2),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@322"";123///@;129///@;S DIE(""NO^"")=1;@322;S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,3),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,11);Q;"
^DIE(574,"DR",1,399,10)="123//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3224"";I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3224"";Q;129///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3225"";@3224;"
^DIE(574,"DR",1,399,11)="129Secondary ID Qualifier~;@3225;K DIE(""NO^"");@3231;I '$$SUPPPT^IBCEP7B(DA,3) S Y=""@3232"";124///@;130///@;W !,""No Billing Prov Secondary IDs will be sent for Tertiary Ins/Elect Plan Type."";"
^DIE(574,"DR",1,399,12)="D:(IBDRLP'[33&(IBDRLP'[34)) PAUSE^VALM1 S Y=""@33"";@3232;I '$$ATTREND^IBCEP7B(DA,3) S Y=""@3233"";I $P($G(^DGCR(399,DA,""M1"")),U,4)]"""" S Y=""@3233"";W !,""The Att/Rend ID will be sent as the tertiary ins. Billing Prov Sec ID."";"
^DIE(574,"DR",1,399,13)="D:(IBDRLP'[33&(IBDRLP'[34)) PAUSE^VALM1 S Y=""@33"";@3233;S IBPSDAT=$$GETID^IBCEP7B(DA,3),IBPSID=$P(IBPSDAT,U),IBPSQUAL=$P(IBPSDAT,U,2) I IBPSID="""" S Y=""@323"";124///@;130///@;S DIE(""NO^"")=1;@323;"
^DIE(574,"DR",1,399,14)="S IBPSIDO=$P($G(^DGCR(399,DA,""M1"")),U,4),IBPSQO=$P($G(^DGCR(399,DA,""M1"")),U,12);Q;124//^S X=""IBPSID"" Q:X  Q:$NA(@X)[U  S X=$G(@X);I $G(IBPSQO)]"""",X'=$G(IBPSID),X'=$G(IBPSIDO) S Y=""@3234"";"
^DIE(574,"DR",1,399,15)="I $G(IBPSQO)="""",$G(IBPSQUAL)="""",X]"""" S Y=""@3234"";Q;130///^S X=""IBPSQUAL"" Q:X  Q:$NA(@X)[U  S X=$G(@X);S Y=""@3235"";@3234;130Tertiary ID Qualifier~;@3235;K DIE(""NO^"");@33;S:IBDR20'[""33"" Y=""@34"";104;105;106;S:X="""" Y=107;121;107;108;"
^DIE(574,"DR",1,399,16)="109;@34;@999;"
^DIE(574,"ROU")="^IBXSC3"
^DIE(574,"ROUOLD")="IBXSC3"
^DIE(575,0)="IBDF EDIT AVAILABLE HLTH SMRY^2970326.0924^^357.6^^^2970326"
^DIE(575,"%D",0)="^^1^1^2940308^"
^DIE(575,"%D",1,0)="Used to define a package interface that prints a Health Summary."
^DIE(575,"DIAB",3,0,357.6,0)="1;REQ"
^DIE(575,"DIAB",9,0,357.6,0)=".11;REQ"
^DIE(575,"DIAB",10,0,357.6,0)=".09;REQ"
^DIE(575,"DR",1,357.6)=".01;.06////4;1R~;3;.02///PRNTSMRY;.03///IBDFN5;.04////^S X=""HEALTH SUMMARY"";.1///YES;.11R~;.09R~;S IBDELETE=0;"
^DIE(576,0)="IBT INS VERIFICATION^2940301.092^@^356.2^1453^@^2940315"
^DIE(576,"DIAB",4,0,356.2,0)="TRACKING ID:"
^DIE(576,"DR",1,356.2)="S DIE(""NO^"")=""BACKOUTOK"";.01;I $$TCODE^IBTRC(DA)'=85 S Y=""@999"";^356^IBT(356,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1.05////^S X=$G(IBCDFN);"
^DIE(576,"DR",1,356.2,1)="S IBTLST=$$LAST^IBTRC3($P(^IBT(356.2,DA,0),""^"",2),DA);.06//^S X=$$PC^IBTRC3(DA,$G(IBTLST));.17//^S X=$$MC^IBTRC3(DA,$G(IBTLST));I $P(^IBT(356.2,DA,0),U,17)'=1 S Y=""@170"";.07//^S X=$$CP^IBTRC3(DA,$G(IBTLST));@170;.09;.28;11;"
^DIE(576,"DR",1,356.2,2)=".19///^S X=10;@999;"
^DIE(576,"DR",2,356)=".31;1.07;"
^DIE(577,0)="IB SCREEN82^3080312.105^@^399^^@^3080324"
^DIE(577,"%D",0)="^^1^1^3070328^"
^DIE(577,"%D",1,0)="Billing screen 8 for UB claims."
^DIE(577,"DIAB",1,1,355.93,1)="FACILITY DEFAULT ID NUMBER;REQ;""LAB OR FACILITY PRIMARY ID"""
^DIE(577,"DIAB",1,1,399.0222,2)="PERFORMED BY:355.93:"
^DIE(577,"DIAB",1,2,355.9342,0)="ALL"
^DIE(577,"DIAB",1,3,355.9342,0)="ALL"
^DIE(577,"DIAB",4,0,399,0)="FORM LOCATOR 64A;T"
^DIE(577,"DIAB",4,0,399,3)="NON-VA FACILITY:"
^DIE(577,"DIAB",4,1,399.0222,9)="PRIM INS PROVIDER ID TYPE;T;REQ"
^DIE(577,"DIAB",5,1,399.0222,9)="PRIMARY INS CO ID NUMBER;T"
^DIE(577,"DIAB",6,0,399,0)="FORM LOCATOR 64B;T"
^DIE(577,"DIAB",8,0,399,0)="FORM LOCATOR 64C;T"
^DIE(577,"DIAB",8,1,399.0222,9)="SEC INS PROVIDER ID TYPE;T;REQ"
^DIE(577,"DIAB",9,1,399.0222,9)="SECONDARY INS CO ID NUMBER;T"
^DIE(577,"DIAB",9,2,355.93,1)="FACILITY DEFAULT ID NUMBER;REQ;""LAB OR FACILITY PRIMARY ID"""
^DIE(577,"DIAB",10,0,399,0)="TREATMENT AUTHORIZATION CODE;""PRIMARY AUTHORIZATION CODE"""
^DIE(577,"DIAB",12,1,399.0222,9)="TERT INS PROVIDER ID TYPE;T;REQ"
^DIE(577,"DIAB",13,1,399.0222,9)="TERTIARY INS CO ID NUMBER;T"
^DIE(577,"DR",1,399)="K DIPA S DIPA(""I1"")=$D(^DGCR(399,DA,""I1"")),DIPA(""I2"")=$D(^(""I2"")),DIPA(""I3"")=$D(^(""I3""));S:IBDR20'[""81"" Y=""@82"";402;453T~;S:'DIPA(""I2"") Y=""@8111"";454T~;S:'DIPA(""I3"") Y=""@8111"";455T~;@8111;163PRIMARY AUTHORIZATION CODE~;"
^DIE(577,"DR",1,399,1)="S:'DIPA(""I2"") Y=""@811"";230;S:'DIPA(""I3"") Y=""@811"";231;@811;215;159;@82;S:IBDR20'[""82"" Y=""@83"";222;@83;S:IBDR20'[""83"" Y=""@84"";I '$P($G(^DGCR(399,DA,""TX"")),U,8),'$$TXMT^IBCEF4(DA) S Y=""@831"";I $$REQMRA^IBEFUNC(DA) S Y=""@8311"";"
^DIE(577,"DR",1,399,2)="27//NO FORCED PRINT;S Y=""@84"";@8311;28//NO FORCED PRINT;S Y=""@84"";@831;N X,Y,DIR S DIR(0)=""EA"",DIR(""A"",1)=""NO FIELDS AVAILABLE TO EDIT"",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR K DIR;@84;S:IBDR20'[""84"" Y=""@85"";@85;"
^DIE(577,"DR",1,399,3)="S:IBDR20'[""85"" Y=""@89"";232;S DIPA(""NVA_FC"")=X S:DIPA(""NVA_FC"")="""" Y=""@856"";^355.93^IBA(355.93,^^S I(0,0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,10),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(577,"DR",1,399,4)="S DIK=""^DGCR(399,"",DIK(1)=""232"" D EN1^DIK;K DIK;244;D DISPTAX^IBCEP81($P($G(^DGCR(399,DA,""U3"")),U,3),""Non-VA Facility"");233;@856;@89;"
^DIE(577,"DR",2,355.93)="S DIPA(""NVA_FC-0"")=$G(^IBA(355.93,+DIPA(""NVA_FC""),0)) S:$P(DIPA(""NVA_FC-0""),U,5)'=""""&($P(DIPA(""NVA_FC-0""),U,6)'="""")&($P(DIPA(""NVA_FC-0""),U,7)'="""") Y=""@851"";.05;.1;.06;.07;.08;@851;S:$P(DIPA(""NVA_FC-0""),U,9)'="""" Y=""@852"";"
^DIE(577,"DR",2,355.93,1)=".09LAB OR FACILITY PRIMARY ID~R~;@852;S:$P(DIPA(""NVA_FC-0""),U,11)'="""" Y=""@853"";.11;@853;S:$P(DIPA(""NVA_FC-0""),U,14)'="""" Y=""@854"";D EN2^IBCEP82(+DIPA(""NVA_FC""),2);@854;S:$D(^IBA(355.93,+DIPA(""NVA_FC""),""TAXONOMY""))>0 Y=""@855"";42;"
^DIE(577,"DR",2,355.93,2)="@855;"
^DIE(577,"DR",2,399.0222)=".01;S DIPA(""RF"")=X S:$D(^XUSEC(""IB PROVIDER EDIT"",DUZ)) DLAYGO=355.93;.02;K DLAYGO S DIPA(""PRF"")=X S:DIPA(""PRF"")="""" Y=""@98"";N Z1 S Z1=$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,2) S DIPA(""NVA_PRV"")=$S(Z1[""IBA(355.93"":+Z1,1:0);"
^DIE(577,"DR",2,399.0222,1)="S:DIPA(""NVA_PRV"")=0 Y=""@828"";"
^DIE(577,"DR",2,399.0222,2)="^355.93^IBA(355.93,^^N DIERR X DR(99,1,9.2) K DIC S DIC=""^IBA(355.93,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");@828;"
^DIE(577,"DR",2,399.0222,3)="S DIK=""^DGCR(399,""_DA(1)_"",""""PRV"""","",DIK(1)="".02"" D EN1^DIK K DIK;S Z1=$P($$PROVID^IBCEF73(DA(1)),U,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U));"
^DIE(577,"DR",2,399.0222,4)="I Z1="""",$P($G(DIPA(""NVA_PRV-0"")),U,2)=2 N X,Y,DIR S DIR(0)=""EA"",DIR(""A"",1)=""You must use Provider ID Maintenance to enter an SSN or EIN for this provider."",DIR(""A"")=""PRESS RETURN TO CONTINUE: "" W ! D ^DIR W ! K DIR;.15;"
^DIE(577,"DR",2,399.0222,5)="D DISPTAX^IBCEP81($P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,15),"""");N Z S Z=$$EXPAND^IBTRE(399.0222,.08,$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,8)),DIPA(""SPC"")=$S(Z'="""":Z,1:""UNSPECIFIED"") W !,""    Prov Specialty On File: "",DIPA(""SPC"");"
^DIE(577,"DR",2,399.0222,6)="S DIPA(""CRD"")=$$CRED^IBCEU($P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,2));.03;K DIPA(""W1"") S:$G(DIPA(""CRD""))'=$P($G(^DGCR(399,DA(1),""PRV"",DA,0)),U,3) DIPA(""W1"")=1;I $G(DIPA(""W1"")) D WRT1^IBCSC8H($G(DIPA(""CRD"")));K DIPA(""W1"");"
^DIE(577,"DR",2,399.0222,7)="I '$G(DIPA(""I1"")) S Y=""@8205"";D PROVID^IBCEP2B(DA(1),DA,1,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8282"",DIPA(""EDIT"")=1:""@8291"",DIPA(""EDIT"")=2:""@8271"",1:"""");@8282;I '$G(DIPA(""I2"")) S Y=""@8205"";"
^DIE(577,"DR",2,399.0222,8)="D PROVID^IBCEP2B(DA(1),DA,2,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8283"",DIPA(""EDIT"")=1:""@8292"",DIPA(""EDIT"")=2:""@8272"",1:"""");@8283;I '$G(DIPA(""I3"")) S Y=""@8205"";"
^DIE(577,"DR",2,399.0222,9)="D PROVID^IBCEP2B(DA(1),DA,3,.DIPA) S Y=$S(DIPA(""EDIT"")<0:""@8205"",DIPA(""EDIT"")=1:""@8293"",DIPA(""EDIT"")=2:""@8273"",1:"""");S Y=""@8205"";@8291;.12R~T~;.05T~;S Y=""@8282"";@8292;.13R~T~;.06T~;S Y=""@8283"";@8293;.14R~T~;.07T~;S Y=""@8205"";@8271;"
^DIE(577,"DR",2,399.0222,10)=".12////^S X=DIPA(""PRIDT"");.05////^S X=DIPA(""PRID"");S Y=""@8282"";@8272;.13////^S X=DIPA(""PRIDT"");.06////^S X=DIPA(""PRID"");S Y=""@8283"";@8273;.14////^S X=DIPA(""PRIDT"");.07////^S X=DIPA(""PRID"");S Y=""@8205"";@8205;@98;W @IOF;"
^DIE(577,"DR",3,355.93)="S DIPA(""NVA_PRV-0"")=$G(^IBA(355.93,DIPA(""NVA_PRV""),0));S:$P(DIPA(""NVA_PRV-0""),U,2)=1 Y=""@822"";S:$P(DIPA(""NVA_PRV-0""),U,3)'="""" Y=""@821"";.03;@821;S:$P(DIPA(""NVA_PRV-0""),U,3)'="""" Y=""@825"";.04;S Y=""@825"";@822;"
^DIE(577,"DR",3,355.93,1)="S:$P(DIPA(""NVA_PRV-0""),U,5)'=""""&($P(DIPA(""NVA_PRV-0""),U,6)'="""")&($P(DIPA(""NVA_PRV-0""),U,7)'="""") Y=""@823"";.05;.1;.06;.07;.08;@823;S:$P(DIPA(""NVA_PRV-0""),U,9)'="""" Y=""@824"";.09LAB OR FACILITY PRIMARY ID~R~;@824;"
^DIE(577,"DR",3,355.93,2)="S:$P(DIPA(""NVA_PRV-0""),U,11)'="""" Y=""@825"";.11;@825;S:$P(DIPA(""NVA_PRV-0""),U,14)'="""" Y=""@826"";D EN2^IBCEP82(DIPA(""NVA_PRV""),4);@826;S:$D(^IBA(355.93,DIPA(""NVA_PRV""),""TAXONOMY""))>0 Y=""@827"";42;@827;"
^DIE(577,"DR",3,355.9342)=".01:.03"
^DIE(577,"DR",4,355.9342)=".01:.03"
^DIE(577,"DR",99,1)="N DIERR X DR(99,1,9.2) K DIC S DIC=""^IBA(355.93,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^DIE(577,"DR",99,1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$$EXTERNAL^DIDU(399.0222,.02,"""",$P(Y(1),U,2))"
^DIE(577,"ROUOLD")="IBXSC82"
^DIE(578,0)="IBT QUICK EDIT^2970930.1342^@^356^^@^2980112"
^DIE(578,"DR",1,356)="S IBTRTP=$$TRTP^IBTRE1(DA) I IBTRTP'=1 S Y=""@10"";.07;@10;.24;I 'X S Y=""@20"";1.07;.31;.14;I 'X S Y=""@20"";.15;@20;N IBX S IBX=$G(^IBT(356,DA,0)) I '$$INSURED^IBCNS1($P(IBX,U,2),$P(IBX,U,6)) S Y=""@21"";.19;I 'X S Y=""@22"";1.08;"
^DIE(578,"DR",1,356,1)="S Y=""@22"";@21;.19///NOT INSURED;@22;I IBTRTP'=1!($G(IBTRPRF)'[1) S Y=""@90"";Q;.25//NO;.26//NONE;Q;.27//NO;@90;N X S X=$G(^IBT(356,DA,0)) I '$P(X,""^"",25),'$P(X,""^"",26),'$P(X,""^"",27) S Y=""@105"";1.05;@105;"
^DIE(578,"DR",1,356,2)="I '$P(^IBT(356,DA,0),U,24) S Y=""@106"";1.06;@106;I $G(IBTATRK) S Y=""@999"";I $P(^IBT(356,DA,0),U,19)!($G(IBTRPRF)'[3) S IBRNB=1,Y=""@999"";.12;.17;.21;.22;.23;.28;.29;@999;"
^DIE(578,"DR",1,356,3)="I $G(IBRNB) S DFN=$P(^IBT(356,DA,0),U,2),IBTRN=DA D FIND^IBOHCT(DFN,IBTRN) K IBRNB;"
^DIE(579,0)="PRCT BASIC PARAM^2900712.0954^^446.5^^^^"
^DIE(579,"DR",1,446.5)=".01;.02;.03;.06;1;2;"
^DIE(579,"DR",2,446.52)="S DIE(""NO^"")=""OUTOK"";.01;.09;.02;S PRCTTYPE=X S:X=3 Y=""@99"";.03;.05;.06;.1;S:PRCTTYPE'=1 Y=""@98"";.11;.12;@98;S Y=""@""_PRCTTYPE;@0;.07//1;.08//1;S Y=""@99"";@1;D ^PRCTFLD S Y=""@99"";@2;1;S Y=""@99"";@99;K PRCTTYPE,DIE(""NO^"");"
^DIE(580,0)="PRCT PARAMETER (CREATOR)^2900419.2037^^446.4^^^^"
^DIE(580,"DR",1,446.4)=".01;.02;.03;.04;.05;.06;.07;.09;"
^DIE(581,0)="PRCT DATA ENTER/EDIT/VIEW^2891109^^446.4^^^^"
^DIE(581,"DR",1,446.4)="2;"
^DIE(581,"DR",2,446.42)=".02;.03;1;"
^DIE(582,0)="PRCT PROGRAM ENTER/EDIT^2891113^^446.4^^^^"
^DIE(582,"DR",1,446.4)=".01;1;"
^DIE(583,0)="PRCT PARAMETER (USER)^2900419.2039^^446.4^^^^"
^DIE(583,"DR",1,446.4)=".05;.07;.09;"
^DIE(584,0)="PRCT SPECIALTY COMMANDS^2891215^^446.6^^^^"
^DIE(584,"DR",1,446.6)=".01;1;2;3;"
^DIE(585,0)="PRCP INVENTORY POINT^2930915.0758^^445^^^^"
^DIE(585,"DR",1,445)=".01;S PRCPTYPE=$P(^PRCP(445,DA,0),""^"",3) W !!,""TYPE OF INVENTORY POINT: "",$S(PRCPTYPE=""W"":""WAREHOUSE"",PRCPTYPE=""P"":""PRIMARY"",PRCPTYPE=""S"":""SECONDARY"",1:"""");.8;.5;.6;I PRCPTYPE'=""P"" S Y=12;14;15;"
^DIE(585,"DR",1,445,1)="I $P(^PRCP(445,DA,0),""^"",20)'=""S"" S Y=12;16;12;I PRCPTYPE=""S"" S Y=6;.9;I PRCPTYPE'=""P"" S Y=6;5;5.5;9;6;I PRCPTYPE=""W"" S Y="""";11;"
^DIE(585,"DR",2,445.011)=".01;1;"
^DIE(585,"DR",2,445.04)=".01;"
^DIE(586,0)="PRCP ITEM ALL FIELDS^2940104.1904^^445^^^^"
^DIE(586,"%D",0)="^^2^2^2921015^"
^DIE(586,"%D",1,0)="This template is used to ask all fields when adding new items to"
^DIE(586,"%D",2,0)="an inventory point."
^DIE(586,"DIAB",1,2,445.02,0)="ALL"
^DIE(586,"DIAB",1,2,445.07,0)="ALL"
^DIE(586,"DIAB",1,2,445.122,0)="ALL"
^DIE(586,"DR",1,445)="1///^S X=PRCPITEM;"
^DIE(586,"DR",2,445.01)="S PRCPTYPE=$P(^PRCP(445,DA(1),0),""^"",3);W !!,""  ----- Enter Item Descriptive Data -----"";I $P($G(^PRCP(445,DA(1),1,DA,6)),""^"")'="""" S Y=""@1"";.7//^S X=$P($G(^PRC(441,DA,0)),""^"",2);S Y=.5;@1;.7;.5;5;6;"
^DIE(586,"DR",2,445.01,1)="W !!,""  ----- Enter Issue Units -----"";D SETUNITS^PRCPEIUI(DA(1),DA);S PRCPUI=$$UNIT^PRCPUX1(DA(1),DA,"" per "");4;4.5;I PRCPTYPE'=""P"" S Y=""@2"";I $P(^PRCP(445,DA(1),0),""^"",20)'=""D"" S Y=16;50;51;16;16.5;@2;"
^DIE(586,"DR",2,445.01,2)="S PRCPUI1=$$UNIT^PRCPUX1(DA(1),DA,"" per "");I PRCPTYPE'=""S"",PRCPUI'=PRCPUI1,PRCPUI1'[""?"" D UPDATE^PRCPEIPU(DA(1),DA);W !!,""  ----- Enter Procurement and Mandatory Sources -----"";D SOURCES^PRCPEIPS(DA(1),DA);"
^DIE(586,"DR",2,445.01,3)="W !!,""  You now have the option to override the changes to the procurement sources..."";.6;.4;W !!,""  ----- Enter Levels -----"";9;11;9.5;I 'X S Y=10;9.6;10;10.3;I PRCPTYPE=""W"" S Y=""@3"";W !!,""  -----Enter Costs -----"";4.7;@3;"
^DIE(586,"DR",2,445.01,4)="I PRCPTYPE=""S"" S Y="""";W !!,""  ----- Enter Special Parameters -----"";I PRCPTYPE=""W"" S Y=22;I $P(^PRCP(445,DA(1),0),""^"",10)'=""S"" S Y=14;14.5;14;14.3;14.4;I PRCPTYPE=""P"" S Y="""";22;"
^DIE(586,"DR",3,445.02)=".01"
^DIE(586,"DR",3,445.07)=".01:3"
^DIE(586,"DR",3,445.122)=".01"
^DIE(587,0)="PRCSRI^3010813.1101^^410.3^^^3011220"
^DIE(587,"%D",0)="^^1^1^2930322^^"
^DIE(587,"%D",1,0)="This input template is for creating a repetitive list entry."
^DIE(587,"DR",1,410.3)="1;"
^DIE(587,"DR",2,410.31)=".01;K:'$O(^PRC(441,X,2,0)) X D VENDORC^PRCSRIE I $D(PRCSV) S Y=1 K PRCSV;2//^S X=$S($D(PRCSV1):PRCSV1,1:"""");I $G(NOCOST) D ^DIK K NOCOST S Y=0;1;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),U,12)>0 S Y="""";"
^DIE(587,"DR",2,410.31,1)="I $P(^PRC(441,$P(^PRCS(410.3,DA(1),1,DA,0),""^"",1),0),""^"",10)="""" D SUB^PRCSRIE1;"
^DIE(588,0)="PRCHSPD^2860618^^410.3^^^^"
^DIE(588,"DR",1,410.3)="1///^S X=PRCHI;"
^DIE(588,"DR",2,410.31)="2///^S X=PRCHV;1///^S X=PRCHQ;"
^DIE(589,0)="PRCHSITE^3010302.1138^^411^^^3010314"
^DIE(589,"DIAB",1,0,411,0)=".01;""STATION"""
^DIE(589,"DIAB",1,1,411.01,0)="ALL"
^DIE(589,"DIAB",1,1,411.03,0)="ALL"
^DIE(589,"DIAB",1,1,411.04,0)="ALL"
^DIE(589,"DIAB",1,1,411.05,0)="ALL"
^DIE(589,"DR",1,411)=".01STATION~;.5;1;2;15;16;17;18;19;19.2;I '$D(^PRC(411,""UP"",D0)) S Y=11;61;11;20///^S X=2;21;22///^S X=""Y"";23;24;I X=""N"" W *7,!,""This option is no longer supported"",! S Y=24;35;33;25;26;27;28;29;30;31;36;34;37;38;39;"
^DIE(589,"DR",1,411,1)="I ""1Y""'[X S Y=43;40;43;41;46;47;104;49//NO;50;51;52;"
^DIE(589,"DR",2,411.01)=".01:8"
^DIE(589,"DR",2,411.02)=".01:1;I ($P(^PRC(411,DA(1),2,DA,0),U)'?1""F"".E) S Y=""@2"";2;I 'X S Y=""@2"";3//^S X=7;@2;"
^DIE(589,"DR",2,411.03)=".01:7"
^DIE(589,"DR",2,411.04)=".01:1"
^DIE(589,"DR",2,411.05)=".01"
^DIE(590,0)="PRCHVENDOR^3021203.1552^^440^^^3021203"
^DIE(590,"DIAB",1,1,440.02,0)="ALL"
^DIE(590,"DR",1,440)=".01;I $L($P(^PRC(440,DA,0),U))>30 W !!,""The name you entered is over 30 characters long.  When sent to FMS only the"",!,""first 30 characters will go.  You may want to edit the name."",!;1;2;S:X="""" Y=4.2;3;S:X="""" Y=4.2;4;4.2;4.4;4.6;"
^DIE(590,"DR",1,440,1)="46;S CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;I X]"""" S Y=39;"
^DIE(590,"DR",1,440,2)="W !!,""This VENDOR needs a TAX IDENTIFICATION NUMBER or a SOCIAL SECURITY NUMBER."",!,""Please enter one if you have it or get it from the VENDOR."",!;39;I X]"""" S Y=""@1"";"
^DIE(590,"DR",1,440,3)="W !!,""Please tell me whether the TAX ID/SSN field is a TAX NUMBER or a SSN NUMBER."",!;@1;S ORDER=^PRC(440,DA,0) W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);"
^DIE(590,"DR",1,440,4)="W !,?18,$P(ORDER,U,6) S STATE=$S($P(ORDER,U,7)>0:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" ""_$P(ORDER,U,8),!;17.3//^S X=$E($P(^PRC(440,DA,0),U,2),1,30);"
^DIE(590,"DR",1,440,5)="17.4//^S X=$S($P($G(^PRC(440,DA,7)),U,4)=""""&($P($G(^(7)),U,7)=""""):$E($P(^PRC(440,DA,0),U,3),1,30),1:"""");17.7//^S X=$E($P(^PRC(440,DA,0),U,6),1,19);"
^DIE(590,"DR",1,440,6)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(590,"DR",1,440,7)="S STATE="""" I $P(^PRC(440,DA,0),U,7)>0 S STATE=$P(^DIC(5,$P(^PRC(440,DA,0),U,7),0),U);17.8//^S X=STATE;17.9//^S X=$P(^PRC(440,DA,0),U,8);41//^S X=""YES"";44;5;4.8;5.1;"
^DIE(590,"DR",1,440,8)="S:'$D(^PRC(440,DA,4,0)) ^PRC(440,DA,4,0)=""^""_$P(^DD(440,6,0),U,2)_""^0^0"";6;8.3;Q;10;D CHK^PRCHFPDS;I '$D(^PRC(440,DA,1.1)) S Y=10;K DIE(""NO^"");11;5.2;20;13//NOT APPLICABLE;S:X=""Y"" Y=14;S Y=18.3;14;18.3;"
^DIE(590,"DR",2,440.02)=".01"
^DIE(590,"DR",2,440.03)=".01:2;5;"
^DIE(590,"DR",2,440.05)=".01;S DIE(""NO^"")=""A"";"
^DIE(591,0)="PRCFACALM^2940525.1047^^440^^^^"
^DIE(591,"DR",1,440)="18.2;18;18.3;17;17.2;17.3;17.4;S:X="""" Y=17.7;17.5;S:X="""" Y=17.7;17.6;17.7;17.8;17.9;18.3;"
^DIE(592,0)="PRCHITEM^3050801.1507^^441^^^3050809"
^DIE(592,"DR",1,441)="W !!,""Short Description (uneditable)"";D EN^DDIOL($P($G(^PRC(441,DA,0)),U,2),"""",""!?5"");W !,""Description (uneditable)"";D EN^DDIOL("""",""^PRC(441,DA,1)"");.08;2;5;5.5;3;19;S PRCHFSC=$P(^PRC(441,DA,0),U,3) S:$P(PRCHFSC/100,""."")'=89 Y=21;"
^DIE(592,"DR",1,441,1)="20;21;S:$P(^PRC(441,DA,0),U,3)'=6505 Y=6;22;6;10;I $D(PRC(""PARAM"")),$P(PRC(""PARAM""),U,16)=""""!($P(PRC(""PARAM""),U,16)=""N"") S Y="""";12;"
^DIE(592,"DR",1,441,2)="I X="""",$D(PRC(""PARAM"")),$P(PRC(""PARAM""),U,16)=""Y"" W *7,!!,""  A&MM has been designated to enter BOC on items--this should be done"",!,""before ordering this item!"";"
^DIE(592,"DR",2,441.01)="S DIE(""NO^"")="""";.01;1.5;1;1.6;10;K DIE(""NO^"");2;3;8;8.5;9;S:$P(^PRC(441,DA(1),0),U,3)'=6505 Y="""";4;"
^DIE(592,"DR",2,441.05)=".01;"
^DIE(593,0)="PRCHPT^2851105^^440.2^^^^"
^DIE(593,"DR",1,440.2)="1;2;S:X="""" Y=4;3;4;5;6;"
^DIE(594,0)="PRCHDISCNT^2940729.1332^^442^^^^"
^DIE(594,"DR",1,442)="14;9.2//NET;"
^DIE(594,"DR",2,442.03)=".01;S:X=""Q"" Y=1;S:'$D(PRCHD(""CN"")) Y=1;3///^S X=PRCHD(""AC"");S:PRCHD(""CN"")="".OM"" Y=1;4///^S X=PRCHD(""CN"");1;"
^DIE(594,"DR",2,442.06)=".01;1//30;S:'$D(PRCHD(""*"")) Y="""";3///^S X=PRCHD(""*"");"
^DIE(595,0)="PRCH2138^3070417.1204^^442^^^3070514"
^DIE(595,"DIAB",1,0,442,11)="VENDOR:"
^DIE(595,"DIAB",1,1,442.01,23)="PURCHASE ORDER NUMBER:DELIVERY SCHEDULE (ORDER):"
^DIE(595,"DIAB",1,1,442.12,0)="ALL"
^DIE(595,"DIAB",2,0,442,4)="SUBSTATION;REQ"
^DIE(595,"DIAB",7,1,442.01,9)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(595,"DR",1,442)="Q:'$D(PRC(""SITE""));S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""";S PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19);S PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:"""");S PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(595,"DR",1,442,1)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^DIE(595,"DR",1,442,2)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(442,DA,0),U,2),0)):$P(^(0),U,3),1:"""");S PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")'="""":PRCHN(""INV""),1:""FMS"");"
^DIE(595,"DR",1,442,3)="S PRCHCTPO=$S(PRCHN(""MP"")=2:""Y"",1:""N"");S X=$P($G(^PRC(442,DA,1)),U) I X>0,$P($G(^PRC(440,X,3)),U,2)=""Y"" S PRCHEDI="""";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;S OSUB=$P($G(^PRC(442,DA,23)),U,7);"
^DIE(595,"DR",1,442,4)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^DIE(595,"DR",1,442,5)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)),X'=OSUB W !,?5,""Sub-station cannot be changed because the attached 2237"",!,?5,""would then have a different sub-station."",!;"
^DIE(595,"DR",1,442,6)="S PRCX=$O(^PRC(411,X,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,X,1,PRCX,0)),U) K PRCX;Q;.1//TODAY;.02//^S X=""INVOICE/RECEIVING REPORT"";"
^DIE(595,"DR",1,442,7)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");S:PRCHN(""MP"")'=25 Y=.08;D LOOK^PRCSPC;I (X="""")!(X[""^"") S ERRFLG=38,Y=0;"
^DIE(595,"DR",1,442,8)="I $G(PRCHXXX)="""" S ERRFLG=38,Y=0;46////^S X=$G(PRCHXXX);56////^S X=DUZ;I PRCHXXX]"""" S PRCPO=^PRC(440.5,PRCHXXX,0),PRCHHLDR=$P(PRCPO,U,8);61////^S X=PRCHHLDR;K PRCPO,PRCHHLDR,PRCHXXX;"
^DIE(595,"DR",1,442,9)=".08//^S X=$S(PRCHN(""MP"")=2:""Y"",PRCHN(""MP"")=12:""Y"",1:""N"");.04//^S X=PRCHN(""INV"");5;I $P(PRCHNVF,""^"",3)=1 S Y=""@20"";S PRCHOV3=$G(^PRC(440,+^PRC(442,D0,1),3)) S:$P(PRCHOV3,""^"",12)=""P"" Y=""@20"";S:$P(PRCHOV3,""^"",6)=""N"" Y=""@20"";"
^DIE(595,"DR",1,442,10)="S FLAG=0 I $P(PRCHOV3,""^"",4)]""""!(($P(PRCHOV3,""^"",9)]"""")&($P(PRCHOV3,""^"",8)]"""")) S FLAG=1;D EN9^PRCHNPO7;W:0 ""The jump Y=@20 is set in routine EN9^PRCHNPO7"";"
^DIE(595,"DR",1,442,11)="^440^PRC(440,^^S I(0,0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@20;I '$D(PRCHEDI) S:$D(^PRC(442,DA,12)) $P(^(12),U,13,14)=""^"" S Y=""@10"";18.6//^S X=""N"";"
^DIE(595,"DR",1,442,12)="I X'=""Y"" S:$D(^PRC(442,DA,12)) $P(^(12),U,14)="""" S Y=""@10"";18.7;@10;8//^S X=PRCHN(""SC"");I ""29""'[X K:0 DIC(""DR"") D ^PRCHNPO3 S Y=""@1"";.25;D ^PRCHNPO3;@1;"
^DIE(595,"DR",1,442,13)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($P(^(0),U,1),""-"",4) I +X=+$P(^PRC(442,DA,0),U,3) W !,""FCP: "",$P(^(0),U,3) S Y=""@2"";1;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;"
^DIE(595,"DR",1,442,14)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");@88;5.2//^S X=PRCHN(""SVC"");I $P(^PRC(442,DA,0),U,2)=25 S Y=""@89"";S Y=""@90"";@89;"
^DIE(595,"DR",1,442,15)="54;@90;S:PRCHN(""MP"")=2 Y=""@3"" I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";.3//^S X=""E"";@3;S:PRCHN(""MP"")=4 Y=5.3;"
^DIE(595,"DR",1,442,16)="I '$P(^PRC(442,DA,0),U,19)&(PRCHN(""MP"")'=2) W !,""Enter the word 'PATIENT' in the 'DELIVERY LOCATION' field for a direct delivery"",!,""to a patient."";5.6;"
^DIE(595,"DR",1,442,17)="I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;I X=""PATIENT"" W ""   Direct Delivery to Patient"" S Y=5.3;5.4//^S X=$G(PRCY);"
^DIE(595,"DR",1,442,18)="I $P(^PRC(442,DA,1),U,12)'="""" W *7,!,""Delete the Direct Delivery patient name if you wish the 'Ship to' address"",!,""to print on the P.O."",!;S:(PRCHN(""MP"")'=4)&($P(^(1),U,12)="""") Y=6;5.3;K DIC(""DR"");6//NO;S:X'=""Y"" Y=6.4;6.2;"
^DIE(595,"DR",1,442,19)="6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//TODAY+10;8.2//^S X=""N/A"";8.3;13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;"
^DIE(595,"DR",1,442,20)="S:'$D(PRCHSHP) PRCHSHP=$P(^PRC(442,DA,0),U,13) I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;97//^S X=""A"";16//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");"
^DIE(595,"DR",1,442,21)="S PRCHDUZ1=X I $P(^PRC(442,DA,0),U,2)=25,'$D(^PRC(440.5,""H"",X)) W *7,!,""This user is not a purchase card user."" S Y=16;K PRCHDUZ,PRCHDUZ1;40;24;20;501//^S X=$G(PRCHCTPO);K PRCHANS,PRCHTPO,PRCHSEEN,PRCHMORE,PRCHQTY,PRCSAVE;"
^DIE(595,"DR",2,440)="I FLAG S Y=17.3;38;I X]"""" S Y=39;W !!,""This VENDOR needs a TAX IDENTIFICATION NUMBER or a SOCIAL SECURITY NUMBER."",!,""Please enter one if you have it or get one from the VENDOR."",!;39;I X]"""" S Y=17.3;"
^DIE(595,"DR",2,440,1)="W !!,""Please tell me whether the TAX ID/SSN field is a TAX NUMBER or a SSN NUMBER."",!;17.3;17.4;17.7;17.8;17.9;I $P(PRCHOV3,U,11)]"""" S Y=""@10"";41;@10;I $P(PRCHOV3,U,14)]"""" S Y=""@11"";44;@11;I $P(PRCHOV3,U,13)]"""" S Y="""";"
^DIE(595,"DR",2,442.01)="S PRCHREC=DA,PRCHQUAN="""",Z="""",PRCHTOT=0;S PRCHINUM=DA;.01;K PRCSAVE;S PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^DIE(595,"DR",2,442.01,1)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;"
^DIE(595,"DR",2,442.01,2)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(595,"DR",2,442.01,3)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(595,"DR",2,442.01,4)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^DIE(595,"DR",2,442.01,5)="I $G(PRCHTOT)>X W !!!!!,$C(7),""****Delivery schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",X,"")."",!,""Edit delivery schedule(s)."",!! S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^DIE(595,"DR",2,442.01,6)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^DIE(595,"DR",2,442.01,7)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^DIE(595,"DR",2,442.01,8)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;9.4;S:X']"""" Y=9;"
^DIE(595,"DR",2,442.01,9)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^DIE(595,"DR",2,442.01,10)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=""@4"";"
^DIE(595,"DR",2,442.01,11)="S:PRCHN(""MP"")=2 Y=""@4"";9.3;D TSTREQ2^PRCHNPO9;40;S Y=""@4"";41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;@4;S DIE(""NO^"")=""OUTOK"";4;K DIE(""NO^"");"
^DIE(595,"DR",2,442.01,12)="I PRCHN(""SFC"")=2 S $P(^PRC(442,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHNPO7(-1) S Y=""@87"";3.5//^S X=$$SUPBOC^PRCHNPO7(-1);@87;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;"
^DIE(595,"DR",2,442.01,13)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=DA S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(442,DA(1),2,DA,0),U,2);"
^DIE(595,"DR",2,442.01,14)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),! S Y=""@555"";"
^DIE(595,"DR",2,442.01,15)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""'[$E(X) Y=""@56"" W ""  ""_$S(""Yy""[$E(X):""(YES)"",""Nn""[$E(X):""(NO)"",1:"""");@16;"
^DIE(595,"DR",2,442.01,16)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item #="",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),!;"
^DIE(595,"DR",2,442.01,17)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!;@555;"
^DIE(595,"DR",2,442.01,18)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"".  You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",!! S Y=""@55"";"
^DIE(595,"DR",2,442.01,19)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^DIE(595,"DR",2,442.01,20)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^DIE(595,"DR",2,442.01,21)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^DIE(595,"DR",2,442.01,22)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."",!!;@55;"
^DIE(595,"DR",2,442.01,23)="^442.8^PRC(442.8,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(442.8,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1),Y(102)=$G(X) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(595,"DR",2,442.01,24)="S:$G(PRCHDA) PRCHINUM=PRCHDA S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHINUM,0),U,2);"
^DIE(595,"DR",2,442.01,25)="I $G(PRCHFLG),PRCHTOT>PRCHQTY W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity."",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."",!! S Y=""@16"";"
^DIE(595,"DR",2,442.01,26)="I $G(PRCHFLG) S PRCHFLG=0 W !!!!,""****Returning to Item Multiple edit session."",!! S Y=""@44"";I PRCHTOT>PRCHQTY S Y=""@555"";"
^DIE(595,"DR",2,442.01,27)="W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";@56;K DIE(""NO^""),PRCHTOT,PRCHSCN,PRCHSEEN;"
^DIE(595,"DR",2,442.12)=".01"
^DIE(595,"DR",2,442.15)=".01;"
^DIE(595,"DR",3,442.8)="1///^S X=PRCHDA;S DIE(""NO^"")="""";2;3;@6;4;K DIE(""NO^"");S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=PRCHDA S PRCHTOT=PRCHTOT+$P(^(0),U,5);"
^DIE(595,"DR",3,442.8,1)="S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHDA,0),U,2);S PRCHMORE=$P(^PRC(442.8,DA,0),U,5),PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);"
^DIE(595,"DR",3,442.8,2)="I PRCHTOT>PRCHQTY I PRCHMORE'=0 W *7,!,""Del. sched. total of "",PRCHTOT,"" for item "",PRCHDA,"" EXCEEDS the purchase"",!,""order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",$S(PRCHMOR2>0:PRCHMOR2,1:0),""."",!! S Y=""@6"";"
^DIE(595,"DR",3,442.8,3)="I PRCHTOT<PRCHQTY W !,""Delivery schedule total of "",PRCHTOT,"" for item "",PRCHDA,"" is less than purchase"",!,""order quantity."",!!;I X>0 S Y=""@445"";W *7,!,""Delivery Schedule DELETED"",!;.01////@;@445;"
^DIE(595,"DR",99,1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(442.8,"",DIC(0)=""MFE"" D ^DIC S (D,D0,D(0))=+Y"
^DIE(596,0)="PRCHEDIT^2851218^^442^^^^"
^DIE(596,"DR",1,442)=".01;.02;.5;5.6;7;"
^DIE(597,0)="PRCHAMEND^2960705.1523^^443.6^^^2961010"
^DIE(597,"DR",1,443.6)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);50///^S X=PRCHAM;"
^DIE(597,"DR",2,443.67)="1//TODAY;S PRCHAU=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) I +$G(PRCHAU)=0 S PRCHAU=4;3//^S X=""D"";I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) I PRCHAU'=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,1),U,4)="""";"
^DIE(597,"DR",2,443.67,1)="I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) S PRCHAU=4;I X=5!(X=15) D CAN^PRCHMA3 I NOCAN S ER=1;"
^DIE(597,"DR",2,443.67,2)="I $G(ER)=1 W !,$S($D(PRCHREQ):""REQUISITION"",1:""PURCHASE ORDER"")_"" HAS BEEN RECEIVED, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;I X=5!(X=15) D PAID^PRCHINQ I $G(PAID) S ER=1;"
^DIE(597,"DR",2,443.67,3)="I $G(ER) W !,?5,""THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;"
^DIE(597,"DR",2,443.67,4)="I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4)=5!($P($G(^(0)),U,4)=15) D ONLY^PRCHMA0 I $G(PRCHON)=0 S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S Y=3;S:$D(PRCHREQ) Y=""@5"";4;5//^S X=""NO"";S:X'=""Y"" Y=""@5"";5.2;@5;"
^DIE(597,"DR",2,443.67,5)="I '$G(PRCHAUTH) S Y=""@6"";6////^S X=DUZ;S Y=""@7"";@6;6//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");@7;S FLGUP=1;"
^DIE(598,0)="PRCHAMIT^2930701.0909^^443.6^^^^"
^DIE(598,"DR",1,443.6)="Q;Q;40///^S X=$P(PRCHI,U,2);"
^DIE(598,"DR",2,443.61)="1;2;3;3.1;5;9;9.5;4;"
^DIE(599,0)="PRCHAMDESC^2860201^^443.6^^^^"
^DIE(599,"DR",1,443.6)="Q;Q;50///^S X=PRCHAN;"
^DIE(599,"DR",2,443.67)="S DA=PRCHAN;12;"
^DIE(600,0)="PRCHAMDISCNT^2861122^^443.6^^^^"
^DIE(600,"DR",1,443.6)="14///^S X=PRCHD;"
^DIE(600,"DR",2,443.63)=".01;1;"
^DIE(601,0)="PRCHAMPPP^2940708.1738^^443.6^^^^"
^DIE(601,"DR",1,443.6)="9.2///^S X=$P(PRCHP0,U,1);"
^DIE(601,"DR",2,443.66)=".01;4//^S X=""A"";I X=""X"" S %A=""You have indicated that the payments on this Purchase Order should be MONEY MANAGEMENT EXEMPT.  Is this CORRECT?"",%B="""",%=2 D ^PRCFYN S:%'=1 Y=4;"
^DIE(601,"DR",2,443.66,1)="1//^S X=$S(ZX=""X"":30,ZX=""M"":7,ZX=""P"":10,ZX=""D"":10,ZX=""V"":15,1:30);"
^DIE(602,0)="PRCHPPM^2890911.1041^^443^^^^"
^DIE(602,"DR",1,443)="S PRCHPPM=1;9;10;S $P(^PRC(443,DA,0),U,12)=$S($P(^PRC(443,DA,0),U,9)=""5"":""N"",$P(^(0),U,9):""E"",1:"""");I $P(^PRC(443,DA,0),U,12)]"""" S I=0,Y=1.5;13//^S X=""E"";S I=0;1.5;2///^S X=+PRC(""PER"");"
^DIE(603,0)="PRCHPC^2861024^^443^^^^"
^DIE(603,"DR",1,443)="1.5///^S X=80;6;"
^DIE(604,0)="PRCF SUB EDIT^2860811^^441^^^^"
^DIE(604,"DR",1,441)=".1;12;"
^DIE(605,0)="PRCSENA^2940504.1511^^410^^^^"
^DIE(605,"%D",0)="^^1^1^2930322^^^^"
^DIE(605,"%D",1,0)="This input template is for creating an adjustment of a request."
^DIE(605,"DR",1,410)="1///A;49;26;I X S $P(^PRCS(410,DA,5),""^"",2)=X;25;I X'="""" S $P(^PRCS(410,DA,5),""^"",1)=X;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),U,12)>1 S Y=""@2"";15.5;@1;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),U,12)>0 S Y=""@2"";"
^DIE(605,"DR",1,410,1)="17;17.5;18;18.5;@2;D RB^PRCSCK;16;60;"
^DIE(605,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(606,0)="PRCSENCOD^2911030.1103^^410^^^^"
^DIE(606,"%D",0)="^^1^1^2890716^"
^DIE(606,"%D",1,0)="This input template is for creating a No Form request."
^DIE(606,"DIAB",8,0,410,1)="21//TODAY"
^DIE(606,"DR",1,410)="1///O;8;49;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@0"";15.5;@0;I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^(3),U,4);11;I $D(Z(1))!('$D(Z(""Z""))) S Y=20;11;11.1;I X="""" S Y=11.5;11.2;"
^DIE(606,"DR",1,410,1)="I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5:11.9;20;Q;21//^S X=DT;D RB^PRCSCK;16;44;60;"
^DIE(606,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(607,0)="PRCSEN2237B^2981203.1536^^410^^^2990519"
^DIE(607,"DIAB",1,2,410.212,1)="1:"
^DIE(607,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;Q;49;Q;5//TODAY;6.3;7;S PRCSTDT=X;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;"
^DIE(607,"DR",1,410,1)="I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^PRCS(410,T1,3),U,4);11;I $D(Z(1))!('$D(Z(""Z""))) S Y=""@1"";11;11.1;I X="""" S Y=11.5;11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5;11.6;11.7;11.8;11.9;@1;10;"
^DIE(607,"DR",1,410,2)="D EX1^PRCSCK,^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR,PRCSF,PRCSI;20;Q;21//TODAY;I $D(PRCSJP) S Y=48.1;D RB^PRCSCK;16;48.1;46;45;40;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=68;42;Q;44//TODAY;68;"
^DIE(607,"DR",1,410,3)="K PRCSJP,PRCSTDT;60;"
^DIE(607,"DR",2,410.02)="I '$D(PRCSTDT) S PRCSTDT=$S($D(^PRCS(410,DA(1),1)):$P(^(0),U,4),1:"""");@1;.01//1;1;2;3;6;7;"
^DIE(607,"DR",2,410.02,1)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4//^S X="""" S:$D(PRCS(""SUB"")) X=PRCS(""SUB"");@44;"
^DIE(607,"DR",2,410.02,2)="I $D(^PRC(411,PRC(""SITE""),0)),$P(^(0),U,18)'=""Y"" S Y=""@3"";10;@3;D 2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=PRCSERR K PRCSERR;D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(607,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(607,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);Q;1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(607,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(607,"DR",4,410.6)="1;I X<PRCSTDT W *7,!,?4,""Delivery date must be later than Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(608,0)="PRCSENC^2941027.1618^^410^^^2960729"
^DIE(608,"%D",0)="^^2^2^2890830^^^"
^DIE(608,"%D",1,0)="This input template is for editing ceiling transactions for Control"
^DIE(608,"%D",2,0)="Points that are not automated."
^DIE(608,"DIAB",6,0,410,0)="24;""REFERENCE NUMBER"""
^DIE(608,"DR",1,410)="1///C;40////^S X=DUZ;42////^S X=DUZ;49;36;24REFERENCE NUMBER~;35;60;"
^DIE(609,0)="PRCSEN2237S^2981203.1553^^410^^^2990517"
^DIE(609,"%D",0)="^^2^2^2921005^^"
^DIE(609,"%D",1,0)="This input template is for creating a non-repetitive form type"
^DIE(609,"%D",2,0)="request at the Requestor's Level."
^DIE(609,"AB","14^PRCST42",.01)="1^PRCST43"
^DIE(609,"AB","14^PRCST42",1)="3^PRCST43"
^DIE(609,"AB","14^PRCST42",1,"///")=""
^DIE(609,"AB","5^PRCST43",1)="1^PRCST44"
^DIE(609,"AB","5^PRCST43",2)="7^PRCST44"
^DIE(609,"AB","5^PRCST43",3)="4^PRCST44"
^DIE(609,"AB","5^PRCST43",4)="8^PRCST44"
^DIE(609,"AB","5^PRCST43","@1")="3^PRCST44"
^DIE(609,"AB","6^PRCST41",.01)="2^PRCST42"
^DIE(609,"AB","6^PRCST41",1)="3^PRCST42"
^DIE(609,"AB","6^PRCST41",2)="4^PRCST42"
^DIE(609,"AB","6^PRCST41",3)="5^PRCST42"
^DIE(609,"AB","6^PRCST41",4)="9^PRCST42"
^DIE(609,"AB","6^PRCST41",6)="6^PRCST42"
^DIE(609,"AB","6^PRCST41",7)="7^PRCST42"
^DIE(609,"AB","6^PRCST41",12)="14^PRCST42"
^DIE(609,"AB","6^PRCST41","@1")="1^PRCST42"
^DIE(609,"AB","6^PRCST41","@44")="10^PRCST42"
^DIE(609,"AB","^",1)="2^PRCST4"
^DIE(609,"AB","^",1,"///")=""
^DIE(609,"AB","^",5)="6^PRCST4"
^DIE(609,"AB","^",6.3)="8^PRCST4"
^DIE(609,"AB","^",7)="9^PRCST4"
^DIE(609,"AB","^",7.5)="10^PRCST4"
^DIE(609,"AB","^",8)="3^PRCST4"
^DIE(609,"AB","^",9)="11^PRCST4"
^DIE(609,"AB","^",10)="6^PRCST41"
^DIE(609,"AB","^",11)="15^PRCST4"
^DIE(609,"AB","^",11.1)="18^PRCST4"
^DIE(609,"AB","^",11.2)="20^PRCST4"
^DIE(609,"AB","^",11.3)="22^PRCST4"
^DIE(609,"AB","^",11.4)="24^PRCST4"
^DIE(609,"AB","^",11.5)="25^PRCST4"
^DIE(609,"AB","^",11.6)="1^PRCST41"
^DIE(609,"AB","^",11.7)="2^PRCST41"
^DIE(609,"AB","^",11.8)="3^PRCST41"
^DIE(609,"AB","^",11.9)="4^PRCST41"
^DIE(609,"AB","^",15.5)="13^PRCST4"
^DIE(609,"AB","^",40)="7^PRCST4"
^DIE(609,"AB","^",45)="11^PRCST41"
^DIE(609,"AB","^",46)="10^PRCST41"
^DIE(609,"AB","^",48.1)="9^PRCST41"
^DIE(609,"AB","^",49)="4^PRCST4"
^DIE(609,"AB","^",60)="13^PRCST41"
^DIE(609,"AB","^","@1")="5^PRCST41"
^DIE(609,"AB","^","@33")="14^PRCST4"
^DIE(609,"DIAB",1,2,410.212,1)="1:"
^DIE(609,"DIAB",6,0,410,0)="5//TODAY;REQ"
^DIE(609,"DIAB",7,0,410,0)="40;REQ"
^DIE(609,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;49;Q;5R~//TODAY;40R~;6.3;7;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;11;"
^DIE(609,"DR",1,410,1)="I $D(Z(1))!('$D(Z(""Z""))) S Y=""@1"";11;11.1;I X="""" S Y=11.5;11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5:11.9;@1;10;D ^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;48.1;46;45;"
^DIE(609,"DR",1,410,2)="W !,""ORIGINATOR: "",$P(^VA(200,$P(^PRCS(410,DA,14),""^""),0),""^"");60;"
^DIE(609,"DR",2,410.02)="@1;.01//1;1;2;3;6;7;S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);"
^DIE(609,"DR",2,410.02,1)="4//^S X="""" S:$D(PRCS(""SUB"")) X=PRCS(""SUB"");@44;D 2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=PRCSERR K PRCSERR;D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(609,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(609,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(609,"DR",4,410.6)="1;S PRCSTDT=+$P(^PRCS(410,T1,1),""^"",4) I X<PRCSTDT W $C(7),!,?4,""Delivery date must be later than Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(609,"ROU")="^PRCST4"
^DIE(609,"ROUOLD")="PRCST4"
^DIE(610,0)="PRCSENPR^2981203.1532^^410^^^2990506"
^DIE(610,"%D",0)="^^1^1^2890716^"
^DIE(610,"%D",1,0)="This input template is for creating a repetitive form type request."
^DIE(610,"DIAB",1,2,410.212,1)="1:"
^DIE(610,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;Q;49;Q;5//TODAY;40;6.3;7;S PRCSTDT=X;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;"
^DIE(610,"DR",1,410,1)="I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^PRCS(410,T1,3),U,4);11;@1;10;D EX1^PRCSCK,^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR,PRCSF,PRCSI;20;21;I $D(PRCSJP) S Y=46;D RB^PRCSCK;16;46;45;68;60;"
^DIE(610,"DR",1,410,2)="K PRCSJP,PRCSTDT;"
^DIE(610,"DR",2,410.02)="I '$D(PRCSTDT) S PRCSTDT=$S($D(^PRCS(410,DA(1),1)):$P(^(1),U,4),1:"""");@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);"
^DIE(610,"DR",2,410.02,1)="I '$D(PRCSV) W !,""There are no items in the Item file for this vendor."" S Y="""";5;I X="""" W *7,"" ??  required field"" S Y=5;Q;"
^DIE(610,"DR",2,410.02,2)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4;@44;2;"
^DIE(610,"DR",2,410.02,3)="I $D(^PRC(411,PRC(""SITE""),0)),$P(^(0),U,18)'=""Y"" S Y=""@3"";10;@3;K PRCSV;D 2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=PRCSERR K PRCSERR;D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(610,"DR",2,410.04)=".01:1;D RB1^PRCSCK;"
^DIE(610,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);Q;1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(610,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(610,"DR",4,410.6)="1;I X<PRCSTDT W *7,!,?3,""Delivery date must be later than Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(611,0)="PRCSEN1358^2941230.0903^^410^^^^"
^DIE(611,"%D",0)="^^1^1^2930429^^"
^DIE(611,"%D",1,0)="This input template is for creating a 1358 form type request."
^DIE(611,"DIAB",5,0,410,3)="45;""PURPOSE"""
^DIE(611,"DR",1,410)="1///O;3.2;S PRCS1MO=X;8;49;40;Q;5//TODAY;21//^S X=$S($D(PRCS1MO):PRCS1MO_""-1""_$S(X:""-""_$E(X,2,3),1:""-""),$D(DT):DT,1:"""");@1;20;S PRCSCOST=X;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@3"";15.5;"
^DIE(611,"DR",1,410,1)="I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@3"";17;17.5;S PRCSCOST=PRCSCOST-X;I PRCSCOST W *7,!!,""Committed Cost does not equal the Subaccount $ Amount."",!,""Please correct the error."" S Y=""@1"";@3;D RB^PRCSCK;"
^DIE(611,"DR",1,410,2)="16;@2;W !,""Do you want to enter a vendor for this 1358 request"" S %=2 D YN^DICN I %'=1 W:%=0 !,""Enter 'YES' if you want to enter a vendor and vendor contract # for this request."" S Y=$S(%=0:""@2"",%<0:"""",1:45);"
^DIE(611,"DR",1,410,3)="I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^PRCS(410,T1,3),U,4);11;13;S Y=45;45PURPOSE~;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=60;42;60;K PRCSCOST,PRCS1MO;"
^DIE(611,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(612,0)="PRCSENR&NR^2981203.1544^^410^^^2990520"
^DIE(612,"%D",0)="^^2^2^2981019^^^"
^DIE(612,"%D",1,0)="This input template is for creating a repetitive and non-repetitive"
^DIE(612,"%D",2,0)="form type request."
^DIE(612,"AB","13^PRCST11",.01)="1^PRCST13"
^DIE(612,"AB","13^PRCST11",1)="2^PRCST13"
^DIE(612,"AB","5^PRCST11",.01)="3^PRCST12"
^DIE(612,"AB","5^PRCST11",1)="14^PRCST12"
^DIE(612,"AB","5^PRCST11",2)="12^PRCST12"
^DIE(612,"AB","5^PRCST11",3)="20^PRCST12"
^DIE(612,"AB","5^PRCST11",4)="10^PRCST12"
^DIE(612,"AB","5^PRCST11",5)="6^PRCST12"
^DIE(612,"AB","5^PRCST11",6)="21^PRCST12"
^DIE(612,"AB","5^PRCST11",7)="22^PRCST12"
^DIE(612,"AB","5^PRCST11",10)="1^PRCST17"
^DIE(612,"AB","5^PRCST11",12)="7^PRCST17"
^DIE(612,"AB","5^PRCST11","@1")="2^PRCST12"
^DIE(612,"AB","5^PRCST11","@2")="18^PRCST12"
^DIE(612,"AB","5^PRCST11","@4")="25^PRCST12"
^DIE(612,"AB","5^PRCST11","@44")="11^PRCST12"
^DIE(612,"AB","5^PRCST11","@444")="17^PRCST12"
^DIE(612,"AB","5^PRCST11","@5")="2^PRCST17"
^DIE(612,"AB","6^PRCST18",1)="1^PRCST19"
^DIE(612,"AB","6^PRCST18",2)="7^PRCST19"
^DIE(612,"AB","6^PRCST18",3)="4^PRCST19"
^DIE(612,"AB","6^PRCST18",4)="8^PRCST19"
^DIE(612,"AB","6^PRCST18","@1")="3^PRCST19"
^DIE(612,"AB","7^PRCST17",.01)="1^PRCST18"
^DIE(612,"AB","7^PRCST17",1)="4^PRCST18"
^DIE(612,"AB","7^PRCST17",1,"///")=""
^DIE(612,"AB","^",1)="2^PRCST1"
^DIE(612,"AB","^",1,"///")=""
^DIE(612,"AB","^",5)="7^PRCST1"
^DIE(612,"AB","^",6.3)="8^PRCST1"
^DIE(612,"AB","^",7)="9^PRCST1"
^DIE(612,"AB","^",7.5)="11^PRCST1"
^DIE(612,"AB","^",8)="3^PRCST1"
^DIE(612,"AB","^",9)="12^PRCST1"
^DIE(612,"AB","^",10)="5^PRCST11"
^DIE(612,"AB","^",11)="17^PRCST1"
^DIE(612,"AB","^",11.1)="20^PRCST1"
^DIE(612,"AB","^",11.2)="22^PRCST1"
^DIE(612,"AB","^",11.3)="24^PRCST1"
^DIE(612,"AB","^",11.4)="26^PRCST1"
^DIE(612,"AB","^",11.5)="27^PRCST1"
^DIE(612,"AB","^",11.6)="28^PRCST1"
^DIE(612,"AB","^",11.7)="1^PRCST11"
^DIE(612,"AB","^",11.8)="2^PRCST11"
^DIE(612,"AB","^",11.9)="3^PRCST11"
^DIE(612,"AB","^",15.5)="14^PRCST1"
^DIE(612,"AB","^",16)="13^PRCST11"
^DIE(612,"AB","^",20)="8^PRCST11"
^DIE(612,"AB","^",21)="10^PRCST11"
^DIE(612,"AB","^",21,"///")=""
^DIE(612,"AB","^",40)="16^PRCST11"
^DIE(612,"AB","^",42)="18^PRCST11"
^DIE(612,"AB","^",44)="20^PRCST11"
^DIE(612,"AB","^",45)="15^PRCST11"
^DIE(612,"AB","^",46)="14^PRCST11"
^DIE(612,"AB","^",49)="5^PRCST1"
^DIE(612,"AB","^",60)="23^PRCST11"
^DIE(612,"AB","^",68)="21^PRCST11"
^DIE(612,"AB","^","@1")="4^PRCST11"
^DIE(612,"AB","^","@33")="15^PRCST1"
^DIE(612,"DIAB",1,2,410.212,1)="1:"
^DIE(612,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;Q;49;Q;5//TODAY;6.3;7;S PRCSTDT=X;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;"
^DIE(612,"DR",1,410,1)="I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^(3),U,4);11;I $D(Z(1))!('$D(Z(""Z""))) S Y=""@1"";11;11.1;I X="""" S Y=11.5;11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5:11.9;@1;10;D EX1^PRCSCK,^PRCSCK;"
^DIE(612,"DR",1,410,2)="I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR,PRCSF,PRCSI;20;Q;21///TODAY;I $D(PRCSJP) S Y=46;D RB^PRCSCK;16;46;45;40;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=68;42;Q;44//TODAY;68;K PRCSJP,PRCSTDT,PRCSSUB;60;"
^DIE(612,"DR",2,410.02)="I '$D(PRCSTDT) S PRCSTDT=$S($D(^PRCS(410,DA(1),1)):$P(^(1),U,4),1:"""");@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);I '$D(PRCSV) S Y=1;5;K PRCSSUB I X="""" S Y=1;"
^DIE(612,"DR",2,410.02,1)="S PRCSSUB=$S($D(^PRCD(420.1,+$S($D(^PRCS(410,DA(1),3)):$P(^(3),U,3),1:""""),1,+$S($D(^PRC(441,+$S($D(^PRCS(410,DA(1),""IT"",DA,0)):$P(^(0),U,5),1:""""),0)):$P(^(0),U,10),1:""""),0)):$P(^(0),U),1:"""");"
^DIE(612,"DR",2,410.02,2)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4;@44;2;S Y=""@4"";1;"
^DIE(612,"DR",2,410.02,3)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@444"" W !,""BOC: "",$P(X,U,2);4;@444;@2;2;3;6;7;K PRCSV;Q;@4;"
^DIE(612,"DR",2,410.02,4)="I $D(^PRC(411,PRC(""SITE""),0)),$P(^(0),U,18)'=""Y"" S Y=""@5"";10;@5;K PRCSV;D 2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(612,"DR",2,410.04)=".01:1;D RB1^PRCSCK;"
^DIE(612,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);Q;1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(612,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(612,"DR",4,410.6)="1;I X<PRCSTDT W *7,!,?3,""Delivery date must be later than Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(612,"ROU")="^PRCST1"
^DIE(612,"ROUOLD")="PRCST1"
^DIE(613,0)="PRCSENPRS^2981203.1556^^410^^^2990302"
^DIE(613,"%D",0)="2"
^DIE(613,"%D",1,0)="This input template is for creating a repetitive form type request"
^DIE(613,"%D",2,0)="at the Requestor's level."
^DIE(613,"DIAB",1,2,410.212,1)="1:"
^DIE(613,"DIAB",6,0,410,0)="5//TODAY;REQ"
^DIE(613,"DIAB",7,0,410,0)="40;REQ"
^DIE(613,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;49;Q;5R~//TODAY;40R~;6.3;7;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;11;11.1;"
^DIE(613,"DR",1,410,1)="I X="""" S Y=11.5;11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5;11.6;11.7;11.8;11.9;@1;10;D ^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"";46;45;W !,""ORIGINATOR: "",$P(^VA(200,$P(^PRCS(410,DA,14),""^""),0),""^"");60;"
^DIE(613,"DR",2,410.02)="I '$D(PRCSTDT) S PRCSTDT=$S($D(^PRCS(410,DA(1),1)):$P(^(1),U,4),1:"""");@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);"
^DIE(613,"DR",2,410.02,1)="I '$D(PRCSV) W !,""There are no items in the Item file for this vendor."" S Y="""";5;I X="""" W *7,"" ??  required field"" S Y=5;"
^DIE(613,"DR",2,410.02,2)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4;@44;@2;2;K PRCSV;D 2^PRCSCK;"
^DIE(613,"DR",2,410.02,3)="I $D(PRCSERR),PRCSERR S Y=PRCSERR K PRCSERR;D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(613,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(613,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(613,"DR",4,410.6)="1;I X<PRCSTDT W $C(7),!,?3,""Delivery date must be later that Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(614,0)="PRCSEN1358S^2941230.0905^^410^^^^"
^DIE(614,"%D",0)="^^2^2^2890716^"
^DIE(614,"%D",1,0)="This input template is for creating a 1358 form type request at"
^DIE(614,"%D",2,0)="the Requestor's Level."
^DIE(614,"DIAB",9,0,410,3)="45;""PURPOSE"""
^DIE(614,"DR",1,410)="1///O;3.2;S PRCS1MO=X;8;49;40;Q;5//TODAY;21//^S X=$S($D(PRCS1MO):PRCS1MO_""-1""_$S(X:""-""_$E(X,2,3),1:""-""),$D(DT):DT,1:"""");@1;20;S PRCSCOST=X;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@2"";15.5;"
^DIE(614,"DR",1,410,1)="I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@2"";17;17.5;S PRCSCOST=PRCSCOST-X;I PRCSCOST W *7,!!,""Committed Cost does not equal the Subaccount $ Amount."",!,""Please correct the error."" S Y=""@1"";@2;"
^DIE(614,"DR",1,410,2)="W !,""Do you want to enter a vendor for this 1358 request"" S %=2 D YN^DICN I %'=1 W:%=0 !,""Enter 'YES' if you want to enter a vendor and vendor contract # for this request."" S Y=$S(%=0:""@2"",%<0:"""",1:45);11;13;11.1;I X="""" S Y=11.5;"
^DIE(614,"DR",1,410,3)="11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5;11.6:11.9;S Y=45;45PURPOSE~;60;K PRCSCOST,PRCS1MO;"
^DIE(615,0)="PRCSENCODS^2921015.1513^^410^^^^"
^DIE(615,"%D",0)="^^2^2^2890716^"
^DIE(615,"%D",1,0)="This input template is for creating a No Form request at the"
^DIE(615,"%D",2,0)="Requestor's Level."
^DIE(615,"DIAB",8,0,410,1)="21//TODAY"
^DIE(615,"DR",1,410)="1///O;8;49;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@0"";15.5;@0;I $D(^PRCS(410,T1,3)),$P(^(3),U,4)]"""" S $P(^PRCS(410,DA,3),U,4)=$P(^(3),U,4);11;I $D(Z(1))!('$D(Z(""Z""))) S Y=20;11;11.1;I X="""" S Y=11.5;11.2;"
^DIE(615,"DR",1,410,1)="I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5:11.9;20;Q;21//^S X=DT;D RB^PRCSCK;16;60;"
^DIE(615,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(616,0)="PRCSENR&NRS^2981203.1601^^410^^^2990514"
^DIE(616,"%D",0)="^^2^2^2890716^"
^DIE(616,"%D",1,0)="This input template is for creating a repetitive and non-repetitive"
^DIE(616,"%D",2,0)="form type request at the Requestor's Level."
^DIE(616,"AB","1^PRCST25",.01)="1^PRCST26"
^DIE(616,"AB","1^PRCST25",1)="3^PRCST26"
^DIE(616,"AB","1^PRCST25",1,"///")=""
^DIE(616,"AB","5^PRCST26",1)="1^PRCST27"
^DIE(616,"AB","5^PRCST26",2)="7^PRCST27"
^DIE(616,"AB","5^PRCST26",3)="4^PRCST27"
^DIE(616,"AB","5^PRCST26",4)="8^PRCST27"
^DIE(616,"AB","5^PRCST26","@1")="3^PRCST27"
^DIE(616,"AB","6^PRCST21",.01)="2^PRCST22"
^DIE(616,"AB","6^PRCST21",1)="13^PRCST22"
^DIE(616,"AB","6^PRCST21",2)="11^PRCST22"
^DIE(616,"AB","6^PRCST21",3)="19^PRCST22"
^DIE(616,"AB","6^PRCST21",4)="9^PRCST22"
^DIE(616,"AB","6^PRCST21",5)="5^PRCST22"
^DIE(616,"AB","6^PRCST21",6)="20^PRCST22"
^DIE(616,"AB","6^PRCST21",7)="21^PRCST22"
^DIE(616,"AB","6^PRCST21",12)="1^PRCST25"
^DIE(616,"AB","6^PRCST21","@1")="1^PRCST22"
^DIE(616,"AB","6^PRCST21","@2")="17^PRCST22"
^DIE(616,"AB","6^PRCST21","@4")="22^PRCST22"
^DIE(616,"AB","6^PRCST21","@44")="10^PRCST22"
^DIE(616,"AB","6^PRCST21","@444")="16^PRCST22"
^DIE(616,"AB","^",1)="2^PRCST2"
^DIE(616,"AB","^",1,"///")=""
^DIE(616,"AB","^",5)="6^PRCST2"
^DIE(616,"AB","^",6.3)="8^PRCST2"
^DIE(616,"AB","^",7)="9^PRCST2"
^DIE(616,"AB","^",7.5)="10^PRCST2"
^DIE(616,"AB","^",8)="3^PRCST2"
^DIE(616,"AB","^",9)="11^PRCST2"
^DIE(616,"AB","^",10)="6^PRCST21"
^DIE(616,"AB","^",11)="15^PRCST2"
^DIE(616,"AB","^",11.1)="18^PRCST2"
^DIE(616,"AB","^",11.2)="20^PRCST2"
^DIE(616,"AB","^",11.3)="22^PRCST2"
^DIE(616,"AB","^",11.4)="24^PRCST2"
^DIE(616,"AB","^",11.5)="25^PRCST2"
^DIE(616,"AB","^",11.6)="1^PRCST21"
^DIE(616,"AB","^",11.7)="2^PRCST21"
^DIE(616,"AB","^",11.8)="3^PRCST21"
^DIE(616,"AB","^",11.9)="4^PRCST21"
^DIE(616,"AB","^",15.5)="13^PRCST2"
^DIE(616,"AB","^",40)="7^PRCST2"
^DIE(616,"AB","^",45)="11^PRCST21"
^DIE(616,"AB","^",46)="10^PRCST21"
^DIE(616,"AB","^",49)="4^PRCST2"
^DIE(616,"AB","^",60)="14^PRCST21"
^DIE(616,"AB","^","@1")="5^PRCST21"
^DIE(616,"AB","^","@33")="14^PRCST2"
^DIE(616,"DIAB",1,2,410.212,1)="1:"
^DIE(616,"DIAB",6,0,410,0)="5//TODAY;REQ"
^DIE(616,"DIAB",7,0,410,0)="40;REQ"
^DIE(616,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;8;49;Q;5R~//TODAY;40R~;6.3;7;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;11;"
^DIE(616,"DR",1,410,1)="I $D(Z(1))!('$D(Z(""Z""))) S Y=""@1"";11;11.1;I X="""" S Y=11.5;11.2;I X="""" S Y=11.5;11.3;I X="""" S Y=11.5;11.4;11.5:11.9;@1;10;Q;D ^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"";46;45;"
^DIE(616,"DR",1,410,2)="W !,""ORIGINATOR: "",$P(^VA(200,$P(^PRCS(410,DA,14),""^""),0),""^"");K PRCSSUB;60;"
^DIE(616,"DR",2,410.02)="@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);I '$D(PRCSV) S Y=1;5;K PRCSSUB I X="""" S Y=1;"
^DIE(616,"DR",2,410.02,1)="S PRCSSUB=$S($D(^PRCD(420.1,+$S($D(^PRCS(410,DA(1),3)):$P(^(3),U,3),1:""""),1,+$S($D(^PRC(441,+$S($D(^PRCS(410,DA(1),""IT"",DA,0)):$P(^(0),U,5),1:""""),0)):$P(^(0),U,10),1:""""),0)):$P(^(0),U),1:"""");"
^DIE(616,"DR",2,410.02,2)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4;@44;2;S Y=""@4"";1;"
^DIE(616,"DR",2,410.02,3)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@444"" W !,""BOC: "",$P(X,U,2);4;@444;@2;2;3;6;7;@4;K PRCSV;D 2^PRCSCK;"
^DIE(616,"DR",2,410.02,4)="I $D(PRCSERR),PRCSERR S Y=""@1"";D QRB^PRCSCK;12;K PRCSMDP;"
^DIE(616,"DR",3,410.212)=".01;S PRCSMDP=$P(^PRCS(410,DA(2),0),U)_""-""_DA(1)_""-""_$P(^PRCS(410,DA(2),""IT"",DA(1),2,DA,0),U);1///^S X=PRCSMDP;D QRB1^PRCSCK;"
^DIE(616,"DR",3,410.212,1)="^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(616,"DR",4,410.6)="1;S PRCSTDT=+$P(^PRCS(410,T1,1),""^"",4) I X<PRCSTDT W $C(7),!,?3,""Delivery date must be later than Request's required date."" S Y=1;@1;3;K PRCSERR D QRB2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;2;4;"
^DIE(616,"ROU")="^PRCST2"
^DIE(616,"ROUOLD")="PRCST2"
^DIE(617,0)="PRCHDEL^2860920^^442^^^^"
^DIE(617,"DR",1,442)="7;20;"
^DIE(618,0)="PRCHPCR^2890320^^443^^^^"
^DIE(618,"DR",1,443)="S PRCHPCR=1;1.5;"
^DIE(619,0)="PRCSENCAD^2861207^^410^^^^"
^DIE(619,"%D",0)="^^1^1^2890716^"
^DIE(619,"%D",1,0)="This input template is for creating a Calm adjustment."
^DIE(619,"DR",1,410)="32;31;30;I X'="""",$D(^PRCS(410,DA,4)) S Z=$P(^(0),""^"",2),Z=$S(Z=""O"":$P(^(4),""^"",3),Z=""A"":$P(^(4),""^"",6),1:"""") I Z'="""",+X'=+Z W !,*7,""WARNING!!! CALM $AMT DOES NOT EQUAL OBLIGATION $AMT. VERIFY WITH FISCAL SERVICE."";60;"
^DIE(620,0)="PRCSENOD^2900131.1607^^410^^^^"
^DIE(620,"%D",0)="^^1^1^2890716^"
^DIE(620,"%D",1,0)="This input template is for creating obligation data request."
^DIE(620,"DR",1,410)="S:$P(^PRCS(410,DA,0),""^"",2)=""O"" Y=22;I $D(^PRCS(410,DA,4)),$P(^(4),""^"",3)]"""" W !,""Ceiling Amount: $"",$J($P(^(4),""^"",3),0,2),""  (NOT EDITABLE)"" S Y=23;W !,""No ceiling dollars have been recorded for this transaction."",!!,*7 S Y="""";"
^DIE(620,"DR",1,410,1)="22;23;24;I $P(^PRCS(410,DA,0),""^"",2)=""C"" S Y=60;47;48;D RB^PRCSCK;16;60;"
^DIE(620,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(621,0)="PRCHAMT^2880818^^442^^^^"
^DIE(621,"DIAB",1,2,442.16,0)="ALL"
^DIE(621,"DR",1,442)="35///^S X=PRCHAMT;"
^DIE(621,"DR",2,442.1)="1;2///^S X=PRCHCN;D EN3^PRCHNPO2;3;"
^DIE(621,"DR",3,442.16)=".01"
^DIE(622,0)="PRCHAMENDAV^2960602.161^^443.6^^^2960925"
^DIE(622,"DR",1,443.6)="50///^S X=PRCHAN;"
^DIE(622,"DR",2,443.67)="1;I '$G(PRCHAUTH) S Y=""@6"";6////^S X=DUZ;S Y=9;@6;6;9;13///YES;"
^DIE(623,0)="PRCSENCT^2861207^^410^^^^"
^DIE(623,"%D",0)="^^1^1^2890830^"
^DIE(623,"%D",1,0)="This input template is for editing the transaction's comments."
^DIE(623,"DR",1,410)="60;"
^DIE(624,0)="PRCSENCI^2890912.1527^^410^^^^"
^DIE(624,"%D",0)="^^2^2^2920601^^"
^DIE(624,"%D",1,0)="This input template is for editing ceiling transactions for Control"
^DIE(624,"%D",2,0)="Points that are automated."
^DIE(624,"DIAB",1,0,410,0)="24;""REFERENCE NUMBER"""
^DIE(624,"DIAB",1,1,410.04,0)="ALL"
^DIE(624,"DR",1,410)="24REFERENCE NUMBER~;8;49;16;60;"
^DIE(624,"DR",2,410.04)=".01:1"
^DIE(625,0)="PRCSEDS^2890403^^410^^^^"
^DIE(625,"DR",1,410)="8;49;D RB^PRCSCK;16;48;60;"
^DIE(625,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(626,0)="PRCHNREQ^3000105.1218^^442^^^3070720"
^DIE(626,"DIAB",1,0,442,8)="5:"
^DIE(626,"DIAB",1,1,442.01,23)="PURCHASE ORDER NUMBER:DELIVERY SCHEDULE (ORDER):"
^DIE(626,"DIAB",2,0,442,2)="31;REQ"
^DIE(626,"DR",1,442)="S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHNRQ)="""",PRCHN(""MP"")=8,PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHPONO=$P(^(0),U,1) I $D(^PRC(442,DA,1)),$D(^PRCD(420.8,+$P(^(1),U,7),0)) S PRCHN(""SC"")=$P(^(0),U,1);"
^DIE(626,"DR",1,442,1)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1),PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.02;S OSUB=$P($G(^PRC(442,DA,23)),U,7);"
^DIE(626,"DR",1,442,2)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.02;31R~;"
^DIE(626,"DR",1,442,3)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) I X'=OSUB W !,?5,""Sub-station cannot be changed because the attached 2237"",!,?5,""would then have a different sub-station."",! S $P(^PRC(442,DA,23),U,7)=OSUB S Y=31;"
^DIE(626,"DR",1,442,4)="S PRCX=$O(^PRC(411,X,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,X,1,PRCX,0)),U) K PRCX;.02//^S X=""REQUISITION"";I $P(^PRC(442,DA,0),U,2)'=25 S Y=.08;D LOOK^PRCSPC;I (X="""")!(X[""^"") S ERRFLG=42,Y=0;I $G(PRCHXXX)="""" S ERRFLG=42,Y=0;"
^DIE(626,"DR",1,442,5)="46////^S X=$G(PRCHXXX);56////^S X=DUZ;I PRCHXXX]"""" S PRCPO=^PRC(440.5,PRCHXXX,0),PRCHHLDR=$P(PRCPO,U,8);61////^S X=PRCHHLDR;K PRCPO,PRCHHLDR,PRCHXXX;.08//^S X=""Y"";9.2///^S X=""NET"";8.2///^S X=""N/A"";.04///^S X=""VA FSC"";Q;.1//TODAY;"
^DIE(626,"DR",1,442,6)=".2///^S X=""N"";5;S PRCHNVF=$S($G(PRCHNVF)]"""":PRCHNVF,1:"""");I $P(PRCHNVF,""^"",3)=1 S Y=""@20"";S PRCHOV3=$G(^PRC(440,+^PRC(442,D0,1),3)) S:$P(PRCHOV3,""^"",12)=""P"" Y=""@20"";S:$P(PRCHOV3,""^"",6)=""N"" Y=""@20"";"
^DIE(626,"DR",1,442,7)="S FLAG=0 I $P(PRCHOV3,""^"",4)]""""!(($P(PRCHOV3,""^"",9)]"""")&($P(PRCHOV3,""^"",8)]"""")) S FLAG=1;W:0 ""The jump Y=@20 is set in routine EN9^PRCHNPO7"";D EN9^PRCHNPO7;"
^DIE(626,"DR",1,442,8)="^440^PRC(440,^^S I(0,0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@20;I '$D(PRCHEDI) S:$D(^PRC(442,DA,12)) $P(^(12),U,13,14)=""^"" S Y=""@10"";18.6//^S X=""N"";"
^DIE(626,"DR",1,442,9)="I X'=""Y"" S:$D(^PRC(442,DA,12)) $P(^(12),U,14)="""" S Y=""@10"";18.7;@10;S:PRCHN(""SC"")'=1 Y=8;102.4;8//^S X=PRCHN(""SC"");S PRCHN(""SC"")=$S($D(^PRCD(420.8,+X,0)):$P(^(0),U,1),1:"""");D ^PRCHNPO3;@1;"
^DIE(626,"DR",1,442,10)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($P(^(0),U,1),""-"",4) I +X=+$P(^PRC(442,DA,0),U,3) W !,""FCP: "",$P(^(0),U,3) S Y=""@2"";1;Q;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;"
^DIE(626,"DR",1,442,11)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");5.2//^S X=PRCHN(""SVC"");Q;I $P(^PRC(442,DA,0),U,2)=25 S Y=""@89"";S Y=""@90"";@89;"
^DIE(626,"DR",1,442,12)="54;@90;I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=5.6;.3///^S X=""E"";5.6;I X=""PATIENT"" W *7,!,""No Patient Deliveries allowed from Federal Sources."" S Y=5.6;5.4//^S X=$G(PRCY);Q;7//TODAY+10;13;S:X']"""" Y=""@99"";"
^DIE(626,"DR",1,442,13)="I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@99"";@98;13.05;@99;16//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");"
^DIE(626,"DR",1,442,14)="S PRCHDUZ1=X I $P(^PRC(442,DA,0),U,2)=25,'$D(^PRC(440.5,""H"",X)) W *7,!,""This user is not a purchase card user."" S Y=16;K PRCHDUZ,PRCHDUZ1;40;20;I PRCHN(""SC"")'=0 S Y="""";"
^DIE(626,"DR",1,442,15)="S Z=$O(^PRC(442,DA,2,0)) I $D(^(Z,0)),$D(^PRC(441.2,+$P(^(0),U,13),0)) S PRCHN(""COM"")=$P(^(0),U,4);71//^S X=""A0A"";72;80//^S X=""T"";"
^DIE(626,"DR",1,442,16)="72.4//^S X="""",Z=$O(^PRC(411,+^PRC(442,DA,0),5,""AC"",""Y"",0)) S:$D(^PRC(411,+^PRC(442,DA,0),5,+Z,0)) X=$P(^(0),U,1);73//^S X="""" I $D(^PRC(442,DA,17)) S X=$S($E(+^(17),1,2)=11:""R"",1:"""");73.4///^S X=""Y"";W !,""SIGNAL CODE: A"";"
^DIE(626,"DR",1,442,17)="74///^S X=""A"";75;76;77//^I $D(^PRC(442,DA,17)) S X=$P(^(17),U,1);78//^S:'$D(PRCHN(""COM"")) PRCHN(""COM"")="""" S Z=$P(^PRC(442,DA,1),U,17),X=$S(PRCHN(""COM"")=1:10,Z=""Y"":""03"",1:15);79//^S X=""2J"";"
^DIE(626,"DR",2,440)="I FLAG S Y=17.3;38;I X]"""" S Y=39;W !!,""This VENDOR needs a TAX IDENTIFICATION NUMBER or a SOCIAL SECURITY NUMBER."",!,""Please enter one if you have it or get one from the VENDOR."",!;39;I X]"""" S Y=17.3;"
^DIE(626,"DR",2,440,1)="W !!,""Please tell me whether the TAX ID/SSN field is a TAX NUMBER or a SSN NUMBER."",!;17.3;17.4;17.7;17.8;17.9;I $P(PRCHOV3,U,11)]"""" S Y=""@10"";41;@10;I $P(PRCHOV3,U,14)]"""" S Y=""@11"";44;@11;I $P(PRCHOV3,U,13)]"""" S Y="""";"
^DIE(626,"DR",2,442.01)="S (PRCHREC,PRCHINUM)=DA,PRCHQUAN="""",Z="""",PRCHTOT=0;.01;S PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;1;I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(626,"DR",2,442.01,1)="K:Z="""" Z I $D(Z) W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(626,"DR",2,442.01,2)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^DIE(626,"DR",2,442.01,3)="I $G(PRCHTOT)>X W !!!!,$C(7),""****Delivery schedule total of "",PRCHTOT,"" for item "",DA,"" exceeds order"",!,""quantity of "",X,"".  Edit delivery schedule(s) now."",!! S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^DIE(626,"DR",2,442.01,4)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity of "",$P(PRCHQUAN,U,12),""."",$C(7) S Y=2;"
^DIE(626,"DR",2,442.01,5)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity of "",$P(PRCHQUAN,U,9),""."",$C(7) S Y=2;"
^DIE(626,"DR",2,442.01,6)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=2;3;"
^DIE(626,"DR",2,442.01,7)="I PRCHN(""SC"")=0,$D(^PRCD(420.5,+X,0)),$P(^(0),U,3)="""" W *7,!,""Missing DLA Package Unit--Will use IFCAP Unit--May Reject!"";5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@7"";D TSTREQ1^PRCHNPO9;3.1;9.4;S:X']"""" Y=9.5;"
^DIE(626,"DR",2,442.01,8)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9.5;S PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") I PRCHN(""COM"")="""",PRCHN(""SC"")'=9 W *7,!,""NSN is required!!!"" S Y=9.5;I PRCHN(""SC"")'=9 S Y=""@3"";9;@7;I PRCHN(""SC"")'=9 S Y=""@3"";8;@3;"
^DIE(626,"DR",2,442.01,9)="S PRCHN(""COM"")="""" I $D(^PRC(442,DA(1),2,DA,2)),$D(^PRC(441.2,+$P(^(2),U,3),0)) S PRCHN(""COM"")=$P(^(0),U,4),PRCHSTN=$P(PRCHPONO,""-""),PRCHFCP=+$P(^PRC(442,DA(1),0),U,3);"
^DIE(626,"DR",2,442.01,10)="S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:($E($P($G(^(0)),U,18),1,2)'=11)&(PRCHN(""SC"")=9) Y=""@4"" S:(((PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11))&(PRCHN(""SC"")'=9)) Y=4;9.3;D TSTREQ2^PRCHNPO9;40;"
^DIE(626,"DR",2,442.01,11)="S Y=$S(PRCHN(""SC"")'=9:4,1:""@4"");41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7) K Z;42;S Y=$S(PRCHN(""SC"")'=9:4,1:""@4"");4;@4;S Y=$S((PRCHN(""SC"")=0)!(PRCHN(""SC"")=3):30,PRCHN(""SC"")=1:35,1:""@5"");30;"
^DIE(626,"DR",2,442.01,12)="I PRCHN(""SC"")=0 S Y=""@5"";35;36;@5;S:'$D(PRCHEDI) Y=""@88"";36.3;36.6;@88;I PRCHN(""SFC"")=2 S $P(^PRC(442,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHNPO7(-1) S Y=""@87"";3.5//^S X=$$SUPBOC^PRCHNPO7(-1);@87;@6;"
^DIE(626,"DR",2,442.01,13)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=DA S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(442,DA(1),2,DA,0),U,2);"
^DIE(626,"DR",2,442.01,14)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),! S Y=""@555"";"
^DIE(626,"DR",2,442.01,15)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@6"" S:""Yy?""'[$E(X) Y=""@56"" W ""  ""_$S(""Yy""[$E(X):""(YES)"",""Nn""[$E(X):""(NO)"",1:"""");@16;"
^DIE(626,"DR",2,442.01,16)="S PRCHDA=DA,PRCHDA1=DA(1),PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U,1) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: ""_$P(^(0),U,2),!;"
^DIE(626,"DR",2,442.01,17)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals the order quantity."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!!;@555;"
^DIE(626,"DR",2,442.01,18)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,""."",!,""You must edit one or more schedules so that the delivery total equals"",!,""no more than "",PRCHQTY,""."",!!;"
^DIE(626,"DR",2,442.01,19)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""** To DELETE a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^DIE(626,"DR",2,442.01,20)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^DIE(626,"DR",2,442.01,21)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^DIE(626,"DR",2,442.01,22)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."",!!;@55;"
^DIE(626,"DR",2,442.01,23)="^442.8^PRC(442.8,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(442.8,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1),Y(102)=X S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");S PRCHQTY=$P(^PRC(442,PRCHIEN,2,DA,0),U,2);"
^DIE(626,"DR",2,442.01,24)="I $G(PRCHFLG),PRCHTOT>$G(PRCHQTY) W !!,""Delivery schedule(s) quantity of "",PRCHTOT,"" is still greater than ordered quantity of "",$G(PRCHQTY),""."",!! S Y=""@16"";"
^DIE(626,"DR",2,442.01,25)="I $G(PRCHFLG) S PRCHFLG=0 W !!!!,""****Returning to Item Multiple editing session."",!! S Y=""@44"";I PRCHTOT>PRCHQTY S Y=""@555"";"
^DIE(626,"DR",2,442.01,26)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@6"" S:""Yy?""[$E(X) Y=""@16"";@56;K DIE(""NO^""),PRCHDA1,PRCHDA,PRCHSCN;K PRCHTOT,PRCHQTY,PRCHSEEN,PRCHMORE;"
^DIE(626,"DR",2,442.06)="1///^S X=30;"
^DIE(626,"DR",3,442.8)="1///^S X=PRCHLINO;S DIE(""NO^"")="""";2;3;@9;S DIE(""NO^"")="""";4;K DIE(""NO^"");"
^DIE(626,"DR",3,442.8,1)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=PRCHDA S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(442,PRCHDA1,2,PRCHDA,0),U,2);"
^DIE(626,"DR",3,442.8,2)="S PRCHMORE=$P(^PRC(442.8,DA,0),U,5),PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);"
^DIE(626,"DR",3,442.8,3)="I PRCHTOT>$G(PRCHQTY) I PRCHMORE'=0 W *7,!,""Delivery sched. total of "",PRCHTOT,"" for item "",PRCHDA,"" EXCEEDS the"",!,""purchase order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",$S(PRCHMOR2>0:PRCHMOR2,1:0),""."",!! S Y=""@9"";"
^DIE(626,"DR",3,442.8,4)="I PRCHTOT<$G(PRCHQTY) W !,""Delivery schedule total(s) of "",PRCHTOT,"" for item "",PRCHDA,"" is less than purchase"",!,""order quantity of "",PRCHQTY,""."",!!;I X>0 S Y=""@445"";W *7,!,""Delivery Schedule DELETED"",!!;.01////@;@445;"
^DIE(626,"DR",99,1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(442.8,"",DIC(0)=""NMFLE"" D ^DIC S (D,D0,D(0))=+Y"
^DIE(627,0)="PRCFA TT921.00^2850517^^423^^^^"
^DIE(627,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;7;8;9;10;11;S Y=13;12;13;14;W !,""  "";15;I X=""$"" S Y="""";16;998///$;"
^DIE(628,0)="PRCFA TT924.00^2850517^^423^^^^"
^DIE(628,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;W !,""  "";17;I X=""$"" S Y="""";13;14;18;W !,"" "";15;I X=""$"" S Y="""";16;19;998///$;"
^DIE(629,0)="PRCFA TT930.00^2850409^^423^^^^"
^DIE(629,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;998///$;"
^DIE(630,0)="PRCFA TT938.00^2890826^^423^^^^"
^DIE(630,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;W !,""  "";10;I X=""$"" S Y=998;11;13;W !,""  "";111;998///$;"
^DIE(630,"DR",2,423.17)=".01;I X[""$"" W "" Terminator accepted, Enter <CR> to continue."",! S Y="""";1;"
^DIE(631,0)="PRCFA TT921.71^2870827^^423^^^^"
^DIE(631,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;11;8;22;23;76;998///$;"
^DIE(631,"DR",2,423.11)="5;8;S Y="""";6;"
^DIE(632,0)="PRCFA TT960.00^2860904^^423^^^^"
^DIE(632,"DR",1,423)=".1///CLM;S PRCFA(""TRACK"")="""";S:'$D(^PRCF(423,DA,8)) ^(8)="""";S Y=4;1;3;4;5;14;S PRCFA(""DEP AMT"")=X;9;24;W !!,""   DEPOSIT AMOUNT IS $"",$J(PRCFA(""DEP AMT"")/100,11,2);"
^DIE(632,"DR",1,423,1)="W !,""COLLECTION AMOUNT IS $"",$J($P(^PRCF(423,DA,8),""^"",17)/100,11,2),!;I PRCFA(""DEP AMT"")'=$P(^PRCF(423,DA,8),""^"",17) W !,*7,""CODE SHEET OUT OF BALANCE, DO YOU WISH TO EDIT"" S %=1 D YN^DICN I %=1 S Y=24;998///$;"
^DIE(632,"DR",1,423,2)="K PRCFA(""TRACK""),PRCFA(""DEP AMT"");"
^DIE(632,"DR",2,423.02)="1;2;3;W !,""CUMULATIVE AMOUNT IS $"",$J($P(^PRCF(423,DA(1),8),""^"",17)/100,0,2);4;5;"
^DIE(633,0)="PRCFA TT921.20^2861222^^423^^^^"
^DIE(633,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;S Y=8;7;8;9;S Y=14;113;113;12;113;14;998///$;"
^DIE(634,0)="PRCFA TT921.21^2861222^^423^^^^"
^DIE(634,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;S Y=8;7;8;9;S Y=11;113;11;S Y=14;12;113;14;998///$;"
^DIE(635,0)="PRCFA TT921.26^2861222^^423^^^^"
^DIE(635,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;S Y=8;7;8;9;S Y=11;113;11;S Y=13;12;13;14;15;I X=""$"" S Y="""";16;998///$;"
^DIE(636,0)="PRCFA TT921.30^2860402^^423^^^^"
^DIE(636,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6///..;S Y=10;7;8;9;10;11;S Y=13;12;13;14;W !,""  "";15;I X=""$"" S Y="""";16;998///$;"
^DIE(637,0)="PRCFA TT921.39^2850417^^423^^^^"
^DIE(637,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6///..;S Y=9;7;8;9;998///$;"
^DIE(638,0)="PRCFA TT921.41^2920212.1808^^423^^^^"
^DIE(638,"DIAB",15,0,423,0)="116;""ANALYSIS ACCOUNT"""
^DIE(638,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;S Y=8;7;8///6;S Y=10;9;10;11;116ANALYSIS ACCOUNT~;13;14;998///$;"
^DIE(639,0)="PRCFA TT921.51^2850417^^423^^^^"
^DIE(639,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6///X028;S Y=11;7;8;9;10;11;S Y=13;12;13///2599;14;998///$;"
^DIE(640,0)="PRCFA TT921.53^2850417^^423^^^^"
^DIE(640,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6///X028;S Y=8;7;8;S Y=11;9;10;11;S Y=13;12;13;14;998///$;"
^DIE(641,0)="PRCFA TT921.72^2880113^^423^^^^"
^DIE(641,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;11;8;S Y=76;113;113;76;998///$;"
^DIE(641,"DR",2,423.11)="5;8;S Y="""";6;"
^DIE(642,0)="PRCFA TT921.91^2850418^^423^^^^"
^DIE(642,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;11;S Y=22;8;22;23;21;998///$;"
^DIE(642,"DR",2,423.01)=".01;1;S Y="""";2;"
^DIE(643,0)="PRCFA TT921.93^2850418^^423^^^^"
^DIE(643,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;11;S Y=21;8;22;23;21;998///$;"
^DIE(643,"DR",2,423.01)=".01;1;2;"
^DIE(644,0)="PRCFA TT921.94^2850418^^423^^^^"
^DIE(644,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;11;S Y=21;8;22;23;21;998///$;"
^DIE(644,"DR",2,423.01)=".01;1;S Y="""";2;"
^DIE(645,0)="PRCFA TT922.00^2860304^^423^^^^"
^DIE(645,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;89;998///$;K SC;"
^DIE(645,"DR",2,423.12)=".01;1;S SC=+X;2;I SC=4 S Y=4;3;4;I SC>5 S Y="""";5;I SC=2 S Y="""";6;S Y="""";7;"
^DIE(646,0)="PRCFA TT923.07^2850419^^423^^^^"
^DIE(646,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;26;14;25;10;11;13;998///$;"
^DIE(647,0)="PRCFA TT923.01^2850419^^423^^^^"
^DIE(647,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;26;14;25;998///$;"
^DIE(648,0)="PRCFA TT925.01^2850419^^423^^^^"
^DIE(648,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;27;6;11;13;12;14;26;16;998///$;"
^DIE(649,0)="PRCFA TT928.01^2850419^^423^^^^"
^DIE(649,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;28;29;6;24;998///$;"
^DIE(649,"DR",2,423.02)="11;12;13;14;15;"
^DIE(650,0)="PRCFA TT930.21^2850422^^423^^^^"
^DIE(650,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20///2;14;998///$;"
^DIE(651,0)="PRCFA TT951.00^2870908^^423^^^^"
^DIE(651,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;31//A;I X=""$"" S Y=998;30;32//B;I X=""$"" S Y=998;35;33//C;I X=""$"" S Y=998;36;37;34//D;I X=""$"" S Y=998;38;998///$;"
^DIE(651,"DR",2,423.03)=".05;1;2;3;"
^DIE(651,"DR",2,423.04)=".05;1;2;3;"
^DIE(652,0)="PRCFA TT982.00^2860401^^423^^^^"
^DIE(652,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;K D1;40;998///$;"
^DIE(652,"DR",2,423.05)=".01;1;2;W !,""  "";3;I X=""$"" S Y="""";4;"
^DIE(653,0)="PRCFA TT983.00^2850422^^423^^^^"
^DIE(653,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;24;998///$;"
^DIE(653,"DR",2,423.02)="16;17;18;"
^DIE(654,0)="PRCFA TT984.00^2850422^^423^^^^"
^DIE(654,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;24;998///$;"
^DIE(654,"DR",2,423.02)="17;19;20;18;"
^DIE(655,0)="PRCFA TT986.00^2850422^^423^^^^"
^DIE(655,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;24;998///$;"
^DIE(655,"DR",2,423.02)="S Y=19;17;19;S Y=18;20;18;"
^DIE(656,0)="PRCFA TT972.01^2850726^^423^^^^"
^DIE(656,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;41;44;43;51;13;14;18;W !,""  "";15;I X=""$"" S Y="""";16;19;W !,""   "";52;I X=""$"" S Y="""";S Y=6;12;Q;6///..;S Y=45;10;11;53;45;46;47;48;49;50;998///$;"
^DIE(657,0)="PRCFA TT972.11^2860417^^423^^^^"
^DIE(657,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;S Y=44;41;44;43;51;13;14;W !,""  "";S Y=15;18;15;I X=""$"" S Y=15 W *7;I X="""" W !,"" "" S Y=11;16;W !,""  "";S Y=11;19;11;S Y=6;12;Q;6;10;W !,""  "";54;I X=""$"" S Y="""";W ! S Y=45;53;45;I $E(X,1)=""$"" S Y="""";46;47;"
^DIE(657,"DR",1,423,1)="48;49;50;998///$;"
^DIE(658,0)="PRCFA TT972.21^2890720^^423^^^^"
^DIE(658,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;42;44//1;43;51;13;14;18;W !,""  "";15;I X=""$"" S Y="""";16;19;W !,""   "";52;I X=""$"" S Y="""";S Y=6;12;Q;6///..;S Y=45;10;11;53;45;46;47;48;49;50;998///$;"
^DIE(659,0)="PRCFA TT972.71^2890721^^423^^^^"
^DIE(659,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;55;23;51;6///..;56;57;26;13;58;18;15;W !,""   "" I $E(X)=""$"" S Y=998;59;19;W !,""  "";60;I $E(X,1)=""$"" S Y=998;46;47;48;49;50;998///$;"
^DIE(660,0)="PRCFA TT921.60^2851007^^423^^^^"
^DIE(660,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;61;8;9;10;11;S Y=13;12;13;14;998///$;"
^DIE(661,0)="PRCFACEDIT^2851010^^423^^^^"
^DIE(661,"DR",1,423)=".5//TODAY;.6//OTHER;"
^DIE(662,0)="PRCFA TT920.00^2851101^^423^^^^"
^DIE(662,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=63;62;63;64;65;17;66;998///$;"
^DIE(662,"DR",2,423.07)="1;2;3;4;5;S Y="""";6;"
^DIE(663,0)="PRCFA TT973.00^2851101^^423^^^^"
^DIE(663,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;69;8;70;71///B;72;73;74;998///$;"
^DIE(663,"DR",2,423.08)="1;2;3;4;5;"
^DIE(663,"DR",2,423.09)="1;2;3;4;5;"
^DIE(664,0)="PRCFA TT973.10^2851101^^423^^^^"
^DIE(664,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;S Y=70;69;8;70;71///B;72;73;74;998///$;"
^DIE(664,"DR",2,423.08)="1;2;3;4;5;"
^DIE(664,"DR",2,423.09)="1;2;3;4;5;"
^DIE(665,0)="PRCFA TT973.11^2851101^^423^^^^"
^DIE(665,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;S Y=70;69;8;70;71///B;72;73;74;998///$;"
^DIE(665,"DR",2,423.08)="1;2;3;4;S Y="""";5;"
^DIE(665,"DR",2,423.09)="1;2;3;4;S Y="""";5;"
^DIE(666,0)="PRCFA TT973.30^2851101^^423^^^^"
^DIE(666,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;S Y=70;69;8;70;71///B;72;73;74;998///$;"
^DIE(666,"DR",2,423.08)="1;2;S:X'=1093 Y=4;3;4;S Y="""";5;"
^DIE(666,"DR",2,423.09)="1;2;S:X'=1093 Y=4;3;4;S Y="""";5;"
^DIE(667,0)="PRCFA TT973.20^2851101^^423^^^^"
^DIE(667,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;69;S Y=70;8;70;71///B;72;73;74;998///$;"
^DIE(667,"DR",2,423.08)="1;2;S Y=4;3;4;S Y="""";5;"
^DIE(667,"DR",2,423.09)="1;2;S Y=4;3;4;S Y="""";5;"
^DIE(668,0)="PRCFA TT974.00^2851102^^423^^^^"
^DIE(668,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;43;23;75;998///$;"
^DIE(668,"DR",2,423.1)="1;2;3;4;5;6;"
^DIE(669,0)="PRCFA TT974.01^2851102^^423^^^^"
^DIE(669,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;43;23;76;998///$;"
^DIE(669,"DR",2,423.11)="1;2;3;4;5;6;7;8;"
^DIE(670,0)="PRCFA TT974.21^2860402^^423^^^^"
^DIE(670,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;55;23;51;68//..;56;57;26;W !,""  "";13;I X=""$"" S Y=998;58;18;W !,""  "";15;S:X=""$"" Y=998 S:X="""" Y=60;59;19;W !,"" "";60;I X=""$"" S Y=998;46;47;48;49;50;998///$;"
^DIE(671,0)="PRCFA TT929.00^2870814^^423^^^^"
^DIE(671,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6//..;8;77;64;52;13;106;79;W !,"" "";78;S:X=""$""!(X="""") Y=998;73;54;15;107;80;998///$;"
^DIE(672,0)="PRCFA TT972.06^2860425^^423^^^^"
^DIE(672,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;81;S LIQCODE=X;44;43;51;82;83;I LIQCODE'[""P"" S Y=85;84;85;86;S Y=87;64;87;88;6//..;S Y=998;64;64;64;998///$;K LIQCODE;"
^DIE(673,0)="PRCFA TT922.99^2860304^^423^^^^"
^DIE(673,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;89;998///$;K SC;"
^DIE(673,"DR",2,423.12)=".01;1;S SC=+X;2;I SC=4 S Y=4;3;4;I SC>5 S Y="""";5;I SC=2 S Y="""";6;S Y="""";7;"
^DIE(674,0)="PRCFA TT922.01^2860304^^423^^^^"
^DIE(674,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;89;998///$;K SC;"
^DIE(674,"DR",2,423.12)=".01;1;S SC=+X;2;I SC=4!(SC=6) S Y=4;3;4;I SC>5 S Y=7;5;I SC=2 S Y=7;6;7;"
^DIE(675,0)="PRCFA TT941.00^2860307^^423^^^^"
^DIE(675,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;90;998///$;"
^DIE(675,"DR",2,423.13)="1;2;3;"
^DIE(676,0)="PRCFA TT941.02^2870113^^423^^^^"
^DIE(676,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;90;998///$;"
^DIE(676,"DR",2,423.13)="1;2;S Y="""";3;"
^DIE(677,0)="PRCFA TT942.31^2900711.1427^^423^^^^"
^DIE(677,"DR",1,423)=".1///CLM;1;3;4;5;91;S Y=92;23;43;92;1000;I X<1 S Y=45;1001;1002;1003;1004;45;46;47;48;49;50;998///$;"
^DIE(678,0)="PRCFA TT942.38^2870814^^423^^^^"
^DIE(678,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;91;S Y=45;23;43;92;113;113;113;113;45;S Y=998;998///$;"
^DIE(679,0)="PRCFA TT944.01^2860309^^423^^^^"
^DIE(679,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;93;94;95;998///$;"
^DIE(680,0)="PRCFA TT945.04^2860309^^423^^^^"
^DIE(680,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;10;S Y=97;96;25;97;998///$;"
^DIE(680,"DR",2,423.14)="1;2;"
^DIE(681,0)="PRCFA TT945.05^2860327^^423^^^^"
^DIE(681,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=96;10;96;25;97;998///$;"
^DIE(681,"DR",2,423.14)="1;2;"
^DIE(682,0)="PRCFA TT946.00^2860309^^423^^^^"
^DIE(682,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;99;98;998///$;"
^DIE(682,"DR",2,423.15)="1;2;3;I X="""" S Y="""";4;"
^DIE(683,0)="PRCFA TT946.21^2860309^^423^^^^"
^DIE(683,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;99;998///$;"
^DIE(684,0)="PRCFA TT952.01^2860309^^423^^^^"
^DIE(684,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;100;998///$;"
^DIE(684,"DR",2,423.16)="1;2;3;4;5;6;7;"
^DIE(685,0)="PRCFA TT959.01^2860309^^423^^^^"
^DIE(685,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;76;998///$;"
^DIE(685,"DR",2,423.11)="1;2;8;"
^DIE(686,0)="PRCFA TT961.00^2860309^^423^^^^"
^DIE(686,"DR",1,423)=".1///CLM;S Y=4.5;1;3;4.5;65;6;14;101;25;I X="""" S Y=998;102;103;998///$;"
^DIE(687,0)="PRCFA TT961.26^2930301.1056^^423^^^^"
^DIE(687,"DR",1,423)=".1///CLM;S Y=4.5;1;3;4.5;65;6;14;101;25;102;103;998///$;"
^DIE(688,0)="PRCFA TT961.71^2860309^^423^^^^"
^DIE(688,"DR",1,423)=".1///CLM;S Y=4.5;1;3;4.5;65;6;14;101;S Y=998;25;102;103;998///$;"
^DIE(689,0)="PRCFA TT970.02^2860429^^423^^^^"
^DIE(689,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=104;55;23;104;6;56;57;S Y=105;26;82;58;84;82;58;84;105;998///$;"
^DIE(690,0)="PRCFA TT970.12^2860815^^423^^^^"
^DIE(690,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=104;55;23;104;6;56;57;S Y=998;26;998///$;"
^DIE(691,0)="PRCFA TT970.20^2881110^^423^^^^"
^DIE(691,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=6;55;23;104;6;56;57;S Y=998;26;998///$;"
^DIE(692,0)="PRCFA TT994.00^2930528.101^^423^^^^"
^DIE(692,"DR",1,423)=".1///^S X=$$FB^PRCS58;S Y=4;1;3;4;5;998///$;"
^DIE(693,0)="PRCFA TT994.01^2930528.1019^^423^^^^"
^DIE(693,"DR",1,423)=".1///^S X=$$FB^PRCS58;S Y=4;1;3;4;5;76;998///$;"
^DIE(693,"DR",2,423.11)="9;10;"
^DIE(694,0)="PRCFA TT994.90^2930528.1011^^423^^^^"
^DIE(694,"DR",1,423)=".1///^S X=$$FB^PRCS58;S Y=4;1;3;4;5;76;998///$;"
^DIE(694,"DR",2,423.11)="11;12;13;"
^DIE(695,0)="PRCFA TT998.01^2860309^^423^^^^"
^DIE(695,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;100;998///$;"
^DIE(695,"DR",2,423.16)="8;9;10;11;"
^DIE(696,0)="PRCFA TT972.16^2860815^^423^^^^"
^DIE(696,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;S Y=44;81;44;43;51;82;83;S Y=85;84;85;86;S Y=88;87;87;88;6;S Y=998;64;64;64;998///$;"
^DIE(697,0)="PRCFA TT972.51^2910607.1127^^423^^^^"
^DIE(697,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;8;44///1;43;51;S Y=83;82;83;S Y=6;84;85;86;113;87;88;6;S Y=998;64;64;64;998///$;"
^DIE(698,0)="PRCFA TT970.01^2890718^^423^^^^"
^DIE(698,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;55;S Y=104;23;104;6;56;57;S Y=60;26;82;58;84;82;58;84;60;46;47;48;49;50;998///$;"
^DIE(699,0)="PRCFA TT960.01^2860815^^423^^^^"
^DIE(699,"DR",1,423)=".1///CLM;S PRCFA(""COL AMT"")=0;S Y=4;1;3;4;5;14;S PRCFA(""DEP AMT"")=X;9;24;I PRCFA(""DEP AMT"")'=PRCFA(""COL AMT"") W !,*7,""CODE SHEET OUT OF BALANCE, DO YOU WISH TO EDIT "" S %=1 D YN^DICN I %=1 S Y=24;998///$;"
^DIE(699,"DR",2,423.02)="1;2;3;4;S PRCFA(""COL AMT"")=PRCFA(""COL AMT"")+X;W ""  CUMULATIVE AMOUNT IS: "",PRCFA(""COL AMT"")/100;5;"
^DIE(700,0)="PRCFA TT951.21^2860815^^423^^^^"
^DIE(700,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;31//A;I X=""$"" S Y=998;30;998///$;"
^DIE(700,"DR",2,423.03)=".05;1;S Y=3;2;3;"
^DIE(701,0)="PRCFA TT951.31^2870908^^423^^^^"
^DIE(701,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;31//A;I X=""$"" S Y=998;30;32//B;I X=""$"" S Y=998;35;34//D;I X=""$"" S Y=998;38;998///$;"
^DIE(701,"DR",2,423.03)=".05;1;2;S Y="""";3;"
^DIE(701,"DR",2,423.04)=".05;1;2;3;"
^DIE(702,0)="PRCFA TT951.51^2860815^^423^^^^"
^DIE(702,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;31//A;I X=""$"" S Y=998;30;33//C;I X=""$"" S Y=998;36;S Y=998;37;998///$;"
^DIE(702,"DR",2,423.03)=".05;1;2;S Y="""";3;"
^DIE(703,0)="PRCFA TT951.61^2860815^^423^^^^"
^DIE(703,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;31//A;I X=""$"" S Y=998;30;998///$;"
^DIE(703,"DR",2,423.03)=".05;1;S Y=3;2;3;"
^DIE(704,0)="PRCFA TT945.03^2860908^^423^^^^"
^DIE(704,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;110;S Y=97;96;25;97;998///$;"
^DIE(704,"DR",2,423.14)="1;2;"
^DIE(705,0)="PRCFA TT934.20^2861023^^423^^^^"
^DIE(705,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;11;99;998///$;"
^DIE(706,0)="PRCFA TT972.04^2861208^^423^^^^"
^DIE(706,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;41;S Y=43;44;43;51;13;14;18;W !,""  "";15;I X=""$"" S Y="""";16;19;Q;998///$;"
^DIE(707,0)="PRCFA TT972.05^2861208^^423^^^^"
^DIE(707,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;41;44;43;51;13;14;18;W !,""  "";15;I X=""$"" S Y="""";16;19;Q;998///$;"
^DIE(708,0)="PRCFA TT972.07^2861208^^423^^^^"
^DIE(708,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;S Y=44;41;44;43;51;13;14;18;Q;998///$;"
^DIE(709,0)="PRCFA TT972.14^2861208^^423^^^^"
^DIE(709,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;23;S Y=43;41;44;43;51;13;14;W !,""  "";S Y=15;18;15;I X=""$"" S Y="""";16;W !,""  "";S Y=52;19;52;I X=""$"" S Y="""";S Y=6;12;Q;6;10;W !,""  "";11;I X[""$"" S Y="""";S Y=998;53;998////$;"
^DIE(710,0)="PRCFA TT972.15^2861208^^423^^^^"
^DIE(710,"DR",1,423)=".1////CLM;S Y=4;1;3;4;5;23;S Y=44;41;44;43;51;13;14;W !,""  "";S Y=15;18;15;I X=""$"" S Y="""";16;W !,""  "";S Y=52;19;52;I X=""$"" S Y="""";S Y=6;12;Q;6;10;W !,""  "";11;I X=""$"" S Y="""";W !,""  "";S Y=45;53;45;I X=""$"" S Y="""";46;47;48;49;50;"
^DIE(710,"DR",1,423,1)="998////$;"
^DIE(711,0)="PRCFA TT920.04^2870814^^423^^^^"
^DIE(711,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=114;62;114///^S X=""OGA"";S Y=66;64;65;17;66;998///$;"
^DIE(711,"DR",2,423.07)="1;2;3;S Y="""";4;5;6;"
^DIE(712,0)="PRCFA TT921.31^2871104^^423^^^^"
^DIE(712,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6///..;S Y=10;113;113;113;10;11;S Y=13;113;13;14;998///$;"
^DIE(713,0)="PRCHL632^2890913.145^^423^^^^"
^DIE(713,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";K PRCHCS S:'$D(PRCHCS(""SC"")) PRCHCS(""SC"")=$S($D(^PRCF(423,DA,301)):$P(^(301),U,12),1:"""") S:'$D(PRCHCS(""MAND"")) PRCHCS(""MAND"")="""";S Y=308;326;308;"
^DIE(713,"DR",1,423,1)="W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: ""_PRCFA(""TT""),! S Y=340;1;3;340//^S X=1;341;S PRCHCS(""SC"")=X;309;303;S:""01""'[PRCHCS(""SC"") Y=301;344;301;S Y=342;325;326;342;343;302;377;345;"
^DIE(713,"DR",1,423,2)="I ""1A""[PRCHCS(""SC""),X="""" W !,*7,""Cannot be blank for source code 1 or A"" S Y=345;346//^S X=""A"";304;306.1;K PRCHCS;"
^DIE(714,0)="PRCHL666^2890530^^423^^^^"
^DIE(714,"DR",1,423)="S Y=308;326;308;W !,""STATION NUMBER: "",PRC(""SITE"");S Y=3;1;3;S Y=309;325;309;S X=""  "";303;330;S PRCHDPT=X;5.2;S Y=338;326;338;339;302;331;332;333;I $E(PRCHDPT,1,2)=11,(X'=1&(X'=2)&(X'=""N"")) W *7,""??  Required"" S Y=333;314;305;315;"
^DIE(714,"DR",1,423,1)="337;"
^DIE(715,0)="PRCHL501^2890511^^423^^^^"
^DIE(715,"DR",1,423)="S Y=$S('$D(PRCFA(""TT"")):"""",1:308);326;308;W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=330;1;3;310;325;330;S Y=344;336;344;S Y=302;304;340;301;302;347;348;S Y=306;327;306;"
^DIE(715,"DR",1,423,1)="W !!,""Source Code = 1"" S Y=341;327;327;341///^S X=1;"
^DIE(716,0)="PRCHL100^2891025.1337^^423^^^^"
^DIE(716,"DR",1,423)="313//^S X=""A0A"";312//^S X=""DLA"";350//^S X=""T"";307;S Y=303;325;325;303;302;311;306.2//^S X=""TODAY"";366;351;367;352//^S X=""A"";353;354;355;356//^S X=15;358;357//^S X=""2J"";S Y="""";327;327;326;325;"
^DIE(717,0)="PRCSENIBS^2981203.1604^^410^^^2990302"
^DIE(717,"%D",0)="^^2^2^2890716^"
^DIE(717,"%D",1,0)="This input template is for reating an Issue Book request at the"
^DIE(717,"%D",2,0)="Requestor's Level."
^DIE(717,"DIAB",5,0,410,2)="5//TODAY;REQ"
^DIE(717,"DIAB",6,0,410,2)="40;REQ"
^DIE(717,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;"
^DIE(717,"DR",1,410,1)="S Z=$O(^PRC(440,""AC"",""S"",0)),Y(0)=$S($D(^PRC(440,+Z,0)):^(0),1:"""") I 'Z!(Y(0)="""") W *7,!,""Supply MUST enter the Supply Warehouse as a vendor before you can place an"",!,""Issue Book request."" S Y="""";11///^S X=$P(Y(0),""^"");3.1;S Y=8;"
^DIE(717,"DR",1,410,2)="8;Q;49;Q;5R~//TODAY;40R~;6.3;7;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;@1;10;D ^PRCSCK;"
^DIE(717,"DR",1,410,3)="I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;46;45;W !,""ORIGINATOR: "",$P(^VA(200,$P(^PRCS(410,DA,14),""^""),0),""^"");60;"
^DIE(717,"DR",2,410.02)="@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);I '$D(PRCSV) W !,""There are no items in the Item file for this vendor."" S Y="""";5;I X="""" W *7,"" ??  required field"" S Y=5;2;"
^DIE(717,"DR",2,410.02,1)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4//^S X="""" S:$D(PRCS(""SUB"")) X=PRCS(""SUB"");@44;"
^DIE(717,"DR",2,410.02,2)="K PRCSV;D 2^PRCSCK;I $D(PRCSERR),PRCSERR S Y=PRCSERR K PRCSERR;"
^DIE(718,0)="PRCSENIB^2981203.1548^^410^^^2990514"
^DIE(718,"%D",0)="^^1^1^2890716^"
^DIE(718,"%D",1,0)="Thie input template is for creating an Issue Book request."
^DIE(718,"DR",1,410)="I $D(PRCSERR),PRCSERR S Y=""@1"";1///O;"
^DIE(718,"DR",1,410,1)="S Z=$O(^PRC(440,""AC"",""S"",0)),Y(0)=$S($D(^PRC(440,+Z,0)):^(0),1:"""") I 'Z!(Y(0)="""") W *7,!,""Supply MUST enter the Supply Warehouse as a vendor before you can place an"",!,""Issue Book request."" S Y="""";11///^S X=$P(Y(0),""^"");3.1;S Y=8;"
^DIE(718,"DR",1,410,2)="8;Q;49;Q;5//TODAY;40;6.3;7;7.5//ST;9;S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;@1;10;D ^PRCSCK;"
^DIE(718,"DR",1,410,3)="I $D(PRCSERR),PRCSERR S Y=""@1"" K PRCSERR;20;21;D RB^PRCSCK;16;46;45;68;60;"
^DIE(718,"DR",2,410.02)="@1;.01//1;I $D(^PRCS(410,DA(1),3)),$P(^(3),""^"",4),$D(^(2)),$P(^(2),""^"",1)'="""" S PRCSV=$P(^(3),""^"",4);I '$D(PRCSV) W !,""There are no items in the Item file for this vendor."" S Y="""";5;I X="""" W *7,"" ??  required field"" S Y=5;2;"
^DIE(718,"DR",2,410.02,1)="S X=$P($G(^PRCS(410,DA(1),3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA(1),""IT"",DA,0),U,4)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);4//^S X="""" S:$D(PRCS(""SUB"")) X=PRCS(""SUB"");@44;@2;"
^DIE(718,"DR",2,410.02,2)="S:$S('$D(^PRC(411,PRC(""SITE""),0)):1,1:$P(^(0),""^"",18)'=""Y"") Y="""" K:Y="""" PRCSV;10;K PRCSV,PRCSF;D 2^PRCSCK;I $D(PRCSERR),PRCSERR D SETY^PRCSCK K PRCSERR;"
^DIE(718,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(719,0)="PRCHFEDVEN^2890407^^440^^^^"
^DIE(719,"DIAB",1,1,440.02,0)="ALL"
^DIE(719,"DR",1,440)=".01;1;2;S:X="""" Y=4.2;3;S:X="""" Y=4.2;4;4.2;4.4;4.6;5;4.8;11;20;.06;.05;"
^DIE(719,"DR",2,440.02)=".01"
^DIE(720,0)="PRCFA TT970.05^2880418^^423^^^^"
^DIE(720,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=104;55;23;104;6;56;57;26;998///$;"
^DIE(721,0)="PRCFA TT939.00^2880504^^423^^^^"
^DIE(721,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;115;20;14;998///$;"
^DIE(722,0)="PRCFA TT939.10^2880504^^423^^^^"
^DIE(722,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;115;S Y=14;113;14;998///$;"
^DIE(723,0)="PRCFA TT939.12^2880504^^423^^^^"
^DIE(723,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;115;S Y=14;113;14;S Y=11;113;11;S Y=998;113;998///$;"
^DIE(724,0)="PRCFA TT939.43^2880504^^423^^^^"
^DIE(724,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;115;20;14;S Y=10;113;11//899100;S Y=998;113;998///$;"
^DIE(725,0)="PRCFA TT939.45^2930301.1058^^423^^^^"
^DIE(725,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;115;20;14;S Y=11;113;11//899600;99;S Y=998;113;113;998///$;"
^DIE(726,0)="PRCSENE^2880929^^410^^^^"
^DIE(726,"%D",0)="^^2^2^2890830^"
^DIE(726,"%D",1,0)="This input template is for entry/edit of Sub-Control Point dollar"
^DIE(726,"%D",2,0)="amount distribution."
^DIE(726,"DR",1,410)="D RB^PRCSCK;16;"
^DIE(726,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(727,0)="PRCHL500^2890913.1431^^423^^^^"
^DIE(727,"DIAB",2,0,423,2)="1;""STATION NUMBER (FACILITY)"""
^DIE(727,"DIAB",4,0,423,2)="310;""NOMENCLATURE (15) (OPTIONAL)"""
^DIE(727,"DIAB",5,0,423,1)="308;""N.I.I.N (STOCK NUMBER)"""
^DIE(727,"DR",1,423)="Q:'$D(PRCFA(""TT""))  K PRCHCS S:'$D(PRCHCS(""MAX"")) PRCHCS(""MAX"")="""",PRCHCS(""MAND"")="""" S:'$D(^PRCF(423,DA,300)) ^(300)="""" S:$P(^(300),U,23)="""" $P(^(300),U,23)=""    "" S PRCHCS(""QTY"")=+$P(^(300),U,3);"
^DIE(727,"DR",1,423,1)="S PRCHCS(""SC"")="""",PRCHCS(""CANC"")="""",PRCHCS(""MXO"")="""" I $D(^PRCF(423,DA,301)) S PRCHCS(""SC"")=$P(^(301),U,12),PRCHCS(""CANC"")=$P(^(301),U,30);I PRCHCS(""SC"")="""" S PRCHCS(""BEG"")=1,Y=341;S Y=308;326;308N.I.I.N (STOCK NUMBER)~;"
^DIE(727,"DR",1,423,2)="W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=310;1STATION NUMBER (FACILITY)~;3;310NOMENCLATURE (15) (OPTIONAL)~;I PRCFA(""TT"")'=630!($D(PRCHTYP)) S Y=303;361;"
^DIE(727,"DR",1,423,3)="S PRCHCS(""CANC"")=X S:X=""C""!(X=""A"") Y=344;I PRCHCS(""CANC"")=""*""!(PRCHCS(""CANC"")=""X"") S $P(^PRCF(423,DA,301),U,11)=""G"";303;S Y=344;325;325;344;"
^DIE(727,"DR",1,423,4)="S Y=$S(PRCHCS(""CANC"")=""C"":"""",PRCHCS(""CANC"")=""A"":302,PRCHCS(""CANC"")]"""":340,PRCHCS(""SC"")=3:340,PRCHCS(""SC"")=1:302,1:301);304;340;301;302;S PRCHCS(""QTY"")=X I PRCHCS(""MAX""),PRCHCS(""QTY"")>PRCHCS(""MAX"") S PRCHCS(""MXO"")=1;"
^DIE(727,"DR",1,423,5)="S Y=$S(PRCHCS(""CANC"")=""A"":306,PRCHCS(""CANC"")'="""":""@1"",PRCHCS(""SC"")=1:347,1:349);347;348;S Y=349;@1;W !!,""Enter Date of Original Requisition"";306.2;S Y=306;349//^S X=PRCHCS(""MXO"");306;"
^DIE(727,"DR",1,423,6)="I PRCHCS(""CANC"")="""" W !,""Enter Source Deviation Code below."",! S Y=359;I ""*X""[PRCHCS(""CANC"") W !,""Enter Serial Number below."",! S Y=359;S Y=341;327;325;359;341;S PRCHCS(""SC"")=X I $D(PRCHCS(""BEG"")) K PRCHCS(""BEG"") S Y=308;K PRCHCS;"
^DIE(728,0)="PRCSENA 1358^2960223.1428^^410^^^2960520"
^DIE(728,"%D",0)="^^2^2^2930407^^^"
^DIE(728,"%D",1,0)="This input template is for creating an adjustment of a 1358"
^DIE(728,"%D",2,0)="form type request."
^DIE(728,"DIAB",3,0,410,1)="45;PURPOSE"
^DIE(728,"DIAB",14,0,410,0)="26//TODAY"
^DIE(728,"DR",1,410)="1///A;49;25;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),U,12)>1 S Y=""@2"";15.5;@1;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),U,12)>0 S Y=""@2"";17;17.5;@2;D RB^PRCSCK;16;Q;26//^S X=DT;"
^DIE(728,"DR",1,410,1)="I $D(^PRCS(410,DA,0)),$P(^(0),U,4)'=1 S Y=60;S Y=45;45PURPOSE~;60;"
^DIE(728,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(729,0)="PRCHL550^2890608^^423^^^^"
^DIE(729,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction code: ""_PRCFA(""TT""),!,""Nomenclature: PUSH RELEASE"";W !!,"" *Enter assigned Requisition number for DEPOT regular--Common number for GSA*"" S Y=310;327;"
^DIE(729,"DR",1,423,1)="327;326;1;3;310///^S X=""PUSH RELEASE"";S Y=344;325;325;326;344;I X="""" W *7,!,""This field CANNOT be blank!!"" S Y=344;S Y=$S(PRCFA(""TT"")=555:304,1:378);325;325;378;S Y=379;325;325;379;382;S Y=304;325;304;306;"
^DIE(729,"DR",1,423,2)="S Y=$S(PRCFA(""TT"")=555:341,1:380);380;I X]"""",$P(^PRCF(423,DA,302),U,3)="""" W *7,!,""You MUST code the Document Identifier for Drugs if you code this field!"" S Y=378;381;"
^DIE(729,"DR",1,423,3)="I X]"""",$P(^PRCF(423,DA,302),U,4)="""" W *7,!,""You MUST code the Document Identifier for Subsistence if you code this field!"" S Y=379;W !,""SOURCE CODE: ""_$S(PRCFA(""TT"")=555:3,1:1);341///^S X=$S(PRCFA(""TT"")=555:3,1:1);"
^DIE(730,0)="PRCHL710^2900118.0722^^423^^^^"
^DIE(730,"DIAB",1,0,423,1)="1;""STATION NUMBER (FACILITY)"""
^DIE(730,"DR",1,423)="@1;S:'$D(PRCFA(""TT"")) Y="""" S PRCHCOM=$S($D(^PRCF(423,DA,301)):$P(^(301),U,7),1:"""") S:PRCHCOM="""" PRCHASK=1,Y=336;307;W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=341;"
^DIE(730,"DR",1,423,1)="1STATION NUMBER (FACILITY)~;3;341;310.5;346;344;303;301;S Y=305;325;325;305;302;330;"
^DIE(730,"DR",1,423,2)="W:PRCHCOM="""" !,*7,""Date of Receipt should be filled in ONLY for Subsistance Items."" S:PRCHCOM'=8 $P(^PRCF(423,DA,300),U,22)="""" S Y=$S(PRCHCOM=8:306.1,PRCHCOM="""":306.1,""1,2""[PRCHCOM:383,1:336);326;306.1;S Y=336;326;326;383;336;"
^DIE(730,"DR",1,423,3)="I $D(PRCHASK) K PRCHASK S Y=""@1"";S PRCHCOM=X I PRCHCOM=8,$P(^PRCF(423,DA,300),U,22)="""" W *7,!,""You must enter a DATE OF RECEIPT for Subsistence"" S Y=306.1;"
^DIE(731,0)="PRCHL700^2890418^^423^^^^"
^DIE(731,"DIAB",1,0,423,2)="1;""STATION NUMBER (FACILITY)"""
^DIE(731,"DIAB",4,0,423,0)="308;""N.I.I.N (STOCK NUMBER)"""
^DIE(731,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""" S PRCHCS(""CANC"")="""" I $D(^PRCF(423,DA,301)) S PRCHCS(""CANC"")=$P(^(301),U,30),PRCHCOM=$S($D(^PRC(441.2,+$P(^(301),U,35),0)):$P(^(0),U,4),1:"""");S Y=308;326;308N.I.I.N (STOCK NUMBER)~;"
^DIE(731,"DR",1,423,1)="W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),!;W !,""  Enter Serial Number for new acquisitions, unless you wish to have"",!,""  the LOG system assign the number for you."" S Y=310.6;"
^DIE(731,"DR",1,423,2)="1STATION NUMBER (FACILITY)~;3;310.6;303;364;S:$D(^PRC(441.2,+X,0)) PRCHCOM=$P(^(0),U,4) I $D(PRCHTYP) S Y=330;361;S PRCHCS(""CANC"")=X;330;336///^S X=PRCHCOM;344;W !,""Reason Code = G"" S Y=340;325;340///^S X=""G"";301;302;347;348;"
^DIE(731,"DR",1,423,3)="S Y=306;327;306;I PRCHCS(""CANC"")="""" S Y=""@1"";365;W !,""   Enter Date of Original Requisition."" S Y=306.2;325;306.2;@1;W !,""Source Code=3"";341///^S X=3;"
^DIE(732,0)="PRCHPM DEPT EDIT^2890413^^420^^^^"
^DIE(732,"DR",1,420)="1;"
^DIE(732,"DR",2,420.01)="19;"
^DIE(733,0)="PRCFA TT938.08^2881121^^423^^^^"
^DIE(733,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20///2;14;10;11;13;998///$;"
^DIE(734,0)="PRCFA TT938.01^2881121^^423^^^^"
^DIE(734,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;11;13;998///$;"
^DIE(735,0)="PRCFA TT938.07^2881205^^423^^^^"
^DIE(735,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;S Y=998;11;12;998///$;"
^DIE(736,0)="PRCFA TT938.10^2881121^^423^^^^"
^DIE(736,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;11;13;I X'=1093 S Y=998;111;998///$;"
^DIE(736,"DR",2,423.17)=".01;I X[""$"" S Y="""";1;"
^DIE(737,0)="PRCFA TT938.21^2881121^^423^^^^"
^DIE(737,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;S Y=998;11;13;998///$;"
^DIE(738,0)="PRCFA TT938.28^2881121^^423^^^^"
^DIE(738,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20///2;14;998///$;"
^DIE(739,0)="PRCFA TT938.30^2881205^^423^^^^"
^DIE(739,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;10;11;13;W !,""  "";111;998///$;"
^DIE(739,"DR",2,423.17)=".01;I X[""$"" S Y="""";1;"
^DIE(740,0)="PRCFA TT938.41^2881205^^423^^^^"
^DIE(740,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;998///$;"
^DIE(741,0)="PRCFA TT938.32^2881205^^423^^^^"
^DIE(741,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6//X028;20///2;14;S Y=11;10;11;13;111;998///$;"
^DIE(741,"DR",2,423.17)=".01;1;"
^DIE(742,0)="PRCFA TT938.55^2881205^^423^^^^"
^DIE(742,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6//X028;20;I 12'[X W *7,"" ??"",!,""Receivable Code must be a 1 or a 2 only"" S Y=20;14;S Y=11;10;11;13;998///$;"
^DIE(743,0)="PRCFA TT938.54^2881205^^423^^^^"
^DIE(743,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20///1;14;998///$;"
^DIE(744,0)="PRCHL551^2900201.1504^^423^^^^"
^DIE(744,"DR",1,423)="I '$D(PRCFA(""TT"")) S Y="""";345;368;369;W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=$S($D(PRCHTYP):304,1:""@1"");1;3;326;326;@1;"
^DIE(744,"DR",1,423,1)="W !,""Is this a 'Pending Receipt Release Transaction? "" R X:DTIME S:'$T X=""^"" S:X[""^"" Y="""" S:X[""Y""!(X[""y"") Y=304 I X[""?"" W *7,!,""Answer YES to release entire Depot Pending Receipt, NO to do individual"",!,"" Item Detail Change Transaction"" S Y=""@1"";"
^DIE(744,"DR",1,423,2)="308;371;372;373;374;304;370;S Y=$S($P(^PRCF(423,DA,300),U,9)]"""":375,1:""@2"");375;376;343;@2;I $P(^PRCF(423,DA,300),U,9)="""",$D(^(301)),$P(^(301),U,40)'=""R"" S Y="""";I $P(^PRCF(423,DA,300),U,9)]"""",$D(^(301)),$P(^(301),U,40)'=""P"" S Y="""";"
^DIE(744,"DR",1,423,3)="344;S Y="""";327;327;325;"
^DIE(745,0)="PRCHL552^2890523^^423^^^^"
^DIE(745,"DR",1,423)="I '$D(PRCFA(""TT"")) S Y="""";345;368;369;W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=330;1;3;330;S Y=$S($D(PRCHTYP):370,1:308);326;308;371;372;373;374;S Y=370;325;370;"
^DIE(745,"DR",1,423,1)="S Y=$S($D(PRCHTYP)&(X=""R""):344,$D(PRCHTYP):305,X=""P"":344,1:"""");326;344;305;I $D(^PRCF(423,DA,301)),$E(^(301),1,2)'=11,$P(^(301),U,40)'=""P"" S $P(^(301),U,4)="""",Y="""";333;S Y="""";325;326;327;"
^DIE(746,0)="PRCSENMDR^2890513^^410^^^^"
^DIE(746,"%D",0)="^^2^2^2890716^"
^DIE(746,"%D",1,0)="This input template is for recording the multiple delivery"
^DIE(746,"%D",2,0)="distribution quantity amounts."
^DIE(746,"DIAB",2,2,410.212,0)="1:"
^DIE(746,"DR",1,410)="10;"
^DIE(746,"DR",2,410.02)=".01;12;"
^DIE(746,"DR",3,410.212)=".01;^410.6^PRCS(410.6,^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCS(410,D0,""IT"",D1,""2"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(746,"DR",4,410.6)="5;6;"
^DIE(747,0)="PRCSEN1358A^2941230.0906^^410^^^^"
^DIE(747,"%D",0)="^^1^1^2890716^"
^DIE(747,"%D",1,0)="This input template is for creating a 1358 form type adjustment."
^DIE(747,"DIAB",7,0,410,1)="45;""PURPOSE"""
^DIE(747,"DR",1,410)="1///A;3.2;8;49;40;Q;5//TODAY;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@3"";15.5;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@3"";26;@1;25;S PRCSCOST=X;17;17.5;S PRCSCOST=PRCSCOST-X;"
^DIE(747,"DR",1,410,1)="I PRCSCOST W *7,!!,""Adjustment Amount does not equal the Subaccount $ Amount."",!,""Please correct the error."" S Y=""@1"";@3;D RB^PRCSCK;16;@2;S Y=45;45PURPOSE~;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=60;42;"
^DIE(747,"DR",1,410,2)="60;"
^DIE(747,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(748,0)="PRCHAMT89^2970307.1153^^442^^^2970822"
^DIE(748,"DR",1,442)="35///^S X=PRCHAMT;"
^DIE(748,"DR",2,442.1)="D BREAK^PRCHFPDS;I PRCHSC'=5 S Y=""@10"";1////^S X=120;S Y=""@20"";@10;1;@20;2///^S X=PRCHCN;I PRCHSC'=5 S Y=""@1"";1.1////^S X=132;1.2////^S X=155;S Y=""@2"";@1;D COMP^PRCHFPDS;@11;1.1;D PREF^PRCHFPDS;@12;1.2;@2;D D1^PRCHFPDS;"
^DIE(749,0)="PRCHPUSH^2890608^^442^^^^"
^DIE(749,"AB","^",.02)="2^PRCHT2"
^DIE(749,"AB","^",.02,"///")=""
^DIE(749,"AB","^",.1)="3^PRCHT2"
^DIE(749,"AB","^",.2)="4^PRCHT2"
^DIE(749,"AB","^",.2,"///")=""
^DIE(749,"AB","^",.3)="5^PRCHT2"
^DIE(749,"AB","^",.3,"///")=""
^DIE(749,"AB","^",1)="11^PRCHT2"
^DIE(749,"AB","^",5)="6^PRCHT2"
^DIE(749,"AB","^",5.2)="15^PRCHT2"
^DIE(749,"AB","^",5.4)="19^PRCHT2"
^DIE(749,"AB","^",5.6)="17^PRCHT2"
^DIE(749,"AB","^",6)="1^PRCHT21"
^DIE(749,"AB","^",6,"///")=""
^DIE(749,"AB","^",7)="4^PRCHT21"
^DIE(749,"AB","^",8)="9^PRCHT2"
^DIE(749,"AB","^",15)="7^PRCHT21"
^DIE(749,"AB","^",16)="5^PRCHT21"
^DIE(749,"AB","^",20)="6^PRCHT21"
^DIE(749,"AB","^",102.4)="8^PRCHT2"
^DIE(749,"DR",1,442)="S (PRCHN(""SVC""),PRCHN(""SC""),PRCHNRQ)="""",PRCHN(""MP"")=5,PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19) I $D(^PRC(442,DA,1)),$D(^PRCD(420.8,+$P(^(1),U,7),0)) S PRCHN(""SC"")=$P(^(0),U,1);.02////^S X=8;.1;.2///^S X=""N"";.3///^S X=""E"";5;"
^DIE(749,"DR",1,442,1)="S:PRCHN(""SC"")'=1 Y=8;102.4;8//^S X=PRCHN(""SC"");S PRCHN(""SC"")=$S($D(^PRCD(420.8,+X,0)):$P(^(0),U,1),1:"""") K DIC(""DR"");1;Q;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);Q;5.2//^S X=PRCHN(""SVC"");Q;5.6;"
^DIE(749,"DR",1,442,2)="I X=""PATIENT"" W *7,""No Patient Deliveries allowed from Federal Sources."" S Y=5.6;5.4//^S X=1;6///NO;Q;Q;7//^S X=""TODAY"";16;20;15;K PRCHN,PRCHB;"
^DIE(749,"ROU")="^PRCHT2"
^DIE(749,"ROUOLD")="PRCHT2"
^DIE(750,0)="PRCFA TT900.00^2890801^^423^^^^"
^DIE(750,"DR",1,423)="150;S Y=5;1;5;151;152;153;154;155;156;157;43;23;158;159;160;161;162;163;164;165;166;167;168;172;173;169;170;171;998///^S X=""~"";"
^DIE(751,0)="PRCB NEW TRANSACTION^2940706.0957^^421^^^^"
^DIE(751,"DR",1,421)="1;I X="""" S Y=""^"" Q;S PRC(""CP"")=+X;S X=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),+$P(^PRCF(421,DA,0),""^"",2));1.6///^S X=$S($G(PRC(""BBFY"")):PRC(""BBFY""),1:""^"");"
^DIE(751,"DR",1,421,1)="S PRC(""BAL"")=$$FCPBAL^PRC0D(PRC(""SITE""),PRC(""CP""),PRC(""FY""),1),PRC(""SFCP"")=$$SFCP^PRC0D(PRC(""SITE""),PRC(""CP""));3;I X="""" S Y=6;5;14;15;16;2;6;@11;7;S:X'<0!(X+PRC(""BAL"")'<0) Y=""@12"";7///^S X=""@"";"
^DIE(751,"DR",1,421,2)="S Y=""@11"" W ""   Insufficent Funds - cannot complete this transaction."";@12;S:PRC(""SFCP"")=2 Y=""@15"";8;S:X'<0!(X+$P(PRC(""BAL""),U,2)'<0) Y=""@13"";8///^S X=""@"";S Y=""@12"" W ""   Insufficent Funds - cannot complete this transaction."";@13;"
^DIE(751,"DR",1,421,3)="9;S:X'<0!(X+$P(PRC(""BAL""),U,3)'<0) Y=""@14"";9///^S X=""@"";S Y=""@13"" W ""   Insufficent Funds - cannot complete this transaction."";@14;10;S:X'<0!(X+$P(PRC(""BAL""),U,4)'<0) Y=""@15"";10///^S X=""@"";"
^DIE(751,"DR",1,421,4)="S Y=""@14"" W ""   Insufficent Funds - cannot complete this transaction."";@15;S X1=^PRCF(421,DA,0),X2=$P(X1,""^"",7)+$P(X1,""^"",8)+$P(X1,""^"",9)+$P(X1,""^"",10) W !,""TOTAL FUNDING= $ "",$J(X2,0,2) K X2,X1;52//NON-RECURRING;I X=""R"" S Y=""@1"";"
^DIE(751,"DR",1,421,5)="53///^S X="""";S Y=17;@1;53;17;"
^DIE(752,0)="PRCB RD2-285 ALL^2850418^^421^^^^"
^DIE(752,"DR",1,421)="40;41;42;43;44;45;46;47;48;49;50;51;"
^DIE(753,0)="PRCB ENTER TRANS^2940530.1551^^421.1^^^^"
^DIE(753,"DIAB",2,0,421.1,0)="1//TODAY"
^DIE(753,"DIAB",5,1,421.14,1)="1///S X=""@"""
^DIE(753,"DR",1,421.1)="Q;1//^S X=DT;4;5;Q;6////^S X=DUZ;"
^DIE(753,"DR",2,421.14)=".01;S PRC(""CP"")=X;S X=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),+PRC(""CP"")) S:$G(PRC(""BBFY""))="""" X=""^"";S PRC(""BAL"")=$$FCPBAL^PRC0D(PRC(""SITE""),PRC(""CP""),PRC(""FY""),1),PRC(""SFCP"")=$$SFCP^PRC0D(PRC(""SITE""),PRC(""CP""));.5///^S X=PRC(""BBFY"");"
^DIE(753,"DR",2,421.14,1)="@11;1;S:X'<0!(X+PRC(""BAL"")'<0) Y=""@12"";Q;1///^S X=""@"";S Y=""@11"" W ""   Balance cannot be negative."";@12;S:PRC(""SFCP"")=2 Y=""@15"";2;S:X'<0!(X+$P(PRC(""BAL""),U,2)'<0) Y=""@13"";2///^S X=""@"";S Y=""@12"" W ""   Balance cannot be negative."";"
^DIE(753,"DR",2,421.14,2)="@13;3;S:X'<0!(X+$P(PRC(""BAL""),U,3)'<0) Y=""@14"";3///^S X=""@"";S Y=""@13"" W ""   Balance cannot be negative."";@14;4;S:X'<0!(X+$P(PRC(""BAL""),U,4)'<0) Y=""@15"";4///^S X=""@"";S Y=""@14"" W ""   Balance cannot be negative."";@15;"
^DIE(753,"DR",2,421.14,3)="S X1=^PRCF(421.1,DA(1),1,DA,0),X2="""" F ZX=2:1:5 S X2=X2+$P(X1,""^"",ZX);W !,""TOTAL FUNDING= $ "",$J(X2,0,2) K X1,X2,ZX;5//NON-RECURRING;I X=""R"" S Y=""@1"";Q;6///^S X="""";S Y="""";@1;6;"
^DIE(754,0)="PRCB READER FILE EDIT^2940530.1552^^421.6^^^^"
^DIE(754,"DIAB",1,0,421.6,0)="1;""TRANSFER FROM CONTROL POINT"""
^DIE(754,"DIAB",3,0,421.6,3)="4.5;""FOR WHICH QUARTER"""
^DIE(754,"DIAB",5,0,421.6,0)="2;""TRANSFER TO CONTROL POINT"""
^DIE(754,"DIAB",6,0,421.6,3)="3;""AMOUNT TO TRANSFER"""
^DIE(754,"DIAB",6,0,421.6,4)="4//TODAY"
^DIE(754,"DR",1,421.6)="1TRANSFER FROM CONTROL POINT~;S PRCB(""FRCP"")=X;S X=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),+PRCB(""FRCP""));S PRCB(""BAL"")=$$FCPBAL^PRC0D(PRC(""SITE""),+PRCB(""FRCP""),PRC(""FY""),1);2TRANSFER TO CONTROL POINT~;S PRCB(""TOCP"")=X;"
^DIE(754,"DR",1,421.6,1)="I PRCB(""FRCP"")=PRCB(""TOCP"") W "" TO and FROM Control Points cannot be the same."",$C(7) S Y=1;S X=$$APP^PRC0C(PRC(""SITE""),PRC(""FY""),PRCB(""FRCP"")),PRC(""PGM"")=$P(X,U,3);S PRCB(""FC"")=$$FUND^PRC0C($P(X,U,2),PRC(""BBFY""));"
^DIE(754,"DR",1,421.6,2)="S X=$$APP^PRC0C(PRC(""SITE""),PRC(""FY""),PRCB(""TOCP"")),PRC(""TOPGM"")=$P(X,U,3);S X=$$FUND^PRC0C($P(X,U,2),PRC(""BBFY"")) I X-PRCB(""FC"") W ""  Must be in the same fund!"" S Y=2;"
^DIE(754,"DR",1,421.6,3)="I PRC(""PGM"")'=PRC(""TOPGM""),$P(PRCB(""FC""),U,8)=""N"" W ""  Fund transfer not allowed."" S Y=1;1.5///^S X=PRC(""BBFY"");4.5FOR WHICH QUARTER~;S PRCB(""QTR"")=X;@11;3AMOUNT TO TRANSFER~;"
^DIE(754,"DR",1,421.6,4)="I $P(PRCB(""BAL""),U,PRCB(""QTR""))-X'<0 S Y=""@12"",PRCB(""AMOUNT"")=X;W ""  Balance cannot be negative."" S Y=""@11"";Q;@12;Q;4//^S X=DT;S PRCB(""TDT"")=X;8;S PRCB(""RNR"")=X I X=""R"" S Y=""@1"";9///^S X="""";S PRCB(""ANAMT"")="""";S Y=5;@1;9;"
^DIE(754,"DR",1,421.6,5)="S PRCB(""ANAMT"")=X;5;"
^DIE(755,0)="PRCB VENDOR EDIT^2890720^^421.6^^^^"
^DIE(755,"DR",1,421.6)="31;32;24;25;26;27;28;29;30;22;23;"
^DIE(756,0)="PRCF CI VOUCHER AUDIT^2950815.1713^^421.5^^^^"
^DIE(756,"DIAB",2,0,421.5,0)=".6//YES;""Certification Required by non-Fiscal Service?"""
^DIE(756,"DR",1,421.5)="S PRCFD(""DOI"")=$P($G(^PRCF(421.5,DA,0)),U,4);.6Certification Required by non-Fiscal Service?~//YES;I X,'$D(PRCFD(""NEW"")) S %A=""Does this invoice need to be returned for recertification"";"
^DIE(756,"DR",1,421.5,1)="I X,'$D(PRCFD(""NEW"")) S %B="""",%=2 K PRCFD(""RECERT"") D ^PRCFYN Q:%<0  I %=1 S PRCFD(""RECERT"")="""";I $P($G(^PRCF(421.5,DA,2)),U,3)]"""" W !,""Purchase Order Number => "",$P(^(2),""^"",3) S Y=51;4.5;51;1;D DUP^PRCFDIC;@1;2;"
^DIE(756,"DR",1,421.5,2)="S PRCFD(""DOI"")=X,PRCFD(""PODA"")=$P($G(^PRCF(421.5,DA,0)),U,7);S PRCFD(""DOP"")=$P($G(^PRC(442,+PRCFD(""PODA""),1)),U,15);"
^DIE(756,"DR",1,421.5,3)="I PRCFD(""DOP""),PRCFD(""DOP"")>PRCFD(""DOI"") W !?5,""Warning: DATE OF INVOICE is before P.O. DATE: "" S Y=PRCFD(""DOP"") D DD^%DT W Y K Y;3//^S X=""TODAY"";"
^DIE(756,"DR",1,421.5,4)="S PRCFD(""DIR"")=X I PRCFD(""DOI"")>PRCFD(""DIR"") W !?5,""Cannot receive invoice before DATE OF INVOICE !"" S Y=2;4//NORMAL;"
^DIE(756,"DR",1,421.5,5)="I X=""X"" S %A=""This invoice is now flagged as MONEY MANAGEMENT EXEMPT.  Is this CORRECT"",%B="""",%=2 D ^PRCFYN I %'=1 S Y=4;"
^DIE(756,"DR",1,421.5,6)="S PRCFD(""INV TYPE"")=X,PRCF(""PTR"")=$F(""AMPXCDFV"",X),PRCF(""DAYS"")=$P(""^30^7^10^30^30^10^30^15"",U,PRCF(""PTR"")),PRCF(""NAME"")=$P(""^Normal^Meat^Produce^Money Mgt Exempt^Contract^Dairy^Progress^Prime Vendor"",U,PRCF(""PTR"")) W ""     "",PRCF(""NAME"");"
^DIE(756,"DR",1,421.5,7)="D PPT^PRCFDIC;31//1;I +X=0 S $P(^PRCF(421.5,DA,0),""^"",12,13)=""0^X"",$P(^(2),""^"",6)="""",Y=""@3"";S PRCFD(""DOD"")=X;S ZX="""" I X]"""" S X2=PRCFD(""DOD""),X1=PRCFD(""DOI"") D C^%DTC S ZX=X;55//^S X=ZX;K ZX,PRCFD(""DOD"");11//STANDARD;@3;"
^DIE(756,"DR",1,421.5,8)="S X=PRCFD(""INV TYPE""),X=$S(X=""M"":7,""PD""[X:10,X=""V"":15,1:30);S PRCF(""X"")=X,ZX=PRCFD(""INV TYPE"");S PRCF(""PT"")=""^Normal^Meat^Produce^Money Mgt Exempt^Contract^Dairy^Progress^Prime Vendor"";"
^DIE(756,"DR",1,421.5,9)="I X'=$S(ZX=""M"":7,""PD""[ZX:10,ZX=""V"":15,1:30) W *7 S %=$F(""AMPXCDFV"",ZX) S %A=""Product type ""_$P(PRCF(""PT""),""^"",%)_"" not compatible with Net Days."",%A(1)=""OK TO CONTINUE"",%B="""",%=2 D ^PRCFYN S Y=$S(%=1:""@2"",%=2:39,1:"""");@2;K ZX;37;"
^DIE(756,"DR",1,421.5,10)="W ""  $ ""_$J(X/100,0,2);38;W ""  $ ""_$J(X/100,0,2);"
^DIE(756,"DR",2,421.531)=".01//1;2//^S X=""NET"";I X?1N.E!(X?1"".""1N.E)!(X=""NET"") S Y=4;3;4//^S X=PRCF(""DAYS"");"
^DIE(757,0)="PRCF CI BORROWER^2930128.1334^^421.5^^^^"
^DIE(757,"DR",1,421.5)="70;Q;57//^S X=""T+7"";"
^DIE(757,"DR",2,421.51)=".01;Q;1///^S X=""NOW"";Q;2////^S X=DUZ;"
^DIE(758,0)="PRCF CI CHECK-IN^2941013.0855^^421.5^^^^"
^DIE(758,"DR",1,421.5)="S (PRCFD(""AMT CERT""),PRCFD(""CERT SHP""))="""";S PRCFD(""INV AMT"")=$P($G(^PRCF(421.5,DA,1)),""^"",8) S:PRCFD(""INV AMT"") PRCFD(""INV AMT"")=PRCFD(""INV AMT"")/100;"
^DIE(758,"DR",1,421.5,1)="S PRCFD(""SHP AMT"")=$P($G(^PRCF(421.5,DA,1)),""^"",9) S:PRCFD(""SHP AMT"") PRCFD(""SHP AMT"")=PRCFD(""SHP AMT"")/100;W !,""Amount of Invoice => $ "",$J(PRCFD(""INV AMT""),0,2);13//^S X=$S(PRCFD(""INV AMT""):PRCFD(""INV AMT""),1:"""");"
^DIE(758,"DR",1,421.5,2)="W ""   $ ""_$J(X/100,0,2) S PRCFD(""AMT CERT"")=X/100;W !,""Shipping on Invoice => $ "",$J(PRCFD(""SHP AMT""),0,2);12//^S X=$S(PRCFD(""SHP AMT""):PRCFD(""SHP AMT""),1:"""");W ""  $ ""_$J(X/100,0,2) S PRCFD(""CERT SHP"")=X/100;11.5;S PRCF(""DGR"")=X;"
^DIE(758,"DR",1,421.5,3)="I PRCFD(""INV AMT""),PRCFD(""INV AMT"")>PRCFD(""AMT CERT"") S Y=""@1"";I PRCFD(""SHP AMT""),PRCFD(""CERT SHP"")<PRCFD(""SHP AMT"") S Y=""@2"";S Y="""";@1;W !!,""Amount Certified is less than Amount Invoiced."",*7 S Y=25;@2;"
^DIE(758,"DR",1,421.5,4)="W !!,""Certified Shipping is less than Invoiced Shipping Charges."",*7;25;I 'X W !! S Y="""";23;W !!;"
^DIE(759,0)="PRCB STATUS FUNDS^2870413^^420^^^^"
^DIE(759,"DR",1,420)="1;"
^DIE(759,"DR",2,420.01)="10;S X(1)=X;11///^S X=X(1);K X(1);"
^DIE(760,0)="PRCH-DEP LOG 401^2900523.134^^423^^^^"
^DIE(760,"DR",1,423)="408//7M1;Q;384//0;Q;386//0;387//793;"
^DIE(761,0)="PRCH-REC7 LOG 431/434^2900815.1638^^423^^^^"
^DIE(761,"DR",1,423)="@1;394;I $D(PRCHDEP),'X,PRCFA(""FSC"")?1""6505"".E!(PRCFA(""FSC"")?1""89"".E) S Y=""@1"";395//0;396///1;397//N;398;399;409//CT;401;402;300.1///^S X=PRCFA(""LBN"");S:$P(^PRC(442,PRCHPO,1),U,6)=""D"" Y="""";403;"
^DIE(762,0)="PRCHL604^2910416.095^^423^^^^"
^DIE(762,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";K PRCHCS S PRCHCS(""SC"")=$S($D(^PRCF(423,DA,301)):$P(^(301),U,12),1:""""),PRCHCS(""MAND"")="""";@1;307;S:X="""" Y=""@1"";W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: ""_PRCFA(""TT""),! S Y=421;1;3;421;"
^DIE(762,"DR",1,423,1)="422;302;301;423;@3;344;4;S Y="""";310;310.5;"
^DIE(763,0)="PRCHL712^2910415.0943^^423^^^^"
^DIE(763,"DIAB",1,0,423,1)="1;""STATION NUMBER (FACILITY)"""
^DIE(763,"DR",1,423)="@1;S:'$D(PRCFA(""TT"")) Y="""" S PRCHCOM=$S($D(^PRCF(423,DA,301)):$P(^(301),U,7),1:"""") S:PRCHCOM="""" PRCHASK=1,Y=336;307;W !,""Station No.: "",$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: "",PRCFA(""TT""),! S Y=341;"
^DIE(763,"DR",1,423,1)="1STATION NUMBER (FACILITY)~;3;341;310.5;346;344;303;301;S Y=305;325;325;305;302;330;"
^DIE(763,"DR",1,423,2)="W:PRCHCOM="""" !,*7,""Date of Receipt should be filled in ONLY for Subsistance Items."" S:PRCHCOM'=8 $P(^PRCF(423,DA,300),U,22)="""" S Y=$S(PRCHCOM=8:306.1,PRCHCOM="""":306.1,""1,2""[PRCHCOM:383,1:336);326;306.1;S Y=336;326;326;383;336;"
^DIE(763,"DR",1,423,3)="I $D(PRCHASK) K PRCHASK S Y=""@1"";S PRCHCOM=X I PRCHCOM=8,$P(^PRCF(423,DA,300),U,22)="""" W *7,!,""You must enter a DATE OF RECEIPT for Subsistence"" S Y=306.1;"
^DIE(764,0)="PRCHL664^2910625.1343^^423^^^^"
^DIE(764,"DR",1,423)="@1;S Y=$S($D(PRCFA(""TT"")):411,1:"""");@2;@3;307;S Y=""@5"";@4;1;3;@5;420;410;S Y=PRCHCS(""TYPE""),Y=$S(""LP""[Y:415,Y=""X"":"""",1:""@6"");411;S Y=$S(""ACD""[X:""@2"",X=""M"":"""",1:""@5""),PRCHCS(""TYPE"")=X;@6;K X,Y;"
^DIE(764,"DR",1,423,1)="412//^S X=PRCHCS(""TYPE""),X=$S(X=""D"":""*****"",1:"""");S:PRCHCS(""TYPE"")=""D"" Y="""";419;418;S Y=""@8"";325;@8;331;332;S Y=413;325;325;413;414;415;S:PRCHCS(""TYPE"")=""L"" Y="""";416;S:PRCHCS(""TYPE"")=""P"" Y="""";@12;417;S Y="""";327;325;325;"
^DIE(765,0)="PRCHL642^2910415.092^^423^^^^"
^DIE(765,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";K PRCHCS S:'$D(PRCHCS(""SC"")) PRCHCS(""SC"")=$S($D(^PRCF(423,DA,301)):$P(^(301),U,12),1:"""") S:'$D(PRCHCS(""MAND"")) PRCHCS(""MAND"")="""";S Y=308;326;308;"
^DIE(765,"DR",1,423,1)="W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: ""_PRCFA(""TT""),! S Y=340;1;3;340//^S X=1;341;S PRCHCS(""SC"")=X;309;303;S:""01""'[PRCHCS(""SC"") Y=301;344;301;S Y=302;325;326;325;325;302;377;345;"
^DIE(765,"DR",1,423,2)="I ""1A""[PRCHCS(""SC""),X="""" W !,*7,""Cannot be blank for source code 1 or A"" S Y=345;346//^S X=""A"";304;306.1;K PRCHCS;"
^DIE(766,0)="PRCHL605^2910416.1042^^423^^^^"
^DIE(766,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";K PRCHCS S PRCHCS(""SC"")=$S($D(^PRCF(423,DA,301)):$P(^(301),U,12),1:""""),PRCHCS(""MAND"")="""";@1;307;S:X="""" Y=""@1"";W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: ""_PRCFA(""TT""),! S Y=426;1;3;426;"
^DIE(766,"DR",1,423,1)="422;424;425;423;@3;344;4;S Y="""";310;310.5;"
^DIE(767,0)="PRCHL607^2910619.1513^^423^^^^"
^DIE(767,"DIAB",1,0,423,2)="419;""Control Point "";REQ"
^DIE(767,"DIAB",2,0,423,1)="425;""VALUE (Inventory) "";REQ"
^DIE(767,"DIAB",4,0,423,0)="307;REQ"
^DIE(767,"DIAB",7,0,423,1)="4;""Date Voucher No. Assigned."""
^DIE(767,"DIAB",8,0,423,1)="420;""Department Number "";REQ"
^DIE(767,"DIAB",10,0,423,2)="418;""Cost Center "";REQ"
^DIE(767,"DIAB",12,0,423,0)="424;""QUANTITY """
^DIE(767,"DR",1,423)="S:'$D(PRCFA(""TT"")) Y="""";@11;@1;307R~;S:X="""" Y=""@1"";W !,""Station No.: ""_$P(^PRCF(423,DA,0),U,2),!,""Transaction Code: ""_PRCFA(""TT""),! S Y=427;1;3;427;S PRCFA(""ARC"")=X;422;424QUANTITY ~;"
^DIE(767,"DR",1,423,1)="S:+X=0 Y=$S(PRCFA(""ARC"")=""D"":424,X="""":424,1:425);425R~VALUE (Inventory) ~;S Y=$S(PRCFA(""ARC"")=""C"":377,PRCFA(""ARC"")=""D"":377,1:423) S:X="""" Y=425;423;S:X="""" Y=423;377;4Date Voucher No. Assigned.~;420R~Department Number ~;S:X="""" Y=420;"
^DIE(767,"DR",1,423,2)="419R~Control Point ~;S:X="""" Y=419;S Y=$S(PRCFA(""ARC"")=""D"":428,PRCFA(""ARC"")=""E"":430,1:429);428;S Y=429;327;429;@10;430;418R~Cost Center ~;S:X="""" Y=418;305;333;S Y="""";325;"
^DIE(768,0)="PRCFA TT924.41^2910904.0916^^423^^^^"
^DIE(768,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;W !,""  "";17;I X=""$"" S Y="""";13;14;18;998///$;"
^DIE(769,0)="PRCFA TT938.09^2920309.1114^^423^^^^"
^DIE(769,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6;20;14;64;11;99;998///$;"
^DIE(770,0)="PRCFA TT972.13^2920309.1138^^423^^^^"
^DIE(770,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=44;23;41;44;43;51;13//0245;14;S Y=15;18;15//3012;I X=""$"" S Y="""";S Y=6;16;19;52;I X=""$"" S Y="""";12;Q;Q;6;S Y=45;10;11;53;45;46;47;48;49;50;998///$;"
^DIE(771,0)="PRCFA TT925.30^2920210.1817^^423^^^^"
^DIE(771,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;27;6///X028;S Y=14;11;13;12;14;S Y=998;26;16;998///$;"
^DIE(772,0)="PRCFA TT970.06^2920210.1829^^423^^^^"
^DIE(772,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;S Y=104;55;23;104;6;56;57;S Y=998;26;82;58;84;82;58;84;60;46;47;48;49;50;998///$;"
^DIE(773,0)="PRCFA TT922.10^2920212.1742^^423^^^^"
^DIE(773,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;89;998///$;K SC;"
^DIE(773,"DR",2,423.12)=".01;1;S SC=+X;2;I SC=4 S Y=4;3;4;I SC>5 S Y="""";5;I SC=2 S Y="""";6;S Y="""";7;"
^DIE(774,0)="PRCFA TT951.11^2921002.1132^^423^^^^"
^DIE(774,"DIAB",1,1,423.0117,0)="ALL"
^DIE(774,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;39;10;117;31//A;I X=""$"" S Y=998;30;32//B;I X=""$"" S Y=998;35;33//C;I X=""$"" S Y=998;36;37;34//D;I X=""$"" S Y=998;38;998///$;"
^DIE(774,"DR",2,423.0117)=".01:2"
^DIE(774,"DR",2,423.03)=".05;1;2;3;"
^DIE(774,"DR",2,423.04)=".05;1;2;3;"
^DIE(775,0)="PRCFA TT929.30^2920219.1728^^423^^^^"
^DIE(775,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;6//..;S Y=77;8;77;S Y=52;64;52;13;S Y=79;106;79;W !,"" "";78;S:X=""$""!(X="""") Y=998;S Y=54;73;54;15;S Y=80;107;80;998///$;"
^DIE(776,0)="PRCFA TT920.41^2920706.1516^^423^^^^"
^DIE(776,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;25;81;120;8;77;13;116;I X="""" S Y=118;116.1;116.2;116.3;116.4;I X="""" S Y=118;116.5;116.6;116.7;116.8;I X="""" S Y=118;116.9;117.1;117.2;117.3;I X="""" S Y=118;117.4;117.5;117.6;118;119;117;998///$;"
^DIE(776,"DR",2,423.0117)=".01;2;"
^DIE(777,0)="PRCE 1358 ADJUSTMENT^2940707.163^^410^^^^"
^DIE(777,"%D",0)="^^1^1^2890716^"
^DIE(777,"%D",1,0)="This input template is for creating a 1358 form type adjustment."
^DIE(777,"DIAB",8,0,410,0)="5//TODAY"
^DIE(777,"DIAB",9,0,410,1)="45;""PURPOSE"""
^DIE(777,"DR",1,410)="1///A;Q;S PRCSCOST=0;8;49;40;Q;5//^S X=DT;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>1 S Y=""@1"";15.5;I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",12)>0 S Y=""@1"";26;@1;25;S PRCSCOST=X;17;"
^DIE(777,"DR",1,410,1)="17.5//^S X=PRCSCOST;S PRCSCOST=PRCSCOST-X;I PRCSCOST W *7,!!,""Adjustment Amount does not equal the Subaccount $ Amount."",!,""Please correct the error."" S Y=""@1"";@3;D RB^PRCSCK;16;@2;S Y=45;45PURPOSE~;"
^DIE(777,"DR",1,410,2)="I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=60;42;60;"
^DIE(777,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(778,0)="PRCE NEW 1358^2981201.1453^^410^^^2990519"
^DIE(778,"DIAB",6,0,410,3)="45;""PURPOSE"""
^DIE(778,"DR",1,410)="1///O;S PRCS1MO=X;8;49;40;Q;5//TODAY;21//^S X=$E(DT,4,5)_""/01/""_$E(DT,2,3);@1;20;S $P(^PRCS(410,DA,3),U,7)=X;"
^DIE(778,"DR",1,410,1)="S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;"
^DIE(778,"DR",1,410,2)="S X=$P($G(^PRCS(410,DA,3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA,3),U,6)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);17;@44;D RB^PRCSCK;16;@2;S:$P($G(^PRCS(410,DA,2)),U)]"""" Y=""@25"";"
^DIE(778,"DR",1,410,3)="W !,""Do you want to enter a vendor for this 1358 request"" S %=2 D YN^DICN I %'=1 W:%=0 !,""Enter 'YES' if you want to enter a vendor and vendor contract # for this request."" S Y=$S(%=0:""@2"",%<0:"""",1:45);@25;11;13;S Y=45;45PURPOSE~;"
^DIE(778,"DR",1,410,4)="I $D(^PRC(420,PRC(""SITE""),1,+PRC(""CP""),0)),$P(^(0),""^"",11)=""Y"" S Y=68;42;68;K PRCSCOST,PRCSBOST,PRCS1MO;60;"
^DIE(778,"DR",2,410.04)=".01;1;D RB1^PRCSCK;"
^DIE(779,0)="PRCFA TT922.21^2920224.1003^^423^^^^"
^DIE(779,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;89;998///$;"
^DIE(779,"DR",2,423.12)=".01;1;2;3;4;S Y=6;5;6;S Y="""";7;"
^DIE(780,0)="PRCO EDI VENDOR^2930114.1418^^440^^^^"
^DIE(780,"DR",1,440)=".2;.4;"
^DIE(781,0)="PRCB 285 CATEGORY EDIT^2930209.1317^^420.7^^^^"
^DIE(781,"%D",0)="^^1^1^2930216^^^"
^DIE(781,"%D",1,0)="USED WITH BUDGET ANALYST EDIT BUDGET CATEGORY MENU OPTION."
^DIE(781,"DR",1,420.7)=".01;1;2;"
^DIE(782,0)="PRCSCP^2890325^^420^^^^"
^DIE(782,"%D",0)="^^1^1^2890830^^"
^DIE(782,"%D",1,0)="This input template is for enter/edit of Control Point."
^DIE(782,"DIAB",1,2,420.03,0)="ALL"
^DIE(782,"DR",1,420)=".01;1;"
^DIE(782,"DR",2,420.01)=".01;.5;1;6;7;"
^DIE(782,"DR",3,420.02)=".01;1;"
^DIE(782,"DR",3,420.03)=".01"
^DIE(783,0)="PRCFA TT973.81^2920723.1346^^423^^^^"
^DIE(783,"DR",1,423)=".1///CLM;S Y=4;1;3;4;5;67///A;25;68;64;69;8;70;998///$;"
^DIE(783,"DR",2,423.08)="1;2;3;4;5;"
^DIE(784,0)="PRCHVENDOR1^3021203.1504^^440^^^3030224"
^DIE(784,"DIAB",1,1,440.02,0)="ALL"
^DIE(784,"DR",1,440)=".01;I $L($P(^PRC(440,DA,0),U))>30 W !!,""The name you entered is over 30 characters long.  When sent to FMS only the"",!,""first 30 characters will go.  You may want to edit the name."",!;1;S PAYADD1=$P($G(^PRC(440,DA,0)),U,2);2;"
^DIE(784,"DR",1,440,1)="S PAYADD2=$P($G(^PRC(440,DA,0)),U,3);S:X="""" Y=4.2;3;S:X="""" Y=4.2;4;4.2;4.4;4.6;46;SET CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;39;@1;"
^DIE(784,"DR",1,440,2)="S ORDER=^PRC(440,DA,0) W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);W !,?18,$P(ORDER,U,6) S STATE=$S($P(ORDER,U,7)>0:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;"
^DIE(784,"DR",1,440,3)="W "" ""_$P(ORDER,U,8),!;17.3//^S X=$E($P(^PRC(440,DA,0),U,2),1,30);17.4//^S X=$S($P($G(^PRC(440,DA,7)),U,4)=""""&($P($G(^(7)),U,7)=""""):$E($P(^PRC(440,DA,0),U,3),1,30),1:"""");17.7//^S X=$E($P(^PRC(440,DA,0),U,6),1,19);"
^DIE(784,"DR",1,440,4)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(784,"DR",1,440,5)="S STATE="""" I $P(^PRC(440,DA,0),U,7)>0 S STATE=$P(^DIC(5,$P(^PRC(440,DA,0),U,7),0),U);17.8//^S X=STATE;17.9//^S X=$P(^PRC(440,DA,0),U,8);41//^S X=""YES"";44;5;4.8;5.1;"
^DIE(784,"DR",1,440,6)="S:'$D(^PRC(440,DA,4,0)) ^PRC(440.3,DA,4,0)=""^""_$P($G(^DD(440,6,0)),U,2)_""^0^0"";6;8.3;Q;10;D CHK^PRCHFPDS;I '$D(^PRC(440,DA,1.1)) S Y=10;K DIE(""NO^"");11;5.2;20;13//NOT APPLICABLE;S:X=""Y"" Y=14;S Y=18.3;14;18.3;"
^DIE(784,"DR",2,440.02)=".01"
^DIE(784,"DR",2,440.03)=".01:2;"
^DIE(784,"DR",2,440.05)=".01;S DIE(""NO^"")=""A"";"
^DIE(785,0)="PRCF CI FMS ACCOUNTING^2941109.0952^^421.5^^^^"
^DIE(785,"DR",1,421.5)="Q;41;D SUM^PRCFDT I '$G(OK) W !?2,""Certified Invoice total $"",$FN(PRCF(""CAMT"")/100,"""",2),"" does not match sum of Line Amounts: $"",$FN(PRCF(""TAMT""),"""",2);"
^DIE(785,"DR",1,421.5,1)="I '$G(OK) W !?7,""FMS will not accept this - please resolve.  If you believe that the"";I '$G(OK) W !?2,""Total Invoice Amount Certified for Payment is incorrect, the invoice should"";"
^DIE(785,"DR",1,421.5,2)="I '$G(OK) W !?2,""be returned to Voucher Audit for review."" S Y=41;I +PRCF(""TAMT"")=0 W !?2,""There are no Line Amounts - FMS will never accept this !"" S Y=41;"
^DIE(785,"DR",2,421.541)=".01;I '$D(PRCFX(""SA"",X)) K X W ""??"" S Y=.01;S PRCFA(""LNO"")=+$P(PRCFX(""SA"",X),U,2);W !,""FMS Line #"",PRCFA(""LNO"") S BOC=X;S PRCFA(""AMT"")=$FN($P(PRCFX(""SA"",X),U),"""",2);W !,""OBLIGATION AMOUNT: "",PRCFA(""AMT"");4///^S X=PRCFA(""LNO"");"
^DIE(785,"DR",2,421.541,1)="S PRCFA(""LAMT"")=$P($G(^PRCF(421.5,PRCF(""CIDA""),5,DA,0)),U,2);1//^S X=$S($G(PRCF(""CAMT""))/100>PRCFA(""AMT""):PRCFA(""AMT""),1:$G(PRCF(""CAMT""))/100);S:$G(PRCFA(""LAMT""))=X Y=""@1"" S PRCFA(""LAMT"")=X;2///^S X=""@"";@1;D DISC^PRCFDT;"
^DIE(785,"DR",2,421.541,2)="I PRCFA(""LIQ"")>PRCFA(""AMT"") W !,""Warning - Computed liquidation amount of $"",$FN(PRCFA(""LIQ""),"""",2),"" exceeds"",!?5,""total obligated amount of $"",$FN(PRCFA(""AMT""),"""",2),"" for BOC "",BOC,"" on "",$P($G(^PRCF(421.5,PRCF(""CIDA""),1)),U,3),""."";"
^DIE(785,"DR",2,421.541,3)="2//^S X=$G(PRCFA(""LIQ""));S PRCFA(""LIQ"")=X,PRCFA(""PF"")="""";I PRCFA(""AMT"")=PRCFA(""LIQ"") S PRCFA(""PF"")=""F"";I PRCFA(""AMT"")>PRCFA(""LIQ"") S PRCFA(""PF"")=""P"";3//^S X=$G(PRCFA(""PF""));Q;"
^DIE(786,0)="PRCHLINE^3060630.1115^^443.6^^^3060705"
^DIE(786,"DIAB",1,1,443.61,24)="PURCHASE ORDER NUMBER:AMENDMENTS TO DELIVERY SCHEDULES:"
^DIE(786,"DIAB",14,1,443.61,9)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(786,"DR",1,443.6)="S PRCHPONO=$P(^PRC(443.6,PRCHPO,0),U);40///^S X=PRCHI1;K DIE(""NO^""),PRCHSEEN,PRCHMORE,PRCHQTY,PRCHTOT,PRCHSCN,PRCHDSCH,PRCHDSFL,PRCHANS,PRCSAVE;"
^DIE(786,"DR",2,443.61)="S (D0,PRCHIEN)=DA(1),PRCHINUM=DA,PRCHREC=DA;K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^DIE(786,"DR",2,443.61,1)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),?3,!,""Description is Required!!"" S Y=1;"
^DIE(786,"DR",2,443.61,2)="S PRCHOLD=$P($G(^PRC(443.6,PRCHIEN,2,PRCHINUM,0)),U,2);S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^DIE(786,"DR",2,443.61,3)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^DIE(786,"DR",2,443.61,4)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");S PRCHQTY=X,PRCHDSFL=0;"
^DIE(786,"DR",2,443.61,5)="I PRCHQTY<$G(PRCHOLD) N I F I=0:0 S I=$O(^PRC(441.7,""AG"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=$G(PRCHTOT)+$P($G(^PRC(441.7,I,0)),U,5) I 'PRCHDSFL S PRCHDSFL=1;"
^DIE(786,"DR",2,443.61,6)="I $G(PRCHTOT)>PRCHQTY,PRCHDSFL W !!!,$C(7),""****Delivery Schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",PRCHQTY,"")."",!,""Edit delivery schedule(s) now."",! S PRCHFLG=1 S Y=""@16"";@44;S DA=PRCHINUM;"
^DIE(786,"DR",2,443.61,7)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^DIE(786,"DR",2,443.61,8)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^DIE(786,"DR",2,443.61,9)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@66"";3.1;9.4;S:X']"""" Y=9;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@66;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");8T~;"
^DIE(786,"DR",2,443.61,10)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^DIE(786,"DR",2,443.61,11)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;"
^DIE(786,"DR",2,443.61,12)="S:PRCHN(""MP"")=2 Y=4;9.3;40//^S X=""D"";S Y=""@4"";41//^S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;@4;4;S PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^DIE(786,"DR",2,443.61,13)="I PRCHN(""SFC"")=2 S $P(^PRC(443.6,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHMA0(-1) S Y=""@87"";3.5//^S X=$$SUPBOC^PRCHMA0(-1);@87;S:$G(PRCHEDI)']"""" Y=""@5"";36.3;36.6;@5;"
^DIE(786,"DR",2,443.61,14)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);"
^DIE(786,"DR",2,443.61,15)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: "",$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),! S Y=""@555"";"
^DIE(786,"DR",2,443.61,16)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R XX:DTIME S:'$T XX=""^"" S:XX="""" XX=""N"" S:XX[""?"" Y=""@5"" S:""Yy?""'[$E(XX) Y="""" W ""  ""_$S(""Yy""[$E(XX):""(YES)"",""Nn""[$E(XX):""(NO)"",1:"""");@16;"
^DIE(786,"DR",2,443.61,17)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: "",$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),!;"
^DIE(786,"DR",2,443.61,18)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!!;@555;"
^DIE(786,"DR",2,443.61,19)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"". You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",!! S Y=""@55"";"
^DIE(786,"DR",2,443.61,20)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^DIE(786,"DR",2,443.61,21)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^DIE(786,"DR",2,443.61,22)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^DIE(786,"DR",2,443.61,23)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."",!!;@55;"
^DIE(786,"DR",2,443.61,24)="^441.7^PRC(441.7,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(441.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");S PRCHNORE=1;S (DA,D1)=PRCHDA,(D0,DA(1))=PRCHDA1;"
^DIE(786,"DR",2,443.61,25)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);I $G(PRCHTOT)>$G(PRCHQTY) W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity"",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."",! S Y=""@16"";"
^DIE(786,"DR",2,443.61,26)="I $G(PRCHFLG)=1 W !!!,""****Returning to Item Multiple session."",!! S Y=""@44"" S PRCHFLG=0;W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T S=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";"
^DIE(786,"DR",3,441.7)="S PRCHAA=$P($G(^PRC(441.7,D0,0)),U),PRCHAB=+$P($G(^PRC(441.7,D0,0)),U,7),PRCHYY=D0_""^""_PRCHAA_""^""_$S(PRCHAB=0:1,1:"""");1///^S X=PRCHDA;S DIE(""NO^"")="""";2;3;@6;4;K DIE(""NO^"");"
^DIE(786,"DR",3,441.7,1)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^PRC(441.7,PRCHSCN,0),U,5);"
^DIE(786,"DR",3,441.7,2)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);S PRCHMORE=$P(^PRC(441.7,DA,0),U,5) S PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);S PRCHDSCH=DA;"
^DIE(786,"DR",3,441.7,3)="I PRCHTOT>PRCHQTY I PRCHMORE'=0 W *7,!,""Delivery sched. total of "",PRCHTOT,"" for item "",PRCHINUM,"" EXCEEDS the purchase"",!,""order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",($S(PRCHMOR2>0:PRCHMOR2,1:0)),""."",!! S Y=""@6"";"
^DIE(786,"DR",3,441.7,4)="I PRCHTOT<PRCHQTY,PRCHTOT>0 W !!,""Delivery schedule total of "",PRCHTOT,"" for item "",PRCHINUM,"" is less than the purchase"",!,""order quantity."",!!;S DA(1)=PRCHDA1 S:X>0 Y=""@17"",$P(^PRC(441.7,PRCHDSCH,0),U,6)="""";"
^DIE(786,"DR",3,441.7,5)="I $P($G(^PRC(441.7,PRCHDSCH,0)),U,7)]"""" S Y=""@117"";W *7,!!,""Delivery Schedule DELETED!"",!!;K PRCHNORE;.01////@;S Y=""@17"";@117;5////^S X=""D"";W *7,!!,""Delivery Schedule DELETED at the time of the obligation of this P.0."",!!;@17;"
^DIE(786,"DR",99,1)="X DR(99,1,9.2) S Y(101)=$S($D(^PRC(441.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^DIE(786,"DR",99,1,9.2)="S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(441.7,"",DIC(0)=""MF"" D ^DIC S (D,D0,D(0))=+Y"
^DIE(787,0)="PRCFACALM^2870212^^440.3^^^^"
^DIE(787,"DR",1,440.3)="18.2;18;18.3;17;17.2;17.3;17.4;S:X="""" Y=17.7;17.5;S:X="""" Y=17.7;17.6;17.7;17.8;17.9;"
^DIE(788,0)="PRCO EDI VENDOR^2930114.1418^^440.3^^^^"
^DIE(788,"DR",1,440.3)=".2;.4;"
^DIE(789,0)="PRCHVEN^2940315.1511^^441^^^^"
^DIE(789,"DR",1,441)="6;"
^DIE(789,"DR",2,441.01)=".01///^S X=PRCHN;1;1.5;1.6;1.6;2;2.5;3;4;8;8.5;9;10;"
^DIE(790,0)="PRCHRQITM^2970411.1132^^443.6^^^2970723"
^DIE(790,"DIAB",1,1,443.61,26)="PURCHASE ORDER NUMBER:AMENDMENTS TO DELIVERY SCHEDULES:"
^DIE(790,"DR",1,443.6)="40///^S X=PRCHI1;K DIE(""NO^""),PRCHTOT,PRCHINUM,PRCHSCN,PRCHQTY,PRCHMORE,PRCHSEEN,PRCHDSCH;"
^DIE(790,"DR",2,443.61)="S (PRCHREC,PRCHINUM)=DA,PRCHIEN=DA(1);1.5;1;I $D(^PRC(443.6,DA(1),1)),$D(^PRCD(420.8,+$P(^(1),U,7),0)) S PRCHN(""SC"")=$P(^(0),U);S PRCHOLD=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);"
^DIE(790,"DR",2,443.61,1)="S (PRCHQUAN,Z)="""" I $D(^PRC(443.6,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^DIE(790,"DR",2,443.61,2)="K:Z="""" Z I $D(Z) W:$P(Z,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,*7,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,*7,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(790,"DR",2,443.61,3)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^DIE(790,"DR",2,443.61,4)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";S PRCHPONO=$P(^PRC(443.6,PRCHIEN,0),U);"
^DIE(790,"DR",2,443.61,5)="S PRCHTOT=0 I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(441.7,""AG"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=$G(PRCHTOT)+$P($G(^PRC(441.7,I,0)),U,5);"
^DIE(790,"DR",2,443.61,6)="I $G(PRCHTOT)>X W !!!!,$C(7),""****Delivery schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",X,"")."",!,""Edit delivery schedule(s) now"",!! S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^DIE(790,"DR",2,443.61,7)="S DA=PRCHINUM I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=2;"
^DIE(790,"DR",2,443.61,8)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=2;I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=2;3;"
^DIE(790,"DR",2,443.61,9)="I PRCHN(""SC"")=0,$D(^PRCD(420.5,+X,0)),$P(^(0),U,3)="""" W *7,!,""Missing DLA Package Unit--Will use IFCAP Unit--May Reject!"";5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@7"";3.1;9.4;S:X']"""" Y=9.5;S DIE(""NO^"")=""A"";9.7;"
^DIE(790,"DR",2,443.61,10)="K DIE(""NO^"");9.5;S PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") I PRCHN(""COM"")="""",PRCHN(""SC"")'=9 W *7,!,""NSN is required!!!"" S Y=9.5;@7;I PRCHN(""SC"")'=9 S Y=""@3"";8;@3;"
^DIE(790,"DR",2,443.61,11)="S PRCHN(""COM"")="""" I $D(^PRC(443.6,DA(1),2,DA,2)),$D(^PRC(441.2,+$P(^(2),U,3),0)) S PRCHN(""COM"")=$P(^(0),U,4);S PRCHSTN=$P(PRCHPONO,""-""),PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3);"
^DIE(790,"DR",2,443.61,12)="S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:($E($P($G(^(0)),U,18),1,2)'=11)&(PRCHN(""SC"")=9) Y=""@4"" S:(((PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11))&(PRCHN(""SC"")'=9)) Y=""@4"";9.3;40//^S X=""D"";S Y=""@4"";"
^DIE(790,"DR",2,443.61,13)="41//^S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7) K Z;42;@4;S Y=$S((PRCHN(""SC"")=0)!(PRCHN(""SC"")=3):30,PRCHN(""SC"")=1:35,1:""@5"");30;I PRCHN(""SC"")=0 S Y=""@5"";35;36;@5;"
^DIE(790,"DR",2,443.61,14)="S PRCHEDI=$P($G(^PRC(440,$P(^PRC(443.6,DA(1),1),U),3)),U,2);S:$G(PRCHEDI)']"""" Y=""@8"";36.3;36.6;@8;S PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);I PRCHN(""SFC"")=2 S $P(^PRC(443.6,DA(1),2,DA,0),U,4)=$$SUPBOC^PRCHMA0(-1) S Y=""@88"";"
^DIE(790,"DR",2,443.61,15)="3.5//^S X=$$SUPBOC^PRCHMA0(-1);@88;S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^(0),U,5);"
^DIE(790,"DR",2,443.61,16)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);"
^DIE(790,"DR",2,443.61,17)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: ""_$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),! S Y=""@555"";"
^DIE(790,"DR",2,443.61,18)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R XX:DTIME S:'$T XX=""^"" S:XX="""" XX=""N"" S:XX[""?"" Y=""@6"" S:""Yy?""'[$E(XX) Y="""" W ""  ""_$S(""Yy""[$E(XX):""(YES)"",""Nn""[$E(XX):""(NO)"",1:"""");@16;"
^DIE(790,"DR",2,443.61,19)="S PRCHDA1=DA(1),PRCHDA=DA S PRCHLINO=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U) W !,""Line Item # = "",PRCHLINO,!,""Quantity Ordered: "",$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2),!;"
^DIE(790,"DR",2,443.61,20)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!;@555;"
^DIE(790,"DR",2,443.61,21)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"".  You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",! S Y=""@55"";"
^DIE(790,"DR",2,443.61,22)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""** To DELETE a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^DIE(790,"DR",2,443.61,23)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^DIE(790,"DR",2,443.61,24)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^DIE(790,"DR",2,443.61,25)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when ask if you are adding a new delivery    schedule."",!!;@55;"
^DIE(790,"DR",2,443.61,26)="^441.7^PRC(441.7,^^X DR(99,1,9.2) S Y(101)=$S($D(^PRC(441.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) S X=$S(D(0)>0:D(0),1:"""");S PRCHNORE=1;S (D0,DA(1))=PRCHDA1,(D1,DA)=PRCHDA;"
^DIE(790,"DR",2,443.61,27)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);I $G(PRCHTOT)>$G(PRCHQTY) W !,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity"",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."",!! S Y=""@555"";"
^DIE(790,"DR",2,443.61,28)="I $G(PRCHFLG)=1 W !!!,""****Returning to Item Multiple edit session."",!! S Y=""@44"" S PRCHFLG=0;W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T S=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";"
^DIE(790,"DR",3,441.7)="S PRCHAA=$P($G(^PRC(441.7,D0,0)),U),PRCHAB=+$P($G(^PRC(441.7,D0,0)),U,7),PRCHYY=D0_""^""_PRCHAA_""^""_$S(PRCHAB=0:1,1:"""");1///^S X=PRCHDA;S DIE(""NO^"")="""";2;3;@9;4;K DIE(""NO^"");"
^DIE(790,"DR",3,441.7,1)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(441.7,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(441.7,PRCHSCN,0),U,2)=PRCHINUM S PRCHTOT=PRCHTOT+$P(^PRC(441.7,PRCHSCN,0),U,5);"
^DIE(790,"DR",3,441.7,2)="S PRCHQTY=$P(^PRC(443.6,PRCHIEN,2,PRCHINUM,0),U,2);S PRCHMORE=$P(^PRC(441.7,DA,0),U,5),PRCHMOR2=(PRCHQTY-PRCHTOT+PRCHMORE);S PRCHDSCH=DA;"
^DIE(790,"DR",3,441.7,3)="I PRCHTOT>PRCHQTY I PRCHMORE'=0 W *7,!,""Delivery sched. total of "",PRCHTOT,"" for item "",PRCHINUM,"" EXCEEDS the purchase"",!,""order quantity of "",PRCHQTY,""."",!,""Max. quantity here is "",$S(PRCHMOR2>0:PRCHMOR2,1:0),""."",!! S Y=""@9"";"
^DIE(790,"DR",3,441.7,4)="I PRCHTOT<PRCHQTY W !,""Delivery schedule total of "",PRCHTOT,"" for item "",PRCHINUM,"" is less than purchase"",!,""order quantity."",!!;S DA(1)=PRCHDA1 S:X>0 Y=""@17"",$P(^PRC(441.7,PRCHDSCH,0),U,6)="""";"
^DIE(790,"DR",3,441.7,5)="I $P($G(^PRC(441.7,PRCHDSCH,0)),U,7)]"""" S Y=""@117"";W *7,!!,""Delivery Schedule DELETED!"",!!;K PRCHNORE;.01////@;S Y=""@17"";@117;5////^S X=""D"";W *7,!!,""Delivery Schedule DELETED when Requisition is obligated."",!!;@17;"
^DIE(790,"DR",99,1,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) K DIC S DIC=""^PRC(441.7,"",DIC(0)=""NMFLE"" D ^DIC S (D,D0,D(0))=+Y"
^DIE(791,0)="PRCB FMS VENDOR EDIT^2940421.1745^^421.6^^^^"
^DIE(791,"DR",1,421.6)="24;25;26;27;28;29;30;22;23;"
^DIE(792,0)="PRCHAMDISCOUNT^2980127.0859^^443.6^^^2980127"
^DIE(792,"DR",1,443.6)="14;"
^DIE(792,"DR",2,443.63)="W:0 ""S AA=$G(^PRC(443.6,DA(1),3,DA,0))"";.01;S:X=""Q"" Y=1;S:'$D(PRCHD(""CN"")) Y=1;I $P(^PRC(443.6,DA(1),3,DA,0),U,4)]"""" S PRCHD(""AC"")=$S($D(PRCHD(""AC"")):PRCHD(""AC""),1:$P(^(0),U,4));3///^S X=PRCHD(""AC"");S:PRCHD(""CN"")="".OM"" Y=1;"
^DIE(792,"DR",2,443.63,1)="4///^S X=PRCHD(""CN"");1;S PRCHAB=$P($G(^PRC(443.6,DA(1),3,DA,0)),U,6) I PRCHAB]"""" S Y="""";S PRCHAA=$P($G(^PRC(443.6,DA(1),0)),U,14)+1;5///^S X=PRCHAA;S $P(^PRC(443.6,DA(1),0),U,14)=PRCHAA;"
^DIE(793,0)="PRCF FMS VENEDIT1^3010711.1659^^440^^^3010711"
^DIE(793,"DR",1,440)="S ORDER=^PRC(440,DA,0);S CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;39;17;17.2;W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);W !,?18,$P(ORDER,U,6);"
^DIE(793,"DR",1,440,1)="S STATE=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" "",$P(ORDER,U,8);17.3//^S X=$E($P(ORDER,U,2),1,30);17.4//^S X=$E($P(ORDER,U,3),1,30);17.7//^S X=$E($P(ORDER,U,6),1,19);"
^DIE(793,"DR",1,440,2)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(793,"DR",1,440,3)="17.8//^S X=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""");17.9//^S X=$P(ORDER,U,8);41//^S X=""YES"";44;18.3;"
^DIE(794,0)="PRCF FMS VENEDIT2^3010712.1144^^440^^^3010712"
^DIE(794,"DR",1,440)="S ORDER=^PRC(440,DA,0);.01;I $L($P(^PRC(440,DA,0),U))>30 W !!,""The name you entered is over 30 characters long.  When sent to FMS only the"",!,""first 30 characters will go.  You may want to edit the name."",!;"
^DIE(794,"DR",1,440,1)="S CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;39;17;17.2;W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);W !,?18,$P(ORDER,U,6);"
^DIE(794,"DR",1,440,2)="S STATE=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" "",$P(ORDER,U,8);17.3//^S X=$E($P(ORDER,U,2),1,30);17.4//^S X=$E($P(ORDER,U,3),1,30);17.7//^S X=$E($P(ORDER,U,6),1,19);"
^DIE(794,"DR",1,440,3)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(794,"DR",1,440,4)="17.8//^S X=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""");17.9//^S X=$P(ORDER,U,8);41//^S X=""YES"";44;18.3;"
^DIE(795,0)="PRCE NEW 1358S^2981203.1259^^410^^^2990510"
^DIE(795,"DIAB",5,0,410,0)="40;REQ"
^DIE(795,"DIAB",6,0,410,3)="45;""PURPOSE"""
^DIE(795,"DIAB",7,0,410,0)="5//TODAY;REQ"
^DIE(795,"DR",1,410)="1///O;S PRCS1MO=X;8;49;40R~;Q;5R~//TODAY;21//^S X=$E(DT,4,5)_""/01/""_$E(DT,2,3);20;S $P(^PRCS(410,DA,3),""^"",7)=X;"
^DIE(795,"DR",1,410,1)="S X=$$GETCCCNT^PRCSECP(PRC(""SITE""),PRC(""CP"")) I (+X=1) S $P(^PRCS(410,DA,3),U,3)=$P(X,U,2),Y=""@33"" W !,""COST CENTER: "",$P(X,U,2);15.5;@33;"
^DIE(795,"DR",1,410,2)="S X=$P($G(^PRCS(410,DA,3)),U,3) I X]"""" S X=$$GETBOCNT^PRCSECP(PRC(""SITE""),+PRC(""CP""),+X) I (+X=1) S $P(^PRCS(410,DA,3),U,6)=$P(X,U,2),Y=""@44"" W !,""BOC: "",$P(X,U,2);17;@44;D RB^PRCSCK;@2;S:$P($G(^PRCS(410,DA,2)),U)]"""" Y=""@25"";"
^DIE(795,"DR",1,410,3)="W !,""Do you want to enter a vendor for this 1358 request"" S %=2 D YN^DICN I %'=1 W:%=0 !,""Enter 'YES' if you want to enter a vendor and vendor contract # for this request."" S Y=$S(%=0:""@2"",%<0:"""",1:45);@25;11;13;S Y=45;45PURPOSE~;"
^DIE(795,"DR",1,410,4)="W !,""ORIGINATOR: "",$P(^VA(200,$P(^PRCS(410,DA,14),""^""),0),""^"");K PRCS1MO;60;"
^DIE(796,0)="PRCHMAPP^2940708.1739^^443.6^^^^"
^DIE(796,"DR",1,443.6)="9.2;"
^DIE(796,"DR",2,443.66)=".01//^S X=""NET"";4//^S X=""A"";I X=""X"" S %A=""You have indicated that the payments for this Purchase Order will be MONEY MANAGEMENT EXEMPT.  Is this CORRECT?"",%B="""",%=2 D ^PRCFYN I %'=1 S Y=4;S ZX=X;"
^DIE(796,"DR",2,443.66,1)="1//^S X=$S(ZX=""X"":30,ZX=""M"":7,""PD""[ZX:10,ZX=""V"":15,1:30);"
^DIE(797,0)="PRCF FMS VENEDIT1B^3010711.1701^^440^^^3010718"
^DIE(797,"DR",1,440)="S ORDER=^PRC(440,DA,0);S CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;39;34;35;17;17.2;W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);W !,?18,$P(ORDER,U,6);"
^DIE(797,"DR",1,440,1)="S STATE=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" "",$P(ORDER,U,8);17.3//^S X=$E($P(ORDER,U,2),1,30);17.4//^S X=$E($P(ORDER,U,3),1,30);17.7//^S X=$E($P(ORDER,U,6),1,19);"
^DIE(797,"DR",1,440,2)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(797,"DR",1,440,3)="17.8//^S X=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""");17.9//^S X=$P(ORDER,U,8);41//^S X=""YES"";44;18.3;"
^DIE(798,0)="PRCF FMS VENEDIT2B^3010712.1145^^440^^^3010717"
^DIE(798,"DR",1,440)="S ORDER=^PRC(440,DA,0);.01;I $L($P(^PRC(440,DA,0),U))>30 W !!,""The name you entered is over 30 characters long.  When sent to FMS only the"",!,""first 30 characters will go.  You may want to edit the name."",!;"
^DIE(798,"DR",1,440,1)="S CHECKR=$P($G(^PRC(440,DA,3)),U,6);I CHECKR=""R"" S Y=38;36///^S X=""R"";38;39;34;35;17;17.2;W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);W !,?18,$P(ORDER,U,6);"
^DIE(798,"DR",1,440,2)="S STATE=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" "",$P(ORDER,U,8);17.3//^S X=$E($P(ORDER,U,2),1,30);17.4//^S X=$E($P(ORDER,U,3),1,30);17.7//^S X=$E($P(ORDER,U,6),1,19);"
^DIE(798,"DR",1,440,3)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(798,"DR",1,440,4)="17.8//^S X=$S($P(ORDER,U,7)?1.N:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""");17.9//^S X=$P(ORDER,U,8);41//^S X=""YES"";44;18.3;"
^DIE(799,0)="PRCA SET^2970924.162^^430^^^2970925"
^DIE(799,"%D",0)="^^3^3^2881006^^"
^DIE(799,"%D",1,0)="This template set up new bills."
^DIE(799,"%D",2,0)="COMPILED: ^PRCATE"
^DIE(799,"%D",3,0)="OPTION: PRCAA SET/AUDIT NEW BILL"
^DIE(799,"AB","8^PRCATE2",.05)="1^PRCATE3"
^DIE(799,"AB","9^PRCATE2",.01)="1^PRCATE4"
^DIE(799,"AB","9^PRCATE2",7)="2^PRCATE4"
^DIE(799,"AB","^",1)="9^PRCATE2"
^DIE(799,"AB","^",4.5)="5^PRCATE2"
^DIE(799,"AB","^",7)="9^PRCATE"
^DIE(799,"AB","^",8)="2^PRCATE"
^DIE(799,"AB","^",8,"///")=""
^DIE(799,"AB","^",9)="1^PRCATE1"
^DIE(799,"AB","^",10)="7^PRCATE2"
^DIE(799,"AB","^",15.1)="4^PRCATE"
^DIE(799,"AB","^",19)="1^PRCATE2"
^DIE(799,"AB","^",19.1)="3^PRCATE2"
^DIE(799,"AB","^",20.1)="6^PRCATE"
^DIE(799,"AB","^",20.1,"///")=""
^DIE(799,"AB","^",101)="10^PRCATE2"
^DIE(799,"AB","^",111)="11^PRCATE2"
^DIE(799,"AB","^",239)="3^PRCATE1"
^DIE(799,"AB","^",240)="5^PRCATE1"
^DIE(799,"AB","^",242)="6^PRCATE1"
^DIE(799,"AB","^",243)="7^PRCATE1"
^DIE(799,"AB","^",244)="8^PRCATE1"
^DIE(799,"AB","^",247)="9^PRCATE1"
^DIE(799,"AB","^",248)="11^PRCATE1"
^DIE(799,"AB","^",249)="12^PRCATE1"
^DIE(799,"AB","^","@3")="10^PRCATE"
^DIE(799,"AB","^","@4")="4^PRCATE2"
^DIE(799,"AB","^","@6")="7^PRCATE"
^DIE(799,"DIAB",11,0,430,1)="9:"
^DIE(799,"DR",1,430)="I ('$D(PRCAT))!('$D(PRCABN)) S Y="""";8///INCOMPLETE;I PRCAT'[""C"" S Y=""@6"";15.1;S PRCAQS=+X;20.1///^S X=$P(^PRCA(430.2,PRCAQS,0),U,3);@6;I ""T""'[PRCAT S Y=""@3"";7;@3;9;I PRCAT'[""T"" S Y=""@4"";239;S:X="""" Y=247;240;242;243;244;247;"
^DIE(799,"DR",1,430,1)="S:X="""" Y=""@4"";248;249;19;S:X="""" Y=""@4"";19.1;@4;4.5;S $P(^PRCA(430,D0,7),U,1)=X;10;^340^RCD(340,^^S I(0,0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1;101;111;"
^DIE(799,"DR",1,430,2)="S $P(^PRCA(430,D0,0),U,12)=$S($D(PRCA(""SITE"")):PRCA(""SITE""),1:"""");S $P(^PRCA(430,D0,0),U,4)=$S($D(PRCAGLN):PRCAGLN,1:"""");K PRCAQS;"
^DIE(799,"DR",2,340)=".05;"
^DIE(799,"DR",2,430.01)=".01;7;"
^DIE(799,"ROU")="^PRCATE"
^DIE(799,"ROUOLD")="PRCATE"
^DIE(800,0)="PRCA BILL 1114^3040803.1037^^430^^^3040914"
^DIE(800,"%D",0)="^^2^2^2931014^^^"
^DIE(800,"%D",1,0)="This template inputs information for the 1114 bill form."
^DIE(800,"%D",2,0)="OPTION: PRCA BIL ENTER"
^DIE(800,"DIAB",2,0,430,1)="9;""DEBTOR (PAYER)"""
^DIE(800,"DR",1,430)="S PRCAMT=0;I $D(RCAMEND) S Y=104;2;Q;I X>39,X<45,DT<$$ADDPTEDT^PRCAACC() W !,""This bill category not active until 9/28/04"" S Y=2;I X>39,X<45 S Y=""@100"";250;I X'="""" S Y=""@100"";203;@100;10//^S X=DT;104;107;"
^DIE(800,"DR",1,430,1)="S DIC(""V"")=""I """",200,440,""""[("""",""""_+$P(^(0),U)_"""","""")"";9DEBTOR (PAYER)~;I $D(RCAMEND) S Y=""@99"";106;Q;D EN4^PRCABIL;S DIE(""NO^"")=""BACK"";1//^S X=$$FY^RCFN01(DT);K DIE(""NO^"");@99;"
^DIE(800,"DR",2,430.01)=".01;Q;7//^S X=PRCAMT;Q;"
^DIE(800,"DR",2,430.02)=".01;2;3;4;5;6;"
^DIE(801,0)="PRCA BILL 1080^2990416.0935^^430^^^2990416"
^DIE(801,"%D",0)="^^2^2^2910628^^^^"
^DIE(801,"%D",1,0)="This template inputs information for the 1080 bill form."
^DIE(801,"%D",2,0)="OPTION: PRCA BIL ENTER"
^DIE(801,"DIAB",1,0,430,1)="9:"
^DIE(801,"DIAB",9,0,430,0)="9;""DEBTOR (OFFICE BILLED)"""
^DIE(801,"DR",1,430)="S PRCAMT=0;I $D(RCAMEND) S Y=104;2//MILITARY;Q;10//^S X=DT;104;107;S DIC(""V"")=""I +Y(0)=440!(+Y(0)=4)"";9DEBTOR (OFFICE BILLED)~;"
^DIE(801,"DR",1,430,1)="^340^RCD(340,^^S I(0,0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");250;I X'="""" S Y=$S($D(RCAMEND):""@99"",1:106);203;I $D(RCAMEND) S Y=""@99"";106;"
^DIE(801,"DR",1,430,2)="D EN4^PRCABIL W !!,""The total for this bill is $"",PRCAMT,"".  Please make sure the total for all"",!,""fiscal years equal this amount."",!;Q;S DIE(""NO^"")=""BACK"";1//^S X=$$FY^RCFN01(DT);K DIE(""NO^"");@99;"
^DIE(801,"DR",2,340)="Q;I $P($G(^RCD(340,D0,0)),""^"",5)="""" S $P(^(0),""^"",5)=1;"
^DIE(801,"DR",2,430.01)=".01;Q;Q;7//^S X=PRCAMT;Q;"
^DIE(801,"DR",2,430.02)=".01;2;3;4;5;6;7;"
^DIE(802,0)="PRCA BILL 1081^2990416.0939^^430^^^2990416"
^DIE(802,"%D",0)="2"
^DIE(802,"%D",1,0)="This template inputs information for the 1081 bill form."
^DIE(802,"%D",2,0)="OPTION: PRCA BIL ENTER"
^DIE(802,"DIAB",1,0,430,1)="9:"
^DIE(802,"DIAB",11,0,430,0)="9;""DEBTOR (CUSTOMER AGENCY)"""
^DIE(802,"DR",1,430)="S PRCAMT=0;I $D(RCAMEND) S Y=104;2;Q;10//^S X=DT;104;110;107;108;S DIC(""V"")=""I +Y(0)=440!(+Y(0)=4)"";9DEBTOR (CUSTOMER AGENCY)~;Q;Q;"
^DIE(802,"DR",1,430,1)="^340^RCD(340,^^S I(0,0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");250;I X'="""" S Y=""@100"";203;@100;I $D(RCAMEND) S Y=""@99"";106;"
^DIE(802,"DR",1,430,2)="D EN4^PRCABIL W !!,""The total for this bill is $"",PRCAMT,"".  Please make sure the total for all"",!,""fiscal years equal this amount."",!;S DIE(""NO^"")=""BACK"";1//^S X=$$FY^RCFN01(DT);K DIE(""NO^"");@99;"
^DIE(802,"DR",2,340)="I $P($G(^RCD(340,D0,0)),""^"",5)="""" S $P(^(0),""^"",5)=1;"
^DIE(802,"DR",2,430.01)=".01;7//^S X=PRCAMT;Q;"
^DIE(802,"DR",2,430.02)=".01;2;3;4;5;6;"
^DIE(803,0)="PRCAC LOCATE DEBTOR^2920805.1325^^430^^^^"
^DIE(803,"%D",0)="^^2^2^2920805^^^"
^DIE(803,"%D",1,0)="This template records efforts to locate the debtor."
^DIE(803,"%D",2,0)="OPTION: PRCAC LOCATE DEBTOR"
^DIE(803,"DR",1,430)="86;87;83.1;88;89;89.1;89.2;89.3;89.4;89.5;89.6;89.7;89.8;"
^DIE(804,0)="PRCA CAUSED BY^3030820.1224^^430^^^3030820"
^DIE(804,"%D",0)="^^2^2^2881006^^"
^DIE(804,"%D",1,0)="This template changes the cause of a bill."
^DIE(804,"%D",2,0)="OPTION: PRCA BILL RESULTING"
^DIE(804,"DIAB",2,0,430,0)="4.5;""BILL RESULTING FROM"""
^DIE(804,"DR",1,430)="I $G(PRAUTOA) S Y=""@10"";4.5BILL RESULTING FROM~;S:'$D(PRCAT(""C"")) Y="""";15.1;S PRCAQTY=$P(^PRCA(430.2,+X,0),U,3);20.1////^S X=PRCAQTY;K PRCAQTY;S Y=""@99"";@10;"
^DIE(804,"DR",1,430,1)="S DIPA(""BRF"")=$P($G(^DGCR(399.3,+$P($G(^DGCR(399,PRCABN,0)),U,7),0)),U,11) I 'DIPA(""BRF"") S Y=""@99"";4.5////^S X=DIPA(""BRF"");@99;"
^DIE(807,0)="PRCAE ADMIN^3000517.1322^^433^^^3000804"
^DIE(807,"%D",0)="^^2^2^2880825^^"
^DIE(807,"%D",1,0)="This template adds an administrative charge to an account."
^DIE(807,"%D",2,0)="OPTION: PRCAC TR ADM"
^DIE(807,"DIAB",2,0,433,3)="27;""INTEREST CHARGE"""
^DIE(807,"DIAB",3,0,433,2)="28;""MONTHLY ADMIN. CHARGE"""
^DIE(807,"DIAB",5,0,433,0)="11;""ADMIN. COST CHARGE DATE""//^S X=DT"
^DIE(807,"DR",1,433)="S:'$D(PRCABN) Y="""";S:$D(PRCASUP) ADMINTOT=0;.03////^S X=PRCABN;12///12;11ADMIN. COST CHARGE DATE~;21;S:$D(PRCASUP) ADMINTOT=X;22;S:$D(PRCASUP) ADMINTOT=ADMINTOT+X;23;S:$D(PRCASUP) ADMINTOT=ADMINTOT+X;24;"
^DIE(807,"DR",1,433,1)="S:$D(PRCASUP) ADMINTOT=ADMINTOT+X;S PRCA2=0;S:$D(PRCAERR) Y=28;25;I $D(PRCASUP),X<0,-X>$P(PRCAIND,U,4) W !,*7,""TOO MUCH MARSHALL FEE BEING DEDUCTED"" S Y=25;26;"
^DIE(807,"DR",1,433,2)="I $D(PRCASUP),X<0,-X>$P(PRCAIND,U,5) W !,*7,""TOO MUCH COURT COST BEING DEDUCTED"" S Y=26;S:'$D(PRCASUP) Y="""";28MONTHLY ADMIN. CHARGE~;S ADMINTOT=ADMINTOT+X;29;S ADMINTOT=ADMINTOT+X;K PRCAERR;"
^DIE(807,"DR",1,433,3)="I ADMINTOT<0,-ADMINTOT>$P(PRCAIND,U,3) W !,*7,""TOO MUCH ADMINISTRATIVE CHARGE DEDUCTED."" S PRCAERR=1,ADMINTOT=0,Y=21;27INTEREST CHARGE~;I X<0,-X>$P(PRCAIND,U,2) W !,*7,""TOO MUCH INTEREST DEDUCTED"" S Y=27;"
^DIE(812,0)="PRCAE AUDIT^2980114.1453^^430^^^2980422"
^DIE(812,"%D",0)="^^4^4^2881006^^"
^DIE(812,"%D",1,0)="This template allows editing of the debtor's address that is"
^DIE(812,"%D",2,0)="maintained in the AR files. It does not affect the Patient,"
^DIE(812,"%D",3,0)="Vendor, or other source file."
^DIE(812,"%D",4,0)="OPTION: PRCAA AUDIT"
^DIE(812,"DIAB",3,0,430,0)="9:"
^DIE(812,"DR",1,430)="4.5;I ""12""'[+$G(^PRCA(430,D0,100)) S Y=""@1"";^340^RCD(340,^^S I(0,0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@1;"
^DIE(812,"DR",1,430,1)="S $P(^PRCA(430,D0,0),U,12)=$S($D(PRC(""SITE"")):PRC(""SITE""),1:"""");S:PRCAT'[""T"" Y="""";239;240;242;243;244;247;248;249;19;S:X="""" Y="""";19.1;"
^DIE(812,"DR",2,340)=".05;"
^DIE(813,0)="PRCAT EDIT GL^2871214^^430^^^^"
^DIE(813,"%D",0)="^^2^2^2901031^^^^"
^DIE(813,"%D",1,0)="This template edits the General Ledger information."
^DIE(813,"%D",2,0)="OPTION: PRCAT PAT REF NUMBER"
^DIE(813,"DR",1,430)="4;1;"
^DIE(813,"DR",2,430.01)="3;"
^DIE(814,0)="PRCAE INSURANCE DATA^2880606^^430^^^^"
^DIE(814,"%D",0)="^^3^3^2881006^^"
^DIE(814,"%D",1,0)="This template allows editing of the bill's insurance data. It"
^DIE(814,"%D",2,0)="does not affect the Insurance File."
^DIE(814,"%D",3,0)="OPTION: PRCAC 3RD DATA"
^DIE(814,"DR",1,430)="239;240;242;243;244;247;248;249;19;S:X="""" Y="""";19.1;"
^DIE(815,0)="PRCA OLD SET^2990726.1308^^430^^^2990726"
^DIE(815,"%D",0)="^^3^3^2881006^^"
^DIE(815,"%D",1,0)="This template enters 'old' established bills in the system."
^DIE(815,"%D",2,0)="COMPILED:  ^PRCATA"
^DIE(815,"%D",3,0)="OPTION: PRCAA OLD BILL"
^DIE(815,"AB","8^PRCATA1",.01)="1^PRCATA2"
^DIE(815,"AB","8^PRCATA1",1)="4^PRCATA2"
^DIE(815,"AB","8^PRCATA1",3)="2^PRCATA2"
^DIE(815,"AB","8^PRCATA1",7)="3^PRCATA2"
^DIE(815,"AB","^",1)="8^PRCATA1"
^DIE(815,"AB","^",3)="10^PRCATA1"
^DIE(815,"AB","^",4.5)="7^PRCATA1"
^DIE(815,"AB","^",7)="9^PRCATA"
^DIE(815,"AB","^",8)="2^PRCATA"
^DIE(815,"AB","^",8,"///")=""
^DIE(815,"AB","^",9)="11^PRCATA"
^DIE(815,"AB","^",10)="20^PRCATA1"
^DIE(815,"AB","^",15.1)="4^PRCATA"
^DIE(815,"AB","^",19)="3^PRCATA1"
^DIE(815,"AB","^",19.1)="5^PRCATA1"
^DIE(815,"AB","^",20.1)="6^PRCATA"
^DIE(815,"AB","^",20.1,"///")=""
^DIE(815,"AB","^",61)="17^PRCATA1"
^DIE(815,"AB","^",62)="18^PRCATA1"
^DIE(815,"AB","^",63)="19^PRCATA1"
^DIE(815,"AB","^",67)="15^PRCATA1"
^DIE(815,"AB","^",71)="11^PRCATA1"
^DIE(815,"AB","^",72)="13^PRCATA1"
^DIE(815,"AB","^",73)="14^PRCATA1"
^DIE(815,"AB","^",101)="21^PRCATA1"
^DIE(815,"AB","^",239)="14^PRCATA"
^DIE(815,"AB","^",240)="16^PRCATA"
^DIE(815,"AB","^",242)="17^PRCATA"
^DIE(815,"AB","^",243)="18^PRCATA"
^DIE(815,"AB","^",244)="19^PRCATA"
^DIE(815,"AB","^",247)="20^PRCATA"
^DIE(815,"AB","^",248)="1^PRCATA1"
^DIE(815,"AB","^",249)="2^PRCATA1"
^DIE(815,"AB","^","@3")="10^PRCATA"
^DIE(815,"AB","^","@4")="6^PRCATA1"
^DIE(815,"AB","^","@6")="7^PRCATA"
^DIE(815,"AB","^","@7")="16^PRCATA1"
^DIE(815,"DIAB",4,1,430.01,0)="1;""CURRENT PRIN. BAL. FOR THIS FISCAL YEAR"""""
^DIE(815,"DIAB",17,0,430,1)="3;""TOTAL ORIGINAL AMOUNT"""
^DIE(815,"DR",1,430)="I ('$D(PRCAT))!('$D(PRCABN)) S Y="""";8///OLD BILL;S:PRCAT'[""C"" Y=""@6"";15.1;S PRCAQS=+X;20.1///^S X="""" I $D(PRCAQS),PRCAQS S X=$P(^PRCA(430.2,PRCAQS,0),""^"",3);@6;I ""T""'[PRCAT S Y=""@3"";7;@3;9;I PRCAT'[""T"" S Y=""@4"";20.1//^S X=297;239;"
^DIE(815,"DR",1,430,1)="S:X="""" Y=247;240;242;243;244;247;S:X="""" Y=""@4"";248;249;19;S:X="""" Y=""@4"";19.1;@4;4.5;1//^S X=$$FY^RCFN01(DT);D CP^PRCABIL1;3TOTAL ORIGINAL AMOUNT~;71;S:""PC""'[PRCAT Y=""@7"";72;73;67;@7;61;62;63;10;101;S PRCAOLD="""";8;"
^DIE(815,"DR",1,430,2)="S $P(^PRCA(430,D0,0),U,12)=$S($D(PRCA(""SITE"")):PRCA(""SITE""),1:"""");K PRCAOLD;"
^DIE(815,"DR",2,430.01)=".01;3;7;1CURRENT PRIN. BAL. FOR THIS FISCAL YEAR~;"
^DIE(815,"ROU")="^PRCATA"
^DIE(815,"ROUOLD")="PRCATA"
^DIE(817,0)="PRCAC DCDOJ RETN^2971203.1427^^433^^^2971203"
^DIE(817,"%D",0)="^^3^3^2980227^^^"
^DIE(817,"%D",1,0)="This template records an account that has been returned by the"
^DIE(817,"%D",2,0)="Regional Counsel or the Department of Justice."
^DIE(817,"%D",3,0)="OPTION: PRCAC DCDOJ RETURNED"
^DIE(817,"DIAB",1,0,433,1)="84;""MARSHAL FEE RETURNED"""
^DIE(817,"DIAB",2,0,433,0)="11;""DATE RETURNED"""
^DIE(817,"DIAB",2,0,433,1)="85;""COURT COST RETURNED"""
^DIE(817,"DIAB",9,0,433,0)="81;""PRIN. BAL. RETURNED"""
^DIE(817,"DIAB",11,0,433,0)="82;""INT. BAL. RETURNED"""
^DIE(817,"DIAB",12,0,433,0)="83;""ADMIN. BAL. RETURNED"""
^DIE(817,"DR",1,433)=".03///^S X=PRCABN;11DATE RETURNED~;S PRCADT=X;5///^S X=PRCADT;3///DONE;12////6;7///^S X=PRCACODE;8////^S X=$S($D(PRCA(""APPR"")):PRCA(""APPR""),1:"""");81PRIN. BAL. RETURNED~;4///^S X=2;82INT. BAL. RETURNED~;83ADMIN. BAL. RETURNED~;"
^DIE(817,"DR",1,433,1)="84MARSHAL FEE RETURNED~;85COURT COST RETURNED~;"
^DIE(818,0)="PRCAC DCDOJ REFER^2971203.1055^^433^^^2980326"
^DIE(818,"%D",0)="^^3^3^2980227^^"
^DIE(818,"%D",1,0)="This template records an account referral to the Regional Counsel"
^DIE(818,"%D",2,0)="or the Department of Justice."
^DIE(818,"%D",3,0)="OPTION: PRCAC DCDOJ REFER"
^DIE(818,"DIAB",4,0,433,0)="11;""REFERRAL DATE"""
^DIE(818,"DR",1,433)=".03///^S X=$S($D(PRCABN):PRCABN,1:"""");3///DONE;12///^S X=$S($D(PRCATYPE):PRCATYPE,1:"""");11REFERRAL DATE~;S PRCADT=X;5///^S X=PRCADT;7////^S X=$S($D(PRCACODE):PRCACODE,1:"""");8////^S X=$S($D(PRCA(""APPR"")):PRCA(""APPR""),1:"""");"
^DIE(818,"DR",1,433,1)="81//^S X=PRCAPB;4///^S X=2;82//^S X=PRCAIB;83//^S X=PRCAAB;84//^S X=PRCAMF;85//^S X=PRCACC;"
^DIE(819,0)="PRCAC DCDOJ REREFER^2971203.1429^^433^^^2971203"
^DIE(819,"%D",0)="^^3^3^2980227^^"
^DIE(819,"%D",1,0)="This template records an account re-referral to the Regional Counsel"
^DIE(819,"%D",2,0)="or the Department of Justice."
^DIE(819,"%D",3,0)="OPTION: PRCAC DCDOJ REREFER"
^DIE(819,"DIAB",1,0,433,1)="83;""ADMIN. BAL. RE-REFERRED"""
^DIE(819,"DIAB",2,0,433,0)="11;""DATE REREFERRED"""
^DIE(819,"DIAB",2,0,433,1)="84;""MARSHAL FEE RE-REFERRED"""
^DIE(819,"DIAB",3,0,433,1)="85;""COURT COST RE-REFERRED"""
^DIE(819,"DIAB",9,0,433,0)="81;""PRIN.BALANCE RE-REFERRED"""
^DIE(819,"DIAB",11,0,433,0)="82;""INTEREST BAL. RE-REFERRED"""
^DIE(819,"DR",1,433)=".03////^S X=PRCABN;11DATE REREFERRED~;S PRCADT=X;5///^S X=PRCADT;3///DONE;12////5;7///^S X=PRCACODE;8////^S X=$S($D(PRCA(""APPR"")):PRCA(""APPR""),1:"""");81PRIN.BALANCE RE-REFERRED~;4///^S X=2;82INTEREST BAL. RE-REFERRED~;"
^DIE(819,"DR",1,433,1)="83ADMIN. BAL. RE-REFERRED~;84MARSHAL FEE RE-REFERRED~;85COURT COST RE-REFERRED~;"
^DIE(820,0)="PRCA PAYMENT^2920218.1446^^433^^^^"
^DIE(820,"%D",0)="^^2^2^2880825^"
^DIE(820,"%D",1,0)="This template enters a payment transaction."
^DIE(820,"%D",2,0)="OPTION: PRCAC TR PAYMENT"
^DIE(820,"DIAB",6,0,433,0)="13;DUP"
^DIE(820,"DIAB",7,0,433,0)="15;""PAYMENT AMOUNT"""
^DIE(820,"DR",1,433)=".03////^S X=PRCABN;6///^S X=$S($D(PRCA(""SEG"")):PRCA(""SEG""),1:"""");8///^S X=$S($D(PRCAPPR):PRCAPPR,1:"""");11///^S X=$S($D(PRCADT):PRCADT,1:DT);12////2;13d~;15PAYMENT AMOUNT~;S PRCA(""PAYMT"")=$S(X<0:-X,1:X);15////^S X=PRCA(""PAYMT"");"
^DIE(820,"DR",1,433,1)="42////^S X=DUZ;"
^DIE(821,0)="PRCAC COWC REFER^2880411^^430^^^^"
^DIE(821,"%D",0)="^^3^3^2881006^^"
^DIE(821,"%D",1,0)="This template records a referral to the DVB Committee on Waivers"
^DIE(821,"%D",2,0)="and Compromise."
^DIE(821,"%D",3,0)="OPTION: PRCAC COWC REFER"
^DIE(821,"DR",1,430)="68.4;68.5;"
^DIE(822,0)="PRCASV STATUS^2910422.1224^^430^^^^"
^DIE(822,"%D",0)="^^4^4^2881006^^"
^DIE(822,"%D",1,0)="This template stuffs the billing Service/Section Status into the"
^DIE(822,"%D",2,0)="Current Status field and changes the Date Status Changed to the"
^DIE(822,"%D",3,0)="current date."
^DIE(822,"%D",4,0)="OPTION: PRCAA AUDIT"
^DIE(822,"DR",1,430)="8////^S X=PRCASV(""STATUS"");10////^S X=$S($D(DT):DT,1:"""");"
^DIE(824,0)="PRCASV REL^2971006.1101^^430^^^2971009"
^DIE(824,"%D",0)="^^3^3^2881005^"
^DIE(824,"%D",1,0)="This template files some information about the bill in the AR"
^DIE(824,"%D",2,0)="File and releases the number for the Service/Section completion."
^DIE(824,"%D",3,0)="The user does not interact with this template."
^DIE(824,"AB","^",2)="1^PRCATSE"
^DIE(824,"AB","^",2,"///")=""
^DIE(824,"AB","^",7)="7^PRCATSE"
^DIE(824,"AB","^",7,"///")=""
^DIE(824,"AB","^",8)="5^PRCATSE1"
^DIE(824,"AB","^",8,"///")=""
^DIE(824,"AB","^",9)="2^PRCATSE"
^DIE(824,"AB","^",9,"///")=""
^DIE(824,"AB","^",10)="4^PRCATSE"
^DIE(824,"AB","^",10,"///")=""
^DIE(824,"AB","^",19)="1^PRCATSE1"
^DIE(824,"AB","^",19,"///")=""
^DIE(824,"AB","^",19.1)="3^PRCATSE1"
^DIE(824,"AB","^",19.1,"///")=""
^DIE(824,"AB","^",111)="3^PRCATSE"
^DIE(824,"AB","^",111,"///")=""
^DIE(824,"AB","^",113)="5^PRCATSE"
^DIE(824,"AB","^",113,"///")=""
^DIE(824,"AB","^","@1")="4^PRCATSE1"
^DIE(824,"DR",1,430)="2////^S X=PRCASV(""CAT"");9////^S X=PRCADEBT;111////^S X=PRCASV(""APR"");10////^S X=PRCASV(""BDT"");113////^S X=DT;S:PRCAT'[""T"" Y=""@1"";7////^S X=PRCASV(""PAT"");S:'$D(PRCASV(""2NDINS"")) Y=""@1"";19////^S X=PRCASV(""2NDINS"");"
^DIE(824,"DR",1,430,1)="S:'$D(PRCASV(""3RDINS"")) Y=""@1"";19.1////^S X=PRCASV(""3RDINS"");@1;8////^S X=$O(^PRCA(430.3,""AC"",104,""""));"
^DIE(824,"ROU")="^PRCATSE"
^DIE(824,"ROUOLD")="PRCATSE"
^DIE(825,0)="PRCA CAT SET^2911213.1525^^430^^^^"
^DIE(825,"%D",0)="^^2^2^2910529^^^"
^DIE(825,"%D",1,0)="This template changes a bill's category."
^DIE(825,"%D",2,0)="OPTION: PRCAA SET/AUDIT NEW BILL"
^DIE(825,"DR",1,430)="2;Q;20.1///^S X=$P(^PRCA(430,DA,0),""^"",2) S:X=$O(^PRCA(430.2,""AC"",24,0)) X=$P(^PRCA(430,DA,0),""^"",16) S:X]"""" X=$P(^PRCA(430.2,X,0),""^"",3);"
^DIE(826,0)="PRCAF RETURN BILL^2920218.1449^^430^^^^"
^DIE(826,"%D",0)="^^3^3^2881006^^"
^DIE(826,"%D",1,0)="This template records the date and a comment when a bill is returned"
^DIE(826,"%D",2,0)="to the originating Service/Section."
^DIE(826,"%D",3,0)="OPTION: PRCAF RETURN BILL"
^DIE(826,"DR",1,430)="32////^S X=DUZ;31//^S X=DT;36;S PRCAQRET="""";"
^DIE(827,0)="PRCA FY ADJ2 BATCH^2920326.1109^^433^^^^"
^DIE(827,"DR",1,433)=".03////^S X=PRCABN;6////^S X=$S('$P(^PRCA(430,PRCABN,0),""^"",21):"""",1:$P(^(0),""^"",21));3////^S X=0;11////^S X=PRCASV(""BDT"");S PRCAQNM=1 D EN1^PRCADJ;14////^S X=PRCAQNM;12////^S X=PRCA(""ADJ"");15////^S X=$P(PRCASV(""FY""),""^"",2);"
^DIE(827,"DR",1,433,1)="S PRCAMT=$S($P(^PRCA(430.3,PRCA(""ADJ""),0),""^"",3)=21:-$P(PRCASV(""FY""),""^"",2),1:$P(PRCASV(""FY""),""^"",2));42////^S X=PRCASV(""APR"");K PRCAQNM;"
^DIE(829,0)="PRCAE BILL FROM^2880202^^430.6^^^^"
^DIE(829,"%D",0)="^^4^4^2881011^^^"
^DIE(829,"%D",1,0)="This template edits the brief and full names of the reasons"
^DIE(829,"%D",2,0)="for sending a bill. The users must select a type of bill to associate"
^DIE(829,"%D",3,0)="with this reason."
^DIE(829,"%D",4,0)="OPTION: PRCAF EDIT BILL FROM"
^DIE(829,"DR",1,430.6)=".01;1;3;"
^DIE(830,0)="PRCA RE-ESTABLISH WRITE-OFF^2930708.103^^433^^^^"
^DIE(830,"DR",1,433)=".03////^S X=PRCABN;6////^S X=$S($D(PRCA(""SEG"")):PRCA(""SEG""),1:"""");12////^S X=PRCATYPE;11////^S X=DT;41;15////^S X=$S($D(PRCATAMT):PRCATAMT,1:0);81////^S X=$S($D(PRCAPB):+PRCAPB,1:0);82////^S X=$S($D(PRCAPB):$P(PRCAPB,""^"",2),1:0);"
^DIE(830,"DR",1,433,1)="83////^S X=$S($D(PRCAPB):$P(PRCAPB,""^"",3),1:0);84////^S X=$S($D(PRCAPB):$P(PRCAPB,""^"",4),1:0);85////^S X=$S($D(PRCAPB):$P(PRCAPB,""^"",5),1:0);42////^S X=DUZ;"
^DIE(831,0)="RCMS FORM LETTER^2930211.0935^^343^^^^"
^DIE(831,"DR",1,343)=".01;.02;1;"
^DIE(835,0)="RCAM ADDRESS EDIT^3041110.1533^^340^^^3050418"
^DIE(835,"DR",1,340)="1.01;1.02;1.03;1.04;1.05;I $P($G(^DIC(5,+X,0)),""^"",3)'>90 S Y=1.06;1.08;S Y=1.07;1.06;1.07;111;"
^DIE(836,0)="RCMS NOTIFICATION^3020819.1211^^342^^^3020819"
^DIE(836,"%D",0)="^^1^1^3020819^^"
^DIE(836,"%D",1,0)="SECOND COMMENT LINE REMOVED."
^DIE(836,"DR",1,342)=".02;.05;.09;5;2.01STATEMENT COMMENT~;.04;.08;.12;"
^DIE(837,0)="RCMS IRS^2930518.1235^^342^^^^"
^DIE(837,"DR",1,342)="3.04;3.01;3.02;3.03;"
^DIE(838,0)="RCMS CASHIER^2940730.1247^^342.1^^^^"
^DIE(838,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;"
^DIE(839,0)="RCEV OPEN EVENT^2930603.153^^341^^^^"
^DIE(839,"DR",1,341)=".11////^S X=0;.08////^S X=RCDUZ;.05////^S X=DEBT;.02////^S X=$O(^RC(341.1,""AC"",TYPE,0));.09////^S X=SITE;.06////^S X=DOE;1.01////^S X=$P($G(BAL),""^"",1);1.02////^S X=$P($G(BAL),""^"",2);1.03////^S X=$P($G(BAL),""^"",3);"
^DIE(839,"DR",1,341,1)="1.04////^S X=$P($G(BAL),""^"",4);1.05////^S X=$P($G(BAL),""^"",5);"
^DIE(840,0)="RCEV CLOSE EVENT^2930309.201^^341^^^^"
^DIE(840,"DR",1,341)=".07///^S X=""NOW"";.11////^S X=1;"
^DIE(841,0)="RCAM COMMENT^2931028.1251^^341^^^^"
^DIE(841,"DIAB",1,0,341,0)=".06;""Date of Contact"""
^DIE(841,"DIAB",2,0,341,0)="4.01;""Brief Comment"""
^DIE(841,"DIAB",3,0,341,0)="2.01;""Expanded Comment"""
^DIE(841,"DIAB",4,0,341,0)="4.02;""Follow-up Date"""
^DIE(841,"DR",1,341)=".06Date of Contact~;4.01Brief Comment~;2.01Expanded Comment~;4.02Follow-up Date~;"
^DIE(846,0)="PRCA COMMENT^2971201.1131^^433^^^2980325"
^DIE(846,"%D",0)="^^1^1^2980227^"
^DIE(846,"%D",1,0)="This templates records AR Comment Transaction data."
^DIE(846,"DIAB",7,0,433,0)="11;""Date of Contact"""
^DIE(846,"DIAB",8,0,433,0)="5.02;""Brief Comment"""
^DIE(846,"DIAB",9,0,433,0)="41;""Expanded Comments"""
^DIE(846,"DIAB",10,0,433,0)="5.03;""Follow-up Date"""
^DIE(846,"DR",1,433)=".03////^S X=PRCABN;3////^S X=0;12////^S X=$O(^PRCA(430.3,""AC"",17,0));15////^S X=0;42////^S X=DUZ;11///^S X=""TODAY"";11Date of Contact~;5.02Brief Comment~;41Expanded Comments~;5.03Follow-up Date~;4////^S X=2;"
^DIE(848,0)="RCMS RATES^2960701.1449^^342^^^2960703"
^DIE(848,"DR",1,342)="4;"
^DIE(848,"DR",2,342.04)=".01;.02;.03;.04;.05;"
^DIE(850,0)="RCMS DEPT OF JUSTICE^2940730.1247^^342.1^^^^"
^DIE(850,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;2.01;2.02;"
^DIE(851,0)="RCMS ACCT RECEIVABLE^2940730.1246^^342.1^^^^"
^DIE(851,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;"
^DIE(852,0)="RCMS SITE^2940730.1248^^342.1^^^^"
^DIE(852,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;"
^DIE(853,0)="RCMS BILLING AGENCY^2940730.1247^^342.1^^^^"
^DIE(853,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;"
^DIE(854,0)="RCMS RETURN PAYMENT^2940730.1248^^342.1^^^^"
^DIE(854,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;"
^DIE(855,0)="RCFM OPEN DOCUMENT^2940616.0954^^347^^^^"
^DIE(855,"DR",1,347)=".02////^S X=TYPE;.03////^S X=0;.05///^S X=""NOW"";.06////^S X=$G(ID);.07////^S X=$G(BILL);.08////^S X=$G(EVN);.09////^S X=DOC;.1////^S X=$G(BAT);"
^DIE(858,0)="RCMS BANK DEPOSIT^2940730.1247^^342.1^^^^"
^DIE(858,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;"
^DIE(860,0)="RCMS SITE DEPOSIT^2940730.1248^^342.1^^^^"
^DIE(860,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;"
^DIE(861,0)="RCFM CAF FILE ENTRIES^2940815.0858^^430^^^^"
^DIE(861,"DR",1,430)="251////^S X=$P(ND,U,16);252////^S X=$P(ND,U,17);254////^S X=$P(ND,U,15);255////^S X=$P(ND,U,13);261////^S X=$P(ND,U,12);201////^S X=$P(ND,U,7);202////^S X=$P(ND,U,8);203////^S X=$P(ND,U,9);204////^S X=$P(ND,U,10);"
^DIE(861,"DR",1,430,1)="206////^S X=$P(ND,U,11);253////^S X=$P(ND,U,14);"
^DIE(864,0)="PSO PARTIAL^2970213.1515^^52^^^2971215"
^DIE(864,"DR",1,52)="K PM;60;Q;S:$G(PM)!('$D(Z1)) Y=""@1"";35;@1;K PM;"
^DIE(864,"DR",2,52.2)=".01;S Z1=D1;.02;S:X=""M""!('$P($G(PSOPAR),""^"",12)) PM=1;.04;.041;.05;.07////^S X=DUZ;6////^S X=PHYS;Q;.08///^S X=""NOW"";S PDT=X;.09////^S X=PSOSITE;.03;S PRMK=X;"
^DIE(866,0)="PSO OUTPT^3060813.1356^^2^^^3060901"
^DIE(866,"DR",1,2)="148;.172;.091;"
^DIE(867,0)="PSO OUTPTA^2990308.1552^^2^^^2990308"
^DIE(867,"DR",1,2)=".111;.112;.113;.114;.115;.1112;.117;.131;148;.172;.12105;S:X'=""Y"" Y=""@53"";.1211;S:X="""" Y=""@53"";.1212;.1213;.1219;.1214;.1215;.12112;.12111;.1217;.1218;@53;.091;"
^DIE(868,0)="PSO INTERACT^2920707.1544^^56^^^2930329^"
^DIE(868,"DR",1,56)=".01;1;Q;2;I $D(PSDI),PSDI=0 S Y=""@1"";3;5;@1;"
^DIE(869,0)="PSO SITE^3070629.131^^59^^^3070920"
^DIE(869,"DIAB",1,1,59.02008,0)="ALL"
^DIE(869,"DR",1,59)=".01:.06;1008;.07:.081;2004;.09:.091;.1:.18;.2:.52;3:5;2008;6:7;105;105.1;105.2;2006;2007;8;100;101;109;1000;1001;1002;2001;2002;1003;1004;1005;1006;2005;2030;2035;"
^DIE(869,"DR",2,59.02008)=".01"
^DIE(869,"DR",2,59.08)=".01;1;"
^DIE(870,0)="PSO INTERVENTION NEW^2970508.1432^^9009032.4^^^2970508"
^DIE(870,"AB","^",.03)="1^APSPT05"
^DIE(870,"AB","^",.04)="2^APSPT05"
^DIE(870,"AB","^",.04,"///")=""
^DIE(870,"AB","^",.06)="3^APSPT05"
^DIE(870,"AB","^",.07)="5^APSPT05"
^DIE(870,"AB","^",.08)="9^APSPT05"
^DIE(870,"AB","^",.09)="13^APSPT05"
^DIE(870,"AB","^",.11)="15^APSPT05"
^DIE(870,"AB","^",.12)="17^APSPT05"
^DIE(870,"AB","^",.13)="19^APSPT05"
^DIE(870,"AB","^",.16)="4^APSPT05"
^DIE(870,"AB","^",.16,"///")=""
^DIE(870,"AB","^",.17)="21^APSPT05"
^DIE(870,"AB","^",1100)="7^APSPT05"
^DIE(870,"AB","^",1200)="11^APSPT05"
^DIE(870,"AB","^",1300)="22^APSPT05"
^DIE(870,"AB","^",1400)="23^APSPT05"
^DIE(870,"AB","^",1500)="24^APSPT05"
^DIE(870,"AB","^",1600)="25^APSPT05"
^DIE(870,"AB","^","@1")="8^APSPT05"
^DIE(870,"AB","^","@2")="12^APSPT05"
^DIE(870,"AB","^","@3")="16^APSPT05"
^DIE(870,"AB","^","@4")="20^APSPT05"
^DIE(870,"DR",1,9009032.4)=".03;.04////^S X=DUZ;.06//PHARMACY;.16////^S X=$G(PSOSITE);.07;I X'=17 S Y=""@1"";1100;@1;.08;I X'=9 S Y=""@2"";1200;@2;.09;I X=1 S Y=""@3"";.11;@3;.12;I X=1 S Y=""@4"";.13;@4;.17;1300;1400;1500;1600;"
^DIE(870,"ROU")="^APSPT05"
^DIE(870,"ROUOLD")="APSPT05"
^DIE(871,0)="PSO INTERVENTION EDIT^2970508.1433^^9009032.4^^^2970508"
^DIE(871,"AB","^",.01)="1^APSPT04"
^DIE(871,"AB","^",.02)="2^APSPT04"
^DIE(871,"AB","^",.03)="3^APSPT04"
^DIE(871,"AB","^",.04)="4^APSPT04"
^DIE(871,"AB","^",.05)="5^APSPT04"
^DIE(871,"AB","^",.06)="6^APSPT04"
^DIE(871,"AB","^",.07)="7^APSPT04"
^DIE(871,"AB","^",.08)="9^APSPT04"
^DIE(871,"AB","^",.09)="11^APSPT04"
^DIE(871,"AB","^",.11)="12^APSPT04"
^DIE(871,"AB","^",.12)="13^APSPT04"
^DIE(871,"AB","^",.13)="14^APSPT04"
^DIE(871,"AB","^",.17)="15^APSPT04"
^DIE(871,"AB","^",1100)="8^APSPT04"
^DIE(871,"AB","^",1200)="10^APSPT04"
^DIE(871,"AB","^",1300)="16^APSPT04"
^DIE(871,"AB","^",1400)="17^APSPT04"
^DIE(871,"AB","^",1500)="18^APSPT04"
^DIE(871,"AB","^",1600)="19^APSPT04"
^DIE(871,"DR",1,9009032.4)=".01;.02;.03;.04;.05;.06;.07;1100;.08;1200;.09;.11;.12;.13;.17;1300;1400;1500;1600;"
^DIE(871,"ROU")="^APSPT04"
^DIE(871,"ROUOLD")="APSPT04"
^DIE(872,0)="PSOD DUE BUILD QUESTIONNAIRE^2940519.1235^^50.073^^^2971029^"
^DIE(872,"DIAB",1,1,50.07302,2)="QUESTION:"
^DIE(872,"DIAB",1,1,50.735,0)="ALL"
^DIE(872,"DR",1,50.073)=".01;10;20;1;2;4;5;"
^DIE(872,"DR",2,50.07301)=".01;"
^DIE(872,"DR",2,50.07302)=".01;S PSLOCK=+$P(@(""^PS(50.073,""_DA(1)_"",0)""),U,4);S:'PSLOCK Y=""@1"";S PSQUEST=$P(^PS(50.0732,$P(@(DIE_DA_"",0)""),U,2),0),U);S PSQTYP=$P(^PS(50.0732,$P(@(DIE_DA_"",0)""),U,2),0),U,2);"
^DIE(872,"DR",2,50.07302,1)="S PSQTYP=$S(PSQTYP=1:""YES/NO/UNKNOWN"",PSQTYP=2:""FREE TEXT"",1:""NUMERIC"");W !,""QUESTION TEXT: "",PSQUEST,"" (no editing)"";W !,""TYPE OF ANSWER REQUIRED: "",PSQTYP,"" (no editing)"";S Y=""@2"";@1;1;"
^DIE(872,"DR",2,50.07302,2)="^50.0732^PS(50.0732,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PS(50.073,D0,""2"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@2;"
^DIE(872,"DR",2,50.735)=".01"
^DIE(872,"DR",3,50.0732)="1;S Y=$S(X=2:5,X=3:2,1:"""");5;S Y=""@3"";2;3;4;@3;"
^DIE(873,0)="PSO CLOZDRUG^2960423.1512^^50^^^2960423"
^DIE(873,"DIAB",3,0,50,0)="17.2;REQ"
^DIE(873,"DIAB",4,0,50,0)="17.3//7;REQ"
^DIE(873,"DIAB",5,0,50,0)="17.4;REQ"
^DIE(873,"DR",1,50)="3;2;17.2R~;17.3R~//7;17.4R~;17.5///^S X=""PSOCLO1"";101;40;"
^DIE(874,0)="PSOD DUE EDIT^2930226.0923^^50.0731^^^2970718^"
^DIE(874,"DR",1,50.0731)="9///^S X=DUZ;S:$D(PSKIP) Y=""@1"";2;7;Q;@1;4;8;"
^DIE(875,0)="PSO DISPLAY EDIT^2970725.1148^^59.3^^^2971118"
^DIE(875,"DR",1,59.3)=".01;S PDP=$P(^(0),""^"",2);1;I PDP=""N"",X=""T"",$O(^PS(52.11,""AD"",DA,0)) D BG^PSOHELP S Y=""@1"";5;@1;11;12;S:'X Y=""@2"";13;@2;7;S:'X Y=""@3"";D TEXT^PSOBGMGR;@3;2;S:'X Y=""@4"";14;8;@4;"
^DIE(876,0)="PRCD SUBSTATION^2960206.1534^^411^^^^"
^DIE(876,"DIAB",1,1,411.01,0)="ALL"
^DIE(876,"DIAB",1,1,411.03,0)="ALL"
^DIE(876,"DIAB",1,1,411.04,0)="ALL"
^DIE(876,"DIAB",2,0,411,0)=".01;""Substation"""
^DIE(876,"DR",1,411)="N PRCDTA;.01Substation~;S PRCDTA=$E(X,1,3);101////^S X=PRCDTA;.1;.5;102;1;2;15;16;17;18;19;19.2;11;24;I X=""N"" W *7,!,""This option is no longer supported"",! S Y=24;35;33;30;31;36;"
^DIE(876,"DR",2,411.01)=".01:8"
^DIE(876,"DR",2,411.02)=".01:1;I ($P(^PRC(411,DA(1),2,DA,0),U)'?1""F"".E) S Y=""@2"";2;I 'X S Y=""@2"";3//^S X=7;@2;"
^DIE(876,"DR",2,411.03)=".01:7"
^DIE(876,"DR",2,411.04)=".01:1"
^DIE(877,0)="RT NEW RECORD^2960715.1831^^190^1^^2960715"
^DIE(877,"AB","^",3)="2^RTCR"
^DIE(877,"AB","^",3,"///")=""
^DIE(877,"AB","^",5)="3^RTCR"
^DIE(877,"AB","^",5,"///")=""
^DIE(877,"AB","^",6)="4^RTCR"
^DIE(877,"AB","^",6,"///")=""
^DIE(877,"AB","^",7)="5^RTCR"
^DIE(877,"AB","^",7,"///")=""
^DIE(877,"AB","^",12)="6^RTCR"
^DIE(877,"AB","^",12,"///")=""
^DIE(877,"AB","^",105)="7^RTCR"
^DIE(877,"AB","^",105,"///")=""
^DIE(877,"AB","^",106)="1^RTCR1"
^DIE(877,"AB","^",106,"///")=""
^DIE(877,"AB","^",107)="2^RTCR1"
^DIE(877,"AB","^",107,"///")=""
^DIE(877,"AB","^",108)="3^RTCR1"
^DIE(877,"AB","^",108,"///")=""
^DIE(877,"AB","^",114)="3^RTCR2"
^DIE(877,"AB","^",115)="4^RTCR1"
^DIE(877,"AB","^",115,"///")=""
^DIE(877,"AB","^","@10")="12^RTCR1"
^DIE(877,"AB","^","@20")="4^RTCR2"
^DIE(877,"AB","^","@5")="10^RTCR1"
^DIE(877,"AB","^","@999")="5^RTCR2"
^DIE(877,"DR",1,190)="S RTSEMI=$C(59) D DUZ^RTPSET;3////^S X=+RTTY;5////^S X=RTPAR;6////^S X=$P(RTINIT,U,2);7////^S X=RTVOL;12////^S X=$S($D(RTACCN):RTACCN,1:"""");105////^S X=$P(RTINIT,U,5);106////^S X=RTNOW;107////^S X=RTDUZ;"
^DIE(877,"DR",1,190,1)="108////^S X=+$O(^DIC(195.3,""AA"",+RTAPL,$S('$D(RTRANEW):""INITIAL CREATION"",1:""TRANSFER CREATE INITIAL""),0));115////^S X=""n"";S:'$D(RTSHOW) Y=""@999"";W !!,$P($P(RTTY,U),RTSEMI,2),"" Creation:"";"
^DIE(877,"DR",1,190,2)="S L=$L($P($P(RTTY,U),RTSEMI,2))+10 W ! F I=1:1:L W ""-"";I $D(RTRANEW) S Y=""@5"";I $P(RTTY,U,16)'=""y"" S Y=""@10"";@5;12;@10;6;105;"
^DIE(877,"DR",1,190,3)="I X S:$D(RTB) RTZB=RTB S RTB=X,RTPCE=3 D ATT^RTDPA3 K RTPCE,RTB S:$D(RTZB) RTB=RTZB K RTZB K:Y Y S:$D(Y) Y=""@20"";114;@20;@999;K L,RTSEMI,RTDUZ;"
^DIE(877,"ROU")="^RTCR"
^DIE(877,"ROUOLD")="RTCR"
^DIE(878,0)="RT REQUEST^2910508.1417^^190.1^^^^"
^DIE(878,"AB","13^RTCU",8)="2^RTCU1"
^DIE(878,"AB","13^RTCU",9)="3^RTCU1"
^DIE(878,"AB","^",2)="6^RTCU3"
^DIE(878,"AB","^",2,"///")=""
^DIE(878,"AB","^",3)="7^RTCU3"
^DIE(878,"AB","^",3,"///")=""
^DIE(878,"AB","^",4)="11^RTCU2"
^DIE(878,"AB","^",4,"///")=""
^DIE(878,"AB","^",5)="4^RTCU"
^DIE(878,"AB","^",5,"///")=""
^DIE(878,"AB","^",6)="8^RTCU3"
^DIE(878,"AB","^",6,"///")=""
^DIE(878,"AB","^",7)="9^RTCU3"
^DIE(878,"AB","^",7,"///")=""
^DIE(878,"AB","^",8)="10^RTCU3"
^DIE(878,"AB","^",8,"///")=""
^DIE(878,"AB","^",10)="11^RTCU3"
^DIE(878,"AB","^",10,"///")=""
^DIE(878,"AB","^",11)="1^RTCU4"
^DIE(878,"AB","^",11,"///")=""
^DIE(878,"AB","^",12)="4^RTCU2"
^DIE(878,"AB","^",12,"///")=""
^DIE(878,"AB","^",14)="1^RTCU2"
^DIE(878,"AB","^",75)="1^RTCU3"
^DIE(878,"AB","^","@10")="7^RTCU"
^DIE(878,"AB","^","@20")="14^RTCU"
^DIE(878,"AB","^","@22")="2^RTCU2"
^DIE(878,"AB","^","@25")="6^RTCU2"
^DIE(878,"AB","^","@30")="9^RTCU2"
^DIE(878,"AB","^","@40")="13^RTCU2"
^DIE(878,"AB","^","@50")="18^RTCU2"
^DIE(878,"AB","^","@55")="3^RTCU3"
^DIE(878,"AB","^","@60")="5^RTCU3"
^DIE(878,"AB","^","@999")="2^RTCU4"
^DIE(878,"DIAB",1,0,190.1,1)="5;""REQUESTING RECORD FOR WHICH BORROWER"""
^DIE(878,"DIAB",1,0,190.1,2)="REQUESTOR:"
^DIE(878,"DR",1,190.1)="I '$D(RTNOW) W !?3,*7,""...variable RTNOW must be set to use this template."" S Y=""@999"";D DUZ^RTPSET,D^RTQ:$D(RTSHOW);S:'$D(RTB) Y=""@10"";5////^S X=RTB;D INST^RTUTL:'$D(RTINST);S Y=$S($D(RTINST):""@22"",1:""@20"");@10;"
^DIE(878,"DR",1,190.1,1)="5REQUESTING RECORD FOR WHICH BORROWER~;S:X]"""" RTB=X;Q;D INST^RTUTL;S RTPCE=2 D ATT^RTDPA3 K RTPCE K:Y Y S:$D(Y) Y=""@20"";"
^DIE(878,"DR",1,190.1,2)="^195.9^RTV(195.9,^^S I(0,0)=D0 S Y(1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@20;S:$D(RTPULL) Y=""@22"";S RTPCE=3 D ATT^RTDPA3 K RTPCE K:Y Y S:$D(Y) Y=""@22"";14;@22;"
^DIE(878,"DR",1,190.1,3)="S:'$D(RTINST) Y=""@25"";12////^S X=RTINST;S Y=""@30"";@25;12;S:X]"""" RTINST=X;@30;S:'$D(RTQDT) Y=""@40"";4////^S X=RTQDT;S Y=""@50"";@40;4//^S X=""NOW"";I $D(RTFL) S Y="""";S:X?7N0.1""."".N RTQDT=X;S:'$D(RTQDT) Y=""@40"";@50;"
^DIE(878,"DR",1,190.1,4)="S:$S('$D(RTSHOW):1,1:+RTSHOW) Y=""@55"";75//^S X=$S($D(RTCOM):RTCOM,1:"""");S Y=""@60"";@55;75///^S X=$S($D(RTCOM):RTCOM,1:"""");@60;2////^S X=RTNOW;3////^S X=RTDUZ;6////^S X=""r"";7////^S X=RTNOW;8////^S X=RTDUZ;"
^DIE(878,"DR",1,190.1,5)="10////^S X=$S($D(RTPULL):RTPULL,1:"""");11////^S X=$S($D(RTPAR):RTPAR,1:"""");@999;K RTDUZ;"
^DIE(878,"DR",2,195.9)="W !!?2,""Update Borrower Information:"",!?2,""----------------------------"";8;9;W !?2,""----------------------------"";"
^DIE(878,"ROU")="^RTCU"
^DIE(878,"ROUOLD")="RTCU"
^DIE(879,0)="RT TYPE SET-UP^2910225.1548^^195.2^^^^"
^DIE(879,"DIAB",1,1,195.21,0)="ALL"
^DIE(879,"DIAB",1,1,195.22,0)="ALL"
^DIE(879,"DIAB",20,0,195.2,0)="13;T"
^DIE(879,"DR",1,195.2)="S RT0=^DIC(195.2,DA,0) W !;.01;2;14;15;16;17//^S X=""YES"";150;4;50;W !!,""Label Format Specifications:"",!,""----------------------------"";5;6;W !!,""Cutoff/Purge Parameters:"",!,""------------------------"";9;11;11.1;21;19;13T~;W !;12;8;"
^DIE(879,"DR",1,195.2,1)="10;18//NO;W !!,""Missing Record Control Parameter:"",!,""---------------------------------"";7;W !!,""Other Records to Create When Initializing the "",$P(RT0,U),"":"" S RTI=$X W ! F RTI1=1:1:RTI W ""-"";75;"
^DIE(879,"DR",1,195.2,2)="W !!,""File Rooms Allowed to Store "",$P(RT0,U),""S:"" S RTI=$X W ! F RTI1=1:1:RTI W ""-"";100;K RT0,RTMES,RTI,RTI1;"
^DIE(879,"DR",2,195.21)=".01"
^DIE(879,"DR",2,195.22)=".01"
^DIE(880,0)="RT APPL SET-UP^2910915.142^^195.1^^^^"
^DIE(880,"DIAB",1,1,195.1165,0)="ALL"
^DIE(880,"DR",1,195.1)="W !!,$P(^DIC(195.1,DA,0),U),"" Application Parameter Set-up:"" K L S $P(L,""-"",$L($P(^DIC(195.1,DA,0),U))+31)="""" W !,L K L;10;75;3;S:$S('$D(^DIC(195.4,1,""MAS"")):1,DA'=+^(""MAS""):1,1:0) Y=""@10"";"
^DIE(880,"DR",1,195.1,1)="W !!,""Default MAS Record Requests For Clinics:"",!,""----------------------------------------"";150;"
^DIE(880,"DR",1,195.1,2)="W !!,""Default Radiology Folder Requests for Clinics that Requires Films:"",!,""------------------------------------------------------------------"";250;@10;W !!,""Institution Parameters:"",!,""-----------------------"";100;K RTDIVX;"
^DIE(880,"DR",1,195.1,3)="W !!,""Clinic Initialization Request Parameters:"",!,""-----------------------------------------"";41;165;43;42;W !!,""Record Retirement Parameters:"",!,""-----------------------------"";44;45;"
^DIE(880,"DR",2,195.1165)=".01"
^DIE(880,"DR",2,195.12)=".01;S RTDIVX=$P(^DIC(4,X,0),U);2;3//TERMINAL DIGITS;W !!?2,""Record Type Parameters within "",RTDIVX,"":"",!?2,""---------------------------------------------"";100;W !;"
^DIE(880,"DR",2,195.14)=".01;2;"
^DIE(880,"DR",2,195.15)=".01;2;"
^DIE(880,"DR",3,195.13)=".01;2;5;W !;"
^DIE(881,0)="RT LABEL EDIT^2860904^^194.4^^^^"
^DIE(881,"DR",1,194.4)=".01;4;50;2;K RTFLD;S:'$D(RTFMT) RTFMT=DA,RTKILL="""" D CMP^RTL2 K:$D(RTKILL) RTFMT K RTKILL;"
^DIE(881,"DR",2,194.41)=".01;S RTFLD=X;S:$P(^DIC(194.5,RTFLD,0),U,6)=""y"" Y=""@2"";2;3;S:$P(^DIC(194.5,RTFLD,0),U)[""FREE"" Y=""@1"";4;S Y=""@2"";@1;5;@2;"
^DIE(882,0)="RT CHARGE^2940526.0836^^190^^^^"
^DIE(882,"AB","14^RTCC",9)="1^RTCC1"
^DIE(882,"AB","14^RTCC",9,"///")=""
^DIE(882,"AB","14^RTCC",10)="2^RTCC1"
^DIE(882,"AB","14^RTCC",10,"///")=""
^DIE(882,"AB","^",11)="5^RTCC"
^DIE(882,"AB","^",11,"///")=""
^DIE(882,"AB","^",50)="4^RTCC2"
^DIE(882,"AB","^",50,"///")=""
^DIE(882,"AB","^",75)="11^RTCC"
^DIE(882,"AB","^",75,"///")=""
^DIE(882,"AB","^",101)="8^RTCC"
^DIE(882,"AB","^",101,"///")=""
^DIE(882,"AB","^",102)="15^RTCC"
^DIE(882,"AB","^",102,"///")=""
^DIE(882,"AB","^",105)="15^RTCC2"
^DIE(882,"AB","^",105,"///")=""
^DIE(882,"AB","^",106)="8^RTCC3"
^DIE(882,"AB","^",106,"///")=""
^DIE(882,"AB","^",107)="9^RTCC3"
^DIE(882,"AB","^",107,"///")=""
^DIE(882,"AB","^",108)="10^RTCC3"
^DIE(882,"AB","^",108,"///")=""
^DIE(882,"AB","^",114)="1^RTCC2"
^DIE(882,"AB","^",114,"///")=""
^DIE(882,"AB","^",115)="7^RTCC2"
^DIE(882,"AB","^",115,"///")=""
^DIE(882,"AB","^","@10")="9^RTCC"
^DIE(882,"AB","^","@11")="12^RTCC"
^DIE(882,"AB","^","@12")="16^RTCC"
^DIE(882,"AB","^","@15")="2^RTCC2"
^DIE(882,"AB","^","@18")="5^RTCC2"
^DIE(882,"AB","^","@19")="13^RTCC2"
^DIE(882,"AB","^","@20")="3^RTCC3"
^DIE(882,"AB","^","@30")="7^RTCC3"
^DIE(882,"AB","^","@5")="6^RTCC"
^DIE(882,"AB","^","@999")="2^RTCC4"
^DIE(882,"DIAB",1,0,190,2)="ASSOCIATED MOVEMENT:"
^DIE(882,"DR",1,190)="I '$D(RTMV) W !,""Type of movement not defined."" S Y=""@999"";D DUZ^RTPSET S RT0=^RT(DA,0),RTCL=$S($D(^(""CL"")):^(""CL""),1:"""");I ""tr""[$E($P(RT0,""^"",11)_0),$D(RTPLTY),RTPLTY=3 S Y=""@999"";I $S('$D(RTPLTY):1,RTPLTY=3:0,1:1) S Y=""@5"";"
^DIE(882,"DR",1,190,1)="11///^S X=""o"";@5;S:'RTCL Y=""@10"";101///@;@10;S:$S('$D(^RT(DA,""COMMENT"")):1,1:^(""COMMENT"")']"""") Y=""@11"";75///@;@11;S:'$P(RTCL,U,2) Y=""@12"";"
^DIE(882,"DR",1,190,2)="^190.3^RTV(190.3,^^S I(0,0)=D0 S Y(1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");102///@;@12;S:'$P(RTCL,U,14) Y=""@15"";114///@;@15;S:$S('$D(^RT(DA,""I"")):1,'^(""I""):1,1:0) Y=""@18"";50///@;"
^DIE(882,"DR",1,190,3)="@18;101////^S X=$S($D(RTQ):RTQ,1:"""");115////^S X=$S($D(RTBCIFN):RTBCIFN,1:""n"");75///^S X=$S($D(RTCOMR):RTCOMR,1:"""");S:'$D(RTCHG) Y=""@19"";S DIE(""NO^"")="""";75;K DIE(""NO^"");@19;S:'$D(RTB) Y=""@20"";105////^S X=RTB;"
^DIE(882,"DR",1,190,4)="114////^S X=$S('$D(RTPROV):"""",RTPROV:RTPROV,1:"""");S Y=""@30"";@20;105;I X S RTB=X,RTPCE=3 D ATT^RTDPA3 K RTPCE,RTB K:Y Y S:$D(Y) Y=""@30"";114;@30;106///^S X=$S('$D(RTPAST):""NOW"",1:RTPAST);107////^S X=RTDUZ;108////^S X=RTMV;"
^DIE(882,"DR",1,190,5)="50///^S X=$S('$D(RTINACFL):0,1:RTINACFL),X=$S(X:""T-1"",$P(RTMV0,""^"")'[""CHECK-IN"":"""",'$D(^DIC(195.2,+$P(RT0,""^"",3),0)):0,$P(^(0),""^"",15)=""y"":""T-1"",1:"""");@999;K RT0,RTCL,RTDUZ;"
^DIE(882,"DR",2,190.3)="9///^S X=$S('$D(RTPAST):""NOW"",1:RTPAST);10////^S X=RTDUZ;"
^DIE(882,"ROU")="^RTCC"
^DIE(882,"ROUOLD")="RTCC"
^DIE(883,0)="RT CHANGE REQUEST STATUS^2910312.1414^^190.1^^^^"
^DIE(883,"AB","^",6)="2^RTCS"
^DIE(883,"AB","^",6,"///")=""
^DIE(883,"AB","^",7)="3^RTCS"
^DIE(883,"AB","^",7,"///")=""
^DIE(883,"AB","^",8)="4^RTCS"
^DIE(883,"AB","^",8,"///")=""
^DIE(883,"DR",1,190.1)="D DUZ^RTPSET;6////^S X=RTSTAT;7///^S X=""NOW"";8////^S X=RTDUZ;K RTDUZ;"
^DIE(883,"ROU")="^RTCS"
^DIE(883,"ROUOLD")="RTCS"
^DIE(884,0)="RT MOVEMENT^2870201^^190.3^^^^"
^DIE(884,"AB","10^RTCM",102)="1^RTCM1"
^DIE(884,"AB","10^RTCM",102,"///")=""
^DIE(884,"AB","^",2)="1^RTCM"
^DIE(884,"AB","^",2,"///")=""
^DIE(884,"AB","^",3)="2^RTCM"
^DIE(884,"AB","^",3,"///")=""
^DIE(884,"AB","^",4)="3^RTCM"
^DIE(884,"AB","^",4,"///")=""
^DIE(884,"AB","^",5)="4^RTCM"
^DIE(884,"AB","^",5,"///")=""
^DIE(884,"AB","^",6)="5^RTCM"
^DIE(884,"AB","^",6,"///")=""
^DIE(884,"AB","^",7)="6^RTCM"
^DIE(884,"AB","^",7,"///")=""
^DIE(884,"AB","^",8)="7^RTCM"
^DIE(884,"AB","^",8,"///")=""
^DIE(884,"AB","^",14)="8^RTCM"
^DIE(884,"AB","^",14,"///")=""
^DIE(884,"AB","^",15)="9^RTCM"
^DIE(884,"AB","^",15,"///")=""
^DIE(884,"DIAB",1,0,190.3,1)="NAME:"
^DIE(884,"DR",1,190.3)="2////^S X=$P(RTM,U,2);3////^S X=$P(RTM,U,3);4////^S X=$P(RTM,U,4);5////^S X=$P(RTM,U,5);6////^S X=$P(RTM,U,6);7////^S X=$P(RTM,U,7);8////^S X=$P(RTM,U,8);14////^S X=$P(RTM,U,14);15////^S X=$P(RTM,U,15);"
^DIE(884,"DR",1,190.3,1)="^190^RT(^^S I(0,0)=D0 S Y(1)=$S($D(^RTV(190.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(884,"DR",2,190)="102////^S X=RTLAST;"
^DIE(884,"ROU")="^RTCM"
^DIE(884,"ROUOLD")="RTCM"
^DIE(885,0)="RT MISSING^2870202^^190.2^^^^"
^DIE(885,"DR",1,190.2)="D DUZ^RTPSET;2////^S X=RTNOW;3////^S X=RTDUZ;4////^S X=""m"";100;"
^DIE(886,0)="RT FOUND^2870202^^190.2^^^^"
^DIE(886,"DR",1,190.2)="D DUZ^RTPSET S:$P(^RTV(190.2,DA,0),U,4)=""s"" Y=""@10"";6///^S X=""NOW"";8////^S X=RTDUZ;5////^S X=RTB;@10;4////^S X=$S('$D(RTAPL):""s"",$P(RTAPL,U,8)']"""":""s"",'$D(^XUSEC($P(RTAPL,U,8),DUZ)):""s"",1:""f"");7;"
^DIE(886,"DR",1,190.2,1)="I $D(RTAPL),$P(RTAPL,U,8)]"""",$D(^XUSEC($P(RTAPL,U,8),DUZ)) S Y=""@30"";150;S Y=""@40"";@30;9////^S X=RTDUZ;10///^S X=""NOW"";100;@40;K RTDUZ;"
^DIE(887,0)="RT REASON SET-UP^2860805^^195.6^^^^"
^DIE(887,"DR",1,195.6)=".01;2;100;"
^DIE(888,0)="RT CHANGE PULL LIST STATUS^2870202^^194.2^^^^"
^DIE(888,"DR",1,194.2)="D DUZ^RTPSET;6////^S X=RTSTAT;7///^S X=""NOW"";8////^S X=RTDUZ;K RTDUZ;"
^DIE(889,0)="RT PRINT FIELD SETUP^2870508^^194.5^^^^"
^DIE(889,"DIAB",1,1,194.51,0)="ALL"
^DIE(889,"DR",1,194.5)=".01;3;5///^S X=""RTV(""_DA_"")"";4;6;50;"
^DIE(889,"DR",2,194.51)=".01:3"
^DIE(890,0)="RT EDIT REQUEST^2910521.0949^^190.1^^^^"
^DIE(890,"DR",1,190.1)="D DUZ^RTPSET,D^RTQ K RTFL S RT0=^RTV(190.1,DA,0),RTFL1=$P(RT0,U,4);4;S:X'=$P(RT0,U,4) RTFL="""";5;S:X=$P(RT0,U,5) Y=""@20"" I X'=$P(RT0,U,5) S RTFL="""" D INST^RTUTL;Q;12////^S X=$S($D(RTINST):RTINST,1:"""");Q;S:X]"""" Y=""@10"";12;@10;"
^DIE(890,"DR",1,190.1,1)="S:'$D(RTFL) Y=""@20"";2///^S X=""NOW"";3////^S X=RTDUZ;@20;K RTINST,RT0,RTFL,RTDUZ;"
^DIE(891,0)="RT APPL SET-UP (SITE MGR)^2910411.1341^^195.1^^^^"
^DIE(891,"DIAB",1,1,195.11,0)="ALL"
^DIE(891,"DIAB",1,1,195.17,0)="ALL"
^DIE(891,"DR",1,195.1)="W !!,$P(^DIC(195.1,DA,0),U),"" Application Parameter Set-up (SITE MGR):"" K L2 S $P(L2,""-"",$L($P(^DIC(195.1,DA,0),U))+42)="""" W !,L2 K L2;.01;50;2;W !!,""Entity Parameters:"",!,""------------------"";31;9;300;"
^DIE(891,"DR",1,195.1,1)="W !!,""Borrower Parameters:"",!,""--------------------"";32;125;W !!,""Miscellaneous Parameters:"",!,""-------------------------"";7;8;12;14;21;22;23;24;"
^DIE(891,"DR",2,195.11)=".01"
^DIE(891,"DR",2,195.16)=".01;2;3;4;"
^DIE(891,"DR",2,195.17)=".01"
^DIE(892,0)="RT PULL LIST^2910418.1814^^194.2^^^^"
^DIE(892,"AB","^",.01)="3^RTCP"
^DIE(892,"AB","^",2)="16^RTCP"
^DIE(892,"AB","^",3)="3^RTCP1"
^DIE(892,"AB","^",3,"///")=""
^DIE(892,"AB","^",4)="8^RTCP"
^DIE(892,"AB","^",5)="5^RTCP1"
^DIE(892,"AB","^",6)="1^RTCP2"
^DIE(892,"AB","^",6,"///")=""
^DIE(892,"AB","^",7)="2^RTCP2"
^DIE(892,"AB","^",7,"///")=""
^DIE(892,"AB","^",8)="3^RTCP2"
^DIE(892,"AB","^",8,"///")=""
^DIE(892,"AB","^",10)="18^RTCP1"
^DIE(892,"AB","^",10,"///")=""
^DIE(892,"AB","^",11)="10^RTCP"
^DIE(892,"AB","^",12)="13^RTCP1"
^DIE(892,"AB","^",12,"///")=""
^DIE(892,"AB","^",100)="4^RTCP"
^DIE(892,"AB","^","@10")="5^RTCP"
^DIE(892,"AB","^","@15")="12^RTCP"
^DIE(892,"AB","^","@18")="14^RTCP"
^DIE(892,"AB","^","@20")="18^RTCP"
^DIE(892,"AB","^","@30")="2^RTCP1"
^DIE(892,"AB","^","@40")="8^RTCP1"
^DIE(892,"AB","^","@50")="11^RTCP1"
^DIE(892,"AB","^","@60")="15^RTCP1"
^DIE(892,"AB","^","@70")="17^RTCP1"
^DIE(892,"DR",1,194.2)="S RTSEMI=$C(59) D DUZ^RTPSET;S:'$D(RTSHOW) Y=""@10"";.01;100;@10;S:$D(RTTY) Y=""@15"";I $D(RTPLTY),""13""[$E(RTPLTY_0) S Y=""@18"";4;S:X="""" Y=""@18"";11//LATEST VOLUME;S Y=""@18"";@15;4///^S X=$P($P(RTTY,U),RTSEMI,2);@18;S:$D(RTQDT) Y=""@20"";2;"
^DIE(892,"DR",1,194.2,1)="S Y=""@30"";@20;2////^S X=$P(RTQDT,""."");@30;3////^S X=RTDUZ;S:$D(RTB) Y=""@40"";5;S A=+$P(^RTV(194.2,DA,0),U,15) D INST1^RTUTL K A;S Y=""@50"";@40;5////^S X=RTB;S A=+$P(^RTV(194.2,DA,0),U,15) D INST1^RTUTL K A;@50;S:'$D(RTINST) Y=""@60"";"
^DIE(892,"DR",1,194.2,2)="12////^S X=RTINST;S Y=""@70"";@60;12;@70;10////^S X=$S($D(RTPLTY):RTPLTY,1:2);6////^S X=""r"";7///^S X=""NOW"";8////^S X=RTDUZ;K RTSEMI,RTDUZ;"
^DIE(892,"ROU")="^RTCP"
^DIE(892,"ROUOLD")="RTCP"
^DIE(893,0)="RT OVERALL PARAMETERS^2910506.0751^^195.4^^^^"
^DIE(893,"DR",1,195.4)="W !!,""Parameters Used By All Applications:"",!,""------------------------------------"";2;4;3;5;6;20;30;W !!,""MAS Parameters:"",!,""---------------"";102;100;W !!,""Film Jacket Tracking Parameters:"",!,""--------------------------------"";"
^DIE(893,"DR",1,195.4,1)="202;200;W !!,""Parameters have been set."";"
^DIE(894,0)="RT ADMIT SET-UP (SITE MGR)^2870130^^195.9^^^^"
^DIE(894,"DIAB",1,1,195.9002,0)="ALL"
^DIE(894,"DR",1,195.9)="4;100;"
^DIE(894,"DR",2,195.9002)=".01"
^DIE(895,0)="RT FILE ROOM SET-UP^2870519^^195.9^^^^"
^DIE(895,"DIAB",6,0,195.9,0)="HOSPITAL:"
^DIE(895,"DR",1,195.9)="W !;8;9;11;15;^44^SC(^^S I(0,0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(895,"DR",2,44)="W !!?2,""Hospital Location File Parameters:"",!?2,""----------------------------------"";.01;3;"
^DIE(896,0)="RT FILE ROOM SET-UP (SITE MGR)^2870519^^195.9^^^^"
^DIE(896,"DIAB",1,1,195.9002,0)="ALL"
^DIE(896,"DR",1,195.9)="W !!,""Printers Assigned to this File Room:"",!,""------------------------------------"";4;5;6;W !!,""CRT's Assigned to this File Room:"",!,""---------------------------------"";100;"
^DIE(896,"DR",1,195.9,1)="W !!,""Security Key Needed to Select File Room:"",!,""----------------------------------------"";75;"
^DIE(896,"DR",2,195.9002)=".01"
^DIE(897,0)="RT BORROWER SET-UP^3000706.114^^195.9^^^3030407"
^DIE(897,"DIAB",1,0,195.9,4)="REQUESTS FOR WHICH BORROWER?:"
^DIE(897,"DIAB",5,0,195.9,0)="HOSPITAL:"
^DIE(897,"DR",1,195.9)="W ! S RTB0=^RTV(195.9,DA,0);8;9;10//NORMAL;^44^SC(^^S I(0,0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");150;S:$P(RTB0,U)'[""SC("" Y=""@99"";"
^DIE(897,"DR",1,195.9,1)="I $D(^SC(+RTB0,0)),$P(^(0),U,3)=""C"",$D(^DIC(195.4,1,""MAS"")),$P(RTB0,U,3)=+^(""MAS"") S Y=""@10"";I $D(^SC(+RTB0,0)),$P(^(0),U,3)=""Z"",$D(^DIC(40.9,+$P(^(0),U,22),0)),$P(^(0),U,2)=""AA"" S Y=""@10"";"
^DIE(897,"DR",1,195.9,2)="I $D(^SC(+RTB0,0)),$P(^(0),U,3)=""I""!($P(^(0),U,3)=""F""),$D(^DIC(195.4,1,""RAD"")),$P(RTB0,U,3)=+^(""RAD"") S Y=""@10"";S Y=""@99"";@10;"
^DIE(897,"DR",1,195.9,3)="W !!,""Record Request to be Made When Making an Appt or Registering a Pt:"",!,""------------------------------------------------------------------"";12//^S X=$P(^SC(+RTB0,0),U);"
^DIE(897,"DR",1,195.9,4)="^195.9^RTV(195.9,^^S I(0,0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@99;S:$P(RTB0,U)[""DIC(4,"" Y=""@199"";W !,""Scheduled Admissions Borrowers"";"
^DIE(897,"DR",1,195.9,5)="W !,""------------------------------"";171;172;@199;K RTB0;"
^DIE(897,"DR",2,44)="W !!?2,""Hospital Location File Parameters:"",!?2,""----------------------------------"";3;"
^DIE(897,"DR",2,195.9)="14;S:X=""n"" Y=""@50"";50;@50;"
^DIE(897,"DR",2,195.9003)=".01;"
^DIE(897,"DR",3,195.9001)=".01;2//LAST;"
^DIE(898,0)="RT QUICK UPDATE^2861027^^195.9^^^^"
^DIE(898,"DR",1,195.9)="W !,""Update Borrower Information:"",!,""----------------------------"";8;9;W !,""----------------------------"";"
^DIE(899,0)="RT PURGE PROFILE^2870428^^195.2^^^^"
^DIE(899,"DR",1,195.2)="18;10;8;12;"
^DIE(900,0)="RT MOVEMENT SET-UP^2870518^^195.3^^^^"
^DIE(900,"DR",1,195.3)=".01;2;4;"
^DIE(901,0)="RT FILE ROOM/REMOTE^2910318.2252^^195.9^^^^"
^DIE(901,"DIAB",2,0,195.9,0)="21;""DOMAIN """
^DIE(901,"DR",1,195.9)="S RTREMOTE="""";21DOMAIN ~;5;22;23;"
^DIE(902,0)="RT RETIREMENT PROFILE^2910313.13^^195.2^^^^"
^DIE(902,"DR",1,195.2)="22;19;"
^DIE(903,0)="AFJXNHEX EDIT^2950322.1233^^537025^^^^"
^DIE(903,"DR",1,537025)=".01;1;1.1;2;3;4;5;6;"
^DIE(904,0)="IBDF EDIT MULT CHOICE FIELD^2950911.1413^^357.93^^^2970226"
^DIE(904,"AB","6^IBDXI931",.02)="13^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.03)="15^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.04)="12^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.05)="9^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.06)="1^IBDXI933"
^DIE(904,"AB","6^IBDXI931",.07)="3^IBDXI933"
^DIE(904,"AB","6^IBDXI931",.08)="1^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.08,"///")=""
^DIE(904,"AB","6^IBDXI931",.09)="4^IBDXI932"
^DIE(904,"AB","6^IBDXI931",.09,"///")=""
^DIE(904,"AB","6^IBDXI931","@4")="6^IBDXI932"
^DIE(904,"AB","6^IBDXI931","@5")="8^IBDXI932"
^DIE(904,"AB","^",.01)="1^IBDXI93"
^DIE(904,"AB","^",.02)="8^IBDXI93"
^DIE(904,"AB","^",.03)="11^IBDXI93"
^DIE(904,"AB","^",.04)="1^IBDXI931"
^DIE(904,"AB","^",.06)="4^IBDXI93"
^DIE(904,"AB","^",.07)="10^IBDXI93"
^DIE(904,"AB","^",.08)="3^IBDXI93"
^DIE(904,"AB","^",.08,"///")=""
^DIE(904,"AB","^",.09)="5^IBDXI931"
^DIE(904,"AB","^",1)="6^IBDXI931"
^DIE(904,"AB","^","@1")="7^IBDXI93"
^DIE(904,"AB","^","@2")="3^IBDXI931"
^DIE(904,"AB","^","@3")="8^IBDXI931"
^DIE(904,"AB","^","@99")="10^IBDXI931"
^DIE(904,"DIAB",3,0,357.93,1)=".04;REQ"
^DIE(904,"DIAB",4,0,357.93,0)=".06;T"
^DIE(904,"DIAB",8,0,357.93,0)=".02;T"
^DIE(904,"DIAB",10,0,357.93,0)=".07;T"
^DIE(904,"DIAB",11,0,357.93,0)=".03;REQ"
^DIE(904,"DIAB",12,1,357.931,0)=".04;T"
^DIE(904,"DR",1,357.93)=".01;I IBOLD S Y=""@1"";.08///^S X=$G(IBBLK);.06T~;S IBTYPE=X;D RESET^VALM4:VALMCC,REFRESH^VALM;@1;.02T~;S:$L(X) IBX=$L(X)+1 S:'$L(X) Y=""@2"";.07T~;.03R~;"
^DIE(904,"DR",1,357.93,1)="S IBX=IBX+X+1 I (X<$$MINX^IBDFU1B)!(X>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""input field"");I ((IBX-3)>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""input field"");.04R~;"
^DIE(904,"DR",1,357.93,2)="S IBY=X I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""input field"");@2;D FULL^VALM1;.09;1;S Y=""@99"";@3;D FULL^VALM1;@99;"
^DIE(904,"DR",2,357.931)=".08////^S X=$G(IBID);S DIE(""NO^"")=""BACK"";I '$D(IBQUAL) S Y=""@4"";.09///^S X=IBQUAL;S Y=""@5"";@4;.09;@5;.05//^S X=$G(IBLABEL);S IBLEN=$L(X);D RESET^VALM4:VALMCC,REFRESH^VALM;.04T~;.02//^S X=IBX+1;"
^DIE(904,"DR",2,357.931,1)="S IBX=X+IBLEN+2 I (X<$$MINX^IBDFU1B)!((IBX-3)>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""input field"");.03//^S X=IBY+1;S IBY=X+1 I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""input field"");.06//^S X=IBX;"
^DIE(904,"DR",2,357.931,2)="S IBX=X+5 I (X<$$MINX^IBDFU1B)!((X+2)>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""bubble"");.07//^S X=IBY;S IBY=X I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""bubble"");D FULL^VALM1;S DIE(""NO^"")=""BACKOUTOK"";"
^DIE(904,"ROU")="^IBDXI93"
^DIE(904,"ROUOLD")="IBDXI93"
^DIE(905,0)="IBDF EDIT LABEL FIELD^2950417.1134^@^357.5^^@^2960627"
^DIE(905,"DIAB",3,1,357.52,0)=".03;T"
^DIE(905,"DR",1,357.5)=".01;I IBOLD S Y=""@1"";.02////^S X=$G(IBBLK);.03////^S X="""";@1;S (IBY,IBX)=1;2;@99;S IBDELETE=0;"
^DIE(905,"DR",2,357.52)=".01;S:X="""" Y=""@99"" S IBW=$L(X);.03T~;I X[""I"" S Y=""@7"",IBW=0;.05//^S X=+IBY;S IBY=X+1;.04//^S X=+IBX;S IBX=X+2+IBW;"
^DIE(906,0)="IBDF EDIT HAND PRINT FIELD^2950906.1306^^359.94^^^2960627"
^DIE(906,"DIAB",2,0,359.94,1)=".04;REQ"
^DIE(906,"DIAB",4,0,359.94,0)=".06;T"
^DIE(906,"DIAB",14,0,359.94,0)=".03;REQ"
^DIE(906,"DR",1,359.94)=".01;I IBOLD S Y=""@1"";.08///^S X=$G(IBBLK);.06T~;S IBOLD=IBOLD;.1;S IBOLD=X;.02///^S X=$P(^IBE(359.1,IBOLD,0),""^"",10);D RESET^VALM4:VALMCC,REFRESH^VALM;@1;.02;S IBX=$L(X)+1;.05;.03R~;"
^DIE(906,"DR",1,359.94,1)="S IBX=IBX+X-1+$$LENGTHDT^IBDF9B4($P(^IBE(359.94,D0,0),""^"",10)) I (X<$$MINX^IBDFU1B)!(IBX>$$MAXX^IBDFU1B) D WARNING^IBDFU1B(""hand print field"");.04R~;S IBY=X I (X<$$MINY^IBDFU1B)!(X>$$MAXY^IBDFU1B) D WARNING^IBDFU1B(""input field"");"
^DIE(906,"DR",1,359.94,2)="S IBDELETE=0;"
^DIE(907,0)="IBDF EDIT PLACE HOLDER^2961008.0933^@^357.3^^@^2961025"
^DIE(907,"DIAB",3,0,357.3,0)=".08;T"
^DIE(907,"DR",1,357.3)=".05;S $P(^IBE(357.3,DA,0),""^"",1)=X;.08T~;.06//^S X="" "";I X']"" "" S Y=""@1"";.07;@1;"
^DIE(908,0)="IBDF EDIT PRINTER^2970314.1401^^357.94^^^2970314"
^DIE(908,"DIAB",10,0,357.94,0)=".03//$C(27)_""&l0S"""
^DIE(908,"DIAB",12,0,357.94,0)=".04//$C(27)_""&l1S"""
^DIE(908,"DIAB",14,0,357.94,0)=".05//$C(27)_""&l2S"""
^DIE(908,"DR",1,357.94)=".01;.02;I $P($G(^IBE(357.94,+DA,0)),""^"",2)=1 S Y=""@1"";.03;.04;.05;S Y=""@99"";@1;Q;.03//^S X=27,X=$C(X)_""&l0S"";Q;.04//^S X=27,X=$C(X)_""&l1S"";Q;.05//^S X=27,X=$C(X)_""&l2S"";@99;.06;"
^DIE(909,0)="PSJUMATE^2900322.1951^^57.7^^^2970307^"
^DIE(909,"%D",0)="^^1^1^2890927^"
^DIE(909,"%D",1,0)="  Used to create and edit Medication Administration teams."
^DIE(909,"DR",1,57.7)="1;"
^DIE(909,"DR",2,57.701)=".01;1;"
^DIE(909,"DR",3,57.702)=".01;"
^DIE(911,0)="PSJIDE^2910313.1437^^50.4^^^2960918^"
^DIE(911,"%D",0)="^^2^2^2901227^"
^DIE(911,"%D",1,0)="This is used to allow the user to edit the fields pertaining to Electrolyte"
^DIE(911,"%D",2,0)="drugs."
^DIE(911,"DR",1,50.4)=".01;1;"
^DIE(913,0)="PSJI SITE PARAMETERS^3030214.0743^^59.5^^^3030624^"
^DIE(913,"%D",0)="^.4021^2^2^3030214^^"
^DIE(913,"%D",1,0)="This is used to allow the user to define the characteristics of IV rooms"
^DIE(913,"%D",2,0)="and satellites to the IV package."
^DIE(913,"DIAB",1,1,59.52,0)="ALL"
^DIE(913,"DR",1,59.5)=".01;.101;9;12;15;.107;.109;.102;.103;.104;.111;.112;17;18;10;.105;.108;8;2;3;"
^DIE(913,"DR",1,59.5,1)="13///^K IOP S %ZIS=""NQ"",%ZIS(""B"")=$S($P(^PS(59.5,DA(1),0),U,2)]"""":$P(^(0),U,2),1:""HOME""),%ZIS(""A"")=""LABEL DEVICE: "" D ^%ZIS S:POP ION=""HOME"" S PSIVPL=ION K IOP,%ZIS S X=ION;"
^DIE(913,"DR",1,59.5,2)="14///^K IOP S %ZIS(""B"")=$S($P(^PS(59.5,DA(1),0),U,3)]"""":$P(^(0),U,3),1:""HOME""),%ZIS=""NQ"",%ZIS(""A"")=""REPORT DEVICE: "" D ^%ZIS S:POP ION=""HOME"" S PSIVPR=ION K IOP,%ZIS S X=ION;19;20;"
^DIE(913,"DR",2,59.51)=".01;.04;.02;.05;.03//^S X=^PS(59.5,DA(1),2,DA,0),X=$P(X,""^"")_"" to ""_$P(X,""^"",4);"
^DIE(913,"DR",2,59.52)=".01"
^DIE(915,0)="PSJ SHIFT EDIT^2891105.2041^^51.15^^^^"
^DIE(915,"DR",1,51.15)=".01;1;2;3;"
^DIE(915,"DR",2,51.153)=".01;1;"
^DIE(916,0)="PSJU DRUG EDIT^2910220.2251^^50^^^^"
^DIE(916,"DR",1,50)="51;101;I $D(^PSDRUG(DA,660)),$P(^(660),""^"",6) S Y=62.01;16;62.01;62.02;62.03;62.04;62.05;I $D(^PSDRUG(DA,0)),$P(^(0),""^"",9) S Y=212.2;65;212.2;212;"
^DIE(916,"DR",2,50.0212)="1;"
^DIE(916,"DR",2,50.065)=".01;"
^DIE(917,0)="PSJ OAOPT^2931026.0834^^59.7^^^2971030"
^DIE(917,"DR",1,59.7)="W !!,""(Action on WARD transfer)"";22;W !!,""(Action on SERVICE transfer)"";23;"
^DIE(917,"DR",2,59.722)=".01;2;3;4;1;"
^DIE(917,"DR",2,59.723)=".01;1;"
^DIE(917,"DR",3,59.7221)=".01;"
^DIE(917,"DR",3,59.7231)=".01;"
^DIE(918,0)="PSJU WG^2980413.144^^57.5^^^2981022"
^DIE(918,"DIAB",14,0,57.5,0)="32;BAXTER ATC DEVICE"
^DIE(918,"DR",1,57.5)=".01;1;I $P(^PS(57.5,DA,0),""^"",2)'=""P"" S Y="""";4;5.02;5.03;S:X Y=5.04;5.01;5.04;S:X Y=5.06;5.05;5.06;5.07;32BAXTER ATC DEVICE~;31;"
^DIE(918,"DR",2,57.51)=".01;"
^DIE(923,0)="PSJ ECSP^2900424.224^^59.7^^^2931216^"
^DIE(923,"DR",1,59.7)="22;23;"
^DIE(923,"DR",2,59.722)=".01;2;3;1;"
^DIE(923,"DR",2,59.723)=".01;1;"
^DIE(923,"DR",3,59.7221)=".01;"
^DIE(923,"DR",3,59.7231)=".01;"
^DIE(924,0)="PSJIEDT^2910604.1519^^53.1^^^^"
^DIE(924,"DR",1,53.1)="53;S PSIVTYPE=X;S Y=""@5"";@4;53////^S X=PSIVTYPE;@5;S:PSIVTYPE=""S"" Y=56 I PSIVTYPE'=""C"",PSIVTYPE'=""S"" S Y=1;54;S PSIVTYPE=X I X'=""S"" S Y=1;56;55;57;58;59;63;64;S:""PS""'[PSIVTYPE Y=""@1"" I PSIVTYPE=""S"" S:'$P(^PS(53.1,DA,0),U,4) Y=""@1"";"
^DIE(924,"DR",1,53.1,1)="26;"
^DIE(924,"DR",2,53.157)=".01;W:$D(^PSDRUG($P(^PS(52.6,X,0),U,2),0)) "" "",$S($P(^(0),U,9):""N/F"",1:"""");D ^PSIVQUI;D ENU^PSIV W !,""(The units of strength for this additive are in "",PSIVSTR,"")"";1;I $D(PSIVTYPE),""PS""[PSIVTYPE S Y="""";2;"
^DIE(924,"DR",2,53.157,1)="I $D(PSIVSTR),PSIVSTR=""QUICK CODE"" S Y=""@1"";"
^DIE(924,"DR",2,53.158)=".01;W:$D(^PSDRUG($P(^PS(52.7,X,0),U,2),0)) "" "",$S($P(^(0),U,9):""N/F"",1:"""");S Y=^PS(53.1,DA(1),""SOL"",DA,0),$P(Y,U,2)=$P(^PS(52.7,+Y,0),U,3),^PS(53.1,DA(1),""SOL"",DA,0)=Y,Y="""" I PSIVTYPE=""S"" S Y=1;1;@33;"
^DIE(927,0)="PSJ IWP EDIT^3050727.1635^ ^59.6^^^3051213"
^DIE(927,"%D",0)="^.4021^3^3^3040617^^^^"
^DIE(927,"%D",1,0)="  Used by the Inpatient Medications package t allow the Inpatient"
^DIE(927,"%D",2,0)="Supervisor to tailor various aspects of the package on a ward-by-ward"
^DIE(927,"%D",3,0)="basis."
^DIE(927,"DR",1,59.6)=".03;S X="""";3;.04;.07;.05;.08;.12;.19;.16;.2;.15;.18;.11;1;2;.24;4;5;6;"
^DIE(929,0)="PSJU FILED^2920722.1331^^50^^^2970226^"
^DIE(929,"DR",1,50)="64;51;I X=1 S Y=""@50"";@1;101;I $P($G(^PSDRUG(DA,660)),""^"",6)="""" S Y=""@60"";@2;64;62.01;62.02;62.03;62.04;62.05;212.2;212;S Y=""@99"";@50;65;S Y=""@1"";@60;16;S Y=""@2"";@99;"
^DIE(929,"DR",2,50.0212)=".01;1;"
^DIE(929,"DR",2,50.065)=".01;"
^DIE(930,0)="PSJ FILED^2940415.0949^^50^^^2960930"
^DIE(930,"DR",1,50)="64;51;I X=1 S Y=""@50"";@1;101;I $P($G(^PSDRUG(DA,660)),""^"",6)="""" S Y=""@60"";@2;64;62.05;212.2;212;S Y=""@99"";@50;65;S Y=""@1"";@60;16;S Y=""@2"";@99;"
^DIE(930,"DR",2,50.0212)=".01;1;"
^DIE(930,"DR",2,50.065)=".01;"
^DIE(932,0)="PSJ IUP USER EDIT^2980409.1515^^53.45^^^2980914"
^DIE(932,"%D",0)="^^2^2^2920708^"
^DIE(932,"%D",1,0)="  Used by the Inpatient Medications package to allow users to tailor"
^DIE(932,"%D",2,0)="various aspects of how the package works for themselves."
^DIE(932,"DIAB",3,0,53.45,0)=".13;LABEL PRINTER"
^DIE(932,"DR",1,53.45)=".06;.11;.13LABEL PRINTER~;I $P($G(PSJSYSU),$C(59),3)<2 S Y="""";.1;"
^DIE(933,0)="PSJ IUP SUPER EDIT^2920125.1816^^53.45^^^2971105^"
^DIE(933,"%D",0)="^^2^2^2920708^"
^DIE(933,"%D",1,0)="  Used by the Inpatient Medications package to allow Inpatient Supervisors"
^DIE(933,"%D",2,0)="to tailor some aspects of how the packge should work for specific users."
^DIE(933,"DR",1,53.45)="S PSJ=+$G(^PS(53.45,DA,0)) S:PSJ PSJ=$S($D(^XUSEC(""PSJ RPHARM"",PSJ)):3,$D(^XUSEC(""PSJ RNURSE"",PSJ)):1,$D(^XUSEC(""PSJ PHARM TECH"",PSJ)):2,1:0) S:""13""[PSJ Y=$S(PSJ=1:.02,1:.09);.03;.04;.05;.02;S:""02""[PSJ Y=.12;.09;.12;"
^DIE(934,0)="PSJUOSE^2960728.1043^^53.2^^^2971211^"
^DIE(934,"%D",0)="^^1^1^2940721^^^"
^DIE(934,"%D",1,0)="Used to create and edit Order Sets."
^DIE(934,"DIAB",1,1,53.22,0)="ALL"
^DIE(934,"DR",1,53.2)=".01;2;"
^DIE(934,"DR",2,53.22)=".01:10"
^DIE(934,"DR",3,53.23)=".01:.02"
^DIE(935,0)="PSGW WARD INVENTORY^2880502^^58.2^^^^"
^DIE(935,"DIAB",1,2,58.22,0)="ALL"
^DIE(935,"DR",1,58.2)=".01;2;S PSGWSK=0,PSGWSKP=0;@1;S PSGWSK=$O(^PSI(58.2,DA,1,""D"",PSGWSK));I 'PSGWSK S PSGWS=$S(PSGWSKP>0:(PSGWSKP+100),1:100),Y=""@2"";S PSGWSKP=PSGWSK;S Y=""@1"";@2;1;K PSGWS,PSGWSK,PSGWSKP,X,Y,%X,%Y,W;"
^DIE(935,"DR",2,58.21)=".01;1;I $P(^PSI(58.2,D0,1,D1,0),""^"",2)'="""" S Y=""@3"";2///^S X=PSGWS;S PSGWS=PSGWS+100;@3;"
^DIE(935,"DR",3,58.22)=".01"
^DIE(936,0)="PSGW AREA OF USE EDIT^2930527.1056^^58.1^^^^"
^DIE(936,"DR",1,58.1)=".01;4;.5;.75;5;6;S:X'=1 Y=2;7;2;"
^DIE(936,"DR",2,58.14)=".01;1;2;"
^DIE(936,"DR",3,58.27)=".01;1;"
^DIE(937,0)="PSGW ENTER/EDIT AMIS DATA^2880502^^50^^^^"
^DIE(937,"DR",1,50)="12;13;15;301;302;K %X,%Y;"
^DIE(938,0)="PSGW INACTIVATE ITEM^2890330^^58.1^^^^"
^DIE(938,"DR",1,58.1)="1;K %DT,%X,C,DIG,DIH,DIU;K DIV,K,PSGWDRUG,W,X,Y;"
^DIE(938,"DR",2,58.11)="30;S:X="""" Y=""@1"";31;S:X'=""O"" Y=""@1"";33;@1;"
^DIE(939,0)="PSX DRUG^2940203^^50^^^2970324^"
^DIE(939,"DR",1,50)=".01;101;S:'$D(^PSDRUG(""AQ"",DA)) Y=""@1"";215;@1;2;3:6;31;8:15;W !,$P(^DD(50,16,0),""^"",1),"" is "" W:$D(^PSDRUG(DA,660)) $P(^(660),""^"",6);17;51;100;50;"
^DIE(939,"DR",2,50.1)=".01:2"
^DIE(940,0)="PSD INV GROUP^2940615.0935^^58.2^^^2950525"
^DIE(940,"DIAB",1,0,58.2,0)=".01;""NAOU INVENTORY GROUP NAME"""
^DIE(940,"DIAB",1,2,58.291,0)="ALL"
^DIE(940,"DR",1,58.2)=".01NAOU INVENTORY GROUP NAME~;2;S (PSDSK,PSDSKP)=0;@1;S PSDSK=$O(^PSI(58.2,DA,3,""D"",PSDSK));I 'PSDSK S PSDS=$S(PSDSKP>0:(PSDSKP+100),1:100),Y=""@2"";S PSDSKP=PSDSK;S Y=""@1"";@2;3;K PSDS,PSDSK,PSDSKP;K X,Y,%X,%Y,W;"
^DIE(940,"DR",2,58.29)=".01;1;I $P(^PSI(58.2,D0,3,D1,0),""^"",2)'="""" S Y=""@3"";2///^S X=PSDS;S PSDS=PSDS+100;@3;"
^DIE(940,"DR",3,58.291)=".01"
^DIE(941,0)="PSAENT^2931109.0903^^58.8^^^2971015"
^DIE(941,"DR",1,58.8)="1////P;12;W """";S:'$P($G(^PSD(58.8,D0,0)),U,8) Y=22;13;22;"
^DIE(941,"DR",2,58.8445)=".01;S:X PSAINV=X;2;N PSAMG S PSAMG=$P($G(^PSD(58.8,D0,4,D1,0)),U,3) Q:PSAMG']""""  W:'$O(^XMB(3.8,""B"",PSAMG,0)) $C(7),!!,""The "",PSAMG,"" mail group has not been created!"",!!,""Messages can't be sent until creation."",!!;1;"
^DIE(942,0)="PSAGIP^2931021.1347^^58.8^^^2941208"
^DIE(942,"DR",1,58.8)="22;"
^DIE(942,"DR",2,58.8445)=".01;S:X PSAINV=X;1;S:'$P($G(^PSD(58.8,D0,4,D1,0)),U,2) Y=0;2;"
^DIE(942,"DR",2,58.8445,1)="N PSAMG S PSAMG=$P($G(^PSD(58.8,D0,4,D1,0)),U,3) Q:PSAMG']""""  W:'$O(^XMB(3.8,""B"",PSAMG,0)) $C(7),!!,""The "",PSAMG,"" mail group has not been created!"",!!,""Messages can't be sent until creation."",!!;"
^DIE(943,0)="VAQ EDIT FILE^2930608.0843^^394.73^^^2931112^"
^DIE(943,"DR",1,394.73)=".01;.02;.03;"
^DIE(944,0)="VAQ EDIT FILE^2930910.1613^^394.81^^^2931008^"
^DIE(944,"DR",1,394.81)=".01;.02;10;20;21;30;31;"
^DIE(945,0)="VAQ EDIT FILE^2930608.0924^^394.82^^^2930923^"
^DIE(945,"DR",1,394.82)=".01;.02;"
^DIE(946,0)="VAQ EDIT FILE^2930608.0935^^394.83^^^2930928^"
^DIE(946,"DR",1,394.83)=".01;10;"
^DIE(946,"DR",2,394.831)=".01;.02;"
^DIE(947,0)="VAQ EDIT FILE^2930924.1023^^394.84^11801^^2931109"
^DIE(947,"DR",1,394.84)=".01;.02;10;"
^DIE(947,"DR",2,394.841)=".01;X ""S VAQHS=$$SEGHLTH^VAQDBIH3($P(^VAT(394.84,DA(1),""""SEG"""",DA,0),U,1),0)"";S:$P(VAQHS,U,1)=0 Y=""@3"";S:$P(VAQHS,U,2)="""" Y=""@2"";@1;.04;@2;S:$P(VAQHS,U,3)="""" Y=""@3"";.05;@3;X ""K VAQHS"";"
^DIE(948,0)="VAQ EDIT FILE (PRIVATE)^2930924.0857^^394.84^11801^^2931008"
^DIE(948,"DR",1,394.84)=".01;.02///PRIVATE;10;"
^DIE(948,"DR",2,394.841)=".01;X ""S VAQHS=$$SEGHLTH^VAQDBIH3($P(^VAT(394.84,DA(1),""""SEG"""",DA,0),U,1),0)"";S:$P(VAQHS,U,1)=0 Y=""@3"";S:$P(VAQHS,U,2)="""" Y=""@2"";@1;.04;@2;S:$P(VAQHS,U,3)="""" Y=""@3"";.05;@3;X ""K VAQHS"";"
^DIE(949,0)="VAQ EDIT FILE (PUBLIC)^2930924.0844^^394.84^11801^^2930924"
^DIE(949,"DR",1,394.84)=".01;.02///PUBLIC;10;"
^DIE(949,"DR",2,394.841)=".01;X ""S VAQHS=$$SEGHLTH^VAQDBIH3($P(^VAT(394.84,DA(1),""""SEG"""",DA,0),U,1),0)"";S:$P(VAQHS,U,1)=0 Y=""@3"";S:$P(VAQHS,U,2)="""" Y=""@2"";@1;.04;@2;S:$P(VAQHS,U,3)="""" Y=""@3"";.05;@3;X ""K VAQHS"";"
^DIE(950,0)="VAQ EDIT FILE^2930915.0951^^394.71^^^^"
^DIE(950,"DR",1,394.71)="X ""S VAQHS=$$HLTHSEG^VAQDBIH3($P(^VAT(394.71,DA,0),U,2),0)"";S:$P(VAQHS,U,1)=0 Y=""@3"";S:$P(VAQHS,U,2)=0 Y=""@2"";@1;.05;@2;S:$P(VAQHS,U,3)=0 Y=""@3"";.06;@3;W:$P(VAQHS,U,1)=0 !!,""   - Limits not applicable for segment entered"";"
^DIE(956,0)="PPP EDIT FILE^3020729.095^^1020.1^^^3020730"
^DIE(956,"DR",1,1020.1)="1;2;6;7;8;9;10;11;"
^DIE(960,0)="DVBHINQ UPDATE^3060308.0827^^2^^^3060802"
^DIE(960,"AB","6^DVBHCE29",2)="1^DVBHCE30"
^DIE(960,"AB","6^DVBHCE29",2,"///")=""
^DIE(960,"AB","6^DVBHCE29",3)="2^DVBHCE30"
^DIE(960,"AB","6^DVBHCE29",3,"///")=""
^DIE(960,"AB","6^DVBHCE29",4)="3^DVBHCE30"
^DIE(960,"AB","6^DVBHCE29",4,"///")=""
^DIE(960,"AB","6^DVBHCE29",5)="4^DVBHCE30"
^DIE(960,"AB","6^DVBHCE29",5,"///")=""
^DIE(960,"AB","6^DVBHCE29",6)="5^DVBHCE30"
^DIE(960,"AB","6^DVBHCE29",6,"///")=""
^DIE(960,"AB","7^DVBHCE7",.01)="1^DVBHCE8"
^DIE(960,"AB","^",.111)="1^DVBHCE14"
^DIE(960,"AB","^",.1112)="2^DVBHCE18"
^DIE(960,"AB","^",.112)="2^DVBHCE14"
^DIE(960,"AB","^",.113)="3^DVBHCE14"
^DIE(960,"AB","^",.114)="4^DVBHCE14"
^DIE(960,"AB","^",.115)="1^DVBHCE18"
^DIE(960,"AB","^",.117)="3^DVBHCE18"
^DIE(960,"AB","^",.293)="1^DVBHCE23"
^DIE(960,"AB","^",.293,"///")=""
^DIE(960,"AB","^",.301)="13^DVBHCE7"
^DIE(960,"AB","^",.3014)="1^DVBHCE29"
^DIE(960,"AB","^",.3014,"///")=""
^DIE(960,"AB","^",.302)="26^DVBHCE26"
^DIE(960,"AB","^",.302,"///")=""
^DIE(960,"AB","^",.3025)="4^DVBHCE13"
^DIE(960,"AB","^",.305)="1^DVBHCE26"
^DIE(960,"AB","^",.305,"///")=""
^DIE(960,"AB","^",.306)="6^DVBHCE7"
^DIE(960,"AB","^",.313)="1^DVBHCE20"
^DIE(960,"AB","^",.313,"///")=""
^DIE(960,"AB","^",.314)="19^DVBHCE23"
^DIE(960,"AB","^",.314,"///")=""
^DIE(960,"AB","^",.32101)="14^DVBHCE26"
^DIE(960,"AB","^",.32101,"///")=""
^DIE(960,"AB","^",.322)="8^DVBHCE26"
^DIE(960,"AB","^",.322,"///")=""
^DIE(960,"AB","^",.323)="10^DVBHCE6"
^DIE(960,"AB","^",.324)="23^DVBHCE"
^DIE(960,"AB","^",.325)="21^DVBHCE"
^DIE(960,"AB","^",.326)="19^DVBHCE"
^DIE(960,"AB","^",.327)="20^DVBHCE"
^DIE(960,"AB","^",.328)="24^DVBHCE"
^DIE(960,"AB","^",.3285)="1^DVBHCE3"
^DIE(960,"AB","^",.329)="6^DVBHCE3"
^DIE(960,"AB","^",.3291)="5^DVBHCE3"
^DIE(960,"AB","^",.3292)="3^DVBHCE3"
^DIE(960,"AB","^",.3293)="4^DVBHCE3"
^DIE(960,"AB","^",.3294)="7^DVBHCE3"
^DIE(960,"AB","^",.32945)="13^DVBHCE3"
^DIE(960,"AB","^",.3295)="4^DVBHCE6"
^DIE(960,"AB","^",.3296)="3^DVBHCE6"
^DIE(960,"AB","^",.3297)="1^DVBHCE6"
^DIE(960,"AB","^",.3298)="2^DVBHCE6"
^DIE(960,"AB","^",.3299)="5^DVBHCE6"
^DIE(960,"AB","^",.351)="20^DVBHCE20"
^DIE(960,"AB","^",.351,"///")=""
^DIE(960,"AB","^",.361)="16^DVBHCE7"
^DIE(960,"AB","^",.3611)="1^DVBHCE7"
^DIE(960,"AB","^",.3612)="3^DVBHCE7"
^DIE(960,"AB","^",.3615)="4^DVBHCE7"
^DIE(960,"AB","^",.36205)="1^DVBHCE13"
^DIE(960,"AB","^",.36215)="2^DVBHCE13"
^DIE(960,"AB","^",.36225)="15^DVBHCE29"
^DIE(960,"AB","^",.36225,"///")=""
^DIE(960,"AB","^",.36235)="3^DVBHCE13"
^DIE(960,"AB","^",.3628)="27^DVBHCE29"
^DIE(960,"AB","^",.3628,"///")=""
^DIE(960,"AB","^",.36285)="21^DVBHCE29"
^DIE(960,"AB","^",.36285,"///")=""
^DIE(960,"AB","^",.3629)="1^DVBHCE31"
^DIE(960,"AB","^",.3629,"///")=""
^DIE(960,"AB","^",.36295)="5^DVBHCE13"
^DIE(960,"AB","^",.3721)="6^DVBHCE29"
^DIE(960,"AB","^",.3721,"///")=""
^DIE(960,"AB","^",.525)="12^DVBHCE23"
^DIE(960,"AB","^",.525,"///")=""
^DIE(960,"AB","^",361)="7^DVBHCE7"
^DIE(960,"AB","^",391)="11^DVBHCE7"
^DIE(960,"AB","^",1901)="12^DVBHCE7"
^DIE(960,"AB","^","@1")="8^DVBHCE"
^DIE(960,"AB","^","@10")="10^DVBHCE31"
^DIE(960,"AB","^","@1001")="6^DVBHCE"
^DIE(960,"AB","^","@1006")="14^DVBHCE"
^DIE(960,"AB","^","@101")="1^DVBHCE"
^DIE(960,"AB","^","@104")="14^DVBHCE6"
^DIE(960,"AB","^","@11")="8^DVBHCE13"
^DIE(960,"AB","^","@2")="10^DVBHCE"
^DIE(960,"AB","^","@20")="12^DVBHCE18"
^DIE(960,"AB","^","@204")="16^DVBHCE6"
^DIE(960,"AB","^","@205")="8^DVBHCE7"
^DIE(960,"AB","^","@206")="17^DVBHCE7"
^DIE(960,"AB","^","@2062")="6^DVBHCE13"
^DIE(960,"AB","^","@2063")="15^DVBHCE7"
^DIE(960,"AB","^","@21")="14^DVBHCE18"
^DIE(960,"AB","^","@22")="3^DVBHCE20"
^DIE(960,"AB","^","@225")="8^DVBHCE20"
^DIE(960,"AB","^","@23")="13^DVBHCE20"
^DIE(960,"AB","^","@24")="22^DVBHCE20"
^DIE(960,"AB","^","@25")="3^DVBHCE23"
^DIE(960,"AB","^","@26")="14^DVBHCE23"
^DIE(960,"AB","^","@27")="21^DVBHCE23"
^DIE(960,"AB","^","@3")="12^DVBHCE"
^DIE(960,"AB","^","@30")="15^DVBHCE"
^DIE(960,"AB","^","@31")="8^DVBHCE3"
^DIE(960,"AB","^","@32")="25^DVBHCE"
^DIE(960,"AB","^","@33")="6^DVBHCE6"
^DIE(960,"AB","^","@4")="3^DVBHCE31"
^DIE(960,"AB","^","@40")="4^DVBHCE26"
^DIE(960,"AB","^","@42")="10^DVBHCE26"
^DIE(960,"AB","^","@45")="16^DVBHCE26"
^DIE(960,"AB","^","@46")="2^DVBHCE29"
^DIE(960,"AB","^","@47")="20^DVBHCE26"
^DIE(960,"AB","^","@5")="5^DVBHCE18"
^DIE(960,"AB","^","@50")="8^DVBHCE31"
^DIE(960,"AB","^","@6")="7^DVBHCE18"
^DIE(960,"AB","^","@61")="9^DVBHCE29"
^DIE(960,"AB","^","@62")="17^DVBHCE29"
^DIE(960,"AB","^","@63")="23^DVBHCE29"
^DIE(960,"AB","^","@64")="29^DVBHCE29"
^DIE(960,"AB","^","@7")="3^DVBHCE"
^DIE(960,"AB","^","@70")="5^DVBHCE31"
^DIE(960,"AB","^","@8")="9^DVBHCE18"
^DIE(960,"AR",2,303)="1^DVBHCE32"
^DIE(960,"AR",2,640)="2^DVBHCE32"
^DIE(960,"AR",2,641)="3^DVBHCE32"
^DIE(960,"AR",2,642)="4^DVBHCE32"
^DIE(960,"DIAB",1,0,2,7)=".32945;Service NNTL Episode"
^DIE(960,"DIAB",1,0,2,9)=".306//""TODAY"""
^DIE(960,"DIAB",2,0,2,4)="SERVICE ENTRY DATE [NTL];""NTL-EOD"""
^DIE(960,"DIAB",3,0,2,1)="SERVICE ENTRY DATE [LAST];""L-EOD"""
^DIE(960,"DIAB",3,0,2,3)=".3285;Service NTL Episode"
^DIE(960,"DIAB",3,0,2,4)="SERVICE SEPARATION DATE [NTL];""NTL-RAD"""
^DIE(960,"DIAB",3,0,2,7)="SERVICE ENTRY DATE [NNTL];""NNTL-EOD"""
^DIE(960,"DIAB",4,0,2,1)="SERVICE SEPARATION DATE [LAST];""L-RAD"";C15"
^DIE(960,"DIAB",4,0,2,4)="SERVICE BRANCH [NTL];""NTL-Bran. Ser."""
^DIE(960,"DIAB",4,0,2,7)="SERVICE SEPARATION DATE [NNTL];""NNTL-RAD"""
^DIE(960,"DIAB",5,0,2,1)="SERVICE BRANCH [LAST];L-Bran.. Ser."
^DIE(960,"DIAB",5,0,2,4)="SERVICE DISCHARGE TYPE [NTL];""NTL-Char. Ser."""
^DIE(960,"DIAB",5,0,2,7)="SERVICE BRANCH [NNTL];""NNTL-Bran. Ser."""
^DIE(960,"DIAB",6,0,2,4)="SERVICE NUMBER [NTL];""NTL-Ser. Num."""
^DIE(960,"DIAB",6,0,2,7)="SERVICE DISCHARGE TYPE [NNTL];""NNTL-Char. Ser."""
^DIE(960,"DIAB",7,0,2,1)="SERVICE DISCHARGE TYPE [LAST];L-Char. Ser."
^DIE(960,"DIAB",7,0,2,7)="SERVICE NUMBER [NNTL];""NNTL-Ser. Num."""
^DIE(960,"DIAB",8,0,2,1)="SERVICE NUMBER [LAST];L-Ser. Num."
^DIE(960,"DIAB",13,0,2,8)=".3612//""TODAY"""
^DIE(960,"DR",1,2)="@101;W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF),! K ^UTILITY($J) D ^DVBHSVER;@7;D Q^DVBHUTIL;S DIE(""NO^"")="""";@1001;D ^DVBHS1 S Y=""@5"";@1;D ^DVBHS2 S Y=""@5"" W !;@2;D ^DVBHS3 S Y=""@5"";@3;D ^DVBHS4 S Y=""@5"";@1006;@30;I Z2'[1 S Y=""@32"";"
^DIE(960,"DR",1,2,1)="S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[LAST]"",DVBOFF X DVBLIT1;S DVBJC=$S('$D(^DPT(DFN,.32)):"""",1:$P(^(0),U,5));.326L-EOD~;.327C15~L-RAD~;.325L-Bran.. Ser.~;I X'=DVBJC S DVBJ2=1;.324L-Char. Ser.~;.328L-Ser. Num.~;@32;"
^DIE(960,"DR",1,2,2)="I Z2'[2 S Y=""@31"";I '$D(^DPT(D0,.32)) W !!,*7,?17,DVBON,""No Last episode can't edit NTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";"
^DIE(960,"DR",1,2,3)="I $P(^DPT(D0,.32),U,6)="""" W !!,*7,?17,DVBON,""No last episode can't edit NTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[NTLAST]"",DVBOFF X DVBLIT1;.3285Service NTL Episode~;"
^DIE(960,"DR",1,2,4)="I $P(^DPT(D0,.32),U,19)'=""Y"" S Y=""@31"";.3292NTL-EOD~;.3293NTL-RAD~;.3291NTL-Bran. Ser.~;.329NTL-Char. Ser.~;.3294NTL-Ser. Num.~;@31;I Z2'[3 S Y=""@33"";"
^DIE(960,"DR",1,2,5)="I '$D(^DPT(D0,.32)) W !!,*7,?17,DVBON,""No NTLast episode can't edit NNTLast   <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";"
^DIE(960,"DR",1,2,6)="I $P(^DPT(D0,.32),U,19)'=""Y"" W !!,*7,?17,DVBON,""No NTLast episode can't edit NNTLast   <RET>."",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S Y=""@33"";S DVBSCR=1 D ^DVBHS4 W !,?34,DVBON,""[NNTLAST]"",DVBOFF X DVBLIT1;"
^DIE(960,"DR",1,2,7)=".32945Service NNTL Episode~;I $P(^DPT(D0,.32),U,20)'=""Y"" S Y=""@33"";.3297NNTL-EOD~;.3298NNTL-RAD~;.3296NNTL-Bran. Ser.~;.3295NNTL-Char. Ser.~;.3299NNTL-Ser. Num.~;@33;I Z2'[4 S Y=""@3"";S DVBSCR=1 D ^DVBHS4;"
^DIE(960,"DR",1,2,8)="S DVBJC2=$S($D(^DPT(D0,.32)):$P(^(.32),U,3),1:"""");.323;I X'=DVBJC2 S DVBJ2=1;K DVBJC2;S Y=""@3"";@104;D ^DVBHS5 S Y=""@5"" K DXS;@204;I Z2'[1 S Y=""@205"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;.3611;Q;.3612//^S X=""TODAY"";.3615//^S X=""HINQ"";Q;"
^DIE(960,"DR",1,2,9)=".306//^S X=""TODAY"";361;@205;I Z2'[2 S Y=""@206"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;391;1901;.301;I X=""N"" S Y=""@2063"";@2063;.361;@206;I Z2'[3 S Y=""@104"";S DVBSCR=1 D ^DVBHS5 S DVBJ2=1;.36205;.36215;.36235;.3025;.36295;@2062;S Y=""@104"";"
^DIE(960,"DR",1,2,10)="@11;S DVBJ2=1;.111;.112;.113;.114;.115;.1112;.117;S Y=""@1001"";@5;D SCRQ^DVBHUTIL;@6;D B^DVBHQEDT R AA:DTIME K AA S Y=$S(DVBJS=11:""@1001"",DVBJS=28:""@1"",DVBJS=35:""@2"",DVBJS=44:""@3"",DVBJS=53:""@104"",1:""@10"");@8;"
^DIE(960,"DR",1,2,11)="S Y=$S(ANS=""^0"":""@101"",ANS=""^1"":""@1001"",ANS=""^2"":""@1"",ANS=""^3"":""@2"",ANS=""^4"":""@3"",ANS=""^5"":""@104"",1:Y) I Y[""@"" W @$S('$D(IOF):""#"",IOF="""":""#"",1:IOF);"
^DIE(960,"DR",1,2,12)="D A^DVBHQEDT S Z2=Z I ERROR K ERROR S Y=$S(DVBJS=11:""@1001"",DVBJS=28:""@1"",DVBJS=35:""@2"",DVBJS=44:""@3"",DVBJS=53:""@104"",1:""@10"");@20;S JP=1,Y=$S(DVBJS=11:""@11"",DVBJS=35:""@40"",DVBJS=44:""@30"",DVBJS=53:""@204"",1:Y);@21;"
^DIE(960,"DR",1,2,13)="I $P(Z2,U,JP)'=1 S Y=""@22"";I '$D(DVBCN) S Y=""@22"",JP=JP+1;I 'DVBCN S Y=""@22"",JP=JP+1;S DVBCN=$TR(DVBCN,"" "");"
^DIE(960,"DR",1,2,14)="I $L(DVBCN)=9,(DVBCN?9N),(DVBCN'=$P(^DPT(D0,0),U,9)) W !!,*7,""HINQ claim # is a SSN, does not match patient file SSN  NO UPDATING claim #"" R !,?25,""<RET to continue>"",DVBQ:DTIME K DVBQ S Y=""@22"",JP=JP+1;.313///^S X=DVBCN;"
^DIE(960,"DR",1,2,15)="W ""."" S JP=JP+1,DVBJ2=1;@22;I $P(Z2,U,JP)'=2 S Y=""@225"";W !,""Date of Birth cannot be edited with this option."";H 1;W ""."" S JP=JP+1,DVBJ2=1;@225;I $P(Z2,U,JP)'=3 S Y=""@23"";W !,""Sex cannot be edited with this option."";H 1;"
^DIE(960,"DR",1,2,16)="W ""."" S JP=JP+1,DVBJ2=1;@23;I $P(Z2,U,JP)'=4 S Y=""@24"";K Z1 I $D(DVBP(6)),+$P(DVBP(6),U) S Z1=$P(DVBP(6),U),Z1=$E(Z1,1,2)_"" ""_$E(Z1,3,4)_"" ""_$E(Z1,5,8);"
^DIE(960,"DR",1,2,17)="I $D(DVBVET),$P(DVBVET,U,1)=""B"",+$P(DVBVET,U,12) S Z1=$P(DVBVET,U,12),Z1=$E(Z1,5,6)_"" ""_$E(Z1,7,8)_"" ""_$E(Z1,1,4);I '$D(Z1) S Y=""@24"",JP=JP+1;I 'Z1 S Y=""@24"",JP=JP+1;"
^DIE(960,"DR",1,2,18)="I $D(^DPT(D0,.105)) W !!,""Patient is currently in-house."" W !,""Discharge patient with a discharge type of DEATH."" R !,?25,""<RET to continue>"",DVBQ:DTIME K DVBQ S Y=""@24"",JP=JP+1;.351///^S X=Z1;W ""."" S JP=JP+1,DVBJ2=1;@24;"
^DIE(960,"DR",1,2,19)="I $P(Z2,U,JP)'=5 S Y=""@25"";K DVBSICK I $D(DVBP(6)) S DVBSICK=$P(DVBP(6),U,7);I $D(DVBCI) S DVBSICK=DVBCI;I '$D(DVBSICK) S Y=""@25"",JP=JP+1;.293///^S X=$S((DVBSICK=""I"")!(DVBSICK=""Y""):1,1:0);W ""."" S JP=JP+1,DVBJ2=1 K DVBSICK;@25;"
^DIE(960,"DR",1,2,20)="I $P(Z2,U,JP)'=6 S Y=""@26"";I '$D(DVBPOW),'$D(DVBPOWD) S Y=""@26"",JP=JP+1;I '$D(DVBPOW),$D(DVBPOWD),+DVBPOWD W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^DIE(960,"DR",1,2,21)="I '$D(DVBPOW),'+DVBPOWD S Y=""@26"",JP=JP+1;I '$D(DVBPOWD),$D(DVBPOW),DVBPOW>0 W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^DIE(960,"DR",1,2,22)="I $D(DVBPOWD),$D(DVBPOW),DVBPOWD=0,DVBPOW>0 W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";"
^DIE(960,"DR",1,2,23)="I $D(DVBPOWD),$D(DVBPOW),+DVBPOW<1,+DVBPOWD W !!,*7,?17,DVBON,""POW Indicator Discrepancy!  <RET>"",DVBOFF X DVBLIT1 R DVBZ:DTIME K DVBZ S JP=JP+1,Y=""@26"";D POW^DVBHUTIL;.525///^S X=DVBPOW1;K DVBPOW1 W ""."" S JP=JP+1,DVBJ2=1;@26;"
^DIE(960,"DR",1,2,24)="I $P(Z2,U,JP)'=7 S Y=""@27"";I '$D(DVBFL) S Y=""@27"",JP=JP+1;I DVBFL']"""" S Y=""@27"",JP=JP+1;I DVBFL'?3N1"" - ""1U.E S Y=""@27"",JP=JP+1;.314///^S X=+DVBFL;W ""."" S JP=JP+1,DVBJ2=1;@27;I $P(Z2,U,JP)'=8 S Y=""@50"";"
^DIE(960,"DR",1,2,25)="I '$D(DVBEI) S Y=""@50"",JP=JP+1;.305///^S X=$S(DVBEI=""Y"":""Y"",1:""N"");W ""."" S JP=JP+1,DVBJ2=1;S Y=""@50"";@40;I $P(Z2,U,JP)'=1 S Y=""@42"";I '$D(DVBP(6)) S Y=""@42"",JP=JP+1;"
^DIE(960,"DR",1,2,26)="I $S($P(DVBP(6),U,8)'=""Y"":1,'$D(^DPT(DFN,.32)):1,+$P(^(0),U,2):1,1:0) S Y=""@42"",JP=JP+1;.322///^S X=""T"";W ""."" S JP=JP+1,DVBJ2=1;@42;I $P(Z2,U,JP)'=2 S Y=""@45"";I '$D(DVBP(6)) S Y=""@45"",JP=JP+1;"
^DIE(960,"DR",1,2,27)="I $P(DVBP(6),U,4)["" "" S Y=""@45"",JP=JP+1;.32101///^S X=$P(DVBP(6),U,4);W ""."" S JP=JP+1,DVBJ2=1;@45;I $P(Z2,U,JP)'=3!('$D(DVBDX(1))) S Y=""@50"";S:'$D(DVBFL) DVBFL=""UNKNOWN"";"
^DIE(960,"DR",1,2,28)="I $D(DVBCAP),DVBCAP[""No C&P"",$P(DVBBIR,U,5)'=""Y"" D CHK^DVBHUTIL;@47;"
^DIE(960,"DR",1,2,29)="S DVB4=$S($D(^DPT(DFN,.3))>0:$P(^(.3),U),1:0),DVB5=$S($D(^DPT(DFN,.36))>0:$P(^(.36),U),1:0),DVB6=$S($D(^DPT(DFN,""VET""))>0:^(""VET""),1:0),DVB7=$S($D(^DPT(DFN,""TYPE""))>0:^(""TYPE""),1:0);"
^DIE(960,"DR",1,2,30)="S DVB8=$O(^DIC(8,""B"",""SERVICE CONNECTED 50% to 100%"",0)),DVB9=$O(^DIC(8,""B"",""SC LESS THAN 50%"",0));I DVBDXNO I ((DVB8'=DVB5&(DVB9'=DVB5))!(DVB4'=""Y"")!(DVB6'=""Y"")!(DVB7'=1)) S Y=""@70"";"
^DIE(960,"DR",1,2,31)="W ! K ^DPT(DFN,.372),JP4,JP6 S ^DPT(DFN,.372,0)=""^2.04P^^0"",JP=0;S $P(^DPT(DFN,.3),U,2)="""",$P(^DPT(DFN,.3),U,14)="""";.302///^S X=+$G(DVBDXPCT);.3014///^S X=$G(DVBEFF);@46;S JP=$O(DVBDX(JP)) I 'JP S Y=""@50"";"
^DIE(960,"DR",1,2,32)="S JPP=+$P(DVBDX(JP),U,2) I JPP'>0 S Y=""@46"";I '$D(^DIC(31,JPP)) D CHKDIS^DVBHS3 S Y=""@46"";.3721///^S X=""""""`""_$P(DVBDX(JP),U,2)_"""""""";W ""."" S DVBJ2=1;S Y=""@46"";@61;S Y=""@4"";I Z2'[1 S Y=""@62"";I '$D(DVBSSA) S Y=""@62"",JP=JP+1;"
^DIE(960,"DR",1,2,33)="I DVBSSA S DVBYN=""Y"",DVBXYN=DVBSSA;I 'DVBSSA S DVBYN=""N"",DVBXYN="""";.36225///^S X=DVBYN;W ""."" S JP=JP+1,DVBJ2=1 K DVBYN,DVBXYN;@62;I Z2'[2 S Y=""@63"";I '$D(DVBRETT) S Y=""@63"",JP=JP+1;"
^DIE(960,"DR",1,2,34)="I DVBRETT=""""!(""BMCROX""'[DVBRETT) S Y=""@63"",JP=JP+1;.36285///^S X=DVBRETT;W ""."" S JP=JP+1,DVBJ2=1;@63;I Z2'[3 S Y=""@64"";I '$D(DVBRETO) S Y=""@64"",JP=JP+1;S X=DVBRETO I X=""""!(X=0) S X=""@"";.3628///^S X=X;W ""."" S JP=JP+1,DVBJ2=1;@64;"
^DIE(960,"DR",1,2,35)="I Z2'[4 S Y=""@1006"";I '$D(DVBOINC) S Y=""@1006"",JP=JP+1;S X=DVBOINC I X=""""!(X=0) S X=""@"";.3629///^S X=X;W ""."" S JP=JP+1,DVBJ2=1,Y=""@1006"";@4;S Y=$S(DVBJS=11:""@1"",DVBJS=28:""@2"",DVBJS=35:""@3"",DVBJS=44:""@104"",1:""@10"");@70;"
^DIE(960,"DR",1,2,36)="W !!,*7,""HINQ contains SC disabilities, Patient is NSC no updating allowed.  Check       patient's SERVICE CONNECTION, ELIGIBILITY CODE, VET STATUS, or PATIENT TYPE.     Screen 5 contains this."";"
^DIE(960,"DR",1,2,37)="R !!,?25,""<RET> to continue."",ZZ:DTIME K ZZ,JP3,JP4;@50;K DVBJX,JP,JPP S Y=$S(DVBJS=28:""@1"",DVBJS=35:""@2"",1:""@10"");@10;I $G(DVBRADL)]"""" D DX^DVBHQEDT(DVBRADL);K DVBRADL;"
^DIE(960,"DR",2,2.0361)=".01;"
^DIE(960,"DR",2,2.04)="2///^S X=$S($P(DVBDX(JP),U,3)=""X0"":100,1:+$P(DVBDX(JP),U,3));3///^S X=1;4///^S X=$P($G(DVBDX(JP)),U,4);5///^S X=$P($G(DVBDX(JP)),U,5);6///^S X=$P($G(DVBDX(JP)),U,6);"
^DIE(960,"ROU")="^DVBHCE"
^DIE(960,"ROUOLD")="DVBHCE"
^DIE(961,0)="DVBA ELIGIBILITY EDIT^2890922^^2^^^^"
^DIE(961,"DR",1,2)=".293;"
^DIE(962,0)="DVBA STATUS EDIT^2930125.1147^^396^^^^"
^DIE(962,"AB","^",4.5)="2^DVBAXS"
^DIE(962,"AB","^",4.8)="5^DVBAXS"
^DIE(962,"AB","^",4.8,"///")=""
^DIE(962,"AB","^",4.9)="8^DVBAXS"
^DIE(962,"AB","^",4.9,"///")=""
^DIE(962,"AB","^",5.5)="13^DVBAXS"
^DIE(962,"AB","^",5.8)="16^DVBAXS"
^DIE(962,"AB","^",5.8,"///")=""
^DIE(962,"AB","^",5.9)="1^DVBAXS1"
^DIE(962,"AB","^",5.9,"///")=""
^DIE(962,"AB","^",6.5)="6^DVBAXS1"
^DIE(962,"AB","^",6.8)="9^DVBAXS1"
^DIE(962,"AB","^",6.8,"///")=""
^DIE(962,"AB","^",6.9)="12^DVBAXS1"
^DIE(962,"AB","^",6.9,"///")=""
^DIE(962,"AB","^",8)="17^DVBAXS1"
^DIE(962,"AB","^",8.5)="1^DVBAXS2"
^DIE(962,"AB","^",8.5,"///")=""
^DIE(962,"AB","^",8.7)="4^DVBAXS2"
^DIE(962,"AB","^",8.7,"///")=""
^DIE(962,"AB","^",10)="9^DVBAXS2"
^DIE(962,"AB","^",10.5)="12^DVBAXS2"
^DIE(962,"AB","^",10.5,"///")=""
^DIE(962,"AB","^",10.7)="15^DVBAXS2"
^DIE(962,"AB","^",10.7,"///")=""
^DIE(962,"AB","^",12)="1^DVBAXS3"
^DIE(962,"AB","^",12.5)="4^DVBAXS3"
^DIE(962,"AB","^",12.5,"///")=""
^DIE(962,"AB","^",12.7)="7^DVBAXS3"
^DIE(962,"AB","^",12.7,"///")=""
^DIE(962,"AB","^",14)="12^DVBAXS3"
^DIE(962,"AB","^",14.5)="15^DVBAXS3"
^DIE(962,"AB","^",14.5,"///")=""
^DIE(962,"AB","^",14.7)="18^DVBAXS3"
^DIE(962,"AB","^",14.7,"///")=""
^DIE(962,"AB","^",16)="5^DVBAXS4"
^DIE(962,"AB","^",16.5)="8^DVBAXS4"
^DIE(962,"AB","^",16.5,"///")=""
^DIE(962,"AB","^",16.7)="11^DVBAXS4"
^DIE(962,"AB","^",16.7,"///")=""
^DIE(962,"AB","^",17.4)="16^DVBAXS4"
^DIE(962,"AB","^",17.8)="1^DVBAXS5"
^DIE(962,"AB","^",17.8,"///")=""
^DIE(962,"AB","^",17.9)="4^DVBAXS5"
^DIE(962,"AB","^",17.9,"///")=""
^DIE(962,"AB","^",19)="9^DVBAXS5"
^DIE(962,"AB","^",19.5)="12^DVBAXS5"
^DIE(962,"AB","^",19.5,"///")=""
^DIE(962,"AB","^",19.7)="15^DVBAXS5"
^DIE(962,"AB","^",19.7,"///")=""
^DIE(962,"AB","^",21)="1^DVBAXS6"
^DIE(962,"AB","^",21.5)="4^DVBAXS6"
^DIE(962,"AB","^",21.5,"///")=""
^DIE(962,"AB","^",21.7)="7^DVBAXS6"
^DIE(962,"AB","^",21.7,"///")=""
^DIE(962,"AB","^","@1")="7^DVBAXS"
^DIE(962,"AB","^","@10")="18^DVBAXS2"
^DIE(962,"AB","^","@11")="6^DVBAXS3"
^DIE(962,"AB","^","@12")="10^DVBAXS3"
^DIE(962,"AB","^","@13")="17^DVBAXS3"
^DIE(962,"AB","^","@14")="3^DVBAXS4"
^DIE(962,"AB","^","@15")="10^DVBAXS4"
^DIE(962,"AB","^","@16")="14^DVBAXS4"
^DIE(962,"AB","^","@17")="3^DVBAXS5"
^DIE(962,"AB","^","@18")="7^DVBAXS5"
^DIE(962,"AB","^","@19")="14^DVBAXS5"
^DIE(962,"AB","^","@2")="11^DVBAXS"
^DIE(962,"AB","^","@20")="18^DVBAXS5"
^DIE(962,"AB","^","@21")="6^DVBAXS6"
^DIE(962,"AB","^","@22")="10^DVBAXS6"
^DIE(962,"AB","^","@3")="18^DVBAXS"
^DIE(962,"AB","^","@4")="4^DVBAXS1"
^DIE(962,"AB","^","@5")="11^DVBAXS1"
^DIE(962,"AB","^","@6")="15^DVBAXS1"
^DIE(962,"AB","^","@7")="3^DVBAXS2"
^DIE(962,"AB","^","@8")="7^DVBAXS2"
^DIE(962,"AB","^","@9")="14^DVBAXS2"
^DIE(962,"DR",1,396)="S CODE=$P(^DVB(396,D0,0),U,9) S:CODE="""" Y=""@2"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@2"";4.5;S DVBASTAT=X S:X=""C"" Y=""@1"";S DVBADT=$P(^DVB(396,D0,0),U,10) S:DVBADT=""""&(X=""P"") Y=""@2"";4.8///@;S Y=""@2"";@1;4.9////^S X=OPER;4.8;"
^DIE(962,"DR",1,396,1)="I X=""""&(DVBASTAT=""C"") W !!,""Completed status must have date."",*7,!! S Y=""@1"";@2;S CODE=$P(^DVB(396,D0,0),U,11) S:CODE="""" Y=""@4"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@4"";5.5;S DVBASTAT=X S:X=""C"" Y=""@3"";"
^DIE(962,"DR",1,396,2)="S DVBADT=$P(^DVB(396,D0,0),U,12) S:DVBADT=""""&(X=""P"") Y=""@4"";5.8///@;S Y=""@4"";@3;5.9////^S X=OPER;5.8;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@3"";@4;"
^DIE(962,"DR",1,396,3)="S CODE=$P(^DVB(396,D0,0),U,13) S:CODE="""" Y=""@6"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@6"";6.5;S DVBASTAT=X S:X=""C"" Y=""@5"";S DVBADT=$P(^DVB(396,D0,0),U,14) S:DVBADT=""""&(X=""P"") Y=""@6"";6.8///@;S Y=""@6"";@5;6.9////^S X=OPER;6.8;"
^DIE(962,"DR",1,396,4)="I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@5"";@6;S CODE=$P(^DVB(396,D0,0),U,15) S:CODE="""" Y=""@8"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@8"";8;S DVBASTAT=X S:X=""C"" Y=""@7"";"
^DIE(962,"DR",1,396,5)="S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,2),1:"""") S:DVBADT=""""&(X=""P"") Y=""@8"";8.5///@;S Y=""@8"";@7;8.7////^S X=OPER;8.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@7"";@8;"
^DIE(962,"DR",1,396,6)="S CODE=$P(^DVB(396,D0,0),U,17) S:CODE="""" Y=""@10"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@10"";10;S DVBASTAT=X S:X=""C"" Y=""@9"";S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,3),1:"""") S:DVBADT=""""&(X=""P"") Y=""@10"";10.5///@;S Y=""@10"";@9;"
^DIE(962,"DR",1,396,7)="10.7////^S X=OPER;10.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@9"";@10;S CODE=$P(^DVB(396,D0,0),U,19) S:CODE="""" Y=""@12"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@12"";12;S DVBASTAT=X S:X=""C"" Y=""@11"";"
^DIE(962,"DR",1,396,8)="S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,4),1:"""") S:X=""P""&(DVBADT="""") Y=""@12"";12.5///@;S Y=""@12"";@11;12.7////^S X=OPER;12.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@11"";@12;"
^DIE(962,"DR",1,396,9)="S CODE=$P(^DVB(396,D0,0),U,21) S:CODE="""" Y=""@14"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@14"";14;S DVBASTAT=X S:X=""C"" Y=""@13"";S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,5),1:"""") S:X=""P""&(DVBADT="""") Y=""@14"";14.5///@;S Y=""@14"";@13;"
^DIE(962,"DR",1,396,10)="14.7////^S X=OPER;14.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@13"";@14;S CODE=$P(^DVB(396,D0,0),U,23) S:CODE="""" Y=""@16"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@16"";16;S DVBASTAT=X S:X=""C"" Y=""@15"";"
^DIE(962,"DR",1,396,11)="S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,6),1:"""") S:X=""P""&(DVBADT="""") Y=""@16"";16.5///@;S Y=""@16"";@15;16.7////^S X=OPER;16.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@15"";@16;"
^DIE(962,"DR",1,396,12)="S CODE=$S($D(^DVB(396,D0,1)):$P(^(1),U,7),1:"""") S:CODE="""" Y=""@18"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@18"";17.4;S DVBASTAT=X S:X=""C"" Y=""@17"";S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,8),1:"""") S:X=""P""&(DVBADT="""") Y=""@18"";17.8///@;"
^DIE(962,"DR",1,396,13)="S Y=""@18"";@17;17.9////^S X=OPER;17.8;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@17"";@18;S CODE=$P(^DVB(396,D0,0),U,26) S:CODE="""" Y=""@20"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@20"";19;"
^DIE(962,"DR",1,396,14)="S DVBASTAT=X S:X=""C"" Y=""@19"";S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,9),1:"""") S:X=""P""&(DVBADT="""") Y=""@20"";19.5///@;S Y=""@20"";@19;19.7////^S X=OPER;19.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@19"";"
^DIE(962,"DR",1,396,15)="@20;S CODE=$P(^DVB(396,D0,0),U,28) S:CODE="""" Y=""@22"" S:DVBACORR=""N""&(CODE'=""P"") Y=""@22"";21;S DVBASTAT=X S:X=""C"" Y=""@21"";S DVBADT=$S($D(^DVB(396,D0,1)):$P(^(1),U,10),1:"""") S:X=""P""&(DVBADT="""") Y=""@22"";21.5///@;S Y=""@22"";@21;"
^DIE(962,"DR",1,396,16)="21.7////^S X=OPER;21.5;I X=""""&(DVBASTAT=""C"") W *7,!!,""Completed status must have date."",!! S Y=""@21"";@22;"
^DIE(962,"ROU")="^DVBAXS"
^DIE(962,"ROUOLD")="DVBAXS"
^DIE(963,0)="DVBA EDIT REMARKS^2930125.0856^^396^^^^"
^DIE(963,"DR",1,396)=".5;"
^DIE(964,0)="DVBA SITE EDIT^2941021.1548^^396.1^^^^"
^DIE(964,"DR",1,396.1)=".01:10;11;12;14:17;"
^DIE(964,"DR",2,396.115)=".01"
^DIE(964,"DR",2,396.12)=".01"
^DIE(964,"DR",2,396.13)=".01;1;"
^DIE(964,"DR",2,396.14)=".01;1;"
^DIE(965,0)="DVBA C ADD 2507 PAT^2950524.1005^^2^^^2981006^"
^DIE(965,"%D",0)="^^1^1^2930608^^^^"
^DIE(965,"%D",1,0)="Allows checking for new 2507 veterans in file #2."
^DIE(965,"AB","^",.01)="4^DVBAXA"
^DIE(965,"AB","^",.02)="5^DVBAXA"
^DIE(965,"AB","^",.09)="6^DVBAXA"
^DIE(965,"AB","^",.111)="6^DVBAXA7"
^DIE(965,"AB","^",.1112)="2^DVBAXA16"
^DIE(965,"AB","^",.112)="7^DVBAXA7"
^DIE(965,"AB","^",.113)="8^DVBAXA7"
^DIE(965,"AB","^",.114)="9^DVBAXA7"
^DIE(965,"AB","^",.115)="1^DVBAXA16"
^DIE(965,"AB","^",.117)="3^DVBAXA16"
^DIE(965,"AB","^",.131)="4^DVBAXA16"
^DIE(965,"AB","^",.132)="5^DVBAXA16"
^DIE(965,"AB","^",.301)="9^DVBAXA"
^DIE(965,"AB","^",.302)="10^DVBAXA"
^DIE(965,"AB","^",.313)="7^DVBAXA"
^DIE(965,"AB","^",.314)="8^DVBAXA"
^DIE(965,"AB","^",.323)="5^DVBAXA7"
^DIE(965,"AB","^",.326)="7^DVBAXA16"
^DIE(965,"AB","^",.327)="8^DVBAXA16"
^DIE(965,"AB","^",.361)="3^DVBAXA7"
^DIE(965,"AB","^",.525)="4^DVBAXA7"
^DIE(965,"AB","^",391)="1^DVBAXA7"
^DIE(965,"AB","^",1901)="2^DVBAXA7"
^DIE(965,"AB","^","@1")="3^DVBAXA"
^DIE(965,"AB","^","@2")="9^DVBAXA16"
^DIE(965,"DIAB",1,0,2,1)=".525;REQ"
^DIE(965,"DIAB",2,0,2,1)=".323;REQ"
^DIE(965,"DIAB",3,0,2,1)=".111;REQ"
^DIE(965,"DIAB",5,0,2,0)=".02;REQ"
^DIE(965,"DIAB",6,0,2,0)=".09;REQ"
^DIE(965,"DIAB",6,0,2,1)=".114;REQ"
^DIE(965,"DIAB",7,0,2,0)=".313;REQ"
^DIE(965,"DIAB",7,0,2,1)=".115;REQ"
^DIE(965,"DIAB",8,0,2,0)=".314;REQ"
^DIE(965,"DIAB",8,0,2,1)=".1112;REQ"
^DIE(965,"DIAB",9,0,2,1)=".117;REQ"
^DIE(965,"DIAB",13,0,2,0)=".361;REQ"
^DIE(965,"DR",1,2)="S DVBACPLT=0 I '$D(IOF) S IOP=""HOME"" D ^%ZIS K IOP;W @IOF,!,""Please review previous information entered as well as"",!,""entering additional REQUIRED information:"",!!!;@1;.01;.02R~;.09R~;.313R~;.314R~;.301;.302;391;1901;.361R~;"
^DIE(965,"DR",1,2,1)=".525R~;.323R~;.111R~;.112;.113;.114R~;.115R~;.1112R~;.117R~;.131;.132;S DVBACPLT=1;.326;.327;@2;W *7,!!,""Need to edit the information you've just entered"" S %=1 D YN^DICN;"
^DIE(965,"DR",1,2,2)="I $D(%Y) I %Y[""?"" W !!,""Enter Y to go back and correct any errors or "",!,""you may enter N to proceed."" S Y=""@2"";I $D(%),%=1 W @IOF,! S Y=""@1"";K %,%Y;"
^DIE(965,"ROUOLD")="DVBAXA"
^DIE(966,0)="QAQA QAM SITE PARAMETERS^2910808.1626^^740^^^2941221^"
^DIE(966,"DR",1,740)="743.01;743.02;743.03;743.04;743.05;743.06;"
^DIE(967,0)="QAQA QARC SITE PARAMETERS^2910715.1508^^740^^^2941221^"
^DIE(967,"DR",1,740)=".01;747.01;747.02;747.03;747.04;747.05;747.06;747.11;747.1;747.13;747.08;747.15;747.14;747.09;747.07;747.16;747.99;"
^DIE(968,0)="QAQA QAOS SITE PARAMETERS^2920924.1314^^740^363^^2950405"
^DIE(968,"DIAB",1,1,740.01,0)="ALL"
^DIE(968,"DIAB",1,1,740.02,0)="ALL"
^DIE(968,"DR",1,740)="741.01;741.02;741.06;741.03;741.04;741.09;741.08;741.07;741.05;741.1;S:'X Y=""@0"";741.11;@0;"
^DIE(968,"DR",2,740.01)=".01"
^DIE(968,"DR",2,740.02)=".01:.02"
^DIE(969,0)="QAQA QAQA SITE PARAMETERS^2930212.1123^^740^363^^2941221"
^DIE(969,"DIAB",1,0,740,0)=".01;T"
^DIE(969,"DR",1,740)=".01T~;740.01;740.02;740.05;740.03;740.04;740.07;S:X'=1 Y="""";740.06;"
^DIE(970,0)="QAQA QAN SITE PARAMETERS^3000509.1216^^740^^^3000921"
^DIE(970,"DIAB",1,1,740.0752,0)="ALL"
^DIE(970,"DR",1,740)="742.01;742.02;742.03;742.04;I $P($G(^QA(740,1,""QAN"")),U,5)'=1 S Y=""@752"";752;@752;755;"
^DIE(970,"DR",2,740.0752)=".01"
^DIE(977,0)="DENT NONCLIN^2850909^^226^^^^"
^DIE(977,"DR",1,226)=".3;.4;S X1=$E(X,1),X1=$S(X1=0:6,X1=2:1,X1>6:6,1:X1);.6;.9;"
^DIE(978,0)="DENTCPMEDT^2860730^^220^^^^"
^DIE(978,"DR",1,220)="51;"
^DIE(978,"DR",2,220.03)="Q;.01;.1///TODAY;1;Q;2;3;Q;4;5;Q;6;7;Q;8;9;Q;10;11;Q;12;13;Q;14;15;"
^DIE(979,0)="DENTGENU^2880824^^221^^^^"
^DIE(979,"DR",1,221)=".01;.3;.5;2;4.5;5;6;7.1;8;10;11;12;21;27;32;37;6.2;6.4;25;22;28;29;30;31;35;19;16;7;33;24;34;23;36;17;38;14;15;6.6;6.7;6.8;"
^DIE(980,0)="DENTGENM^2880824^^221^^^^"
^DIE(980,"DR",1,221)=".01;.3;.5;2;4.5;5;6;7.1;8;10;11;12;21;27;32;37;6.2;6.4;25;22;28;29;30;31;35;19;16;7;33;24;34;23;36;17;38;14;15;6.6;6.7;6.8;40;"
^DIE(981,0)="DENTENDU^2880824^^221^^^^"
^DIE(981,"DR",1,221)=".01;.3;.5;2;4.5;5;6;6.4;7.1;10;8;16;19;22;37;6.2;25;11;12;21;27;32;7;23;24;28;29;30;31;33;34;35;36;17;38;14;15;6.6;6.7;6.8;"
^DIE(982,0)="DENTENDM^2880824^^221^^^^"
^DIE(982,"DR",1,221)=".01;.3;.5;2;4.5;5;6;6.4;7.1;10;8;16;19;22;37;6.2;25;11;12;21;27;32;7;23;24;28;29;30;31;33;34;35;36;17;38;14;15;6.6;6.7;6.8;40;"
^DIE(983,0)="DENTORAU^2890421^^221^^^^"
^DIE(983,"DR",1,221)=".01;.3;.5;2;4.5;5;6;6.4;7.1;8;35;36;37;16;17;19;10;6.2;38;14;15;34;7;25;33;23;11;12;21;27;32;24;28;29;30;31;22;6.6;6.7;6.8;"
^DIE(984,0)="DENTORAM^2890421^^221^^^^"
^DIE(984,"DR",1,221)=".01;.3;.5;2;4.5;5;6;6.4;7.1;8;35;36;37;16;17;19;10;6.2;38;14;15;34;7;25;33;23;11;12;21;27;32;24;28;29;30;31;22;6.6;6.7;6.8;40;"
^DIE(985,0)="DENTPERIU^2880824^^221^^^^"
^DIE(985,"DR",1,221)=".01;.3;.5;2;4.5;5;6.4;10;11;25;24;23;37;19;34;16;8;6;7.1;6.2;33;12;21;27;32;7;22;28;29;30;31;35;36;17;38;14;15;6.6;6.7;6.8;"
^DIE(986,0)="DENTPERIM^2880824^^221^^^^"
^DIE(986,"DR",1,221)=".01;.3;.5;2;4.5;5;6.4;10;11;25;24;23;37;19;34;16;8;6;7.1;6.2;33;12;21;27;32;7;22;28;29;30;31;35;36;17;38;14;15;6.6;6.7;6.8;40;"
^DIE(987,0)="YSCEN UNIT DEF^2880817^^618^^^^"
^DIE(987,"DR",1,618)=".01;1;2;2.2;2.3;2.4;2.5;2.7;2.8;3;3.1;3.2;3.3;3.4;4;4.1;7;"
^DIE(988,0)="NURA-I-A1106B^2911109.1002^^213.2^^^2970424^"
^DIE(988,"%D",0)="^^1^1^2910313^^^^"
^DIE(988,"%D",1,0)="ROUTINE: NURAFBU (UNDER OPTION NURAFL-BFU)"
^DIE(988,"AB","^",1)="1^NURAPA"
^DIE(988,"AB","^",1,"///")=""
^DIE(988,"AB","^",2)="2^NURAPA"
^DIE(988,"AB","^",2,"///")=""
^DIE(988,"AB","^",3)="3^NURAPA"
^DIE(988,"AB","^",3,"///")=""
^DIE(988,"AB","^",4)="4^NURAPA"
^DIE(988,"AB","^",4,"///")=""
^DIE(988,"AB","^",5)="5^NURAPA"
^DIE(988,"AB","^",5,"///")=""
^DIE(988,"AB","^",6)="6^NURAPA"
^DIE(988,"AB","^",6,"///")=""
^DIE(988,"AB","^",7)="7^NURAPA"
^DIE(988,"AB","^",7,"///")=""
^DIE(988,"AB","^",8)="8^NURAPA"
^DIE(988,"AB","^",8,"///")=""
^DIE(988,"AB","^",9)="9^NURAPA"
^DIE(988,"AB","^",9,"///")=""
^DIE(988,"AB","^",10)="10^NURAPA"
^DIE(988,"AB","^",10,"///")=""
^DIE(988,"AB","^",11)="1^NURAPA1"
^DIE(988,"AB","^",11,"///")=""
^DIE(988,"AB","^",12)="2^NURAPA1"
^DIE(988,"AB","^",12,"///")=""
^DIE(988,"AB","^",13)="3^NURAPA1"
^DIE(988,"AB","^",13,"///")=""
^DIE(988,"AB","^",14)="4^NURAPA1"
^DIE(988,"AB","^",14,"///")=""
^DIE(988,"AB","^",15)="5^NURAPA1"
^DIE(988,"AB","^",15,"///")=""
^DIE(988,"AB","^",16)="6^NURAPA1"
^DIE(988,"AB","^",16,"///")=""
^DIE(988,"AB","^",17)="7^NURAPA1"
^DIE(988,"AB","^",17,"///")=""
^DIE(988,"AB","^",18)="8^NURAPA1"
^DIE(988,"AB","^",18,"///")=""
^DIE(988,"AB","^",19)="9^NURAPA1"
^DIE(988,"AB","^",19,"///")=""
^DIE(988,"AB","^",20)="10^NURAPA1"
^DIE(988,"AB","^",20,"///")=""
^DIE(988,"AB","^",43)="1^NURAPA2"
^DIE(988,"AB","^",43,"///")=""
^DIE(988,"DR",1,213.2)="1///^S X=NURSFT(1);2///^S X=NURSFT(2);3///^S X=NURSFT(3);4///^S X=NURSFT(4);5///^S X=NURSFT(5);6///^S X=NURSFT(6);7///^S X=NURSFT(7);8///^S X=NURSFT(8);9///^S X=NURSFT(9);10///^S X=NURSFT(10);11///^S X=NURSFT(11);"
^DIE(988,"DR",1,213.2,1)="12///^S X=NURSFT(12);13///^S X=NURSFT(13);14///^S X=NURSFT(14);15///^S X=NURSFT(15);16///^S X=NURSFT(16);17///^S X=NURSFT(17);18///^S X=NURSFT(18);19///^S X=NURSFT(19);20///^S X=NURSFT(20);43///^S X=NURSCRDT;"
^DIE(988,"ROU")="^NURAPA"
^DIE(988,"ROUOLD")="NURAPA"
^DIE(990,0)="NURA-I-PATHOURS^2900430.1411^^213.4^^^2970127^"
^DIE(990,"DR",1,213.4)="1;2;3;"
^DIE(992,0)="GMRV SITE FILE EDIT^2970219.1103^^120.57^^^2970417"
^DIE(992,"DR",1,120.57)="I '$D(^ORD(100.99)) S Y=""@1"";2;3;4;@1;5.1;5.2;5.3;5.4;5.5;5.6;5.7;5.71;5.8;5.81;6.1;6.2;6.3;"
^DIE(993,0)="NURS-I-PRIORITY 1A^2901011.0927^^211.4^^^2970423^"
^DIE(993,"DR",1,211.4)="11;12;"
^DIE(994,0)="NURSAED-I-STAFF2^2950907.1^^210^^^2970411^"
^DIE(994,"DR",1,210)="S EDIT=1 D EN11^NURSUT0($G(D0)) W ?$X+3,""(NO EDITING)"";S Z=$$EN12^NURSUT0(DA) W !,""SALARY: "",$J(+Z,6,2)_""  (""_$P($G(Z),U,2)_"" - NO EDITING )"";6.5;W:$O(^NURSF(210,DA,9,""AA"",0)) ?$X+3,""(""_$$EN13^NURSUT0(DA)_"")"";6.7;29;"
^DIE(994,"DR",2,210.19)=".01;S %DT(0)=-DT;1;2;"
^DIE(995,0)="NURSAED-I-STAFF3^2900426.0835^^210^^^2970211^"
^DIE(995,"%D",0)="^^1^1^2910313^^^^"
^DIE(995,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(995,"DR",1,210)="W !,""Employee's License."",!;16;"
^DIE(995,"DR",2,210.03)=".01;1;2;1.6;"
^DIE(996,0)="NURSAED-I-STAFF4^2940907.0852^^210^^^2970418^"
^DIE(996,"%D",0)="^^1^1^2910313^^"
^DIE(996,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(996,"DIAB",1,1,210.08,0)="ALL"
^DIE(996,"DR",1,210)="W !,""Employee's Professional Education. "",!;21.3;D ^NURAEDCK;23.1;S:'(X=""Y"") Y=""@9"";23.2;@9;W !;"
^DIE(996,"DR",2,210.04)=".01;S:((X=1)!(X=2)!(X=4)!(X=6)!(X=8)) Y=""@8"";1;2;3;S Y=""@7"";@8;1///^S X=""NURSING"";W !,?2,""MAJOR: NURSING"";2;3;@7;"
^DIE(996,"DR",2,210.08)=".01:1"
^DIE(997,0)="NURSAED-I-STAFF5^2931119.1426^^210^^^^"
^DIE(997,"%D",0)="^^1^1^2931026^^^^"
^DIE(997,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(997,"DR",1,210)="W !,""Professional Experience."",!;S POSTDES="""";F II=""%"",""%Y"",""D(0)"",""DA"",""DC"",""DH"",""DIC"",""DIE"",""DIEL"",""DK"",""DL"",""DP"",""DU"",""DQ(0,1)"",""DR"",""DR(1,210)"",""DR(2,210.13)"",""X"",""Y"",""Y(0)"" S NURSVAR(II)=@II;@1;22.5;"
^DIE(997,"DR",1,210,1)="S:X'=""""&(PREDES'=POSTDES) Y=""@1"";K NURSVAR;"
^DIE(997,"DR",2,210.13)="S:$P($G(^NURSF(210,DA(1),20,0)),U,3)=NURSCNT Y=""@2"";D EN88^NURAED0 W $C(7),""??"" S Y=""@1"";@2;S PREDES=POSTDES;.01;S POSTDES=X;3;1;2.1;S X=X;2.5;S X="""";"
^DIE(998,0)="NURSAED-I-STAFF10^2900426.0833^^210^^^2970211^"
^DIE(998,"%D",0)="^^1^1^2910313^^^^"
^DIE(998,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(998,"DIAB",1,1,210.17,0)="ALL"
^DIE(998,"DR",1,210)="W !,""Probationary Period/Promotion."",!;19.5;19.61;"
^DIE(998,"DR",2,210.17)=".01:1"
^DIE(999,0)="NURSAED-I-STAFF11^2981214.0922^^210^^^2990113"
^DIE(999,"%D",0)="^^1^1^2910313^^^"
^DIE(999,"%D",1,0)=" ROUTINE: NURSAEDO (UNDER OPTION NURAED-STF-MENU)"
^DIE(999,"DR",1,210)="W !,""Annual Review/NPSB."",!;19.86;"
^DIE(999,"DR",2,210.18)=".01;1;5;3;4;2;6;"
^DIE(1000,0)="NURSAED-I-CED^2920429.1607^^210^^^2970313^"
^DIE(1000,"%D",0)="^^1^1^2910313^^^^"
^DIE(1000,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(1000,"DR",1,210)="27;"
^DIE(1000,"DR",2,210.12)=".01;1;S X=X;1.5;2:3;3.5;4;5;S X=X;5.5;6;"
^DIE(1000,"DR",3,210.14)=".01;1;"
^DIE(1000,"DR",3,210.15)=".01;1;"
^DIE(1001,0)="NURSAED-I-STAFF1^2900426.0833^^210^^^2970224^"
^DIE(1001,"DR",1,210)="D EDTMAIL^NURAED4 S:$D(NURSW) Y=""@10"";@2;R !!,""Do you want to edit the mailing address? NO// "",X:DTIME S:X=""""&$T X=""N"" S Y=$S('$T!(X=""^""):""@15"",X?1""Y"".E!(X?1""y"".E):""@10"",X?1""N"".E!(X?1""n"".E):""@6"",1:""@14"");@14;"
^DIE(1001,"DR",1,210,1)="W !,""ANSWER OR NO"",*7 S Y=""@2"";@10;K NURSW;R !!,""Do you want the mailing address the same as the home address? NO// "",X:DTIME S:X=""""&$T X=""N"" S Y=$S('$T!(X=""^""):""@15"",X?1""Y"".E!(X?1""y"".E):""@4"",X?1""N"".E!(X?1""n"".E):""@5"",1:""@11"");@11;"
^DIE(1001,"DR",1,210,2)="W !,""ANSWER YES OR NO"",$C(7) S Y=""@10"";@4;D EN3^NURAED3;13.3///^S X=SAVEADD;13.35///^S X=SAVEADD2;13.4///^S X=SAVEADD3;13.5///^S X=SAVECITY;13.7///^S X=SAVESTAT;13.9///^S X=SAVEZIP;K SAVEADD,SAVEADD2,SAVEADD3;"
^DIE(1001,"DR",1,210,3)="K SAVECITY,SAVESTAT,SAVEZIP,NURSS;S Y=""@6"";@5;13.3;13.35;13.4;13.5;13.7;13.9;@6;W !;14;15;@15;"
^DIE(1001,"DR",2,210.01)=".01;1;S:X'?1""O"".E Y=""@7"";2;@7;"
^DIE(1001,"DR",2,210.02)=".01:7;"
^DIE(1002,0)="NURSAED-I-EDUCATION^2881123^^210^^^^"
^DIE(1002,"DR",1,210)="28;"
^DIE(1002,"DR",2,210.05)=".01///^S X=CDAT;1///^S X=CNAM;"
^DIE(1003,0)="NURSAED-I-STAFFPR^2911125.0805^^210^^^2970411^"
^DIE(1003,"DIAB",1,0,210,0)=".01:"
^DIE(1003,"DR",1,210)="^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^NURSF(210,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1003,"DR",2,200)="@15;W !?2,""NAME: ""_$S($D(^VA(200,DA,0)):$P(^(0),U)_$S($P(^(0),U)'="""":""// "",1:""""),1:"""") R NURSX:DTIME S:NURSX=""^""!'$T NURSOUT=1 I NURSX=""""!$D(NURSOUT) S Y=$S($D(NURSOUT):""@12"",1:""@16"");"
^DIE(1003,"DR",2,200,1)="I NURSX?1""?"".E W !?5,$C(7),""ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"" S Y=""@15"";"
^DIE(1003,"DR",2,200,2)="I NURSX[""""""""!($A(NURSX)=45)!($L(NURSX)>30)!($L(NURSX)<3)!(NURSX'?1U.UP1"",""1U.UP) W:NURSX?1""@"".E !?5 W $C(7),$S(NURSX?1""@"".E:""CANNONT DELETE NEW PERSON FILE ENTRIES!!"",1:"" ??"") S Y=""@15"";.01///^S X=NURSX;@16;4;"
^DIE(1003,"DR",2,200,3)="S %DT(0)=-($E(DT,1,3)-18)_$E(DT,4,7);5;9;D EDTADD^NURAED4;S:$D(NURSW) Y=""@9"";@8;"
^DIE(1003,"DR",2,200,4)="R !!,""Do you wish to edit the home address? NO// "",X:DTIME S:X=""""&$T X=""N"" S:X=""^""!'$T X="""",NURSOUT=1 S Y=$S(X="""":""@12"",X?1""N"".E!(X?1""n"".E):""@11"",X?1""Y"".E!(X?1""y"".E):""@9"",1:""@13"");@13;W !,""ANSWER YES OR NO"",$C(7);S Y=""@8"";@9;"
^DIE(1003,"DR",2,200,5)="K NURSW;.111;.112;.113;.114;.115;.116;@11;S X=""N"";@12;I $D(NURSOUT) K NURSOUT S X="""";"
^DIE(1004,0)="NURSAED-I-STAFFPD^2901015.1505^^210^^^2990218^"
^DIE(1004,"%D",0)="^^1^1^2910313^^"
^DIE(1004,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(1004,"DR",1,210)="W !,""Employee Personnel Data. "",!!,""SERVICE COMPUTATION DATE: "" D COMPDISP^NURSUT4;18;17;16.5;"
^DIE(1005,0)="NURSAED-I-STAFF6^2900426.0837^^210^^^^"
^DIE(1005,"%D",0)="^^1^1^2910313^^"
^DIE(1005,"%D",1,0)=" ROUTINE: NURSAED0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(1005,"DR",1,210)="W !,""Station Reassignments."",!;23;"
^DIE(1005,"DR",2,210.07)=".01;Q;1;2;3;4;"
^DIE(1006,0)="NURSAED-I-STAFF7^2911209.1548^^210^^^2970211^"
^DIE(1006,"%D",0)="^^1^1^2910313^^^"
^DIE(1006,"%D",1,0)=" ROUTINE: NURSADE0 (UNDER OPTION NURAED-STF-MENU)"
^DIE(1006,"DIAB",1,1,210.024,0)="ALL"
^DIE(1006,"DR",1,210)="W !,""Employee's National Certification. "",!;24;W !;"
^DIE(1006,"DR",2,210.024)=".01;2:3"
^DIE(1007,0)="NURSAED-I-STAFF8^2931001.115^^210^^^2970411^"
^DIE(1007,"%D",0)="^^1^1^2910313^^^"
^DIE(1007,"%D",1,0)=" ROUTINE: (UNDER OPTION NURAED-STF-MENU)"
^DIE(1007,"DR",1,210)="W !,""Employee's Military Status. "",!;S NURSM=$S($D(^NURSF(210,DA,0)):$P(^(0),U,8),1:""""),Y=$S(NURSM:""@5"",NURSM=0:""@6"",1:""@2"");@2;W !,?4,""MILITARY EXPERIENCE"" S %="""" D YN^DICN;"
^DIE(1007,"DR",1,210,1)="S NURSX=$S(%=1:1,%=2:0,1:""""),Y=$S(%=-1:""@9"",%=0:""@3"",1:""@4"");@3;W !,$C(7),""ANSWER YES OR NO"" S Y=""@2"";@6;W !,""NO MILITARY EXPERIENCE, THEREFORE NO FURTHER UPDATING REQUIRED"";R !!,""Press return to continue "",X:DTIME;S Y=""@9"";@4;"
^DIE(1007,"DR",1,210,2)="S:NURSX=0 Y=""@7"";K NURSX;16.5;S NURSX=X;S Y=""@8"";@7;16.5///^S X=0;@8;S:'$D(NURSX) Y=""@9"";S:NURSX<1 Y=""@9"";@5;26;@9;"
^DIE(1007,"DR",2,210.06)=".01;S:X=""R"" Y=""@1"";1;@1;"
^DIE(1009,0)="GMRG EDIT TERM^2910325.1506^^124.2^^^^"
^DIE(1009,"DR",1,124.2)=".1;.02;K DIC(""S"");.04;4;5;6;S:$P(^GMRD(124.2,DA,0),U,2)'=2 Y=""@1"";2;3;3.5;6.5;@1;S:DUZ(0)'=""@"" Y=""@2"";7;8;9;10;@2;"
^DIE(1010,0)="VSITTRAK^2960620.1113^^150.9^^^2960923"
^DIE(1010,"DR",1,150.9)=".03;.04;3;402;"
^DIE(1010,"DR",2,150.93)=".01;4;"
^DIE(1011,0)="PXTT EDIT HEALTH FACTORS^2951211.1352^^9999999.64^^^2960523^"
^DIE(1011,"DR",1,9999999.64)=".01;.11;Q;.1;S:X=""C"" Y=""@1"";.03;.04;.05;.08;@1;"
^DIE(1012,0)="PXTT EDIT PAT. EDUCATION^2951120.1529^^9999999.09^^^2960528^"
^DIE(1012,"DIAB",1,1,9999999.091001,0)="ALL"
^DIE(1012,"DR",1,9999999.09)=".01;.03;.04;11;12;10;"
^DIE(1012,"DR",2,9999999.091001)=".01:3"
^DIE(1013,0)="PX LOCATION OF HOME^2960412.1142^^9000001^^^2960620"
^DIE(1013,"DR",1,9000001)="1201;"
^DIE(1014,0)="PX SITE PARAMETER EDIT^2970520.135^^815^^^2970523"
^DIE(1014,"DR",1,815)="202//APPOINTMENT;203;204;205;206;301;302;303;.02;.03;"
^DIE(1015,0)="FBAA AUTHORIZATION^3010322.0831^^161^^^3010529"
^DIE(1015,"%D",0)="^^1^1^2951204^^"
^DIE(1015,"%D",1,0)="This template is used for creating new authorizations for Fee Basis."
^DIE(1015,"AB","2^FBCTAU",.01)="4^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU",.02)="14^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU",.021)="11^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.03)="16^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU",.03,"///")=""
^DIE(1015,"AB","2^FBCTAU",.04)="15^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.065)="1^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.07)="20^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU",.08)="6^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.085)="8^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.086)="10^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.095)="2^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.096)="19^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",.097)="20^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",1)="21^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",2)="12^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",100)="17^FBCTAU2"
^DIE(1015,"AB","2^FBCTAU",100,"///")=""
^DIE(1015,"AB","2^FBCTAU",101)="18^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU","@1")="3^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU","@2")="11^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU","@4")="19^FBCTAU1"
^DIE(1015,"AB","2^FBCTAU","@5")="26^FBCTAU1"
^DIE(1015,"AB","^",.5)="7^FBCTAU"
^DIE(1015,"AB","^",.6)="10^FBCTAU"
^DIE(1015,"AB","^",.65)="12^FBCTAU"
^DIE(1015,"AB","^",.7)="13^FBCTAU"
^DIE(1015,"AB","^",1)="2^FBCTAU"
^DIE(1015,"DIAB",2,1,161.01,3)="101;T"
^DIE(1015,"DR",1,161)="S FBPRG="""";1;I '$D(FBAATT) S Y="""";I FBAATT'=3 S Y="""";Q;S HID=$S($D(^FBAAA(DA,4)):$P(^(4),""^""),1:"""");.5;Q;S NID=X;.6//^S X=""TODAY"";S Y=$S(HID="""":"""",HID=NID:"""",NID="""":.65,1:.7);.65;.7;S NIDR=X;"
^DIE(1015,"DR",2,161.01)="S FBAOLD=^FBAAA(DA(1),1,DA,0),FBAALT=$S($P(FBAOLD,""^"",13)=2:""Y"",$P(FBAOLD,""^"",13)=3:""Y"",1:""""),FBPRG=$P(FBAOLD,""^"",3);I FBPRG,FBPRG'=2 W !!,*7,""You are only allowed to edit an outpatient authorization using this option."",!! S Y="""";"
^DIE(1015,"DR",2,161.01,1)="@1;.01;S FBTODT=X;I $P(FBAOLD,U,2)']"""" S Y=""@2"";I X'>$P(FBAOLD,U,2) S Y=""@2"";.01////^S X=+FBAOLD;W !,*7,""From Date cannot be later than the To Date!"";S Y=""@1"";@2;"
^DIE(1015,"DR",2,161.01,2)="S:'$D(FBAADDYS) FBAADDYS=0 S X1=FBTODT,X2=FBAADDYS D C^%DTC S FBAAX=X;S FBD1=DA;.02//^S X=$E(FBAAX,4,5)_""-""_$E(FBAAX,6,7)_""-""_($E(FBAAX,1,3)+1700);I $P(^FBAAA(DA(1),1,DA,0),""^"",7)]"""" K DIE(""NO^"");.03////^S X=$S(FBPRG:FBPRG,1:2);"
^DIE(1015,"DR",2,161.01,3)="S FBTYPE=$S(FBPRG:FBPRG,1:2);101T~;@4;.07;S:$$EXTPV^FBAAUTL5(X)'=55 Y=""@5"";S:$P($$GETSTAT^DGMSTAPI(DA(1)),U,2)=""Y"" Y=""@5"";S DIE(""NO^"")="""";W !,$C(7),""MST POV can't be selected because veteran's MST status is not YES."";S Y=""@4"";@5;"
^DIE(1015,"DR",2,161.01,4)=".065;.095;S FBAATT=X;S FBAALT=$S(X=2:""Y"",X=3:""Y"",1:"""");K DIE(""NO^"");.08;S:X="""" Y=.021;.085;S:X="""" Y=.021;.086;.021;2;S:'$D(FBAAASKV) FBAAASKV=""N"";S:FBAAASKV'=""y"" Y=100;.04;Q;100////^S X=DUZ;W !!;.096;.097//^S X=""NO"";1//^S X=""YES"";"
^DIE(1015,"DR",2,161.01,5)="S FBAAP79=$S(X[""Y"":""Y"",1:"""");I X[""Y"" S Y="""";1///^S X=""@"";"
^DIE(1015,"ROU")="^FBCTAU"
^DIE(1015,"ROUOLD")="FBCTAU"
^DIE(1016,0)="FBAA EDIT VENDOR^3061011.1333^^161.2^^^3061018"
^DIE(1016,"DIAB",1,1,161.225,0)="ALL"
^DIE(1016,"DIAB",2,0,161.2,1)=".05;REQ"
^DIE(1016,"DIAB",5,0,161.2,2)="22;REQ"
^DIE(1016,"DIAB",6,0,161.2,0)="30.06;T"
^DIE(1016,"DR",1,161.2)="S FBTV="""",FBPARCD="""";.01;1;S FBID=X;W !,""Is the ID NUMBER a Tax # or SSN?"";30.06T~;6;S FBTV=X;I FBTV=3&(FBID'?9N) W !!,*7,""Pharmacy Vendor ID must be 9 numerics only!!"" S Y=1;24;S FBBT=X;25;S:$$VGRP^FBAAUTL6(D0) Y=24;7;S FBPARCD=X;"
^DIE(1016,"DR",1,161.2,1)="S:FBTV'=2 Y=""@3"";.05R~;S Y=2;@3;.05///@;2;2.5;3;4;5;5.5;14;23;30.03////Y;30.05////B;30.04////^S X=$S(FBTV=2:""I"",FBTV=10:""F"",1:""C"");D EN^FBAAVD4;Q;S:FBPARCD=6 Y=""@22"";S:FBPARCD=14 Y=8;22;S:FBPARCD=5 Y=.18;S:FBTV'=3 Y="""";8;S Y="""";"
^DIE(1016,"DR",1,161.2,2)="@22;30.02;S FBEXMPT=X;S:$G(FBEXMPT)=""Y"" Y=""@23"";22R~;S Y="""";@23;22;K FBEXMPT S Y="""";.18;18;19;20;"
^DIE(1016,"DR",2,161.225)=".01"
^DIE(1017,0)="FBAA NEW VENDOR^3061011.1334^^161.2^^^3061013"
^DIE(1017,"DIAB",1,1,161.225,0)="ALL"
^DIE(1017,"DIAB",3,0,161.2,1)=".05;REQ"
^DIE(1017,"DIAB",3,0,161.2,2)="22;REQ"
^DIE(1017,"DIAB",6,0,161.2,0)="30.06;T"
^DIE(1017,"DR",1,161.2)="S FBPARCD="""";.01;1;S FBID=X;W !,""Is the ID NUMBER a Tax # or SSN?"";30.06T~;6;S FBTV=X;I FBTV=3&(FBID'?9N) W !!,*7,""Pharmacy Vendor ID must be 9 numerics!"" S Y=1;24;S FBBT=X;25;S:$$VGRP^FBAAUTL6(D0) Y=24;S:FBTV=3 FBPARCD=14,Y=2;7;"
^DIE(1017,"DR",1,161.2,1)="S FBPARCD=X;S:FBTV'=2 Y=2;.05R~;2;2.5;3;4;5;5.5;14;23;30.03////Y;30.05////B;30.04////^S X=$S(FBTV=2:""I"",FBTV=10:""F"",1:""C"");D EN^FBAAVD4;S:FBPARCD=6 Y=""@22"";S:FBPARCD=14 Y=8;22;S:FBPARCD=5 Y=.18;S:FBTV'=3 Y="""";8;S Y="""";@22;30.02;"
^DIE(1017,"DR",1,161.2,2)="S FBEXMPT=X;S:FBEXMPT=""Y"" Y=""@23"";22R~;S Y="""";@23;22;K FBEXMPT S Y="""";.18;18;19;20;"
^DIE(1017,"DR",2,161.225)=".01"
^DIE(1018,0)="FBAA REPORT OF CONTACT^2901104.1837^^161^^^2941221^"
^DIE(1018,"DR",1,161)="2;K FBDAT;"
^DIE(1018,"DR",2,161.02)=".01;S FBDAT=X;S FBD1=DA;1;1.5;2;Q;Q;Q;100////^S X=DUZ;@1;5//^S X=""TODAY"";I X<FBDAT W !,*7,""Input date must be after date of contact!"" S Y=""@1"";3.5;"
^DIE(1019,0)="FBAA INVOICE EDIT^2890519^^162.1^^^2930518"
^DIE(1019,"DR",1,162.1)=".01;1;3;4;5;"
^DIE(1019,"DR",2,162.11)=".01;1;1.5;1.6;2;3;4;I $P(^FBAA(162.1,DA(1),""RX"",DA,0),U,9)=1 S Y="""";I 1;5;6;6.5;7;S:X'=4 Y=8;20;8;16;"
^DIE(1020,0)="FBAA BATCH EDIT^2930504.1115^^161.7^1555^^2950105"
^DIE(1020,"DR",1,161.7)=".01;1////^S X=FBON;3;"
^DIE(1021,0)="FBAA SITE PARAMETERS^3011107.0858^^161.4^^^3011213"
^DIE(1021,"DIAB",13,0,161.4,0)="32;T"
^DIE(1021,"DR",1,161.4)=".01;I $$VER^FBAAUTL2(161.4)=3,$D(^FBAA(161.4,1,0)) S $P(^(1),U,10)=""FEE"";I $D(^FBAA(161.4,1,0)),$P(^(1),U,9)="""" S $P(^(1),U,9)=125;1;2;16;3:8;9;12:14;15;17:19;21:28;32T~;32.5;33;34;35;35.5;35.6;35.7;"
^DIE(1021,"DR",2,161.428)=".01"
^DIE(1022,0)="FBAA LETTERS^2870224^^161.3^^^2941227"
^DIE(1022,"DR",1,161.3)=".01;1;2;"
^DIE(1023,0)="FBCH ENTER REQUEST^2930318.0916^^162.2^1555^^2941219"
^DIE(1023,"DR",1,162.2)="Q;S FBUP="""",FBLG=0;D:FBN CHEK^FBCHREQ;.01;S FBDA=DA;S FBDATE=X;@1;W !;1////^S X=FBCHVEN;S FBVD=X;@2;2;S FBPER=X;3////^S X=DFN;3.5;S FBDOA=X;I 1;4//^S X=FBDOA;S FBADDT=X;W !;S FBBEGDT=X;"
^DIE(1023,"DR",1,162.2,1)="S FBPROG=6,FBFLAG=2 D EN1^FBAAUTL2 S:FBLG>0 FBSW=1,Y=7;D TIMCK^FBCHREQ1;S (FBDIAG,FBPHY,FBCHTEL)="""";S:FBSW FBOUT=1,Y="""";5;S FBDIAG=X;6;S FBPHY=X;S:FBPHY="""" Y=""@7"";6.5;S FBCHTEL=X;@7;S:'FBN Y=0;7////^S X=DUZ;"
^DIE(1023,"DR",1,162.2,2)="100////^S X=$S(FBSW:3,1:1);S:'FBSW Y=""@99"";8////^S X=""N"";9////^S X=DT;10////^S X=DUZ;@99;S FBUP=1;K FBVENEW;"
^DIE(1024,0)="FBCH ENTER 7078^2930819.1319^^162.4^705^^2941219"
^DIE(1024,"DR",1,162.4)=".5////^S X=6;9////^S X=""I"";1////^S X=FBVEN;2////^S X=FBVET;3////^S X=FBFRDT;3.5////^S X=FBDOA;4////^S X=FBTODT;4.5////^S X=FBDOD;5////^S X=FBADMIT;10////^S X=DT;8////^S X=DUZ;6////^S X=FBEST;"
^DIE(1024,"DR",1,162.4,1)="I $D(^FBAA(161.4,1,0)),$D(^(""S"")) S:$D(^(""S"",0)) ^FB7078(DA,1,0)=^(0) F FBI=1:1 Q:'$D(^FBAA(161.4,1,""S"",FBI,0))  I $D(^(0)) S ^FB7078(DA,1,FBI,0)=^(0);7;S Y=$S(FBTODT:0,1:12);12////^S X=FBPDIS;9////^S X=""I"";"
^DIE(1025,0)="FBCH ENTER PAYMENT^3031008.1348^^162.5^^^3031009"
^DIE(1025,"DR",1,162.5)="1////^S X=FBAAID;46////^S X=FBAAVID;55///^S X=FBCSID;56///^S X=$G(FBFPPSC);57///^S X=$G(FBFPPSL);47////^S X=FBAAMM1;2////^S X=FBVEN;3////^S X=FBVET;4////^S X=FBI7078;5////^S X=FBAABDT;6////^S X=FBAAEDT;23////^S X=FBPSA;"
^DIE(1025,"DR",1,162.5,1)="21////^S X=FBPOV;22////^S X=FBPT;11////^S X=FBTYPE;12////^S X=FBAAPTC;20////^S X=FBAABE;W !;6.5;54//^S X=$G(FBCDAYS);6.6;I 1;7;S FBAMTC=X;I $G(FBEXMPT)'=""Y"" S Y=""@25"";S:FBI7078'[""FB583"" Y=8;S:'$P($G(^FB583(+FBI7078,0)),U,28) Y=8;"
^DIE(1025,"DR",1,162.5,2)="W !?2,""**Payment is for emergency treatment under 38 U.S.C. 1725."";8;S FBAMTP=X;I FBAMTC=FBAMTP S Y=""@25"";S FBX=$$ADJ^FBUTL2(FBAMTC-FBAMTP,.FBADJ,1,,,1);@20;I $G(FBEXMPT)=""Y"" S Y=""@25"";@26;24;"
^DIE(1025,"DR",1,162.5,3)="I $$INPICD^FBCSV1(X,$G(DA),FBAABDT) S Y=""@26"";@25;6.7;I 1;@30;30;I $$INPICD9^FBCSV1(X,$G(DA),FBAABDT) S Y=""@30"";@35;31;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA),FBAABDT) S Y=""@35"";@40;32;S:X="""" Y=40;"
^DIE(1025,"DR",1,162.5,4)="I $$INPICD9^FBCSV1(X,$G(DA),FBAABDT) S Y=""@40"";@45;33;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA),FBAABDT) S Y=""@45"";@50;34;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA),FBAABDT) S Y=""@50"";@55;40;S:X="""" Y=""@99"";"
^DIE(1025,"DR",1,162.5,5)="I $$INPICD0^FBCSV1(X,$G(DA),FBAABDT) S Y=""@55"";@60;41;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA),FBAABDT) S Y=""@60"";@65;42;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA),FBAABDT) S Y=""@65"";@70;43;S:X="""" Y=""@99"";"
^DIE(1025,"DR",1,162.5,6)="I $$INPICD0^FBCSV1(X,$G(DA),FBAABDT) S Y=""@70"";@75;44;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA),FBAABDT) S Y=""@75"";@99;I $D(^FBAAI(DA,""DX"")),$P(^(""DX""),U)="""" W !!,*7,""The 'ICD1' field is a manditory field!"",! S Y=""@30"";"
^DIE(1025,"DR",1,162.5,7)="I $G(FBEXMPT)'=""Y"" S Y=""@992"";S FBX=$$RR^FBUTL4(.FBRRMK,2);@992;25////^S X=FBRESUB;"
^DIE(1026,0)="FBCH EDIT PAYMENT^3031008.1345^^162.5^^^3031009"
^DIE(1026,"DIAB",5,0,162.5,3)="24;REQ"
^DIE(1026,"DIAB",7,0,162.5,3)="24.5;REQ"
^DIE(1026,"DR",1,162.5)="1;Q;Q;I 1;46;55;S FBX=$$FPPSC^FBUTL5(1,FBFPPSC);S:FBX=-1 Y=0;S:FBX="""" Y=""@10"";56///^S X=FBX;S FBFPPSC=X;S FBX=$$FPPSL^FBUTL5(FBFPPSL,1);S:FBX=-1 Y=0;57///^S X=FBX;S FBFPPSL=X;S Y=""@14"";@10;56///@;S FBFPPSC="""";57///@;S FBFPPSL="""";"
^DIE(1026,"DR",1,162.5,1)="@14;S FBAAMM=1;D PPT^FBAACO1();47////@;47///^S X=FBAAMM1;6.5;54;6.6;I 1;6.7;S DIE(""NO^"")=""NO QUIT"";7;S:$D(FBPRICE) Y=""@25"";S FBJJ=X;I $G(FBEXMPT)=""Y"" S Y=""@20"";26;S FBPAMT=X;@20;"
^DIE(1026,"DR",1,162.5,2)="W:FB1725 !?2,""**Payment is for emergency treatment under 38 U.S.C. 1725."";W:FB1725&($G(FBPAMT)>0) !?2,""  70% of Pricer Amount = ""_$J(.7*FBPAMT,0,2);8;S FBKK=X;K FBADJD;M FBADJD=FBADJ;"
^DIE(1026,"DR",1,162.5,3)="S FBX=$$ADJ^FBUTL2(FBJJ-FBKK,.FBADJ,1,,.FBADJD,1);K FBADJD;I $G(FBEXMPT)=""Y"" S Y=30;@26;24R~;I $$INPICD^FBCSV1(X,$G(DA)) S Y=""@26"";24.5R~;@25;30;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA)) S Y=""@25"";@30;31;S:X="""" Y=40;"
^DIE(1026,"DR",1,162.5,4)="I $$INPICD9^FBCSV1(X,$G(DA)) S Y=""@30"";@35;32;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA)) S Y=""@35"";@40;33;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA)) S Y=""@40"";@45;34;S:X="""" Y=40;I $$INPICD9^FBCSV1(X,$G(DA)) S Y=""@45"";@50;40;"
^DIE(1026,"DR",1,162.5,5)="S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA)) S Y=""@50"";@55;41;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA)) S Y=""@55"";@60;42;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA)) S Y=""@60"";@65;43;S:X="""" Y=""@99"";"
^DIE(1026,"DR",1,162.5,6)="I $$INPICD0^FBCSV1(X,$G(DA)) S Y=""@65"";@70;44;S:X="""" Y=""@99"";I $$INPICD0^FBCSV1(X,$G(DA)) S Y=""@70"";@99;S:$D(FBPRICE) Y=""@992"";K FBRRMKD;M FBRRMKD=FBRRMK;S FBX=$$RR^FBUTL4(.FBRRMK,2,,.FBRRMKD);K FBRRMKD;@992;"
^DIE(1026,"DR",1,162.5,7)="K FBJJ,FBKK,DIE(""NO^""),FBX;"
^DIE(1027,0)="FB CHNH OPEN BATCH^2940920.1506^^161.7^705^^2950106"
^DIE(1027,"DR",1,161.7)="S:'$D(FBSTN) FBSTN="""";4////^S X=DUZ;Q;11////^S X=""O"";2////^S X=""B9"";3////^S X=DT;1////^S X=FBOBN;16////^S X=FBSTN;S:'$G(FBBSTAT) Y="""";19////1;"
^DIE(1028,0)="FBAA MED IFCAP^2940920.1507^^161.7^705^^2950125"
^DIE(1028,"DR",1,161.7)="3////^S X=DT;4////^S X=DUZ;2///^S X=""B3"";11///^S X=""O"";1////^S X=FBOBN;16////^S X=FBSTN;S:'$G(FBBSTAT) Y="""";19////1;"
^DIE(1029,0)="FBAA PHARM IFCAP^2940920.1512^^161.7^705^^2941227"
^DIE(1029,"DR",1,161.7)="3////^S X=DT;4////^S X=DUZ;2///^S X=""B5"";11///^S X=""O"";1////^S X=FBOBN;16////^S X=FBSTN;S:'$G(FBBSTAT) Y="""";19////1;"
^DIE(1030,0)="FBAA TRAV IFCAP^2940920.1514^^161.7^705^^2940921"
^DIE(1030,"DR",1,161.7)="3////^S X=DT;4////^S X=DUZ;2///^S X=""B2"";11///^S X=""O"";1////^S X=FBOBN;16////^S X=FBSTN;S:'$G(FBBSTAT) Y="""";19////1;"
^DIE(1031,0)="FBAA EDIT SCHEDULE^2940908.0902^^163.99^1555^^2950125"
^DIE(1031,"DR",1,163.99)="1;"
^DIE(1031,"DR",2,163.991)=".01;4;5///^S X=DT;S $P(^FBAA(163.99,DA(1),""FY"",DA,0),U,7,8)="""";"
^DIE(1032,0)="FBNH ENTER 7078^2900307.0851^^162.4^^^2950109"
^DIE(1032,"DIAB",6,0,162.4,0)="5;""ADMITTING AUTHORITY"""
^DIE(1032,"DR",1,162.4)=".5////^S X=7;1////^S X=FBVEN;2////^S X=DFN;3////^S X=FBBEGDT;4////^S X=FBENDDT;5ADMITTING AUTHORITY~;10////^S X=DT;8////^S X=DUZ;6////^S X=FBDEFP;9////^S X=""C"";"
^DIE(1033,0)="FBNH ENTER AUTHORIZATION^2930326.1315^^161^^^^"
^DIE(1033,"DR",1,161)="1;"
^DIE(1033,"DR",2,161.01)=".02////^S X=FBENDDT;.03////^S X=7;S FBTYPE=7;100////^S X=DUZ;1////^S X=""YES"";.04;.07;.021;.08;S:X="""" Y="""";.085;S:X="""" Y="""";.086;"
^DIE(1034,0)="FB CH OPEN BATCH^2940921.1133^^161.7^705^^2941219"
^DIE(1034,"DR",1,161.7)="S:'$D(FBSTN) FBSTN="""";4////^S X=DUZ;11////^S X=""O"";2////^S X=""B9"";3////^S X=DT;1////^S X=FBOBN;16////^S X=FBSTN;17////^S X=""Y"";S:'$G(FBBSTAT) Y="""";19////1;18////Y;"
^DIE(1035,0)="FBNH EDIT AUTHORIZATION^2930326.1314^^161^^^^"
^DIE(1035,"DR",1,161)="1;S FBNEW=^(0);"
^DIE(1035,"DR",2,161.01)="S FBOLD=^(0);.01;.02;.04;.065;.07;.021;.08;S:X="""" Y=101;.085;S:X="""" Y=101;.086;101;"
^DIE(1036,0)="FBNH EDIT PAYMENT^3030708.1638^^162.5^^^3030708"
^DIE(1036,"DIAB",3,0,162.5,0)="1;""(whichever is later)"""
^DIE(1036,"DIAB",4,0,162.5,4)="20;REQ"
^DIE(1036,"DIAB",5,0,162.5,4)="21;REQ"
^DIE(1036,"DIAB",6,0,162.5,4)="22;REQ"
^DIE(1036,"DIAB",7,0,162.5,4)="23;REQ"
^DIE(1036,"DR",1,162.5)="@1;W !!,""Enter Date Correct Invoice Received or Last Date of Service"";1(whichever is later)~;I $P(^FBAAI(DA,0),U,7)>X W !?4,""Invoice date cannot be before Treatment To Date."",! S Y=""@1"";46;55;S FBX=$$FPPSC^FBUTL5(1,FBFPPSC);"
^DIE(1036,"DR",1,162.5,1)="S:FBX=-1 Y=""@11"";S:FBX="""" Y=""@10"";56///^S X=FBX;S FBFPPSC=X;S FBX=$$FPPSL^FBUTL5(FBFPPSL,1,1);57///^S X=FBX;S FBFPPSL=X;S Y=""@11"";@10;56///@;S FBFPPSC="""";57///@;S FBFPPSL="""";@11;2;3;5;6;"
^DIE(1036,"DR",1,162.5,2)="I $P(^FBAAI(DA,0),U,6)>X W !,*7,""To date cannot be before from date."",! S Y=5;54;@12;S FBHAC=$P(^FBAAI(DA,0),U,8);7;S FBAC=X;S FBHAP=$P(^FBAAI(DA,0),U,9);8;S FBAP=X;"
^DIE(1036,"DR",1,162.5,3)="I FBAP>FBAC S $P(^FBAAI(DA,0),U,9)=FBHAP,$P(^(0),U,8)=FBHAC W !,*7,""Amount Paid cannot be greater than the Amount Claimed"" S Y=""@12"";S FBBAL=FBAC-FBAP;Q;K FBADJD;M FBADJD=FBADJ;S FBX=$$ADJ^FBUTL2(FBAC-FBAP,.FBADJ,1,,.FBADJD,1);"
^DIE(1036,"DR",1,162.5,4)="K FBADJD;12////^S X=""V"";S DIE(""NO^"")=""OUTOK"";20R~;21R~;22R~;23R~;K FBRRMKD;M FBRRMKD=FBRRMK;S FBX=$$RR^FBUTL4(.FBRRMK,2,,.FBRRMKD);K FBRRMKD;"
^DIE(1037,0)="FBCH EDIT 7078^2931012.1418^^162.4^705^^2931012"
^DIE(1037,"DIAB",4,0,162.4,0)="5;""ADMITTING AUTHORITY"""
^DIE(1037,"DR",1,162.4)="4;S FBTODT=X;4.5;5ADMITTING AUTHORITY~;6;7;S:'FBTODT Y=""@12"";12///^S X=""@"";9////^S X=""C"";S Y=""@99"";@12;12;9////^S X=""I"";@99;"
^DIE(1038,0)="FBCH ENTER ROC^2930819.1241^^161.5^705^^2941219"
^DIE(1038,"DR",1,161.5)="1////^S X=FBVD;2////^S X=DFN;3////^S X=FBDATE;4////^S X=FBADDT;5;6///^S X=FBPER;6.5:11;12////^S X=FBPHY;13////^S X=FBCHTEL;14///^S X=FBDIAG;16.5;S:X="""" Y=16;S:X=""N"" Y=16;15;16;18;19////^S X=FBDOA;"
^DIE(1039,0)="FBCH ADD ROC^2900817.0903^^161.5^^^2941219"
^DIE(1039,"DR",1,161.5)="17;"
^DIE(1039,"DR",2,161.517)=".01;2////^S X=DUZ;1;S FBDA(1)=DA;"
^DIE(1040,0)="FBCH EDIT ROC^2930818.1957^^161.5^10116^^2941219"
^DIE(1040,"DR",1,161.5)="5;6.5:11;I $D(FBCHVEN) S $P(^FBAA(161.5,DA,0),U,13)=FBCHVEN;I 1;12;S $P(^FBAA(162.2,DA,0),U,7)=X;13;S $P(^FBAA(162.2,DA,0),U,18)=X;16.5;S:X'=""Y"" Y=""@1"";15;S Y=""@2"";@1;15///@;@2;16;18;17;"
^DIE(1040,"DR",2,161.517)=".01;1;2////^S X=DUZ;"
^DIE(1041,0)="FBCH REOPEN REQUEST^2920908.1018^^162.2^705^^2941219"
^DIE(1041,"%D",0)="^^1^1^2931012^"
^DIE(1041,"%D",1,0)="Reopen CH request/notification"
^DIE(1041,"DR",1,162.2)="I '$D(FB1),'FB1 S Y="""";S FB2=$P(^FBAA(162.2,DA,0),U,16);I FB1=2 S Y=11;8///@;9///@;10///@;11///@;14///@;12///@;13///@;I FB2'=4 S Y=100;15///@;100///^S X=FB1;K FB2;"
^DIE(1042,0)="FBNH ENTER CONTRACT^2931007.1236^^161.21^705^^2950124"
^DIE(1042,"%D",0)="^^1^1^2931012^^"
^DIE(1042,"%D",1,0)="Enter Contract Nursing Home contract information"
^DIE(1042,"DR",1,161.21)="S:'$G(FBVIEN) Y="""";.01;.04////^S X=FBVIEN;.02;S FBEXDT=$P(^FBAA(161.21,DA,0),U,3);.03;S FBEXNDT=X;I $P(^FBAA(161.21,DA,0),U,2)>$P(^(0),U,3) W !,*7,""Expiration Date must be after the Effective Date."",! S Y=.02;"
^DIE(1043,0)="FB UNAUTHORIZED ENTER^3030625.1826^^162.7^^^3030911"
^DIE(1043,"%D",0)="^^1^1^2931012^^"
^DIE(1043,"%D",1,0)="Enter unauthorized claim"
^DIE(1043,"DIAB",1,1,162.715,0)="ALL"
^DIE(1043,"DIAB",4,0,162.7,3)="6;REQ"
^DIE(1043,"DIAB",5,0,162.7,4)="12//^S X=FBX;REQ"
^DIE(1043,"DIAB",6,0,162.7,3)="9;T;DUP"
^DIE(1043,"DIAB",7,0,162.7,4)="13//^S X=$S(FBDISP=1:FBTTO,1:"""");REQ"
^DIE(1043,"DR",1,162.7)="S:'$D(FBVET)!('$D(FBVEN))!('$D(FBMASTER))!('$D(FBORDER))!('$D(FBTFROM))!('$D(FBTTO))!('$D(FBOK))!('$D(FBPR))!('$D(FBDA))!('$D(FBUC))!('$D(FBINENT)) Y=""@999"";2////^S X=FBVET;S:'FBVEN&(FBINENT) Y=""@51"";1////^S X=FBVEN;@51;"
^DIE(1043,"DR",1,162.7,1)=".5////^S X=FBPR;S:$G(FBFPPSC)="""" Y=""@513"";32///^S X=FBFPPSC;@513;S:FB1725'=1 Y=""@515"";31////^S X=FB1725;@515;3///^S X=FBTFROM;S:'FBTTO&(FBINENT) Y=""@52"";4///^S X=FBTTO;@52;24////^S X=$$STATUS^FBUCUTL(FBORDER);20////^S X=FBMASTER;"
^DIE(1043,"DR",1,162.7,2)="27////^S X=DUZ;28///^S X=DT;S:'FBOK Y=""@1"";7///^S X=DT;@1;S:'FBVEN&(FBINENT) Y=""@53"";23;@53;.01;W:$$DTC^FBUCUTL(X,FBTTO)>90&FB1725 !!,""Warning: Claim > 90 days"",!;S:FBPR=7 FBX=3,Y=""@4"";"
^DIE(1043,"DR",1,162.7,3)="S:$$DTC^FBUCUTL(DT,$S(FBPR=6!(FBPR=7):DT,1:FBTFROM))>730&'FB1725 FBX=6,Y=""@4"";S:$P(FBUC,U,7) Y=""@999"";5;6R~;8;9d~T~;S:'FBOK!($D(^FBAA(162.8,""ACD"",FBDA))) Y=""@99"";10;S FBDISP=X;10.5;S:FBDISP FBORDER=40;"
^DIE(1043,"DR",1,162.7,4)="S Y=$S(FBDISP=1!(FBDISP=4):""@2"",FBDISP=2:""@3"",1:""@99"");@2;S FBZDAYS=$$CDTC^FBUCUTL(+$G(^FB583(DA,0)),-731);S FBX=$S(FBTTO>FBZDAYS&(FBTFROM<FBZDAYS):FBZDAYS,1:FBTFROM);12R~//^S X=FBX;K FBX,FBZDAYS;13R~//^S X=$S(FBDISP=1:FBTTO,1:"""");"
^DIE(1043,"DR",1,162.7,5)="S Y=""@99"";@3;15;S Y=""@99"";@4;D UNTIME^FBUCUTL(FBX);10////^S X=2;D DISAP^FBUCUTL(DA,FBX);S FBORDER=40;@99;S:FBORDER'=40 Y=""@999"";24////^S X=$$STATUS^FBUCUTL(FBORDER);@999;K FBDISP,FBX;"
^DIE(1043,"DR",2,162.715)=".01"
^DIE(1044,0)="FB UNAUTHORIZED PENDING^2930323.191^@^162.8^10116^@^2940811"
^DIE(1044,"%D",0)="^^1^1^2931012^"
^DIE(1044,"%D",1,0)="Enter the appropriate information on pending unauthorized claim"
^DIE(1044,"DR",1,162.8)="I '$D(FBDA)!('$D(FBPEND))!('$D(FBARY))!('$D(FBOTHER)) S Y=""@99"";.02////^S X=FBDA;.03////^S X=FBPEND;I FBOTHER']"""" S Y=""@1"";.04///^S X=FBOTHER;@1;.07////^S X=DUZ;@99;"
^DIE(1045,0)="FBAA VENDOR MRA^2930816.1353^^161.25^10116^^2950118"
^DIE(1045,"%D",0)="^^1^1^2931012^^"
^DIE(1045,"%D",1,0)="Create a vendor MRA to send to Austin"
^DIE(1045,"DR",1,161.25)="S:'$D(FBTOV)!('$D(FBT)) Y="""";S:'$D(FEEO) FEEO="""";S:FBT=""C""&('$D(FBIEN1)) Y="""";4////@;S:FBT'=""C"" Y=""@43"";5////^S X=FBIEN1;@43;S:FBTOV'=""P"" Y=2;1////^S X=FBT;S Y=$S(FEEO="""":""@99"",FEEO=""Y"":3,1:""@99"");2////^S X=FBT;"
^DIE(1045,"DR",1,161.25,1)="S Y=$S(FEEO="""":""@99"",FEEO=""Y"":3,1:""@99"");3////^S X=FEEO;S Y="""";@99;3////@;"
^DIE(1046,0)="FB UNAUTHORIZED UPDATE^2931012.1241^@^162.7^10116^@^2950130"
^DIE(1046,"%D",0)="^^1^1^2931012^^^"
^DIE(1046,"%D",1,0)="Update certain unauthorized claims fields upon completion of enter/edit"
^DIE(1046,"DR",1,162.7)="S:'$D(FBSTATUS)!('$D(FBEXP))!('$D(FBORIG))!('$D(FBVALID))!('$D(FBLET))!('$D(FBDISPDT))!('$D(DT)) Y=""@99"";S:FBEXP=0 Y=""@1"";S:FBEXP'=""@"" Y=""@40"";26///@;S Y=""@1"";@40;26///^S X=FBEXP;@1;S:FBORIG=0 Y=""@2"";S:FBORIG'=""@"" Y=""@41"";22///@;"
^DIE(1046,"DR",1,162.7,1)="S Y=""@2"";@41;22///^S X=FBORIG;@2;S:FBVALID=0 Y=""@3"";S:FBVALID'=""@"" Y=""@42"";7///@;S Y=""@3"";@42;7///^S X=FBVALID;@3;S:FBLET=0 Y=""@4"";S:FBLET'=""@"" Y=""@43"";19///@;S Y=""@4"";@43;19///^S X=FBLET;@4;S:FBDISPDT=0 Y=""@5"";"
^DIE(1046,"DR",1,162.7,2)="S:FBDISPDT'=""@"" Y=""@44"";11///@;S Y=""@5"";@44;11///^S X=FBDISPDT;@5;S:'FBSTATUS Y=""@99"";S:FBSTATUS'=""@"" Y=""@45"";24///@;S Y=25;@45;24////^S X=FBSTATUS;25///^S X=DT;@99;"
^DIE(1047,0)="FB UNAUTHORIZED UPDATE^3010621.0852^^161^^^3010719"
^DIE(1047,"%D",0)="^^1^1^2931012^"
^DIE(1047,"%D",1,0)="Enter authorization based on discharge type of unauthorized claim"
^DIE(1047,"DIAB",5,1,161.01,2)=".096;REQ"
^DIE(1047,"DIAB",6,1,161.01,2)=".097;REQ"
^DIE(1047,"DR",1,161)="S:'$D(FBIEN)!('$D(FBDA))!('$D(FBV))!('$D(FBDCHG))!('$D(FBUCA)) Y=""@99"";1///^S X=""`""_+FBIEN;@99;"
^DIE(1047,"DR",2,161.01)="W !,""Entering authorization..."",!;S:'+FBDCHG Y=""@1"";.06////^S X=+FBDCHG;@1;.02///^S X=$P(FBUCA,U,14);.03////^S X=$P(FBUCA,U,2);.04////^S X=$P(FBUCA,U,3);.055////^S X=FBV;.065///^S X=$P(FBUCA,U,10);"
^DIE(1047,"DR",2,161.01,1)=".07////^S X=$S(+$P(FBUCA,U,2)=6!(+$P(FBUCA,U,2)=7):$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(39),1:$$POV^FBAAUTL3(31)),1:$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(52),1:$$POV^FBAAUTL3(""02"")));.08///^S X=$G(^FB583(FBDA,""DX""));.095////^S X=1;"
^DIE(1047,"DR",2,161.01,2)="1////^S X=""N"";100////^S X=DUZ;101////^S X=$P(FBUCA,U,7);W !?3,""No: "",FBDA,?15,""Treatment From: "",$$DATX^FBAAUTL($P(FBUCA,U,5)) W:$P(FBUCA,U,6) ?40,""Treatment To: "",$$DATX^FBAAUTL($P(FBUCA,U,6));.096R~;.097R~;"
^DIE(1048,0)="FB UNAUTHORIZED EDIT^3030626.1133^@^162.7^^@^3030909"
^DIE(1048,"%D",0)="^^1^1^2931012^^"
^DIE(1048,"%D",1,0)="Modify/reopen an unauthorized claim"
^DIE(1048,"DIAB",1,0,162.7,6)="13;REQ"
^DIE(1048,"DIAB",1,1,162.715,0)="ALL"
^DIE(1048,"DIAB",2,0,162.7,4)="12;REQ"
^DIE(1048,"DR",1,162.7)="S:'$$EDOK^FBUCUTL3(DA,1) Y=""@89"";S:'$D(FBUCP)!('$D(FBACT)) Y=""@99"";S DIE(""NO^"")=""BACKOUTOK"";S:FBACT'=""REO"" Y=.01;21///^S X=DT;.01;S Y=$S(FBACT'=""REO"":""@51"",$$PAY^FBUCUTL(DA,""FB583(""):""@55"",1:""@51"");@51;.5;"
^DIE(1048,"DR",1,162.7,1)="S FBX=$P($G(^FB583(DA,5)),U);S FBX=$$FPPSC^FBUTL5(1,FBX);S:FBX=-1 Y=0;S:FBX="""" Y=""@514"";32///^S X=FBX;S Y=""@516"";@514;32///@;@516;K FBX;31;1;S:FBACT=""REO"" Y=""@53"";2;@53;23;S DIE(""NO^"")=""BACK"";3;4;5;6;8;9;@55;S DIE(""NO^"")=""BACK"";"
^DIE(1048,"DR",1,162.7,2)="S:$$ORDER^FBUCUTL(+$P(FBUCP,U,24))=5 Y=""@99"";S FBDISP(0)=$G(^FB583(DA,0)),FBDISP(""FRTO"")=$P(FBDISP(0),U,5,6),FBDISP(""FR"")=$P(FBDISP(""FRTO""),U),FBDISP(""TO"")=$P(FBDISP(""FRTO""),U,2);10;S FBDISP=X;"
^DIE(1048,"DR",1,162.7,3)="S Y=$S(FBDISP="""":""@99"",'(FBDISP=1!(FBDISP=4)):""@1"",1:""@10"");@10;10.5;S FBZDAYS=$$CDTC^FBUCUTL($P(FBDISP(0),U),-731);S FBX=$S(FBDISP(""TO"")>FBZDAYS&(FBDISP(""FR"")<FBZDAYS):FBZDAYS,1:FBDISP(""FR""));"
^DIE(1048,"DR",1,162.7,4)="12///^S X=$S($P(FBUCP,U,13)&($P(FBUCP,U,13)'>FBDISP(""FR"")):$P(FBUCP,U,13),1:FBX);12R~;K FBX,FBZDAYS;S Y=$S('$P(FBUCP,U,14):""@13"",FBDISP=4&(FBDISP'=$P(FBUCP,U,11)):""@12"",FBDISP=4:""@13"",1:""@11"");@11;"
^DIE(1048,"DR",1,162.7,5)="13///^S X=$S($P(FBUCP,U,14)&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),1:FBDISP(""TO""));S Y=""@13"";@12;13///@;@13;13///^S X=$S(FBDISP=1&($P(FBUCP,U,14))&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),FBDISP=1:FBDISP(""TO""),1:"""");"
^DIE(1048,"DR",1,162.7,6)="13R~;@89;S Y=""@99"";@1;10.5;15;12///@;13///@;14///@;@99;K FBDISP,DIE(""NO^"");"
^DIE(1048,"DR",2,162.715)=".01"
^DIE(1049,0)="FB UNAUTHORIZED APPEAL^3011115.1654^@^162.7^^@^3011130"
^DIE(1049,"%D",0)="^^1^1^2931012^"
^DIE(1049,"%D",1,0)="Initiate appeal of unauthorized claim"
^DIE(1049,"DIAB",1,1,162.715,0)="ALL"
^DIE(1049,"DIAB",2,0,162.7,0)="50;""T"""
^DIE(1049,"DIAB",2,0,162.7,4)="13;REQ"
^DIE(1049,"DIAB",3,0,162.7,2)="12;REQ"
^DIE(1049,"DIAB",6,0,162.7,0)="51;""T"""
^DIE(1049,"DIAB",12,0,162.7,0)="10;REQ"
^DIE(1049,"DR",1,162.7)="S:'$D(FBUCP) Y=""@99"";50T~;S:X']"""" Y=""@99"";S FBDT=X;S:+$P(FBUCP,U,26)&(FBDT>+$P(FBUCP,U,26)) FBX=6,Y=""@4"";51T~;S:X']"""" Y=""@99"";52;S:X']"""" Y=""@99"";53;S:X']"""" Y=""@99"";10R~;S FBDISP=X;"
^DIE(1049,"DR",1,162.7,1)="S FBDISP(""FR"")=$P(FBUCP,U,5),FBDISP(""TO"")=$P(FBUCP,U,6);S Y=$S(FBDISP="""":""@99"",'(FBDISP=1!(FBDISP=4)):""@1"",1:""@10"");@10;10.6;S FBZDAYS=$$CDTC^FBUCUTL($P(FBUCP,U),-731);"
^DIE(1049,"DR",1,162.7,2)="S FBX=$S(FBDISP(""TO"")>FBZDAYS&(FBDISP(""FR"")<FBZDAYS):FBZDAYS,1:FBDISP(""FR""));12///^S X=$S($P(FBUCP,U,13)&($P(FBUCP,U,13)'>FBDISP(""FR"")):$P(FBUCP,U,13),1:FBX);12R~;K FBX,FBZDAYS;"
^DIE(1049,"DR",1,162.7,3)="S Y=$S('$P(FBUCP,U,14):""@13"",FBDISP=4&(FBDISP'=$P(FBUCP,U,11)):""@12"",FBDISP=4:""@13"",1:""@11"");@11;13///^S X=$S($P(FBUCP,U,14)&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),1:FBDISP(""TO""));S Y=""@13"";@12;13///@;@13;"
^DIE(1049,"DR",1,162.7,4)="13///^S X=$S(FBDISP=1&($P(FBUCP,U,14))&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),FBDISP=1:FBDISP(""TO""),1:"""");13R~;S Y=""@99"";@1;10.6;15;S:FBDISP=4 Y=""@99"";12///@;13///@;14///@;S Y=""@99"";@4;D UNTIME^FBUCUTL(FBX);10////^S X=2;"
^DIE(1049,"DR",1,162.7,5)="D DISAP^FBUCUTL(DA,FBX);@99;K FBDISP,FBDT,FBX;"
^DIE(1049,"DR",2,162.715)=".01"
^DIE(1050,0)="FB UNAUTHORIZED APPEAL EDIT^3011115.1653^@^162.7^^@^3011115"
^DIE(1050,"%D",0)="^^1^1^2931012^"
^DIE(1050,"%D",1,0)="Edit unauthorized claim"
^DIE(1050,"DIAB",1,0,162.7,5)="13;REQ"
^DIE(1050,"DIAB",1,1,162.715,0)="ALL"
^DIE(1050,"DIAB",2,0,162.7,0)="50;""T"""
^DIE(1050,"DIAB",2,0,162.7,3)="12;REQ"
^DIE(1050,"DIAB",4,0,162.7,0)="51;""T"""
^DIE(1050,"DIAB",6,0,162.7,1)="10;REQ"
^DIE(1050,"DR",1,162.7)="S:'$D(FBUCP)!('$D(FBUCPA)) Y=""@99"";50T~;S:X']"""" Y=$S($P(FBUCPA,U,4):""@96"",$P(FBUCPA,U,3):""@97"",$P(FBUCPA,U,2):""@98"",1:""@99"");51T~;S:X']"""" Y=$S($P(FBUCPA,U,4):""@96"",$P(FBUCPA,U,3):""@97"",1:""@99"");52;"
^DIE(1050,"DR",1,162.7,1)="S:X']"""" Y=$S($P(FBUCPA,U,4):""@96"",1:""@99"");S FBDT=X S:+$P(FBUCP,U,26)&(FBDT>+$P(FBUCP,U,26)) FBX=6,Y=""@4"";53;S:X']"""" Y=""@99"";S FBDISP(""FR"")=$P(FBUCP,U,5),FBDISP(""TO"")=$P(FBUCP,U,6);10R~;"
^DIE(1050,"DR",1,162.7,2)="S FBDISP=X S Y=$S(FBDISP="""":""@99"",'(FBDISP=1!(FBDISP=4)):""@1"",1:""@10"");@10;10.6;S FBZDAYS=$$CDTC^FBUCUTL($P(FBUCP,U),-731);S FBX=$S(FBDISP(""TO"")>FBZDAYS&(FBDISP(""FR"")<FBZDAYS):FBZDAYS,1:FBDISP(""FR""));"
^DIE(1050,"DR",1,162.7,3)="12///^S X=$S($P(FBUCP,U,13)&($P(FBUCP,U,13)'>FBDISP(""FR"")):$P(FBUCP,U,13),1:FBX);12R~;K FBX,FBZDAYS;S Y=$S('$P(FBUCP,U,14):""@13"",FBDISP=4&(FBDISP'=$P(FBUCP,U,11)):""@12"",FBDISP=4:""@13"",1:""@11"");@11;"
^DIE(1050,"DR",1,162.7,4)="13///^S X=$S($P(FBUCP,U,14)&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),1:FBDISP(""TO""));S Y=""@13"";@12;13///@;@13;13///^S X=$S(FBDISP=1&($P(FBUCP,U,14))&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),FBDISP=1:FBDISP(""TO""),1:"""");"
^DIE(1050,"DR",1,162.7,5)="13R~;S Y=""@99"";@1;10.6;15;S:FBDISP=4 Y=""@99"";12///@;13///@;14///@;S Y=""@99"";@4;D UNTIME^FBUCUTL(FBX);10////^S X=2;D DISAP^FBUCUTL(DA,FBX);S Y=""@99"";@96;53///@;@97;52///@;@98;51///@;@99;K FBDISP,FBDT,FBX;"
^DIE(1050,"DR",2,162.715)=".01"
^DIE(1051,0)="FB UNAUTHORIZED COVA APPEAL^3011115.1651^@^162.7^^@^3011115"
^DIE(1051,"%D",0)="^^1^1^2931012^"
^DIE(1051,"%D",1,0)="COVA appeal enter/edit"
^DIE(1051,"DIAB",1,1,162.715,0)="ALL"
^DIE(1051,"DIAB",2,0,162.7,4)="13;REQ"
^DIE(1051,"DIAB",3,0,162.7,2)="12;REQ"
^DIE(1051,"DR",1,162.7)="S:'$D(FBUCP)!('$D(FBUCPA)) Y=""@99"";S FBO=$$STATUS^FBUCUTL($P(FBUCP,U,24));54;S Y=$S(X']""""&($P(FBUCPA,U,6)):""@98"",X="""":Y=""@99"",1:""@9"");@9;S FBDT=X S:+$P(FBUCP,U,26)&(+$P(FBUCP,U,26)) FBX=6,Y=""@4"";55;S:X']"""" Y=""@99"";"
^DIE(1051,"DR",1,162.7,1)="S FBDISP(""FR"")=$P(FBUCP,U,5),FBDISP(""TO"")=$P(FBUCP,U,6);10;S FBDISP=X,Y=$S(FBDISP="""":""@99"",'(FBDISP=1!(FBDISP=4)):""@1"",1:""@10"");@10;10.7;S FBZDAYS=$$CDTC^FBUCUTL($P(FBUCP,U),-731);"
^DIE(1051,"DR",1,162.7,2)="S FBX=$S(FBDISP(""TO"")>FBZDAYS&(FBDISP(""FR"")<FBZDAYS):FBZDAYS,1:FBDISP(""FR""));12///^S X=$S($P(FBUCP,U,13)&($P(FBUCP,U,13)'>FBDISP(""FR"")):$P(FBUCP,U,13),1:FBX);12R~;K FBX,FBZDAYS;"
^DIE(1051,"DR",1,162.7,3)="S Y=$S('$P(FBUCP,U,14):""@13"",FBDISP=4&(FBDISP'=$P(FBUCP,U,11)):""@12"",FBDISP=4:""@13"",1:""@11"");@11;13///^S X=$S($P(FBUCP,U,14)&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),1:FBDISP(""TO""));S Y=""@13"";@12;13///@;@13;"
^DIE(1051,"DR",1,162.7,4)="13///^S X=$S(FBDISP=1&($P(FBUCP,U,14))&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),FBDISP=1:FBDISP(""TO""),1:"""");13R~;S Y=""@99"";@1;10.7;15;S:FBDISP=4 Y=""@99"";12///@;13///@;14///@;S Y=""@99"";@4;D UNTIME^FBUCUTL(FBX);10////^S X=2;"
^DIE(1051,"DR",1,162.7,5)="D DISAP^FBUCUTL(DA,FBX);S Y=""@99"";@98;55///@;@99;K FBDISP,FBDT,FBO,FBX;"
^DIE(1051,"DR",2,162.715)=".01"
^DIE(1052,0)="FB UNAUTHORIZED DISPOSITION^3011115.164^@^162.7^^@^3011213"
^DIE(1052,"%D",0)="^^1^1^2931012^"
^DIE(1052,"%D",1,0)="Disposition an unauthorized claim"
^DIE(1052,"DIAB",1,1,162.715,0)="ALL"
^DIE(1052,"DIAB",2,0,162.7,5)="13;REQ"
^DIE(1052,"DIAB",3,0,162.7,3)="12;REQ"
^DIE(1052,"DR",1,162.7)="S:'$$EDOK^FBUCUTL3(DA,1) Y=""@89"";S:'$D(FBUCP)!('$D(FBUCPA)) Y=""@99"";S FBO=$$ORDER^FBUCUTL($P(FBUCP,U,24));10;S FBDISP=X;S FBDISP(""FR"")=$P(FBUCP,U,5),FBDISP(""TO"")=$P(FBUCP,U,6);"
^DIE(1052,"DR",1,162.7,1)="S Y=$S(FBDISP']"""":""@109"",FBO=60:""@106"",FBO=80:""@107"",1:""@105"");@105;10.5;S Y=""@109"";@106;10.6;S Y=""@109"";@107;10.7;@109;"
^DIE(1052,"DR",1,162.7,2)="S Y=$S(FBDISP']""""&(FBO=90):""@94"",FBDISP']""""&(FBO=60):""@93"",FBDISP']"""":""@99"",'(FBDISP=1!(FBDISP=4)):""@2"",1:""@10"");@10;S FBZDAYS=$$CDTC^FBUCUTL($P(FBUCP,U),-731);"
^DIE(1052,"DR",1,162.7,3)="S FBX=$S(FBDISP(""TO"")>FBZDAYS&(FBDISP(""FR"")<FBZDAYS):FBZDAYS,1:FBDISP(""FR""));12///^S X=$S($P(FBUCP,U,13)&($P(FBUCP,U,13)'>FBDISP(""FR"")):$P(FBUCP,U,13),1:FBX);12R~;K FBX,FBZDAYS;"
^DIE(1052,"DR",1,162.7,4)="S Y=$S('$P(FBUCP,U,14):""@1"",FBDISP=4&(FBDISP'=$P(FBUCP,U,11)):""@12"",FBDISP=4:""@1"",1:""@11"");@11;13///^S X=$S($P(FBUCP,U,14)&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),1:FBDISP(""TO""));S Y=""@1"";@12;13///@;@1;"
^DIE(1052,"DR",1,162.7,5)="13///^S X=$S(FBDISP=1&($P(FBUCP,U,14))&($P(FBUCP,U,14)'>FBDISP(""TO"")):$P(FBUCP,U,14),FBDISP=1:FBDISP(""TO""),1:"""");13R~;@89;S Y=""@3"";@2;15;12///@;13///@;14///@;@3;S Y=$S('$G(FBO):""@99"",FBO=60:""@5"",FBO=80:""@4"",1:""@99"");@4;"
^DIE(1052,"DR",1,162.7,6)="53///^S X=DT;S Y=""@99"";@5;55///^S X=DT;S Y=""@99"";@93;53///@;S Y=""@99"";@94;55///@;@99;K FBDISP,FBO;"
^DIE(1052,"DR",2,162.715)=".01"
^DIE(1053,0)="FB UNAUTHORIZED PREVIOUS^2930610.1417^@^162.7^10116^@^2930610"
^DIE(1053,"%D",0)="^^1^1^2931012^"
^DIE(1053,"%D",1,0)="Return previous values due to incomplete transaction"
^DIE(1053,"DR",1,162.7)="S:'$D(FBACT)!('$D(FBUCP))!('$D(FBUCPA))!('$D(FBUCA))!('$D(FBUCAA)) Y=""@99"";S:FBUCP=FBUCA&(FBUCPA=FBUCAA) Y=""@99"";S Y=$S(FBACT=""EDT""!(FBACT=""REO""):""@3"",FBACT=""APL""!(FBACT=""AED""):""@2"",FBACT=""DIS"":""@5"",FBACT=""BVA"":""@1"",1:""@99"");@1;"
^DIE(1053,"DR",1,162.7,1)="S FBX=$S($P(FBUCPA,U,5)]"""":$P(FBUCPA,U,5),1:""@"");54///^S X=FBX;S FBX=$S($P(FBUCPA,U,6)]"""":$P(FBUCPA,U,6),1:""@"");55///^S X=FBX;S:$P(FBUCAA,U,6) Y=""@5"";S Y=""@99"";@2;S FBX=$S($P(FBUCPA,U)]"""":$P(FBUCPA,U),1:""@"");50///^S X=FBX;"
^DIE(1053,"DR",1,162.7,2)="S FBX=$S($P(FBUCPA,U,2)]"""":$P(FBUCPA,U,2),1:""@"");51///^S X=FBX;S FBX=$S($P(FBUCPA,U,3)]"""":$P(FBUCPA,U,3),1:""@"");52///^S X=FBX;S FBX=$S($P(FBUCPA,U,4)]"""":$P(FBUCPA,U,4),1:""@"");53///^S X=FBX;S:$P(FBUCAA,U,4) Y=""@5"";S Y=""@99"";@3;"
^DIE(1053,"DR",1,162.7,3)="S FBX=$P(FBUCP,U);.01///^S X=FBX;S FBX=$S($P(FBUCP,U,2)]"""":$P(FBUCP,U,2),1:""@"");.5////^S X=FBX;S FBX=$S($P(FBUCP,U,3)]"""":$P(FBUCP,U,3),1:""@"");1////^S X=FBX;S FBX=$S($P(FBUCP,U,4)]"""":$P(FBUCP,U,4),1:""@"");2////^S X=FBX;"
^DIE(1053,"DR",1,162.7,4)="S FBX=$S($P(FBUCP,U,5)]"""":$P(FBUCP,U,5),1:""@"");3///^S X=FBX;S FBX=$S($P(FBUCP,U,6)]"""":$P(FBUCP,U,6),1:""@"");4///^S X=FBX;S:'$D(FBUCPDX) Y=""@4"";S FBX=$S(FBUCPDX]"""":FBUCPDX,1:""@"");5///^S X=FBX;@4;"
^DIE(1053,"DR",1,162.7,5)="S FBX=$S($P(FBUCP,U,7)]"""":$P(FBUCP,U,7),1:""@"");6////^S X=FBX;S FBX=$S($P(FBUCP,U,9)]"""":$P(FBUCP,U,9),1:""@"");8///^S X=FBX;S FBX=$S($P(FBUCP,U,10)]"""":$P(FBUCP,U,10),1:""@"");9///^S X=FBX;"
^DIE(1053,"DR",1,162.7,6)="S FBX=$S($P(FBUCP,U,21)]"""":$P(FBUCP,U,21),1:""@"");21///^S X=FBX;S FBX=$S($P(FBUCP,U,23)]"""":$P(FBUCP,U,23),1:""@"");23///^S X=FBX;@5;S:$P(FBUCP,U,11)=$P(FBUCA,U,11) Y=""@99"";S FBX=$S($P(FBUCP,U,11)]"""":$P(FBUCP,U,11),1:""@"");"
^DIE(1053,"DR",1,162.7,7)="10////^S X=FBX;S FBX=$S($P(FBUCP,U,13)]"""":$P(FBUCP,U,13),1:""@"");12///^S X=FBX;S FBX=$S($P(FBUCP,U,14)]"""":$P(FBUCP,U,14),1:""@"");13///^S X=FBX;S:$P(FBUCA,U,11)=1!($P(FBUCA,U,11)=4) Y=""@99"";D DELDAP^FBUCUTL3(DA);@99;K FBX;"
^DIE(1054,0)="FB UNAUTHORIZED LETTER UPDATE^3011129.1852^@^162.7^^@^3011207"
^DIE(1054,"%D",0)="^^1^1^2931012^^"
^DIE(1054,"%D",1,0)="Update unauthorized claim with information regarding letter (used if not sending letters with software)"
^DIE(1054,"DR",1,162.7)="S:'$D(FBEXP)!('$D(FBLET))!('$D(FBLETDT))!('$D(FBTAMT)) Y=""@99"";S:FBEXP=0 Y=""@1"";26///^S X=FBEXP;@1;S:FBTAMT'>0 Y=""@2"";14///^S X=FBTAMT;@2;S:FBLET=0 Y=""@99"";19///^S X=FBLET;S:FBLETDT=0 Y=""@99"";19.5///^S X=FBLETDT;@99;"
^DIE(1055,0)="FB VENDOR UPDATE^3060801.0812^^161.2^^^3061018"
^DIE(1055,"%D",0)="^^1^1^2931012^^"
^DIE(1055,"%D",1,0)="Update Austin vendor information"
^DIE(1055,"AB","^",.01)="2^FBCTV"
^DIE(1055,"AB","^",.01,"///")=""
^DIE(1055,"AB","^",.05)="9^FBCTV"
^DIE(1055,"AB","^",.05,"///")=""
^DIE(1055,"AB","^",1)="3^FBCTV"
^DIE(1055,"AB","^",1,"///")=""
^DIE(1055,"AB","^",2)="4^FBCTV"
^DIE(1055,"AB","^",2,"///")=""
^DIE(1055,"AB","^",2.5)="13^FBCTV"
^DIE(1055,"AB","^",2.5,"///")=""
^DIE(1055,"AB","^",3)="5^FBCTV"
^DIE(1055,"AB","^",3,"///")=""
^DIE(1055,"AB","^",4)="6^FBCTV"
^DIE(1055,"AB","^",4,"///")=""
^DIE(1055,"AB","^",5)="7^FBCTV"
^DIE(1055,"AB","^",5,"///")=""
^DIE(1055,"AB","^",5.18)="2^FBCTV3"
^DIE(1055,"AB","^",5.18,"///")=""
^DIE(1055,"AB","^",5.5)="12^FBCTV"
^DIE(1055,"AB","^",5.5,"///")=""
^DIE(1055,"AB","^",6)="8^FBCTV"
^DIE(1055,"AB","^",6,"///")=""
^DIE(1055,"AB","^",7)="10^FBCTV"
^DIE(1055,"AB","^",7,"///")=""
^DIE(1055,"AB","^",8)="11^FBCTV"
^DIE(1055,"AB","^",8,"///")=""
^DIE(1055,"AB","^",14)="5^FBCTV3"
^DIE(1055,"AB","^",14,"///")=""
^DIE(1055,"AB","^",22)="1^FBCTV3"
^DIE(1055,"AB","^",22,"///")=""
^DIE(1055,"AB","^",24)="6^FBCTV3"
^DIE(1055,"AB","^",24,"///")=""
^DIE(1055,"AB","^",30.01)="11^FBCTV3"
^DIE(1055,"AB","^",30.01,"///")=""
^DIE(1055,"AB","^",30.02)="13^FBCTV3"
^DIE(1055,"AB","^",30.02,"///")=""
^DIE(1055,"AB","^",30.03)="14^FBCTV3"
^DIE(1055,"AB","^",30.03,"///")=""
^DIE(1055,"AB","^",30.04)="15^FBCTV3"
^DIE(1055,"AB","^",30.04,"///")=""
^DIE(1055,"AB","^",30.05)="16^FBCTV3"
^DIE(1055,"AB","^",30.05,"///")=""
^DIE(1055,"AB","^",30.06)="17^FBCTV3"
^DIE(1055,"AB","^",30.06,"///")=""
^DIE(1055,"AB","^",41.01)="15^FBCTV"
^DIE(1055,"AB","^",41.01,"///")=""
^DIE(1055,"AB","^","@10")="3^FBCTV3"
^DIE(1055,"AB","^","@20")="8^FBCTV3"
^DIE(1055,"AB","^","@30")="12^FBCTV3"
^DIE(1055,"DR",1,161.2)="S:'$D(Z1) Y=""@10"";.01////^S X=$P(Z1,U);1////^S X=$P(Z1,U,2);2////^S X=$P(Z1,U,3);3////^S X=$P(Z1,U,4);4////^S X=$P(Z1,U,5);5////^S X=$P(Z1,U,6);6////^S X=$P(Z1,U,7);.05////^S X=$P(Z1,U,8);7////^S X=$P(Z1,U,9);8////^S X=$P(Z1,U,10);"
^DIE(1055,"DR",1,161.2,1)="5.5////^S X=$P(Z1,U,13);2.5////@;2.5////^S X=$P(Z1,U,14);41.01////^S X=Z6;Q;22////^S X=$P(Z1,U,17);5.18////^S X=$P(Z1,U,18);@10;S:'$D(Z3) Y=""@20"";14////^S X=$P(Z3,U,1);24////@;24////^S X=$P(Z3,U,10);@20;S:'$D(Z4) Y="""";"
^DIE(1055,"DR",1,161.2,2)="S:$G(FBTMPCK) Y=""@30"";30.01////^S X=$P(Z4,U);@30;30.02////^S X=$P(Z4,U,2);30.03////^S X=$P(Z4,U,3);30.04////^S X=$P(Z4,U,4);30.05////^S X=$P(Z4,U,5);30.06////^S X=$P(Z4,U,6);"
^DIE(1055,"ROU")="^FBCTV"
^DIE(1055,"ROUOLD")="FBCTV"
^DIE(1056,0)="FB ADD RX^3030708.1829^^162.1^^^3030827"
^DIE(1056,"%D",0)="^^1^1^2931012^"
^DIE(1056,"%D",1,0)="Add pharmacy prescription"
^DIE(1056,"DR",1,162.1)="S:'$D(FBDA)!('$D(DATEF))!('$D(DFN))!('$D(FBPSA))!('$D(FB7078))!('$D(FBASSOC))!('$D(FBAAPTC)) Y="""";K FBUP;4///^S X=""`""_+FBDA;@99;"
^DIE(1056,"DR",2,162.11)="S:$G(FBFPPSL)="""" Y=""@20"";36///^S X=FBFPPSL;@20;2///^S X=DATEF;4////^S X=DFN;25////^S X=FBPSA;S Y=$S($D(FBV583):""@1"",1:""@2"");@1;S:FBV583']"""" Y=""@3"";26////^S X=FBV583;S Y=""@3"";@2;S:FB7078']"""" Y=""@3"";26////^S X=FB7078;@3;"
^DIE(1056,"DR",2,162.11,1)="27///^S X=FBASSOC;16///^S X=FBAAPTC;3;S AC=X;1;1.4;1.5;1.6;8///^S X=1;S FBUP=1;"
^DIE(1057,0)="FB UNAUTHORIZED EDIT^3010719.151^^161^^^3010719"
^DIE(1057,"%D",0)="^^3^3^2931012^^^"
^DIE(1057,"%D",1,0)="If dispositioned claim has been reopened, this template is "
^DIE(1057,"%D",2,0)="used to keep the authorization information in synch with the unauthorized"
^DIE(1057,"%D",3,0)="claim"
^DIE(1057,"DIAB",2,1,161.01,1)=".06;REQ"
^DIE(1057,"DR",1,161)="S:'$D(FBIEN) Y=""@99"";1///^S X=""`""_+FBIEN;@99;"
^DIE(1057,"DR",2,161.01)="W !,""Editing authorization..."",!;.07////^S X=$S(+$P(FBUCA,U,2)=6!(+$P(FBUCA,U,2)=7):$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(39),1:$$POV^FBAAUTL3(31)),1:$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(52),1:$$POV^FBAAUTL3(""02"")));"
^DIE(1057,"DR",2,161.01,1)="S:$P(FBUCP,U,2)'=6 Y=""@1"";.06R~;@1;.096;.097;"
^DIE(1058,0)="FB UNAUTHORIZED UPDATE1^3010621.0854^^161^^^3010621"
^DIE(1058,"%D",0)="^^1^1^2931013^^"
^DIE(1058,"%D",1,0)="Update authorization based on changes to unauthorized claim"
^DIE(1058,"DR",1,161)="S:'$D(FBIEN)!('$D(FBDA))!('$D(FBV))!('$D(FBUCA)) Y=""@99"";1///^S X=""`""_+FBIEN;@99;"
^DIE(1058,"DR",2,161.01)="W !,""Updating authorization..."",!;.01///^S X=$P(FBUCA,U,13);.02///^S X=$P(FBUCA,U,14);.03////^S X=$P(FBUCA,U,2);.04////^S X=$P(FBUCA,U,3);.055////^S X=FBV;.065///^S X=$P(FBUCA,U,10);"
^DIE(1058,"DR",2,161.01,1)=".07////^S X=$S(+$P(FBUCA,U,2)=6!(+$P(FBUCA,U,2)=7):$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(39),1:$$POV^FBAAUTL3(31)),1:$S(+$P(FBUCA,U,28):$$POV^FBAAUTL3(52),1:$$POV^FBAAUTL3(""02"")));.08///^S X=$G(^FB583(FBDA,""DX""));.095////^S X=1;"
^DIE(1058,"DR",2,161.01,2)="1///^S X=""N"";"
^DIE(1059,0)="RA PROCEDURE EDIT^3040726.0931^^71^^^3050401"
^DIE(1059,"DIAB",1,0,71,9)="17;""DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED"""
^DIE(1059,"DIAB",1,1,71.01,0)="ALL"
^DIE(1059,"DIAB",1,1,71.0125,0)="ALL"
^DIE(1059,"DIAB",1,1,71.0135,0)="ALL"
^DIE(1059,"DIAB",1,1,71.04,0)="ALL"
^DIE(1059,"DIAB",1,1,71.0731,0)="ALL"
^DIE(1059,"DIAB",2,1,71.08,0)="6;T"
^DIE(1059,"DIAB",4,1,71.08,0)="5;T"
^DIE(1059,"DIAB",7,1,71.08,0)="2;T"
^DIE(1059,"DR",1,71)="S DIE(""NO^"")=""BACKOUTOK"";S:$P(^RAMIS(71,DA,0),U,8)=""Y"" Y=""@01"";.01;@01;12;S RAIMAG=$$IMAG^RASITE(+X);K RADIO;S:$P($G(^RA(79.2,+$P($G(^RAMIS(71,DA,0)),""^"",12),0)),""^"",5)=""Y"" RADIO="""";6//BROAD;S RAPTY=$E(X);K DIE(""NO^"");"
^DIE(1059,"DR",1,71,1)="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;"
^DIE(1059,"DR",1,71,2)="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;55;"
^DIE(1059,"DR",1,71,3)="S:'$D(RADIO) Y=""@50"";@20;W !!?3,""Reminder --"";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;"
^DIE(1059,"DR",1,71,4)="S:X'=1 Y=""@40"";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);"
^DIE(1059,"DR",1,71,5)="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"";"
^DIE(1059,"DR",1,71,6)="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"";50;@70;175;"
^DIE(1059,"DR",1,71,7)="S RAREM=""edit CPT for new records only RAPNM=proc. name"" K RAREM;S:'RANEW71 Y=""@15"";D CPT^RAMAINU(DA,RAPNM);@15;W:'RANEW71 !,""CPT CODE// ""_$P($$NAMCODE^RACPTMSC($P(^RAMIS(71,DA,0),U,9),DT),U)_"" (no editing)"";"
^DIE(1059,"DR",1,71,8)="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;S:RAPTY'=""P"" Y=""@290"";300;@290;500;S:'$O(^RAMIS(71,DA,""EDU"",0)) Y=""@300"";"
^DIE(1059,"DR",1,71,9)="17DISPLAY EDUCATIONAL DESCRIPTION WHEN ORDERED~;@300;100//^S X=$S(RAPTY=""P""&('$O(^RAMIS(71,DA,4,0))):DT,1:"""");@999;K RADIO,RAMIS,RAPTY,RAIMAG;"
^DIE(1059,"DR",2,71.01)=".01"
^DIE(1059,"DR",2,71.0125)=".01"
^DIE(1059,"DR",2,71.0135)=".01"
^DIE(1059,"DR",2,71.02)=".01;2;"
^DIE(1059,"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;"
^DIE(1059,"DR",2,71.04)=".01"
^DIE(1059,"DR",2,71.05)=".01;"
^DIE(1059,"DR",2,71.055)=".01;2;"
^DIE(1059,"DR",2,71.0731)=".01"
^DIE(1059,"DR",2,71.08)=".01;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);S:'$O(^RAMIS(71.6,RAROUTE,""SITE"",0)) Y=""@49"";"
^DIE(1059,"DR",2,71.08,1)="S:$P(^RAMIS(71.6,RAROUTE,0),U,3)=""Y"" Y=""@49"";4;S Y=""@55"";@49;4///@;@55;7;"
^DIE(1060,0)="RA PERSONNEL^2940624.0845^^200^^^2980313"
^DIE(1060,"%D",0)="^^2^2^2940607^^"
^DIE(1060,"%D",1,0)="This template is used to enter personnel into the radiology/nuclear"
^DIE(1060,"%D",2,0)="medicine package."
^DIE(1060,"DIAB",1,1,200.072,0)="ALL"
^DIE(1060,"DIAB",1,1,200.074,0)="ALL"
^DIE(1060,"DR",1,200)="72;74;73;I $D(^VA(200,""ARC"",""S"",DA)) S Y=""@1"";I $D(^VA(200,""ARC"",""R"",DA)) S Y=""@1"";S Y="""";@1;70;71;"
^DIE(1060,"DR",2,200.072)=".01"
^DIE(1060,"DR",2,200.074)=".01"
^DIE(1061,0)="RA STANDARD REPORT ENTRY^2850415^^74.1^^^2980105^"
^DIE(1061,"%D",0)="^^2^2^2940607^"
^DIE(1061,"%D",1,0)="This template is used to enter standard reports into the"
^DIE(1061,"%D",2,0)="system."
^DIE(1061,"DR",1,74.1)=".01;W !,""-------------------------------------------------------------------------------"";200;W !,""-------------------------------------------------------------------------------"";300;"
^DIE(1061,"DR",1,74.1,1)="W !,""-------------------------------------------------------------------------------"";"
^DIE(1062,0)="RA DIVISION PARAMETERS^3001017.1113^^79^^^3010620"
^DIE(1062,"%D",0)="^^2^2^2991001^^^"
^DIE(1062,"%D",1,0)="This template is used to input division parameters into the"
^DIE(1062,"%D",2,0)="radiology/nuclear medicine package."
^DIE(1062,"DIAB",1,1,79.01,0)="ALL"
^DIE(1062,"DR",1,79)="W !!,""Division-wide Order Entry Parameters:"",!,""------------------------------------"";.121//no;.119//no;75;W !!,""Exam Entry/Edit Parameters:"",!,""---------------------------"";.17//no;.19//no;.16//yes;.11//no;S:X=""N"" Y=""@10"";"
^DIE(1062,"DR",1,79,1)=".111//no;@10;.124;W !!,""Films Reporting Parameters:"",!,""---------------------------"";.112//no;.113//yes;.114//yes;.116//yes;.117////^S X=""Y"";.118//no;.122//no;.125//yes;.126;.127//no;.128//no//;"
^DIE(1062,"DR",1,79,2)="W !!,""Miscellaneous Division Parameters:"",!,""----------------------------------"";.12//no;.18//no;25;125;W !!,""HL7 Applications Associated with this Division:"",!,""-----------------------------------------------"";.129;"
^DIE(1062,"DR",1,79,3)="W !!,""Imaging Locations Associated with this Division:"",!,""------------------------------------------------"";50;W !!,""Division Parameters have been set!"",!;S Y="""";"
^DIE(1062,"DR",2,79.01)=".01"
^DIE(1062,"DR",2,79.02)=".01;"
^DIE(1063,0)="RA FLASH CARD EDIT^2850305^^78.2^^^2980105^"
^DIE(1063,"%D",0)="^^1^1^2940607^"
^DIE(1063,"%D",1,0)="This is the input template used to enter label formats."
^DIE(1063,"DR",1,78.2)=".01;50;2;K RATYPE;"
^DIE(1063,"DR",2,78.21)=".01;S RATYPE=X;2;3;S:$P(^RA(78.7,RATYPE,0),U,1)[""FREE"" Y=""@1"";4;S Y=""@2"";@1;5;@2;"
^DIE(1064,0)="RA LOCATION PARAMETERS^3030730.085^^79.1^^^3030805"
^DIE(1064,"%D",0)="^^2^2^2940607^"
^DIE(1064,"%D",1,0)="This input template is used for the entering of the imaging location"
^DIE(1064,"%D",2,0)="parameters."
^DIE(1064,"DIAB",1,1,79.1135,0)="ALL"
^DIE(1064,"DIAB",1,1,79.12,0)="ALL"
^DIE(1064,"DIAB",1,1,79.13,0)="ALL"
^DIE(1064,"DR",1,79.1)="I $D(^RA(79.1,DA,""DIV"")),$D(^RA(79,+^(""DIV""),.1)) S DIV=^(.1);S:$D(^RA(79.1,DA,0)) RAFLH=^(0),RAJAC=$P(RAFLH,U,5),RARPT=$P(RAFLH,U,10),RAREQPRT=$P(RAFLH,U,16),RAFLH=$P(RAFLH,U,3);"
^DIE(1064,"DR",1,79.1,1)="W !!,""Flash Card Parameters:"",!,""----------------------"";I $D(DIV),$P(DIV,U,2)=""Y"" W !?5,""As specified in the division parameters, one flash card will"",!?5,""be printed for each new registered exam."",! S Y=""@10"";2;@10;7;"
^DIE(1064,"DR",1,79.1,2)="I $D(RAFLH),RAFLH]"""" W !!,""The default flash card printer for this location is `"",$$DEV^RAUTL19(RAFLH),""'."" S Y=""@15"";W !!,""No default flash card printer has been assigned. Contact IRM."";@15;"
^DIE(1064,"DR",1,79.1,3)="W !!,""Jacket Label Parameters:"",!,""------------------------"";I $D(DIV),$P(DIV,U,8)=""N"" W !?5,""As specified in the division parameters, no jacket labels will"",!?5,""be printed automatically upon a patient visit."",! S Y=""@20"";4;@20;"
^DIE(1064,"DR",1,79.1,4)="11;I $D(RAJAC),RAJAC]"""" W !!,""The default jacket label printer for this location is `"",$$DEV^RAUTL19(RAJAC),""'."" S Y=""@25"";W !!,""No default jacket label printer has been assigned. Contact IRM."";@25;"
^DIE(1064,"DR",1,79.1,5)="W !!,""Exam Label Parameters:"",!,""----------------------"";8//1;9;W !!,""Exam label printer is always the same as the flash card printer."";W !!,""Order Entry Parameters:"",!,""----------------------"";"
^DIE(1064,"DR",1,79.1,6)="I $D(RAREQPRT),RAREQPRT]"""" W !!,""The default request printer for this location is `"",$$DEV^RAUTL19(RAREQPRT),""'."" S Y=""@30"";W !!,""No default request printer has been assigned. Contact IRM."";@30;"
^DIE(1064,"DR",1,79.1,7)="W !!,""Report Parameters:"",!,""------------------"";12;13;14//10;15//70;18;26;I $D(RARPT),RARPT]"""" W !!,""The default report printer for this location is `"",$$DEV^RAUTL19(RARPT),""'."" S Y=""@35"";"
^DIE(1064,"DR",1,79.1,8)="W !!,""No default report printer has been assigned. Contact IRM."";@35;W !!,""Cameras/Equip/Rooms Used by this Location:"",!,""------------------------------------------"";100;Q;W !!;"
^DIE(1064,"DR",1,79.1,9)="W !,""Default CPT Modifiers used by this Location:"",!,""--------------------------------------------"";D:$T(DISDCM^RACPTMSC)]"""" DISDCM^RACPTMSC;135;W !;N RALERT,RALINE;S RALERT=""Recipients of the 'Stat' Alert for this Location:"";"
^DIE(1064,"DR",1,79.1,10)="S $P(RALINE,""-"",($L(RALERT)+1))="""";W !!,RALERT,!,RALINE;150;W !!;I '$O(^RA(79.1,DA,""REC"",0)) S Y=""@40"";20;@40;17//no;19;6;21//0;22;"
^DIE(1064,"DR",2,79.1135)=".01"
^DIE(1064,"DR",2,79.12)=".01"
^DIE(1064,"DR",2,79.13)=".01"
^DIE(1065,0)="RA DIAGNOSTIC BY CASE^3000831.1059^^70^^^3000929"
^DIE(1065,"%D",0)="^^1^1^2940607^^"
^DIE(1065,"%D",1,0)="This template is used for the Diagnostic Code Entry By Case option."
^DIE(1065,"DIAB",1,3,70.09,0)="ALL"
^DIE(1065,"DIAB",1,3,70.11,0)="ALL"
^DIE(1065,"DR",1,70)="I '$D(RADTE)!('$D(RACN))!('$D(RAMDV)) W !?3,*7,""You must have the variables for 'Case Number','Rad/Nuc Med Division' and 'Exam Date' defined to continue!"" S Y=""@999"";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";2///^S X=RADTE;@999;"
^DIE(1065,"DR",1,70,1)="K RATCXX,RADTE,RACN,RAPOP;"
^DIE(1065,"DR",2,70.02)="50///^S X=RACN;"
^DIE(1065,"DR",3,70.03)="13;I X="""" S Y=12;13.1;12;I X="""" S Y=15;70;@15;15;I X="""",$P(RAMDV,""^"",28) W !,""     Primary Interpreting Staff required for this division"",*7,! S Y=""@15"";I X="""" S Y=100;60;100///^S X=""""""NOW"""""";"
^DIE(1065,"DR",4,70.07)="2////^S X=""D"";3////^S X=RADUZ;S RATCXX=$$GETTCOM^RAUTL11(RADFN,RADTI,RACNI);4//^S X=RATCXX;S:RATCXX'=X Y=""@25"";4///@;K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""L"",DA,""TCOM"");@25;"
^DIE(1065,"DR",4,70.09)=".01"
^DIE(1065,"DR",4,70.11)=".01"
^DIE(1065,"DR",4,70.14)=".01;"
^DIE(1066,0)="RA OUTSIDE ADD^2910626.1315^^70^^^2971201^"
^DIE(1066,"%D",0)="^^1^1^2940607^^"
^DIE(1066,"%D",1,0)="This template is used for entering outside films for tracking purposes."
^DIE(1066,"DR",1,70)="I $D(^DPT(DA,.1)),^(.1)]"""" W !?3,""Patient is currently an inpatient."";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@99"";50;@99;K RAPOP,RADUZ;"
^DIE(1066,"DR",2,70.06)=".01;100///^S X=""""""NOW"""""";2;4;20;"
^DIE(1066,"DR",3,70.08)="2///^S X=""A"";3////^S X=RADUZ;"
^DIE(1067,0)="RA OUTSIDE EDIT^3021220.1159^^70^^^3030121"
^DIE(1067,"%D",0)="^.4021^1^1^3021223^^^^"
^DIE(1067,"%D",1,0)="This template is used for editing information on outside film tracking."
^DIE(1067,"DR",1,70)="I $D(^DPT(DA,.1)),^(.1)]"""" W !?3,*7,""Patient is currently an inpatient."" S RAPTFL="""";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@99"";50;@99;K RAPOP,RADUZ,RAPTFL;"
^DIE(1067,"DR",2,70.06)="100///^S X=""""""NOW"""""";S:$P(^RADPT(DA(1),""O"",DA,0),U,5)'=""Y"" Y=""@10"";6;I X'[""Y"" W !?3,*7,""Cannot return films without supervisor's OK!"" S Y=""@20"";@10;"
^DIE(1067,"DR",2,70.06,1)="I $D(RAPTFL) W !?3,""Do you want to specify a 'RETURNED DATE' even though..."",!?35,""...patient is an inpatient? No// "" R X:DTIME W ! S:X="""" X=""N"" S:""Yy""'[$E(X,1) Y=""@20"";@15;3;@20;2;@30;4;20;"
^DIE(1067,"DR",3,70.08)="2///^S X=""E"";3////^S X=RADUZ;"
^DIE(1068,0)="RA OUTSIDE SUPEROK^2910626.1316^^70^^^2971201^"
^DIE(1068,"%D",0)="^^2^2^2940607^^"
^DIE(1068,"%D",1,0)="This template is used for flaging an outside film as needing a"
^DIE(1068,"%D",2,0)="supervisor ok to release."
^DIE(1068,"DR",1,70)="S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@99"";50;@99;K RAPOP,RADUZ;"
^DIE(1068,"DR",2,70.06)="I $P(^RADPT(DA(1),""O"",DA,0),U,3)]"""" W !,?3,*7,""Cannot ask for 'ok'.  Films have already been returned!!"" S Y=""@99"";100///^S X=""""""NOW"""""";5;"
^DIE(1068,"DR",3,70.08)="2///^S X=""S"";3////^S X=RADUZ;"
^DIE(1069,0)="RA REPORT EDIT^3030825.0859^^74^^^3030904"
^DIE(1069,"%D",0)="^.4021^2^2^2990429^^^"
^DIE(1069,"%D",1,0)="This template is used for entering and editing reports in the reports"
^DIE(1069,"%D",2,0)="file."
^DIE(1069,"AB","11^RACTWR",2)="1^RACTWR1"
^DIE(1069,"AB","11^RACTWR",2,"///")=""
^DIE(1069,"AB","11^RACTWR",3)="2^RACTWR1"
^DIE(1069,"AB","11^RACTWR",3,"///")=""
^DIE(1069,"AB","^",5)="1^RACTWR2"
^DIE(1069,"AB","^",5,"///")=""
^DIE(1069,"AB","^",6)="3^RACTWR"
^DIE(1069,"AB","^",6,"///")=""
^DIE(1069,"AB","^",7)="14^RACTWR4"
^DIE(1069,"AB","^",7,"///")=""
^DIE(1069,"AB","^",8)="8^RACTWR"
^DIE(1069,"AB","^",9)="15^RACTWR2"
^DIE(1069,"AB","^",9,"///")=""
^DIE(1069,"AB","^",10)="6^RACTWR4"
^DIE(1069,"AB","^",10,"///")=""
^DIE(1069,"AB","^",11)="4^RACTWR"
^DIE(1069,"AB","^",11,"///")=""
^DIE(1069,"AB","^",17)="8^RACTWR4"
^DIE(1069,"AB","^",17,"///")=""
^DIE(1069,"AB","^",25)="2^RACTWR2"
^DIE(1069,"AB","^",25,"///")=""
^DIE(1069,"AB","^",100)="11^RACTWR"
^DIE(1069,"AB","^",100,"///")=""
^DIE(1069,"AB","^",200)="21^RACTWR"
^DIE(1069,"AB","^",300)="26^RACTWR"
^DIE(1069,"AB","^",400)="16^RACTWR"
^DIE(1069,"AB","^","@1")="14^RACTWR"
^DIE(1069,"AB","^","@10")="5^RACTWR"
^DIE(1069,"AB","^","@15")="10^RACTWR"
^DIE(1069,"AB","^","@2")="20^RACTWR"
^DIE(1069,"AB","^","@3")="25^RACTWR"
^DIE(1069,"AB","^","@30")="5^RACTWR2"
^DIE(1069,"AB","^","@33")="3^RACTWR4"
^DIE(1069,"AB","^","@34")="7^RACTWR4"
^DIE(1069,"AB","^","@35")="10^RACTWR4"
^DIE(1069,"AB","^","@40")="11^RACTWR2"
^DIE(1069,"AB","^","@45")="13^RACTWR4"
^DIE(1069,"AB","^","@50")="16^RACTWR4"
^DIE(1069,"AB","^","@99")="18^RACTWR4"
^DIE(1069,"DR",1,74)="I '$D(RACT) W !?3,$C(7),""Variable RACT must be defined to continue!"" S Y=""@99"";S:RACT'=""I"" Y=""@10"";6///^S X=""NOW"";11////^S X=DUZ;@10;S RATRSC=$P(^RARPT(DA,""T""),U);"
^DIE(1069,"DR",1,74,1)="I $D(RARPDT) I (RADTE\1)>(($E(RARPDT,7,10)-1700)_$E(RARPDT,1,2)_$E(RARPDT,4,5)) K RARPDT;8//^S X=$S($D(RARPDT):RARPDT,1:"""");S:X?7N RARPDT=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3));@15;100///^S X=""""""NOW"""""";S:RACT=""V"" Y=""@99"";"
^DIE(1069,"DR",1,74,2)="W !,""------------------------------------------------------------------------------"";@1;D CHPRINT^RAUTL9;400;S RANODE=""H"";I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1069,"DR",1,74,3)="W !,""------------------------------------------------------------------------------"";@2;200;S RANODE=""R"" D EXIST^RAUTL9;I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1069,"DR",1,74,4)="W !,""------------------------------------------------------------------------------"";@3;300;S RANODE=""I"" D EXIST^RAUTL9;I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1069,"DR",1,74,5)="W !,""------------------------------------------------------------------------------"";I $O(^RARPT(DA,""I"",0))>0 S Y=$S($D(RAONLINE):""@99"",1:""@30"");"
^DIE(1069,"DR",1,74,6)="I $D(^RADPT(+$P(^RARPT(DA,0),U,2),""DT"",(9999999.9999-$P(^RARPT(DA,0),U,3)),0)),$D(^RA(79,+$P(^(0),U,3),.1)),$P(^(.1),U,16)'[""Y"" S Y=$S($D(RAONLINE):""@99"",1:""@30"");I '$O(^RARPT(DA,""R"",0)) S Y=""@99"";5///PROBLEM DRAFT;"
^DIE(1069,"DR",1,74,7)="25///No Impression was entered for this report.;"
^DIE(1069,"DR",1,74,8)="W !!?3,$C(7),""NOTE: This report does not have an impression.  As a result,"",!?3,""      the report will be placed in a 'PROBLEM DRAFT' status"",!?3,""      with an appropriate 'PROBLEM STATEMENT' entered as well."",!;S Y=""@99"";@30;"
^DIE(1069,"DR",1,74,9)="D EN1^RAUTL9;S:'$D(DIRUT) Y=""@40"";D:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") EN^DDIOL(""EXIT NOT ALLOWED ??""_$C(7),"""",""!!?3"");"
^DIE(1069,"DR",1,74,10)="S:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") Y=""@30"";5///^S X=""^"";@40;5///^S X=RASTATX;S:RASTATX=""V"" RACT=RASTATX S:RASTATX'=""V"" Y=$S($E(RASTATX)=""P"":""@50"",1:""@99"") I $E(RASTATX)'=""P"" K ^RARPT(DA,""P"");"
^DIE(1069,"DR",1,74,11)="I X=""V"",'$D(^XUSEC(""RA VERIFY"",DUZ)) W !!,$C(7),""You do not have the appropriate privileges to verify a report."" S Y=""@35"";9///^S X=$S($D(RAELESIG):DUZ,1:"""");S:$D(RAELESIG) Y=""@33"";9;"
^DIE(1069,"DR",1,74,12)="I X=""""!('X) W !!,$C(7),""You must enter the 'VERIFYING PHYSICIAN'."" S Y=""@35"";@33;I '$D(RASIG(""PER""))#2!('$D(RASIG(""NAME""))#2) S Y=""@34"";S X1=RASIG(""PER""),X=RASIG(""NAME""),X2=DA D EN^XUSHSHP S RASIGCDE=X;10///^S X=RASIGCDE;@34;"
^DIE(1069,"DR",1,74,13)="17////^S X=DUZ;S Y=""@45"";@35;5///DRAFT;S Y=""@30"";@45;7///^S X=""NOW"";S Y=""@15"";@50;25;@99;K RASTATX,RATRSC,RANODE,RASIGCDE;"
^DIE(1069,"DR",2,74.01)="2////^S X=RACT;3////^S X=DUZ;"
^DIE(1069,"ROU")="^RACTWR"
^DIE(1069,"ROUOLD")="RACTWR"
^DIE(1070,0)="RA STATUS ENTRY^3061213.0954^^72^^^3070116"
^DIE(1070,"DIAB",1,0,72,3)="PROCEDURE MODIFIERS REQUIRED?//NO;T"
^DIE(1070,"DIAB",1,0,72,6)="ASK PROCEDURE MODIFIERS?//NO;T"
^DIE(1070,"DIAB",1,0,72,8)="RESIDENT REPORT?;T"
^DIE(1070,"DIAB",2,0,72,1)="APPEAR ON STATUS TRACKING?;T"
^DIE(1070,"DIAB",2,0,72,3)="CPT MODIFIERS REQUIRED?//NO;T"
^DIE(1070,"DIAB",2,0,72,4)="REPORT ENTERED REQUIRED?//NO;T"
^DIE(1070,"DIAB",2,0,72,5)="ASK FOR TECHNOLOGIST?//NO;T"
^DIE(1070,"DIAB",2,0,72,6)="ASK CPT MODIFIERS?//NO;T"
^DIE(1070,"DIAB",2,0,72,8)="STAFF REPORT?;T"
^DIE(1070,"DIAB",3,0,72,1)="USER KEY NEEDED;T"
^DIE(1070,"DIAB",3,0,72,2)="TECHNOLOGIST REQUIRED?//NO;T"
^DIE(1070,"DIAB",3,0,72,4)="IMPRESSION REQUIRED?//Y;T"
^DIE(1070,"DIAB",3,0,72,5)="ASK FOR INTERPRETING PHYS?//NO;T"
^DIE(1070,"DIAB",3,0,72,6)="ASK FOR USER CODE?//NO;T"
^DIE(1070,"DIAB",3,0,72,7)="CLINIC REPORT?;T"
^DIE(1070,"DIAB",3,0,72,8)="DELINQUENT STATUS REPORT?;T"
^DIE(1070,"DIAB",4,0,72,2)="RESIDENT OR STAFF REQUIRED?//NO;T"
^DIE(1070,"DIAB",4,0,72,4)="VERIFIED REPORT REQUIRED?//NO;T"
^DIE(1070,"DIAB",4,0,72,5)="ASK FOR PROCEDURE?//NO;T"
^DIE(1070,"DIAB",4,0,72,6)="ASK MEDICATIONS & DOSAGES?//NO;T"
^DIE(1070,"DIAB",4,0,72,7)="PTF BEDSECTION REPORT?;T"
^DIE(1070,"DIAB",5,0,72,0)="STATUS;T"
^DIE(1070,"DIAB",5,0,72,1)="DEFAULT NEXT STATUS;T"
^DIE(1070,"DIAB",5,0,72,2)="DETAILED PROCEDURE REQUIRED?//NO;T"
^DIE(1070,"DIAB",5,0,72,3)="RADIOPHARMS/DOSAGES REQUIRED?//NO;T"
^DIE(1070,"DIAB",5,0,72,5)="ASK FOR FILM DATA?//NO;T"
^DIE(1070,"DIAB",5,0,72,6)="ASK MED ADM DT/TIME/PERSON?//NO;T"
^DIE(1070,"DIAB",5,0,72,7)="SERVICE REPORT?;T"
^DIE(1070,"DIAB",6,0,72,2)="FILM ENTRY REQUIRED?//NO;T"
^DIE(1070,"DIAB",6,0,72,3)="ACTIVITY DRAWN REQUIRED?//NO;T"
^DIE(1070,"DIAB",6,0,72,5)="ASK FOR DIAGNOSTIC CODE?//NO;T"
^DIE(1070,"DIAB",6,0,72,7)="SHARING/CONTRACT REPORT?;T"
^DIE(1070,"DIAB",6,0,72,8)="PRINT DOSAGE TICKET?//NO;T"
^DIE(1070,"DIAB",7,0,72,0)="ORDER;T"
^DIE(1070,"DIAB",7,0,72,1)="ALLOW CANCELLING?//NO;T"
^DIE(1070,"DIAB",7,0,72,2)="DIAGNOSTIC CODE REQUIRED?//NO;T"
^DIE(1070,"DIAB",7,0,72,3)="DRAWN DT/TIME/PERSON REQUIRED?//NO;T"
^DIE(1070,"DIAB",7,0,72,5)="ASK FOR CAMERA/EQUIP/RM?//NO;T"
^DIE(1070,"DIAB",7,0,72,7)="WARD REPORT?;T"
^DIE(1070,"DIAB",8,0,72,1)="GENERATE EXAM ALERT?;T"
^DIE(1070,"DIAB",8,0,72,2)="CAMERA/EQUIP/RM REQUIRED?//NO;T"
^DIE(1070,"DIAB",8,0,72,3)="ADM DT/TIME/PERSON REQUIRED?//NO;T"
^DIE(1070,"DIAB",8,0,72,6)="ASK RADIOPHARMS AND DOSAGES?//NO;T"
^DIE(1070,"DIAB",8,0,72,7)="FILM USAGE REPORT?;T"
^DIE(1070,"DIAB",9,0,72,1)="GENERATE EXAMINED HL7 MESSAGE;T"
^DIE(1070,"DIAB",9,0,72,3)="ROUTE/SITE REQUIRED?//NO;T"
^DIE(1070,"DIAB",9,0,72,6)="ASK ACTIVITY DRAWN?//NO;T"
^DIE(1070,"DIAB",9,0,72,7)="TECHNOLOGIST REPORT?;T"
^DIE(1070,"DIAB",10,0,72,3)="LOT NO. REQUIRED?//NO;T"
^DIE(1070,"DIAB",10,0,72,6)="ASK DRAWN DT/TIME/PERSON?//NO;T"
^DIE(1070,"DIAB",10,0,72,7)="AMIS REPORT?;T"
^DIE(1070,"DIAB",11,0,72,1)="VISTARAD CATEGORY;T"
^DIE(1070,"DIAB",11,0,72,3)="VOLUME/FORM REQUIRED?//NO;T"
^DIE(1070,"DIAB",11,0,72,6)="ASK ADM DT/TIME/PERSON?//NO;T"
^DIE(1070,"DIAB",11,0,72,7)="DETAILED PROCEDURE REPORT?;T"
^DIE(1070,"DIAB",12,0,72,6)="ASK ROUTE/SITE OF ADM?//NO;T"
^DIE(1070,"DIAB",12,0,72,7)="CAMERA/EQUIP/RM REPORT?;T"
^DIE(1070,"DIAB",13,0,72,6)="ASK LOT NO.?//NO;T"
^DIE(1070,"DIAB",13,0,72,7)="PHYSICIAN REPORT?;T"
^DIE(1070,"DIAB",14,0,72,6)="ASK VOLUME/FORM?//NO;T"
^DIE(1070,"DR",1,72)="K RAEXST,RANMFLG;S RAEXST(0)=$G(^RA(72,DA,0));S RAEXST(1)=$P(RAEXST(0),""^"");S RAEXST(3)=$P(RAEXST(0),""^"",3);.01T~;S:$P($G(^RA(79.2,+$G(RAIMGTYI),0)),""^"",5)=""Y"" RANMFLG="""";3T~;S X=X;S RAEXST(31)=$P(^RA(72,DA,0),""^"",3);"
^DIE(1070,"DR",1,72,1)="D ORDEL^RAUTL4:RAEXST(31)']""""&($D(^RADPT(""AS"",DA)));5T~;4T~;S DIC(""W"")=""W ?34,""""Order: """",$P(^(0),""""^"""",3)"";2T~;K DIC(""W"");6T~//NO;1T~;8T~;S:'$$IMAGE^RARIC1() Y=""@11"";9T~;@11;W !!?5,""Status Change Requirements"";"
^DIE(1070,"DR",1,72,2)="W !?5,""--------------------------"";W !?5,""Please indicate which of the following is required"",!?5,""in order to place an exam into the '"",RAEXST(1),""' status:"",!;.11T~//NO;.12T~//NO;.13T~//NO;.14T~//NO;.15T~//NO;.16T~//NO;"
^DIE(1070,"DR",1,72,3)=".113T~//NO;.114T~//NO;S:'$D(RANMFLG) Y=""@10"";W !!?5,""(Radiopharmaceutical requirements)"",!;.51T~//NO;.53T~//NO;.54T~//NO;.55T~//NO;.57T~//NO;.58T~//NO;.59T~//NO;@10;"
^DIE(1070,"DR",1,72,4)="W !!?3,""WARNING: You must use the reporting feature of the system as"",!?12,""a prerequisite for the following requirements:"";.111T~//NO;.116T~//Y;.112T~//NO;W !!?5,""Status Tracking Functions"";W !?5,""-------------------------"";"
^DIE(1070,"DR",1,72,5)="W !?5,""Please indicate which of the following should be asked when"",!?5,""changing an exam's status to '"",RAEXST(1),""' while using"",!?5,""the 'status tracking' feature: "",!;.21T~//NO;.22T~//NO;.23T~//NO;.24T~//NO;.25T~//NO;.26T~//NO;"
^DIE(1070,"DR",1,72,6)=".213T~//NO;.214T~//NO;.211T~//NO;.27T~//NO;.28T~//NO;S:'$D(RANMFLG) Y=""@20"";W !!?5,""(Radiopharmaceutical functions)"",!;.61T~//NO;.63T~//NO;.64T~//NO;.65T~//NO;.67T~//NO;.68T~//NO;.69T~//NO;@20;W !!?5,""Management Report Criteria"";"
^DIE(1070,"DR",1,72,7)="W !?5,""--------------------------"";W !?5,""Please indicate which of the following workload reports should"",!?5,""include exams with the '"",RAEXST(1),""' status: "",!;.31T~;.32T~;.33T~;.34T~;.35T~;.36T~;.37T~;.38T~;.39T~;.311T~;.312T~;"
^DIE(1070,"DR",1,72,8)=".313T~;.314T~;.315T~;I '$D(RANMFLG) S Y=""@99"";W !!?5,""Radiopharmaceutical Dosage Ticket Print Control"",!?5,$$REPEAT^XLFSTR(""-"",$L(""Radiopharmaceutical Dosage Ticket Print Control"")),!;.611T~//NO;@99;K RANMFLG;"
^DIE(1071,0)="RA STATUS CHANGE^3050127.0755^^70^^^3050303"
^DIE(1071,"%D",0)="^^2^2^2940607^^^"
^DIE(1071,"%D",1,0)=" "
^DIE(1071,"%D",2,0)="This template is used for the Status Tracking of Exams option."
^DIE(1071,"DIAB",1,2,70.03,10)="500:"
^DIE(1071,"DIAB",1,3,70.09,0)="ALL"
^DIE(1071,"DIAB",1,3,70.1,0)="ALL"
^DIE(1071,"DIAB",1,3,70.11,0)="ALL"
^DIE(1071,"DIAB",1,3,70.12,0)="ALL"
^DIE(1071,"DIAB",1,3,70.3135,0)="ALL"
^DIE(1071,"DIAB",1,3,70.3225,0)="ALL"
^DIE(1071,"DIAB",1,4,70.21,5)="7//^S X=$P($G(^RADPTN(DA(1),""NUC"",DA,0)),""^"",4);T"
^DIE(1071,"DIAB",7,2,70.03,1)="2;REQ"
^DIE(1071,"DR",1,70)="I '$D(RANEXT)!('$D(RADTE))!('$D(RACN))!('$D(RASK))!('$D(RAMDV))!('$D(DUZ))!('$D(RANXT72))!('$D(RACN0)) W !,$C(7),""Must have RANEXT, RADTE, RACN, RASK, RAMDV, RANXT72, RACN0 and DUZ defined to use this template"" S Y=""@99"";"
^DIE(1071,"DR",1,70,1)="2///^S X=RADTE;@99;S RAREM=""let calling rtn kill RA- vars, due early out from exm status not changed"";"
^DIE(1071,"DR",2,70.02)="50///^S X=RACN;"
^DIE(1071,"DR",3,70.03)="S RANXT72(.6)=$G(^RA(72,RANXT72,.6));S RAOPRC=$P($G(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0)),U,2);S:'$D(RAPRI) RAPRI=RAOPRC;S:$P(RASK,""^"",2)'[""Y"" Y=""@03"";I $G(RAPRTSET) D WHY1^RASTED S Y=""@03"";12;I X="""" S Y=15;70;@15;15;"
^DIE(1071,"DR",3,70.03,1)="I X="""",$P(RAMDV,""^"",28) W !,""     Primary Interpreting Staff required for this division"",$C(7),! S Y=""@15"";I X="""" S Y=""@03"";60;@03;S:$P(RASK,""^"",3)'[""Y"" Y=""@049"";@05;2R~;S RAPRI=+X;S RAREM=""did user change the procedure ?"";"
^DIE(1071,"DR",3,70.03,2)="I RAPRI=RAOPRC S Y=""@049"";S RAREM=""if procedures change, make sure CM associations are preserved..."";D CHGPRC^RAUTL21(RAOPRC,RAPRI,.DA);D WARNPRC^RAUTL;I RAWHICH=0 S Y=""@049"";I RAWHICH=2 S Y=""@047"";"
^DIE(1071,"DR",3,70.03,3)="W !,""... Deleting radiopharms ..."",!;500///@;@047;I RAWHICH=1 S Y=""@049"";W !,""... Deleting medications ..."",!;K ^RADPT(DA(2),""DT"",DA(1),""P"",DA,""RX"");@049;I '$P(RAMDV,U,7)!($P(^RAMIS(71,RAPRI,0),U,6)'=""B"") S Y=""@051"";"
^DIE(1071,"DR",3,70.03,4)="W !?3,$C(7),""A 'detailed' procedure or a 'series' of procedures is required!"";2///@;S Y=""@05"";@051;S:'$$FUTC^RACPTCSV Y=""@05"";S RAREM=""determine if CM is used for this procedure"";S RAZCM=$O(^RAMIS(71,RAPRI,""CM"",""B"",""""));"
^DIE(1071,"DR",3,70.03,5)="10//^S X=$S(RAZCM'="""":""YES"",1:""NO"");S RAZCM(0)=X;S:$E(RAZCM(0))=""N"" Y=$$PRGCM^RAMAINU(.DA);D:$E(RAZCM(0))=""Y""&('+$O(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""CM"",0))) STUFCM70^RAMAINU(.DA,RAPRI);S X=X;225;"
^DIE(1071,"DR",3,70.03,6)="D:+$O(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""CM"",0))=0 UPXCM^RAMAINU(.DA,""N"");@225;S:$P(RASK,""^"",13)'[""Y"" Y=""@063"";125;@063;S:$P(RASK,""^"",14)'[""Y"" Y=""@067"";@065;D:$T(DISCMOD^RACPTMSC)]"""" DISCMOD^RACPTMSC;135;"
^DIE(1071,"DR",3,70.03,7)="S:'$$FUTCMOD^RACPTCSV Y=""@065"";@067;S:$P(RASK,""^"",4)'[""Y"" Y=""@09"";50;@09;S:$P(RASK,""^"",5)'[""Y"" Y=""@12"";I $G(RAPRTSET) D WHY2^RASTED S Y=""@12"";13;I X="""" S Y=""@12"";13.1;@12;S:$P(RASK,""^"",6)'[""Y"" Y=""@25"";18;@25;Q;"
^DIE(1071,"DR",3,70.03,8)="S:$P(RASK,""^"")'[""Y"" Y=""@11"";175;S RATCXX=$$TCPROMPT^RAO7XX;@11;S:'($P(RASK,""^"",7)[""Y""&($P(^RAMIS(71,RAPRI,0),""^"",5)=""y"")) Y=""@14"";200;@14;S:$P($G(^RA(79.2,+$P(RADT0,""^"",2),0)),""^"",5)'=""Y"" Y=""@75"";"
^DIE(1071,"DR",3,70.03,9)="S:$$NORADIO^RASTREQN(RAPRI,.RANXT72) Y=""@75"";S RAIEN702=$$EN1^RANMPT1(RADFN,RADTE,RACN);S:RAIEN702=-1 Y=""@75"";500////^S X=RAIEN702;"
^DIE(1071,"DR",3,70.03,10)="^70.2^RADPTN(^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^RADPT(D0,""DT"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,28),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@75;S:$O(^RADPTN(+$G(RAIEN702),""NUC"",0)) Y=""@80"";K RAIEN702;500///@;"
^DIE(1071,"DR",3,70.03,11)="@80;3///^S X=$P(RANEXT,""^"");S RA70033=X;"
^DIE(1071,"DR",4,70.04)=".01:2;"
^DIE(1071,"DR",4,70.09)=".01"
^DIE(1071,"DR",4,70.1)=".01"
^DIE(1071,"DR",4,70.11)=".01"
^DIE(1071,"DR",4,70.12)=".01"
^DIE(1071,"DR",4,70.14)=".01;"
^DIE(1071,"DR",4,70.15)=".01;2;S:$P(RASK,""^"",8)'[""Y"" Y=""@13"";Q;3//^S X=""NOW"";4//^S X=$P($G(^VA(200,DUZ,0)),""^"");@13;"
^DIE(1071,"DR",4,70.2)="D DISDEF^RASTREQN(RAIEN702);100;"
^DIE(1071,"DR",4,70.3135)=".01"
^DIE(1071,"DR",4,70.3225)=".01"
^DIE(1071,"DR",5,70.21)=".01;S RAPSDRUG=+X;S RADIOPH=$O(^RAMIS(71,RAPRI,""NUC"",""B"",+$G(RAPSDRUG),0)),(RAHI,RALOW)="""";S RADIOPH=$G(^RAMIS(71,RAPRI,""NUC"",+$G(RADIOPH),0)),RAHI=$P(RADIOPH,""^"",5),RALOW=$P(RADIOPH,""^"",6);S:""Y""'[$P(RANXT72(.6),""^"",3) Y=""@1005"";"
^DIE(1071,"DR",5,70.21,1)="@1000;W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,""^"",2)]"""") !!;W:RAHI]"""" ""High Dose: "",RAHI_"" mCi"" W:RALOW]"""" ?27,""Low Dose: "",RALOW_"" mCi"" W:$P(RADIOPH,""^"",2)]"""" ?53,""Usual Dose: "",$P(RADIOPH,""^"",2)_"" mCi"";"
^DIE(1071,"DR",5,70.21,2)="W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,""^"",2)]"""") !;4;S Y=$$VALDOS^RASTREQN(RALOW,RAHI,X,""@1000"",""@1005"",""@99"",0);@1005;S:""Y""'[$P(RANXT72(.6),""^"",4) Y=""@1010"";5//^S X=""NOW"";6//^S X=$P($G(^VA(200,DUZ,0)),""^"");@1010;"
^DIE(1071,"DR",5,70.21,3)="S:""Y""'[$P(RANXT72(.6),""^"") Y=""@1020"";@1015;W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,""^"",2)]"""") !!;"
^DIE(1071,"DR",5,70.21,4)="W:RAHI]"""" ""High Dose: "",RAHI_"" mCi"" W:RALOW]"""" ?27,""Low Dose: "",RALOW_"" mCi"" W:$P(RADIOPH,""^"",2)]"""" ?53,""Usual Dose: "",$P(RADIOPH,""^"",2)_"" mCi"";W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,""^"",2)]"""") !;"
^DIE(1071,"DR",5,70.21,5)="7T~//^S X=$P($G(^RADPTN(DA(1),""NUC"",DA,0)),""^"",4);S RADOSE=X;S Y=$$VALDOS^RASTREQN(RALOW,RAHI,RADOSE,""@1015"",""@1020"",""@99"",1);@1020;S:'$D(RADOSE) RADOSE=$P($G(^RADPTN(DA(1),""NUC"",DA,0)),""^"",7);"
^DIE(1071,"DR",5,70.21,6)="S RANM702=$G(^RADPTN(DA(1),""NUC"",DA,0));S:$P(^RAMIS(71,RAPRI,0),""^"",19)'=""y""!('RADOSE) Y=""@1030"";S:$P(RANM702,""^"",2)]""""&($P(RANM702,""^"",3)]"""") Y=""@1030"";3;2;@1030;S:""Y""'[$P(RANXT72(.6),""^"",5) Y=""@1040"";"
^DIE(1071,"DR",5,70.21,7)="8//^S X=$S($P($G(RANM702),""^"",5)]"""":$$FMTE^XLFDT($P(RANM702,""^"",5),1),1:""NOW"");9//^S X=$P($G(^VA(200,DUZ,0)),""^"");@1040;S:$P(RANM702,""^"",10)]""""!($P($G(^RAMIS(71,RAPRI,0)),""^"",19)'=""y"") Y=""@1050"";10;@1050;"
^DIE(1071,"DR",5,70.21,8)="S:""Y""'[$P(RANXT72(.6),""^"",7) Y=""@1060"";11//^S X=$$GET1^DIQ(71.6,+$P(RADIOPH,""^"",3)_"","",.01);S RAR1=+X;S:'+$O(^RAMIS(71.6,RAR1,""SITE"",0)) Y=""@1070"";12//^S X=$$GET1^DIQ(71.7,+$P(RADIOPH,""^"",4)_"","",.01);@1070;"
^DIE(1071,"DR",5,70.21,9)="S:'($P($G(^RADPTN(DA(1),""NUC"",DA,0)),""^"",11)]""""&($P($G(^RAMIS(71.6,RAR1,0)),""^"",3)=""Y"")) Y=""@1080"";12.5;@1080;@1060;S:""Y""'[$P(RANXT72(.6),""^"",8) Y=""@1090"";13;@1090;S:""Y""'[$P(RANXT72(.6),""^"",9) Y=""@1100"";14;"
^DIE(1071,"DR",5,70.21,10)="15//^S X=$$EXTERNAL^DILFD(71.08,7,"""",$P(RADIOPH,""^"",7));@1100;"
^DIE(1071,"ROUOLD")="RACTTK"
^DIE(1072,0)="RA SITE MANAGER^2960905.1054^^79.1^^^2971105"
^DIE(1072,"%D",0)="^^2^2^2940607^"
^DIE(1072,"%D",1,0)="This template is used by the IRM service for defining input and"
^DIE(1072,"%D",2,0)="printing devices for the radiology/nuclear medicine package."
^DIE(1072,"DR",1,79.1)="N RA791,RA792;S RA791=$G(^RA(79.1,DA,0));S RA792=$G(^RA(79.2,+$P(RA791,""^"",6),0));W !!,""Default Printers:"",!,""-----------------"";3;5;16;10;S:$P(RA792,""^"",5)'=""Y"" Y=""@10"";23;@10;24;"
^DIE(1073,0)="RA VERIFY REPORT ONLY^3030825.09^^74^^^3030904"
^DIE(1073,"%D",0)="^^1^1^2940607^"
^DIE(1073,"%D",1,0)="This template is used for the verifying of reports."
^DIE(1073,"AB","20^RACTVR4",2)="1^RACTVR5"
^DIE(1073,"AB","20^RACTVR4",2,"///")=""
^DIE(1073,"AB","20^RACTVR4",3)="2^RACTVR5"
^DIE(1073,"AB","20^RACTVR4",3,"///")=""
^DIE(1073,"AB","^",5)="5^RACTVR"
^DIE(1073,"AB","^",5,"///")=""
^DIE(1073,"AB","^",7)="17^RACTVR4"
^DIE(1073,"AB","^",7,"///")=""
^DIE(1073,"AB","^",9)="1^RACTVR4"
^DIE(1073,"AB","^",10)="12^RACTVR4"
^DIE(1073,"AB","^",10,"///")=""
^DIE(1073,"AB","^",17)="4^RACTVR4"
^DIE(1073,"AB","^",17,"///")=""
^DIE(1073,"AB","^",25)="6^RACTVR"
^DIE(1073,"AB","^",25,"///")=""
^DIE(1073,"AB","^",100)="20^RACTVR4"
^DIE(1073,"AB","^",100,"///")=""
^DIE(1073,"AB","^","@1")="9^RACTVR"
^DIE(1073,"AB","^","@10")="22^RACTVR"
^DIE(1073,"AB","^","@15")="6^RACTVR4"
^DIE(1073,"AB","^","@20")="9^RACTVR4"
^DIE(1073,"AB","^","@30")="15^RACTVR4"
^DIE(1073,"AB","^","@5")="11^RACTVR"
^DIE(1073,"AB","^","@7")="17^RACTVR"
^DIE(1073,"AB","^","@99")="18^RACTVR4"
^DIE(1073,"AB","^","@999")="21^RACTVR4"
^DIE(1073,"DR",1,74)="S RACT="""";S RAOLDST=$P($G(^RARPT(DA,0)),U,5);I $O(^RARPT(DA,""I"",0))>0 S Y=""@1"";I $D(^RADPT(+$P(^RARPT(DA,0),U,2),""DT"",(9999999.9999-$P(^RARPT(DA,0),U,3)),0)),$D(^RA(79,+$P(^(0),U,3),.1)),$P(^(.1),U,16)'[""Y"" S Y=""@1"";"
^DIE(1073,"DR",1,74,1)="5///PROBLEM DRAFT;25///No Impression was entered for this report.;"
^DIE(1073,"DR",1,74,2)="W !!,?3,$C(7),""NOTE: This report does not have an impression.  As a result,"",!?3,""      the report will be placed in a 'PROBLEM DRAFT' status"",!?3,""      with an appropriate 'PROBLEM STATEMENT' entered as well."",!;S Y=""@99"";@1;"
^DIE(1073,"DR",1,74,3)="I $P(^RARPT(DA,0),U,5)=""PD"",$D(^(""P"")) W !!?3,""This report currently has a status of 'PROBLEM DRAFT' with"",!?3,""the following 'PROBLEM STATEMENT':"",!!?10,^(""P""),!;@5;D EN1^RAUTL9;S:'$D(DIRUT) Y=""@7"";"
^DIE(1073,"DR",1,74,4)="D:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") EN^DDIOL(""EXIT NOT ALLOWED ??""_$C(7),"""",""!!?3"");S:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") Y=""@5"";5///^S X=""^"";@7;"
^DIE(1073,"DR",1,74,5)="5///^S X=RASTATX;S RACT=RASTATX I $E(RACT)'=""P"" S Y=$S(RACT=""V"":""@10"",1:""@99"") K ^RARPT(DA,""P"");25;S Y=""@99"";@10;I $D(RAONLINE),$D(RAVER),$D(RASIG(""PER"")),$D(RASIG(""NAME"")) S Y=""@20"";9//^S X=$S($D(RAVER):RAVER,1:"""");"
^DIE(1073,"DR",1,74,6)="I X=""""!('X) W !!,$C(7),""You must enter the 'VERIFYING PHYSICIAN'."" S Y=""@15"";K RAVER S:$D(^VA(200,X,0)) RAVER=$P(^(0),U);17////^S X=DUZ;S Y=""@30"";@15;5///DRAFT;S Y=""@5"";@20;9///^S X=RAVER;"
^DIE(1073,"DR",1,74,7)="S X1=RASIG(""PER""),X=RASIG(""NAME""),X2=DA D EN^XUSHSHP S RASIGCDE=X;10///^S X=RASIGCDE;17////^S X=DUZ;K RASIGCDE,X2,X1;@30;Q;7///^S X=""NOW"";@99;I $E(RAOLDST)=$E(RACT) S Y=""@999"";100///^S X=$$MIDNGHT^RAUTL5($$NOW^XLFDT());@999;"
^DIE(1073,"DR",1,74,8)="K RASTATX,RAOLDST;"
^DIE(1073,"DR",2,74.01)="2///^S X=$S($E(RACT)=""V"":""V"",1:""E"");3////^S X=DUZ;"
^DIE(1073,"ROU")="^RACTVR"
^DIE(1073,"ROUOLD")="RACTVR"
^DIE(1074,0)="RA CANCEL^3000831.1037^^70^^^3001024"
^DIE(1074,"%D",0)="^^1^1^2990824^^^"
^DIE(1074,"%D",1,0)="This template is used for the cancelling of exams."
^DIE(1074,"DR",1,70)="I '$D(RADTE)!('$D(RACN))!('$D(RAMDV)) W !?3,*7,""You must have 'RACN','RAMDV' and 'RADTE' defined to continue!"" S Y=""@999"";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";2///^S X=RADTE;@999;"
^DIE(1074,"DR",1,70,1)="S REM=""let calling rtn kill RADTE,RACN,RAPOP,RADUZ"";"
^DIE(1074,"DR",2,70.02)="50///^S X=RACN;"
^DIE(1074,"DR",3,70.03)="3///^S X=""CANCEL"";S:'(+$P(RAMDV,""^"",10)) Y=""@10"";75///^S X=""""""NOW"""""";@10;100///^S X=""""""NOW"""""";3.5;S:X]"""" RAOREA=X;"
^DIE(1074,"DR",4,70.05)="S:'(+$P(RAMDV,""^"",11)) Y=""@20"";.01;@20;2///^S X=""CANCEL"";3////^S X=RADUZ;"
^DIE(1074,"DR",4,70.07)="2////^S X=""X"";3////^S X=RADUZ;S RATCXX=$$GETTCOM^RAUTL11(RADFN,RADTI,RACNI);Q;4//^S X=RATCXX;S:RATCXX'=X Y=""@25"";4///@;K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""L"",DA,""TCOM"");@25;K RATCXX S RAFIN="""";"
^DIE(1075,0)="RA EXAM EDIT^3050128.0758^^70^^^3050331"
^DIE(1075,"%D",0)="^^1^1^2961105^^^"
^DIE(1075,"%D",1,0)="This template is used to edit exams."
^DIE(1075,"DIAB",1,2,70.03,11)="500:"
^DIE(1075,"DIAB",1,3,70.1,0)="ALL"
^DIE(1075,"DIAB",1,3,70.12,0)="ALL"
^DIE(1075,"DIAB",1,3,70.3135,0)="ALL"
^DIE(1075,"DIAB",1,3,70.3225,0)="ALL"
^DIE(1075,"DIAB",1,4,70.21,5)="7//^S X=RADRAWN;T"
^DIE(1075,"DIAB",2,4,70.21,3)="4;T"
^DIE(1075,"DIAB",3,2,70.03,1)="2;REQ"
^DIE(1075,"DIAB",4,2,70.03,8)="9;REQ"
^DIE(1075,"DIAB",6,4,70.21,6)="2;T"
^DIE(1075,"DIAB",7,2,70.03,8)="8;REQ"
^DIE(1075,"DIAB",9,2,70.03,7)="6;REQ"
^DIE(1075,"DIAB",10,2,70.03,7)="7;REQ"
^DIE(1075,"DIAB",11,2,70.03,7)="19;REQ"
^DIE(1075,"DIAB",14,2,70.03,7)="9.5;REQ"
^DIE(1075,"DR",1,70)="I '$D(RADTE)!('$D(RACN))!('$D(RAQUICK))!('$D(RAMDV)) W !?3,$C(7),""You must have the variables for 'Case Number','Exam Date' and"",!?3,""'Rad/Nuc Med Division' defined to continue!"" S Y=""@999"";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";"
^DIE(1075,"DR",1,70,1)="2///^S X=RADTE;@999;K RAY,RAR,RA0,RACAT,RAI,RAIEN702,RANUZD1;"
^DIE(1075,"DR",2,70.02)="50///^S X=RACN;@800;"
^DIE(1075,"DR",3,70.03)="S RAREM=""RANUZD1 = case's Img typ's 'Radiopharm Used'"";S:$P($G(^RA(79.2,+$P($G(^RADPT(DA(2),""DT"",DA(1),0)),""^"",2),0)),""^"",5)=""Y"" RANUZD1="""";S RAY=^RADPT(DA(2),""DT"",DA(1),""P"",DA,0) F RAI=1:1:18 S RA0(RAI)=$P(RAY,U,RAI);"
^DIE(1075,"DR",3,70.03,1)="S RAR=$S($D(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""R"")):^(""R""),1:"""");@20;2R~;S RAPRI=+X;S RAREM=""did user change the procedure ?"";I RAPRI=RA0(2) S Y=""@19"";S RAREM=""if procedures change, make sure CM associations are preserved..."";"
^DIE(1075,"DR",3,70.03,2)="D CHGPRC^RAUTL21(RA0(2),RAPRI,.DA);D WARNPRC^RAUTL;I RAWHICH=0 S Y=""@19"";I RAWHICH=2 S Y=""@17"";W !,""... Deleting radiopharms ..."",!;500///@;@17;I RAWHICH=1 S Y=""@19"";W !,""... Deleting Medications ..."",!;"
^DIE(1075,"DR",3,70.03,3)="K ^RADPT(DA(2),""DT"",DA(1),""P"",DA,""RX"");@19;I '$P(RAMDV,U,7)!($P(^RAMIS(71,+RAPRI,0),U,6)'=""B"") S Y=""@21"";W !?3,$C(7),""A 'detailed' procedure or a 'series' of procedures is required!"";2///@;S Y=""@20"";@21;S:'$$FUTC^RACPTCSV Y=""@20"";"
^DIE(1075,"DR",3,70.03,4)="S RAREM=""determine if CM is used for this procedure"";S RAZCM=$O(^RAMIS(71,RAPRI,""CM"",""B"",""""));10//^S X=$S(RAZCM'="""":""YES"",1:""NO"");S RAZCM(0)=X;S:$E(RAZCM(0))=""N"" Y=$$PRGCM^RAMAINU(.DA);"
^DIE(1075,"DR",3,70.03,5)="D:$E(RAZCM(0))=""Y""&('+$O(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""CM"",0))) STUFCM70^RAMAINU(.DA,RAPRI);S X=X;225;D:+$O(^RADPT(DA(2),""DT"",DA(1),""P"",DA,""CM"",0))=0 UPXCM^RAMAINU(.DA,""N"");@225;Q;125;@37;"
^DIE(1075,"DR",3,70.03,6)="D:$T(DISCMOD^RACPTMSC)]"""" DISCMOD^RACPTMSC;135;S:'$$FUTCMOD^RACPTCSV Y=""@37"";4;S RACAT=X;S:RA0(4)=RACAT Y=""@4"";S:RA0(8)']"""" Y=""@1"";8///@;@1;S:RA0(9)']"""" Y=""@2"";9///@;@2;S:RA0(6)']"""" Y=""@10"";6///@;@10;S:RA0(7)']"""" Y=""@11"";7///@;@11;"
^DIE(1075,"DR",3,70.03,7)="S:$P(RAY,""^"",19)']"""" Y=""@3"";19///@;@3;S:RAR']"""" Y=""@4"";9.5///@;@4;S Y=$S(RACAT=""I"":""@5"",RACAT=""E"":""@12"",RACAT=""R"":""@6"",""CS""[RACAT:""@7"",1:""@8"");@5;6R~;7R~;19R~;S Y=""@100"";@6;9.5R~;@12;"
^DIE(1075,"DR",3,70.03,8)="I '$D(VADMVT) S DFN=DA(2),VAINDT=9999999.9999-DA(1) D ADM^VADPT2;S Y=$S(VADMVT:""@5"",1:""@8"");@7;9R~;S Y=""@100"";@8;8R~;@100;14;175;S RATCXX=$$TCPROMPT^RAO7XX;16//^S X=$S($D(^RA(78.1,""B"",""NO COMPLICATION"")):""NO COMPLICATION"",1:"""");"
^DIE(1075,"DR",3,70.03,9)="S:'$D(^RA(78.1,+X,0)) Y=""@130"";S:$P(^RA(78.1,+X,0),U)=""NO COMPLICATION"" Y=""@130"";16.5;@130;S:'$P(RAMDV,U,9) Y=""@140"";18;@140;50;Q;@99;Q;S:'$D(RANUZD1) Y=""@700"";"
^DIE(1075,"DR",3,70.03,10)="S RAREM=""skip radio section if case' Img Typ's 'RADIO...USED' is NEVER"";S:$P(^RAMIS(71,+RAPRI,0),U,2)=1 Y=""@700"";S RAIEN702=$$EN1^RANMPT1(RADFN,RADTE,RACN);S:RAIEN702=-1 Y=""@700"";500////^S X=RAIEN702;"
^DIE(1075,"DR",3,70.03,11)="^70.2^RADPTN(^^S I(2,0)=D2 S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^RADPT(D0,""DT"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,28),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@700;S RA00=$O(^RADPTN(""AA"",RADFN,RADTE,RACN,0));S:'RA00 Y=""@710"";"
^DIE(1075,"DR",3,70.03,12)="S:$O(^RADPTN(RA00,""NUC"",0)) Y=""@710"";K RAIEN702;500///@;@710;S RACT=$S(RAQUICK:""C"",1:""P"");100///^S X=""""""NOW"""""";S RAREM=""here, DIE is ^RADPT(-,'DT',-,'P',"";S RA00=$O(@(DIE_DA_"",""""RX"""",""_""0)""));"
^DIE(1075,"DR",3,70.03,13)="S RA00=$G(@(DIE_DA_"",""""RX"""",""_+RA00_"",0)""));S:RA00]"""" Y=""@720"";S RASKMEDS=$P(^RAMIS(71,+RAPRI,0),U,5) S:RASKMEDS=""""!(""Yy""'[RASKMEDS) Y=""@790"";@720;200;@790;"
^DIE(1075,"DR",4,70.04)=".01;2;"
^DIE(1075,"DR",4,70.07)="2///^S X=RACT;3////^S X=RADUZ;4///^S X=RATCXX;S:RATCXX'="""" Y=""@18"";4///@;K ^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""L"",DA,""TCOM"");@18;K RATCXX;"
^DIE(1075,"DR",4,70.1)=".01"
^DIE(1075,"DR",4,70.12)=".01"
^DIE(1075,"DR",4,70.15)=".01;2;S:$P(RA00,U,3)="""" Y=""@740"";3//^S X=""NOW"";@740;S:$P(RA00,U,4)="""" Y=""@750"";4//^S X=$P($G(^VA(200,DUZ,0)),""^"");@750;"
^DIE(1075,"DR",4,70.2)="D DISDEF^RASTREQN(RAIEN702);100;@600;"
^DIE(1075,"DR",4,70.3135)=".01"
^DIE(1075,"DR",4,70.3225)=".01"
^DIE(1075,"DR",5,70.21)=".01;Q;S RAPSDRUG=X;S:'$G(D0) Y=""@500"";S RAREM=""NOTE: here, DIE is ^RADPTN(D0,'NUC',"";S:DIE'["",""""NUC"""""" Y=""@500"";S RA00=$G(@(DIE_DA_"",0)""));S:RA00="""" Y=""@500"";@210;"
^DIE(1075,"DR",5,70.21,1)="S RADIOPH=$O(^RAMIS(71,$G(RAPRI),""NUC"",""B"",+$G(RAPSDRUG),0)),(RALOW,RAHI,RADRAWN,RADOSE,RASKMEDS)="""";S:'RADIOPH Y=""@220"";S RADIOPH=$G(^RAMIS(71,$G(RAPRI),""NUC"",RADIOPH,0)),RALOW=$P(RADIOPH,U,6),RAHI=$P(RADIOPH,U,5);@220;"
^DIE(1075,"DR",5,70.21,2)="S:$P(RA00,U,4)="""" Y=""@230"";@225;W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,U,2)]"""") !! W:RAHI]"""" ""High Dose :"",RAHI_"" mCi"" W:RALOW]"""" ?27,""Low Dose :"",RALOW_"" mCi"" W:$P(RADIOPH,U,2)]"""" ?53,""Usual Dose :"",$P(RADIOPH,U,2)_"" mCi"";"
^DIE(1075,"DR",5,70.21,3)="W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,U,2)]"""") !;4T~;S RADRAWN=X;S Y=$$VALDOS^RASTREQN(RALOW,RAHI,RADRAWN,""@225"",""@230"",""@999"",0);@230;S:$P(RA00,U,5)="""" Y=""@240"";Q;5;@240;S:$P(RA00,U,6)="""" Y=""@250"";6;@250;"
^DIE(1075,"DR",5,70.21,4)="W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,U,2)]"""") !! W:RAHI]"""" ""High Dose: "",RAHI_"" mCi"" W:RALOW]"""" ?27,""Low Dose: "",RALOW_"" mCi"" W:$P(RADIOPH,U,2)]"""" ?53,""Usual Dose: "",$P(RADIOPH,U,2),"" mCi"";W:RAHI]""""!(RALOW]"""")!($P(RADIOPH,U,2)]"""") !;"
^DIE(1075,"DR",5,70.21,5)="7T~//^S X=RADRAWN;S RADOSE=X;S:RALOW]""""&(X<RALOW)&(X'="""") Y=""@255"";S:RAHI]""""&(X>RAHI) Y=""@255"";S Y=""@258"";@255;D WARN^RANMED1;R !!,""OK to continue (Y/N) ?: N//"",RAASK;W !;S RAASK=$E(RAASK);S:""Yy""'[RAASK!(RAASK="""") Y=""@250"";"
^DIE(1075,"DR",5,70.21,6)="S RAREM=""is fil 71's PROMPT FOR RADIOPHARM RX yes ?"";@258;S RAASK=$P($G(^RAMIS(71,+RAPRI,0)),U,19) S:RAASK=""""!(""Yy""'[RAASK) Y=""@270"";@260;3;2T~;@270;Q;8//^S X=$S($P($G(^RADPTN(DA(1),""NUC"",DA,0)),""^"",5)]"""":$P(^(0),""^"",5),1:""NOW"");"
^DIE(1075,"DR",5,70.21,7)="9//^S X=$P(^VA(200,+$G(DUZ),0),U);@290;S:$P(RA00,U,6)="""" Y=""@310"";6;@310;S RAREM=""Note: 'RAASK' may not be defined, hit global for 'Prompt For Radiopharm RX'"";S:$P($G(^RAMIS(71,RAPRI,0)),""^"",19)'=""y"" Y=""@320"";10;@320;"
^DIE(1075,"DR",5,70.21,8)="S:$P(RA00,U,11)="""" Y=""@330"";11;@330;S:$P(RA00,U,12)="""" Y=""@335"";12;@335;S:'$D(@(DIE_DA_"",""""SITX"""")"")) Y=""@340"";12.5;@340;S:$P(RA00,U,13)="""" Y=""@350"";13;@350;S:$P(RA00,U,14)="""" Y=""@360"";14;@360;S:$P(RA00,U,15)="""" Y=""@500"";15;@500;"
^DIE(1075,"ROUOLD")="RACTEX"
^DIE(1076,0)="RA IMAGE PARAMETERS^2960223.1341^^79.2^^^2971030"
^DIE(1076,"%D",0)="^^1^1^2940607^"
^DIE(1076,"%D",1,0)="This template is used for entering parameters for an imaging location."
^DIE(1076,"DR",1,79.2)="W !!,""The following parameter applies to all divisions:"",!,""--------------------------------------------------"",!;S RA0=$G(^RA(79.2,DA,0));4//NORMAL;Q;"
^DIE(1076,"DR",1,79.2,1)="I $P(RA0,U,4)=$P($G(^RA(79.2,DA,0)),U,4) W !!,""No changes have occurred."",! S Y=""@99"";100///^S X=""""""NOW"""""";@99;K RA0;"
^DIE(1076,"DR",2,79.23)="2///^S X=""C"";3////^S X=DUZ;"
^DIE(1077,0)="RA ON-LINE CRITERIA^3030825.1005^^79.2^^^3050712"
^DIE(1077,"%D",0)="^^2^2^2940607^"
^DIE(1077,"%D",1,0)="This template is used to input data associated with the storing of"
^DIE(1077,"%D",2,0)="on-line data for an imaging location."
^DIE(1077,"DR",1,79.2)="W !!,""Please indicate how many days each type of data should remain on-line:"",!,""----------------------------------------------------------------------"";S RA1=$S($D(^RA(79.2,DA,.1)):^(.1),1:"""");.11//90;.12//90;.13//90;.14//90;Q;"
^DIE(1077,"DR",1,79.2,1)="S RA2=$S($D(^RA(79.2,DA,.1)):^(.1),1:"""") S:RA1=RA2 Y=""@99"";100///^S X=""""""NOW"""""";@99;K RA1,RA2;"
^DIE(1077,"DR",2,79.23)="2///^S X=""O"";3////^S X=DUZ;"
^DIE(1078,0)="RA OVERRIDE^2940323.131^^70^^^2971201"
^DIE(1078,"%D",0)="^^1^1^2940607^^"
^DIE(1078,"%D",1,0)="This template is used to override exams to complete."
^DIE(1078,"DR",1,70)="I '$D(RADTE)!('$D(RACN))!('$D(RAMDV))!('$D(RAIMGTY)) W !?3,*7,""You must have 'RACN','RAMDV','RAIMGTY' and 'RADTE' defined to continue!"" S Y=""@999"";2///^S X=RADTE;@999;K RAPOP,RAOVER,RASTAT;"
^DIE(1078,"DR",2,70.02)="50///^S X=RACN;"
^DIE(1078,"DR",3,70.03)="S RAOVER="""";S RASTAT=+$O(^RA(72,""AA"",RAIMGTY,9,0));3////^S X=RASTAT;100///^S X=""""""NOW"""""";S:'$P(RAMDV,""^"",10) Y=""@50"";75///^S X=""""""NOW"""""";@50;"
^DIE(1078,"DR",4,70.05)="S:'$P(RAMDV,U,11)!($D(RASTIEN)) Y=""@10"";.01;@10;2////^S X=RASTAT;3////^S X=DUZ;"
^DIE(1078,"DR",4,70.07)="2////^S X=""O"";3////^S X=DUZ;"
^DIE(1079,0)="RA LAST PAST VISIT^2940329.0819^^70^^^2970930"
^DIE(1079,"%D",0)="^^2^2^2940607^"
^DIE(1079,"%D",1,0)="This template is used when adding the last visit prior to implementing the"
^DIE(1079,"%D",2,0)="DHCP Radiology/Nuclear Medicine module."
^DIE(1079,"DR",1,70)="I '$D(RADTE)!('$D(RAMDIV))!('$D(RAMDV))!('$D(RAIMGTY)) W !?3,*7,""You must have 'RAMDIV','RAMDV','RAIMGTY' and 'RADTE' defined to continue!"" S Y=""@999"";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";2///^S X=RADTE;@999;"
^DIE(1079,"DR",1,70,1)="K RAOVER,RAPOP,RADTE,RADUZ;"
^DIE(1079,"DR",2,70.02)="2////^S X=$P(RAMLC,U,6);3////^S X=+RAMDIV;4////^S X=+RAMLC;S RAOVER="""";50///^S X=""N"";"
^DIE(1079,"DR",3,70.03)="2///^S X=RAPRC;3///^S X=$P(^RA(72,+$O(^RA(72,""AA"",RAIMGTY,9,0)),0),U,1);"
^DIE(1080,0)="RA DISTRIBUTION EDIT^2970724.0939^^74.3^^^2971024"
^DIE(1080,"%D",0)="^^1^1^2940607^^"
^DIE(1080,"%D",1,0)="This template is utilized in the Reports Distribution Edit option."
^DIE(1080,"DR",1,74.3)="75;2;125;"
^DIE(1081,0)="RA DISTRIBUTION LOG^2940124.1414^^74.3^^^2971124"
^DIE(1081,"%D",0)="^^2^2^2940607^^"
^DIE(1081,"%D",1,0)="This input template is used to input data into activity log"
^DIE(1081,"%D",2,0)="of the distribution queue."
^DIE(1081,"DR",1,74.3)="100///^S X=""""""NOW"""""";"
^DIE(1081,"DR",2,74.33)="2///^S X=$S($D(RABEG):""R"",1:""P"");3////^S X=DUZ;4///^S X=RARTMES;5///^S X=RARTCNT;"
^DIE(1082,0)="RA NO PURGE SPECIFICATION^2971112.1143^^70^^^2971112"
^DIE(1082,"%D",0)="^^1^1^2940607^^"
^DIE(1082,"%D",1,0)="This input template is used to set the no purge flag for an exam."
^DIE(1082,"DIAB",1,3,70.346,0)="ALL"
^DIE(1082,"DR",1,70)="I '$D(RADTE)!('$D(RACN))!('$D(RAMDV)) W !?3,*7,""You must have the variables for 'Case Number','Rad/Nuc Med Division' and 'Exam Date' defined to continue!"" S Y=""@999"";S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";2///^S X=RADTE;@999;"
^DIE(1082,"DR",1,70,1)="K RADTE,RACN,RAPOP;"
^DIE(1082,"DR",2,70.02)="50///^S X=RACN;"
^DIE(1082,"DR",3,70.03)="45;I X'=""n"" K RADTE,RACN,RAPOP S Y="""";46;100///^S X=""""""NOW"""""";"
^DIE(1082,"DR",4,70.07)="2////^S X=""N"";3////^S X=RADUZ;"
^DIE(1082,"DR",4,70.346)=".01"
^DIE(1083,0)="RA REGISTER^3060516.1039^^70^^^3060525"
^DIE(1083,"AB","1^RACTRG3",.01)="1^RACTRG4"
^DIE(1083,"AB","25^RACTRG6",2)="1^RACTRG7"
^DIE(1083,"AB","25^RACTRG6",2,"///")=""
^DIE(1083,"AB","30^RACTRG6",2)="1^RACTRG8"
^DIE(1083,"AB","30^RACTRG6",2,"///")=""
^DIE(1083,"AB","30^RACTRG6",3)="2^RACTRG8"
^DIE(1083,"AB","30^RACTRG6",3,"///")=""
^DIE(1083,"AB","3^RACTRG",2)="2^RACTRG1"
^DIE(1083,"AB","3^RACTRG",2,"///")=""
^DIE(1083,"AB","3^RACTRG",3)="3^RACTRG1"
^DIE(1083,"AB","3^RACTRG",3,"///")=""
^DIE(1083,"AB","3^RACTRG",4)="4^RACTRG1"
^DIE(1083,"AB","3^RACTRG",4,"///")=""
^DIE(1083,"AB","3^RACTRG",50)="6^RACTRG1"
^DIE(1083,"AB","3^RACTRG",50,"///")=""
^DIE(1083,"AB","4^RACTRG3",.01)="1^RACTRG5"
^DIE(1083,"AB","6^RACTRG1",2)="8^RACTRG2"
^DIE(1083,"AB","6^RACTRG1",3)="5^RACTRG2"
^DIE(1083,"AB","6^RACTRG1",3,"///")=""
^DIE(1083,"AB","6^RACTRG1",4)="13^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",6)="1^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",7)="7^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",8)="24^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",9)="19^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",9.5)="16^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",11)="9^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",11,"///")=""
^DIE(1083,"AB","6^RACTRG1",14)="10^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",14,"///")=""
^DIE(1083,"AB","6^RACTRG1",18)="11^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",18,"///")=""
^DIE(1083,"AB","6^RACTRG1",19)="13^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",21)="18^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",21,"///")=""
^DIE(1083,"AB","6^RACTRG1",22)="19^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",22,"///")=""
^DIE(1083,"AB","6^RACTRG1",26)="4^RACTRG2"
^DIE(1083,"AB","6^RACTRG1",26,"///")=""
^DIE(1083,"AB","6^RACTRG1",50)="25^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",50,"///")=""
^DIE(1083,"AB","6^RACTRG1",75)="30^RACTRG6"
^DIE(1083,"AB","6^RACTRG1",75,"///")=""
^DIE(1083,"AB","6^RACTRG1",100)="7^RACTRG9"
^DIE(1083,"AB","6^RACTRG1",100,"///")=""
^DIE(1083,"AB","6^RACTRG1",125)="1^RACTRG3"
^DIE(1083,"AB","6^RACTRG1",125,"///")=""
^DIE(1083,"AB","6^RACTRG1",500)="1^RACTRG9"
^DIE(1083,"AB","6^RACTRG1",500,"///")=""
^DIE(1083,"AB","6^RACTRG1","@100")="17^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@20")="12^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@200")="22^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@3")="7^RACTRG2"
^DIE(1083,"AB","6^RACTRG1","@30")="15^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@300")="27^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@3000")="13^RACTRG2"
^DIE(1083,"AB","6^RACTRG1","@350")="31^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@4")="17^RACTRG2"
^DIE(1083,"AB","6^RACTRG1","@40")="18^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@45")="21^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@450")="2^RACTRG9"
^DIE(1083,"AB","6^RACTRG1","@5")="23^RACTRG2"
^DIE(1083,"AB","6^RACTRG1","@50")="23^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@6")="3^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@60")="27^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@66")="3^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@68")="5^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@7")="5^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@700")="6^RACTRG9"
^DIE(1083,"AB","6^RACTRG1","@8")="8^RACTRG3"
^DIE(1083,"AB","6^RACTRG1","@80")="9^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@85")="11^RACTRG6"
^DIE(1083,"AB","6^RACTRG1","@95")="15^RACTRG6"
^DIE(1083,"AB","7^RACTRG9",2)="1^RACTRG10"
^DIE(1083,"AB","7^RACTRG9",2,"///")=""
^DIE(1083,"AB","7^RACTRG9",3)="2^RACTRG10"
^DIE(1083,"AB","7^RACTRG9",3,"///")=""
^DIE(1083,"AB","7^RACTRG9",4)="4^RACTRG10"
^DIE(1083,"AB","7^RACTRG9","@18")="8^RACTRG10"
^DIE(1083,"AB","^",2)="3^RACTRG"
^DIE(1083,"AB","^",2,"///")=""
^DIE(1083,"AB","^","@999")="4^RACTRG"
^DIE(1083,"AR",70.03,475)="1^RACTRG11"
^DIE(1083,"DIAB",1,2,70.03,9)="19;REQ"
^DIE(1083,"DIAB",1,3,70.1,0)="ALL"
^DIE(1083,"DIAB",3,2,70.03,6)="9.5//^S X=$S($D(RARSH):RARSH,1:"""");REQ"
^DIE(1083,"DIAB",3,2,70.03,7)="8//^S X=$S($D(RACLNC):RACLNC,1:"""");REQ"
^DIE(1083,"DIAB",3,2,70.03,8)="6;REQ"
^DIE(1083,"DIAB",6,2,70.03,6)="9//^S X=$S($D(RASHA):RASHA,1:"""");REQ"
^DIE(1083,"DIAB",8,2,70.03,0)="2//^S X=$S($D(RAPRC):RAPRC,1:"""");REQ"
^DIE(1083,"DIAB",9,2,70.03,8)="7;REQ"
^DIE(1083,"DR",1,70)="I '$D(RAMDV)!('$D(RAMLC))!('$D(RADTE))!('$D(RACAT))!('$D(RAOIFN))!('$D(RAIMGTY)) W !?3,*7,""Variables RAMDV,RAMLC,RADTE,RACAT,RAIMGTY and RAOIFN must be defined!"",! S Y=""@999"";"
^DIE(1083,"DR",1,70,1)="W !!?3,""...will now register "",RANME,"" with the next case number..."";2///^S X=RADTE;@999;S REM=""let calling rtn kill RAPOP,RAFM,RAFM1,RAI,RAMOD,RASTI,RACMTHOD,RANMFLG,RAIEN702"";"
^DIE(1083,"DR",2,70.02)="S RADTI=DA;2////^S X=$P(RAMLC,U,6);3////^S X=+RAMDIV;4////^S X=+RAMLC;Q;50///^S X=RACN;"
^DIE(1083,"DR",3,70.03)="S RACN=X,RACNI=DA;S RACMTHOD=$P(^RA(79.1,+$P(RAMLC,""^""),0),""^"",21);S RACMTHOD=$S(RACMTHOD]"""":RACMTHOD,1:0);26////^S X=RACMTHOD;3////^S X=$O(^RA(72,""AA"",RAIMGTY,1,0));S RASTI=X;@3;2R~//^S X=$S($D(RAPRC):RAPRC,1:"""");S RAPRI=X;"
^DIE(1083,"DR",3,70.03,1)="S RAPRI(0)=$G(^RAMIS(71,+RAPRI,0));I $P(RAMDV,U,7),($P(RAPRI(0),U,6)=""B"") S Y=""@3000"";S:$P($G(^RA(79,+$$DIVSION^RAUTL6(DT,+$P($G(^RAO(75.1,+RAOIFN,0)),""^"",22)),.1)),""^"",7)=""N""!($P(RAPRI(0),""^"",6)'=""B"") Y=""@4"";@3000;"
^DIE(1083,"DR",3,70.03,2)="W !?3,$C(7),""A 'detailed' procedure or a 'series' of procedures is required!"";2///@;S Y=""@3"";@4;S RAPX(RACNI)=RACN_""^""_^RAMIS(71,RAPRI,0);S REM=""don't copy proc mods for Series and Broad, 9/24/1999"";"
^DIE(1083,"DR",3,70.03,3)="S:$P(RAPX(RACNI),U,7)=""S"" Y=""@7"";S:$P(RAPX(RACNI),U,7)=""B"" Y=""@8"";S RAI=0,Y=$S('$D(RAPRC):""@6"",RAPRC'=$P(RAPX(RACNI),U,2):""@6"",1:""@5"");@5;S RAI=$O(^RAO(75.1,+RAOIFN,""M"",""B"",RAI)) S:'RAI Y=""@6"";"
^DIE(1083,"DR",3,70.03,4)="S RAMOD=$S($D(^RAMIS(71.2,RAI,0)):$P(^(0),U),1:-1) S:RAMOD<0 Y=""@6"";S:'$D(^RAMIS(71.2,""AB"",+$$ITYPE^RASITE(+$G(RAPRI)),RAI)) Y=""@5"";125///^S X=RAMOD;S Y=""@5"";@6;125;@7;D:$T(SETDEFS^RACPTMSC)]"""" SETDEFS^RACPTMSC;"
^DIE(1083,"DR",3,70.03,5)="S REM=""don't ask cpt mods after stuffing"";@8;11////^S X=RAOIFN;14////^S X=$S($D(RAPIFN):RAPIFN,1:"""");18////^S X=$S($P(RAPX(RACNI),U,15)]"""":$P(RAPX(RACNI),U,15),1:"""");@20;4//^S X=RACAT;"
^DIE(1083,"DR",3,70.03,6)="S RAX=$E(X),Y=$S(RAX=""I"":""@60"",RAX=""E"":""@45"",RAX=""R"":""@30"",""CS""[RAX:""@40"",1:""@50"") K RAX;@30;9.5R~//^S X=$S($D(RARSH):RARSH,1:"""");S Y=$S($D(RAWARD):""@60"",1:""@50"");@40;9R~//^S X=$S($D(RASHA):RASHA,1:"""");S Y=""@100"";@45;"
^DIE(1083,"DR",3,70.03,7)="S:$D(RAWARD) Y=""@60"";@50;8R~//^S X=$S($D(RACLNC):RACLNC,1:"""");S RACLNC=$P(^SC(X,0),U);S Y=""@100"";@60;S:'$D(RAWARD) RAWARD=""Unknown"" S:'$D(RASER) RASER=""Unknown"" S:'$D(RABED) RABED=""Unknown"";"
^DIE(1083,"DR",3,70.03,8)="W !?5,""Ward: "",RAWARD,""   Service: "",RASER,""  Bedsection: "",RABED;I RAWARD'=""Unknown"" S Y=""@66"";6R~;S Y=""@68"";@66;6///^S X=RAWARD;@68;I RASER'=""Unknown"" S Y=""@80"";7R~;S Y=""@85"";@80;7///^S X=RASER;@85;I RABED'=""Unknown"" S Y=""@95"";"
^DIE(1083,"DR",3,70.03,9)="19R~;S Y=""@100"";@95;19///^S X=RABED;@100;21////^S X=$S($D(RARDTE):RARDTE,1:"""");22////^S X=$S($D(RALIFN):RALIFN,1:"""");I '$D(^RAMIS(71,RAPRI,""F"",0)) S Y=""@300"";S RAI=0;@200;"
^DIE(1083,"DR",3,70.03,10)="S RAI=$O(^RAMIS(71,RAPRI,""F"",RAI)) S:RAI'>0!('$D(^(+RAI,0))) Y=""@300"";"
^DIE(1083,"DR",3,70.03,11)="S RAFM(1)=+^RAMIS(71,RAPRI,""F"",RAI,0),RAFM1=+$P(^(0),U,2),RAFM=$S($D(^RA(78.4,RAFM(1),0)):$P(^(0),U),1:-1),RAFM=$S('$D(^(""I"")):RAFM,'^(""I""):RAFM,1:-1) S:RAFM<0 Y=""@200"";50///^S X=RAFM;S Y=""@200"";@300;"
^DIE(1083,"DR",3,70.03,12)="S RAPOP=0 D USER^RAUTL S:RAPOP Y=""@999"";S:'$P(RAMDV,U,10) Y=""@350"";75///^S X=""""""NOW"""""";@350;S RANMFLG=0;S:'$D(RAIMGTYI) RAIMGTYI=$O(^RA(79.2,""B"",RAIMGTY,0));S:$P($G(^RA(79.2,+$G(RAIMGTYI),0)),""^"",5)=""Y"" RANMFLG=1;"
^DIE(1083,"DR",3,70.03,13)="S:'RANMFLG Y=""@450"";S:'$O(^RAMIS(71,RAPRI,""NUC"",0)) Y=""@450"";S REM=""is this proc's ASK RADIOPHARMACEUTICAL = NEVER ?"";S:$P(^RAMIS(71,RAPRI,0),U,2)=1 Y=""@450"";S REM=""en1^ranmpt1 will stuff default radiopharms during registration"";"
^DIE(1083,"DR",3,70.03,14)="S RAIEN702=$$EN1^RANMPT1(RADFN,RADTE,RACN);S:RAIEN702=-1 Y=""@450"";500////^S X=RAIEN702;@450;S:'$O(^RAMIS(71,RAPRI,""P"",0)) Y=""@700"";S REM=""en2^ranmpt1 will stuff default meds"";D EN2^RANMPT1(RADFN,RADTI,RACNI);@700;"
^DIE(1083,"DR",3,70.03,15)="100///^S X=""""""NOW"""""";"
^DIE(1083,"DR",4,70.04)="2///^S X=RAFM1;"
^DIE(1083,"DR",4,70.05)="2////^S X=RASTI;3////^S X=RADUZ;"
^DIE(1083,"DR",4,70.07)="2///^S X=""E"";3////^S X=RADUZ;S RATCXX=$$GETTCOM^RAUTL11(RADFN,RADTI,RACNI);4//^S X=RATCXX;S:RATCXX'=X Y=""@18"";4///@;K ^RADPT(RADFN,""DT"",RADTI,""P"",RACNI,""L"",DA,""TCOM"");@18;K RATCXX S RAFIN="""";"
^DIE(1083,"DR",4,70.1)=".01"
^DIE(1083,"ROU")="^RACTRG"
^DIE(1083,"ROUOLD")="RACTRG"
^DIE(1084,0)="RA OERR EDIT^2970502.1509^^75.1^^^2970929"
^DIE(1084,"%D",0)="^^1^1^2940607^"
^DIE(1084,"%D",1,0)="This template is used for the editing of imaging requests."
^DIE(1084,"DIAB",1,0,75.1,6)="9//^S X=$S($D(RASHA):RASHA,1:"""");REQ"
^DIE(1084,"DIAB",1,1,75.1125,0)="ALL"
^DIE(1084,"DIAB",2,0,75.1,2)="8;REQ"
^DIE(1084,"DIAB",4,0,75.1,0)="2;REQ"
^DIE(1084,"DIAB",4,0,75.1,5)="4;REQ"
^DIE(1084,"DIAB",6,0,75.1,13)="24//^S X=""NO"";T"
^DIE(1084,"DIAB",6,0,75.1,14)="20;""SUBMIT REQUEST TO"";REQ"
^DIE(1084,"DIAB",7,0,75.1,5)="9.5//^S X=$S($D(RARSH):RARSH,1:"""");REQ"
^DIE(1084,"DR",1,75.1)="I '$D(RACAT)!('$D(RADFN))!('$D(RADIV))!('$D(RALIFN))!('$D(RAPIFN)) W !?3,*7,""Variables RACAT,RADFN,RADIV,RALIFN and RAPIFN must be defined!"" S Y=""@999"";W !;@1;2R~;S RAPRI=X;S RAIMAG=$$ITYPE^RASITE(+RAPRI);"
^DIE(1084,"DR",1,75.1,1)="S Y=$S('$D(^RA(79,+RADIV,.1)):""@5"",$P(^(.1),""^"",7)=""Y""&($P(^RAMIS(71,RAPRI,0),""^"",6)=""B""):""@3"",1:""@5"");@3;W !?3,*7,""A 'detailed' procedure or a 'series' of procedures is required!"";2///@;K RAPRI,RAIMAG;S Y=""@1"";@5;"
^DIE(1084,"DR",1,75.1,2)="I $P(^RAMIS(71,RAPRI,0),""^"",11)'=""y"" S Y=""@8"";8R~;@8;125;@9;3////^S X=$P(RAIMAG,U);"
^DIE(1084,"DR",1,75.1,3)="I $D(RAVSTFLG),$D(RAVLEDTI),$D(RAVLECNI),$D(^RADPT(RADFN,""DT"",RAVLEDTI,""P"",RAVLECNI,""H"")) S:$D(^(""H"",0)) ^RAO(75.1,DA,""H"",0)=^(0) F RAI=1:1 Q:'$D(^RADPT(RADFN,""DT"",RAVLEDTI,""P"",RAVLECNI,""H"",RAI,0))  S ^RAO(75.1,DA,""H"",RAI,0)=^(0);"
^DIE(1084,"DR",1,75.1,4)="I $D(^RA(79,+RADIV,""HIS"")) W !!?3,*7,^(""HIS""),!;@10;400;I '$D(^RAO(75.1,DA,""H"")) W !?3,*7,""Please enter a clinical history which corresponds to this request!"" S Y=""@10"";"
^DIE(1084,"DR",1,75.1,5)="I $O(^RAO(75.1,DA,""H"",0)) D UPDT^RAUTL3(""^RAO(75.1,""_DA_"",""""H"""","");14////^S X=RAPIFN;@20;4R~;S RAX=$E(X,1),Y=$S(RAX=""R"":""@30"",""CS""[RAX:""@40"",1:""@50"");@30;9.5R~//^S X=$S($D(RARSH):RARSH,1:"""");S Y=""@50"";@40;"
^DIE(1084,"DR",1,75.1,6)="9R~//^S X=$S($D(RASHA):RASHA,1:"""");@50;S RAX=$P(^RAO(75.1,+DA,0),U,4);S RALIFN=+$P(^RAO(75.1,DA,0),U,22);"
^DIE(1084,"DR",1,75.1,7)="I RAX=""I"",$P($G(^SC(+RALIFN,0)),U,3)'=""W"",($P($G(^SC(+RALIFN,0)),U,3)'=""OR"") S RAWHEN=$P(^RAO(75.1,DA,0),U,21),RAWHEN=$S(RAWHEN]"""":$P(RAWHEN,""."",1),1:DT) D REQLOC1^RAORD1A K RAWHEN;"
^DIE(1084,"DR",1,75.1,8)="I RAX=""O"",$P($G(^SC(+RALIFN,0)),U,3)'=""C"",($P($G(^SC(+RALIFN,0)),U,3)'=""OR"") D REQLOC1^RAORD1A;I '$D(RALIFN(""OUT"")) S Y=""@60"";K RALIFN(""OUT"");4////^S X=$E(RACAT);S Y=""@20"";@60;22////^S X=RALIFN;@100;"
^DIE(1084,"DR",1,75.1,9)="W !,""IS PATIENT SCHEDULED FOR PRE-OP"" S %=2 D YN^DICN S:%<0 Y=""@999"" S:%=2 Y=""@120"" I '% W !!,""Enter 'YES' if patient is scheduled for pre-op, or 'NO' if not."",! S Y=""@100"";12//^S X=""TODAY"";@120;"
^DIE(1084,"DR",1,75.1,10)="S RASEX=$S('$D(^DPT(RADFN,0)):"""",1:$P(^(0),""^"",2)) S:RASEX=""M"" Y=""@130"";"
^DIE(1084,"DR",1,75.1,11)="I RASEX'=""F"" W !,""THE SEX OF THIS PATIENT IS NOT AVAILABLE. IS PATIENT FEMALE"" S %=2 D YN^DICN S:%<0 Y=""@999"" S:%=2 Y=""@130"" I '% W !!,""Enter 'YES' if patient is female, or 'NO' if patient is male."",! S Y=""@120"";S RASEX=""F"";13;"
^DIE(1084,"DR",1,75.1,12)="@130;I '$D(RAVSTFLG)!('$D(RAVLEDTI)) S Y=""@135"";17///^S X=9999999.9999-RAVLEDTI;@135;@140;I '$D(RARDTE) S Y=""@145"";21////^S X=RARDTE;@145;21//^S X=""TODAY"";@150;5////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);18///^S X=""NOW"";"
^DIE(1084,"DR",1,75.1,13)="S Y=$S('$D(^RA(79,+RADIV,.1)):""@160"",$P(^(.1),""^"",19)=""y"":""@155"",1:""@160"");@155;75///^S X=""""""NOW"""""";@160;19//^S X=""AMBULATORY"";24T~//^S X=""NO"";6//^S X=""ROUTINE"";I '$D(RALOCFLG) S Y=""@175"";S RAREQLOC=$$ILOC^RAUTL18(RAPRI);"
^DIE(1084,"DR",1,75.1,14)="I 'RAREQLOC S Y=""@170"";20////^S X=RAREQLOC;S Y=""@175"";@170;W !;20R~SUBMIT REQUEST TO~;@175;S RAFIN="""";@999;K RAI,RASEX,RAPRI,RAIMAG,RAREQLOC;"
^DIE(1084,"DR",2,75.1125)=".01"
^DIE(1084,"DR",2,75.12)="2////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);3////^S X=DUZ;"
^DIE(1085,0)="RA COMMON PROCEDURE EDIT^2970522.1323^^71.3^^^2980311"
^DIE(1085,"%D",0)="^^2^2^2941026^"
^DIE(1085,"%D",1,0)="This template is used to set up and change the common procedure display"
^DIE(1085,"%D",2,0)="that is shown while requesting an exam."
^DIE(1085,"DIAB",1,1,71.312,0)="ALL"
^DIE(1085,"DIAB",4,0,71.3,0)="4;""INACTIVATE FROM LIST"""
^DIE(1085,"DR",1,71.3)="S RA713=$G(^RAMIS(71.3,D0,0));.01;@10;4INACTIVATE FROM LIST~;S RAXX=X;S:$P(RA713,""^"",5)=""Y""&($E(RAXX)="""") Y=$$INACOM^RADD2(D0);K RA713;@15;I RAXX=""Y"" S Y=""@20"";K RAXX;3//^S X=$S($G(RALOW):RALOW,1:"""");I X]"""" S Y=""@30"";@20;3///@;@30;"
^DIE(1085,"DR",1,71.3,1)="I $$ORVR^RAORDU()>2.5 S Y=""@40"";S %=2 W !!,""Do you wish to establish this procedure as a quick order item in OE/RR"" D YN^DICN S RAZ=%;"
^DIE(1085,"DR",1,71.3,2)="I RAZ=0 W !,""Press return if you wish to edit the fields necessary to establish this"",!,""procedure as an orderable item in the OE/RR system."" S Y=""@30"";I RAZ'=1 S Y=""@40"";W !;13;12;8;6;7;9;10;11;@40;K RAZ;"
^DIE(1085,"DR",2,71.312)=".01"
^DIE(1086,0)="RA QUICK EXAM ORDER^3070723.1118^^75.1^^^3080227"
^DIE(1086,"%D",0)="^^2^2^2940607^"
^DIE(1086,"%D",1,0)="This template is used in conjunction with OE/RR for ordering imaging"
^DIE(1086,"%D",2,0)="exams."
^DIE(1086,"AB","22^RACTQE",.01)="1^RACTQE1"
^DIE(1086,"AB","5^RACTQE3",2)="1^RACTQE4"
^DIE(1086,"AB","5^RACTQE3",2,"///")=""
^DIE(1086,"AB","5^RACTQE3",3)="2^RACTQE4"
^DIE(1086,"AB","5^RACTQE3",3,"///")=""
^DIE(1086,"AB","^",1.1)="7^RACTQE2"
^DIE(1086,"AB","^",1.1,"///")=""
^DIE(1086,"AB","^",2)="2^RACTQE"
^DIE(1086,"AB","^",2,"///")=""
^DIE(1086,"AB","^",3)="31^RACTQE2"
^DIE(1086,"AB","^",3,"///")=""
^DIE(1086,"AB","^",4)="26^RACTQE"
^DIE(1086,"AB","^",4,"///")=""
^DIE(1086,"AB","^",5)="3^RACTQE3"
^DIE(1086,"AB","^",5,"///")=""
^DIE(1086,"AB","^",6)="11^RACTQE3"
^DIE(1086,"AB","^",6,"///")=""
^DIE(1086,"AB","^",8)="14^RACTQE"
^DIE(1086,"AB","^",12)="1^RACTQE2"
^DIE(1086,"AB","^",12,"///")=""
^DIE(1086,"AB","^",13)="4^RACTQE2"
^DIE(1086,"AB","^",13,"///")=""
^DIE(1086,"AB","^",14)="1^RACTQE3"
^DIE(1086,"AB","^",14,"///")=""
^DIE(1086,"AB","^",18)="4^RACTQE3"
^DIE(1086,"AB","^",18,"///")=""
^DIE(1086,"AB","^",19)="7^RACTQE3"
^DIE(1086,"AB","^",19,"///")=""
^DIE(1086,"AB","^",20)="18^RACTQE2"
^DIE(1086,"AB","^",20,"///")=""
^DIE(1086,"AB","^",21)="11^RACTQE2"
^DIE(1086,"AB","^",22)="2^RACTQE3"
^DIE(1086,"AB","^",22,"///")=""
^DIE(1086,"AB","^",24)="9^RACTQE3"
^DIE(1086,"AB","^",24,"///")=""
^DIE(1086,"AB","^",26)="13^RACTQE3"
^DIE(1086,"AB","^",26,"///")=""
^DIE(1086,"AB","^",75)="5^RACTQE3"
^DIE(1086,"AB","^",75,"///")=""
^DIE(1086,"AB","^",125)="22^RACTQE"
^DIE(1086,"AB","^",125,"///")=""
^DIE(1086,"AB","^","@10")="5^RACTQE"
^DIE(1086,"AB","^","@20")="11^RACTQE"
^DIE(1086,"AB","^","@23")="15^RACTQE"
^DIE(1086,"AB","^","@25")="18^RACTQE"
^DIE(1086,"AB","^","@30")="23^RACTQE"
^DIE(1086,"AB","^","@35")="25^RACTQE"
^DIE(1086,"AB","^","@40")="2^RACTQE2"
^DIE(1086,"AB","^","@50")="5^RACTQE2"
^DIE(1086,"AB","^","@550")="13^RACTQE2"
^DIE(1086,"AB","^","@560")="15^RACTQE2"
^DIE(1086,"AB","^","@60")="20^RACTQE2"
^DIE(1086,"AB","^","@62")="25^RACTQE2"
^DIE(1086,"AB","^","@67")="28^RACTQE2"
^DIE(1086,"AB","^","@70")="30^RACTQE2"
^DIE(1086,"AB","^","@80")="14^RACTQE3"
^DIE(1086,"AB","^","@99")="16^RACTQE3"
^DIE(1086,"DIAB",1,1,75.1125,0)="ALL"
^DIE(1086,"DIAB",2,0,75.1,5)="21//^S X=RAWHEN;REQ"
^DIE(1086,"DIAB",3,0,75.1,1)="8;REQ"
^DIE(1086,"DIAB",3,0,75.1,6)="20;""SUBMIT REQUEST TO"";REQ"
^DIE(1086,"DIAB",4,0,75.1,4)="21;REQ"
^DIE(1086,"DR",1,75.1)="I '$D(RAPRI) S Y=""@10"";2////^S X=RAPRI;S RAIMAG=$$ITYPE^RASITE(+RAPRI);S Y=""@20"";@10;D ^RAPRI;S:'$D(RAPRI) Y=""@99"";S:$E(RAPRI)=""^""!('RAPRI) Y=""@99"";2////^S X=RAPRI;S RAIMAG=$$ITYPE^RASITE(+RAPRI);@20;"
^DIE(1086,"DR",1,75.1,1)="I $O(^RAMIS(71,RAPRI,3,0)) D EN2^RAPRI;I $S('$D(^RAMIS(71,RAPRI,0)):1,1:$P(^(0),""^"",11)'=""y"") S Y=""@23"";8R~;@23;I '$D(RAMOD) S Y=""@35"";S RAI="""";@25;S RAI=$O(RAMOD(0)) I 'RAI S Y=""@35"";"
^DIE(1086,"DR",1,75.1,2)="S RAMODPRO=+$O(^RAMIS(71.2,""B"",$G(RAMOD(RAI)),0));S:'$D(^RAMIS(71.2,""AB"",+$$ITYPE^RASITE(RAPRI),RAMODPRO)) Y=""@30"";125///^S X=RAMOD(RAI);@30;K RAMOD(RAI) S Y=""@25"";@35;4////^S X=$E(RACAT);I '$D(RAPREOP1) S Y=""@40"";"
^DIE(1086,"DR",1,75.1,3)="12///^S X=RAPREOP1;@40;I '$D(RAPREG) S Y=""@50"";13///^S X=RAPREG;@50;S RACOMENT=""reason for study is required, clinical history is not with the release of 75"" K RACOMENT;1.1////^S X=RAREAST;"
^DIE(1086,"DR",1,75.1,4)="I $O(^TMP($J,""RAWP"",0)) S ^RAO(75.1,DA,""H"",0)=^(0) F RAI=1:1 Q:'$D(^TMP($J,""RAWP"",RAI,0))  S ^RAO(75.1,DA,""H"",RAI,0)=^(0);I $O(^RAO(75.1,DA,""H"",0)) D UPDT^RAUTL3(""^RAO(75.1,""_DA_"",""""H"""","");S:$D(RAWHEN)#2 Y=""@550"";21R~;S Y=""@560"";"
^DIE(1086,"DR",1,75.1,5)="@550;21R~//^S X=RAWHEN;@560;S:$D(RAEXMUL)#2 RAWHEN=$$FMTE^XLFDT(X,1);I $S('$D(RAILOC):1,'RAILOC:1,1:0) S Y=""@60"";20////^S X=RAILOC;S Y=""@70"";@60;S RAREQLOC=$$ILOC^RAUTL18(RAPRI);I 'RAREQLOC S Y=""@62"";20////^S X=RAREQLOC;S Y=""@67"";"
^DIE(1086,"DR",1,75.1,6)="@62;I '$D(RALOCFLG) S Y=""@70"";20R~SUBMIT REQUEST TO~;@67;S:$D(RAEXMUL) RAILOC=X;@70;3////^S X=$P(RAIMAG,U);14////^S X=RAPIFN;22////^S X=RALIFN;5////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);18///^S X=""NOW"";"
^DIE(1086,"DR",1,75.1,7)="75///^S X=""""""NOW"""""";I '$D(RAMT) S RAMT=""a"";19////^S X=$P(RAMT,""^"");I '$D(RAIP) S RAIP=""n"";24////^S X=RAIP;I '$D(RARU) S RARU=9;6////^S X=RARU;S:$$ORVR^RAORDU()<3 Y=""@80"";26////s;@80;S RAFIN=1;@99;"
^DIE(1086,"DR",1,75.1,8)="K RAI,RAPRI,RAMOD,RAIMAG,RAREQLOC,RAMODPRO;"
^DIE(1086,"DR",2,75.1125)=".01"
^DIE(1086,"DR",2,75.12)="2////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);3////^S X=DUZ;"
^DIE(1086,"ROU")="^RACTQE"
^DIE(1086,"ROUOLD")="RACTQE"
^DIE(1087,0)="RA ORDER EXAM^3070724.1412^^75.1^^^3080213"
^DIE(1087,"%D",0)="^.4021^1^1^3070206^^^"
^DIE(1087,"%D",1,0)="This template is used to request an imaging exam."
^DIE(1087,"AB","12^RACTOE4",2)="1^RACTOE5"
^DIE(1087,"AB","12^RACTOE4",2,"///")=""
^DIE(1087,"AB","12^RACTOE4",3)="2^RACTOE5"
^DIE(1087,"AB","12^RACTOE4",3,"///")=""
^DIE(1087,"AB","19^RACTOE",.01)="1^RACTOE1"
^DIE(1087,"AB","23^RACTOE",.01)="1^RACTOE2"
^DIE(1087,"AB","^",1.1)="27^RACTOE"
^DIE(1087,"AB","^",2)="2^RACTOE"
^DIE(1087,"AB","^",3)="25^RACTOE"
^DIE(1087,"AB","^",3,"///")=""
^DIE(1087,"AB","^",4)="10^RACTOE3"
^DIE(1087,"AB","^",5)="8^RACTOE4"
^DIE(1087,"AB","^",5,"///")=""
^DIE(1087,"AB","^",6)="18^RACTOE4"
^DIE(1087,"AB","^",8)="11^RACTOE"
^DIE(1087,"AB","^",9)="16^RACTOE3"
^DIE(1087,"AB","^",9.5)="13^RACTOE3"
^DIE(1087,"AB","^",12)="21^RACTOE3"
^DIE(1087,"AB","^",13)="27^RACTOE3"
^DIE(1087,"AB","^",14)="9^RACTOE3"
^DIE(1087,"AB","^",14,"///")=""
^DIE(1087,"AB","^",17)="31^RACTOE3"
^DIE(1087,"AB","^",17,"///")=""
^DIE(1087,"AB","^",18)="9^RACTOE4"
^DIE(1087,"AB","^",18,"///")=""
^DIE(1087,"AB","^",19)="14^RACTOE4"
^DIE(1087,"AB","^",20)="26^RACTOE4"
^DIE(1087,"AB","^",20,"///")=""
^DIE(1087,"AB","^",21)="1^RACTOE4"
^DIE(1087,"AB","^",22)="18^RACTOE3"
^DIE(1087,"AB","^",22,"///")=""
^DIE(1087,"AB","^",24)="16^RACTOE4"
^DIE(1087,"AB","^",26)="21^RACTOE4"
^DIE(1087,"AB","^",75)="12^RACTOE4"
^DIE(1087,"AB","^",75,"///")=""
^DIE(1087,"AB","^",125)="19^RACTOE"
^DIE(1087,"AB","^",125,"///")=""
^DIE(1087,"AB","^",400)="1^RACTOE3"
^DIE(1087,"AB","^","@1")="6^RACTOE"
^DIE(1087,"AB","^","@10")="31^RACTOE"
^DIE(1087,"AB","^","@100")="19^RACTOE3"
^DIE(1087,"AB","^","@120")="23^RACTOE3"
^DIE(1087,"AB","^","@130")="29^RACTOE3"
^DIE(1087,"AB","^","@135")="32^RACTOE3"
^DIE(1087,"AB","^","@145")="3^RACTOE4"
^DIE(1087,"AB","^","@15")="8^RACTOE3"
^DIE(1087,"AB","^","@150")="6^RACTOE4"
^DIE(1087,"AB","^","@155")="11^RACTOE4"
^DIE(1087,"AB","^","@160")="13^RACTOE4"
^DIE(1087,"AB","^","@163")="22^RACTOE4"
^DIE(1087,"AB","^","@165")="28^RACTOE4"
^DIE(1087,"AB","^","@170")="2^RACTOE6"
^DIE(1087,"AB","^","@175")="4^RACTOE6"
^DIE(1087,"AB","^","@2")="8^RACTOE"
^DIE(1087,"AB","^","@3")="12^RACTOE"
^DIE(1087,"AB","^","@30")="12^RACTOE3"
^DIE(1087,"AB","^","@40")="15^RACTOE3"
^DIE(1087,"AB","^","@5")="15^RACTOE"
^DIE(1087,"AB","^","@50")="17^RACTOE3"
^DIE(1087,"AB","^","@7")="22^RACTOE"
^DIE(1087,"AB","^","@8")="20^RACTOE"
^DIE(1087,"AB","^","@9")="24^RACTOE"
^DIE(1087,"AB","^","@999")="6^RACTOE6"
^DIE(1087,"DIAB",1,1,75.1125,0)="ALL"
^DIE(1087,"DIAB",2,0,75.1,0)="2//^S X=$S($D(^RAMIS(71,RAPRI,0)):$P(^(0),U),1:"""");REQ"
^DIE(1087,"DIAB",2,0,75.1,9)="12//^S X=""TODAY"";T"
^DIE(1087,"DIAB",3,0,75.1,2)="8;REQ"
^DIE(1087,"DIAB",3,0,75.1,8)="9.5//^S X=$S($D(RARSH):RARSH,1:"""");REQ"
^DIE(1087,"DIAB",3,0,75.1,14)="24//^S X=""NO"";T"
^DIE(1087,"DIAB",6,0,75.1,8)="9//^S X=$S($D(RASHA):RASHA,1:"""");REQ"
^DIE(1087,"DIAB",7,0,75.1,15)="20;""SUBMIT REQUEST TO"";REQ"
^DIE(1087,"DIAB",8,0,75.1,12)="21;REQ"
^DIE(1087,"DIAB",12,0,75.1,12)="21//^S X=RAWHEN;REQ"
^DIE(1087,"DR",1,75.1)="I '$D(RACAT)!('$D(RADFN))!('$D(RADIV))!('$D(RALIFN))!('$D(RAPIFN)) W !?3,$C(7),""Variables RACAT,RADFN,RADIV,RALIFN and RAPIFN must be defined!"" S Y=""@999"";2R~//^S X=$S($D(^RAMIS(71,RAPRI,0)):$P(^(0),U),1:"""");S RAPRI=X;"
^DIE(1087,"DR",1,75.1,1)="S RAIMAG=$$ITYPE^RASITE(+RAPRI);S Y=$S('$D(^RA(79,+RADIV,.1)):""@2"",$P(^(.1),""^"",7)=""Y""&($P(^RAMIS(71,RAPRI,0),""^"",6)=""B""):""@1"",1:""@2"");@1;W !?3,$C(7),""A 'detailed' procedure or a 'series' of procedures is required!"" S Y="""";@2;"
^DIE(1087,"DR",1,75.1,2)="I $O(^RAMIS(71,RAPRI,3,0)) D EN2^RAPRI;I $P(^RAMIS(71,RAPRI,0),""^"",11)'=""y"" S Y=""@3"";8R~;@3;I '$D(RAMOD) S Y=""@7"";S RAI="""";@5;S RAI=$O(RAMOD(0)) I 'RAI S Y=""@7"";S RAMODPRO=+$O(^RAMIS(71.2,""B"",$G(RAMOD(RAI)),0));"
^DIE(1087,"DR",1,75.1,3)="S:'$D(^RAMIS(71.2,""AB"",+$$ITYPE^RASITE(RAPRI),RAMODPRO)) Y=""@8"";125///^S X=RAMOD(RAI);@8;K RAMOD(RAI) S Y=""@5"";@7;125;@9;3////^S X=$P(RAIMAG,U);S RACOMENT=""reason for study (RAREAST) is required with patch 75"" K RACOMENT;"
^DIE(1087,"DR",1,75.1,4)="1.1//^S X=RAREAST;S RACOMENT=""Clinical History is not longer required with patch 75."" K RACOMENT;I $D(^RA(79,+RADIV,""HIS"")) W !!?3,$C(7),^(""HIS""),!;"
^DIE(1087,"DR",1,75.1,5)="I $O(^TMP($J,""RAWP"",0)) S ^RAO(75.1,DA,""H"",0)=^(0) F RAI=1:1 Q:'$D(^TMP($J,""RAWP"",RAI,0))  S ^RAO(75.1,DA,""H"",RAI,0)=^(0);@10;400;I $D(DIRUT) S Y=""@999"";S:+$O(^RAO(75.1,DA,""H"",0))=0 Y=""@15"";"
^DIE(1087,"DR",1,75.1,6)="S RAWPFLAG=$$VALWP^RAUTL5(""^RAO(75.1,""_DA_"",""""H"""","");I 'RAWPFLAG W !!?3,$C(7),""Text must be at least two (2) alphanumeric characters in length."",! S Y=""@10"";"
^DIE(1087,"DR",1,75.1,7)="I $P($G(^RAO(75.1,DA,""H"",0)),U,3)>350 W ?3,$C(7),""Clinical History cannot exceed 350 lines!"" S Y=""@10"";I $O(^RAO(75.1,DA,""H"",0)) D UPDT^RAUTL3(""^RAO(75.1,""_DA_"",""""H"""","");@15;14////^S X=RAPIFN;4//^S X=RACAT;"
^DIE(1087,"DR",1,75.1,8)="S Y=$E(X),Y=$S(Y=""R"":""@30"",(Y'="""")&(""CS""[Y):""@40"",1:""@50"");@30;9.5R~//^S X=$S($D(RARSH):RARSH,1:"""");S Y=""@50"";@40;9R~//^S X=$S($D(RASHA):RASHA,1:"""");@50;22////^S X=RALIFN;@100;"
^DIE(1087,"DR",1,75.1,9)="W !,""IS PATIENT SCHEDULED FOR PRE-OP"" S %=2 D YN^DICN S:%<0 Y=""@999"" S:%=2 Y=""@120"" I '% W !!,""Enter 'YES' if patient is scheduled for pre-op, or 'NO' if not."",! S Y=""@100"";12T~//^S X=""TODAY"";S:$D(RAEXMUL) RAPREOP1=X;@120;"
^DIE(1087,"DR",1,75.1,10)="I RASEX=""M"" S Y=""@130"";"
^DIE(1087,"DR",1,75.1,11)="I RASEX'=""F"" W !,""THE SEX OF THIS PATIENT IS NOT AVAILABLE. IS PATIENT FEMALE"" S %=2 D YN^DICN S:%<0 Y=""@999"" S:%=2 Y=""@130"" I '% W !!,""Enter 'YES' if patient is female, or 'NO' if patient is male."",! S Y=""@120"";S RASEX=""F"";"
^DIE(1087,"DR",1,75.1,12)="13//^S X=$S($D(RAPREG):$$EXTERNAL^DILFD(75.1,13,"""",RAPREG),1:"""");S RAPREG=X;@130;I '$D(RAVSTFLG)!('$D(RAVLEDTI)) S Y=""@135"";17///^S X=9999999.9999-RAVLEDTI;@135;S:$D(RAWHEN)#2 Y=""@145"";21R~;S Y=""@150"";@145;Q;21R~//^S X=RAWHEN;@150;"
^DIE(1087,"DR",1,75.1,13)="S:$D(RAEXMUL)#2 RAWHEN=$$FMTE^XLFDT(X,1);5////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);18///^S X=""NOW"";S Y=$S('$D(^RA(79,+RADIV,.1)):""@160"",$P(^(.1),""^"",19)=""y"":""@155"",1:""@160"");@155;75///^S X=""""""NOW"""""";@160;"
^DIE(1087,"DR",1,75.1,14)="19//^S X=$S($D(RAMT):$P(RAMT,""^"",2),1:""AMBULATORY"");S:$D(RAEXMUL) RAMT=X;24T~//^S X=""NO"";S:$D(RAEXMUL) RAIP=X;6//^S X=""ROUTINE"";S:$D(RAEXMUL) RARU=X;S:$$ORVR^RAORDU()<3 Y=""@163"";26//^S X=""SERVICE CORRECTION"";@163;W !;"
^DIE(1087,"DR",1,75.1,15)="S RAREQLOC=$$ILOC^RAUTL18(RAPRI);I 'RAREQLOC S Y=""@165"";20////^S X=RAREQLOC;S Y=""@170"";@165;I '$D(RALOCFLG) S Y=""@175"";20R~SUBMIT REQUEST TO~;@170;S:$D(RAEXMUL) RAILOC=X;@175;S (RAFIN,RAFIN1)="""";@999;"
^DIE(1087,"DR",1,75.1,16)="K RAI,RAPRI,RAMOD,RAIMAG,RAWPFLAG,RAREQLOC,RAMODPRO;"
^DIE(1087,"DR",2,75.1125)=".01"
^DIE(1087,"DR",2,75.12)="2////^S X=$S($D(RAPKG):5,$$ORVR^RAORDU()=2.5:11,1:5);3////^S X=DUZ;"
^DIE(1087,"ROU")="^RACTOE"
^DIE(1087,"ROUOLD")="RACTOE"
^DIE(1088,0)="RA PRE-VERIFY REPORT EDIT^3010301.0932^^74^^^3010424"
^DIE(1088,"DR",1,74)="I '$D(RACT) W !?3,*7,""Variable RACT must be defined to continue!"" S Y=""@99"";S:RACT'=""I"" Y=""@10"";6///^S X=""NOW"";11////^S X=DUZ;@10;S RATRSC=$P(^RARPT(DA,""T""),U);"
^DIE(1088,"DR",1,74,1)="I $D(RARPDT) I (RADTE\1)>(2_$E(RARPDT,7,8)_$E(RARPDT,1,2)_$E(RARPDT,4,5)) K RARPDT;8//^S X=$S($D(RARPDT):RARPDT,1:"""");S:X?7N RARPDT=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3);@15;100///^S X=""""""NOW"""""";"
^DIE(1088,"DR",1,74,2)="W !,""------------------------------------------------------------------------------"";@1;D CHPRINT^RAUTL9;400;S RANODE=""H"";I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1088,"DR",1,74,3)="W !,""------------------------------------------------------------------------------"";@2;200;S RANODE=""R"" D EXIST^RAUTL9;I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1088,"DR",1,74,4)="W !,""------------------------------------------------------------------------------"";@3;300;S RANODE=""I"" D EXIST^RAUTL9;I $O(^RARPT(DA,RANODE,0)) D UPDT^RAUTL3(""^RARPT(""_DA_"",""""""_RANODE_"""""","");"
^DIE(1088,"DR",1,74,5)="W !,""------------------------------------------------------------------------------"";S:$O(^RARPT(DA,""I"",0))>0 Y=""@99"";"
^DIE(1088,"DR",1,74,6)="I $D(^RADPT(+$P(^RARPT(DA,0),U,2),""DT"",(9999999.9999-$P(^RARPT(DA,0),U,3)),0)),$D(^RA(79,+$P(^(0),U,3),.1)),$P(^(.1),U,16)'[""Y"" S Y=""@99"";I '$O(^RARPT(DA,""R"",0)) S Y=""@99"";5///PROBLEM DRAFT;"
^DIE(1088,"DR",1,74,7)="25///No Impression was entered for this report.;"
^DIE(1088,"DR",1,74,8)="W !!?3,*7,""NOTE: This report does not have an impression.  As a result,"",!?3,""      the report will be placed in a 'PROBLEM DRAFT' status"",!?3,""      with an appropriate 'PROBLEM STATEMENT' entered as well."",!;@99;"
^DIE(1088,"DR",1,74,9)="K RANODE,RASIGCDE,RASTATX,RATRSC,RAYN,X1,X2;"
^DIE(1088,"DR",2,74.01)="2////^S X=RACT;3////^S X=DUZ;"
^DIE(1089,0)="RA PRE-VERIFY REPORT ONLY^2970520.083^^74^^^2980227"
^DIE(1089,"DR",1,74)="S RACT="""";I $P(^RARPT(DA,0),U,5)=""PD"",$D(^(""P"")) W !!?3,""This report currently has a status of 'PROBLEM DRAFT' with"",!?3,""the following 'PROBLEM STATEMENT':"",!!?10,^(""P""),!;@5;D EN2^RAUTL9;S:'$D(DIRUT) Y=""@10"";"
^DIE(1089,"DR",1,74,1)="D:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") EN^DDIOL(""EXIT NOT ALLOWED ??""_$C(7),"""",""!!?3"");S:$D(DIE(""NO^""))&($G(DIE(""NO^""))'=""OUTOK"")&($G(DIE(""NO^""))'=""BACKOUTOK"") Y=""@5"";5///^S X=""^"";@10;"
^DIE(1089,"DR",1,74,2)="5///^S X=RASTATX;S RACT=RASTATX I $E(RACT)'=""P"" S Y=""@20"" K ^RARPT(DA,""P"");25;S Y=""@30"";@20;D EN3^RAUTL9;I $D(DIRUT) S Y=""@30"";I RAYN=0 S Y=""@30"";S X1=RASIG(""PER""),X=RASIG(""NAME""),X2=DA D EN^XUSHSHP S RASIGCDE=X;14///^S X=""NOW"";"
^DIE(1089,"DR",1,74,3)="15///^S X=RAVER;16///^S X=RASIGCDE;W !!,""Report is now marked as pre-verified."",!!;@30;Q;100///^S X=""""""NOW"""""";@99;K RASIGCDE,RASTATX,RAYN,X1,X2;S RACT=$P(^RARPT(D0,0),""^"",5);"
^DIE(1089,"DR",2,74.01)="2////^S X=$S($G(RAYN)=1:""P"",1:""E"");3////^S X=DUZ;"
^DIE(1102,0)="ECT EQUIPMENT INPUT^2910116.1013^^731.5^17^^2910117"
^DIE(1102,"%D",0)="^^1^1^2901217^^^^"
^DIE(1102,"%D",1,0)="Template is called by routine ECTEIN to 'Enter/Edit Planned Equipment'."
^DIE(1102,"DIAB",3,0,731.5,0)="2;T"
^DIE(1102,"DIAB",4,0,731.5,2)="20//TODAY"
^DIE(1102,"DIAB",5,0,731.5,0)="5;""HIGH TECH PRIORITY"""
^DIE(1102,"DIAB",8,0,731.5,0)="3;T"
^DIE(1102,"DIAB",10,0,731.5,0)="5;""IRM/ADP PRIORITY"""
^DIE(1102,"DIAB",12,0,731.5,0)="4;T"
^DIE(1102,"DR",1,731.5)="Q;.01;2T~;I X=0 S Y=""@1"";5HIGH TECH PRIORITY~;I $P(^ECT(731.5,DA,0),""^"",3)=1 S Y=""@2"";@1;3T~;I X=0 S Y=""@2"";5IRM/ADP PRIORITY~;@2;4T~;I ($P(^ECT(731.5,DA,0),""^"",3)=1)!($P(^(0),""^"",4)=1) S Y=""@3"";5;@3;6;30;23;"
^DIE(1102,"DR",1,731.5,1)="S Y=$S('$D(^ECT(731.5,DA,1)):"""",$P(^ECT(731.5,DA,1),""^"",4)=""P"":""@4"",$P(^ECT(731.5,DA,1),""^"",4)=""A"":""@5"",1:""@6"");@4;22;S Y=$S('$D(^ECT(731.5,DA,1)):"""",$P(^ECT(731.5,DA,1),""^"")="""":""@6"",1:"""");@5;21;"
^DIE(1102,"DR",1,731.5,2)="S Y=$S('$D(^ECT(731.5,DA,1)):"""",$P(^ECT(731.5,DA,1),""^"")="""":""@6"",1:"""");@6;Q;20//^S X=DT;"
^DIE(1103,0)="ECT STATUS EDIT^2910116.1011^^731.5^17^^2910117"
^DIE(1103,"%D",0)="^^1^1^2901010^"
^DIE(1103,"%D",1,0)="Template is called by routine ECTEIN to 'Edit Status of an Item'."
^DIE(1103,"DR",1,731.5)="23;S Y=$S('$D(^ECT(731.5,DA,1)):"""",$P(^ECT(731.5,DA,1),""^"",4)=""P"":""@1"",$P(^(1),""^"",4)=""A"":""@2"",1:""@3"");@1;22;S Y="""";@2;21;S Y="""";@3;20;"
^DIE(1104,0)="LBRY SITE^2970408.1158^^680.6^^^2970416"
^DIE(1104,"DR",1,680.6)=".01;.07;.02//^S X=""AOBC"";.05;.03;.08;"
^DIE(1105,0)="LBRY CONTACTS ROUTING^2970520.1629^^680.4^^^2980109"
^DIE(1105,"DIAB",10,0,680.4,0)=".03;""STREET ADDRESS"""
^DIE(1105,"DIAB",11,0,680.4,0)=".04;""P.O. BOX or APARTMENT NUMBER"""
^DIE(1105,"DR",1,680.4)="1///^S X=LBRYPTR;.01;.02;I X="""" S Y=""@9"";S MS="""",SRV=$P(^LBRY(680.4,DA,0),U,2);I SRV?.N,$D(^DIC(49,SRV)) S MS=$P(^DIC(49,SRV,0),U,8);S:MS="""" Y=""@9"";W !,""MAIL SYMBOL: "",MS;@9;.03STREET ADDRESS~;.04P.O. BOX or APARTMENT NUMBER~;.05;"
^DIE(1105,"DR",1,680.4,1)=".06;.07;.08;"
^DIE(1106,0)="LBRY CHECK-IN SETUP^2940301.1319^^680.5^^^2980115^"
^DIE(1106,"DIAB",1,1,680.53,0)="ALL"
^DIE(1106,"DR",1,680.5)=".01;I $P(^LBRY(680.5,LBRYCLS,0),U,5)=""N"" S Y=""@1"";.05////^S X=""L"";@1;11;7;10;1;3;2;4;5;6;"
^DIE(1106,"DR",2,680.53)=".01"
^DIE(1111,0)="LBRYLTF^3000104.1321^^682.1^^^3010129"
^DIE(1111,"DR",1,682.1)="1///^S X=$G(LBRTYP);2///^S X=""W"";33///^S X=$$NOW^XLFDT();"
^DIE(1112,0)="LBRYREC^3000104.1308^^682.1^^^3000104"
^DIE(1112,"DR",1,682.1)="1///^S X=TYP;2///^S X=""R"";33///^S X=$$NOW^XLFDT();"
^DIE(1113,0)="LBRYFRUP^2930513.1354^^680.2^^^^"
^DIE(1113,"DR",1,680.2)=".01///^S X=FRQ;.02///^S X=SYN;"
^DIE(1114,0)="LBRYPUUP^2930513.1423^^680.1^^^^"
^DIE(1114,"DR",1,680.1)=".01///^S X=PUB;"
^DIE(1115,0)="LBRYPPUP^2930513.171^^680.9^^^^"
^DIE(1115,"DR",1,680.9)=".01///^S X=COD;10///^S X=NAM;"
^DIE(1128,0)="LBRY PREDICT INSERT^2950829.1312^^682^^^2980317^"
^DIE(1128,"DR",1,682)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;1////^S X=LBJDT;1.1////^S X=LBVOL;1.2////^S X=LBISS;1.7////^S X=""P"";"
^DIE(1129,0)="LBRY D2^2960202.1102^^681^^^2980317"
^DIE(1129,"DR",1,681)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;S LBRYSH=1;1;I X'="""",$P(^LBRY(681,DA,1),U)'=X S $P(^LBRY(681,DA,1),U,3)=DUZ;I X=""ToC"" S $P(^LBRY(681,DA,1),U,6)=1,Y=""@2"";1.6;I X'=""y"" S Y=""@1"";S $P(^LBRY(681,DA,1),U,5)="""";1.7;S Y=""@3"";@1;"
^DIE(1129,"DR",1,681,1)="S:$P($G(^LBRY(681,DA,1)),U,7)=""y"" Y=""@3"";1.4//^I $D(LBRYPTR) S:$S('$D(^LBRY(680.6,LBRYPTR,0))#2:0,$P(^(0),U,2)']"""":0,1:1) X=$P(^(0),U,2);@3;1.1;1.3;I X=""A"" S Y=""@5"";1.5//SHELVED;I X=3 S LBRYSH=1;I X=1!(X=2) S LBRYSH="""";S Y=""@4"";@5;"
^DIE(1129,"DR",1,681,2)="1.5//ROUTED;I X=1!(X=2) S LBRYSH="""";I X=3 S LBRYSH=1;@4;1.9;Q;1.95;I LBRYSH=1 S Y=""@6"";@2;2;@6;"
^DIE(1129,"DR",2,681.02)=".01;@11;1;I X="""" W !,""Please enter ROUTING ORDER."" S Y=""@11"";"
^DIE(1130,0)="LBRY D1^2950829.1315^^681^^^2980317^"
^DIE(1130,"DR",1,681)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;1///^S X=1;3///^S X=DUZ;1.6;I X'=""y"" S Y=""@1"";S $P(^LBRY(681,DA,1),U,5)="""";1.7;S Y=""@2"";@1;S:$P($G(^LBRY(681,DA,1)),U,7)=""y"" Y=""@2"";"
^DIE(1130,"DR",1,681,1)="1.4//^I $D(LBRYPTR) S:$S('$D(^LBRY(680.6,LBRYPTR,0))#2:0,$P(^(0),U,2)']"""":0,1:1) X=$P(^(0),U,2);@2;1.1;1.3;I X=""A"" S Y=""@3"";1.5//SHELVED;I X=3 S Y=""@5"";S Y=""@4"";@3;1.5//ROUTED;I X=3 S Y=""@5"";@4;2;@5;"
^DIE(1130,"DR",1,681,2)="1.8///^S X=$S($D(LBRYPTR):LBRYPTR,1:"""");"
^DIE(1130,"DR",2,681.02)=".01;@10;1;I X="""" W !,""Please enter ROUTING ORDER."" S Y=""@10"";"
^DIE(1131,0)="LBRY INSERT^2961018.1429^^682^^^2980317"
^DIE(1131,"DR",1,682)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;1;Q;I X="""" S Y=""@2"";I '$P(^LBRY(682,DA,1),U,5) S Y="""";S PAST1="""",PAST=$O(^LBRY(682,""A1"",LBRYLOC,9999999-X));I PAST="""" S Y=""@1"";S PAST1=$O(^LBRY(682,""A1"",LBRYLOC,PAST,0));"
^DIE(1131,"DR",1,682,1)="S PAST1=$P(^LBRY(682,PAST1,1),U,2);@1;1.1//^S X=PAST1;1.2;1.7////^S X=LBRYIF;@2;"
^DIE(1132,0)="LBRY JOURNAL DATE EDIT^2951103.1057^^682^^^2970603"
^DIE(1132,"DR",1,682)="1;1.1;1.2;1.4;1.7;4;"
^DIE(1132,"DR",2,682.04)="1;I X>3 S Y=""@1"";I $G(LDATE)="""" D DAS^LBRYRTX;5//^S X=LDATE;@1;"
^DIE(1133,0)="LBRY CHECK-IN SETUP^2881004^^680^^^^"
^DIE(1133,"DR",1,680)=".02;I X]"""" S Y="""";@2;7;I X="""" W !,""To properly set up this TITLE enter INITIAL COPIES ORDERED."" S Y=""@2"";1.5;.03;12.3;"
^DIE(1134,0)="LBRY BIBLIOGRAPHIC ENTRY^2950725.1001^^680^^^2970714^"
^DIE(1134,"DIAB",1,1,680.01,0)="ALL"
^DIE(1134,"DIAB",1,1,680.02,0)="ALL"
^DIE(1134,"DR",1,680)="1.1;2.1;2.5;3;4;5.2;I X'=""D"" S Y=6;5.3;5.4;6;9;9.1;9.4;9.8;9.85;10.5;10.6;10.7;10.8;"
^DIE(1134,"DR",2,680.01)=".01:1"
^DIE(1134,"DR",2,680.02)=".01"
^DIE(1134,"DR",2,680.03)=".01;.02///^S X=DT;"
^DIE(1135,0)="LBRY FINANCIAL ENTRY^2950829.1317^^680^^^2960423^"
^DIE(1135,"DR",1,680)="8;8.3;8.4;8.5;8.7;8.8;"
^DIE(1136,0)="LBRY TITLE SETUP^2960626.1227^^680.5^^^2960626"
^DIE(1136,"DR",1,680.5)=".01;.05////^S X=""N"";11;7;10;1;3;2;I X[""*"" W $C(7),!,""  This publisher is not in national file, please re-enter to input."" S Y=2;4;5;6;8;9;.03;.04;12;18;17;"
^DIE(1136,"DR",2,680.53)=".01;I X[""*"" W $C(7),!,""  This index is not in national file, please re-enter to input."" S Y=.01;"
^DIE(1220,0)="SROMEN-STAFF^3040510.1326^^130^^^3040510"
^DIE(1220,"DIAB",1,0,130,0)=".14;T"
^DIE(1220,"DIAB",1,1,130.23,0)=".01;T"
^DIE(1220,"DIAB",1,1,130.24,0)=".01;T"
^DIE(1220,"DIAB",1,1,130.28,0)=".01;T"
^DIE(1220,"DIAB",1,1,130.36,0)=".01;T"
^DIE(1220,"DIAB",1,2,130.29,0)=".01;T"
^DIE(1220,"DIAB",1,2,130.37,0)=".01;T"
^DIE(1220,"DIAB",2,0,130,0)="214;T"
^DIE(1220,"DIAB",2,1,130.23,0)="1;T"
^DIE(1220,"DIAB",2,1,130.24,0)="1;T"
^DIE(1220,"DIAB",2,1,130.28,0)="2;T"
^DIE(1220,"DIAB",2,1,130.36,0)="1;T"
^DIE(1220,"DIAB",2,2,130.29,0)="1;T"
^DIE(1220,"DIAB",2,2,130.37,0)="1;T"
^DIE(1220,"DIAB",3,0,130,0)=".15;T"
^DIE(1220,"DIAB",3,1,130.28,0)="3;T"
^DIE(1220,"DIAB",3,1,130.36,0)="3;T"
^DIE(1220,"DIAB",3,2,130.29,0)="2;T"
^DIE(1220,"DIAB",3,2,130.37,0)="2;T"
^DIE(1220,"DIAB",4,0,130,0)=".16;T"
^DIE(1220,"DIAB",5,0,130,0)=".164;T"
^DIE(1220,"DIAB",6,0,130,0)=".166;T"
^DIE(1220,"DIAB",7,0,130,0)=".31;T"
^DIE(1220,"DIAB",8,0,130,0)=".33;T"
^DIE(1220,"DIAB",9,0,130,0)=".34;T"
^DIE(1220,"DIAB",10,0,130,0)=".167;T"
^DIE(1220,"DIAB",11,0,130,0)=".168;T"
^DIE(1220,"DIAB",12,0,130,0)=".111;T"
^DIE(1220,"DIAB",13,0,130,0)=".112;T"
^DIE(1220,"DIAB",14,0,130,0)="30;T"
^DIE(1220,"DIAB",15,0,130,0)="31;T"
^DIE(1220,"DR",1,130)=".14T~;214T~;.15T~;.16T~;.164T~;.166T~;.31T~;.33T~;.34T~;.167T~;.168T~;.111T~;.112T~;30T~;31T~;"
^DIE(1220,"DR",2,130.23)=".01T~;1T~;"
^DIE(1220,"DR",2,130.24)=".01T~;1T~;"
^DIE(1220,"DR",2,130.28)=".01T~;2T~;3T~;"
^DIE(1220,"DR",2,130.36)=".01T~;1T~;3T~;"
^DIE(1220,"DR",3,130.29)=".01T~;1T~;2T~;"
^DIE(1220,"DR",3,130.37)=".01T~;1T~;2T~;"
^DIE(1221,0)="SRSRES-ENTRY^3050624.154^^130^^^3050624"
^DIE(1221,"DIAB",1,0,130,0)="26;T"
^DIE(1221,"DIAB",1,1,130.03,0)=".01;T"
^DIE(1221,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1221,"DIAB",1,1,130.14,0)=".01;T"
^DIE(1221,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1221,"DIAB",1,1,130.17,0)=".01;T"
^DIE(1221,"DIAB",2,0,130,0)=".42;T"
^DIE(1221,"DIAB",2,1,130.03,0)="1;T"
^DIE(1221,"DIAB",2,1,130.14,0)="1;T"
^DIE(1221,"DIAB",2,1,130.16,0)="3;T"
^DIE(1221,"DIAB",2,1,130.17,0)="2;T"
^DIE(1221,"DIAB",3,0,130,0)="27;T"
^DIE(1221,"DIAB",3,1,130.03,0)="2;T"
^DIE(1221,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1221,"DIAB",4,0,130,0)="32;T"
^DIE(1221,"DIAB",4,1,130.03,0)="3;T"
^DIE(1221,"DIAB",5,0,130,0)="32.5;T"
^DIE(1221,"DIAB",5,1,130.03,0)="4;T"
^DIE(1221,"DIAB",6,0,130,0)=".72;T"
^DIE(1221,"DIAB",6,1,130.03,0)="5;T"
^DIE(1221,"DIAB",7,0,130,0)=".011//I;T"
^DIE(1221,"DIAB",8,0,130,0)="56;T"
^DIE(1221,"DIAB",9,0,130,0)=".035;T"
^DIE(1221,"DIAB",10,0,130,0)=".04;T"
^DIE(1221,"DIAB",11,0,130,0)=".14;T"
^DIE(1221,"DIAB",12,0,130,0)=".15;T"
^DIE(1221,"DIAB",13,0,130,0)=".16;T"
^DIE(1221,"DIAB",14,0,130,0)=".164;T"
^DIE(1221,"DIAB",15,0,130,0)=".43;T"
^DIE(1221,"DIAB",16,0,130,0)=".037;T"
^DIE(1221,"DIAB",17,0,130,0)="SURGERY POS;T"
^DIE(1221,"DIAB",18,0,130,0)="1.01;T"
^DIE(1221,"DIAB",19,0,130,0)="1.02;T"
^DIE(1221,"DIAB",20,0,130,0)="1.03;T"
^DIE(1221,"DIAB",21,0,130,0)="1.035;T"
^DIE(1221,"DIAB",22,0,130,0)="38;T"
^DIE(1221,"DIAB",23,0,130,0)="40;T"
^DIE(1221,"DIAB",24,0,130,0)="1.05;T"
^DIE(1221,"DIAB",25,0,130,0)="1.04;T"
^DIE(1221,"DIAB",26,0,130,0)=".05;T"
^DIE(1221,"DIAB",27,0,130,0)="23;T"
^DIE(1221,"DIAB",28,0,130,0)=".28;T"
^DIE(1221,"DIAB",29,0,130,0)="55;T"
^DIE(1221,"DIAB",30,0,130,0)="BRIEF;T"
^DIE(1221,"DIAB",31,0,130,0)="80;T"
^DIE(1221,"DR",1,130)="26T~;.42T~;27T~;32T~;32.5T~;.72T~;.011T~//I;56T~;.035T~;.04T~;.14T~;.15T~;.16T~;.164T~;.43T~;.037T~;65T~;1.01T~;1.02T~;1.03T~;1.035T~;38T~;40T~;1.05T~;1.04T~;.05T~;23T~;.28T~;55T~;60T~;80T~;"
^DIE(1221,"DR",2,130.03)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1221,"DR",2,130.065)=".01T~;"
^DIE(1221,"DR",2,130.14)=".01T~;1T~;"
^DIE(1221,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1221,"DR",2,130.17)=".01T~;2T~;"
^DIE(1222,0)="SROMEN-ANES^3031003.1608^^130^^^3041122"
^DIE(1222,"DIAB",1,0,130,0)=".34;T"
^DIE(1222,"DIAB",1,1,130.04,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.32,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.33,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.3513,0)=".01;T"
^DIE(1222,"DIAB",1,1,130.41,0)=".01;T"
^DIE(1222,"DIAB",1,2,130.34,0)=".01;T"
^DIE(1222,"DIAB",2,0,130,0)=".345;T"
^DIE(1222,"DIAB",2,1,130.04,0)="1;T"
^DIE(1222,"DIAB",2,1,130.06,0)=".05;T"
^DIE(1222,"DIAB",2,1,130.213,0)="1;T"
^DIE(1222,"DIAB",2,1,130.32,0)="1;T"
^DIE(1222,"DIAB",2,1,130.33,0)="1;T"
^DIE(1222,"DIAB",2,1,130.41,0)="1;T"
^DIE(1222,"DIAB",2,2,130.34,0)="1;T"
^DIE(1222,"DIAB",3,0,130,0)=".31;T"
^DIE(1222,"DIAB",3,1,130.04,0)="3;T"
^DIE(1222,"DIAB",3,1,130.06,0)="42;T"
^DIE(1222,"DIAB",3,1,130.32,0)="2;T"
^DIE(1222,"DIAB",3,1,130.41,0)="2;T"
^DIE(1222,"DIAB",3,2,130.34,0)="4;T"
^DIE(1222,"DIAB",4,0,130,0)=".32;T"
^DIE(1222,"DIAB",4,1,130.04,0)="4;T"
^DIE(1222,"DIAB",4,1,130.06,0)="12;T"
^DIE(1222,"DIAB",4,1,130.32,0)="3;T"
^DIE(1222,"DIAB",4,1,130.41,0)="3;T"
^DIE(1222,"DIAB",5,0,130,0)=".33;T"
^DIE(1222,"DIAB",5,1,130.04,0)="5;T"
^DIE(1222,"DIAB",6,0,130,0)=".213;T"
^DIE(1222,"DIAB",7,0,130,0)=".215;T"
^DIE(1222,"DIAB",8,0,130,0)="1.13;T"
^DIE(1222,"DIAB",9,0,130,0)=".25;T"
^DIE(1222,"DIAB",10,0,130,0)=".36;T"
^DIE(1222,"DIAB",11,0,130,0)=".65;T"
^DIE(1222,"DIAB",12,0,130,0)=".255;T"
^DIE(1222,"DIAB",13,0,130,0)=".46;T"
^DIE(1222,"DIAB",14,0,130,0)="1.19;T"
^DIE(1222,"DIAB",15,0,130,0)="901.1;T"
^DIE(1222,"DIAB",16,0,130,0)="901.2;T"
^DIE(1222,"DIAB",17,0,130,0)=".27;T"
^DIE(1222,"DIAB",18,0,130,0)=".375;T"
^DIE(1222,"DIAB",19,0,130,0)=".293;T"
^DIE(1222,"DIAB",20,0,130,0)=".28;T"
^DIE(1222,"DIAB",21,0,130,0)=".757;T"
^DIE(1222,"DIAB",22,0,130,0)=".37;T"
^DIE(1222,"DIAB",23,0,130,0)=".3511;T"
^DIE(1222,"DIAB",24,0,130,0)=".3512;T"
^DIE(1222,"DIAB",25,0,130,0)=".3513;T"
^DIE(1222,"DIAB",26,0,130,0)=".3514;T"
^DIE(1222,"DIAB",27,0,130,0)=".3515;T"
^DIE(1222,"DR",1,130)=".34T~;.345T~;.31T~;.32T~;.33T~;.213T~;.215T~;1.13T~;.25T~;.36T~;.65T~;.255T~;.46T~;1.19T~;901.1T~;901.2T~;.27T~;.375T~;.293T~;.28T~;.757T~;.37T~;.3511T~;.3512T~;.3513T~;.3514T~;.3515T~;"
^DIE(1222,"DR",2,130.04)=".01T~;1T~;3T~;4T~;5T~;"
^DIE(1222,"DR",2,130.06)=".01T~;.05T~;42T~;12T~;"
^DIE(1222,"DR",2,130.213)=".01T~;1T~;"
^DIE(1222,"DR",2,130.32)=".01T~;1T~;2T~;3T~;"
^DIE(1222,"DR",2,130.33)=".01T~;1T~;"
^DIE(1222,"DR",2,130.3513)=".01T~;"
^DIE(1222,"DR",2,130.41)=".01T~;1T~;2T~;3T~;"
^DIE(1222,"DR",3,130.34)=".01T~;1T~;4T~;"
^DIE(1223,0)="SROMEN-OUT^3060316.1036^^130^^^3060316"
^DIE(1223,"DIAB",1,0,130,0)=".09;T"
^DIE(1223,"DIAB",1,0,130,1)="1.13;T"
^DIE(1223,"DIAB",1,1,130.042,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.17,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.28,0)=".01;T"
^DIE(1223,"DIAB",1,1,130.36,0)=".01;T"
^DIE(1223,"DIAB",1,2,130.29,0)=".01;T"
^DIE(1223,"DIAB",1,2,130.37,0)=".01;T"
^DIE(1223,"DIAB",1,2,130.47,0)=".01;T"
^DIE(1223,"DIAB",2,0,130,0)=".011//OUT;T"
^DIE(1223,"DIAB",2,0,130,1)=".31;T"
^DIE(1223,"DIAB",2,1,130.042,0)="1;T"
^DIE(1223,"DIAB",2,1,130.06,0)=".05//YES;T"
^DIE(1223,"DIAB",2,1,130.16,0)="3;T"
^DIE(1223,"DIAB",2,1,130.17,0)="2;T"
^DIE(1223,"DIAB",2,1,130.213,0)="1;T"
^DIE(1223,"DIAB",2,1,130.28,0)="2;T"
^DIE(1223,"DIAB",2,1,130.36,0)="1;T"
^DIE(1223,"DIAB",2,2,130.29,0)="1;T"
^DIE(1223,"DIAB",2,2,130.37,0)="1;T"
^DIE(1223,"DIAB",2,2,130.47,0)="1;T"
^DIE(1223,"DIAB",3,0,130,0)=".14;T"
^DIE(1223,"DIAB",3,0,130,1)=".37;T"
^DIE(1223,"DIAB",3,1,130.042,0)="2;T"
^DIE(1223,"DIAB",3,1,130.06,0)="24;T"
^DIE(1223,"DIAB",3,1,130.28,0)="3;T"
^DIE(1223,"DIAB",3,1,130.36,0)="3;T"
^DIE(1223,"DIAB",3,2,130.29,0)="2;T"
^DIE(1223,"DIAB",3,2,130.37,0)="2;T"
^DIE(1223,"DIAB",4,0,130,0)="32;T"
^DIE(1223,"DIAB",4,0,130,1)=".213;T"
^DIE(1223,"DIAB",4,2,130.29,0)="3;T"
^DIE(1223,"DIAB",4,2,130.37,0)="3;T"
^DIE(1223,"DIAB",5,0,130,0)="32.5;T"
^DIE(1223,"DIAB",5,0,130,1)="42;T"
^DIE(1223,"DIAB",6,0,130,0)=".72;T"
^DIE(1223,"DIAB",6,0,130,1)="17;T"
^DIE(1223,"DIAB",7,0,130,0)="26;T"
^DIE(1223,"DIAB",7,0,130,1)="18;T"
^DIE(1223,"DIAB",8,0,130,0)="27;T"
^DIE(1223,"DIAB",9,0,130,0)=".42;T"
^DIE(1223,"DIAB",10,0,130,0)=".12;T"
^DIE(1223,"DIAB",11,0,130,0)="506;T"
^DIE(1223,"DIAB",12,0,130,0)="508;T"
^DIE(1223,"DIAB",13,0,130,0)=".205;T"
^DIE(1223,"DIAB",14,0,130,0)="73;T"
^DIE(1223,"DIAB",15,0,130,0)="72;T"
^DIE(1223,"DIAB",16,0,130,0)="71;T"
^DIE(1223,"DIAB",17,0,130,0)="84;T"
^DIE(1223,"DIAB",18,0,130,0)="83;T"
^DIE(1223,"DIAB",19,0,130,0)="82;T"
^DIE(1223,"DIAB",20,0,130,0)=".22;T"
^DIE(1223,"DIAB",21,0,130,0)=".23;T"
^DIE(1223,"DIAB",22,0,130,0)=".232;T"
^DIE(1223,"DIAB",23,0,130,0)="63;T"
^DIE(1223,"DIAB",24,0,130,0)=".111;T"
^DIE(1223,"DIAB",25,0,130,0)=".112;T"
^DIE(1223,"DIAB",26,0,130,0)=".02;T"
^DIE(1223,"DIAB",27,0,130,0)=".15;T"
^DIE(1223,"DIAB",28,0,130,0)="44;T"
^DIE(1223,"DIAB",29,0,130,0)="45;T"
^DIE(1223,"DIAB",30,0,130,0)="46;T"
^DIE(1223,"DIAB",31,0,130,0)="47;T"
^DIE(1223,"DIAB",32,0,130,0)="48;T"
^DIE(1223,"DIAB",33,0,130,0)=".04;T"
^DIE(1223,"DIAB",34,0,130,0)="1.09;T"
^DIE(1223,"DIAB",35,0,130,0)=".164;T"
^DIE(1223,"DIAB",36,0,130,0)=".166;T"
^DIE(1223,"DIAB",37,0,130,0)="49;T"
^DIE(1223,"DIAB",38,0,130,0)="64;T"
^DIE(1223,"DIAB",39,0,130,0)=".29;T"
^DIE(1223,"DR",1,130)=".09T~;.011T~//OUT;.14T~;32T~;32.5T~;.72T~;26T~;27T~;.42T~;.12T~;506T~;508T~;.205T~;73T~;72T~;71T~;84T~;83T~;82T~;.22T~;.23T~;.232T~;63T~;.111T~;.112T~;.02T~;.15T~;44T~;45T~;46T~;47T~;48T~;.04T~;1.09T~;.164T~;.166T~;49T~;64T~;.29T~;"
^DIE(1223,"DR",1,130,1)="1.13T~;.31T~;.37T~;.213T~;42T~;17T~;18T~;"
^DIE(1223,"DR",2,130.042)=".01T~;1T~;2T~;"
^DIE(1223,"DR",2,130.06)=".01T~;.05T~//YES;24T~;"
^DIE(1223,"DR",2,130.16)=".01T~;3T~;"
^DIE(1223,"DR",2,130.17)=".01T~;2T~;"
^DIE(1223,"DR",2,130.213)=".01T~;1T~;"
^DIE(1223,"DR",2,130.28)=".01T~;2T~;3T~;"
^DIE(1223,"DR",2,130.36)=".01T~;1T~;3T~;"
^DIE(1223,"DR",3,130.29)=".01T~;1T~;2T~;3T~;"
^DIE(1223,"DR",3,130.37)=".01T~;1T~;2T~;3T~;"
^DIE(1223,"DR",3,130.47)=".01T~;1T~;"
^DIE(1224,0)="SROMEN-POST^3050726.1502^^130^^^3050726"
^DIE(1224,"DIAB",1,0,130,0)="41;T"
^DIE(1224,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1224,"DIAB",1,1,130.18,0)=".01;T"
^DIE(1224,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1224,"DIAB",2,0,130,0)=".875;T"
^DIE(1224,"DIAB",2,1,130.16,0)="3;T"
^DIE(1224,"DIAB",2,1,130.213,0)="1;T"
^DIE(1224,"DIAB",3,0,130,0)="22;T"
^DIE(1224,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1224,"DIAB",3,1,130.18,0)="2;T"
^DIE(1224,"DIAB",4,0,130,0)=".25;T"
^DIE(1224,"DIAB",5,0,130,0)=".255;T"
^DIE(1224,"DIAB",6,0,130,0)="62;T"
^DIE(1224,"DIAB",7,0,130,0)="1.09;T"
^DIE(1224,"DIAB",8,0,130,0)=".81;T"
^DIE(1224,"DIAB",9,0,130,0)=".821;T"
^DIE(1224,"DIAB",10,0,130,0)=".76;T"
^DIE(1224,"DIAB",11,0,130,0)=".23;T"
^DIE(1224,"DIAB",12,0,130,0)=".213;T"
^DIE(1224,"DIAB",13,0,130,0)=".232;T"
^DIE(1224,"DIAB",14,0,130,0)=".46;T"
^DIE(1224,"DIAB",15,0,130,0)="25;T"
^DIE(1224,"DIAB",16,0,130,0)="34;T"
^DIE(1224,"DIAB",17,0,130,0)="32.5;T"
^DIE(1224,"DIAB",18,0,130,0)=".74;T"
^DIE(1224,"DIAB",19,0,130,0)="26;T"
^DIE(1224,"DIAB",20,0,130,0)="27;T"
^DIE(1224,"DIAB",21,0,130,0)=".42;T"
^DIE(1224,"DIAB",22,0,130,0)=".166;T"
^DIE(1224,"DR",1,130)="41T~;.875T~;22T~;.25T~;.255T~;62T~;1.09T~;.81T~;.821T~;.76T~;.23T~;.213T~;.232T~;.46T~;25T~;34T~;32.5T~;.74T~;26T~;27T~;.42T~;.166T~;"
^DIE(1224,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1224,"DR",2,130.18)=".01T~;3;2T~;"
^DIE(1224,"DR",2,130.213)=".01T~;1T~;"
^DIE(1225,0)="SROMEN-OPER^3060629.1259^^130^^^3060629"
^DIE(1225,"DIAB",1,0,130,0)=".203;T"
^DIE(1225,"DIAB",1,1,130.01,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.0129,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.013,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.02,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.04,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.08,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.32,0)=".01;T"
^DIE(1225,"DIAB",1,1,130.33,0)=".01;T"
^DIE(1225,"DIAB",1,2,130.0134,0)=".01;T"
^DIE(1225,"DIAB",1,2,130.34,0)=".01;T"
^DIE(1225,"DIAB",1,2,130.39,0)=".01;T"
^DIE(1225,"DIAB",2,0,130,0)=".205;T"
^DIE(1225,"DIAB",2,1,130.01,0)="8;T"
^DIE(1225,"DIAB",2,1,130.0129,0)="1;T"
^DIE(1225,"DIAB",2,1,130.013,0)="1;T"
^DIE(1225,"DIAB",2,1,130.02,0)="1;T"
^DIE(1225,"DIAB",2,1,130.04,0)="1;T"
^DIE(1225,"DIAB",2,1,130.08,0)="1;T"
^DIE(1225,"DIAB",2,1,130.16,0)="3;T"
^DIE(1225,"DIAB",2,1,130.213,0)="1;T"
^DIE(1225,"DIAB",2,1,130.32,0)="1;T"
^DIE(1225,"DIAB",2,1,130.33,0)="1;T"
^DIE(1225,"DIAB",2,2,130.0134,0)="1;T"
^DIE(1225,"DIAB",2,2,130.34,0)="1;T"
^DIE(1225,"DIAB",2,2,130.39,0)="1;T"
^DIE(1225,"DIAB",3,0,130,0)="73;T"
^DIE(1225,"DIAB",3,1,130.01,0)="9;T"
^DIE(1225,"DIAB",3,1,130.0129,0)="2;T"
^DIE(1225,"DIAB",3,1,130.013,0)="2;T"
^DIE(1225,"DIAB",3,1,130.02,0)="2;T"
^DIE(1225,"DIAB",3,1,130.04,0)="3;T"
^DIE(1225,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1225,"DIAB",3,1,130.32,0)="2;T"
^DIE(1225,"DIAB",3,2,130.0134,0)="2;T"
^DIE(1225,"DIAB",3,2,130.34,0)="2;T"
^DIE(1225,"DIAB",3,2,130.39,0)="2;T"
^DIE(1225,"DIAB",4,0,130,0)="72;T"
^DIE(1225,"DIAB",4,1,130.01,0)="10;T"
^DIE(1225,"DIAB",4,1,130.0129,0)="4;T"
^DIE(1225,"DIAB",4,1,130.013,0)="3;T"
^DIE(1225,"DIAB",4,1,130.02,0)="3;T"
^DIE(1225,"DIAB",4,1,130.04,0)="4;T"
^DIE(1225,"DIAB",4,1,130.32,0)="3;T"
^DIE(1225,"DIAB",4,2,130.34,0)="3;T"
^DIE(1225,"DIAB",5,0,130,0)="71;T"
^DIE(1225,"DIAB",5,1,130.01,0)="1;T"
^DIE(1225,"DIAB",5,1,130.0129,0)="3;T"
^DIE(1225,"DIAB",5,1,130.013,0)="4;T"
^DIE(1225,"DIAB",5,1,130.02,0)="4;T"
^DIE(1225,"DIAB",5,1,130.04,0)="5;T"
^DIE(1225,"DIAB",5,2,130.34,0)="4;T"
^DIE(1225,"DIAB",6,0,130,0)="84;T"
^DIE(1225,"DIAB",6,1,130.01,0)="2;T"
^DIE(1225,"DIAB",6,1,130.0129,0)="5;T"
^DIE(1225,"DIAB",6,2,130.34,0)="5;T"
^DIE(1225,"DIAB",7,0,130,0)="83;T"
^DIE(1225,"DIAB",7,1,130.01,0)="2.5;T"
^DIE(1225,"DIAB",8,0,130,0)="82;T"
^DIE(1225,"DIAB",8,1,130.01,0)="5;T"
^DIE(1225,"DIAB",9,0,130,0)=".213;T"
^DIE(1225,"DIAB",9,1,130.01,0)="6;T"
^DIE(1225,"DIAB",10,0,130,0)=".22;T"
^DIE(1225,"DIAB",10,1,130.01,0)="7;T"
^DIE(1225,"DIAB",16,0,130,0)="49;T"
^DIE(1225,"DIAB",17,0,130,0)="64;T"
^DIE(1225,"DIAB",18,0,130,0)=".757;T"
^DIE(1225,"DIAB",19,0,130,0)=".75;T"
^DIE(1225,"DIAB",20,0,130,0)="57;T"
^DIE(1225,"DIAB",21,0,130,0)="58;T"
^DIE(1225,"DIAB",22,0,130,0)=".48;T"
^DIE(1225,"DIAB",23,0,130,0)=".47;T"
^DIE(1225,"DIAB",24,0,130,0)=".27;T"
^DIE(1225,"DIAB",25,0,130,0)=".39;T"
^DIE(1225,"DIAB",26,0,130,0)=".375;T"
^DIE(1225,"DIAB",27,0,130,0)="44;T"
^DIE(1225,"DIAB",28,0,130,0)="45;T"
^DIE(1225,"DIAB",29,0,130,0)="46;T"
^DIE(1225,"DIAB",30,0,130,0)="47;T"
^DIE(1225,"DIAB",31,0,130,0)="48;T"
^DIE(1225,"DIAB",32,0,130,0)="127;T"
^DIE(1225,"DIAB",33,0,130,0)="129;T"
^DIE(1225,"DIAB",34,0,130,0)="130;T"
^DIE(1225,"DIAB",35,0,130,0)=".29;T"
^DIE(1225,"DIAB",36,0,130,0)="32;T"
^DIE(1225,"DIAB",37,0,130,0)="32.5;T"
^DIE(1225,"DIAB",38,0,130,0)="26;T"
^DIE(1225,"DIAB",39,0,130,0)="27;T"
^DIE(1225,"DIAB",40,0,130,0)=".42;T"
^DIE(1225,"DIAB",41,0,130,0)="55;T"
^DIE(1225,"DIAB",42,0,130,0)="60;T"
^DIE(1225,"DR",1,130)=".203T~;.205T~;73T~;72T~;71T~;84T~;83T~;82T~;.213T~;.22T~;W !;W !;W !;W !;W !;49T~;64T~;.757T~;.75T~;57T~;58T~;.48T~;.47T~;.27T~;.39T~;.375T~;44T~;45T~;46T~;47T~;48T~;127T~;129T~;130T~;.29T~;32T~;32.5T~;26T~;27T~;.42T~;55T~;60T~;"
^DIE(1225,"DR",2,130.01)=".01T~;8T~;9T~;10T~;1T~;2T~;2.5T~;5T~;6T~;7T~;"
^DIE(1225,"DR",2,130.0129)=".01T~;1T~;2T~;4T~;3T~;5T~;"
^DIE(1225,"DR",2,130.013)=".01T~;1T~;2T~;3T~;4T~;"
^DIE(1225,"DR",2,130.02)=".01T~;1T~;2T~;3T~;4T~;"
^DIE(1225,"DR",2,130.04)=".01T~;1T~;3T~;4T~;5T~;"
^DIE(1225,"DR",2,130.08)=".01T~;1T~;"
^DIE(1225,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1225,"DR",2,130.213)=".01T~;1T~;"
^DIE(1225,"DR",2,130.32)=".01T~;1T~;2T~;3T~;"
^DIE(1225,"DR",2,130.33)=".01T~;1T~;"
^DIE(1225,"DR",3,130.0134)=".01T~;1T~;2T~;"
^DIE(1225,"DR",3,130.34)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1225,"DR",3,130.39)=".01T~;1T~;2T~;"
^DIE(1226,0)="SROMEN-ANES TECH^2981130.083^^130^^^2981130"
^DIE(1226,"DIAB",1,0,130,0)="20//N;T"
^DIE(1226,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1226,"DIAB",1,1,130.06,1)="10;T"
^DIE(1226,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1226,"DIAB",1,2,130.47,0)=".01;T"
^DIE(1226,"DIAB",1,2,130.49,0)=".01;T"
^DIE(1226,"DIAB",2,1,130.06,1)="11;T"
^DIE(1226,"DIAB",2,1,130.16,0)="3;T"
^DIE(1226,"DIAB",2,2,130.47,0)="1;T"
^DIE(1226,"DIAB",2,2,130.49,0)="1;T"
^DIE(1226,"DIAB",3,0,130,0)=".42;T"
^DIE(1226,"DIAB",3,1,130.06,1)="21;T"
^DIE(1226,"DIAB",3,2,130.49,0)="2;T"
^DIE(1226,"DIAB",4,1,130.06,0)=".05//YES;T"
^DIE(1226,"DIAB",4,1,130.06,1)="39;T"
^DIE(1226,"DIAB",5,0,130,0)=".37;T"
^DIE(1226,"DIAB",5,1,130.06,0)="42;T"
^DIE(1226,"DIAB",5,1,130.06,1)="22;T"
^DIE(1226,"DIAB",6,0,130,0)="901.1;T"
^DIE(1226,"DIAB",7,1,130.06,1)="17;T"
^DIE(1226,"DIAB",8,0,130,0)="901.2;T"
^DIE(1226,"DIAB",8,1,130.06,0)="12//NONE;T"
^DIE(1226,"DIAB",8,1,130.06,1)="18;T"
^DIE(1226,"DIAB",10,0,130,0)="901;T"
^DIE(1226,"DIAB",10,1,130.06,0)="24;T"
^DIE(1226,"DIAB",12,0,130,0)=".28;T"
^DIE(1226,"DIAB",12,1,130.06,1)="25//NO;T"
^DIE(1226,"DIAB",13,1,130.06,1)="26//1;T"
^DIE(1226,"DIAB",14,1,130.06,0)="3;T"
^DIE(1226,"DIAB",14,1,130.06,1)="27;T"
^DIE(1226,"DIAB",15,1,130.06,0)="4;T"
^DIE(1226,"DIAB",15,1,130.06,1)="29;T"
^DIE(1226,"DIAB",16,1,130.06,0)="5;T"
^DIE(1226,"DIAB",16,1,130.06,1)="43;T"
^DIE(1226,"DIAB",17,1,130.06,0)="6;T"
^DIE(1226,"DIAB",18,1,130.06,0)="7;T"
^DIE(1226,"DIAB",19,1,130.06,0)="8;T"
^DIE(1226,"DIAB",19,1,130.06,1)="25//YES;T"
^DIE(1226,"DIAB",20,1,130.06,0)="9;T"
^DIE(1226,"DIAB",20,1,130.06,1)="27;T"
^DIE(1226,"DIAB",21,1,130.06,1)="34//NO;T"
^DIE(1226,"DIAB",22,1,130.06,1)="35;T"
^DIE(1226,"DIAB",23,1,130.06,1)="44;T"
^DIE(1226,"DIAB",26,1,130.06,1)="38;T"
^DIE(1226,"DR",1,130)="20T~//N;S:X=""N"" Y=""@111"";.42T~;@111;.37T~;901.1T~;S SRORPH=X;901.2T~;S:X=""""!(SRORPH="""") Y=""@28"";901T~;@28;.28T~;"
^DIE(1226,"DR",2,130.06)=".01T~;S SRTECH=X;S:SRTECH=""N"" Y=""@8"";.05T~//YES;42T~;S SRIN=X;S:SRIN=""N"" Y=""@2"";12T~//NONE;@2;24T~;S Y=$S(SRTECH=""G"":""@1"",SRTECH=""M"":""@8"",SRTECH=""S"":""@3"",SRTECH=""E"":""@4"",1:""@5"");@1;S:SRIN=""N"" Y=""@03"";3T~;4T~;5T~;6T~;7T~;8T~;9T~;"
^DIE(1226,"DR",2,130.06,1)="10T~;11T~;21T~;39T~;22T~;@03;17T~;18T~;S Y=""@8"";@3;Q;25T~//NO;26T~//1;27T~;29T~;43T~;S Y=""@8"";@4;25T~//YES;27T~;34T~//NO;35T~;44T~;S Y=""@8"";@5;38T~;S Y=""@8"";@8;"
^DIE(1226,"DR",2,130.16)=".01T~;3T~;"
^DIE(1226,"DR",3,130.47)=".01T~;1T~;"
^DIE(1226,"DR",3,130.49)=".01T~;1T~;2T~;"
^DIE(1227,0)="SROMEN-REFER^2900712.1051^^130^^^2930517^"
^DIE(1227,"DIAB",1,0,130,0)="23;T"
^DIE(1227,"DIAB",1,1,130.03,0)=".01;T"
^DIE(1227,"DIAB",2,1,130.03,0)="1;T"
^DIE(1227,"DIAB",3,1,130.03,0)="2;T"
^DIE(1227,"DIAB",4,1,130.03,0)="3;T"
^DIE(1227,"DIAB",5,1,130.03,0)="4;T"
^DIE(1227,"DIAB",6,1,130.03,0)="5;T"
^DIE(1227,"DR",1,130)="23T~;"
^DIE(1227,"DR",2,130.03)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1228,0)="SRSRES1^3050624.1551^^130^^^3060308"
^DIE(1228,"DIAB",1,1,130.03,0)=".01;T"
^DIE(1228,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1228,"DIAB",2,0,130,0)="32;T"
^DIE(1228,"DIAB",2,1,130.03,0)="1;T"
^DIE(1228,"DIAB",3,0,130,0)="32.5;T"
^DIE(1228,"DIAB",3,1,130.03,0)="2;T"
^DIE(1228,"DIAB",4,0,130,0)=".011//I;T"
^DIE(1228,"DIAB",4,1,130.03,0)="3;T"
^DIE(1228,"DIAB",5,0,130,0)=".035;T"
^DIE(1228,"DIAB",5,1,130.03,0)="4;T"
^DIE(1228,"DIAB",6,0,130,0)=".15;T"
^DIE(1228,"DIAB",6,1,130.03,0)="5;T"
^DIE(1228,"DIAB",7,0,130,0)=".16;T"
^DIE(1228,"DIAB",9,0,130,0)=".164;T"
^DIE(1228,"DIAB",10,0,130,0)=".43;T"
^DIE(1228,"DIAB",11,0,130,0)=".037;T"
^DIE(1228,"DIAB",12,0,130,0)="SURGERY POS;T"
^DIE(1228,"DIAB",13,0,130,0)="1.01;T"
^DIE(1228,"DIAB",14,0,130,0)="1.02;T"
^DIE(1228,"DIAB",15,0,130,0)="1.03;T"
^DIE(1228,"DIAB",16,0,130,0)="1.035;T"
^DIE(1228,"DIAB",17,0,130,0)="1.04;T"
^DIE(1228,"DIAB",18,0,130,0)=".05;T"
^DIE(1228,"DIAB",19,0,130,0)="23;T"
^DIE(1228,"DIAB",20,0,130,0)=".28;T"
^DIE(1228,"DIAB",21,0,130,0)="80;T"
^DIE(1228,"DR",1,130)="W !;32T~;32.5T~;.011T~//I;.035T~;.15T~;.16T~;Q;.164T~;.43T~;.037T~;65T~;1.01T~;1.02T~;1.03T~;1.035T~;1.04T~;.05T~;23T~;.28T~;80T~;"
^DIE(1228,"DR",2,130.03)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1228,"DR",2,130.065)=".01T~;"
^DIE(1229,0)="SRSRES-SCHED^3050722.1628^^130^^^3050722"
^DIE(1229,"DIAB",1,1,130.14,0)=".01;T"
^DIE(1229,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1229,"DIAB",1,1,130.17,0)=".01;T"
^DIE(1229,"DIAB",2,0,130,0)="26;T"
^DIE(1229,"DIAB",2,1,130.14,0)="1;T"
^DIE(1229,"DIAB",2,1,130.16,0)="3;T"
^DIE(1229,"DIAB",2,1,130.17,0)="2;T"
^DIE(1229,"DIAB",3,0,130,0)="27;T"
^DIE(1229,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1229,"DIAB",4,0,130,0)=".42;T"
^DIE(1229,"DIAB",5,0,130,0)="32;T"
^DIE(1229,"DIAB",6,0,130,0)="PRIN PRE-OP ICD DIAGNOSIS CODE;T"
^DIE(1229,"DIAB",7,0,130,0)=".72;T"
^DIE(1229,"DIAB",8,0,130,0)=".011//I;T"
^DIE(1229,"DIAB",9,0,130,0)="56;T"
^DIE(1229,"DIAB",10,0,130,0)=".035;T"
^DIE(1229,"DIAB",11,0,130,0)=".04;T"
^DIE(1229,"DIAB",12,0,130,0)=".14;T"
^DIE(1229,"DIAB",13,0,130,0)=".15;T"
^DIE(1229,"DIAB",14,0,130,0)=".16;T"
^DIE(1229,"DIAB",15,0,130,0)=".164;T"
^DIE(1229,"DIAB",16,0,130,0)=".43;T"
^DIE(1229,"DIAB",17,0,130,0)=".037;T"
^DIE(1229,"DIAB",18,0,130,0)="1.01;T"
^DIE(1229,"DIAB",19,0,130,0)="1.02;T"
^DIE(1229,"DIAB",20,0,130,0)="1.03;T"
^DIE(1229,"DIAB",21,0,130,0)="1.035;T"
^DIE(1229,"DIAB",22,0,130,0)="38;T"
^DIE(1229,"DIAB",23,0,130,0)="40;T"
^DIE(1229,"DIAB",24,0,130,0)="1.05;T"
^DIE(1229,"DIAB",25,0,130,0)="1.04;T"
^DIE(1229,"DIAB",26,0,130,0)=".05;T"
^DIE(1229,"DIAB",27,0,130,0)=".31;T"
^DIE(1229,"DIAB",28,0,130,0)=".34;T"
^DIE(1229,"DIAB",29,0,130,0)="60;T"
^DIE(1229,"DIAB",30,0,130,0)=".28;T"
^DIE(1229,"DIAB",31,0,130,0)="80;T"
^DIE(1229,"DR",1,130)="26T~;27T~;.42T~;32T~;32.5T~;.72T~;.011T~//I;56T~;.035T~;.04T~;.14T~;.15T~;.16T~;.164T~;.43T~;.037T~;1.01T~;1.02T~;1.03T~;1.035T~;38T~;40T~;1.05T~;1.04T~;.05T~;.31T~;.34T~;60T~;.28T~;80T~;"
^DIE(1229,"DR",2,130.14)=".01T~;1T~;"
^DIE(1229,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1229,"DR",2,130.17)=".01T~;2T~;"
^DIE(1230,0)="SRSRES2^2920520.0731^^130^^^^"
^DIE(1230,"DIAB",2,0,130,0)="32;T"
^DIE(1230,"DIAB",3,0,130,0)="PRIN DIAGNOSIS CODE;T"
^DIE(1230,"DIAB",4,0,130,0)=".011//I;T"
^DIE(1230,"DIAB",5,0,130,0)=".035;T"
^DIE(1230,"DIAB",6,0,130,0)=".04;T"
^DIE(1230,"DIAB",7,0,130,0)=".14;T"
^DIE(1230,"DIAB",8,0,130,0)=".15;T"
^DIE(1230,"DIAB",9,0,130,0)=".16;T"
^DIE(1230,"DIAB",10,0,130,0)=".164;T"
^DIE(1230,"DIAB",12,0,130,0)=".43;T"
^DIE(1230,"DIAB",13,0,130,0)=".037;T"
^DIE(1230,"DIAB",14,0,130,0)="1.01;T"
^DIE(1230,"DIAB",15,0,130,0)="1.02;T"
^DIE(1230,"DIAB",16,0,130,0)="1.03;T"
^DIE(1230,"DIAB",17,0,130,0)="1.035;T"
^DIE(1230,"DIAB",18,0,130,0)="1.04;T"
^DIE(1230,"DIAB",19,0,130,0)=".05;T"
^DIE(1230,"DIAB",20,0,130,0)=".28;T"
^DIE(1230,"DR",1,130)="W !;32T~;66T~;.011T~//I;.035T~;.04T~;.14T~;.15T~;.16T~;.164T~;Q;.43T~;.037T~;1.01T~;1.02T~;1.03T~;1.035T~;1.04T~;.05T~;.28T~;"
^DIE(1231,0)="SROMEN-COMP^2901204.1546^^130^^^^"
^DIE(1231,"DIAB",1,0,130,0)="1.14;T"
^DIE(1231,"DIAB",1,1,130.13,0)=".01;T"
^DIE(1231,"DIAB",1,1,130.22,0)=".01;T"
^DIE(1231,"DIAB",2,0,130,0)="1.16;T"
^DIE(1231,"DIAB",2,1,130.13,0)="COMPLICATION CATEGORY;T"
^DIE(1231,"DIAB",2,1,130.22,0)="COMPLICATION CATEGORY;T"
^DIE(1231,"DIAB",3,1,130.13,0)="2;T"
^DIE(1231,"DIAB",3,1,130.22,0)="3;T"
^DIE(1231,"DIAB",4,1,130.13,0)=".05;T"
^DIE(1231,"DIAB",4,1,130.22,0)=".05;T"
^DIE(1231,"DIAB",5,1,130.13,0)="1;T"
^DIE(1231,"DIAB",5,1,130.22,0)="2;T"
^DIE(1231,"DIAB",6,1,130.22,0)="4;T"
^DIE(1231,"DR",1,130)="1.14T~;1.16T~;"
^DIE(1231,"DR",2,130.13)=".01T~;3T~;2T~;.05T~;1T~;"
^DIE(1231,"DR",2,130.22)=".01T~;5T~;3T~;.05T~;2T~;4T~;"
^DIE(1232,0)="SROVER^2920515.122^^130^^^^"
^DIE(1232,"DIAB",1,0,130,0)="55;T"
^DIE(1232,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1232,"DIAB",1,1,130.18,0)=".01;T"
^DIE(1232,"DIAB",2,0,130,0)="26;T"
^DIE(1232,"DIAB",2,1,130.16,0)="3;T"
^DIE(1232,"DIAB",2,1,130.18,0)="3;T"
^DIE(1232,"DIAB",3,0,130,0)="27;T"
^DIE(1232,"DIAB",4,0,130,0)=".42;T"
^DIE(1232,"DIAB",5,0,130,0)="34;T"
^DIE(1232,"DIAB",6,0,130,0)="66;T"
^DIE(1232,"DIAB",7,0,130,0)=".74;T"
^DIE(1232,"DR",1,130)="55T~;26T~;27T~;.42T~;34T~;66T~;.74T~;"
^DIE(1232,"DR",2,130.16)=".01T~;3T~;"
^DIE(1232,"DR",2,130.18)=".01T~;3T~;"
^DIE(1233,0)="SROMEN-PACU^2900712.1036^^130^^^^"
^DIE(1233,"DIAB",1,0,130,0)="1.17;T"
^DIE(1233,"DIAB",2,0,130,0)="1.11;T"
^DIE(1233,"DIAB",3,0,130,0)="1.18;T"
^DIE(1233,"DIAB",4,0,130,0)="1.12;T"
^DIE(1233,"DR",1,130)="1.17T~;1.11T~;1.18T~;1.12T~;"
^DIE(1234,0)="SROANES-AMIS^2950510.0904^^130^^^^"
^DIE(1234,"DIAB",1,0,130,0)=".31;T"
^DIE(1234,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1234,"DIAB",1,2,130.47,0)=".01;T"
^DIE(1234,"DIAB",2,0,130,0)=".37;T"
^DIE(1234,"DIAB",2,1,130.06,0)=".05//YES;T"
^DIE(1234,"DIAB",2,2,130.47,0)="1;T"
^DIE(1234,"DIAB",3,0,130,0)="20//NO;T"
^DIE(1234,"DIAB",3,1,130.06,0)="42;T"
^DIE(1234,"DIAB",4,0,130,0)="1.13;T"
^DIE(1234,"DIAB",5,0,130,0)="901.1;T"
^DIE(1234,"DIAB",5,1,130.06,0)="12//NONE;T"
^DIE(1234,"DIAB",6,0,130,0)="901.2;T"
^DIE(1234,"DIAB",7,1,130.06,0)="24;T"
^DIE(1234,"DR",1,130)=".31T~;.37T~;20T~//NO;1.13T~;901.1T~;901.2T~;"
^DIE(1234,"DR",2,130.06)=".01T~;.05T~//YES;42T~;S:X=""N"" Y=""@0"";12T~//NONE;@0;24T~;"
^DIE(1234,"DR",3,130.47)=".01T~;1T~;"
^DIE(1235,0)="SRSREQV^3050725.0849^^130^^^3050725"
^DIE(1235,"DIAB",1,0,130,0)="26;T"
^DIE(1235,"DIAB",1,1,130.03,0)=".01;T"
^DIE(1235,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1235,"DIAB",1,1,130.14,0)=".01;T"
^DIE(1235,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1235,"DIAB",1,1,130.17,0)=".01;T"
^DIE(1235,"DIAB",2,0,130,0)=".42;T"
^DIE(1235,"DIAB",2,1,130.03,0)="1;T"
^DIE(1235,"DIAB",2,1,130.14,0)="1;T"
^DIE(1235,"DIAB",2,1,130.16,0)="3;T"
^DIE(1235,"DIAB",2,1,130.17,0)="2;T"
^DIE(1235,"DIAB",3,0,130,0)="27;T"
^DIE(1235,"DIAB",3,1,130.03,0)="2;T"
^DIE(1235,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1235,"DIAB",4,0,130,0)="32;T"
^DIE(1235,"DIAB",4,1,130.03,0)="3;T"
^DIE(1235,"DIAB",5,0,130,0)="32.5;T"
^DIE(1235,"DIAB",5,1,130.03,0)="4;T"
^DIE(1235,"DIAB",6,0,130,0)=".72;T"
^DIE(1235,"DIAB",6,1,130.03,0)="5;T"
^DIE(1235,"DIAB",7,0,130,0)=".011//I;T"
^DIE(1235,"DIAB",8,0,130,0)=".035;T"
^DIE(1235,"DIAB",9,0,130,0)=".04;T"
^DIE(1235,"DIAB",10,0,130,0)=".14;T"
^DIE(1235,"DIAB",11,0,130,0)=".15;T"
^DIE(1235,"DIAB",12,0,130,0)=".16;T"
^DIE(1235,"DIAB",13,0,130,0)=".164;T"
^DIE(1235,"DIAB",14,0,130,0)=".43;T"
^DIE(1235,"DIAB",15,0,130,0)=".037;T"
^DIE(1235,"DIAB",16,0,130,0)="SURGERY POS;T"
^DIE(1235,"DIAB",17,0,130,0)="1.01;T"
^DIE(1235,"DIAB",18,0,130,0)="1.02;T"
^DIE(1235,"DIAB",19,0,130,0)="1.03;T"
^DIE(1235,"DIAB",20,0,130,0)="1.035;T"
^DIE(1235,"DIAB",21,0,130,0)="38;T"
^DIE(1235,"DIAB",22,0,130,0)="40;T"
^DIE(1235,"DIAB",23,0,130,0)="1.05;T"
^DIE(1235,"DIAB",24,0,130,0)="1.04;T"
^DIE(1235,"DIAB",25,0,130,0)=".05;T"
^DIE(1235,"DIAB",26,0,130,0)="23;T"
^DIE(1235,"DIAB",27,0,130,0)=".28;T"
^DIE(1235,"DIAB",28,0,130,0)="55;T"
^DIE(1235,"DIAB",29,0,130,0)="BRIEF;T"
^DIE(1235,"DR",1,130)="26T~;.42T~;27T~;32T~;32.5T~;.72T~;.011T~//I;.035T~;.04T~;.14T~;.15T~;.16T~;.164T~;.43T~;.037T~;65T~;1.01T~;1.02T~;1.03T~;1.035T~;38T~;40T~;1.05T~;1.04T~;.05T~;23T~;.28T~;55T~;60T~;"
^DIE(1235,"DR",2,130.03)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1235,"DR",2,130.065)=".01T~;Q;"
^DIE(1235,"DR",2,130.14)=".01T~;1T~;"
^DIE(1235,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1235,"DR",2,130.17)=".01T~;2T~;"
^DIE(1236,0)="SROCOMP^2901204.1545^^130^^^^"
^DIE(1236,"DIAB",1,1,130.053,0)=".01;T"
^DIE(1236,"DIAB",2,0,130,0)="SURGEON;""Name of the Surgeon Treating the Complication"""
^DIE(1236,"DIAB",2,1,130.053,0)="COMPLICATION CATEGORY;T"
^DIE(1236,"DIAB",3,0,130,0)="ATTEND SUR;""Name of the Attending Surgeon"""
^DIE(1236,"DIAB",3,1,130.053,0)="3;T"
^DIE(1236,"DIAB",4,0,130,0)=".04;T"
^DIE(1236,"DIAB",4,1,130.053,0)="1;T"
^DIE(1236,"DIAB",5,1,130.053,0)="4;T"
^DIE(1236,"DIAB",6,0,130,0)="53;T"
^DIE(1236,"DR",1,130)="S:'$D(SRSDATE) SRSDATE="""";.14Name of the Surgeon Treating the Complication~;.164Name of the Attending Surgeon~;.04T~;54////1;53T~;"
^DIE(1236,"DR",2,130.053)=".01T~;5T~;3T~;1T~;4T~;"
^DIE(1237,0)="SROMEN-START^3060316.1038^^130^^^3060316"
^DIE(1237,"DIAB",1,0,130,0)=".09;T"
^DIE(1237,"DIAB",1,1,130.042,0)=".01;T"
^DIE(1237,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1237,"DIAB",1,1,130.17,0)=".01;T"
^DIE(1237,"DIAB",1,1,130.31,0)=".01;T"
^DIE(1237,"DIAB",2,0,130,0)="32;T"
^DIE(1237,"DIAB",2,1,130.042,0)="1;T"
^DIE(1237,"DIAB",2,1,130.065,0)="1;T"
^DIE(1237,"DIAB",2,1,130.17,0)="3;T"
^DIE(1237,"DIAB",2,1,130.31,0)="1;T"
^DIE(1237,"DIAB",3,0,130,0)="32.5;T"
^DIE(1237,"DIAB",3,1,130.042,0)="2;T"
^DIE(1237,"DIAB",3,1,130.17,0)="2;T"
^DIE(1237,"DIAB",4,0,130,0)=".72;T"
^DIE(1237,"DIAB",5,0,130,0)=".02;T"
^DIE(1237,"DIAB",6,0,130,0)=".04;T"
^DIE(1237,"DIAB",7,0,130,0)=".03;T"
^DIE(1237,"DIAB",8,0,130,0)=".43;T"
^DIE(1237,"DIAB",9,0,130,0)=".035;T"
^DIE(1237,"DIAB",10,0,130,0)="1.01;T"
^DIE(1237,"DIAB",11,0,130,0)=".971;T"
^DIE(1237,"DIAB",12,0,130,0)="17;T"
^DIE(1237,"DIAB",13,0,130,0)="18;T"
^DIE(1237,"DIAB",14,0,130,0)="67;T"
^DIE(1237,"DIAB",15,0,130,0)="42;T"
^DIE(1237,"DIAB",16,0,130,0)=".69;T"
^DIE(1237,"DIAB",17,0,130,0)="73;T"
^DIE(1237,"DIAB",18,0,130,0)="72;T"
^DIE(1237,"DIAB",19,0,130,0)="71;T"
^DIE(1237,"DIAB",20,0,130,0)="84;T"
^DIE(1237,"DIAB",21,0,130,0)="83;T"
^DIE(1237,"DIAB",22,0,130,0)="82;T"
^DIE(1237,"DIAB",23,0,130,0)="1.13;T"
^DIE(1237,"DIAB",24,0,130,0)=".19;T"
^DIE(1237,"DIAB",25,0,130,0)=".196;T"
^DIE(1237,"DIAB",26,0,130,0)=".07;T"
^DIE(1237,"DIAB",27,0,130,0)=".11;T"
^DIE(1237,"DIAB",28,0,130,0)=".12;T"
^DIE(1237,"DIAB",29,0,130,0)="506;T"
^DIE(1237,"DIAB",30,0,130,0)="508;T"
^DIE(1237,"DIAB",31,0,130,0)=".18;T"
^DIE(1237,"DIAB",32,0,130,0)="4;T"
^DIE(1237,"DIAB",33,0,130,0)=".175;T"
^DIE(1237,"DIAB",34,0,130,0)="8;T"
^DIE(1237,"DIAB",35,0,130,0)="65;T"
^DIE(1237,"DIAB",36,0,130,0)=".13;T"
^DIE(1237,"DIAB",37,0,130,0)=".55;T"
^DIE(1237,"DIAB",38,0,130,0)="6;T"
^DIE(1237,"DR",1,130)=".09T~;32T~;32.5T~;.72T~;.02T~;.04T~;.03T~;.43T~;.035T~;1.01T~;.971T~;17T~;18T~;67T~;42T~;.69T~;73T~;72T~;71T~;84T~;83T~;82T~;1.13T~;.19T~;.196T~;.07T~;.11T~;.12T~;506T~;508T~;.18T~;4T~;.175T~;8T~;65T~;.13T~;.55T~;6T~;"
^DIE(1237,"DR",2,130.042)=".01T~;1T~;2T~;"
^DIE(1237,"DR",2,130.065)=".01T~;1T~;"
^DIE(1237,"DR",2,130.17)=".01T~;3T~;2T~;"
^DIE(1237,"DR",2,130.31)=".01T~;1T~;"
^DIE(1238,0)="SRO-ROOM^2930415.0913^^131.7^^^2930415"
^DIE(1238,"DIAB",1,0,131.7,0)="1;T"
^DIE(1238,"DIAB",2,0,131.7,0)="2;T"
^DIE(1238,"DIAB",3,0,131.7,0)="3;T"
^DIE(1238,"DIAB",4,0,131.7,0)="9;T"
^DIE(1238,"DIAB",5,0,131.7,0)="10;T"
^DIE(1238,"DIAB",6,0,131.7,0)="4;T"
^DIE(1238,"DIAB",7,0,131.7,0)="99;T"
^DIE(1238,"DR",1,131.7)="1T~;2T~;3T~;9T~;10T~;4T~;99T~;"
^DIE(1239,0)="SRNON-OR^3040915.111^^130^^^3040915"
^DIE(1239,"DIAB",1,0,130,0)="120;T"
^DIE(1239,"DIAB",1,1,130.0126,0)=".01;T"
^DIE(1239,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1239,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1239,"DIAB",1,1,130.18,0)=".01;T"
^DIE(1239,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1239,"DIAB",1,2,130.47,0)=".01;T"
^DIE(1239,"DIAB",2,0,130,0)="26;T"
^DIE(1239,"DIAB",2,1,130.0126,0)="1;T"
^DIE(1239,"DIAB",2,1,130.06,0)=".05//YES;T"
^DIE(1239,"DIAB",2,1,130.16,0)="3;T"
^DIE(1239,"DIAB",2,1,130.18,0)="3;T"
^DIE(1239,"DIAB",2,1,130.213,0)="1;T"
^DIE(1239,"DIAB",2,2,130.47,0)="1;T"
^DIE(1239,"DIAB",3,0,130,0)="27;T"
^DIE(1239,"DIAB",3,1,130.0126,0)="2;T"
^DIE(1239,"DIAB",3,1,130.06,0)="24;T"
^DIE(1239,"DIAB",3,1,130.16,0)="1.5;T"
^DIE(1239,"DIAB",4,0,130,0)="125;T"
^DIE(1239,"DIAB",4,1,130.0126,0)="3;T"
^DIE(1239,"DIAB",5,0,130,0)="1004;T"
^DIE(1239,"DIAB",5,1,130.0126,0)="4;T"
^DIE(1239,"DIAB",6,0,130,0)=".011;T"
^DIE(1239,"DIAB",6,1,130.0126,0)="5;T"
^DIE(1239,"DIAB",7,0,130,0)="121;T"
^DIE(1239,"DIAB",8,0,130,0)="122;T"
^DIE(1239,"DIAB",9,0,130,0)="123;T"
^DIE(1239,"DIAB",10,0,130,0)="119;T"
^DIE(1239,"DIAB",11,0,130,0)=".021;T"
^DIE(1239,"DIAB",12,0,130,0)="33;T"
^DIE(1239,"DIAB",13,0,130,0)="66;T"
^DIE(1239,"DIAB",14,0,130,0)="55;T"
^DIE(1239,"DIAB",17,0,130,0)="124;T"
^DIE(1239,"DIAB",18,0,130,0)=".166;T"
^DIE(1239,"DIAB",19,0,130,0)=".31;T"
^DIE(1239,"DIAB",20,0,130,0)=".34;T"
^DIE(1239,"DIAB",21,0,130,0)=".213;T"
^DIE(1239,"DIAB",22,0,130,0)=".37;T"
^DIE(1239,"DIAB",23,0,130,0)=".345;T"
^DIE(1239,"DIAB",24,0,130,0)="20;T"
^DIE(1239,"DIAB",25,0,130,0)="1.13;T"
^DIE(1239,"DIAB",26,0,130,0)=".42;T"
^DIE(1239,"DIAB",27,0,130,0)=".74;T"
^DIE(1239,"DIAB",28,0,130,0)="126;T"
^DIE(1239,"DIAB",30,0,130,0)=".28;T"
^DIE(1239,"DR",1,130)="120T~;26T~;27T~;125T~;1004T~;.011T~;121T~;122T~;123T~;119T~;.021T~;33T~;66T~;55T~;60;59;124T~;.166T~;.31T~;.34T~;.213T~;.37T~;.345T~;20T~;1.13T~;.42T~;.74T~;126T~;49;.28T~;17;18;"
^DIE(1239,"DR",2,130.0126)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1239,"DR",2,130.06)=".01T~;.05T~//YES;24T~;"
^DIE(1239,"DR",2,130.16)=".01T~;3T~;1.5T~;"
^DIE(1239,"DR",2,130.18)=".01T~;3T~;"
^DIE(1239,"DR",2,130.213)=".01T~;1T~;"
^DIE(1239,"DR",3,130.47)=".01T~;1T~;"
^DIE(1240,0)="SRPARAM^3051101.1313^^133^^^3051101"
^DIE(1240,"DIAB",1,0,133,0)="3;T"
^DIE(1240,"DIAB",1,1,133.027,0)=".01;T"
^DIE(1240,"DIAB",1,1,133.028,0)=".01;T"
^DIE(1240,"DIAB",2,0,133,0)="6;T"
^DIE(1240,"DIAB",2,1,133.028,0)="1;T"
^DIE(1240,"DIAB",3,0,133,0)="41;T"
^DIE(1240,"DIAB",4,0,133,0)="9;T"
^DIE(1240,"DIAB",5,0,133,0)="10;T"
^DIE(1240,"DIAB",6,0,133,0)="11;T"
^DIE(1240,"DIAB",7,0,133,0)="13;T"
^DIE(1240,"DIAB",8,0,133,0)="29;T"
^DIE(1240,"DIAB",9,0,133,0)="15;T"
^DIE(1240,"DIAB",10,0,133,0)="17;T"
^DIE(1240,"DIAB",11,0,133,0)="18.5;T"
^DIE(1240,"DIAB",12,0,133,0)="33;T"
^DIE(1240,"DIAB",19,0,133,0)="28;T"
^DIE(1240,"DIAB",20,0,133,0)="20;T"
^DIE(1240,"DIAB",21,0,133,0)="21;T"
^DIE(1240,"DIAB",22,0,133,0)="22;T"
^DIE(1240,"DIAB",23,0,133,0)="23;T"
^DIE(1240,"DIAB",24,0,133,0)="24;T"
^DIE(1240,"DIAB",25,0,133,0)="25;T"
^DIE(1240,"DIAB",26,0,133,0)="26;T"
^DIE(1240,"DIAB",27,0,133,0)="27;T"
^DIE(1240,"DIAB",28,0,133,0)="35;T"
^DIE(1240,"DIAB",29,0,133,0)="37;T"
^DIE(1240,"DIAB",30,0,133,0)="40;T"
^DIE(1240,"DIAB",31,0,133,0)="42;T"
^DIE(1240,"DIAB",32,0,133,0)="43;T"
^DIE(1240,"DR",1,133)="3T~;6T~;41T~;9T~;10T~;11T~;13T~;29T~;15T~;17T~;18.5T~;33T~;Q;Q;Q;28T~;20T~;21T~;22T~;23T~;24T~;25T~;26T~;27T~;35T~;37T~;40T~;42T~;43T~;"
^DIE(1240,"DR",2,133.027)=".01T~;"
^DIE(1240,"DR",2,133.028)=".01T~;1T~;"
^DIE(1241,0)="SRISK-MISC^2950207.1343^^130^^^^"
^DIE(1241,"DIAB",1,0,130,0)="376;T"
^DIE(1241,"DIAB",2,0,130,0)="380;T"
^DIE(1241,"DIAB",3,0,130,0)="377;T"
^DIE(1241,"DIAB",4,0,130,0)="381;T"
^DIE(1241,"DIAB",5,0,130,0)="378;T"
^DIE(1241,"DIAB",6,0,130,0)="382;T"
^DIE(1241,"DIAB",7,0,130,0)="379;T"
^DIE(1241,"DIAB",8,0,130,0)="383;T"
^DIE(1241,"DIAB",11,0,130,0)="383.1;T"
^DIE(1241,"DR",1,130)="376T~;380T~;377T~;381T~;378T~;382T~;379T~;383T~;S SROTH=X;S:X'=""Y"" Y=""@1"";383.1T~;@1;"
^DIE(1242,0)="SRISK-NOCOMP^2921215.104^^130^^^2930608^"
^DIE(1242,"DR",1,130)="403////N;248////N;249////N;404////N;318////N;251////N;412////N;252////N;285////N;319////N;409////N;254////N;255////N;320////N;256////N;410////N;287////N;321////N;411////N;258////N;259////N;322////N;345////N;257////N;261////N;"
^DIE(1242,"DR",1,130,1)="263////N;250////N;385////N;386////N;387////N;388////N;389////N;391////N;390////N;344///@;343///@;392///@;253///@;286///@;"
^DIE(1243,0)="SRISK-NOCARD^2920302.1407^^130^^^^"
^DIE(1243,"DR",1,130)="384////N;385////N;386////N;254////N;387////N;388////N;389////N;285////N;391////N;410////N;390////N;411////N;"
^DIE(1244,0)="SROTHER^2920324.1209^^130^^^^"
^DIE(1244,"DR",1,130)=".42;"
^DIE(1244,"DR",2,130.16)=".01;3;"
^DIE(1245,0)="SRO-NOCOMP^3070123.1258^^130^^^3070510"
^DIE(1245,"DR",1,130)="403////N;248////N;249////N;404////N;488////N;318////N;251////N;412////N;490////N;252////N;285////N;319////N;409////N;254////N;255////N;320////N;256////N;410////N;287////N;321////N;411////N;258////N;322////N;257////N;261////N;"
^DIE(1245,"DR",1,130,1)="263////N;250////N;385////N;386////N;387////N;388////N;389////N;391////N;466////N;467////N;447////N;"
^DIE(1246,0)="SREQUEST^3050624.1525^^130^^^3060111"
^DIE(1246,"DIAB",1,0,130,1)=".16;T"
^DIE(1246,"DIAB",1,0,130,2)="1.03;T"
^DIE(1246,"DIAB",1,1,130.03,0)=".01;T"
^DIE(1246,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1246,"DIAB",2,0,130,0)="32;T"
^DIE(1246,"DIAB",2,1,130.03,0)="1;T"
^DIE(1246,"DIAB",3,1,130.03,0)="2;T"
^DIE(1246,"DIAB",4,0,130,1)=".164;T"
^DIE(1246,"DIAB",4,0,130,2)="1.035;T"
^DIE(1246,"DIAB",4,1,130.03,0)="3;T"
^DIE(1246,"DIAB",5,0,130,0)="32.5;T"
^DIE(1246,"DIAB",5,1,130.03,0)="4;T"
^DIE(1246,"DIAB",6,1,130.03,0)="5;T"
^DIE(1246,"DIAB",7,0,130,1)=".43;T"
^DIE(1246,"DIAB",7,0,130,2)="1.04;T"
^DIE(1246,"DIAB",8,0,130,0)=".011//I;T"
^DIE(1246,"DIAB",9,0,130,0)=".011//I;T"
^DIE(1246,"DIAB",10,0,130,1)=".037;T"
^DIE(1246,"DIAB",10,0,130,2)=".05;T"
^DIE(1246,"DIAB",11,0,130,0)="56;T"
^DIE(1246,"DIAB",12,0,130,1)="SURGERY POS;T"
^DIE(1246,"DIAB",12,0,130,2)="23;T"
^DIE(1246,"DIAB",13,0,130,2)=".28;T"
^DIE(1246,"DIAB",14,0,130,0)=".035;T"
^DIE(1246,"DIAB",14,0,130,1)="1.01;T"
^DIE(1246,"DIAB",14,0,130,2)="80;T"
^DIE(1246,"DIAB",17,0,130,0)=".15;T"
^DIE(1246,"DIAB",17,0,130,1)="1.02;T"
^DIE(1246,"DR",1,130)="I $D(SREQ(32)) S Y=""@1"";32T~;@1;I $D(SREQ(32.5)) S Y=""@2"";32.5T~;@2;I $D(SREQ(.011)) S Y=""@4"";Q;.011T~//I;I X=""I"" S Y=""@4"";56T~;@4;I $D(SREQ(.035)) S Y=""@5"";.035T~;@5;I $D(SREQ(.15)) S Y=""@6"";.15T~;@6;I $D(SREQ(.16)) S Y=""@7"";"
^DIE(1246,"DR",1,130,1)=".16T~;@7;I $D(SREQ(.164)) S Y=""@8"";.164T~;@8;I $D(SREQ(.43)) S Y=""@9"";.43T~;@9;I $D(SREQ(.037)) S Y=""@10"";.037T~;@10;65T~;I $D(SREQ(1.01)) S Y=""@11"";1.01T~;@11;I $D(SREQ(1.02)) S Y=""@12"";1.02T~;@12;I $D(SREQ(1.03)) S Y=""@13"";"
^DIE(1246,"DR",1,130,2)="1.03T~;@13;I $D(SREQ(1.035)) S Y=""@14"";1.035T~;@14;I $D(SREQ(1.04)) S Y=""@15"";1.04T~;@15;I $D(SREQ(.05)) S Y=""@16"";.05T~;@16;23T~;.28T~;80T~;"
^DIE(1246,"DR",2,130.03)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1246,"DR",2,130.065)=".01T~;"
^DIE(1246,"DR",99,1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^PRCP(445.3,D,0)) S X=$P(^(0),U) S DWLC=DWLC+1,^SRF(DA,DV,DWLC,0)=X"
^DIE(1246,"DR",99,1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^PRCP(445.3,""ASR2"",I(0,0))),DIMSCNT=$QL(DIMQ) F  S DIMQ=$Q(@DIMQ) Q:DIMQ=""""  Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT   X DR(99,1,9.2) Q:'$D(D)  S D=D0"
^DIE(1246,"DR",99,2,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^PRCP(445.3,D,0)) S X=$P(^(0),U) S DWLC=DWLC+1,^SRF(DA,DV,DWLC,0)=X"
^DIE(1246,"DR",99,2,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^PRCP(445.3,""ASR2"",I(0,0))),DIMSCNT=$QL(DIMQ) F  S DIMQ=$Q(@DIMQ) Q:DIMQ=""""  Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT   X DR(99,2,9.2) Q:'$D(D)  S D=D0"
^DIE(1247,0)="SRSCHED-UNREQUESTED^3050624.1531^^130^^^3060111"
^DIE(1247,"DIAB",1,0,130,1)=".16;T"
^DIE(1247,"DIAB",2,0,130,0)="32;T"
^DIE(1247,"DIAB",2,0,130,2)="1.035;T"
^DIE(1247,"DIAB",4,0,130,1)=".164;T"
^DIE(1247,"DIAB",5,0,130,0)="32.5;T"
^DIE(1247,"DIAB",5,0,130,2)="1.04;T"
^DIE(1247,"DIAB",7,0,130,1)=".43;T"
^DIE(1247,"DIAB",8,0,130,2)=".05;T"
^DIE(1247,"DIAB",9,0,130,0)=".011//I;T"
^DIE(1247,"DIAB",10,0,130,1)=".037;T"
^DIE(1247,"DIAB",10,0,130,2)=".28;T"
^DIE(1247,"DIAB",11,0,130,0)="56;T"
^DIE(1247,"DIAB",11,0,130,2)="80;T"
^DIE(1247,"DIAB",13,0,130,1)="1.01;T"
^DIE(1247,"DIAB",14,0,130,0)=".035;T"
^DIE(1247,"DIAB",16,0,130,1)="1.02;T"
^DIE(1247,"DIAB",17,0,130,0)=".15;T"
^DIE(1247,"DIAB",19,0,130,1)="1.03;T"
^DIE(1247,"DR",1,130)="I $D(SREQ(32)) S Y=""@1"";32T~;@1;I $D(SREQ(32.5)) S Y=""@2"";32.5T~;@2;I $D(SREQ(.011)) S Y=""@4"";Q;.011T~//I;I X=""I"" S Y=""@4"";56T~;@4;I $D(SREQ(.035)) S Y=""@5"";.035T~;@5;I $D(SREQ(.15)) S Y=""@6"";.15T~;@6;I $D(SREQ(.16)) S Y=""@7"";"
^DIE(1247,"DR",1,130,1)=".16T~;@7;I $D(SREQ(.164)) S Y=""@8"";.164T~;@8;I $D(SREQ(.43)) S Y=""@9"";.43T~;@9;I $D(SREQ(.037)) S Y=""@10"";.037T~;@10;I $D(SREQ(1.01)) S Y=""@11"";1.01T~;@11;I $D(SREQ(1.02)) S Y=""@12"";1.02T~;@12;I $D(SREQ(1.03)) S Y=""@13"";1.03T~;@13;"
^DIE(1247,"DR",1,130,2)="I $D(SREQ(1.035)) S Y=""@14"";1.035T~;@14;I $D(SREQ(1.04)) S Y=""@15"";1.04T~;@15;I $D(SREQ(.05)) S Y=""@16"";.05T~;@16;.28T~;80T~;"
^DIE(1248,0)="XUREACT USER^3050103.0736^^200^^^3050103"
^DIE(1248,"DIAB",1,1,200.010113,0)="ALL"
^DIE(1248,"DIAB",1,1,200.02,0)="ALL"
^DIE(1248,"DIAB",7,0,200,0)="NAME COMPONENTS:"
^DIE(1248,"DR",1,200)="9.2///@;S XUITNAME=1;.01;K XUITNAME;S D0=DA;D CHKPTR^XLFNAME2;^20^VA(20,^^S I(0,0)=D0 S Y(1)=$S($D(^VA(200,D0,3.1)):^(3.1),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1;13;7;9.2;9.4;8;5;.111;.112;.113;.114;.115;"
^DIE(1248,"DR",1,200,1)=".116;.151;9;16;29;28;2.1;11.1;3;201;203;31.3;14;31.1;200.04;200.05;200.06;200.09;200.1;200.11;15;41;41.2;.131;.132;.135;.136;.137;.138;200.07;101.01;101.02;101.13;8932.1;"
^DIE(1248,"DR",2,20)="1;2;3;4;5;6;S DIEFIRE=""RM"";"
^DIE(1248,"DR",2,200.010113)=".01:.03"
^DIE(1248,"DR",2,200.02)=".01:1"
^DIE(1248,"DR",2,200.03)=".01:2;"
^DIE(1248,"DR",2,200.05)=".01:3;"
^DIE(1249,0)="XUSER PC BUILD^2960619.1244^^200^^^2960619"
^DIE(1249,"DR",1,200)="8932.1;"
^DIE(1249,"DR",2,200.05)=".01;2;3;"
^DIE(1250,0)="PRCH PURCHASE CARD^2990322.1045^^440.5^^^2991109"
^DIE(1250,"DIAB",2,0,440.5,3)="CARD HOLDER:"
^DIE(1250,"DR",1,440.5)="S PRCHORIG=$P(^PRC(440.5,DA,0),U,8),PRCHAPP=$P(^PRC(440.5,DA,0),U,9);15///^S X=PRC(""SITE"");S CARDNO=$P(^PRC(440.5,DA,0),U);.01;"
^DIE(1250,"DR",1,440.5,1)="I $L(X)'=16 W !,""Please enter the 16 digit Purchase Card Number."" S $P(^PRC(440.5,DA,0),U)=CARDNO S Y=.01;16;14;S PRCHHLDR=$P(^PRC(440.5,DA,0),U,8);7//^S X=$P($G(^PRC(440.5,DA,50)),U,2);"
^DIE(1250,"DR",1,440.5,2)="I $G(X)'=$G(PRCHHLDR),$D(^PRC(442,""AM"",DA)) W !,?5,""There has been a charge against this Purchase Card."",!,?5,""This card cannot be reassigned."" S $P(^PRC(440.5,DA,0),U,8)=PRCHHLDR,Y=7;"
^DIE(1250,"DR",1,440.5,3)="S PRCHHLDR=+X,PRCHAPP=$P(^PRC(440.5,DA,0),U,9),PRCHALT=$P(^PRC(440.5,DA,0),U,10);^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^PRC(440.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");1;Q;2;Q;3;"
^DIE(1250,"DR",1,440.5,4)="S PRCHSING=$P(^PRC(440.5,DA,0),U,5),PRCHMNTH=$P(^PRC(440.5,DA,0),U,6);4;"
^DIE(1250,"DR",1,440.5,5)="I $G(PRCHMNTH)'="""",$G(X)>PRCHMNTH W !,""The Single Purchase Limit can not be greater than the Monthly Purchase Limit."",! S $P(^PRC(440.5,DA,0),U,5)=PRCHSING,Y=4;S PRCHSING=+X;5;"
^DIE(1250,"DR",1,440.5,6)="I $G(X)<$G(PRCHSING) W !,""Monthly Purchase Card limit can not be less than the Single Purchase Limit."",! S $P(^PRC(440.5,DA,0),U,6)=PRCHMNTH,Y=5;S PRCHMNTH=$P(^PRC(440.5,DA,0),U,6);6;8;S PRCHAUCP=$P(^PRC(440.5,DA,0),U,2);"
^DIE(1250,"DR",1,440.5,7)="I $G(PRCHAUCP),'$D(^PRC(420,PRC(""SITE""),1,+PRCHAUCP,1,X)) W !!,?5,""The Approving Official is not an authorized user"",!,?5,""for ""_$P(PRCHAUCP,"" "",1,2)_"" control point."",! S $P(^PRC(440.5,DA,0),U,9)=PRCHAPP,Y=8;K PRCHAUCP;"
^DIE(1250,"DR",1,440.5,8)="I X'="""",X=$G(PRCHHLDR) W !,""Approving Official can not be same as the Card holder."",! S $P(^PRC(440.5,DA,0),U,9)=PRCHAPP,Y=8;"
^DIE(1250,"DR",1,440.5,9)="I X'="""",X=$G(PRCHALT) W !,""Approving Official can not be same as the Alternate Approving Official."",! S $P(^PRC(440.5,DA,0),U,9)=PRCHAPP,Y=8;S PRCHAPP=$P(^PRC(440.5,DA,0),U,9);9;S PRCHAUCP=$P(^PRC(440.5,DA,0),U,2);"
^DIE(1250,"DR",1,440.5,10)="I $G(PRCHAUCP),$G(X),'$D(^PRC(420,PRC(""SITE""),1,+PRCHAUCP,1,X)) W !!,?5,""The Alternate Approving Official is not an authorized user"",!,?5,""for ""_$P(PRCHAUCP,"" "",1,2)_"" control point."",! S $P(^PRC(440.5,DA,0),U,10)=PRCHALT,Y=9;"
^DIE(1250,"DR",1,440.5,11)="K PRCHAUCP;I X'="""",X=$G(PRCHHLDR) W !,""Alternate Approving Official can not be same as the Card holder."",! S $P(^PRC(440.5,DA,0),U,10)=PRCHALT,Y=9;"
^DIE(1250,"DR",1,440.5,12)="I X'="""",X=$G(PRCHAPP) W !,""Alternate Approving Official can not be same as the Approving Official."",! S $P(^PRC(440.5,DA,0),U,10)=PRCHALT,Y=9;S PRCHALT=$P(^PRC(440.5,DA,0),U,10);10;"
^DIE(1250,"DR",2,200)=".135;"
^DIE(1251,0)="ONCO FOLL ADD/EDIT LETTER^2920520.1921^^165.1^^^^"
^DIE(1251,"%D",0)="^^2^2^2920527^"
^DIE(1251,"%D",1,0)="User may add or edit a follow-up letter file allowing for the creation"
^DIE(1251,"%D",2,0)="of custom designed letters."
^DIE(1251,"DR",1,165.1)=".01;2;3;1;"
^DIE(1253,0)="ONCO FOLL-ADD CONTACT^3060307.121^^160^^^3060307"
^DIE(1253,"%D",0)="^^3^3^2920527^"
^DIE(1253,"%D",1,0)="Allows for the addition a contact for a patient creating a relationship"
^DIE(1253,"%D",2,0)="between the patient and the contact file. Contacts are deleted at time"
^DIE(1253,"%D",3,0)="of death by separate option."
^DIE(1253,"DIAB",1,1,160.03,1)="CONTACT NAME:"
^DIE(1253,"DR",1,160)="420;"
^DIE(1253,"DR",2,160.03)=".01//^S X=""Patient"";1;W !!?4,""Going to the ONCOLOGY CONTACT file to edit this contact's name and address."",!;"
^DIE(1253,"DR",2,160.03,1)="^165^ONCO(165,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^ONCO(160,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1253,"DR",3,165)=".01;.111;.112;.113;.119;.131;S Y=$S($P(^ONCO(165,D0,0),U,2)=4:99,1:2);2;S Y=3;99;3;"
^DIE(1254,0)="ONCO FOLLOWUP^3030722.1418^^160^^^3030723"
^DIE(1254,"%D",0)="^^4^4^2930722^^"
^DIE(1254,"%D",1,0)="Template used to post a follow-up for a patient and record status."
^DIE(1254,"%D",2,0)=" "
^DIE(1254,"%D",3,0)="DEVELOPERS NOTE:  For consistent functionality, line FOLDR^ONCOFUL must"
^DIE(1254,"%D",4,0)="be identical to the 160.04 node(s) in this template."
^DIE(1254,"DR",1,160)="S OSP=$O(^ONCO(160.1,""C"",DUZ(2),0));I OSP="""" S OSP=$O(^ONCO(160.1,0));S IIN=$P($G(^ONCO(160.1,OSP,1)),U,4);400;"
^DIE(1254,"DR",2,160.04)="S ONCOD1=DA;.01;S LC=X;S IENS=D1_"",""_D0_"","";W !?2,""REGISTRAR: "",$$GET1^DIQ(160.04,IENS,11);W !?2,""DATE ENTERED: "",$$GET1^DIQ(160.04,IENS,12);1;S VS=X;3;S:VS=0 Y=""@999"";4;10//^S X=$P($G(^ONCO(160.19,IIN,0)),U,2);"
^DIE(1254,"DR",2,160.04,1)="6//^S X=""Chart requisition"";S NF=X S:X'=5 Y=""@1000"",UF="""";7;S UF=X;S Y=""@1000"";@999;4////8;6////9;S NF=9;@1000;5;8////1;D TEMP451^ONCOAIS;@1001;S FG=1;"
^DIE(1255,0)="ONCO DEATH^2990928.1539^^160^^^3000207"
^DIE(1255,"%D",0)="^^2^2^2920622^^"
^DIE(1255,"%D",1,0)="Template specific to death information only; input when date of death"
^DIE(1255,"%D",2,0)="of patient has been ascertained - final follow-up for patient."
^DIE(1255,"DR",1,160)="29;18.9;19;S X=X;I $P($G(^ONCO(160,D0,1)),""^"",3)'="""" S Y=21;19.1;21;K DIE(""NO^"");24.5;22.9;S:X'=1 Y=""@10"";23;24;31;S Y=""@20"";@10;23///@;24///@;31///@;@20;"
^DIE(1255,"ROUOLD")=""
^DIE(1259,0)="ONCO FOLL ATTEMPT^2920226.1445^^160^^^2960327^"
^DIE(1259,"%D",0)="^^2^2^2920527^"
^DIE(1259,"%D",1,0)="Attempt a follow-up allows user to keep track of follow-up attempts and"
^DIE(1259,"%D",2,0)="generate the printing of a letter, or post a follow-up."
^DIE(1259,"DR",1,160)="410;"
^DIE(1259,"DR",2,160.06)="S ONCOD0=D0,ONCOD1=D1;.01;S XDT=X;1;S XTY=X;S:XTY=1 Y=3,XRS="""";S:XTY=3 ONCOL=1;2;S XRS=$S(XTY=3:""Pending"",1:"""");3//^S X=XRS;Q;S XRS=X;4;5////1;S FG=1;"
^DIE(1260,0)="ONCO UPDATE CONTACT^2920815.2054^^165^^^2960401^"
^DIE(1260,"DR",1,165)=".01;1;.111;.112;.113;.119;.131;S:$P(^ONCO(165,D0,0),U,2)=4 Y=99;2;S Y=3;99;3;"
^DIE(1261,0)="ONCO UTL CORRECT DATA^3020814.135^^165.5^^^3021029"
^DIE(1261,"%D",0)="^^1^1^2920528^"
^DIE(1261,"%D",1,0)="Utility tempate allowing for the correction of data entries in primary file."
^DIE(1261,"DR",1,165.5)="W !;.01;20;.07;.05;.06;.04;3;S X=X;I $P($G(^ONCO(165.5,DA,0)),""^"",16)>3001231 S Y=22.3;22;S Y=""@1"";22.3;@1;W !! D SDA^ONCOCOM;"
^DIE(1262,0)="ONCO RECURRENCE FOLLOWUP^3070314.1504^^165.5^^^3070409"
^DIE(1262,"DR",1,165.5)="D RE^ONCOAIF;71;S:X="""" Y=""@70"";S XR=$P(^ONCO(160.12,X,0),U,1);70;S Y=""@11"";@70;70////@;S Y=""@99"";@11;I $P($G(^ONCO(165.5,DA,0)),U,16)>3051231 S Y=""@1"";71.4;@1;S:(XR<40)!(XR>62) Y=""@98"";71.1;S:X=0 Y=""@96"";71.2;S:X=0 Y=""@97"";71.3;"
^DIE(1262,"DR",1,165.5,1)="S Y=""@99"";@96;71.2////0;W !,""DISTANT SITE 2: None"";@97;71.3////0;W !,""DISTANT SITE 3: None"";S Y=""@99"";@98;S $P(^ONCO(165.5,D0,5),U,3,5)=""0^0^0"";W !,""DISTANT SITE 1: None"";W !,""DISTANT SITE 2: None"";W !,""DISTANT SITE 3: None"";@99;"
^DIE(1262,"DR",1,165.5,2)="D STX^ONCOAIF;60;K XR;"
^DIE(1262,"DR",2,165.51)=".01;I TX="""" W !!,""  **  ICDO-TOPOGRAPHY CODE NOT defined for this primary -- cannot continue  **"",! S Y=""@999"";.04;I X="""" S Y=$S(DATEDX>2971231:""@35"",1:.05);S X=X;S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),""^"",4);"
^DIE(1262,"DR",2,165.51,1)="I (SPS=""00"")!(SPS=1) S $P(^ONCO(165.5,D0,4,D1,0),U,11)=""0000000"",Y=$S(DATEDX>2971231:""@35"",1:.05) W !,""  SURGERY OF PRIMARY SITE DATE..: 00/00/00"";S SSTOP=$P($G(^ONCO(164,TX,0)),""^"",16);"
^DIE(1262,"DR",2,165.51,2)="I SPS'="""",$G(^ONCO(164,SSTOP,""SPS"",SPS,0))[""Unknown"" S $P(^ONCO(165.5,D0,4,D1,0),U,11)=""9999999"",Y=$S(DATEDX>2971231:""@35"",1:.05) W !,""  SURGERY OF PRIMARY SITE DATE..: 99/99/99"";.041;S Y=$S(DATEDX<2980101:.05,1:""@35"");@35;.05;"
^DIE(1262,"DR",2,165.51,3)="S:(X=0)!(X=7) Y=""@20"";S:(X=8)!(X=9) Y=""@29"";.051;S Y=""@03"";@20;.051////0000000;W !,?2,""RADIATION DATE: 00/00/0000"";S Y=""@03"";@29;.051////9999999;W !,?2,""RADIATION DATE: 99/99/9999"";@03;I DATEDX>2951231 S Y=.06;.03;"
^DIE(1262,"DR",2,165.51,4)="S:(X=0)!(X=7) Y=""@30"";S:(X=8)!(X=9) Y=""@39"";.031;S Y=.06;@30;.031////0000000;W !,?2,""RADIATION THERAPY TO CNS DATE: 00/00/0000"";S Y=.06;@39;.031////9999999;W !,?2,""RADIATION THERAPY TO CNS DATE: 99/99/9999"";.06;"
^DIE(1262,"DR",2,165.51,5)="S:(X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) Y=""@40"";S:(X=88)!(X=99) Y=""@49"";.061;S Y=.07;@40;.061////0000000;W !,?2,""CHEMOTHERAPY DATE: 00/00/0000"";S Y=.07;@49;.061////9999999;W !,?2,""CHEMOTHERAPY DATE: 99/99/9999"";.07;"
^DIE(1262,"DR",2,165.51,6)="S:(X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) Y=""@50"";S:(X=88)!(X=99) Y=""@59"";.071;S Y=.08;@50;.071////0000000;W !,?2,""HORMONE THERAPY DATE: 00/00/0000"";S Y=.08;@59;.071////9999999;W !,?2,""HORMONE THERAPY DATE: 99/99/9999"";.08;"
^DIE(1262,"DR",2,165.51,7)="I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) S Y=""@60"";I (X=88)!(X=99) S Y=""@69"";.081;S Y=.02;@60;.081////0000000;W !,?2,""IMMUNOTHERAPY DATE: 00/00/0000"";S Y=.02;@69;.081////9999999;W !,?2,""IMMUNOTHERAPY DATE: 99/99/9999"";.02;"
^DIE(1262,"DR",2,165.51,8)="I X="""" S Y=.021;S HTEP=$P($G(^ONCO(167,X,0)),U,1);I (HTEP=""00"")!(HTEP=82)!(HTEP=85)!(HTEP=86)!(HTEP=87) S Y=""@80"";I (HTEP=88)!(HTEP=99) S Y=""@89"";.021;S Y=.09;@80;.021////0000000;W !,?2,""HEMA TRANS/ENDOCRINE DATE: 00/00/0000"";"
^DIE(1262,"DR",2,165.51,9)="S Y=.09;@89;.021////9999999;W !,?2,""HEMA TRANS/ENDOCRINE DATE: 99/99/9999"";.09;S:(X=0)!(X=7) Y=""@70"";S:(X=8)!(X=9) Y=""@79"";.091;S Y=2;@70;.091////0000000;W !,?2,""OTHER TREATMENT START DATE: 00/00/0000"";S Y=2;@79;.091////9999999;"
^DIE(1262,"DR",2,165.51,10)="W !,?2,""OTHER TREATMENT START DATE: 99/99/9999"";2;3;@999;"
^DIE(1263,0)="ONCO ABSTRACT-I^3070409.1033^^165.5^^^3070412"
^DIE(1263,"%D",0)="^.4021^2^2^3060713^"
^DIE(1263,"%D",1,0)="Template for complete abstract for fields in Primary file: data relevant"
^DIE(1263,"%D",2,0)="to particular cancer only as opposed to specific to Patient."
^DIE(1263,"DR",1,165.5)="@0;D MEN^ONCOAIP;.01;.05;.06;.07;S Y=""@0"";@1;D PAT^ONCOAIP;.03//^S X=$P($G(^ONCO(160.19,IIN,0)),U,2);11;8;8.2;8.1;16;9;10;147//^S X=""000000"";I $P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y=2.1;2.2;2.1;2;2.3;S:'X Y=18;2.4;18;1.2;"
^DIE(1263,"DR",1,165.5,1)="W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";D PHCDSP^ONCPHC;148//^S X=PHCDEF;I X=1 S Y=""@11"";148.1////@;148.2////@;148.3////@;148.4////@;S Y=""@12"";@11;W !;148.1//^S X=PHCDEF(1);148.2//^S X=PHCDEF(2);148.3//^S X=PHCDEF(3);"
^DIE(1263,"DR",1,165.5,2)="148.4//^S X=PHCDEF(4);@12;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";S Y=$S(ONCOANS=""A"":""@2"",1:""@0"");@2;D CAN^ONCOAIP;.04;S COC=X;I (EVADS=""N"")!(COC'=1) S Y=""@20"";171;172;173;@20;I (COC=5)!(COC=8) D ^ONCOCC;"
^DIE(1263,"DR",1,165.5,3)="I COC=0 S RFDEF=""NONE"" S Y=6;I COC=1 S RFDEF=""NONE"",TFDEF=""NONE"";6//^S X=$G(RFDEF);I COC=2 S TFDEF=""NONE"";7//^S X=$G(TFDEF);155;3;I $P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y=""@15"";159;"
^DIE(1263,"DR",1,165.5,4)="I X=0 S $P(^ONCO(165.5,DA,24),U,13)=""8888888"" W !,""DATE OF CONCLUSIVE DX: 88/88/8888"" S Y=""@15"";I X=1 S $P(^ONCO(165.5,DA,24),U,13)=""0000000"" W !,""DATE OF CONCLUSIVE DX: 00/00/0000"" S Y=""@15"";"
^DIE(1263,"DR",1,165.5,5)="I X=9 S $P(^ONCO(165.5,DA,24),U,13)=""9999999"" W !,""DATE OF CONCLUSIVE DX: 99/99/9999"" S Y=""@15"";193;@15;I (COC=0)!(COC=1) S DFDEF=$E(RH,1,30);5//^S X=$G(DFDEF);20;S PS=X;D PAIR^ONCOAIP;S Y=$$TOP^ONCOAIT;21.5;S Y=100;21.51;S Y=100;"
^DIE(1263,"DR",1,165.5,6)="21.52;100;I $P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y=28;I $P($G(^ONCO(165.5,D0,2)),U,1)=67809 D UNKPRIM^ONCMPH;194;D MTRAOP^ONCMPH;195;196;28;I $P($G(^ONCO(165.5,DA,0)),U,16)>3001231 S Y=22.3;22;D DEFH3^ONCOHICD;"
^DIE(1263,"DR",1,165.5,7)="22.3//^S X=$G(H3DEF);W !,""HISTOLOGY CODE: "",$$GET1^DIQ(165.5,D0,22.1);D HISTXT^ONCOAIP;S X=X;101;I $G(TOP)'=67619 S Y=24;623;"
^DIE(1263,"DR",1,165.5,8)="I (+X>1)&(+X<11),$P($G(^ONCO(165.5,D0,0)),U,16)>3031231 S $P(^ONCO(165.5,D0,""CS""),U,10)=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X);684;96;102;I X=9 S Y=""@156"";156;S Y=24;@156;156////0000000;W !,""DRE DATE: 00/00/0000"";24;83;26;"
^DIE(1263,"DR",1,165.5,9)="I ($$GET1^DIQ(165.5,D0,.01,""E"")'=""LIVER"")&($G(TOP)'=67220) S Y=""@251"";1010;@251;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y=""@27"";D TMARKER^ONCOU55 I TM1=0 S Y=""@21"";D TM^ONCOTM(D0,1);@2510;I $G(TM2)=0 S Y=""@22"";D TM^ONCOTM(D0,2);"
^DIE(1263,"DR",1,165.5,10)="@2520;I $G(TM3)=0 S Y=""@23"";D TM^ONCOTM(D0,3);@2530;S Y=""@27"";@21;25.1///9;W !,""TUMOR MARKER 1: Unknown or no information"";@22;25.2///9;W !,""TUMOR MARKER 2: Unknown or no information"";@23;25.3///9;"
^DIE(1263,"DR",1,165.5,11)="W !,""TUMOR MARKER 3: Unknown or no information"";S Y=""@27"";25.1;25.2;25.3;@27;120;I X=0 S Y=""@1210"";I X=9 S Y=""@1219"";121;S Y=""@28"";@1210;121////0000000;W !,""DATE OF CANCER CONF: 00/00/0000"";S Y=""@28"";@1219;121////9999999;"
^DIE(1263,"DR",1,165.5,12)="W !,""DATE OF CANCER CONF: 99/99/9999"";@28;21;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";I (EVADS=""N"")!(COC'=1) S Y=""@105"";S PS=$P($G(^ONCO(165.5,D0,2)),U,1);I $E($G(PS),3,4)=34 S Y=""@174"";"
^DIE(1263,"DR",1,165.5,13)="I ($E($G(PS),3,4)=18)!($G(PS)=67199)!($G(PS)=67209) S Y=""@180"";S Y=""@105"";@174;D ^ONCSYMP;174;I (X=0)!(X=9) S PIECE=18 D STUFF^ONCSYMP S Y=186;174.1;186;I (X=0)!(X=9) S PIECE=33 D STUFF^ONCSYMP S Y=187;186.1;187;"
^DIE(1263,"DR",1,165.5,14)="I (X=0)!(X=9) S PIECE=35 D STUFF^ONCSYMP S Y=188;187.1;188;I (X=0)!(X=9) S PIECE=37 D STUFF^ONCSYMP S Y=189;188.1;189;I (X=0)!(X=9) S PIECE=39 D STUFF^ONCSYMP S Y=190;189.1;190;175;I (X=0)!(X=9) S PIECE=19 D STUFF^ONCSYMP S Y=176;"
^DIE(1263,"DR",1,165.5,15)="175.1;176;I (X=0)!(X=9) S PIECE=20 D STUFF^ONCSYMP S Y=177;176.1;177;I (X=0)!(X=9) S PIECE=21 D STUFF^ONCSYMP S Y=178;177.1;178;I (X=0)!(X=9) S PIECE=22 D STUFF^ONCSYMP S Y=179;178.1;179;"
^DIE(1263,"DR",1,165.5,16)="I (X=0)!(X=9) S PIECE=23 D STUFF^ONCSYMP S Y=""@105"";179.1;S Y=""@105"";@180;D COLON^ONCSYMP;191;711;712;809;713;192;180;I (X=0)!(X=9) S PIECE=24 D STUFF^ONCSYMP S Y=181;180.1;181;I (X=0)!(X=9) S PIECE=25 D STUFF^ONCSYMP S Y=182;"
^DIE(1263,"DR",1,165.5,17)="181.1;182;I (X=0)!(X=9) S PIECE=27 D STUFF^ONCSYMP S Y=183;182.1;183;I (X=0)!(X=9) S PIECE=28 D STUFF^ONCSYMP S Y=185;183.1;185;I (X=0)!(X=9) S PIECE=30 D STUFF^ONCSYMP S Y=184;185.1;184;"
^DIE(1263,"DR",1,165.5,18)="I (X=0)!(X=9) S PIECE=31 D STUFF^ONCSYMP S Y=179;184.1;179;I (X=0)!(X=9) S PIECE=23 D STUFF^ONCSYMP S Y=""@105"";179.1;@105;S SECTION=""Cancer Identification"" D SECTION^ONCOAIP;W !;104;S FLDNUM=104,NODE=10,LIMIT=200 D ^ONCTEXT;W !;"
^DIE(1263,"DR",1,165.5,19)="105;S FLDNUM=105,NODE=11,LIMIT=250 D ^ONCTEXT;W !;106;S FLDNUM=106,NODE=12,LIMIT=250 D ^ONCTEXT;W !;116;S FLDNUM=116,NODE=22,LIMIT=250 D ^ONCTEXT;W !;103;S FLDNUM=103,NODE=9,LIMIT=250 D ^ONCTEXT;W !;107;"
^DIE(1263,"DR",1,165.5,20)="S FLDNUM=107,NODE=13,LIMIT=250 D ^ONCTEXT;W !;S Y=$S(ONCOANS=""A"":""@3"",1:""@0"");@3;D EXT^ONCOAIP;@31;D MO^ONCOAIP2;41;I $G(AWHFLG)=0 S Y=30 K AWHFLG;29;I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=30;29.2;30;"
^DIE(1263,"DR",1,165.5,21)="I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=""@305"";30.2;29.1;@305;D BLOOD^ONCOAIP2;30.5;@301;D PGPE^ONCOAIP2;30.1;I X=99,$P($G(^ONCO(165.5,D0,0)),U,16)>3031231 S $P(^ONCO(165.5,D0,""CS""),U,7)=""097"";@231;D LN^ONCOAIP2;31;S L=X;"
^DIE(1263,"DR",1,165.5,22)="I $$LYMPHOMA^ONCFUNC(D0) S $P(^ONCO(165.5,D0,2),U,12,13)=""99^99"";S X=X;I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=33;31.1;32.1;33;I X=0 S Y=""@24"";I X=99 S Y=""@25"";32;S Y=""@26"";@24;32////98;"
^DIE(1263,"DR",1,165.5,23)="W !,""REGIONAL LYMPH NODES POSITIVE: No nodes were examined"";S Y=""@26"";@25;32////99;W !,""REGIONAL LYMPH NODES POSITIVE: Unknown if nodes +, NA, not stated"";@26;35;I (X'="""")&(X'=7) S Y=""@310"";34;S:X=0 Y=""@32"";34.1;S:X=0 Y=""@33"";34.2;"
^DIE(1263,"DR",1,165.5,24)="S Y=""@34"";@310;34////0;W !,""SITE OF DISTANT METASTASIS #1: None"";@32;34.1////0;W !,""SITE OF DISTANT METASTASIS #2: None"";@33;34.2////0;W !,""SITE OF DISTANT METASTASIS #3: None"";@34;"
^DIE(1263,"DR",1,165.5,25)="I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=""@341"";34.3;34.4;@341;D ^ONCOTN;69;W !;S:$E($$HIST^ONCFUNC(D0),1,3)'=951 Y=37.1;69.1;69.2;37.1;D CN2^ONCOTN;37.2;37.3;I '$$GTT^ONCOU55(D0) S Y=""@38"";134;@38;I '$$T^ONCOU55(D0) S Y=""@39"";"
^DIE(1263,"DR",1,165.5,26)="136;@39;S STGIND=""C"" D ES^ONCOTN;S X=X;19;W !;69.4;85;D CN4^ONCOTN;86;87;I '$$GTT^ONCOU55(D0) S Y=""@311"";135;@311;I '$$T^ONCOU55(D0) S Y=""@312"";136;@312;S STGIND=""P"" D ES^ONCOTN;S X=X;89;W !;149;151;S Y=""@313"";@376;38;19;88;89;"
^DIE(1263,"DR",1,165.5,27)="@313;39;W !;65;S:X="""" Y=""@82"";66;@82;W !;25;44;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=""@399"";D ^ONCPCS;@292;29.2;30.2;29.1;31.1;32.1;33;I X=0 S Y=""@241"";I X=99 S Y=""@252"";32;S Y=""@261"";"
^DIE(1263,"DR",1,165.5,28)="@241;32////98;W !,""REGIONAL LYMPH NODES POSITIVE: No nodes were examined"";S Y=""@261"";@252;32////99;W !,""REGIONAL LYMPH NODES POSITIVE: Unknown if nodes +, NA, not stated"";@261;34.3;34.4;44.1;44.2;44.3;44.4;44.5;44.6;D ^ONCCS;"
^DIE(1263,"DR",1,165.5,29)="W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";@399;S Y=$S(ONCOANS=""A"":""@4"",1:""@0"");@4;D CHKCOC^ONCATF I (COC=5)!(COC=8) S Y=""@7"";D NCDS^ONCPTX;58.1;D NCDS^ONCATF;I X="""" S TXNUL=1,$P(^ONCO(165.5,D0,3),U,31)="""",Y=""@35"";"
^DIE(1263,"DR",1,165.5,30)="I (X=0)!(X=""00"") D NCDS^ONCNTX S TXNO=1 S Y=""@35"";I (X=9)!(X=""09"") D NCDS^ONCUTX S TXUNK=1 S Y=""@35"";58.3;D NCDSDT^ONCATF;@35;D DSPNCDS^ONCATF;W !;58.4;I X="""" S $P(^ONCO(165.5,D0,3.1),U,6)="""",Y=""@36"";"
^DIE(1263,"DR",1,165.5,31)="I (X=0)!(X=""00"") D NCDSATF^ONCNTX1 S Y=""@36"";I (X=9)!(X=""09"") D NCDSATF^ONCUTX1 S Y=""@36"";58.5;@36;W !;124;I (X="""")!(X=""0000000"")!(X=9999999) S Y=""@41"";D NTX^ONCOAIP;@41;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y=""@429"";"
^DIE(1263,"DR",1,165.5,32)="D ROADS^ONCPTX;58.2;D SPSR^ONCATF;I X="""" S TXNUL=1,$P(^ONCO(165.5,D0,3),U,38)="""",Y=""@426"";S X=X;S SPS=$P($G(^ONCO(165.5,D0,3)),U,38);I SPS=(""00"")!(SPS=1) D SURR^ONCNTX S TXNO=1,Y=""@426"";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1);"
^DIE(1263,"DR",1,165.5,33)="S SGRP=$P($G(^ONCO(164,TPX,0)),U,16);I $E(TPX,3,4)=77 S SGRP=67422;I $G(^ONCO(164,SGRP,""SPS"",SPS,0))[99 D SURR^ONCUTX S TXUNK=1 S Y=""@426"";D SATFDFR^ONCOCC;74;@426;D DSPSPSR^ONCATF;W !;50.2//^S X=$G(SPSDF);@427;W !;"
^DIE(1263,"DR",1,165.5,34)="D CHKPRMR^ONCUTX1;138;D SCPR^ONCATF;S X=X;S SCOPE=$P($G(^ONCO(165.5,D0,3)),U,40);I SCOPE="""" S $P(^ONCO(165.5,D0,3),U,42)="""",TXNUL=1,Y=""@1381"";I SCOPE=1 D NODER^ONCNTX S TXNO=1,Y=""@1381"";"
^DIE(1263,"DR",1,165.5,35)="S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="""" S Y=""@428"";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="""" S Y=""@428"";I $G(^ONCO(164,SGRP,""SC5"",SCOPE,0))[""Unknown"" D NODER^ONCUTX S TXUNK=1,Y=""@1381"";140;D NUMND^ONCATF;@1381;"
^DIE(1263,"DR",1,165.5,36)="D DSPSCPR^ONCATF;W !;D SCOPER^ONCOCC;138.1//^S X=$G(SCPDF);S X=X;S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,9);I SCPATF="""" S $P(^ONCO(165.5,D0,3.1),U,11)="""",Y=""@139"";I SCPATF=1 D NODATFR^ONCNTX1 S Y=""@139"";"
^DIE(1263,"DR",1,165.5,37)="S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="""" S Y=""@428"";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="""" S Y=""@428"";I $G(^ONCO(164,SGRP,""SC5"",SCPATF,0))[""Unknown"" D NODATFR^ONCUTX1 S Y=""@139"";D NUMN^ONCOCC;140.1//^S X=$G(NUMDF);@139;"
^DIE(1263,"DR",1,165.5,38)="W !;139;D SOSNR^ONCATF;S X=X;S SOSN=$P($G(^ONCO(165.5,D0,3)),U,41) I SOSN="""" S TXNUL=1,Y=""@1391"";I SOSN=1 D SOSNR^ONCNTX S TXNO=1,Y=""@1391"";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="""" S Y=""@428"";"
^DIE(1263,"DR",1,165.5,39)="S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="""" S Y=""@428"";I $G(^ONCO(164,SGRP,""SO5"",SOSN,0))[""Unknown"" S TXUNK=1;@1391;D DSPSOSR^ONCATF;D SOSNR^ONCOCC;139.1//^S X=$G(SOSNDF);S X=X;@428;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";@429;"
^DIE(1263,"DR",1,165.5,40)="D FORDS^ONCPTX;S X=X;58.6;D SPS^ONCATF;I X="""" S TXNUL=1,$P(^ONCO(165.5,D0,3.1),U,29)="""",Y=""@42"";S X=X;S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29);I SPS=""00""!(SPS=1) D SUR^ONCNTX,SM^ONCNTX,DSD^ONCNTX S TXNO=1,Y=""@42"";"
^DIE(1263,"DR",1,165.5,41)="S TPX=$P($G(^ONCO(165.5,D0,2)),U,1);S SGRP=$P($G(^ONCO(164,TPX,0)),U,16);I $G(^ONCO(164,SGRP,""SPS"",SPS,0))[99 D SUR^ONCUTX S TXUNK=1,Y=""@42"";50;D SPSDT^ONCATF;D SATFDEF^ONCOCC;59;@42;D DSPSPS^ONCATF;W !;58.7//^S X=$G(SPSDF);"
^DIE(1263,"DR",1,165.5,42)="I X="""" S $P(^ONCO(165.5,D0,3.1),U,8)="""",Y=""@43"";S X=X;S SPSATF=$P($G(^ONCO(165.5,D0,3.1)),U,30) I SPSATF="""" S $P(^ONCO(165.5,D0,3.1),U,8)="""",Y=""@43"";I SPSATF=""00""!(SPSATF=1) D SURATF^ONCNTX1 S Y=""@43"";"
^DIE(1263,"DR",1,165.5,43)="S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="""" S Y=""@44"";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="""" S Y=""@44"";I $G(^ONCO(164,SGRP,""SPS"",SPSATF,0))[99 D SURATF^ONCUTX1 S Y=""@43"";50.3//^S X=$G(SPSDTDF);@43;W !;D RFNS^ONCATF1;58;"
^DIE(1263,"DR",1,165.5,44)="@431;W !;D CHKPRMF^ONCUTX1;138.4;D SCP^ONCATF;S X=X;S SCOPE=$P($G(^ONCO(165.5,D0,3.1)),U,31) I SCOPE="""" S $P(^ONCO(165.5,D0,3.1),U,22)="""",$P(^ONCO(165.5,D0,3),U,42)="""",TXNUL=1,Y=""@45"";I SCOPE=0 D NODE^ONCNTX S TXNO=1,Y=""@45"";"
^DIE(1263,"DR",1,165.5,45)="I SCOPE=9 D NODE^ONCUTX S TXUNK=1,Y=""@45"";138.2;D SCPDT^ONCATF;@45;D DSPSCP^ONCATF;W !;D SCOPE^ONCOCC;138.5//^S X=$G(SCPDF);S X=X;"
^DIE(1263,"DR",1,165.5,46)="S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,32) I SCPATF="""" S $P(^ONCO(165.5,D0,3.1),U,23)="""",$P(^ONCO(165.5,D0,3.1),U,11)="""",Y=""@46"";I SCPATF=0 D NODEATF^ONCNTX1 S Y=""@46"";I SCPATF=9 D NODEATF^ONCUTX1 S Y=""@46"";138.3//^S X=$G(SCPDTDF);"
^DIE(1263,"DR",1,165.5,47)="@46;W !;139.4;D SOSN^ONCATF;S X=X;S SOSN=$P($G(^ONCO(165.5,D0,3.1)),U,33) I SOSN="""" S $P(^ONCO(165.5,D0,3.1),U,24)="""",TXNUL=1,Y=""@47"";I SOSN=0 D SOSN^ONCNTX S TXNO=1,Y=""@47"";I SOSN=9 D SOSN^ONCUTX S TXUNK=1,Y=""@47"";139.2;"
^DIE(1263,"DR",1,165.5,48)="D SOSNDT^ONCATF;@47;D DSPSOSN^ONCATF;W !;D SOSN^ONCOCC;139.5//^S X=$G(SOSNDF);S X=X;S SOSNATF=$P($G(^ONCO(165.5,D0,3.1)),U,34) I SOSNATF="""" S $P(^ONCO(165.5,D0,3.1),U,25)="""",Y=""@48"";I SOSNATF=0 D SOSNATF^ONCNTX1 S Y=""@48"";"
^DIE(1263,"DR",1,165.5,49)="I SOSNATF=9 D SOSNATF^ONCUTX1 S Y=""@48"";139.3//^S X=$G(SOSNDTDF);@48;W !;170;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y=435;D DEFAULT^ONCTXSM;23//^S X=$G(RRDF);435;14;W !;108;S FLDNUM=108,NODE=14,LIMIT=150 D ^ONCTEXT;W !;@44;46;"
^DIE(1263,"DR",1,165.5,50)="I (X=1)!(X=9) S $P(^ONCO(165.5,DA,7),U,20)="""" S Y=""@441"";47;@441;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";D RAD^ONCPTX;51.2;D RAD^ONCATF1;S R=$S(X&(X<7):1,1:0);I X="""" S $P(^ONCO(165.5,D0,3),U,4)="""",TXNUL=1,Y=""@49"";"
^DIE(1263,"DR",1,165.5,51)="I (X=0)!(X=7) D RAD1^ONCNTX,RAD2^ONCNTX S TXNO=1,Y=""@49"";I (X=8)!(X=9) D RAD^ONCUTX S TXUNK=1,Y=""@49"";51;D RADDT^ONCATF1;D RATFDEF^ONCOCC;126;125;363;442;363.1;443;56;361;@49;D DSPRAD^ONCATF1;W !;51.4//^S X=$G(RADDF);"
^DIE(1263,"DR",1,165.5,52)="I X="""" S $P(^ONCO(165.5,D0,3.1),U,13)="""",Y=""@411"";I (X=0)!(X=7) D RADATF^ONCNTX1 S Y=""@411"";I (X=8)!(X=9) D RADATF^ONCUTX1 S Y=""@411"";51.5//^S X=$G(RADDTDF);@411;D RS^ONCOAIP;S X=X;W !;51.3;D RFNR^ONCATF1;W !;75;"
^DIE(1263,"DR",1,165.5,53)="S RFNR=X D ^ONCRFNR W:$G(RFNRMSG)'="""" !!,RFNRMSG;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";S RVAR=$P($G(^ONCO(165.5,D0,3)),U,6);I RVAR=""""!(RVAR=0)!(RVAR=9) S Y=""@413"";@412;W !;109;S FLDNUM=109,NODE=15,LIMIT=150 D ^ONCTEXT;@413;"
^DIE(1263,"DR",1,165.5,54)="D ST^ONCPTX;53.2;D CHEM^ONCATF1;I X="""" S $P(^ONCO(165.5,D0,3),U,11)="""",TXNUL=1,Y=""@414"";I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D CHE^ONCNTX S TXNO=1,Y=""@414"";I (X=88)!(X=99) S XX=X D CHE^ONCUTX S TXUNK=1,Y=""@414"";53;"
^DIE(1263,"DR",1,165.5,55)="D CHEMDT^ONCATF1;D CATFDEF^ONCOCC;@414;D DSPCHEM^ONCATF1;W !;53.3//^S X=$G(CHEMDF);I X="""" S $P(^ONCO(165.5,D0,3.1),U,15)="""",Y=""@415"";I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D CMATFDT^ONCNTX1 S Y=""@415"";"
^DIE(1263,"DR",1,165.5,56)="I (X=88)!(X=99) D CHEMATF^ONCUTX1 S Y=""@415"";53.4//^S X=$G(CHMDTDF);@415;W !;S CVAR=$P($G(^ONCO(165.5,D0,3)),U,13);I (CVAR="""")!(CVAR=""00"")!(CVAR=99)!(CVAR=82)!(CVAR=85)!(CVAR=86)!(X=87) S Y=""@416"";111;"
^DIE(1263,"DR",1,165.5,57)="S FLDNUM=111,NODE=17,LIMIT=200 D ^ONCTEXT;@416;W !;54.2;D HT^ONCATF1;I X="""" S $P(^ONCO(165.5,D0,3),U,14)="""",TXNUL=1,Y=""@417"";I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D HOR^ONCNTX1 S TXNO=1,Y=""@417"";"
^DIE(1263,"DR",1,165.5,58)="I (X=88)!(X=99) S XX=X D HOR^ONCUTX S TXUNK=1,Y=""@417"";54;D HTDT^ONCATF1;D HATFDEF^ONCOCC;@417;D DSPHT^ONCATF1;W !;54.3//^S X=$G(HTDF);I X="""" S $P(^ONCO(165.5,D0,3.1),U,17)="""",Y=""@418"";"
^DIE(1263,"DR",1,165.5,59)="I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D HTATFDT^ONCNTX1 S Y=""@418"";I (X=88)!(X=99) D HTATF^ONCUTX1 S Y=""@418"";54.4//^S X=$G(HTDTDF);@418;W !;S HVAR=$P($G(^ONCO(165.5,D0,3)),U,16);"
^DIE(1263,"DR",1,165.5,60)="I (HVAR="""")!(HVAR=""00"")!(HVAR=99)!(HVAR=82)!(HVAR=85)!(HVAR=86)!(X=87) S Y=""@419"";112;S FLDNUM=112,NODE=18,LIMIT=200 D ^ONCTEXT;@419;W !;55.2;D IMM^ONCATF1;I X="""" S $P(^ONCO(165.5,D0,3),U,17)="""",TXNUL=1,Y=""@420"";"
^DIE(1263,"DR",1,165.5,61)="I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D IMM^ONCNTX1 S TXNO=1,Y=""@420"";I (X=88)!(X=99) S XX=X D IMM^ONCUTX S TXUNK=1,Y=""@420"";55;D IMMDT^ONCATF1;D IATFDEF^ONCOCC;@420;D DSPIMM^ONCATF1;W !;55.3//^S X=$G(IMMDF);"
^DIE(1263,"DR",1,165.5,62)="I X="""" S $P(^ONCO(165.5,D0,3.1),U,19)="""",Y=""@421"";I (X=""00"")!(X=82)!(X=85)!(X=86)!(X=87) D IMATFDT^ONCNTX1 S Y=""@421"";I (X=88)!(X=99) D IMMATF^ONCUTX1 S Y=""@421"";55.4//^S X=$G(IMMDTDF);@421;W !;"
^DIE(1263,"DR",1,165.5,63)="S IVAR=$P($G(^ONCO(165.5,D0,3)),U,19);I (IVAR="""")!(IVAR=""00"")!(IVAR=99)!(IVAR=82)!(IVAR=85)!(IVAR=86)!(X=87) S Y=""@422"";114;S FLDNUM=114,NODE=20,LIMIT=200 D ^ONCTEXT;@422;W !;153;"
^DIE(1263,"DR",1,165.5,64)="I X="""" S $P(^ONCO(165.5,D0,3.1),U,35)="""",TXNUL=1,Y=""@4201"";S HE=$P(^ONCO(167,X,0),U,1);I (HE=""00"")!(HE=82)!(HE=85)!(HE=86)!(HE=87) D HTEP^ONCNTX1 S TXNO=1,Y=""@4201"";I (HE=88)!(HE=99) D HTEP^ONCUTX S TXUNK=1,Y=""@4201"";153.1;@4201;"
^DIE(1263,"DR",1,165.5,65)="I $P($G(^ONCO(165.5,DA,0)),U,16)<3060000 S Y=""@4202"";D SSS^ONCOAIP1;S X=X;W !;15;@4202;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y=""@0"";D OTH^ONCPTX;57.2;D OTH^ONCATF1;I X="""" S $P(^ONCO(165.5,D0,3),U,23)="""",TXNUL=1,Y=""@423"";"
^DIE(1263,"DR",1,165.5,66)="I (X=0)!(X=7) D OTH^ONCNTX1 S TXNO=$S(X=0:1,1:""""),Y=""@423"";I (X=8)!(X=9) D OTH^ONCUTX S TXUNK=$S(X=9:1,1:""""),Y=""@423"";57;D OTHDT^ONCATF1;D OATFDEF^ONCOCC;@423;D DSPOTH^ONCATF1;W !;57.3//^S X=$G(OTHDF);"
^DIE(1263,"DR",1,165.5,67)="I X="""" S $P(^ONCO(165.5,D0,3.1),U,21)="""" S Y=""@424"";I X=0!(X=7) D OTHATF^ONCNTX1 S Y=""@424"";I X=8!(X=9) D OTHATF^ONCUTX1 S Y=""@424"";57.4//^S X=$G(OTHDTDF);@424;W !;S OVAR=$P($G(^ONCO(165.5,D0,3)),U,25);"
^DIE(1263,"DR",1,165.5,68)="I OVAR=""""!(OVAR=0)!(OVAR=9) S Y=""@425"";115;S FLDNUM=115,NODE=21,LIMIT=100 D ^ONCTEXT;@425;D PRO^ONCPTX;12;@13;D PP^ONCATF1;D PATFDEF^ONCOCC;13//^S X=$G(PPDF);346;I X=9 D PRO^ONCUTX S Y=""@113"";"
^DIE(1263,"DR",1,165.5,69)="I (X=0)!(X=2)!(X=3)!(X=4)!(X=5)!(X=6)!(X=7)!(X=8) D PRO^ONCNTX1 S Y=""@113"";560;133;@113;W !;113;S FLDNUM=113,NODE=19,LIMIT=350 D ^ONCTEXT;S Y=$S(ONCOANS=""A"":""@5"",1:""@0"");@5;D ^ONCOPCE;S Y=$S(ONCOANS=""A"":""@7"",1:""@0"");@6;"
^DIE(1263,"DR",1,165.5,70)="D ORF^ONCOAIP;205;206;207;208;209;210;211;212;213;214;215;216;217;218;219;220;221;222;223;224;225;226;S Y=""@0"";@7;D AB^ONCOAIP;91;I $G(EDIT)=""YES"" S Y=""@0"";S:$P(^ONCO(165.5,D0,7),U,4)="""" Y=""@83"";W !!?5,""Selected for QA=>"",!;63;"
^DIE(1263,"DR",1,165.5,71)="S:X=""N"" Y=""@83"";64;64.1;64.2;@83;S Y="""";62;@999999;62;"
^DIE(1264,0)="ESP VEHICLE REGISTRATION^2930913.1506^^910^0^^2930913"
^DIE(1264,"DIAB",1,1,910.2,0)=".01;""DECAL #"""
^DIE(1264,"DIAB",9,0,910,1)="ESP POLICE REGISTRATION LOG:"
^DIE(1264,"DR",1,910)=".01;S ESPNAM=D0;.04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;"
^DIE(1264,"DR",1,910,1)="1.03;1.04;1.05;1.06;.08;.09;.1;.11;^910.2^ESP(910.2,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1264,"DR",2,910.2)=".01DECAL #~;.02;.03////^S X=ESPNAM;.04////^S X=1;.05;.07;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;20;K ESPNAM;"
^DIE(1264,"DR",99,1,9.2)="S DIC=910.2,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(910.2,""""V"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(6.01)=I(0,0),DIH=910.2 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1265,0)="ESP GOLF REGISTRATION^2930913.1501^^910^0^^2930913"
^DIE(1265,"DIAB",9,0,910,1)="ESP POLICE REGISTRATION LOG:"
^DIE(1265,"DR",1,910)=".01;S ESPNAM=D0;.04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;"
^DIE(1265,"DR",1,910,1)="1.03;1.04;1.05;1.06;.08;.09;.1;.11;^910.2^ESP(910.2,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");K ESPNAM;"
^DIE(1265,"DR",2,910.2)=".01;.02////^S X=ESPNAM;.04////^S X=5;.05;5.01;5.02;20;"
^DIE(1265,"DR",99,1,9.2)="S DIC=910.2,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(910.2,""""G"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(6.05)=I(0,0),DIH=910.2 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1266,0)="ESP BICYCLE REGISTRATION^2931118.1021^^910^1221^^2931118"
^DIE(1266,"DIAB",9,0,910,1)="ESP POLICE REGISTRATION LOG:"
^DIE(1266,"DR",1,910)=".01;S ESPNAM=D0;.04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;"
^DIE(1266,"DR",1,910,1)="1.03;1.04;1.05;1.06;.08;.09;.1;.11;^910.2^ESP(910.2,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");K ESPNAM;"
^DIE(1266,"DR",2,910.2)=".01;.03////^S X=ESPNAM;.04////^S X=2;.05;.06;.07;4.01;4.02;4.03;4.04;4.05;20;"
^DIE(1266,"DR",99,1,9.2)="S DIC=910.2,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(910.2,""""D"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.03)=I(0,0),DIH=910.2 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1267,0)="ESP WEAPON REGISTRATION^2930913.1507^^910^0^^2930913"
^DIE(1267,"DIAB",9,0,910,1)="ESP POLICE REGISTRATION LOG:"
^DIE(1267,"DR",1,910)=".01;S ESPNAM=D0;.04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;"
^DIE(1267,"DR",1,910,1)="1.03;1.04;1.05;1.06;.08;.09;.1;.11;^910.2^ESP(910.2,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");K ESPNAM;"
^DIE(1267,"DR",2,910.2)=".01;.03////^S X=ESPNAM;.04////^S X=3;.05;.06;2.01;2.02;2.03;2.04;2.05;2.06;2.07;2.08;20;"
^DIE(1267,"DR",99,1,9.2)="S DIC=910.2,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(910.2,""""W"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(6.03)=I(0,0),DIH=910.2 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1268,0)="ESP PET REGISTRATION^2930913.1503^^910^0^^2930913"
^DIE(1268,"DIAB",9,0,910,1)="ESP POLICE REGISTRATION LOG:"
^DIE(1268,"DR",1,910)=".01;S ESPNAM=D0;.04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;"
^DIE(1268,"DR",1,910,1)="1.03;1.04;1.05;1.06;.08;.09;.1;.11;^910.2^ESP(910.2,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1268,"DR",2,910.2)=".01;.03////^S X=ESPNAM;.04////^S X=4;.05;.07;3.01;3.02;3.03;3.04;3.05;3.06;3.07;3.08;20;K ESPNAM;"
^DIE(1268,"DR",99,1,9.2)="S DIC=910.2,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(910.2,""""P"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(6.04)=I(0,0),DIH=910.2 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1269,0)="ESP COURTESY VIOLATION INPUT^2930913.146^^910^0^^2930913"
^DIE(1269,"DIAB",9,0,910,0)="ESP VIOLATIONS:"
^DIE(1269,"DR",1,910)=".01;.1;.11;1.01;1.02;1.03;1.04;1.05;^914^ESP(914,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1269,"DR",2,914)=".01;.02;.03////^S X=""C"";.04;.06;.07;.08;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;"
^DIE(1269,"DR",99,1,9.2)="S DIC=914,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(914,""""E"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.09)=I(0,0),DIH=914 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1270,0)="ESP USDCVN INPUT^2930913.1504^^910^0^^2930913"
^DIE(1270,"DIAB",11,0,910,0)="ESP VIOLATIONS:"
^DIE(1270,"DR",1,910)=".01;1.01;1.02;1.03;1.04;1.05;.08;.09;.1;.11;^914^ESP(914,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1270,"DR",2,914)=".01;.02;.03////^S X=""V"";.04;.05;.06;.07;.08;1.01;1.02;1.03;1.04;1.05;1.06;1.07;1.08;1.09;2.01;2.02;10;"
^DIE(1270,"DR",99,1,9.2)="S DIC=914,DIC(0)=""EQLAM"",DIC(""S"")=""I $D(^ESP(914,""""E"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.09)=I(0,0),DIH=914 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1271,0)="ESP TRAINING EDIT^2930714.0956^^912.5^^^2931118^"
^DIE(1271,"DR",1,912.5)=".01;5;"
^DIE(1271,"DR",2,912.55)=".01;5;"
^DIE(1271,"DR",3,912.555)=".01;.02;.03;.04;"
^DIE(1272,0)="ESP DISPOSITION EDIT^2930722.1038^^911.2^^^2931112^"
^DIE(1272,"DR",1,911.2)=".01;1.01;1.03;"
^DIE(1273,0)="ESP ACTIVITY CODE EDIT^2921102.0809^^911^^^^"
^DIE(1273,"DR",1,911)=".01;.02;.03;"
^DIE(1274,0)="ESP SELECTABLES EDIT^2930503.1125^^910.7^^^2931109^"
^DIE(1274,"DR",1,910.7)=".01;.02;.03;1.01;1.02;1.03;1.04;1.05;1.07;2.01;2.02;2.03;"
^DIE(1275,0)="ESP OFFENSE CODE EDIT^2930709.1355^^915^^^2931123^"
^DIE(1275,"DR",1,915)=".01;.03;.031;.032;.04;10;"
^DIE(1276,0)="ESP ACTIVITY ADD/EDIT^2930714.0957^^910.1^^^2940224^"
^DIE(1276,"DR",1,910.1)=".01;10;"
^DIE(1276,"DR",2,910.11)=".01;.02;10;"
^DIE(1276,"DR",3,910.12)=".01;.02;.03;"
^DIE(1277,0)="ESP EVIDENCE ADD/EDIT^2990309.0903^^910.8^^^3000307"
^DIE(1277,"DR",1,910.8)=".01;.02;.03;.05;1;5;10;"
^DIE(1277,"DR",2,910.81)=".01;.02;.03;.04;.06;.07;.08;.09;1;"
^DIE(1277,"DR",2,910.85)=".01;.02;.03;.04;.05;"
^DIE(1278,0)="ESP W&W INPUT^2930714.0958^^913^^^2940314^"
^DIE(1278,"DR",1,913)=".01;.02;.03;I X<$P($G(^ESP(913,DA,0)),U,2),X'="""" W !?5,*7,""EXPIRATION DATE MUST BE AFTER THE ISSUE DATE!"" S Y=.03;.04;.05;.06;1.01;1.02;1.03;1.04;2.01;2.02;2.03;3.01;3.02;10;20;30;"
^DIE(1278,"DR",2,913.01)=".01;"
^DIE(1278,"DR",2,913.02)=".01;.02;.03;"
^DIE(1279,0)="ESP CREATE JOURNAL^2990209.1426^^916^^^3000531"
^DIE(1279,"DR",1,916)=".01;.5;1;2;3;4;5;"
^DIE(1279,"DR",2,916.03)="1;"
^DIE(1279,"DR",2,916.05)=".01;1;2;3;"
^DIE(1279,"DR",3,916.31)=".01;"
^DIE(1280,0)="ESP ADD JOURNAL ENTRY^2930330.0923^^916^^^2940315^"
^DIE(1280,"DR",1,916)="5;"
^DIE(1280,"DR",2,916.05)=".01;1;2;3;"
^DIE(1281,0)="ESP FOLLOW-UP NOTES^2931014.1541^^912^1221^^2940314"
^DIE(1281,"DIAB",3,1,912.17,0)=".02///NOW"
^DIE(1281,"DR",1,912)="130;"
^DIE(1281,"DR",2,912.17)="Q;Q;.02///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);.03////^S X=DUZ;10;"
^DIE(1282,0)="ESP POLICE EDIT^2931001.0901^^200^1221^^2931022"
^DIE(1282,"DR",1,200)=".01;I '$O(^VA(200,""AK.ESP POLICE"",X,0)) W !!,*7,""ESP POLICE Security Key NOT assigned to this NEW PERSON"" S Y=""@1"";910.1;910.2;"
^DIE(1283,0)="ESP OFFENSE REPORT EDIT^2930729.1534^^912^^^^"
^DIE(1283,"DIAB",1,1,912.02,0)="ALL"
^DIE(1283,"DIAB",1,1,912.1,0)="ALL"
^DIE(1283,"DR",1,912)=".02;.03;I X>$P($G(^ESP(912,DA,0)),U,2) W !?5,*7,""DATE/TIME OF OFFENSE MUST BE BEFORE DATE/TIME RECEIVED!"" S Y=.03;.09;"
^DIE(1283,"DR",1,912,1)="I X<$P($G(^ESP(912,DA,0)),U,3),X'="""" W !?5,*7,""ENDING DATE/TIMEOF OFFENSE MUST BE AFTER DATE/TIME OF OFFENSE!"" S Y=.09;10;K ESPS;.04;.05;60;.06;1.01;1.02;W !!,""COMPLAINANT DATA"";D COM^ESPDISP;20;W !!,""VICTIM DATA"";D VIC^ESPDISP;30;"
^DIE(1283,"DR",1,912,2)="W !!,""OFFENDER DATA"";D OFF^ESPDISP;40;W !!,""WITNESS DATA"";D WIT^ESPDISP;50;W !!,""VEHICLE INFORMATION DATA"";D VEH^ESPDISP;80;W !!,""LOST PROPERTY DATA"";D LOST^ESPDISP;90;W !!,""PROPERTY HELD DATA"";D HELD^ESPDISP;100;"
^DIE(1283,"DR",1,912,3)="W !!,""OTHER AGENCY DATA"";D OTH^ESPDISP;110;W !!,""U.S. ATTORNEY DATA"";D ATTY^ESPDISP;120;70;72;73;74;"
^DIE(1283,"DR",2,912.01)=".01;S ESPS=X;.02;I '$O(^ESP(912.9,""AC"",X,0)) S Y=""@1"";S ESPS=X_""^""_ESPS;.03;@1;"
^DIE(1283,"DR",2,912.02)=".01:10"
^DIE(1283,"DR",2,912.03)=".02:2.06;"
^DIE(1283,"DR",2,912.04)=".02:10;"
^DIE(1283,"DR",2,912.05)=".02:10;"
^DIE(1283,"DR",2,912.06)=".02:2.06;"
^DIE(1283,"DR",2,912.09)=".02:.11;"
^DIE(1283,"DR",2,912.1)=".01:.04"
^DIE(1283,"DR",2,912.14)=".01;.02;.03;"
^DIE(1283,"DR",2,912.15)=".01;10;"
^DIE(1283,"DR",3,912.11)=".01:.04"
^DIE(1283,"DR",3,912.12)=".01"
^DIE(1283,"DR",3,912.13)=".01"
^DIE(1284,0)="ESP OFFENSE REPORT EDIT 1^2970422.154^^912^^^2970422"
^DIE(1284,"DIAB",1,2,910,0)="CATEGORY;REQ"
^DIE(1284,"DIAB",3,1,912.03,0)="COMPLAINANT NAME:"
^DIE(1284,"DR",1,912)=".02;.03;I X>$P($G(^ESP(912,DA,0)),U,2) W !?5,*7,""DATE/TIME OF OFFENSE MUST BE BEFORE DATE/TIME RECEIVED!"" S Y=.03;.09;"
^DIE(1284,"DR",1,912,1)="I X<$P($G(^ESP(912,DA,0)),U,3),X'="""" W !?5,*7,""ENDING DATE/TIME OF OFFENSE MUST BE AFTER DATE/TIME OF OFFENSE!"" S Y=.09;10;K ESPS;.04;.05;60;.06;1.01;1.02;S ESPDO=1 D COM^ESPDISP;20;"
^DIE(1284,"DR",2,912.01)=".01;S ESPS=X;.02;I '$O(^ESP(912.9,""AC"",X,0)) S Y=""@1"";S ESPS=X_""^""_ESPS;.03;@1;"
^DIE(1284,"DR",2,912.03)=".02;I X="""" S DIK=""^ESP(912,DA(1),20,"" D ^DIK S Y=0;^910^ESP(910,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^ESP(912,D0,""20"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");D STUFF1^ESPDISP;"
^DIE(1284,"DR",3,910)=".04R~;1.01:1.06;2.01:2.06;"
^DIE(1285,0)="ESP OFFENSE REPORT EDIT 2^2970422.1541^^912^^^2970422"
^DIE(1285,"DIAB",1,2,910,0)="CATEGORY;REQ"
^DIE(1285,"DIAB",3,1,912.04,0)="NAME:"
^DIE(1285,"DR",1,912)="S ESPDO=1 D VIC^ESPDISP;30;"
^DIE(1285,"DR",2,912.04)=".02;I X="""" S DIK=""^ESP(912,DA(1),30,"" D ^DIK S Y=0;^910^ESP(910,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^ESP(912,D0,""30"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");10;D STUFF2^ESPDISP;"
^DIE(1285,"DR",3,910)=".04R~;.08;.09;.1;.11;1.01:1.06;2.01:2.06;"
^DIE(1286,0)="ESP OFFENSE REPORT EDIT 3^2970422.1542^^912^^^2970422"
^DIE(1286,"DIAB",1,1,912.05,1)="NAME:"
^DIE(1286,"DIAB",1,2,910,0)=".04;REQ"
^DIE(1286,"DIAB",1,2,912.11,0)="ALL"
^DIE(1286,"DR",1,912)="S ESPDO=1 D OFF^ESPDISP;40;K ESPNAM;"
^DIE(1286,"DR",2,912.05)="I '$D(ESPNAM(DA)) D UNKN^ESPDISP;I ESPNAM(DA)=""UNKNOWN"" S Y=.03 K ESPNAM;K ESPNAM;.02;I X="""" S DIK=""^ESP(912,DA(1),40,"" D ^DIK S Y=0;"
^DIE(1286,"DR",2,912.05,1)="^910^ESP(910,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^ESP(912,D0,""40"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");D STUFF3^ESPDISP S Y=3.01;.03:.1;3.01;10;"
^DIE(1286,"DR",3,910)=".04R~;.02;.03;.08;.09;3.01;3.02;3.03;3.04;3.05;3.06;.1;.11;1.01:1.06;2.01:2.06;"
^DIE(1286,"DR",3,912.11)=".01:.04"
^DIE(1287,0)="ESP OFFENSE REPORT 4^2970422.1538^^912^^^2970422"
^DIE(1287,"DIAB",3,1,912.06,0)="NAME:"
^DIE(1287,"DR",1,912)="S ESPDO=1 D WIT^ESPDISP;50;"
^DIE(1287,"DR",2,912.06)=".02;I X="""" S DIK=""^ESP(912,DA(1),50,"" D ^DIK S Y=0;^910^ESP(910,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^ESP(912,D0,""50"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");D STUFF4^ESPDISP;"
^DIE(1287,"DR",3,910)="1.01:1.06;2.01:2.06;"
^DIE(1288,0)="ESP OFFENSE REPORT 5^2930730.1322^^912^^^2940315^"
^DIE(1288,"DIAB",1,1,912.02,0)="ALL"
^DIE(1288,"DIAB",1,1,912.1,0)="ALL"
^DIE(1288,"DR",1,912)="W !!,""VEHICLE INFORMATION DATA"";D VEH^ESPDISP;80;W !!,""LOST PROPERTY DATA"";D LOST^ESPDISP;90;W !!,""PROPERTY HELD DATA"";D HELD^ESPDISP;100;W !!,""OTHER AGENCY DATA"";D OTH^ESPDISP;110;W !!,""U.S. ATTORNEY DATA"";D ATTY^ESPDISP;120;70;"
^DIE(1288,"DR",1,912,1)="72;73;74;"
^DIE(1288,"DR",2,912.02)=".01:10"
^DIE(1288,"DR",2,912.09)=".02:.11;"
^DIE(1288,"DR",2,912.1)=".01:.04"
^DIE(1288,"DR",2,912.14)=".01;.02;.03;"
^DIE(1288,"DR",2,912.15)=".01;10;"
^DIE(1288,"DR",3,912.13)=".01"
^DIE(1289,0)="ESP UNKNOWN VIOLATOR EDIT^2931207.0839^@^914^1221^@^2931207"
^DIE(1289,"DR",1,914)=".09;"
^DIE(1290,0)="QAQA QAC SITE PARAMETERS^2941214.1005^^740^1053^^2950714"
^DIE(1290,"DR",1,740)="745.01//YES;745.02;"
^DIE(1291,0)="SOWKNWRK^2910415.08^^200^^^^"
^DIE(1291,"DR",1,200)="654///1;654.15;S SOWKXX=1;654.1;654.2;K SOWKXX;"
^DIE(1292,0)="SOWKADDT^2901217.1009^^652^^^^"
^DIE(1292,"DR",1,652)="S DIE(""NO^"")="""";.01;2;3;4;4.5;5;6;7;8;8.1;9;10;11;12;13;14;K DIE(""NO^"");"
^DIE(1293,0)="SOWKCADT^2880712^^652^^^^"
^DIE(1293,"DR",1,652)="12;"
^DIE(1294,0)="SOWKCWKT^2880712^^652^^^^"
^DIE(1294,"DR",1,652)="3;"
^DIE(1295,0)="SOWKDELT^2880712^^652^^^^"
^DIE(1295,"DR",1,652)=".01///@;"
^DIE(1296,0)="SOWKCHAT^2910813.0839^^650^^^^"
^DIE(1296,"DR",1,650)="7;6;10;10.1;"
^DIE(1297,0)="SOWKOPEN^2920406.0739^^650^^^^"
^DIE(1297,"DR",1,650)="1;2;I SOWKCOR,$P(^(0),""^"",6) S Y=""@9"";30////^S X=$P(^VA(200,$P(^SOWK(650,DA,0),""^"",3),654),""^"",3);@9;7;I SOWKCOR,$P(^(0),""^"",6) S Y=""@10"";29////^S X=$E($P(^DPT($P(^SOWK(650,DA,0),""^"",8),0),""^"",9),1,9);@10;4;3.1;"
^DIE(1297,"DR",1,650,1)="I $P(^SOWK(651,$P(^SOWK(650,DA,0),""^"",13),0),""^"",6)=""R"",'$O(^SOWK(652,0)) S Y="""",SOWKFLAG=1;S:$P(^SOWK(651,$P(^SOWK(650,DA,0),""^"",13),0),""^"",6)'=""R"" Y=""@8"";6;10;10.1;@8;S:'$P(^SOWK(650.1,1,0),""^"",24) Y=""@3"";4.2;@3;"
^DIE(1297,"DR",1,650,2)="S:'$P(^SOWK(650.1,1,0),""^"",23) Y=""@4"";25;@4;4.1;S:$P(^SOWK(651,$P(^SOWK(650,DA,0),""^"",13),0),""^"",6)'=""R"" Y=""@6"";4.3;@6;23;Q;Q;"
^DIE(1297,"DR",2,650.02)=".01;"
^DIE(1297,"DR",2,650.04)=".01;"
^DIE(1298,0)="SOWKCLOT^2911125.0827^^650^^^^"
^DIE(1298,"DR",1,650)="7;I $P(^SOWK(650,DA,0),""^"",2)="""" W *7,!,""**** CASE MUST BE OPENED BEFORE IT CAN BE CLOSED ****"",! S Y=""@18"";2;17;@1;25;S:X="""" Y=""@17"";I '$O(^SOWK(650,DA,2,0)) S Y=""@1"";S Y=""@1"";@17;4.2;21;I 'X S Y=""@2"";24;@2;23;@18;"
^DIE(1298,"DR",1,650,1)="K DIE(""NO^""),VAR;"
^DIE(1298,"DR",2,650.01)=".01;2;"
^DIE(1298,"DR",2,650.02)=".01;1;"
^DIE(1298,"DR",2,650.04)=".01;S:'$P(^SOWK(650.1,1,0),""^"",22) Y=""@3"";1;@3;"
^DIE(1299,0)="SOWKCMRT^2901217.1029^^655^^^^"
^DIE(1299,"DIAB",1,2,655.03,0)="ALL"
^DIE(1299,"DR",1,655)=".99;"
^DIE(1299,"DR",2,655.02)="2;"
^DIE(1299,"DR",3,655.03)=".01:1"
^DIE(1300,0)="SOWKSITE^2920214.1504^^650.1^^^^"
^DIE(1300,"DIAB",1,1,650.11,0)="ALL"
^DIE(1300,"DIAB",1,1,650.17,0)="ALL"
^DIE(1300,"DR",1,650.1)=".01//^S X=$P(^DD(""SITE""),""^"");1.5;2;18;20;21;22;19;2.5;I 'X S Y=""@4"";3;@4;3.5;I 'X S Y=""@2"";4;@2;4.5;I 'X S Y=""@3"";5;@3;6.5;7;8;9;10;11;12;13;14;15;16;"
^DIE(1300,"DR",2,650.11)=".01"
^DIE(1300,"DR",2,650.119)=".01;"
^DIE(1300,"DR",2,650.17)=".01:1"
^DIE(1301,0)="SOWKSPF^2910220.1025^^650.1^^^^"
^DIE(1301,"DIAB",1,1,650.17,0)="ALL"
^DIE(1301,"DR",1,650.1)=".01;1;6.5;"
^DIE(1301,"DR",2,650.17)=".01:1"
^DIE(1302,0)="SOWKEDIT^2911125.0833^^650^^^^"
^DIE(1302,"DR",1,650)="17;@1;25;K DIE(""NO^"") I '$O(^SOWK(650,DA,2,0)) S Y=""@1"",DIE(""NO^"")=1;S:X="""" Y=""@17"";I '$D(^SOWK(650,DA,2,D1,0)) S Y=""@1"";S Y=""@1"";@17;4.2;21;I 'X S Y=""@2"";24;@2;"
^DIE(1302,"DR",2,650.01)=".01;2;"
^DIE(1302,"DR",2,650.02)=".01;1;"
^DIE(1302,"DR",2,650.04)=".01;S:'$P(^SOWK(650.1,1,0),""^"",22) Y=""@3"";1;@3;"
^DIE(1303,0)="SOWKCLINICS^2910227.1008^^650.1^^^^"
^DIE(1303,"DIAB",1,1,650.12,0)="ALL"
^DIE(1303,"DR",1,650.1)="16.5;"
^DIE(1303,"DR",2,650.12)=".01:1"
^DIE(1303,"DR",3,650.121)=".01:1"
^DIE(1304,0)="SOWKBHED^2901217.1012^^656^^^^"
^DIE(1304,"DIAB",1,1,656.01,0)="ALL"
^DIE(1304,"DR",1,656)="S DIE(""NO^"")="""";.01;1;1.5;2;2.5;3;4;5;5.2;5.1;6;7;8;9;10;11;12;13;15;16;K DIE(""NO^"");"
^DIE(1304,"DR",2,656.01)=".01"
^DIE(1305,0)="SOWKDBCLS^2930324.1501^^655.2^^^^"
^DIE(1305,"DR",1,655.2)="18;"
^DIE(1305,"DR",2,655.218)=".01///^S X=""`""_DUZ;6;5;7///^S X=""T"";"
^DIE(1306,0)="SOWKDBDPN^2930324.1503^^655.2^^^^"
^DIE(1306,"DR",1,655.2)="18;"
^DIE(1306,"DR",2,655.218)=".01///^S X=""`""_DUZ;1;2;3;4///^S X=""T"";"
^DIE(1306,"DR",3,655.2182)=".01;"
^DIE(1307,0)="SOWKDBEMP^2920102.1532^^655.2^^^^"
^DIE(1307,"DR",1,655.2)="1;2.3;2;"
^DIE(1308,0)="SOWKDBEDU^2911104.1812^^655.2^^^^"
^DIE(1308,"DR",1,655.2)="4.1;4.2;3;4;"
^DIE(1309,0)="SOWKDBMIL^2911125.0753^^655.2^^^^"
^DIE(1309,"DR",1,655.2)="5;"
^DIE(1310,0)="SOWKDBSOC^2920102.162^^655.2^^^^"
^DIE(1310,"DIAB",1,1,655.28,0)="ALL"
^DIE(1310,"DR",1,655.2)="I 'ST S Y=""@2"";6;6.1;6.2;6.3;6.4;6.5;6.6;@2;7;13;14;15;16;"
^DIE(1310,"DR",2,655.28)=".01:1"
^DIE(1311,0)="SOWKDBLE^2911106.1115^^655.2^^^^"
^DIE(1311,"DR",1,655.2)="29.1;I 'X S Y=""@1"";29.4;29.5;29.6;29.7;29.8;29.9;29.91;@1;29.2;29.3;I 'X S Y=""@2"";29.92;29.93;29.94;29.95;29.96;29.97;29.98;@2;30;"
^DIE(1312,0)="SOWKDBSUB^2911106.1507^^655.2^^^^"
^DIE(1312,"DR",1,655.2)="31;I 'X S Y=""@1"";31.1;@1;"
^DIE(1313,0)="SOWKDBPRO^2930324.1507^^655.2^^^^"
^DIE(1313,"DR",1,655.2)="17;10;"
^DIE(1313,"DR",2,655.38)=".01;1///^S X=""`""_DUZ;"
^DIE(1314,0)="SOWKDBIPA^2900328.1441^^655.2^^^^"
^DIE(1314,"DR",1,655.2)="18;"
^DIE(1315,0)="SOWKDBPSY^2911106.1202^^655.2^^^^"
^DIE(1315,"DR",1,655.2)="32;"
^DIE(1316,0)="RMPR ITEM EDIT^2940816.1422^^661^^^2951212^"
^DIE(1316,"%D",0)="^^1^1^2940829^"
^DIE(1316,"%D",1,0)="Update Prosthetic Item Master file."
^DIE(1316,"DR",1,661)="1;2;3;4;5;6;"
^DIE(1317,0)="RMPR PATIENT ADD^2920918.144^^665^^^2951127^"
^DIE(1317,"%D",0)="^^1^1^2940829^"
^DIE(1317,"%D",1,0)="Adds a patient to the Prosthtetic Patient file."
^DIE(1317,"DR",1,665)="2;30;20;21;22;23;"
^DIE(1318,0)="RMPR55^3000524.1005^^664^^^3000607"
^DIE(1318,"%D",0)="^^1^1^2940829^"
^DIE(1318,"%D",1,0)="Posts information to 10-55."
^DIE(1318,"DIAB",1,1,664.02,1)="10;""SPECIAL CATEGORY"""
^DIE(1318,"DIAB",4,1,664.02,0)="9;""PATIENT CATEGORY"""
^DIE(1318,"DIAB",8,1,664.02,1)="1;""DESCRIPTION OF ITEM (For Vendor)"""
^DIE(1318,"DIAB",13,1,664.02,1)="7;""REMARKS (2319 and 1358)"";X"
^DIE(1318,"DR",1,664)="I '$D(^RMPR(665,RMPRDFN,5)) W !,""NO PSC ISSUED!"" S RMPRPSC=1,Y="""";I '$O(^RMPR(665,RMPRDFN,5,0)) W !,""NO PSC ISSUED!"" S RMPRPSC=1,Y="""";D ^RMPRPSC I $D(RMPRFLG) K RMPRFLG S Y="""";4;2///^S X=RMPRPI;11;"
^DIE(1318,"DR",2,664.02)="8;9;S RMTYPE=$P(^(0),U,9);S RMPRDIS=+$P(^RMPR(664,D0,1,D1,0),U,10);S Y=$S(RMPRDIS=4:""@1"",1:""@2"");@2;.01///^S:$D(RMPRPI) X=RMPRPI;16;"
^DIE(1318,"DR",2,664.02,1)="1DESCRIPTION OF ITEM (For Vendor)~;14;3//1;2;4//JB;7X~REMARKS (2319 and 1358)~;Q;11////C;S Y="""";@1;10SPECIAL CATEGORY~;S Y=""@2"";"
^DIE(1319,0)="RMPREYE^3000524.0809^^664^^^3000619"
^DIE(1319,"%D",0)="^^1^1^2940829^"
^DIE(1319,"%D",1,0)="Input eye exam data."
^DIE(1319,"DIAB",4,1,664.02,1)="1;""BRIEF DESCRIPTION"";X"
^DIE(1319,"DIAB",6,1,664.02,1)="3//1;""QTY"";X"
^DIE(1319,"DIAB",8,1,664.02,1)="4;""UNIT OF ISSUE"";X"
^DIE(1319,"DIAB",9,1,664.02,1)="7;""REMARKS (2319 and 1358)"";X"
^DIE(1319,"DIAB",12,1,664.02,1)="10;""SPECIAL CATEGORY"";X"
^DIE(1319,"DR",1,664)="2///^S:$D(RMPRPI) X=RMPRPI;11;"
^DIE(1319,"DR",2,664.02)="8;9;S RMTYPE=$P(^RMPR(664,D0,1,D1,0),U,9);S:$G(RMPRCONT)'="""" $P(^RMPR(664,D0,1,D1,0),U,14)=RMPRCONT;S RMPRDIS=+$P(^RMPR(664,D0,1,D1,0),U,10);S Y=$S(RMPRDIS=4:""@1"",1:""@2"");.01///^S:$D(RMPRPI) X=RMPRPI;"
^DIE(1319,"DR",2,664.02,1)="S Y=$S(RMPRDIS=4:""@1"",1:""@2"");@2;16;1X~BRIEF DESCRIPTION~;11////C;3X~QTY~//1;2;4X~UNIT OF ISSUE~;7X~REMARKS (2319 and 1358)~;S Y="""";@1;10X~SPECIAL CATEGORY~;S Y=""@2"";"
^DIE(1320,0)="RMPR 2520^3000524.1127^^664^^^3000626"
^DIE(1320,"DIAB",1,1,664.02,1)="10;""SPECIAL CATEGORY"";X"
^DIE(1320,"DIAB",4,1,664.02,0)="9;""PATIENT CATEGORY"";X"
^DIE(1320,"DIAB",8,1,664.02,1)="1;""DESCRIPTION OF ITEM (for Vendor)"";X"
^DIE(1320,"DIAB",15,1,664.02,1)="7;""REMARKS (2319 and 1358)"";X"
^DIE(1320,"DR",1,664)="I '$D(^RMPR(665,RMPRDFN,5)) W !,""NO PSC ISSUED!"" S RMPRPSC=1,Y="""";I '$O(^RMPR(665,RMPRDFN,5,0)) W !,""NO PSC ISSUED!"" S RMPRPSC=1,Y="""";D ^RMPRPSC I $D(RMPRFLG) K RMPRFLG S Y="""";4;2///^S X=RMPRPI;11;"
^DIE(1320,"DR",2,664.02)="8;9;S RMTYPE=$P(^(0),U,9);S RMPRDIS=+$P(^RMPR(664,D0,1,D1,0),U,10);S Y=$S(RMPRDIS=4:""@1"",1:""@2"");@2;.01///^S:$D(RMPRPI) X=RMPRPI;16;"
^DIE(1320,"DR",2,664.02,1)="1DESCRIPTION OF ITEM (For Vendor)~;14;3//1;2;K RMPRZ;4//JB;7X~REMARKS (2319 and 1358)~;Q;11////C;S Y="""";@1;10SPECIAL CATEGORY~;S Y=""@2"";"
^DIE(1321,0)="RMPRE2319^2980115.1239^^660^^^2980319"
^DIE(1321,"%D",0)="^^1^1^2950524^"
^DIE(1321,"%D",1,0)="Enter data for VAF 10-2319."
^DIE(1321,"DR",1,660)="I $P(^RMPR(660,DA,0),U,6)="""" S Y=""@5"";4;4.5;@3;7;5;14;9;21;2;16;28;62;I $D(^RMPR(660,DA,""AM"")),$P(^RMPR(660,DA,""AM""),U,3)=4 S Y=""@6"";63///@;S Y="""";@6;63;S Y="""";@5;7;14;16;28;62;I $D(^RMPR(660,DA,""AM"")),$P(^(""AM""),U,3)=4 S Y=""@8"";"
^DIE(1321,"DR",1,660,1)="63///@;S Y="""";@8;63;S Y="""";"
^DIE(1321,"ROUOLD")="[C"
^DIE(1322,0)="RMPR FL 10-90 ADP^2940107.1355^^665.4^^^2960209^"
^DIE(1322,"%D",0)="^^1^1^2940829^"
^DIE(1322,"%D",1,0)="Accepts input for FL 10-90"
^DIE(1322,"DIAB",1,1,665.48,0)="ALL"
^DIE(1322,"DR",1,665.4)="7;8;"
^DIE(1322,"DR",2,665.48)=".01"
^DIE(1323,0)="RMPR4 PC^2960312.1636^^664^^^2960417"
^DIE(1323,"DR",1,664)="26;"
^DIE(1324,0)="SPNL SCD SITE PARAMETERS^2991022.1046^^154.91^^^2991220"
^DIE(1324,"DR",1,154.91)="4;5;9;7;8;"
^DIE(1325,0)="SPNL SCD NATIONAL REGISTRY^2951005.1224^^154.91^^^2961112"
^DIE(1325,"DR",1,154.91)="6;"
^DIE(1326,0)="ABSV HOSP USE ONLY^2880810^^503335^^^2961230^"
^DIE(1326,"DIAB",1,0,503335,0)="]37;""BACKDATE/AWARD CODE"""
^DIE(1326,"DR",1,503335)="37BACKDATE/AWARD CODE~;"
^DIE(1327,0)="ABSV CREATE^2930127.1637^^503335^^^2980415^"
^DIE(1327,"DR",1,503335)="1///^S X=COMB;1.1////^S X=ORG;1.2////^S X=SER;4///^S X=MONTH;1.9///0;3///^S X=ABSV(""SITE"");"
^DIE(1328,0)="ABSV HOSPITAL USE ONLY EDIT^2880707^^503335^^^^"
^DIE(1328,"DR",1,503335)="37;"
^DIE(1329,0)="ABSV DELAY/RELEASE TIMECARD^2880707^^503335^^^^"
^DIE(1329,"DR",1,503335)="3;37;"
^DIE(1330,0)="ABSV TIME CARD EDIT^2881004^^503335^^^2980417^"
^DIE(1330,"DIAB",4,0,503335,0)="37;""BACKDATE/AWARD CODE"""
^DIE(1330,"DR",1,503335)="1;1.1;1.2;37BACKDATE/AWARD CODE~;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;"
^DIE(1331,0)="ABSV OCCASIONAL TIME ENTER^2940414.1501^^503336^^^2980331^"
^DIE(1331,"DR",1,503336)="W !,""ID NUMBER: "",DA;1////07;2///^S X=ABSV(""SITE"");2.5;3;4;5;6;7//TODAY;8////1;"
^DIE(1332,0)="ABSV SITE EDIT^3000118.1343^^503338^^^3000616"
^DIE(1332,"DIAB",1,1,503338.018,0)="ALL"
^DIE(1332,"DIAB",1,1,503338.08,0)="ALL"
^DIE(1332,"DR",1,503338)=".01;9;1;2;3;4;5;6;13;7;8;10;I X'=1 S Y=""@1"";11;12;@1;14;15;16;17;18;"
^DIE(1332,"DR",2,503338.018)=".01"
^DIE(1332,"DR",2,503338.08)=".01"
^DIE(1333,0)="ABSV LUNCH EDIT^2891016^^503330.2^^^^"
^DIE(1333,"DR",1,503330.2)=".01;1///^S X=ABSV(""SITE"");3///^S X=+DT;2;"
^DIE(1334,0)="ABSV ADD/EDIT MASTER^2990209.1528^^503330^^^3020508"
^DIE(1334,"DR",1,503330)="28;23;1;2;2.5;3;4;5;6;7;16.9;16.95;17;18;19;20;29;I $P($G(ABSV(""PARAM"")),""^"",13)'=1 S Y="""";30;31;32;33;"
^DIE(1335,0)="ABSV COMBINATION EDIT^2880705^^503330^^^^"
^DIE(1335,"DIAB",1,1,503330.03,0)="ALL"
^DIE(1335,"DR",1,503330)="8.5;"
^DIE(1335,"DR",2,503330.03)=".01:3"
^DIE(1336,0)="ABSV LOG^2940124.1113^^503330.1^^^2980428^"
^DIE(1336,"DR",1,503330.1)="1///TODAY;2///^S X=COMB;11///^S X=$G(FULLCOMB);8///^S X=ABSV(""SITE"");6///^S X=HOURS;5///^S X=LUNCH;D LUN^ABSVNIT2(X) K Y;"
^DIE(1337,0)="ABSV LOG1^2930630.1624^^503330.1^^^^"
^DIE(1337,"DIAB",5,0,503330.1,0)="6;""How many hours will you be working? """
^DIE(1337,"DIAB",10,0,503330.1,0)="5//YES;""Will you be eating lunch?"""
^DIE(1337,"DR",1,503330.1)="1///TODAY;2///^S X=COMB;11///^S X=$G(FULLCOMB);8///^S X=ABSV(""SITE"");6How many hours will you be working? ~;D TIME^ABSVL2;I $D(ABSVX(""M"")) S Y=""@1"";S Y="""";@1;5Will you be eating lunch?~//YES;D LUN^ABSVNIT2(X);K Y;"
^DIE(1338,0)="ACKQAS VISIT ENTRY^3001005.1539^^509850.6^^^3030502"
^DIE(1338,"AB","13^ACKQTE9",.01)="1^ACKQTE11"
^DIE(1338,"AB","13^ACKQTE9",.03)="2^ACKQTE11"
^DIE(1338,"AB","13^ACKQTE9",.05)="4^ACKQTE11"
^DIE(1338,"AB","13^ACKQTE9","@374")="3^ACKQTE11"
^DIE(1338,"AB","13^ACKQTE9","@376")="7^ACKQTE11"
^DIE(1338,"AB","15^ACKQTE",.03)="4^ACKQTE1"
^DIE(1338,"AB","15^ACKQTE","@17")="1^ACKQTE1"
^DIE(1338,"AB","15^ACKQTE","@20")="5^ACKQTE1"
^DIE(1338,"AB","35^ACKQTE7",.01)="1^ACKQTE8"
^DIE(1338,"AB","4^ACKQTE10",.01)="2^ACKQTE12"
^DIE(1338,"AB","4^ACKQTE3",.01)="1^ACKQTE4"
^DIE(1338,"AB","4^ACKQTE3",.12)="5^ACKQTE4"
^DIE(1338,"AB","4^ACKQTE3",.13)="8^ACKQTE4"
^DIE(1338,"AB","4^ACKQTE3",.14)="11^ACKQTE4"
^DIE(1338,"AB","4^ACKQTE3","@45")="6^ACKQTE4"
^DIE(1338,"AB","4^ACKQTE3","@49")="12^ACKQTE4"
^DIE(1338,"AB","6^ACKQTE9",.01)="1^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9",.03)="6^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9",.04)="4^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9",.05)="8^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9","@360")="5^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9","@363")="7^ACKQTE10"
^DIE(1338,"AB","6^ACKQTE9","@365")="12^ACKQTE10"
^DIE(1338,"AB","^",.07)="17^ACKQTE9"
^DIE(1338,"AB","^",.08)="1^ACKQTE3"
^DIE(1338,"AB","^",.08,"///")=""
^DIE(1338,"AB","^",1)="13^ACKQTE"
^DIE(1338,"AB","^",1,"///")=""
^DIE(1338,"AB","^",2.5)="18^ACKQTE"
^DIE(1338,"AB","^",2.7)="35^ACKQTE7"
^DIE(1338,"AB","^",3)="4^ACKQTE3"
^DIE(1338,"AB","^",4.01)="1^ACKQTE6"
^DIE(1338,"AB","^",4.02)="4^ACKQTE6"
^DIE(1338,"AB","^",4.03)="7^ACKQTE6"
^DIE(1338,"AB","^",4.04)="10^ACKQTE6"
^DIE(1338,"AB","^",4.05)="13^ACKQTE6"
^DIE(1338,"AB","^",4.07)="16^ACKQTE6"
^DIE(1338,"AB","^",4.08)="19^ACKQTE6"
^DIE(1338,"AB","^",4.09)="22^ACKQTE6"
^DIE(1338,"AB","^",4.1)="25^ACKQTE6"
^DIE(1338,"AB","^",4.11)="28^ACKQTE6"
^DIE(1338,"AB","^",4.13)="31^ACKQTE6"
^DIE(1338,"AB","^",4.14)="34^ACKQTE6"
^DIE(1338,"AB","^",4.15)="37^ACKQTE6"
^DIE(1338,"AB","^",4.16)="1^ACKQTE7"
^DIE(1338,"AB","^",4.17)="22^ACKQTE9"
^DIE(1338,"AB","^",4.17,"///")=""
^DIE(1338,"AB","^",4.18)="23^ACKQTE9"
^DIE(1338,"AB","^",4.18,"///")=""
^DIE(1338,"AB","^",4.23)="3^ACKQTE7"
^DIE(1338,"AB","^",4.23,"///")=""
^DIE(1338,"AB","^",4.24)="24^ACKQTE9"
^DIE(1338,"AB","^",4.24,"///")=""
^DIE(1338,"AB","^",5)="18^ACKQTE5"
^DIE(1338,"AB","^",6)="32^ACKQTE7"
^DIE(1338,"AB","^",7)="1^ACKQTE9"
^DIE(1338,"AB","^",10)="6^ACKQTE9"
^DIE(1338,"AB","^",15)="13^ACKQTE9"
^DIE(1338,"AB","^",20)="23^ACKQTE3"
^DIE(1338,"AB","^",25)="1^ACKQTE5"
^DIE(1338,"AB","^",30)="6^ACKQTE5"
^DIE(1338,"AB","^",35)="11^ACKQTE5"
^DIE(1338,"AB","^",55)="10^ACKQTE"
^DIE(1338,"AB","^",80)="14^ACKQTE3"
^DIE(1338,"AB","^",90)="15^ACKQTE5"
^DIE(1338,"AB","^",100)="7^ACKQTE7"
^DIE(1338,"AB","^",101)="12^ACKQTE7"
^DIE(1338,"AB","^",102)="17^ACKQTE7"
^DIE(1338,"AB","^",103)="22^ACKQTE7"
^DIE(1338,"AB","^",104)="27^ACKQTE7"
^DIE(1338,"AB","^","@10")="6^ACKQTE"
^DIE(1338,"AB","^","@100")="13^ACKQTE5"
^DIE(1338,"AB","^","@105")="17^ACKQTE5"
^DIE(1338,"AB","^","@110")="19^ACKQTE5"
^DIE(1338,"AB","^","@120")="25^ACKQTE5"
^DIE(1338,"AB","^","@130")="2^ACKQTE6"
^DIE(1338,"AB","^","@140")="5^ACKQTE6"
^DIE(1338,"AB","^","@15")="11^ACKQTE"
^DIE(1338,"AB","^","@150")="8^ACKQTE6"
^DIE(1338,"AB","^","@16")="14^ACKQTE"
^DIE(1338,"AB","^","@160")="11^ACKQTE6"
^DIE(1338,"AB","^","@170")="14^ACKQTE6"
^DIE(1338,"AB","^","@180")="17^ACKQTE6"
^DIE(1338,"AB","^","@190")="20^ACKQTE6"
^DIE(1338,"AB","^","@200")="23^ACKQTE6"
^DIE(1338,"AB","^","@210")="26^ACKQTE6"
^DIE(1338,"AB","^","@230")="29^ACKQTE6"
^DIE(1338,"AB","^","@240")="32^ACKQTE6"
^DIE(1338,"AB","^","@250")="35^ACKQTE6"
^DIE(1338,"AB","^","@260")="38^ACKQTE6"
^DIE(1338,"AB","^","@265")="2^ACKQTE7"
^DIE(1338,"AB","^","@270")="4^ACKQTE7"
^DIE(1338,"AB","^","@280")="9^ACKQTE7"
^DIE(1338,"AB","^","@290")="14^ACKQTE7"
^DIE(1338,"AB","^","@30")="16^ACKQTE"
^DIE(1338,"AB","^","@300")="19^ACKQTE7"
^DIE(1338,"AB","^","@310")="24^ACKQTE7"
^DIE(1338,"AB","^","@320")="29^ACKQTE7"
^DIE(1338,"AB","^","@325")="31^ACKQTE7"
^DIE(1338,"AB","^","@330")="33^ACKQTE7"
^DIE(1338,"AB","^","@340")="37^ACKQTE7"
^DIE(1338,"AB","^","@350")="3^ACKQTE9"
^DIE(1338,"AB","^","@370")="9^ACKQTE9"
^DIE(1338,"AB","^","@372")="11^ACKQTE9"
^DIE(1338,"AB","^","@378")="16^ACKQTE9"
^DIE(1338,"AB","^","@380")="19^ACKQTE9"
^DIE(1338,"AB","^","@40")="2^ACKQTE3"
^DIE(1338,"AB","^","@50")="8^ACKQTE3"
^DIE(1338,"AB","^","@55")="17^ACKQTE3"
^DIE(1338,"AB","^","@60")="20^ACKQTE3"
^DIE(1338,"AB","^","@70")="26^ACKQTE3"
^DIE(1338,"AB","^","@80")="3^ACKQTE5"
^DIE(1338,"AB","^","@90")="8^ACKQTE5"
^DIE(1338,"AB","^","@999")="25^ACKQTE9"
^DIE(1338,"DIAB",1,0,509850.6,2)="PATIENT NAME:"
^DIE(1338,"DIAB",1,0,509850.6,6)="20//^S X="""";""Was care for SC Condition ?"""
^DIE(1338,"DIAB",1,1,509850.66,0)="SECONDARY PROVIDER;DUP"
^DIE(1338,"DIAB",2,0,509850.6,8)="35//^S X="""";""Was care related to EC Exposure ?"""
^DIE(1338,"DIAB",3,0,509850.6,18)="STUDENT;DUP"
^DIE(1338,"DIAB",4,0,509850.6,2)="2.5//YES;""Is this a C&P Visit ?"""
^DIE(1338,"DIAB",5,0,509850.6,7)="30//^S X="""";""Was care related to IR Exposure ?"""
^DIE(1338,"DIAB",5,0,509850.6,17)="PRIMARY PROVIDER;DUP"
^DIE(1338,"DIAB",5,1,509850.63,0)=".12//^S X="""";""Is this the Primary Diagnosis ?"""
^DIE(1338,"DIAB",6,0,509850.6,8)="90//^S X="""";""Was care related to MST ?"""
^DIE(1338,"DIAB",7,0,509850.6,6)="25//^S X="""";""Was care related to AO Exposure ?"""
^DIE(1338,"DIAB",8,0,509850.6,4)="80//^S X=ACKELIG;""Enter the Eligibility for this Appointment"""
^DIE(1338,"DIAB",8,1,509850.63,0)=".13//^S X="""";""Update PCE Problem List with Diag. code ?"""
^DIE(1338,"DR",1,509850.6)="I $G(ACKVISIT)'=""NEW"",$G(ACKVISIT)'=""EDIT"" W !!,""This option must only be run from QUASAR"" S Y=""@999"";D SETUP^ACKQUTL4;D HLOSS^ACKQUTL4;S ACKCP=$$ACKCP^ACKQUTL4;S ACKCPNO=$S(+ACKCP=0:"""",1:$P(ACKCP,U,2)),ACKCP=+ACKCP;@10;"
^DIE(1338,"DR",1,509850.6,1)="D EN^ACKQUTL7;I $D(ACKDIRUT) S Y=""@999"";I $$TIMECHEK^ACKQASU5(ACKVIEN,1) S Y=""@15"";55;@15;I ACKVISIT=""EDIT"" S Y=""@16"";1////^S X=ACKPAT;@16;"
^DIE(1338,"DR",1,509850.6,2)="^509850.2^ACK(509850.2,^^S I(0,0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");@30;I ACKCP=0 S Y=""@40"";2.5Is this a C&P Visit ?~//YES;S ACKCP=X;S:'ACKCP Y=""@40"";"
^DIE(1338,"DR",1,509850.6,3)="S:ACKCPNO="""" Y=""@40"";.08////^S X=$S(ACKCPNO'="""":ACKCPNO,1:"""");@40;D DIAGDIS^ACKQUTL4;3;IF $O(^ACK(509850.6,ACKVIEN,1,0))="""" WRITE !!,""You must enter at least one Diagnosis"" S Y=""@40"";I '$$POSTDIAG^ACKQASU5(ACKVIEN) S Y=""@40"";"
^DIE(1338,"DR",1,509850.6,4)="D HLOSS^ACKQUTL4;@50;W @IOF;I ACKPCE'=1 S Y=""@100"";I ACKSC=0 D CLASDIS^ACKQNQ S Y=""@55"";D PATDIS^ACKQUTL4;D ELIGDIS^ACKQUTL4;80Enter the Eligibility for this Appointment~//^S X=ACKELIG;"
^DIE(1338,"DR",1,509850.6,5)="S ACKELIG=$S(ACKPCE'=1:"""",ACKELGCT=1:ACKELIG,1:X);S Y=""@60"";@55;I $$GET1^DIQ(509850.6,ACKVIEN_"","",80,""I"")=ACKELIG1 S Y=""@60"";80////^S X=ACKELIG1;@60;I ACKPCE'=1 S Y=""@100"";I ACKSC=0 S Y=""@70"";"
^DIE(1338,"DR",1,509850.6,6)="20Was care for SC Condition ?~//^S X="""";I ACKPCE'=1 S Y=""@100"";S ACKSC=$S(ACKSC=0:0,X=1:2,1:1);@70;I ACKAO=0 S Y=""@80"";I ACKSC=2 S Y=""@100"";25Was care related to AO Exposure ?~//^S X="""";"
^DIE(1338,"DR",1,509850.6,7)="S ACKAO=$S(ACKAO=0:0,ACKSC'=1:ACKAO,X=1:2,1:1);@80;I ACKRAD=0 S Y=""@90"";I ACKSC=2 S Y=""@100"";30Was care related to IR Exposure ?~//^S X="""";S ACKRAD=$S(ACKRAD=0:0,ACKSC'=1:ACKRAD,X=1:2,1:1);@90;I ACKENV=0 S Y=""@100"";"
^DIE(1338,"DR",1,509850.6,8)="I ACKSC=2 S Y=""@100"";35Was care related to EC Exposure ?~//^S X="""";S ACKENV=$S(ACKENV=0:0,ACKSC'=1:ACKENV,X=1:2,1:1);@100;I '$$MST^ACKQUTL4(ACKPCE,ACKVD,ACKPAT) S Y=""@105"";90Was care related to MST ?~//^S X="""";"
^DIE(1338,"DR",1,509850.6,9)="I '$$MST^ACKQUTL4(ACKPCE,ACKVD,ACKPAT) D CLEAR^ACKQUTL4(ACKVIEN,""90"");@105;5//^S X=$$CDR^ACKQUTL6();@110;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO S Y=""@270"";I 'ACKATS S Y=""@120"";S ACKLAMD=$$LAMD^ACKQAS1(DFN);I $D(DIRUT) S Y=""@999"";"
^DIE(1338,"DR",1,509850.6,10)="I ACKLAMD S Y=""@265"";@120;S ACKLAMD=ACKVD;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";W !!,""Enter Audiometrics :"",!;4.01;@130;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.02;@140;"
^DIE(1338,"DR",1,509850.6,11)="S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.03;@150;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.04;@160;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.05;@170;"
^DIE(1338,"DR",1,509850.6,12)="S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.07;@180;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.08;@190;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.09;@200;"
^DIE(1338,"DR",1,509850.6,13)="S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.1;@210;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.11;@230;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.13;@240;"
^DIE(1338,"DR",1,509850.6,14)="S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.14;@250;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.15;@260;S ACKAUDIO=$$AUDIO^ACKQUTL4 I 'ACKAUDIO!($L(ACKLAMD)>7) S Y=""@270"";4.16;@265;"
^DIE(1338,"DR",1,509850.6,15)="4.23////^S X=+ACKLAMD;@270;I ACKCP'=1 S Y=""@320"";S ACKQHLP=""^509850.6^100"" D ^ACKQHLP;100;I $D(DIRUT) S Y=""@999"";@280;I ACKCP'=1 S Y=""@320"";S ACKQHLP=""^509850.6^101"" D ^ACKQHLP;101;I $D(DIRUT) S Y=""@999"";@290;I ACKCP'=1 S Y=""@320"";"
^DIE(1338,"DR",1,509850.6,16)="S ACKQHLP=""^509850.6^102"" D ^ACKQHLP;102;I $D(DIRUT) S Y=""@999"";@300;I ACKCP'=1 S Y=""@320"";S ACKQHLP=""^509850.6^103"" D ^ACKQHLP;103;I $D(DIRUT) S Y=""@999"";@310;I ACKCP'=1 S Y=""@320"";S ACKQHLP=""^509850.6^104"" D ^ACKQHLP;104;"
^DIE(1338,"DR",1,509850.6,17)="I $D(DIRUT) S Y=""@999"";@320;D PROVDIS^ACKQUTL4;@325;6d~;@330;I $$GET1^DIQ(509850.6,ACKVIEN_"","",6)="""" W !,""A Primary Provider MUST be entered for this Visit !!"",! S Y=""@325"";2.7;"
^DIE(1338,"DR",1,509850.6,18)="I $$GET1^DIQ(509850.6,ACKVIEN_"","",6)="""" W !,""A Primary Provider MUST be entered for this Visit !!"",! S Y=""@325"";@340;7d~;"
^DIE(1338,"DR",1,509850.6,19)="I $$GET1^DIQ(509850.6,ACKVIEN_"","",6)="""" W !,""A Primary Provider MUST be entered for this Visit !!"",! S Y=""@325"";@350;I ACKEVENT S Y=""@372"";D CPTDIS^ACKQUTL4;10;I ACKEVENT S Y=""@372"";"
^DIE(1338,"DR",1,509850.6,20)="I '$O(^ACK(509850.6,ACKVIEN,3,0)) W !!,$C(7),""You must enter at least one PROCEDURE CODE !!"" S Y=""@350"";@370;I 'ACKEVENT S Y=""@378"";@372;D EVNTDIS^ACKQUTL5;15;I 'ACKEVENT S Y=""@378"";"
^DIE(1338,"DR",1,509850.6,21)="I '$O(^ACK(509850.6,ACKVIEN,7,0)) W !!,$C(7),""You must enter at least one EC PROCEDURE CODE !!"" S Y=""@372"";@378;.07;I ACKCP'=1!($P($G(^ACK(509850.6,ACKVIEN,4)),U,17)]"""") S Y=""@999"";@380;S ACKMODE=1 D SIG^ACKQCP;"
^DIE(1338,"DR",1,509850.6,22)="S:'$D(ACKSIG) Y=""@999"";4.17////^S X=ACKSIG;4.18////^S X=DT;4.24////^S X=ACKTITL;@999;W !;"
^DIE(1338,"DR",2,509850.2)="@17;I ACKCLNO'=1 S Y=""@20"";W !!;.03;@20;"
^DIE(1338,"DR",2,509850.61)=".01;S ACKPC=X;D LONG^ACKQUTL6(ACKPC,"""");.04;@360;.03//^S X=1;@363;.05//^S X=$$GET1^DIQ(509850.6,ACKVIEN_"","",6);I X="""" W !,""Each Procedure must have a Provider allocated."",! S Y=""@363"";D ADDPROV^ACKQUTL(ACKVIEN,X);K ACKPC;@365;"
^DIE(1338,"DR",2,509850.615)=".01;.03//^S X=1;@374;.05//^S X=$$GET1^DIQ(509850.6,ACKVIEN_"","",6);I X="""" W !,""Each EC Procedure must have a Provider allocated."",! S Y=""@374"";D ADDPROV^ACKQUTL(ACKVIEN,X);@376;"
^DIE(1338,"DR",2,509850.63)=".01;S ACKDC=X;D DC^ACKQASU;I $$PRIMARY^ACKQASU5(ACKVIEN,DA) S Y=""@45"";.12Is this the Primary Diagnosis ?~//^S X="""";@45;I '$$PROB^ACKQUTL4(ACKPCE,ACKDIV)!(+$$PLIST^ACKQUTL6(ACKPAT,ACKDC)=2) S Y=""@49"";"
^DIE(1338,"DR",2,509850.63,1)=".13Update PCE Problem List with Diag. code ?~//^S X="""";I X=0 S Y=""@49"";I '$$PROB^ACKQUTL4(ACKPCE,ACKDIV)!(+$$PLIST^ACKQUTL6(ACKPAT,ACKDC)=2) S Y=""@49"";.14;@49;"
^DIE(1338,"DR",2,509850.66)=".01d~;"
^DIE(1338,"DR",3,509850.64)="K ACKMOD;.01;K ACKMOD;"
^DIE(1338,"ROU")="^ACKQTE"
^DIE(1338,"ROUOLD")="ACKQTE"
^DIE(1339,0)="ACKQAS SITE^3001023.1148^^509850.8^^^3001215"
^DIE(1339,"DR",1,509850.8)="S ACKQ=1;@10;.01;@20;2//NO;S ACKPCE=$S(X=1:""YES"",1:""NO"");@100;D DIVLIST^ACKQUTL2();3;@990;727.8251;727.8252;K ACKQ;"
^DIE(1339,"DR",2,509850.83)="S ACKDIV=DA;@110;.02//ACTIVE;I X=""I"" S Y=""@190"";@120;.03//^S X=ACKPCE;I X=0 S Y=""@130"";@125;.08;.09//NO;@130;.04//NO;@140;.06//NO;@150;.07//NO;@160;I $$CHECK^ACKQUTL9() D EVENT^ACKQUTL1(ACKDIV);@180;1;@190;K ACKDIV;"
^DIE(1339,"DR",3,509850.831)="@185;.01;"
^DIE(1340,0)="ACKQAS CLINICIAN EDIT^3000731.1618^^509850.3^^^3010103"
^DIE(1340,"DR",1,509850.3)="I '$$REINDEX^ACKQUTL6 S Y=""@999"";.01;.02;.03;S X=X;.04;S X=X;.05//^S X=$G(^ACK(509850.3,""ALID""))+1,X=$E(""0000"",$L(X)+1,4)_X;.06;@999;"
^DIE(1341,0)="HBHC DISCHARGE^2931208.1144^^631^^^^"
^DIE(1341,"DIAB",1,0,631,2)="40//ELIGIBILITY @ EVALUATION"
^DIE(1341,"DIAB",1,0,631,3)="41//MARITAL STATUS @ EVALUATION"
^DIE(1341,"DIAB",1,0,631,4)="42//LIVING ARRANGEMENTS @ EVAL"
^DIE(1341,"DIAB",1,0,631,6)="47//VISION @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,7)="48//HEARING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,8)="49//EXPRESSIVE COMMUNICATION @ ADM"
^DIE(1341,"DIAB",1,0,631,9)="51//BATHING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,10)="52//DRESSING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,11)="53//TOILET USAGE @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,12)="54//TRANSFERRING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,13)="55//EATING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,14)="56//WALKING @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,15)="57//BOWEL CONTINENCE @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,16)="58//BLADDER CONTINENCE @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,17)="59//MOBILITY @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,18)="60//ADAPTIVE TASKS @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,19)="61//BEHAVIOR PROBLEMS @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,20)="62//DISORIENTATION @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,21)="63//MOOD DISTURBANCE @ ADMISSION"
^DIE(1341,"DIAB",1,0,631,22)="64//CAREGIVER LIMITATIONS @ ADM"
^DIE(1341,"DIAB",3,0,631,8)="50//RECEPTIVE COMMUNICATION @ ADM"
^DIE(1341,"DIAB",8,0,631,5)="70//SECONDARY DIAGNOSES @ ADM"
^DIE(1341,"DR",1,631)="Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;K HBHCQ,HBHCQ1;S DIE(""NO^"")=""OUTOK"";39;Q;S HBHCDSDT=X;I HBHCDSDT="""" S $P(^HBHC(631,DA,1),U,18)="""" K ^HBHC(631,""AF"",""N"",DA) I HBHCXMT5]"""" K ^HBHC(631,""AF"",HBHCXMT5,DA);Q;"
^DIE(1341,"DR",1,631,1)="S:HBHCDSDT]"""" $P(^HBHC(631,DA,1),U,18)=""N"",^HBHC(631,""AF"",""N"",DA)="""";Q;K HBHCDSDT;Q;"
^DIE(1341,"DR",1,631,2)="40//^S X(2)=$C(59)_$S($D(^DD(631,5,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,6)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,3)="41//^S X(2)=$C(59)_$S($D(^DD(631,10,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,11)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,4)="42//^S X(2)=$C(59)_$S($D(^DD(631,11,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,12)_"":"",2),$C(59),1);43;Q;D STATUS^HBHCUTL;44;45;I $D(HBHCQ1) K HBHCQ1 S Y=""@1"";69;Q;"
^DIE(1341,"DR",1,631,5)="I $D(HBHCQ) K HBHCQ S Y=65;Q;@1;46////^S X=$S($P(^HBHC(631,DA,0),U,47)="""":$P(^HBHC(631,DA,0),U,19),1:$P(^HBHC(631,DA,0),U,47));Q;46;Q;70//^S X(1)=$S($D(^HBHC(631,D0,1)):^(1),1:"""") S X=$P(X(1),U,14);Q;"
^DIE(1341,"DR",1,631,6)="47//^S X(2)=$C(59)_$S($D(^DD(631,19,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,20)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,7)="48//^S X(2)=$C(59)_$S($D(^DD(631,20,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,21)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,8)="49//^S X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),Y=$P(X(1),U,22) X:$D(^DD(631,21,2)) ^(2) S X=Y;Q;50//^S X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),Y=$P(X(1),U,23) X:$D(^DD(631,22,2)) ^(2) S X=Y;Q;"
^DIE(1341,"DR",1,631,9)="51//^S X(2)=$C(59)_$S($D(^DD(631,23,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,24)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,10)="52//^S X(2)=$C(59)_$S($D(^DD(631,24,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,25)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,11)="53//^S X(2)=$C(59)_$S($D(^DD(631,25,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,26)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,12)="54//^S X(2)=$C(59)_$S($D(^DD(631,26,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,27)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,13)="55//^S X(2)=$C(59)_$S($D(^DD(631,27,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,28)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,14)="56//^S X(2)=$C(59)_$S($D(^DD(631,28,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,29)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,15)="57//^S X(2)=$C(59)_$S($D(^DD(631,29,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,30)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,16)="58//^S X(2)=$C(59)_$S($D(^DD(631,30,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,31)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,17)="59//^S X(2)=$C(59)_$S($D(^DD(631,31,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,32)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,18)="60//^S X(2)=$C(59)_$S($D(^DD(631,32,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,33)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,19)="61//^S X(2)=$C(59)_$S($D(^DD(631,33,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,34)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,20)="62//^S X(2)=$C(59)_$S($D(^DD(631,34,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,35)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,21)="63//^S X(2)=$C(59)_$S($D(^DD(631,35,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,36)_"":"",2),$C(59),1);Q;"
^DIE(1341,"DR",1,631,22)="64//^S X(2)=$C(59)_$S($D(^DD(631,36,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,37)_"":"",2),$C(59),1);65;66;"
^DIE(1343,0)="HBHC UPDATE DISCHARGE^2940228.162^^631^0^^2940301"
^DIE(1343,"DIAB",1,0,631,1)="47//VISION @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,2)="48//HEARING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,3)="49//EXPRESSIVE COMMUNICATION @ ADM"
^DIE(1343,"DIAB",1,0,631,4)="51//BATHING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,5)="52//DRESSING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,6)="53//TOILET USAGE @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,7)="54//TRANSFERRING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,8)="55//EATING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,9)="56//WALKING @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,10)="57//BOWEL CONTINENCE @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,11)="58//BLADDER CONTINENCE @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,12)="59//MOBILITY @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,13)="60//ADAPTIVE TASKS @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,14)="61//BEHAVIOR PROBLEMS @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,15)="62//DISORIENTATION @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,16)="63//MOOD DISTURBANCE @ ADMISSION"
^DIE(1343,"DIAB",1,0,631,17)="64//CAREGIVER LIMITATIONS @ ADM"
^DIE(1343,"DIAB",3,0,631,3)="50//RECEPTIVE COMMUNICATION @ ADM"
^DIE(1343,"DR",1,631)="Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;Q;S X=$P(^HBHC(631,HBHCDFN,0),U,44);D STATUS^HBHCUTL;44;45;@1;46////^S X=$S($P(^HBHC(631,DA,0),U,47)="""":$P(^HBHC(631,DA,0),U,19),1:$P(^HBHC(631,DA,0),U,47));Q;46;Q;Q;"
^DIE(1343,"DR",1,631,1)="47//^S X(2)=$C(59)_$S($D(^DD(631,19,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,20)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,2)="48//^S X(2)=$C(59)_$S($D(^DD(631,20,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,21)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,3)="49//^S X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),Y=$P(X(1),U,22) X:$D(^DD(631,21,2)) ^(2) S X=Y;Q;50//^S X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),Y=$P(X(1),U,23) X:$D(^DD(631,22,2)) ^(2) S X=Y;Q;"
^DIE(1343,"DR",1,631,4)="51//^S X(2)=$C(59)_$S($D(^DD(631,23,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,24)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,5)="52//^S X(2)=$C(59)_$S($D(^DD(631,24,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,25)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,6)="53//^S X(2)=$C(59)_$S($D(^DD(631,25,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,26)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,7)="54//^S X(2)=$C(59)_$S($D(^DD(631,26,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,27)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,8)="55//^S X(2)=$C(59)_$S($D(^DD(631,27,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,28)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,9)="56//^S X(2)=$C(59)_$S($D(^DD(631,28,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,29)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,10)="57//^S X(2)=$C(59)_$S($D(^DD(631,29,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,30)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,11)="58//^S X(2)=$C(59)_$S($D(^DD(631,30,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,31)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,12)="59//^S X(2)=$C(59)_$S($D(^DD(631,31,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,32)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,13)="60//^S X(2)=$C(59)_$S($D(^DD(631,32,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,33)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,14)="61//^S X(2)=$C(59)_$S($D(^DD(631,33,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,34)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,15)="62//^S X(2)=$C(59)_$S($D(^DD(631,34,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,35)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,16)="63//^S X(2)=$C(59)_$S($D(^DD(631,35,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,36)_"":"",2),$C(59),1);Q;"
^DIE(1343,"DR",1,631,17)="64//^S X(2)=$C(59)_$S($D(^DD(631,36,0)):$P(^(0),U,3),1:""""),X(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P($P(X(2),$C(59)_$P(X(1),U,37)_"":"",2),$C(59),1);"
^DIE(1344,0)="HBHC EDIT PROVIDER (631.4)^2970612.1231^^631.4^^^2970616"
^DIE(1344,"DR",1,631.4)="1;2;3;4;5;6;"
^DIE(1345,0)="MCAREPENTRY^2920424.1026^^691.8^^^^"
^DIE(1345,"DIAB",1,0,691.8,1)="ATRIAL STUDY:"
^DIE(1345,"DIAB",1,1,691.801,0)="ALL"
^DIE(1345,"DIAB",1,1,691.802,0)="ALL"
^DIE(1345,"DIAB",1,1,691.803,0)="ALL"
^DIE(1345,"DIAB",1,1,691.804,0)="ALL"
^DIE(1345,"DIAB",1,1,691.805,0)="ALL"
^DIE(1345,"DIAB",1,1,691.811,0)="ALL"
^DIE(1345,"DIAB",1,1,691.812,0)="ALL"
^DIE(1345,"DIAB",1,1,691.815,0)="ALL"
^DIE(1345,"DIAB",4,0,691.8,2)="VENTRICULAR STUDY:"
^DIE(1345,"DR",1,691.8)="S MCCONT=1;I '$P(^(0),U,2) S DIK=""^MCAR(691.8,"" D ^DIK K DIK S Y=""@99"";.01;1;.02;18;3;4;.04;.05;.9;5;6;7;8;9;10;11;12;@1;S MCARFIND="""",DLAYGO=691.9;"
^DIE(1345,"DR",1,691.8,1)="^691.9^MCAR(691.9,^^S I(0,0)=$S($D(D0):D0,1:""""),D0=$O(^MCAR(691.9,""C"",I(0,0),0)) X DR(99,1,9.2):$O(^(D0))>0 S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@99"";"
^DIE(1345,"DR",1,691.8,2)="I MCARFIND S Y=""@1"";@2;S MCARFIND="""",DLAYGO=692;^692^MCAR(692,^^S I(0,0)=$S($D(D0):D0,1:""""),D0=$O(^MCAR(692,""C"",I(0,0),0)) X DR(99,2,9.2):$O(^(D0))>0 S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1345,"DR",1,691.8,3)="I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@99"";I MCARFIND S Y=""@2"";K MCARFIND,DLAYGO;13;14;15;16;17;19;20;.03;600;@99;K MCCONT"
^DIE(1345,"DR",2,691.801)=".01"
^DIE(1345,"DR",2,691.802)=".01"
^DIE(1345,"DR",2,691.803)=".01:2"
^DIE(1345,"DR",2,691.804)=".01:4"
^DIE(1345,"DR",2,691.805)=".01"
^DIE(1345,"DR",2,691.811)=".01:1"
^DIE(1345,"DR",2,691.812)=".01"
^DIE(1345,"DR",2,691.815)=".01"
^DIE(1345,"DR",2,691.9)="S MCCONT=0;.01;S MCARFIND=X;S $P(^MCAR(691.9,D0,0),U,2)=I(0,0),^MCAR(691.9,""C"",I(0,0),D0)="""";1:17.2;18:24;S MCCONT=1;"
^DIE(1345,"DR",2,692)="S MCCONT=0;.01;S MCARFIND=X;S $P(^MCAR(692,D0,0),U,2)=I(0,0),^MCAR(692,""C"",I(0,0),D0)="""";.9:21;S MCCONT=1;"
^DIE(1345,"DR",3,691.911)=".01:9"
^DIE(1345,"DR",3,691.921)=".01:10"
^DIE(1345,"DR",3,691.922)=".01:1"
^DIE(1345,"DR",3,691.923)=".01"
^DIE(1345,"DR",3,691.93)=".01:7;9"
^DIE(1345,"DR",3,692.01)=".01"
^DIE(1345,"DR",3,692.019)=".01:1"
^DIE(1345,"DR",3,692.02)=".01:7;9"
^DIE(1345,"DR",3,692.07)=".01:6"
^DIE(1345,"DR",4,691.9212)=".01"
^DIE(1345,"DR",4,691.931)=".01"
^DIE(1345,"DR",4,692.21)=".01"
^DIE(1345,"DR",99,1,9.2)="S DIC=691.9,DIC(0)=""EQAM"",DIC(""S"")=""I $D(^MCAR(691.9,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=691.9 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1345,"DR",99,2,9.2)="S DIC=692,DIC(0)=""EQAM"",DIC(""S"")=""I $D(^MCAR(692,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=692 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1346,0)="MCARECG1^2920114.1157^^691.5^^^^"
^DIE(1346,"DIAB",1,1,691.51,0)="ALL"
^DIE(1346,"DIAB",1,1,691.52,0)="ALL"
^DIE(1346,"DIAB",1,1,691.53,0)="ALL"
^DIE(1346,"DIAB",1,1,691.54,0)="ALL"
^DIE(1346,"DIAB",1,1,691.55,0)="ALL"
^DIE(1346,"DIAB",1,1,691.56,0)="ALL"
^DIE(1346,"DR",1,691.5)="I '$P(^(0),U,2) S DIK=""^MCAR(691.5,"" D ^DIK K DIK S Y=""@99"";.01;1;.02;18;.07;.08;.04;.05;.06;2;15;16;3;4;5;6;7;8;9;10;14;14.1;14.2;13;11;700;.03;600;12;17;@99;"
^DIE(1346,"DR",2,691.51)=".01"
^DIE(1346,"DR",2,691.52)=".01"
^DIE(1346,"DR",2,691.53)=".01:2"
^DIE(1346,"DR",2,691.54)=".01:1"
^DIE(1346,"DR",2,691.55)=".01:1"
^DIE(1346,"DR",2,691.56)=".01:1"
^DIE(1346,"DR",2,691.58)=".01;"
^DIE(1347,0)="MCARHOLTFM^2920114.1201^^691.6^^^^"
^DIE(1347,"DIAB",1,1,691.61,0)="ALL"
^DIE(1347,"DIAB",1,1,691.65,0)="ALL"
^DIE(1347,"DIAB",1,1,691.66,0)="ALL"
^DIE(1347,"DIAB",1,1,691.67,0)="ALL"
^DIE(1347,"DR",1,691.6)="I '$P(^(0),U,2) S DIK=""^MCAR(691.6,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;4;5;5.5;5.8;6;7;.04;.05;2;3;16;17;18;8;10;11:15;19:33;35;36:46;48;49:61;64:65;62;700;63;.03;600;@99;"
^DIE(1347,"DR",2,691.61)=".01:2"
^DIE(1347,"DR",2,691.62)=".01"
^DIE(1347,"DR",2,691.65)=".01"
^DIE(1347,"DR",2,691.66)=".01"
^DIE(1347,"DR",2,691.67)=".01"
^DIE(1347,"DR",2,691.69)=".01;"
^DIE(1348,0)="MCARECHO1^2920114.1153^^691^^^2960604^"
^DIE(1348,"DIAB",1,1,691.01,0)="ALL"
^DIE(1348,"DIAB",1,1,691.08,0)="ALL"
^DIE(1348,"DIAB",1,1,691.09,0)="ALL"
^DIE(1348,"DIAB",1,1,691.15,0)="ALL"
^DIE(1348,"DR",1,691)="I '$P(^(0),U,2) S DIK=""^MCAR(691,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;40;1.1;1.2;I $D(^MCAR(691,DA,13)),$P(^(13),U,3)="""" W !,""HEIGHT AND/OR WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=.04;"
^DIE(1348,"DR",1,691,1)="I '$D(^MCAR(691,DA,13)) W !,""HEIGHT AND WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=.04;2;.04;.05;8;3:7;11:18;20:31;32.1:32.2;33;34:34.6;34.8:35.2;35.4:35.6;35.7:35.9;36.1:36.2;36.4;36.5;41;42;37;37.5;700;38;.03;600;39;43;"
^DIE(1348,"DR",1,691,2)="@99;"
^DIE(1348,"DR",2,691.01)=".01:2"
^DIE(1348,"DR",2,691.04)=".01;1;"
^DIE(1348,"DR",2,691.05)=".01:1"
^DIE(1348,"DR",2,691.06)=".01;"
^DIE(1348,"DR",2,691.08)=".01"
^DIE(1348,"DR",2,691.09)=".01"
^DIE(1348,"DR",2,691.15)=".01"
^DIE(1348,"DR",2,691.19)=".01;"
^DIE(1349,0)="MCARTR1^2920114.1203^^691.7^^^^"
^DIE(1349,"DIAB",1,1,691.701,0)="ALL"
^DIE(1349,"DIAB",1,1,691.702,0)="ALL"
^DIE(1349,"DIAB",1,1,691.703,0)="ALL"
^DIE(1349,"DIAB",1,1,691.71,0)="ALL"
^DIE(1349,"DIAB",1,1,691.74,0)="ALL"
^DIE(1349,"DR",1,691.7)="Q;I '$P(^(0),U,2) S DIK=""^MCAR(691.7,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;Q;69;2;3;.04;.05;4;4.5;5;6;6.1;7;8:11;13:15;17:21.5;23:27;29:34;39:40;44:45;47;49;50:54;55;700;56;70;.03;600;57;58;@99;"
^DIE(1349,"DR",2,691.701)=".01"
^DIE(1349,"DR",2,691.702)=".01"
^DIE(1349,"DR",2,691.703)=".01"
^DIE(1349,"DR",2,691.704)=".01;"
^DIE(1349,"DR",2,691.71)=".01:2"
^DIE(1349,"DR",2,691.74)=".01:1"
^DIE(1349,"DR",2,691.75)=".01"
^DIE(1350,0)="MCARCATH1^2920114.1155^^691.1^^^^"
^DIE(1350,"DIAB",1,1,691.43,0)="ALL"
^DIE(1350,"DIAB",1,1,691.44,0)="ALL"
^DIE(1350,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;5;1.1;1.2;I $P(^MCAR(691.1,DA,0),U,9)="""" W !,""HEIGHT AND/OR WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=3;1.3;3;.04;.05;4;7:61;700;.03;600;62;63;64;65;"
^DIE(1350,"DR",1,691.1,1)="@99;"
^DIE(1350,"DR",2,691.12)=".01"
^DIE(1350,"DR",2,691.13)=".01"
^DIE(1350,"DR",2,691.14)=".01"
^DIE(1350,"DR",2,691.16)=".01:2"
^DIE(1350,"DR",2,691.17)=".01"
^DIE(1350,"DR",2,691.18)=".01"
^DIE(1350,"DR",2,691.2)=".01"
^DIE(1350,"DR",2,691.21)=".01"
^DIE(1350,"DR",2,691.22)=".01:1"
^DIE(1350,"DR",2,691.23)=".01:1"
^DIE(1350,"DR",2,691.24)=".01:1"
^DIE(1350,"DR",2,691.25)=".01"
^DIE(1350,"DR",2,691.26)=".01:35;38;40;42:45;47:55"
^DIE(1350,"DR",2,691.27)=".01:2"
^DIE(1350,"DR",2,691.28)=".01:1"
^DIE(1350,"DR",2,691.29)=".01:1"
^DIE(1350,"DR",2,691.3)=".01:2"
^DIE(1350,"DR",2,691.31)=".01:1"
^DIE(1350,"DR",2,691.32)=".01:2"
^DIE(1350,"DR",2,691.33)=".01:1"
^DIE(1350,"DR",2,691.34)=".01"
^DIE(1350,"DR",2,691.35)=".01:2"
^DIE(1350,"DR",2,691.36)=".01:6"
^DIE(1350,"DR",2,691.39)=".01:1"
^DIE(1350,"DR",2,691.4)=".01"
^DIE(1350,"DR",2,691.41)=".01"
^DIE(1350,"DR",2,691.42)=".01"
^DIE(1350,"DR",2,691.43)=".01"
^DIE(1350,"DR",2,691.44)=".01"
^DIE(1350,"DR",2,691.46)=".01;"
^DIE(1350,"DR",3,691.37)=".01:1"
^DIE(1350,"DR",3,691.45)=".01"
^DIE(1350,"DR",4,691.38)=".01"
^DIE(1351,0)="MCARGIEDITNON^2920114.1257^^699^^^^"
^DIE(1351,"DIAB",1,1,699.59,0)="ALL"
^DIE(1351,"DR",1,699)="6;3;31;202;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";700;600;@1;"
^DIE(1351,"DR",2,699.03)=".01;"
^DIE(1351,"DR",2,699.59)=".01"
^DIE(1352,0)="MCARHEMEDIT^2920114.1226^^694^^^^"
^DIE(1352,"DIAB",1,0,694,2)="47;""LENGTH OF PIECE 3"";REQ"
^DIE(1352,"DIAB",1,0,694,3)="37;""Part of specimen fixed and submitted for processing in plastic (Y/N) ?"""
^DIE(1352,"DIAB",1,1,694.035,0)="ALL"
^DIE(1352,"DIAB",1,1,694.038,0)="ALL"
^DIE(1352,"DIAB",1,1,694.055,0)="ALL"
^DIE(1352,"DIAB",1,1,694.057,0)="ALL"
^DIE(1352,"DIAB",3,0,694,2)="48;""LENGTH OF PIECE 4"";REQ"
^DIE(1352,"DIAB",4,0,694,1)="45;""LENGTH OF PIECE 1"";REQ"
^DIE(1352,"DIAB",5,0,694,2)="49;""LENGTH OF PIECE 5"";REQ"
^DIE(1352,"DIAB",6,0,694,1)="46;""LENGTH OF PIECE 2"";REQ"
^DIE(1352,"DIAB",10,0,694,2)="36;""Specimen submitted for decalcification (Y/N) ?"""
^DIE(1352,"DR",1,694)="I '$P(^(0),U,2) S DIK=""^MCAR(694,"" D ^DIK K DIK S Y=""@99"";.01;1;2;S MCARGNAM=$P(^MCAR(697.2,+X,0),U);S MCARGNUM=X;2.5;3;50;34;51;52;5;57;58;38;6.5;56;I MCARGNAM=""BMA"" S Y=""@7"";W !!,""GROSS DESCRIPTION..."";44;S MCARNP=X;"
^DIE(1352,"DR",1,694,1)="I X="""" S $P(^MCAR(694,D0,6),U,2)="""" F MCARI=4:1:8 S $P(^MCAR(694,D0,6),U,MCARI)="""";I X="""" S Y=""@10"";W !!,""Enter mm length of piece(s)..."",!!;45R~LENGTH OF PIECE 1~;I MCARNP=1 S Y=""@9"";46R~LENGTH OF PIECE 2~;I MCARNP=2 S Y=""@9"";"
^DIE(1352,"DR",1,694,2)="47R~LENGTH OF PIECE 3~;I MCARNP=3 S Y=""@9"";48R~LENGTH OF PIECE 4~;I MCARNP=4 S Y=""@9"";49R~LENGTH OF PIECE 5~;@9;43;@10;4.1;36Specimen submitted for decalcification (Y/N) ?~;"
^DIE(1352,"DR",1,694,3)="37Part of specimen fixed and submitted for processing in plastic (Y/N) ?~;@7;8;I '$D(^MCAR(694,D0,1)) S Y=""@8"";I $P(^MCAR(694,D0,1),U,3)=""N""!($P(^MCAR(694,D0,1),U,3)="""") S $P(^(1),U,7)="""",Y=""@8"";8.1;@8;9;9.5;10;"
^DIE(1352,"DR",1,694,4)="I '$D(^MCAR(694,D0,1)) S Y=""@12"";I $P(^MCAR(694,D0,1),U,5)=""N""!($P(^MCAR(694,D0,1),U,5)="""") S $P(^(1),U,8)="""",Y=""@12"";10.1;@12;12;I X=""N""!(X=""@"") K ^MCAR(694,D0,4) S Y=""@50"";7;I X=""""!(X=""@"") K ^MCAR(694,D0,4) S Y=""@50"";13;14;15;16;"
^DIE(1352,"DR",1,694,5)="17;18;19;20;21;22;23;24;25;26;27;28;29;@30;31;I X="""" S $P(^MCAR(694,D0,4),U,9)="""",Y=""@40"";30;I X="""" S Y=""@30"";@40;S MCARTOT=0 F IJ=1:1:9,11,12,14:1:20 S MCARTOT=MCARTOT+$P(^MCAR(694,D0,4),U,IJ);"
^DIE(1352,"DR",1,694,6)="I MCARTOT'=100,(MCARTOT'=200) W !!!,""Differential adds up to "",MCARTOT,!!,*7;I $D(^MCAR(694,D0,4))&(($P(^MCAR(694,D0,6),U)="""")!($P(^MCAR(694,D0,6),U)=""N"")) S Y=12;@50;40;54;@51;55;35;700;41;1.5;600;@99;"
^DIE(1352,"DR",2,694.01)=".01;"
^DIE(1352,"DR",2,694.02)=".01;"
^DIE(1352,"DR",2,694.035)=".01"
^DIE(1352,"DR",2,694.038)=".01"
^DIE(1352,"DR",2,694.055)=".01"
^DIE(1352,"DR",2,694.057)=".01"
^DIE(1353,0)="MCARGIED^2890404^^690^^^2960313^"
^DIE(1353,"DIAB",6,0,690,0)="NAME:"
^DIE(1353,"DR",1,690)="I $D(MCARCODE),MCARCODE=""P"" S Y=3;1;3;4;5;^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^MCAR(690,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");6;"
^DIE(1353,"DR",2,2)="57;"
^DIE(1353,"DR",3,2.57)=".01;.02;"
^DIE(1354,0)="MCARGICONSULT^2901012.1237^^699^^^^"
^DIE(1354,"DIAB",1,0,699,0)=".01;""DATE/TIME OF CONSULTATION"""
^DIE(1354,"DIAB",3,0,699,0)="6;""CONSULTING DOCTOR"""
^DIE(1354,"DIAB",14,0,699,0)="600;""SUMMARY OF CONSULTATION"""
^DIE(1354,"DR",1,699)=".01DATE/TIME OF CONSULTATION~;.02;6CONSULTING DOCTOR~;3;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";31.5;600SUMMARY OF CONSULTATION~;@1;"
^DIE(1355,0)="MCARPULMEDIT^2910913.1229^^699^^^^"
^DIE(1355,"DIAB",1,1,699.56,0)=".01;""FINDINGS"""
^DIE(1355,"DIAB",1,2,699.13,0)="ALL"
^DIE(1355,"DIAB",1,2,699.15,0)="ALL"
^DIE(1355,"DIAB",2,1,699.38,0)="3;""DRUG DOSE ROUTE"""
^DIE(1355,"DIAB",12,0,699,0)="6;""BRONCHOSCOPIST"""
^DIE(1355,"DIAB",22,0,699,0)="RESULTS;""FINDINGS"""
^DIE(1355,"DR",1,699)="2;3;2.2;206;207;2.5;2.6;208;2.1;4;5;6BRONCHOSCOPIST~;200;201;8;9;10;11;12;202;50;28FINDINGS~;30;39;40;203;600;"
^DIE(1355,"DR",2,699.01)=".01;2;3;4;5;6;"
^DIE(1355,"DR",2,699.0206)=".01;1;"
^DIE(1355,"DR",2,699.0207)=".01;1;"
^DIE(1355,"DR",2,699.16)=".01;"
^DIE(1355,"DR",2,699.17)=".01;"
^DIE(1355,"DR",2,699.18)=".01;"
^DIE(1355,"DR",2,699.35)=".01;"
^DIE(1355,"DR",2,699.36)=".01;"
^DIE(1355,"DR",2,699.38)=".01;3DRUG DOSE ROUTE~;2;"
^DIE(1355,"DR",2,699.56)=".01FINDINGS~;"
^DIE(1355,"DR",2,699.58)=".01;1;"
^DIE(1355,"DR",2,699.73)=".01;1;2;"
^DIE(1355,"DR",2,699.74)=".01;1;"
^DIE(1355,"DR",3,699.13)=".01"
^DIE(1355,"DR",3,699.15)=".01"
^DIE(1356,0)="MCFLGEN.IMPL.^2950323.0834^^698^^^2960503^"
^DIE(1356,"DIAB",1,1,698.093,0)="ALL"
^DIE(1356,"DR",1,698)="I '$P(^(0),U,2) S DIK=""^MCAR(698,"" D ^DIK K DIK S Y=""@99"";.01;1;S MCPATNO=$P(^(0),""^"",2),MCPATNO=$P(^MCAR(690,MCPATNO,0),""^"",1),MCPATNM=$P(^DPT(MCPATNO,0),""^"",1);2;Q;4;6;S:X'=12 Y=7;6.1;7;12;Q;14;19;30;32;34;36;38;40;42;44;46;48;"
^DIE(1356,"DR",1,698,1)="50;70;75;90;93;96;99;300;301;302;500;600;601;@99;"
^DIE(1356,"DR",2,698.093)=".01:1"
^DIE(1357,0)="MCFLV-LEAD IMP^2930309.1201^^698.1^^^2960410^"
^DIE(1357,"DR",1,698.1)="I '$P(^(0),U,2) S ^DIK=""^MCAR(698.1,"" D ^DIK K DIK S Y=""@99"";.01;1;2;Q;4;11;12;13;14;15;56;57;300;301;302;500;600;601;@99;"
^DIE(1358,0)="MCFLA-LEAD IMP^2920114.1232^^698.2^^^2960410^"
^DIE(1358,"DR",1,698.2)="I '$P(^(0),U,2) S DIK=""^MCAR(698.2,"" D ^DIK K DIK S Y=""@99"";.01;1;2;Q;4;11;12;13;14;15;56;57;300;301;302;700;500;600;601;@99;"
^DIE(1358,"DR",2,698.22)=".01;"
^DIE(1359,0)="MCARPACSURV^2930309.1156^^698.3^^^2960503^"
^DIE(1359,"DR",1,698.3)=".01;2;4;6;I MCARLEAD'=""AV"" S Y=""@13"";11;12;@13;I MCARFLG S Y=""@1"";13;14;@1;15;16;I MCARFLG S Y=""@2"";50;51;I MCARLEAD'=""AV"" S Y=53;52;53;54;55;@2;I MCARLEAD'[""A"" S Y=""@3"";101;I MCARFLG S Y=106;102;103;104;105;106;107;"
^DIE(1359,"DR",1,698.3,1)="I MCARFLG S Y=""@3"";121;122;123;124;@3;I MCARLEAD'[""V"" S Y=""@4"";201;I MCARFLG S Y=206;202;203;204;205;206;207;I MCARFLG S Y=""@4"";221;222;223;224;@4;491;492;493;300;301;500;601;600;"
^DIE(1360,0)="MCARPACEDIT^2900718.1137^^690^^^2960117^"
^DIE(1360,"DIAB",1,1,690.07,0)="ALL"
^DIE(1360,"DIAB",1,1,690.08,0)="ALL"
^DIE(1360,"DR",1,690)="7;8;9;17;16;10;I X=1 S Y=""@10"";I X=4 S Y=""@14"";S Y=""@99"";@10;11;12;S Y=""@99"";@14;14;@99;13;18;S MCPATNM=$P($G(^DPT(DA,0)),""^"",1);"
^DIE(1360,"DR",2,690.07)=".01"
^DIE(1360,"DR",2,690.08)=".01:1"
^DIE(1361,0)="MCARGIEDIT^2910912.0948^^699^^^^"
^DIE(1361,"DIAB",1,1,699.17,0)="ALL"
^DIE(1361,"DIAB",1,1,699.35,0)="ALL"
^DIE(1361,"DIAB",1,1,699.36,0)="ALL"
^DIE(1361,"DIAB",1,1,699.37,0)="ALL"
^DIE(1361,"DIAB",1,1,699.56,0)="ALL"
^DIE(1361,"DIAB",1,2,699.13,0)="ALL"
^DIE(1361,"DIAB",1,2,699.15,0)="ALL"
^DIE(1361,"DR",1,699)="@1;W !!,""INDICATION(S) FOR PROCEDURE"",!!;W ""**,YOU MUST ENTER DATA IN AT LEAST ONE OF THE FOLLOWING INDICATION FIELDS**"";2.1;2.2;2.5;2.6;2.7;2.8;2.85;2.86;2.87;2.88;"
^DIE(1361,"DR",1,699,1)="I '$D(^MCAR(699,MCARGDA,2)),'$D(^(3)),'$D(^(5)),'$D(^(6)),'$D(^(7)),'$D(^(31)),'$D(^(32)) W !,*7,""You must enter an indication"" S Y=""@1"";3;4;5;6;200;201;8;9;10;11;12;I MCARGNAM=""COL"" S Y=14;I MCARGNAM=""LAP"" S Y=13;S Y=202;14;15;16;"
^DIE(1361,"DR",1,699,2)="17;S Y=202;13;202;50;I MCARGNAM'=""ERC"" S Y=24;22;23;24;28;29;30;39;40;203;600;"
^DIE(1361,"DR",2,699.01)=".01;2;3;4;5;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCSTENT)) S Y=11;@1;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCSPHIN)) S Y=14;@2;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCBOUGIE)) S Y=16;@3;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCHEATP)) S Y=17;@4;"
^DIE(1361,"DR",2,699.01,1)="I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCGTUBE)) S Y=19;@5;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCJTUBE)) S Y=20;6;S Y=""@99"";11;12;13;S Y=""@1"";14;15;S Y=""@2"";16;S Y=""@3"";17;18;S Y=""@4"";19;S Y=""@5"";20;S Y=6;@99;"
^DIE(1361,"DR",2,699.17)=".01"
^DIE(1361,"DR",2,699.18)=".01;"
^DIE(1361,"DR",2,699.35)=".01"
^DIE(1361,"DR",2,699.36)=".01"
^DIE(1361,"DR",2,699.37)=".01"
^DIE(1361,"DR",2,699.38)=".01;1;2;"
^DIE(1361,"DR",2,699.39)=".01;1;"
^DIE(1361,"DR",2,699.4)=".01;1;"
^DIE(1361,"DR",2,699.56)=".01"
^DIE(1361,"DR",2,699.58)=".01;1;"
^DIE(1361,"DR",2,699.73)=".01;1;2;"
^DIE(1361,"DR",2,699.74)=".01;1;"
^DIE(1361,"DR",3,699.13)=".01"
^DIE(1361,"DR",3,699.15)=".01"
^DIE(1362,0)="MCARECGA^2901128.0947^^691.5^^^^"
^DIE(1362,"DIAB",1,1,691.51,0)="ALL"
^DIE(1362,"DIAB",1,1,691.52,0)="ALL"
^DIE(1362,"DIAB",1,1,691.54,0)="ALL"
^DIE(1362,"DIAB",1,1,691.55,0)="ALL"
^DIE(1362,"DIAB",1,1,691.56,0)="ALL"
^DIE(1362,"DR",1,691.5)=".04;.05;13;14;14.1;14.2;.03;600;12;17;"
^DIE(1362,"DR",2,691.51)=".01"
^DIE(1362,"DR",2,691.52)=".01"
^DIE(1362,"DR",2,691.54)=".01:1"
^DIE(1362,"DR",2,691.55)=".01:1"
^DIE(1362,"DR",2,691.56)=".01:1"
^DIE(1363,0)="MCARSRAPRE^2900608.1218^^694.5^^^2960513^"
^DIE(1363,"DR",1,694.5)=".01;1;2;103;33.5;3;27;21;31;40;36;38;30;23;29;42;25;35;34;50;46;47;48;104;66;66.5;73;107;74;"
^DIE(1364,0)="MCARSRAPOST^2900611.1549^^694.5^^^^"
^DIE(1364,"DIAB",1,1,694.586,0)="ALL"
^DIE(1364,"DR",1,694.5)="76;84;77;85;78;82;79;81;80;83;105;86;90;91;93;98;94;100;95;99;96;101;97;102;"
^DIE(1364,"DR",2,694.586)=".01"
^DIE(1365,0)="MCPFTEDIT^3030213.1359^^700^^^3030213"
^DIE(1365,"DIAB",1,1,700.01,0)="ALL"
^DIE(1365,"DIAB",1,1,700.017,0)="ALL"
^DIE(1365,"DIAB",1,1,700.018,0)="ALL"
^DIE(1365,"DIAB",1,1,700.02,0)="ALL"
^DIE(1365,"DR",1,700)=".01;1;3;I $P(^MCAR(700,DA,0),U,4) S Y=4;2;4;I $P(^MCAR(700,DA,0),U,5) S Y=6;5;6;6.5;34;28///^S X=MCSEX;I '$D(MCRACE) S Y=""@1"";38;I $P($G(^MCAR(700,DA,17)),U,5)'=""Y"" S Y=""@1"";I '$D(MCMRACE) S Y=""@1"";38.5;@1;7:10;11;17;35;39;18;37;"
^DIE(1365,"DR",1,700,1)="19;20;32;"
^DIE(1365,"DR",2,700.01)=".01"
^DIE(1365,"DR",2,700.017)=".01:6"
^DIE(1365,"DR",2,700.018)=".01:4;5.5:6"
^DIE(1365,"DR",2,700.02)=".01:10"
^DIE(1365,"DR",2,700.032)=".01;I X=""S"" S Y=4;I X=""E"" S Y=14;I X=""P"" S Y=35;1:3;S Y=40;4:8;S Y=40;14;10:12.6;15:21.5;23;24;22;22.5;28:30;S Y=40;35;40;"
^DIE(1365,"DR",3,700.042)=".01"
^DIE(1365,"DR",3,700.3229)=".01"
^DIE(1366,0)="MCARHOLTA^2901128.0951^^691.6^^^^"
^DIE(1366,"DIAB",1,1,691.61,0)="ALL"
^DIE(1366,"DIAB",1,1,691.65,0)="ALL"
^DIE(1366,"DIAB",1,1,691.66,0)="ALL"
^DIE(1366,"DIAB",1,1,691.67,0)="ALL"
^DIE(1366,"DR",1,691.6)="I '$P(^(0),U,2) S DIK=""^MCAR(691.6,"" D ^DIK K DIK S Y=""@99"";.02;4;5;5.5;5.8;6;7;.04;.05;2;3;16;17;18;8;10;11:12;14:15;19;21:24;40.5;41:44;52:63;64:65;.03;600;@99;"
^DIE(1366,"DR",2,691.61)=".01:2"
^DIE(1366,"DR",2,691.62)=".01"
^DIE(1366,"DR",2,691.63)=".01"
^DIE(1366,"DR",2,691.64)=".01"
^DIE(1366,"DR",2,691.65)=".01"
^DIE(1366,"DR",2,691.66)=".01"
^DIE(1366,"DR",2,691.67)=".01"
^DIE(1367,0)="MCRHHIST^2910806.1219^^701^^^^"
^DIE(1367,"DR",1,701)=".01;2;4;14;8;12;5;10;7;3;6;9.1;35;36;37;38;39;40;42;43;44;16;17;18;45;46;47;48;49;50;27;22;610;24;30;29;25;19.1;28;21;20;19;51;52;53;11;54;55;56;57;58;31.1;32;31.5;33;31.8;350;351;352;59;60;61;"
^DIE(1368,0)="MCRHPHYS^2940707.0907^^701^^^^"
^DIE(1368,"DR",1,701)="67.5;67.7;68;70;72;71;73;74;77;78;79;82;83;84;85;86;87;89;91;92;89.1;89.2;98;94;95;96;97;103;99;93;105;106;100;88;102;112.5;101;110;104;90;114;109;112;113;111;115;116;117;118;119;120;121;122;123;124;125;126;128;129;329;130;131;134;"
^DIE(1368,"DR",1,701,1)="135;136;137;138;139;140;141;142;143;146;147;160;161;162;163;148;149;150;151;152;153;154;155;156;157;158;164;159;"
^DIE(1369,0)="MCRHHAQ^2910807.1538^^701^^^^"
^DIE(1369,"DR",1,701)="602;605;606;302;303;304;305;306;307;308;309;300;"
^DIE(1370,0)="MCRHDEATH^2910807.1542^^701^^^^"
^DIE(1370,"DR",1,701)="318;319;297;321;322;313;314;316;317;"
^DIE(1371,0)="MCRHNARR^2910103.1403^^701^^^^"
^DIE(1371,"DR",1,701)="611;"
^DIE(1372,0)="MCRHDIAG^2920114.13^^701^^^^"
^DIE(1372,"DIAB",1,1,701.0615,0)="ALL"
^DIE(1372,"DR",1,701)="615;701;601;600;"
^DIE(1372,"DR",2,701.0615)=".01:1"
^DIE(1373,0)="MCAREPEDITALL^2870123^^691.8^^^^"
^DIE(1374,0)="MCARGIEDIT1^2881212^^699^^^^"
^DIE(1374,"DIAB",1,1,699.16,0)="ALL"
^DIE(1374,"DIAB",1,1,699.17,0)="ALL"
^DIE(1374,"DIAB",1,1,699.19,0)="ALL"
^DIE(1374,"DIAB",1,1,699.35,0)="ALL"
^DIE(1374,"DIAB",1,1,699.36,0)="ALL"
^DIE(1374,"DIAB",1,1,699.37,0)="ALL"
^DIE(1374,"DR",1,699)="2;I '$D(^MCAR(699,DA,1)) S Y=3;I $D(^MCAR(699,DA,1,""B"",1)) S Y=""@11"";@1;I $D(^MCAR(699,DA,1,""B"",5)) S Y=""@12"";@2;I $D(^MCAR(699,DA,1,""B"",4)) S Y=""@13"";@3;I $D(^MCAR(699,DA,1,""B"",8)) S Y=""@14"";@4;"
^DIE(1374,"DR",1,699,1)="I $D(^MCAR(699,DA,1,""B"",6)) S Y=""@15"";@5;I $D(^MCAR(699,DA,1,""B"",7)) W !,""Enter Protocol field name or number in 'Indication Comment' field."";3;4;5;6;200;8;9;10;11;12;S Y=""@99"";@11;2.2;I $D(MCARABFL) S Y=2.4;@111;"
^DIE(1374,"DR",1,699,2)="I $D(MCARPAFL) S Y=2.3;S Y=""@1"";@12;2.7;S Y=""@2"";@13;2.5;S Y=""@3"";@15;2.6;S Y=""@5"";@14;2.1;S Y=""@4"";2.4;2.45;2.46;K MCARABFL S Y=""@111"";2.3;K MCARPAFL S Y=""@1"";@99;"
^DIE(1374,"DR",2,699.16)=".01"
^DIE(1374,"DR",2,699.17)=".01"
^DIE(1374,"DR",2,699.18)=".01;I $P(^MCAR(695.5,X,0),U)=""ABNORMAL BOWEL HABITS"" S MCARABFL="""";I $P(^MCAR(695.5,X,0),U)=""PAIN"" S MCARPAFL="""";"
^DIE(1374,"DR",2,699.19)=".01:2"
^DIE(1374,"DR",2,699.35)=".01"
^DIE(1374,"DR",2,699.36)=".01"
^DIE(1374,"DR",2,699.37)=".01"
^DIE(1374,"DR",2,699.38)=".01;1;2;"
^DIE(1375,0)="MCARGIEDIT2^2881004^^699^^^^"
^DIE(1375,"DIAB",1,1,699.56,0)="ALL"
^DIE(1375,"DIAB",1,1,699.58,0)="ALL"
^DIE(1375,"DIAB",1,1,699.73,0)="ALL"
^DIE(1375,"DIAB",1,1,699.74,0)="ALL"
^DIE(1375,"DR",1,699)="24;28;29;30;39;40;203;"
^DIE(1375,"DR",2,699.56)=".01"
^DIE(1375,"DR",2,699.58)=".01:1"
^DIE(1375,"DR",2,699.73)=".01:2"
^DIE(1375,"DR",2,699.74)=".01:1"
^DIE(1376,0)="MCARCATHBRIEF^2890616.1239^^691.1^^^^"
^DIE(1376,"DIAB",1,1,691.39,0)="ALL"
^DIE(1376,"DR",1,691.1)="Q;.01;1;26///BASELINE;53;50;33;35;28;40;"
^DIE(1376,"DR",2,691.26)=".01///BASELINE;21;27;3;20;8;39;I X'="""" S Y=10;41;I X'="""" S Y=10;36;10;"
^DIE(1376,"DR",2,691.27)=".01;1;"
^DIE(1376,"DR",2,691.29)=".01;"
^DIE(1376,"DR",2,691.3)=".01;1;"
^DIE(1376,"DR",2,691.32)=".01;1;"
^DIE(1376,"DR",2,691.39)=".01:1"
^DIE(1377,0)="MCRHBACKINFO^2900826.2137^^701^^^^"
^DIE(1377,"DIAB",2,0,701,0)="1:"
^DIE(1377,"DR",1,701)=".01;^2^DPT(^^S I(0,0)=D0 S Y(1)=$S($D(^MCAR(701,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1377,"DR",2,2)=".01;.111;.112;.113;.131;.132;.03;.02;.06;.05;.04;.07;"
^DIE(1378,0)="MCCONSULT^2930309.1313^^699.5^^^2960701^"
^DIE(1378,"DIAB",1,0,699.5,0)=".01;""DATE/TIME OF CONSULTATION"""
^DIE(1378,"DIAB",14,0,699.5,0)="600;""SUMMARY OF CONSULTATION"""
^DIE(1378,"DR",1,699.5)=".01DATE/TIME OF CONSULTATION~;.02;6;3;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";31.5;600SUMMARY OF CONSULTATION~;@1;"
^DIE(1379,0)="MCGENERIC^2920131.1526^^699.5^^^^"
^DIE(1379,"DIAB",1,1,699.51,0)="ALL"
^DIE(1379,"DIAB",1,1,699.53,0)="ALL"
^DIE(1379,"DIAB",1,1,699.62,0)="ALL"
^DIE(1379,"DR",1,699.5)=".01;1;5;6;7;30;34;700;35;601;600;"
^DIE(1379,"DR",2,699.51)=".01"
^DIE(1379,"DR",2,699.53)=".01"
^DIE(1379,"DR",2,699.54)=".01;"
^DIE(1379,"DR",2,699.62)=".01"
^DIE(1380,0)="MCPFTBRIEF^2930208.1151^^700^^^^"
^DIE(1380,"DR",1,700)=".01;.03;1;17;18;20;21;33;33.5;600;"
^DIE(1380,"DR",2,700.017)=".01;1;"
^DIE(1380,"DR",2,700.018)=".01;1;2;5.5;"
^DIE(1380,"DR",2,700.02)=".01;2;3;4;"
^DIE(1380,"DR",2,700.021)=".01;"
^DIE(1380,"DR",2,700.033)=".01;"
^DIE(1381,0)="MCARCATHB^2920820.0939^^691.1^^^^"
^DIE(1381,"DIAB",1,1,691.46,0)="ALL"
^DIE(1381,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;1;8;13;26;28;33;35;40;48;53;58;60;61;.03;600;700;63;@99;"
^DIE(1381,"DR",2,691.13)=".01;"
^DIE(1381,"DR",2,691.18)=".01;"
^DIE(1381,"DR",2,691.26)=".01;3;8:9;14;20;"
^DIE(1381,"DR",2,691.27)=".01:1;"
^DIE(1381,"DR",2,691.29)=".01;"
^DIE(1381,"DR",2,691.3)=".01:1;"
^DIE(1381,"DR",2,691.32)=".01:1;"
^DIE(1381,"DR",2,691.36)=".01:2;"
^DIE(1381,"DR",2,691.4)=".01;"
^DIE(1381,"DR",2,691.46)=".01:.02"
^DIE(1382,0)="MCARECGB^2920820.0939^^691.5^^^^"
^DIE(1382,"DIAB",1,1,691.58,0)="ALL"
^DIE(1382,"DR",1,691.5)="I '$P(^(0),U,2) S DIK=""^MCAR(691.5,"" D ^DIK K DIK S Y=""@99"";.01;1;3:6;13;20;.03;700;600;12;@99;"
^DIE(1382,"DR",2,691.58)=".01:.02"
^DIE(1383,0)="MCARECHOB^2920820.0938^^691^^^^"
^DIE(1383,"DIAB",1,1,691.02005,0)="ALL"
^DIE(1383,"DIAB",1,1,691.15,0)="ALL"
^DIE(1383,"DIAB",1,1,691.19,0)="ALL"
^DIE(1383,"DR",1,691)="I '$P(^(0),U,2) S DIK=""^MCAR(691,"" D ^DIK K DIK S Y=""@99"";.01;1;11:12;17:18;33;37;37.5;38;.03;700;600;39;2005;@99;"
^DIE(1383,"DR",2,691.02005)=".01"
^DIE(1383,"DR",2,691.04)=".01;1;"
^DIE(1383,"DR",2,691.06)=".01;"
^DIE(1383,"DR",2,691.15)=".01"
^DIE(1383,"DR",2,691.19)=".01:.02"
^DIE(1384,0)="MCAREPBRIEF^2920820.0937^^691.8^^^^"
^DIE(1384,"DIAB",1,1,691.806,0)="ALL"
^DIE(1384,"DR",1,691.8)="I '$P(^(0),U,2) S DIK=""^MCAR(691.8,"" D ^DIK K DIK S Y=""@99"";.01;1;4;13;14;16;17;600;700;@99;"
^DIE(1384,"DR",2,691.806)=".01:.02"
^DIE(1385,0)="MCARHOLTFMBRIEF^2940512.0923^^691.6^^^^"
^DIE(1385,"DIAB",1,1,691.65,0)="ALL"
^DIE(1385,"DR",1,691.6)="I '$P(^(0),U,2) S DIK=""^MCAR(691.6,"" D ^DIK K DIK S Y=""@99"";.01;1;5.5;5.8;14;28;35;39;40;42;43;48;57;61;64;65;62;.03;600;@99;"
^DIE(1385,"DR",2,691.65)=".01"
^DIE(1386,0)="MCARTRB^2920820.0928^^691.7^^^^"
^DIE(1386,"DIAB",1,1,691.704,0)="ALL"
^DIE(1386,"DR",1,691.7)="Q;I '$P(^(0),U,2) S DIK=""^MCAR(691.7,"" D ^DIK K DIK S Y=""@99"";.01;1;Q;3;7;29;32;33:34;39;44:45;50:51;53.5;.03;700;600;57;58;@99;"
^DIE(1386,"DR",2,691.704)=".01:.02"
^DIE(1387,0)="MCCONSULTBRIEF^2920820.0927^^699.5^^^^"
^DIE(1387,"DIAB",1,0,699.5,0)=".01;""DATE/TIME OF CONSULTATION"""
^DIE(1387,"DR",1,699.5)=".01DATE/TIME OF CONSULTATION~;.02;2;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";@1;"
^DIE(1388,0)="MCARGIBRIEF^2920820.0926^^699^^^^"
^DIE(1388,"DIAB",1,1,699.03,0)="ALL"
^DIE(1388,"DIAB",1,1,699.17,0)="ALL"
^DIE(1388,"DR",1,699)="@1;.01;.02;2.1;2.2;2.5;2.6;2.7;2.8;2.85;2.86;2.87;2.88;3;6;200;I MCARGNAM'=""COL"" S Y=@31;15;@31;I MCARGNAM'=""LAP"" S Y=@32;13;@32;202;50;I MCARGNAM'=""ERC"" S Y=@33;22;23;@33;24;28;30;39;37;38;204;41;2005;700;600;"
^DIE(1388,"DR",2,699.01)=".01;2;3;4;5;6;"
^DIE(1388,"DR",2,699.02005)=".01;"
^DIE(1388,"DR",2,699.03)=".01:.02"
^DIE(1388,"DR",2,699.17)=".01"
^DIE(1388,"DR",2,699.18)=".01;"
^DIE(1388,"DR",2,699.35)=".01;"
^DIE(1388,"DR",2,699.36)=".01;"
^DIE(1388,"DR",2,699.37)=".01;"
^DIE(1388,"DR",2,699.39)=".01;"
^DIE(1388,"DR",2,699.56)=".01;"
^DIE(1388,"DR",2,699.58)=".01;1;"
^DIE(1388,"DR",2,699.73)=".01;1;"
^DIE(1388,"DR",2,699.75)=".01;"
^DIE(1388,"DR",3,699.13)=".01;"
^DIE(1388,"DR",3,699.15)=".01;"
^DIE(1389,0)="MCARGIBRIEFNON^2920820.0925^^699^^^^"
^DIE(1389,"DIAB",1,1,699.03,0)="ALL"
^DIE(1389,"DIAB",1,1,699.59,0)="ALL"
^DIE(1389,"DR",1,699)=".01;.02;6;31;202;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";700;600;2005;@1;"
^DIE(1389,"DR",2,699.02005)=".01;"
^DIE(1389,"DR",2,699.03)=".01:.02"
^DIE(1389,"DR",2,699.59)=".01"
^DIE(1390,0)="MCARPULMBRIEF^2920820.0925^^699^^^^"
^DIE(1390,"DIAB",1,1,699.03,0)="ALL"
^DIE(1390,"DIAB",10,0,699,0)="6;""BRONCHOSCOPIST"""
^DIE(1390,"DR",1,699)=".01;.02;2.2;206;207;2.5;2.6;208;2.1;6BRONCHOSCOPIST~;202;700;600;2005;"
^DIE(1390,"DR",2,699.02005)=".01;"
^DIE(1390,"DR",2,699.0206)=".01;"
^DIE(1390,"DR",2,699.0207)=".01;"
^DIE(1390,"DR",2,699.03)=".01:.02"
^DIE(1390,"DR",2,699.17)=".01;"
^DIE(1390,"DR",2,699.18)=".01;"
^DIE(1390,"DR",2,699.35)=".01;"
^DIE(1390,"DR",2,699.36)=".01;"
^DIE(1391,0)="MCARHEMBRIEF^2920820.0924^^694^^^^"
^DIE(1391,"DIAB",1,1,694.02,0)="ALL"
^DIE(1391,"DR",1,694)="I '$P(^(0),U,2) S DIK=""^MCAR(694,"" D ^DIK K DIK S Y=""@99"";.01;1;2;S MCARGNAM=$P(^MCAR(697.2,+X,0),U);S MCARGNUM=X,MCFILE=694,MCARGDA=DA D ORDER^MCARGES;57;38;8;9.5;10;35;1.5;700;600;2005;@99;"
^DIE(1391,"DR",2,694.02)=".01:.02"
^DIE(1391,"DR",2,694.02005)=".01;"
^DIE(1391,"DR",2,694.035)=".01;"
^DIE(1391,"DR",2,694.038)=".01;"
^DIE(1391,"DR",2,694.057)=".01;"
^DIE(1392,0)="MCBLGEN.IMPL.^2950323.0833^^698^^^^"
^DIE(1392,"DIAB",1,1,698.093,0)="ALL"
^DIE(1392,"DR",1,698)="I '$P(^(0),U,2) S DIK=""^MCAR(698,"" D ^DIK K DIK S Y=""@99"";.01;1;2;4;6;S:X'=12 Y=19;6.1;19;42;90;93;99;600;601;@99;"
^DIE(1392,"DR",2,698.093)=".01:1"
^DIE(1393,0)="MCBLA-LEAD IMP^2930309.0944^^698.2^^^^"
^DIE(1393,"DR",1,698.2)="I '$P(^(0),U,2) S DIK=""^MCAR(698.2,"" D ^DIK K DIK S Y=""@99"";.01;1;2;Q;4;11;12;13;14;56;57;500;600;601;@99;"
^DIE(1394,0)="MCBLV-LEAD IMP^2930310.1522^^698.1^^^2960315^"
^DIE(1394,"DR",1,698.1)="I '$P(^(0),U,2) S ^DIK=""^MCAR(698.1,"" D ^DIK K DIK S Y=""@99"";.01;1;2;Q;4;11;12;13;14;56;57;500;600;601;@99;"
^DIE(1395,0)="MCARPACSURVBRIEF^2930309.1159^^698.3^^^^"
^DIE(1395,"DR",1,698.3)=".01;1;4;6;I MCARLEAD'=""AV"" S Y=""@13"";11;12;@13;15;16;I MCARFLG S Y=""@2"";50;51;I MCARLEAD'=""AV"" S Y=53;52;53;54;55;@2;I MCARLEAD'[""A"" S Y=""@3"";101;I MCARFLG S Y=106;102;106;107;I MCARFLG S Y=""@3"";121;122;123;124;@3;"
^DIE(1395,"DR",1,698.3,1)="I MCARLEAD'[""V"" S Y=""@4"";201;I MCARFLG S Y=206;202;206;207;I MCARFLG S Y=""@4"";221;222;223;224;@4;600;601;"
^DIE(1396,0)="MCGENERICBRIEF^2940613.1059^^699.5^^^^"
^DIE(1396,"DIAB",1,0,699.5,0)=".01;""DATE/TIME OF CONSULTATION"""
^DIE(1396,"DR",1,699.5)=".01DATE/TIME OF CONSULTATION~;.02;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";@1;"
^DIE(1397,0)="MCRHBRIEF^2930309.1329^^701^^^^"
^DIE(1397,"DIAB",1,1,701.02005,0)="ALL"
^DIE(1397,"DIAB",1,1,701.0615,0)="ALL"
^DIE(1397,"DR",1,701)=".01;1;118;119;120;121;122;123;124;125;126;297;299;300;301;329;615;601;600;2005;"
^DIE(1397,"DR",2,701.02005)=".01"
^DIE(1397,"DR",2,701.0615)=".01:1"
^DIE(1398,0)="MCRHBRLINE^2930309.1331^^701^^^^"
^DIE(1398,"DIAB",1,1,701.0201,0)="ALL"
^DIE(1398,"DR",1,701)=".01;1;62;63;64;65;66;118;119;128;129;329;67.5;70;71;72;74;82;83;84;89;89.2;98;94;95;96;103;99;100;88;102;110;90;112;113;111;130;131;132;133;134;135;136;137;138;139;140;141;142;143;146;147;160;161;162;163;148;149;150;151;152;153;"
^DIE(1398,"DR",1,701,1)="154;155;156;157;158;159;201;615;600;601;2005;"
^DIE(1398,"DR",2,701.02005)=".01;"
^DIE(1398,"DR",2,701.0201)=".01:2"
^DIE(1398,"DR",2,701.0615)=".01;1;"
^DIE(1399,0)="MCPFTEDITNEW^3030213.1401^^700^^^3030213"
^DIE(1399,"DIAB",1,1,700.01,0)="ALL"
^DIE(1399,"DIAB",1,1,700.017,0)="ALL"
^DIE(1399,"DIAB",1,1,700.018,0)="ALL"
^DIE(1399,"DIAB",1,1,700.02,0)="ALL"
^DIE(1399,"DR",1,700)=".01;1;3;I $P(^MCAR(700,DA,0),U,4) S Y=4;2;4;I $P(^MCAR(700,DA,0),U,5) S Y=6;5;6;6.5;34;28///^S X=MCSEX;I '$D(MCRACE) S Y=""@1"";38;I $P($G(^MCAR(700,DA,17)),U,5)'=""Y"" S Y=""@1"";I '$D(MCMRACE) S Y=""@1"";38.5;@1;7:10;11;17;35;39;18;37;"
^DIE(1399,"DR",1,700,1)="19;20;32;"
^DIE(1399,"DR",2,700.01)=".01"
^DIE(1399,"DR",2,700.017)=".01:6"
^DIE(1399,"DR",2,700.018)=".01:4;5.5:6"
^DIE(1399,"DR",2,700.02)=".01:10"
^DIE(1399,"DR",2,700.032)=".01;21;16;18;18.2;18.4;16.5;22.5;14;10;19;11;12.3;29;"
^DIE(1399,"DR",3,700.3229)=".01;"
^DIE(1400,0)="MCFLEP^2940608.1342^^691.8^^^^"
^DIE(1400,"DIAB",1,0,691.8,1)="ATRIAL STUDY:"
^DIE(1400,"DIAB",1,1,691.801,0)="ALL"
^DIE(1400,"DIAB",1,1,691.802,0)="ALL"
^DIE(1400,"DIAB",1,1,691.803,0)="ALL"
^DIE(1400,"DIAB",1,1,691.804,0)="ALL"
^DIE(1400,"DIAB",1,1,691.805,0)="ALL"
^DIE(1400,"DIAB",1,1,691.811,0)="ALL"
^DIE(1400,"DIAB",1,1,691.812,0)="ALL"
^DIE(1400,"DIAB",1,1,691.815,0)="ALL"
^DIE(1400,"DIAB",3,0,691.8,2)="VENTRICULAR STUDY:"
^DIE(1400,"DR",1,691.8)="S MCCONT=1;I '$P(^(0),U,2) S DIK=""^MCAR(691.8,"" D ^DIK K DIK S Y=""@99"";.01;1;.02;18;3;4;.04;.05;.9;5;6;7;8;9;10;11;12;@1;S MCARFIND="""",DLAYGO=691.9;W !,""..ATRIAL STUDY.."",!;"
^DIE(1400,"DR",1,691.8,1)="^691.9^MCAR(691.9,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@99"";I MCARFIND'="""" S Y=""@1"";@2;"
^DIE(1400,"DR",1,691.8,2)="S MCARFIND="""",DLAYGO=692;W !,""...VENTRICULAR STUDY..."";^692^MCAR(692,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,2,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@99"";"
^DIE(1400,"DR",1,691.8,3)="I MCARFIND'="""" S Y=""@2"";K MCARFIND,DLAYGO;13;14;15;16;17;19;20;.03;600;@99;K MCCONT;"
^DIE(1400,"DR",2,691.801)=".01"
^DIE(1400,"DR",2,691.802)=".01"
^DIE(1400,"DR",2,691.803)=".01:2"
^DIE(1400,"DR",2,691.804)=".01:4"
^DIE(1400,"DR",2,691.805)=".01"
^DIE(1400,"DR",2,691.811)=".01:1"
^DIE(1400,"DR",2,691.812)=".01"
^DIE(1400,"DR",2,691.815)=".01"
^DIE(1400,"DR",2,691.9)="S MCCONT=0;.01;S MCARFIND=X;S $P(^MCAR(691.9,D0,0),U,2)=I(0,0),^MCAR(691.9,""C"",I(0,0),D0)="""";1:17.2;18:24;S MCCONT=1;"
^DIE(1400,"DR",2,692)="S MCCONT=0;.01;S MCARFIND=X;S $P(^MCAR(692,D0,0),U,2)=I(0,0),^MCAR(692,""C"",I(0,0),D0)="""";.9:21;S MCCONT=1;"
^DIE(1400,"DR",3,691.911)=".01:9"
^DIE(1400,"DR",3,691.921)=".01:10"
^DIE(1400,"DR",3,691.922)=".01:1"
^DIE(1400,"DR",3,691.923)=".01"
^DIE(1400,"DR",3,691.93)=".01:7;9"
^DIE(1400,"DR",3,692.01)=".01"
^DIE(1400,"DR",3,692.019)=".01:1"
^DIE(1400,"DR",3,692.02)=".01:7;9"
^DIE(1400,"DR",3,692.07)=".01:6"
^DIE(1400,"DR",4,691.9212)=".01"
^DIE(1400,"DR",4,691.931)=".01"
^DIE(1400,"DR",4,692.21)=".01"
^DIE(1400,"DR",99,1,9.2)="S DIC=691.9,DIC(0)=""EQLWAM"",DIC(""S"")=""I $D(^MCAR(691.9,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=691.9 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1400,"DR",99,2,9.2)="S DIC=692,DIC(0)=""EQLWAM"",DIC(""S"")=""I $D(^MCAR(692,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=692 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1401,0)="MCFLECG^2930309.1316^^691.5^^^2960311^"
^DIE(1401,"DIAB",1,1,691.51,0)="ALL"
^DIE(1401,"DIAB",1,1,691.52,0)="ALL"
^DIE(1401,"DIAB",1,1,691.53,0)="ALL"
^DIE(1401,"DIAB",1,1,691.54,0)="ALL"
^DIE(1401,"DIAB",1,1,691.55,0)="ALL"
^DIE(1401,"DIAB",1,1,691.56,0)="ALL"
^DIE(1401,"DR",1,691.5)="I '$P(^(0),U,2) S DIK=""^MCAR(691.5,"" D ^DIK K DIK S Y=""@99"";.01;1;.02;18;.07;.08;.04;.05;.06;2;15;16;3;4;5;6;7;8;9;10;14;14.1;14.2;13;11;.03;600;12;17;@99;"
^DIE(1401,"DR",2,691.51)=".01"
^DIE(1401,"DR",2,691.52)=".01"
^DIE(1401,"DR",2,691.53)=".01:2"
^DIE(1401,"DR",2,691.54)=".01:1"
^DIE(1401,"DR",2,691.55)=".01:1"
^DIE(1401,"DR",2,691.56)=".01:1"
^DIE(1402,0)="MCFLHOLTER^2930309.1326^^691.6^^^2960215^"
^DIE(1402,"DIAB",1,1,691.61,0)="ALL"
^DIE(1402,"DIAB",1,1,691.65,0)="ALL"
^DIE(1402,"DIAB",1,1,691.66,0)="ALL"
^DIE(1402,"DIAB",1,1,691.67,0)="ALL"
^DIE(1402,"DR",1,691.6)="I '$P(^(0),U,2) S DIK=""^MCAR(691.6,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;4;5;5.5;5.8;6;7;.04;.05;2;3;16;17;18;8;10;11:15;19:33;35;36:46;48;49:61;64:65;62;63;.03;600;@99;"
^DIE(1402,"DR",2,691.61)=".01:2"
^DIE(1402,"DR",2,691.62)=".01"
^DIE(1402,"DR",2,691.65)=".01"
^DIE(1402,"DR",2,691.66)=".01"
^DIE(1402,"DR",2,691.67)=".01"
^DIE(1403,0)="MCFLECHO^2960604.1058^^691^^^2960813"
^DIE(1403,"DIAB",1,1,691.01,0)="ALL"
^DIE(1403,"DIAB",1,1,691.08,0)="ALL"
^DIE(1403,"DIAB",1,1,691.09,0)="ALL"
^DIE(1403,"DIAB",1,1,691.15,0)="ALL"
^DIE(1403,"DR",1,691)="I '$P(^(0),U,2) S DIK=""^MCAR(691,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;40;1.1;1.2;I $D(^MCAR(691,DA,13)),$P(^(13),U,3)="""" W !,""HEIGHT AND/OR WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=.04;"
^DIE(1403,"DR",1,691,1)="I '$D(^MCAR(691,DA,13)) W !,""HEIGHT AND WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=.04;.04;.05;8;7.5;3:7;11:18;20;30:31;32.1:32.2;33;34:34.6;34.8:35.2;35.4:35.6;35.7:35.9;36.1:36.2;36.4;41;42;37;37.5;38;.03;600;39;43;@99;"
^DIE(1403,"DR",2,691.01)=".01:2"
^DIE(1403,"DR",2,691.04)=".01;1;"
^DIE(1403,"DR",2,691.05)=".01:1"
^DIE(1403,"DR",2,691.06)=".01;"
^DIE(1403,"DR",2,691.08)=".01"
^DIE(1403,"DR",2,691.09)=".01"
^DIE(1403,"DR",2,691.15)=".01"
^DIE(1403,"DR",2,691.48)=".01;"
^DIE(1404,0)="MCFLETT^2930309.1319^^691.7^^^2960524^"
^DIE(1404,"DIAB",1,1,691.701,0)="ALL"
^DIE(1404,"DIAB",1,1,691.702,0)="ALL"
^DIE(1404,"DIAB",1,1,691.703,0)="ALL"
^DIE(1404,"DIAB",1,1,691.71,0)="ALL"
^DIE(1404,"DIAB",1,1,691.74,0)="ALL"
^DIE(1404,"DR",1,691.7)="Q;I '$P(^(0),U,2) S DIK=""^MCAR(691.7,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;Q;69;2;3;.04;.05;4;4.5;5;6;6.1;7;8:11;13:15;17:21.5;23:27;29:34;39:40;44:45;47;49;50:54;55;56;70;.03;600;57;58;@99;"
^DIE(1404,"DR",2,691.701)=".01"
^DIE(1404,"DR",2,691.702)=".01"
^DIE(1404,"DR",2,691.703)=".01"
^DIE(1404,"DR",2,691.71)=".01:2"
^DIE(1404,"DR",2,691.74)=".01:1"
^DIE(1404,"DR",2,691.75)=".01"
^DIE(1405,0)="MCFLCATH^2970307.1308^^691.1^^^2970307"
^DIE(1405,"DIAB",1,1,691.43,0)="ALL"
^DIE(1405,"DIAB",1,1,691.44,0)="ALL"
^DIE(1405,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;5;1.1;1.2;I $P(^MCAR(691.1,DA,0),U,9)="""" W !,""HEIGHT AND/OR WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=3;1.3;3;.04;.05;4;7:49;2006:2008;50:51;52:61;.03;"
^DIE(1405,"DR",1,691.1,1)="600;62;63;64;65;@99;"
^DIE(1405,"DR",2,691.12)=".01"
^DIE(1405,"DR",2,691.13)=".01"
^DIE(1405,"DR",2,691.14)=".01"
^DIE(1405,"DR",2,691.16)=".01:2"
^DIE(1405,"DR",2,691.17)=".01"
^DIE(1405,"DR",2,691.18)=".01"
^DIE(1405,"DR",2,691.2)=".01"
^DIE(1405,"DR",2,691.21)=".01"
^DIE(1405,"DR",2,691.22)=".01:1"
^DIE(1405,"DR",2,691.23)=".01:1"
^DIE(1405,"DR",2,691.24)=".01:1"
^DIE(1405,"DR",2,691.25)=".01"
^DIE(1405,"DR",2,691.26)=".01:35;38;40;42:45;47:55"
^DIE(1405,"DR",2,691.27)=".01:2"
^DIE(1405,"DR",2,691.28)=".01:1"
^DIE(1405,"DR",2,691.29)=".01:1"
^DIE(1405,"DR",2,691.3)=".01:2"
^DIE(1405,"DR",2,691.31)=".01:1"
^DIE(1405,"DR",2,691.32)=".01:2"
^DIE(1405,"DR",2,691.33)=".01:1"
^DIE(1405,"DR",2,691.34)=".01"
^DIE(1405,"DR",2,691.35)=".01:2"
^DIE(1405,"DR",2,691.36)=".01:6"
^DIE(1405,"DR",2,691.39)=".01:1"
^DIE(1405,"DR",2,691.4)=".01"
^DIE(1405,"DR",2,691.41)=".01"
^DIE(1405,"DR",2,691.42)=".01"
^DIE(1405,"DR",2,691.43)=".01"
^DIE(1405,"DR",2,691.44)=".01"
^DIE(1405,"DR",2,691.47)=".01:1"
^DIE(1405,"DR",3,691.37)=".01:1"
^DIE(1405,"DR",3,691.45)=".01"
^DIE(1405,"DR",4,691.38)=".01"
^DIE(1406,0)="MCFLNONENDO^2930726.1511^^699^^^^"
^DIE(1406,"DIAB",1,1,699.59,0)="ALL"
^DIE(1406,"DR",1,699)=".01;6;3;31;202;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";600;@1;"
^DIE(1406,"DR",2,699.59)=".01"
^DIE(1407,0)="MCFLHEM^2940602.141^^694^^^2960722^"
^DIE(1407,"DIAB",1,0,694,2)="47;""LENGTH OF PIECE 3"";REQ"
^DIE(1407,"DIAB",1,0,694,3)="37;""Part of specimen fixed and submitted for processing in plastic (Y/N) ?"""
^DIE(1407,"DIAB",1,1,694.035,0)="ALL"
^DIE(1407,"DIAB",1,1,694.038,0)="ALL"
^DIE(1407,"DIAB",1,1,694.055,0)="ALL"
^DIE(1407,"DIAB",1,1,694.057,0)="ALL"
^DIE(1407,"DIAB",3,0,694,2)="48;""LENGTH OF PIECE 4"";REQ"
^DIE(1407,"DIAB",4,0,694,1)="45;""LENGTH OF PIECE 1"";REQ"
^DIE(1407,"DIAB",5,0,694,2)="49;""LENGTH OF PIECE 5"";REQ"
^DIE(1407,"DIAB",6,0,694,1)="46;""LENGTH OF PIECE 2"";REQ"
^DIE(1407,"DIAB",10,0,694,2)="36;""Specimen submitted for decalcification (Y/N) ?"""
^DIE(1407,"DR",1,694)="I '$P(^(0),U,2) S DIK=""^MCAR(694,"" D ^DIK K DIK S Y=""@99"";.01;1;2;S MCARGNAM=$P(^MCAR(697.2,+X,0),U);S MCARGNUM=X;2.5;3;50;34;51;52;5;57;58;38;6.5;56;I MCARGNAM=""BMA"" S Y=""@7"";W !!,""GROSS DESCRIPTION..."";44;S MCARNP=X;"
^DIE(1407,"DR",1,694,1)="I X="""" S $P(^MCAR(694,D0,6),U,2)="""" F MCARI=4:1:8 S $P(^MCAR(694,D0,6),U,MCARI)="""";I X="""" S Y=""@10"";W !!,""Enter mm length of piece(s)..."",!!;45R~LENGTH OF PIECE 1~;I MCARNP=1 S Y=""@9"";46R~LENGTH OF PIECE 2~;I MCARNP=2 S Y=""@9"";"
^DIE(1407,"DR",1,694,2)="47R~LENGTH OF PIECE 3~;I MCARNP=3 S Y=""@9"";48R~LENGTH OF PIECE 4~;I MCARNP=4 S Y=""@9"";49R~LENGTH OF PIECE 5~;@9;43;@10;4.1;36Specimen submitted for decalcification (Y/N) ?~;"
^DIE(1407,"DR",1,694,3)="37Part of specimen fixed and submitted for processing in plastic (Y/N) ?~;@7;8;I '$D(^MCAR(694,D0,1)) S Y=""@8"";I $P(^MCAR(694,D0,1),U,3)=""N""!($P(^MCAR(694,D0,1),U,3)="""") S $P(^(1),U,7)="""",Y=""@8"";8.1;@8;9;9.5;10;"
^DIE(1407,"DR",1,694,4)="I '$D(^MCAR(694,D0,1)) S Y=""@12"";I $P(^MCAR(694,D0,1),U,5)=""N""!($P(^MCAR(694,D0,1),U,5)="""") S $P(^(1),U,8)="""",Y=""@12"";10.1;@12;12;I X=""N""!(X=""@"") K ^MCAR(694,D0,4) S Y=""@50"";7;I X=""""!(X=""@"") K ^MCAR(694,D0,4) S Y=""@50"";13;14;15;16;"
^DIE(1407,"DR",1,694,5)="17;18;19;20;21;22;23;24;25;26;27;28;29;@30;31;I X="""" S $P(^MCAR(694,D0,4),U,9)="""",Y=""@40"";30;I X="""" S Y=""@30"";@40;S MCARTOT=0 F IJ=1:1:9,11,12,14:1:20 S MCARTOT=MCARTOT+$P(^MCAR(694,D0,4),U,IJ);"
^DIE(1407,"DR",1,694,6)="I MCARTOT'=100,(MCARTOT'=200) W !!!,""Differential adds up to "",MCARTOT,!!,*7;I $D(^MCAR(694,D0,4))&(($P(^MCAR(694,D0,6),U)="""")!($P(^MCAR(694,D0,6),U)=""N"")) S Y=12;@50;40;54;@51;55;35;41;1.5;600;@99;"
^DIE(1407,"DR",2,694.01)=".01;"
^DIE(1407,"DR",2,694.035)=".01"
^DIE(1407,"DR",2,694.038)=".01"
^DIE(1407,"DR",2,694.055)=".01"
^DIE(1407,"DR",2,694.057)=".01"
^DIE(1408,0)="MCFLPULM^2930728.0914^^699^^^2960617^"
^DIE(1408,"DIAB",1,1,699.05,0)="ALL"
^DIE(1408,"DIAB",1,1,699.56,0)=".01;""FINDINGS"""
^DIE(1408,"DIAB",1,2,699.13,0)="ALL"
^DIE(1408,"DIAB",1,2,699.15,0)="ALL"
^DIE(1408,"DIAB",2,1,699.38,0)="3;""DRUG DOSE ROUTE"""
^DIE(1408,"DIAB",13,0,699,0)="6;""BRONCHOSCOPIST"""
^DIE(1408,"DIAB",23,0,699,0)="RESULTS;""FINDINGS"""
^DIE(1408,"DR",1,699)=".01;2;3;2.2;206;207;2.5;2.6;208;2.1;4;5;6BRONCHOSCOPIST~;200;201;8;9;10;11;12;202;50;28FINDINGS~;30;39;40;203;600;"
^DIE(1408,"DR",2,699.01)=".01;2;3;4;5;6;"
^DIE(1408,"DR",2,699.0206)=".01;1;"
^DIE(1408,"DR",2,699.0207)=".01;1;"
^DIE(1408,"DR",2,699.05)=".01"
^DIE(1408,"DR",2,699.16)=".01;"
^DIE(1408,"DR",2,699.17)=".01;"
^DIE(1408,"DR",2,699.18)=".01;"
^DIE(1408,"DR",2,699.35)=".01;"
^DIE(1408,"DR",2,699.36)=".01;"
^DIE(1408,"DR",2,699.38)=".01;3DRUG DOSE ROUTE~;2;"
^DIE(1408,"DR",2,699.56)=".01FINDINGS~;"
^DIE(1408,"DR",2,699.58)=".01;1;"
^DIE(1408,"DR",2,699.73)=".01;1;2;"
^DIE(1408,"DR",2,699.74)=".01;1;"
^DIE(1408,"DR",3,699.13)=".01"
^DIE(1408,"DR",3,699.15)=".01"
^DIE(1409,0)="MCFLGI^2930728.0913^^699^^^2960710^"
^DIE(1409,"DIAB",1,1,699.05,0)="ALL"
^DIE(1409,"DIAB",1,1,699.17,0)="ALL"
^DIE(1409,"DIAB",1,1,699.35,0)="ALL"
^DIE(1409,"DIAB",1,1,699.36,0)="ALL"
^DIE(1409,"DIAB",1,1,699.37,0)="ALL"
^DIE(1409,"DIAB",1,1,699.56,0)="ALL"
^DIE(1409,"DIAB",1,2,699.13,0)="ALL"
^DIE(1409,"DIAB",1,2,699.15,0)="ALL"
^DIE(1409,"DR",1,699)=".01;@1;W !!,""INDICATION(S) FOR PROCEDURE"",!!;W ""**,YOU MUST ENTER DATA IN AT LEAST ONE OF THE FOLLOWING INDICATION FIELDS**"";2.1;2.2;2.5;2.6;2.7;2.8;2.85;2.86;2.87;2.88;"
^DIE(1409,"DR",1,699,1)="I '$D(^MCAR(699,MCARGDA,2)),'$D(^(3)),'$D(^(5)),'$D(^(6)),'$D(^(7)),'$D(^(31)),'$D(^(32)) W !,*7,""You must enter an indication"" S Y=""@1"";3;4;5;6;200;201;8;9;10;11;12;I MCARGNAM=""COL"" S Y=14;I MCARGNAM=""LAP"" S Y=13;S Y=202;14;15;16;"
^DIE(1409,"DR",1,699,2)="17;S Y=202;13;202;50;I MCARGNAM'=""ERC"" S Y=24;22;23;24;28;29;30;39;40;203;600;"
^DIE(1409,"DR",2,699.01)=".01;2;3;4;5;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCSTENT)) S Y=11;@1;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCSPHIN)) S Y=14;@2;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCBOUGIE)) S Y=16;@3;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCHEATP)) S Y=17;@4;"
^DIE(1409,"DR",2,699.01,1)="I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCGTUBE)) S Y=19;@5;I $D(^MCAR(699,DA(1),30,DA,2,""B"",MCJTUBE)) S Y=20;6;S Y=""@99"";11;12;13;S Y=""@1"";14;15;S Y=""@2"";16;S Y=""@3"";17;18;S Y=""@4"";19;S Y=""@5"";20;S Y=6;@99;"
^DIE(1409,"DR",2,699.05)=".01"
^DIE(1409,"DR",2,699.17)=".01"
^DIE(1409,"DR",2,699.18)=".01;"
^DIE(1409,"DR",2,699.35)=".01"
^DIE(1409,"DR",2,699.36)=".01"
^DIE(1409,"DR",2,699.37)=".01"
^DIE(1409,"DR",2,699.38)=".01;1;2;"
^DIE(1409,"DR",2,699.39)=".01;1;"
^DIE(1409,"DR",2,699.4)=".01;1;"
^DIE(1409,"DR",2,699.56)=".01"
^DIE(1409,"DR",2,699.58)=".01;1;"
^DIE(1409,"DR",2,699.73)=".01;1;2;"
^DIE(1409,"DR",2,699.74)=".01;1;"
^DIE(1409,"DR",3,699.13)=".01"
^DIE(1409,"DR",3,699.15)=".01"
^DIE(1410,0)="MCFLPFT^3030213.1357^^700^^^3030213"
^DIE(1410,"DIAB",1,1,700.01,0)="ALL"
^DIE(1410,"DIAB",1,1,700.017,0)="ALL"
^DIE(1410,"DIAB",1,1,700.018,0)="ALL"
^DIE(1410,"DIAB",1,1,700.02,0)="ALL"
^DIE(1410,"DR",1,700)=".01;1;3;I $P(^MCAR(700,DA,0),U,4) S Y=4;2;4;I $P(^MCAR(700,DA,0),U,5) S Y=6;5;6;6.5;34;28///^S X=MCSEX;I '$D(MCRACE) S Y=""@1"";38;I $P($G(^MCAR(700,DA,17)),U,5)'=""Y"" S Y=""@1"";I '$D(MCMRACE) S Y=""@1"";38.5;@1;7:10;11;17;35;39;18;37;"
^DIE(1410,"DR",1,700,1)="19;20;32;"
^DIE(1410,"DR",2,700.01)=".01"
^DIE(1410,"DR",2,700.017)=".01:6"
^DIE(1410,"DR",2,700.018)=".01:4;5.5:6"
^DIE(1410,"DR",2,700.02)=".01:10"
^DIE(1410,"DR",2,700.032)=".01;I X=""S"" S Y=4;I X=""E"" S Y=14;I X=""P"" S Y=35;1:3;S Y=40;4:8;S Y=40;14;10:12.6;15:21.5;23;24;22;22.5;28:30;S Y=40;35;40;"
^DIE(1410,"DR",3,700.042)=".01"
^DIE(1410,"DR",3,700.3229)=".01"
^DIE(1411,0)="MCFLGEN^2970515.111^^699.5^^^2970730"
^DIE(1411,"DIAB",1,1,699.501,0)="ALL"
^DIE(1411,"DIAB",1,1,699.51,0)="ALL"
^DIE(1411,"DIAB",1,1,699.53,0)="ALL"
^DIE(1411,"DR",1,699.5)=".01;.02;.05;.06;1;5;6;7;30;32;33;34;35;601;600;"
^DIE(1411,"DR",2,699.501)=".01"
^DIE(1411,"DR",2,699.51)=".01"
^DIE(1411,"DR",2,699.53)=".01"
^DIE(1412,0)="MCBLPFT^2930208.1151^^700^^^2960429^"
^DIE(1412,"DR",1,700)=".01;.03;1;17;18;20;21;33;33.5;600;"
^DIE(1412,"DR",2,700.017)=".01;1;"
^DIE(1412,"DR",2,700.018)=".01;1;2;5.5;"
^DIE(1412,"DR",2,700.02)=".01;2;3;4;"
^DIE(1412,"DR",2,700.021)=".01;"
^DIE(1412,"DR",2,700.033)=".01;"
^DIE(1413,0)="MCBLCATH^2930309.1203^^691.1^^^2960514^"
^DIE(1413,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;1;8;13;26;28;33;35;40;48;53;58;60;61;.03;600;63;@99;"
^DIE(1413,"DR",2,691.13)=".01;"
^DIE(1413,"DR",2,691.18)=".01;"
^DIE(1413,"DR",2,691.26)=".01;3;8:9;14;20;"
^DIE(1413,"DR",2,691.27)=".01:1;"
^DIE(1413,"DR",2,691.29)=".01;"
^DIE(1413,"DR",2,691.3)=".01:1;"
^DIE(1413,"DR",2,691.32)=".01:1;"
^DIE(1413,"DR",2,691.36)=".01:2;"
^DIE(1413,"DR",2,691.4)=".01;"
^DIE(1414,0)="MCBLECG^2930309.1305^^691.5^^^^"
^DIE(1414,"DR",1,691.5)="I '$P(^(0),U,2) S DIK=""^MCAR(691.5,"" D ^DIK K DIK S Y=""@99"";.01;1;3:6;13;20;.03;600;12;@99;"
^DIE(1415,0)="MCBLECHO^2930309.1307^^691^^^2960813^"
^DIE(1415,"DIAB",1,1,691.02005,0)="ALL"
^DIE(1415,"DIAB",1,1,691.15,0)="ALL"
^DIE(1415,"DR",1,691)="I '$P(^(0),U,2) S DIK=""^MCAR(691,"" D ^DIK K DIK S Y=""@99"";.01;1;11:12;17:18;33;37;37.5;38;.03;600;39;2005;@99;"
^DIE(1415,"DR",2,691.02005)=".01"
^DIE(1415,"DR",2,691.04)=".01;1;"
^DIE(1415,"DR",2,691.06)=".01;"
^DIE(1415,"DR",2,691.15)=".01"
^DIE(1416,0)="MCBLEP^2940608.1339^^691.8^^^2960618^"
^DIE(1416,"DIAB",1,0,691.8,1)="ATRIAL STUDY:"
^DIE(1416,"DIAB",2,0,691.8,2)="VENTRICULAR STUDY:"
^DIE(1416,"DIAB",2,1,692,0)=".01;""VENTRICULAR STUDY DATE/TIME"""
^DIE(1416,"DR",1,691.8)="S MCCONT=1;I '$P(^(0),U,2) S DIK=""^MCAR(691.8,"" D ^DIK K DIK S Y=""@99"";.01;1;4;13;14;16;17;600;@1;S MCARFIND="""",DLAYGO=691.9;W !,""..ATRIAL STUDY.."",!;"
^DIE(1416,"DR",1,691.8,1)="^691.9^MCAR(691.9,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,1,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@2"";I MCARFIND'="""" S Y=""@1"";@2;S MCARFIND="""",DLAYGO=692;"
^DIE(1416,"DR",1,691.8,2)="W !!,""... VENTRICULAR STUDY..."",!;^692^MCAR(692,^^S I(0,0)=$S($D(D0):D0,1:"""") X DR(99,2,9.2) S X=$S(D0>0:D0,1:""""),D(0)=X S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"""");I $D(DTOUT)!$D(DUOUT) S Y=""@99"";I 'MCCONT S Y=""@99"";"
^DIE(1416,"DR",1,691.8,3)="I MCARFIND'="""" S Y=""@2"";@99;K MCARFIND,MCCONT,DLAYGO;"
^DIE(1416,"DR",2,691.9)="S MCCONT=0;.01;S MCARFIND=X;S $P(^MCAR(691.9,D0,0),U,2)=I(0,0),^MCAR(691.9,""C"",I(0,0),D0)="""";1:17.2;18:24;S MCCONT=1;"
^DIE(1416,"DR",2,692)="S MCCONT=0;.01VENTRICULAR STUDY DATE/TIME~;S MCARFIND=X;S $P(^MCAR(692,D0,0),U,2)=I(0,0),^MCAR(692,""C"",I(0,0),D0)="""";.9:21;S MCCONT=1;"
^DIE(1416,"DR",3,691.911)=".01:9"
^DIE(1416,"DR",3,691.921)=".01:10"
^DIE(1416,"DR",3,691.922)=".01:1"
^DIE(1416,"DR",3,691.923)=".01"
^DIE(1416,"DR",3,691.93)=".01:7;9"
^DIE(1416,"DR",3,692.01)=".01"
^DIE(1416,"DR",3,692.019)=".01:1"
^DIE(1416,"DR",3,692.02)=".01:7;9"
^DIE(1416,"DR",3,692.07)=".01:6"
^DIE(1416,"DR",4,691.9212)=".01"
^DIE(1416,"DR",4,691.931)=".01"
^DIE(1416,"DR",4,692.21)=".01"
^DIE(1416,"DR",99,1,9.2)="S DIC=691.9,DIC(0)=""EQLWAM"",DIC(""S"")=""I $D(^MCAR(691.9,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=691.9 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1416,"DR",99,2,9.2)="S DIC=692,DIC(0)=""EQLWAM"",DIC(""S"")=""I $D(^MCAR(692,""""C"""",I(0,0),Y))"" D ^DIC K DIADD S D0=+Y,DIC(.5)=I(0,0),DIH=692 D DICL^DICR:$P(Y,U,3) K DIC"
^DIE(1417,0)="MCBLHOLTER^2930309.1312^^691.6^^^2960905^"
^DIE(1417,"DIAB",1,1,691.65,0)="ALL"
^DIE(1417,"DR",1,691.6)="I '$P(^(0),U,2) S DIK=""^MCAR(691.6,"" D ^DIK K DIK S Y=""@99"";.01;1;5.5;5.8;14;28;35;39;40;42;43;48;57;61;64;65;62;.03;600;@99;"
^DIE(1417,"DR",2,691.65)=".01"
^DIE(1418,0)="MCBLETT^2930309.131^^691.7^^^2960215^"
^DIE(1418,"DR",1,691.7)="Q;I '$P(^(0),U,2) S DIK=""^MCAR(691.7,"" D ^DIK K DIK S Y=""@99"";.01;1;Q;3;7;29;32;33:34;39;44:45;50:51;53.5;.03;600;57;58;@99;"
^DIE(1419,0)="MCBLGI^2930325.1322^^699^^^2960319^"
^DIE(1419,"DIAB",1,1,699.17,0)="ALL"
^DIE(1419,"DR",1,699)="@1;.01;.02;2.1;2.2;2.5;2.6;2.7;2.8;2.85;2.86;2.87;2.88;3;6;200;I MCARGNAM'=""COL"" S Y=""@31"";15;@31;I MCARGNAM'=""LAP"" S Y=""@32"";13;@32;202;50;I MCARGNAM'=""ERC"" S Y=""@33"";22;23;@33;24;28;30;39;37;38;204;41;2005;600;"
^DIE(1419,"DR",2,699.01)=".01;2;3;4;5;6;"
^DIE(1419,"DR",2,699.02005)=".01;"
^DIE(1419,"DR",2,699.17)=".01"
^DIE(1419,"DR",2,699.18)=".01;"
^DIE(1419,"DR",2,699.35)=".01;"
^DIE(1419,"DR",2,699.36)=".01;"
^DIE(1419,"DR",2,699.37)=".01;"
^DIE(1419,"DR",2,699.39)=".01;"
^DIE(1419,"DR",2,699.56)=".01;"
^DIE(1419,"DR",2,699.58)=".01;1;"
^DIE(1419,"DR",2,699.73)=".01;1;"
^DIE(1419,"DR",2,699.75)=".01;"
^DIE(1419,"DR",3,699.13)=".01;"
^DIE(1419,"DR",3,699.15)=".01;"
^DIE(1420,0)="MCBLNONENDO^2930309.08^^699^^^^"
^DIE(1420,"DIAB",1,1,699.59,0)="ALL"
^DIE(1420,"DR",1,699)=".01;.02;6;31;202;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;I X=""^"" S Y=""@1"";35;I X=""^"" S Y=""@1"";600;2005;@1;"
^DIE(1420,"DR",2,699.02005)=".01;"
^DIE(1420,"DR",2,699.59)=".01"
^DIE(1421,0)="MCBLPULM^2930309.0801^^699^^^^"
^DIE(1421,"DIAB",10,0,699,0)="6;""BRONCHOSCOPIST"""
^DIE(1421,"DR",1,699)=".01;.02;2.2;206;207;2.5;2.6;208;2.1;6BRONCHOSCOPIST~;202;600;2005;"
^DIE(1421,"DR",2,699.02005)=".01;"
^DIE(1421,"DR",2,699.0206)=".01;"
^DIE(1421,"DR",2,699.0207)=".01;"
^DIE(1421,"DR",2,699.17)=".01;"
^DIE(1421,"DR",2,699.18)=".01;"
^DIE(1421,"DR",2,699.35)=".01;"
^DIE(1421,"DR",2,699.36)=".01;"
^DIE(1422,0)="MCBLHEM^2940615.1531^^694^^^2960327^"
^DIE(1422,"DR",1,694)="I '$P(^(0),U,2) S DIK=""^MCAR(694,"" D ^DIK K DIK S Y=""@99"";.01;1;2;S MCARGNAM=$P(^MCAR(697.2,+X,0),U);S MCARGNUM=X,MCFILE=694,MCARGDA=DA;57;38;8;9.5;10;35;1.5;600;2005;@99;"
^DIE(1422,"DR",2,694.02005)=".01;"
^DIE(1422,"DR",2,694.035)=".01;"
^DIE(1422,"DR",2,694.038)=".01;"
^DIE(1422,"DR",2,694.057)=".01;"
^DIE(1423,0)="MCBLGEN^2970515.1112^^699.5^^^2970730"
^DIE(1423,"DIAB",1,0,699.5,0)=".01;""PROCEDURE DATE/TIME"""
^DIE(1423,"DR",1,699.5)=".01PROCEDURE DATE/TIME~;.02;.05;.06;32;I X=""^"" S Y=""@1"";33;I X=""^"" S Y=""@1"";34;@1;6;601;600;"
^DIE(1424,0)="MCBUILDGENERIC^2970515.1121^^697.2^^^2970723"
^DIE(1424,"AB","8^MCOPRG1",.01)="1^MCOPRG2"
^DIE(1424,"AB","^",.01)="5^MCOPRG1"
^DIE(1424,"AB","^",1)="1^MCOPRG"
^DIE(1424,"AB","^",1,"///")=""
^DIE(1424,"AB","^",1.1)="2^MCOPRG"
^DIE(1424,"AB","^",1.1,"///")=""
^DIE(1424,"AB","^",2)="3^MCOPRG"
^DIE(1424,"AB","^",2,"///")=""
^DIE(1424,"AB","^",2.1)="4^MCOPRG"
^DIE(1424,"AB","^",2.1,"///")=""
^DIE(1424,"AB","^",3)="5^MCOPRG"
^DIE(1424,"AB","^",3,"///")=""
^DIE(1424,"AB","^",4)="6^MCOPRG"
^DIE(1424,"AB","^",4,"///")=""
^DIE(1424,"AB","^",5)="7^MCOPRG"
^DIE(1424,"AB","^",5,"///")=""
^DIE(1424,"AB","^",6)="8^MCOPRG"
^DIE(1424,"AB","^",6,"///")=""
^DIE(1424,"AB","^",7)="6^MCOPRG1"
^DIE(1424,"AB","^",8)="1^MCOPRG1"
^DIE(1424,"AB","^",8,"///")=""
^DIE(1424,"AB","^",9)="2^MCOPRG1"
^DIE(1424,"AB","^",9,"///")=""
^DIE(1424,"AB","^",10)="3^MCOPRG1"
^DIE(1424,"AB","^",10,"///")=""
^DIE(1424,"AB","^",16)="4^MCOPRG1"
^DIE(1424,"AB","^",16,"///")=""
^DIE(1424,"AB","^",1000)="8^MCOPRG1"
^DIE(1424,"AB","^",1001)="7^MCOPRG1"
^DIE(1424,"DR",1,697.2)="1///MCAR(699.5;1.1///.02;2///MCFSGEN;2.1///MCBSGEN;3///GEN;4///GENERIC;5///MCARPAC;6///GENERIC;8///1;9///MCFLGEN;10///MCBLGEN;16///1;.01;7;1001;1000;"
^DIE(1424,"DR",2,697.21)=".01;"
^DIE(1424,"ROU")="^MCOPRG"
^DIE(1424,"ROUOLD")="MCOPRG"
^DIE(1425,0)="MCARBLCATH^2950519.0714^^691.1^^^^"
^DIE(1425,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;1;8;13;26;28;33;33.5;35;40;48;53;58;60;61;.03;600;63;@99;"
^DIE(1425,"DR",2,691.13)=".01;"
^DIE(1425,"DR",2,691.18)=".01;"
^DIE(1425,"DR",2,691.26)=".01;3;8:9;14;20;"
^DIE(1425,"DR",2,691.27)=".01;1;1.5;"
^DIE(1425,"DR",2,691.29)=".01;"
^DIE(1425,"DR",2,691.3)=".01;1;1.5;"
^DIE(1425,"DR",2,691.32)=".01;1;1.5;"
^DIE(1425,"DR",2,691.36)=".01:2.5;"
^DIE(1425,"DR",2,691.4)=".01;"
^DIE(1425,"DR",2,691.47)=".01;"
^DIE(1426,0)="MCARFLCATH^2970306.1513^^691.1^^^2970307"
^DIE(1426,"DIAB",1,1,691.43,0)="ALL"
^DIE(1426,"DIAB",1,1,691.44,0)="ALL"
^DIE(1426,"DR",1,691.1)="I '$P(^(0),U,2) S DIK=""^MCAR(691.1,"" D ^DIK K DIK S Y=""@99"";.01;.02;1;5;1.1;1.2;I $P(^MCAR(691.1,DA,0),U,9)="""" W !,""HEIGHT AND/OR WEIGHT MISSING--BODY SURFACE AREA NOT COMPUTED"" S Y=3;1.3;3;.04;.05;4;7:49;2006:2008;50:51;52:61;.03;"
^DIE(1426,"DR",1,691.1,1)="600;62;63;64;65;@99;"
^DIE(1426,"DR",2,691.12)=".01"
^DIE(1426,"DR",2,691.13)=".01"
^DIE(1426,"DR",2,691.14)=".01"
^DIE(1426,"DR",2,691.16)=".01:2"
^DIE(1426,"DR",2,691.17)=".01"
^DIE(1426,"DR",2,691.18)=".01"
^DIE(1426,"DR",2,691.2)=".01"
^DIE(1426,"DR",2,691.21)=".01"
^DIE(1426,"DR",2,691.22)=".01:1"
^DIE(1426,"DR",2,691.23)=".01:1"
^DIE(1426,"DR",2,691.24)=".01:1"
^DIE(1426,"DR",2,691.25)=".01"
^DIE(1426,"DR",2,691.26)=".01:35;38;40;42:45;47:55"
^DIE(1426,"DR",2,691.27)=".01:2"
^DIE(1426,"DR",2,691.28)=".01:1"
^DIE(1426,"DR",2,691.29)=".01:1"
^DIE(1426,"DR",2,691.3)=".01:2"
^DIE(1426,"DR",2,691.31)=".01:1"
^DIE(1426,"DR",2,691.32)=".01:2"
^DIE(1426,"DR",2,691.33)=".01:1"
^DIE(1426,"DR",2,691.34)=".01"
^DIE(1426,"DR",2,691.35)=".01:2"
^DIE(1426,"DR",2,691.36)=".01:6"
^DIE(1426,"DR",2,691.39)=".01:1"
^DIE(1426,"DR",2,691.4)=".01"
^DIE(1426,"DR",2,691.41)=".01"
^DIE(1426,"DR",2,691.42)=".01"
^DIE(1426,"DR",2,691.43)=".01"
^DIE(1426,"DR",2,691.44)=".01"
^DIE(1426,"DR",2,691.47)=".01:1"
^DIE(1426,"DR",3,691.37)=".01:1"
^DIE(1426,"DR",3,691.45)=".01"
^DIE(1426,"DR",4,691.38)=".01"
^DIE(1427,0)="PRCN2237^2970130.1045^^410^^^2970130"
^DIE(1427,"DIAB",8,0,410,0)="5///TODAY"
^DIE(1427,"DR",1,410)="3;1////^S X=""O"";2////^S X=PRCNTMP;53///^S X=$P(^PRCN(413,IN,0),U,2);8////^S X=$P(^PRCN(413,IN,0),U,15);49////^S X=$G(SRTGRP);Q;5///^S X=DT;6.3////^S X=$P(^PRCN(413,IN,0),U,3);7////^S X=$P(^PRCN(413,IN,0),U,13);7.5///ST;9;"
^DIE(1427,"DR",1,410,1)="15///^S X=PRC(""CP"");28.5///^S X=PRC(""BBFY"");40///^S X=$P(^PRCN(413,IN,0),U,6);15.5;Q;Q;56///^S X=60;"
^DIE(1428,0)="PRCNCMR^2960705.1103^^413^^^2960910"
^DIE(1428,"DR",1,413)="32;I $E(X,1)=""Y"" S Y=""@2"";@1;105;I '$D(^PRCN(413,DA,15)) W $C(7),""  ??  Explanation of why this request was not approved is required."" S Y=105;6////^S X=4;7////^S X=DT;S GLO=413 D MES^PRCNCMR;"
^DIE(1428,"DR",1,413,1)="W !!,""Transaction returned to Requestor"",!;S Y="""";@2;D PRIMAX^PRCNCMRP;S PRCNDEF=$S(OLDPRI>0:PRIMAX,1:PRIMAX+1);34//^S X=PRCNDEF;6////^S X=5;7////^S X=DT;D ES^PRCNUTL;I $G(FAIL)<1 K FAIL S Y="""";6////^S X=6;7////^S X=DT;"
^DIE(1428,"DR",1,413,2)="W !!,""Transaction sent to PPM for review"",!!;"
^DIE(1429,0)="PRCNTIRQ^3030625.1151^^413.1^^^3030625"
^DIE(1429,"DR",1,413.1)="S Y=$S(EDIT=0:""@1"",EDIT=2:""@3"",1:""@2"");@1;1////^S X=DUZ;1.5////^S X=$P(PRC(""PER""),U,4);2////^S X=PRCNSRV;3////^S X=PRCNDTM;15////^S X=PRCNCMR;4////^S X=PRC(""SITE"");6////^S X=1;7////^S X=DT;@2;20;"
^DIE(1429,"DR",1,413.1,1)="I $O(^PRCN(413.1,DA,1,0))="""" W !,""No Turn-In Items entered - Please Edit"" S Y="""";@9;W !!,""Is this request ready for CMR Approval"" D YN^DICN;"
^DIE(1429,"DR",1,413.1,2)="I %=0 W !!,""A 'Yes' answer moves the request to the next level, a 'No' answer maintains request at your level."" S Y=""@9"";I %'=1 S Y="""";@3;6////^S X=3;7////^S X=DT;"
^DIE(1429,"DR",2,413.11)="I X="""" S Y="""";S RI=$P(^PRCN(413.1,PRCNTDA,1,DA,0),U);D DISP^PRCNTIRQ;.01;.5;I X'=6 S Y="""";.7;I X="""" W !,$C(7),""  ? Justification for Turn-in is required!"" S Y=.7;12//NO;"
^DIE(1430,0)="PRCNTICMR^3040219.0954^^413.1^^^3040219"
^DIE(1430,"DR",1,413.1)="9;I $E(X,1)=""Y"" S Y=""@2"";D ES^PRCNUTL;I $G(FAIL)<1 K FAIL S Y="""";@1;11;I '$D(^PRCN(413.1,DA,2)) W $C(7),"" ?? An explanation of why this request was not approved is required"" W !! S Y=""@1"";6////^S X=4;7////^S X=DT;S Y="""";@2;"
^DIE(1430,"DR",1,413.1,1)="D ES^PRCNUTL;I $G(FAIL)<1 K FAIL S Y="""";6////^S X=6;7////^S X=DT;"
^DIE(1431,0)="PRCNPPM^3000517.215^^413^^^3000517"
^DIE(1431,"DIAB",1,0,413,0)="35;""Is this NX Equipment? """
^DIE(1431,"DR",1,413)="35Is this NX Equipment? ~;I $E(X,1)=""Y"" S Y=""@1"";121;I '$D(^PRCN(413,DA,31)) W $C(7),""  ??  An explanation of why this request is not NX is required."" S Y=121;34///@;6////^S X=11;7////^S X=DT;N Y S MSGN=1,NOD=31 D MES^PRCNPPM;"
^DIE(1431,"DR",1,413,1)="K LEV S Y="""";@1;6////^S X=8;7////^S X=DT;"
^DIE(1432,0)="PRCNRNK^2960705.1104^^413^^^2960910"
^DIE(1432,"DR",1,413)="D RANKMAX^PRCNRNK;S PRCNDEF=$S(+OLDRANK>0:OLDRANK,1:RANKMAX);49///^S X=PRCNDEF;49;I $P($G(^PRCN(413,DA,6)),U,3)="""" S Y="""";6////^S X=31;7////^S X=DT;"
^DIE(1433,0)="PRCNEDIT^2960823.164^^413^^^2960910"
^DIE(1433,"DR",1,413)="S Y=$S($D(NEW):""@1"",1:""@2"");@1;.01////^S X=PRCNTRN;1////^S X=DUZ;2////^S X=PRCNSRV;3////^S X=PRCNDTM;4////^S X=PRC(""SITE"");4.5////^S X=PRCNCMR;6////^S X=1;7////^S X=DT;11////^S X=$P(PRC(""PER""),U,4);@2;"
^DIE(1433,"DR",1,413,1)="I $P(^PRCN(413,D0,0),U,9)'="""" S Y=""@3"";8;S PRCNTY=X;I PRCNTY=""A"" S Y=12;I PRCNTY=""R"" S RDA=DA D ENR^PRCNTIRQ;I PRCNTY=""R"" W !,""The corresponding Turn-In Transaction # is: ""_$G(PRCNRTN);9;"
^DIE(1433,"DR",1,413,2)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,10)="""" W $C(7),"" ?? Project Number is required for Initial Requests"" S Y=9;9.1//^S X=$G(PRJMR);"
^DIE(1433,"DR",1,413,3)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,17)="""" W $C(7),"" ?  Project Manager is required when a Project number is entered!"" S Y=9.1;K PRJNM,PRJMR;@3;I '$D(PRCNTY) S PRCNTY=$P(^PRCN(413,D0,0),U,9);"
^DIE(1433,"DR",1,413,4)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,10)=""""!($P(^PRCN(413,D0,0),U,17)="""") S Y=9;12;13;14;15;S DOV=4;D CMP^PRCNREQE;I $G(QFL)=1 S Y="""" K PDD1,QFL;K PDD1,QFL;"
^DIE(1433,"DR",1,413,5)="I $G(PFL)'=1 W !!,""Must be at least one PARENT item for Replacement"" K PFL S Y=15;I $G(PRCNTXT)="""" D TXT^PRCNREQE;37////^S X=PRCNTXT;126;I '$D(^PRCN(413,D0,36)) W $C(7),!,"" ?? Justification for this request is required"" S Y=126;"
^DIE(1433,"DR",1,413,6)="16//NO;S Y=$S(X=""Y"":100,1:17);100;I '$D(^PRCN(413,D0,10)) W $C(7),"" ?? Explanation of change in personnel is required"" S Y=100;17//NO;S Y=$S(X=""Y"":101,1:18);101;"
^DIE(1433,"DR",1,413,7)="I '$D(^PRCN(413,D0,11)) W $C(7),"" ?? Explanation of the scope of deficiencies is required"" S Y=101;18;S Y=$S(X=""N"":21,X=""I"":19,1:102);19//YES;102;"
^DIE(1433,"DR",1,413,8)="I '$D(^PRCN(413,D0,12)) W $C(7),"" ?? Explanation of scope of recurring costs is required"" S Y=102;20;21//NO;S Y=$S(X=""Y"":103,1:23);103;I '$D(^PRCN(413,D0,13)) W $C(7),"" ?? Explanation of training needed is required"" S Y=103;22;23;"
^DIE(1433,"DR",1,413,9)="S Y=$S(X=""Y"":104,1:25);104;I '$D(^PRCN(413,D0,14)) W $C(7),"" ?? Explanation of why maintenance contract is recommended, is required"" S Y=104;24;25//YES;I $E(X,1,1)'=""Y"" S Y=27;D LOC^PRCNENG;26//^S X=LOC;D LOC^PRCNUTL1;"
^DIE(1433,"DR",1,413,10)="K X,LOC S DOV=9;27;28;D EN1^PRCNUTL;S Y=$S('FL:30,1:29) K FL;29;30;31;@9;S %=1 W !!,""Is this request ready for CMR approval"" D YN^DICN;"
^DIE(1433,"DR",1,413,11)="I %=0 W !!,""A 'Yes' answer moves the request to next level, a 'No' answer maintains request at your level."" S Y=""@9"";I %'=1 S Y="""";6///^S X=3;7///^S X=DT;W !!,""Request has gone to the CMR Official for review"";"
^DIE(1433,"DR",2,413.015)=".01;1;I '$D(^PRCN(413,D0,1,D1,1)) W $C(7),"" ?? Description of Line Item is required"" S Y=1;D TXT^PRCNREQE;15//^S X=VEN;D VEN^PRCNUTL;K X,VEN;3;4;S PRCNQT=$P($G(^PRCN(413,D0,1,D1,0)),U,5) S:PRCNQT="""" PRCNQT=1;5//^S X=PRCNQT;7;8;"
^DIE(1433,"DR",2,413.015,1)="I PRCNTY'=""R"" S Y="""";S TDA=$P(^PRCN(413,D0,0),U,11);I $D(^PRCN(413.1,TDA,1,""AC"",D1)) S Y=""@5"";@4;D REP^PRCNREQN;S Y="""";@5;D LINE^PRCNREQE;S Y="""";"
^DIE(1433,"DR",2,413.028)=".01;"
^DIE(1434,0)="PRCN2237E^2970130.1046^^410^^^2970218"
^DIE(1434,"DR",1,410)="3;2;8;Q;49;5;6.3;7;7.5;9;15.5;Q;Q;10;11;"
^DIE(1434,"DR",2,410.02)="1;2;3;4;"
^DIE(1435,0)="PRCNPPE^2960807.1537^^413^^^2960807"
^DIE(1435,"DR",1,413)="@2;I $P(^PRCN(413,D0,0),U,9)'="""" S Y=""@3"";8;S PRCNTY=X;I PRCNTY=""A"" S Y=12;I PRCNTY=""R"" S RDA=DA D ENR^PRCNTIRQ;I PRCNTY=""R"" W !,""The corresponding Turn-In Transaction # is: ""_$G(PRCNRTN);9;"
^DIE(1435,"DR",1,413,1)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,10)="""" W $C(7),"" ?? Project Number is required for Initial Requests"" S Y=9;9.1;"
^DIE(1435,"DR",1,413,2)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,17)="""" W $C(7),"" ?  Project Manager is required when a Project number is entered!"" S Y=9.1;@3;I '$D(PRCNTY) S PRCNTY=$P(^PRCN(413,D0,0),U,9);"
^DIE(1435,"DR",1,413,3)="I PRCNTY=""I"",$P(^PRCN(413,D0,0),U,10)=""""!($P(^PRCN(413,D0,0),U,17)="""") S Y=9;12;13;14;15;D CMP^PRCNREQE;I $G(QFL)=1 S Y="""" K PDD1,QFL;K PPD1,QFL;I $G(PRCNTXT)="""" D TXT^PRCNREQE;S DOV=4;37////^S X=PRCNTXT;126;"
^DIE(1435,"DR",1,413,4)="I '$D(^PRCN(413,D0,36)) W $C(7),!,"" ?? Justification for this request is required"" S Y=126;16//NO;S Y=$S(X=""Y"":100,1:17);100;I '$D(^PRCN(413,D0,10)) W $C(7),"" ?? Explanation of change in personnel is required"" S Y=100;17//NO;"
^DIE(1435,"DR",1,413,5)="S Y=$S(X=""Y"":101,1:18);101;I '$D(^PRCN(413,D0,11)) W $C(7),"" ?? Explanation of the scope of deficiencies is required"" S Y=101;18;S Y=$S(X=""N"":21,X=""I"":19,1:102);19//YES;102;"
^DIE(1435,"DR",1,413,6)="I '$D(^PRCN(413,D0,12)) W $C(7),"" ?? Explanation of scope of recurring costs is required"" S Y=102;20;21//NO;S Y=$S(X=""Y"":103,1:23);103;I '$D(^PRCN(413,D0,13)) W $C(7),"" ?? Explanation of training needed is required"" S Y=103;22;23;"
^DIE(1435,"DR",1,413,7)="S Y=$S(X=""Y"":104,1:25);104;I '$D(^PRCN(413,D0,14)) W $C(7),"" ?? Explanation of why maintenance contract is recommended, is required"" S Y=104;24;25//YES;I $E(X,1,1)'=""Y"" S Y=27;D LOC^PRCNENG;26//^S X=LOC;D LOC^PRCNUTL1;"
^DIE(1435,"DR",1,413,8)="K X,LOC S DOV=9;27;28;D EN1^PRCNUTL;S Y=$S('FL:30,1:29) K FL;29;30;31;@9;"
^DIE(1435,"DR",2,413.015)=".01;1;I '$D(^PRCN(413,D0,1,D1,1)) W $C(7),"" ?? Description of Line Item is required"" S Y=1;D TXT^PRCNREQE;15//^S X=VEN;D VEN^PRCNUTL;K X,VEN;3;4;S PRCNQT=$P($G(^PRCN(413,D0,1,D1,0)),U,5) S:PRCNQT="""" PRCNQT=1;5//^S X=PRCNQT;7;8;"
^DIE(1435,"DR",2,413.015,1)="I PRCNTY'=""R"" S Y="""";S TDA=$P(^PRCN(413,D0,0),U,11);I $D(^PRCN(413.1,TDA,1,""AC"",D1)) S Y=""@5"";@4;D REP^PRCNREQN;S Y="""";@5;D LINE^PRCNREQE;"
^DIE(1435,"DR",2,413.028)=".01;"
^DIE(1436,0)="PRCNTIPED^2960214.1445^^413.1^^^2960619"
^DIE(1436,"DIAB",1,1,413.11,1)=".01:"
^DIE(1436,"DR",1,413.1)="20;I $O(^PRCN(413.1,DA,1,0))="""" W !,""No Turn-In Items entered - Please Edit"" S Y="""";"
^DIE(1436,"DR",2,413.11)="I X="""" S Y="""";S RI=$P(^PRCN(413.1,PRCNTDA,1,DA,0),U);D DISP^PRCNTIRQ;.5;I X'=6 S Y="""";.7;I X="""" W !,$C(7),""  ? Justification for Turn-in is required!"" S Y=.7;1;7;5;6;9;10;"
^DIE(1436,"DR",2,413.11,1)="^6914^ENG(6914,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCN(413.1,D0,""1"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1436,"DR",3,6914)="20;20.5;"
^DIE(1437,0)="PRCNTIPPM^3031229.12^^413.1^^^3040401"
^DIE(1437,"DIAB",2,1,413.11,0)=".01:"
^DIE(1437,"DR",1,413.1)="@3;20;S:'POP Y=""@2"";D CHECK^PRCNUTL;S:'POP Y=""@3"";D ES^PRCNUTL;I $G(FAIL)<1 K FAIL S Y="""",POP=0;6////^S X=24;7////^S X=DT;@2;"
^DIE(1437,"DR",2,413.11)="D PRT^PRCNTIPP;^6914^ENG(6914,^^S I(1,0)=D1 S I(0,0)=D0 S Y(1)=$S($D(^PRCN(413.1,D0,""1"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1437,"DR",3,6914)="S:X="""" Y=""@1"";20////^S X=4;22////^S X=DT;31;S:X="""" Y=""@1"",POP=0 S:X'="""" POP=1;32;19///^S X=""@"";38///^S X=""@"";@1;"
^DIE(1438,0)="PRCNPPM2^2960705.1106^^413^^^2960909"
^DIE(1438,"DR",1,413)="36;I $P(^PRCN(413,DA,0),U)[""P"" S Y=""@2"";6////^S X=10;7////^S X=DT;S Y=""@1"";@2;6////^S X=31;7////^S X=DT;@1;W !!,""Transaction sent to be reviewed and ranked for Equipment Committee"";"
^DIE(1439,0)="PRCNPPM1^2960821.1143^^413^^^2960910"
^DIE(1439,"DR",1,413)="45;I $E(X,1)=""Y"" S Y=46;6////^S X=32;7////^S X=DT;S Y=36;46;I $G(MSGN)="""" S Y="""";I $G(MSGN)=6 K NOD D MES^PRCNPPM;W !!,""Transaction sent to Concurring Officials for review"",!;6////^S X=9;7////^S X=DT;S Y="""";36;"
^DIE(1439,"DR",1,413,1)="I $P(^PRCN(413,DA,0),U)[""P"" S Y=""@2"";6////^S X=10;7////^S X=DT;W !!,""Transaction sent to be reviewed and ranked for Equipment Committee"",!;S Y="""";@2;6////^S X=31;7////^S X=DT;W !!,""Transaction sent to Equipment Committee"",!;"
^DIE(1439,"DR",2,413.046)=".01;5;S MSGN=6;"
^DIE(1440,0)="PRCNENG^2960719.1144^^413^^^2960910"
^DIE(1440,"DR",1,413)="S STAT=$P(^PRCN(413,DA,0),U,7);25;D LOC^PRCNENG;26//^S X=LOC;D LOC^PRCNUTL1;K X,LOC;27;28;D EN1^PRCNUTL;S Y=$S('FL:23,1:29) K FL;29;23;S Y=$S(X=""Y"":104,1:17);104;"
^DIE(1440,"DR",1,413,1)="I '$D(^PRCN(413,D0,14)) W $C(7),""  ?? Explanation of why maintenance contract is recommended is required"" S Y=104;24;17;S Y=$S(X=""Y"":101,1:52);101;"
^DIE(1440,"DR",1,413,2)="I '$D(^PRCN(413,D0,11)) W $C(7),"" ?? Enter explanation for anticipated deficiency"" S Y=101;52//NO;I $E(X,1)=""N"" S Y=57;53;54;D VEN^PRCNENG;55//^S X=VEN;D VEN^PRCNUTL1;K X,VEN S DOV=2;56;57//NO;S CONR=X;I $E(X,1)=""N"" S Y=62;"
^DIE(1440,"DR",1,413,3)="S PROJ=$P(^PRCN(413,DA,0),U,10);58//NO;I $E(X,1)=""N"" S Y=62;9;117;I '$D(^PRCN(413,DA,27)) W $C(7),""  ??  Description is required"" S Y=117;60;61;62;I $E(X,1)=""N"" S Y=64;118;"
^DIE(1440,"DR",1,413,4)="I '$D(^PRCN(413,DA,28)) W $C(7),""  ??  Description is required"" S Y=118;63;64;I $E(X,1)=""N"" S Y=""@2"";119;I '$D(^PRCN(413,DA,29)) W $C(7),""  ?? Explanation is required"" S Y=119;65;@2;S CON=$S($G(PROJ)="""":$P(^VA(200,DUZ,0),U),1:"""");"
^DIE(1440,"DR",1,413,5)="67//^S X=CON;I X="""" S Y=70;68////^S X=$P($G(^VA(200,X,.13)),U);70//Y;S Y=$S($E(X,1)=""Y"":71,1:74);71;S Y=$S(X=5:72,1:74);72;74//2;66;120;6////^S X=30;7////^S X=DT;@1;D ES^PRCNUTL;I $G(FAIL)<1 K FAIL S Y="""";6////^S X=27;7////^S X=DT;"
^DIE(1440,"DR",1,413,6)="W !!,""Transaction returned to PPM"";"
^DIE(1440,"DR",2,413.028)=".01;"
^DIE(1441,0)="PRCHSIMP^3050505.0744^^442^^^3060117"
^DIE(1441,"DIAB",1,0,442,6)="P.O. DATE//TODAY"
^DIE(1441,"DIAB",2,0,442,7)="PCDO VENDOR;REQ"
^DIE(1441,"DIAB",2,0,442,8)="FREE TEXT VENDOR;REQ"
^DIE(1441,"DIAB",7,0,442,2)="SUBSTATION;REQ"
^DIE(1441,"DIAB",9,0,442,9)="PURCHASE COST;REQ"
^DIE(1441,"DR",1,442)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1441,"DR",1,442,1)="S PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);16////^S X=DUZ;"
^DIE(1441,"DR",1,442,2)="56////^S X=DUZ;.02///^S X=25;48///^S X=""S"";63///^S X=1;54///^S X=""N"";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=""@46"";31R~;S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;@46;"
^DIE(1441,"DR",1,442,3)="S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);S PRCHNN=0 F PRCHII=1:1 S PRCHNN=$O(^PRC(440.5,""C"",DUZ,PRCHNN)) Q:'PRCHNN  S PRCHCDF=$P(^PRC(440.5,PRCHNN,0),U);S PRCHCDFT="""" I PRCHII=2 S PRCHCDFT=PRCHCDF;D LOOK^PRCSPC;"
^DIE(1441,"DR",1,442,4)="I (X="""")!(X[""^"") S ERRFLG=1,Y=0;I $G(PRCHXXX)="""" S ERRFLG=1,Y=0;46////^S X=$G(PRCHXXX);I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new Purchase Card."",!;"
^DIE(1441,"DR",1,442,5)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHDLOC=$P(PRCHP0,U,7),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);61////^S X=PRCHHLDR;55///^S X=PRCHCD;Q;"
^DIE(1441,"DR",1,442,6)=".1//^S X=DT;I +X<DT D REF^PRCSPC W $C(7),!!,""Enter TODAY or a future date only. Contact Fiscal or A&MM Service for "",!,""assistance with PO requiring prior date since an ET is required."",! S Y=.1;"
^DIE(1441,"DR",1,442,7)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");53R~;I $G(PRCFLAG)=1 S $P(^PRC(442,DA,23),U,14)="""" K X S Y=53;S PRCHVEN=+X;5////^S X=PRCHVEN;"
^DIE(1441,"DR",1,442,8)="I $P($G(^PRC(440,PRCHVEN,0)),U)'=""SIMPLIFIED"" S Y=1;64R~;1//^S X=PRCHFCP;S PRC(""CP"")=X;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));"
^DIE(1441,"DR",1,442,9)="26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHCC;@88;K DIC(""DR"");K PRCHDUZ;52;@3;60R~;I X'="""" S PRCHTOT=X;I X>2500 W !,$C(7),""COST CANNOT EXCEED $2500.00 - YOU MUST USE DETAILED PURCHASE CARD!!"" S Y=""@3"";5.4///^S X=""SIMPLIFIED"";"
^DIE(1441,"DR",1,442,10)="S $P(^PRC(442,DA,0),""^"",15)=PRCHTOT;"
^DIE(1442,0)="PRCH DETAILED PURCHASE CARD^3060509.1504^^442^^^3060530"
^DIE(1442,"DIAB",1,0,442,6)="P.O. DATE//TODAY"
^DIE(1442,"DIAB",3,0,442,7)="PCDO VENDOR;REQ"
^DIE(1442,"DIAB",6,0,442,10)="DELIVERY DATE//TODAY+10"
^DIE(1442,"DIAB",7,0,442,2)="SUBSTATION;REQ"
^DIE(1442,"DIAB",10,1,442.01,8)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(1442,"DR",1,442)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1442,"DR",1,442,1)="S PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);"
^DIE(1442,"DR",1,442,2)="16////^S X=DUZ;56////^S X=DUZ;.02///^S X=25;48///^S X=""P"";63///^S X=1;I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=""@46"";31R~;S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;@46;"
^DIE(1442,"DR",1,442,3)="S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);S PRCHNN=0 F PRCHII=1:1 S PRCHNN=$O(^PRC(440.5,""C"",DUZ,PRCHNN)) Q:'PRCHNN  S PRCHCDF=$P(^PRC(440.5,PRCHNN,0),U);S PRCHCDFT="""" I PRCHII=2 S PRCHCDFT=PRCHCDF;D LOOK^PRCSPC;"
^DIE(1442,"DR",1,442,4)="I (X="""")!(X[""^"") S ERRFLG=2,Y=0;I $G(PRCHXXX)="""" S ERRFLG=2,Y=0;46////^S X=$G(PRCHXXX);I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new Purchase Card."",!;"
^DIE(1442,"DR",1,442,5)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHDLOC=$P(PRCHP0,U,7),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);61////^S X=PRCHHLDR;55///^S X=PRCHCD;Q;"
^DIE(1442,"DR",1,442,6)=".1//^S X=DT;I +X<DT W $C(7),!!,""Enter TODAY or a future date only. Contact Fiscal or A&MM Service for "",!,""assistance with PO requiring prior date since an ET is required."",! S $P(^PRC(442,DA,1),U,15)="""",Y=.1;"
^DIE(1442,"DR",1,442,7)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");.08//^S X=""N"";53R~;I $G(PRCFLAG)=1 S $P(^PRC(442,DA,23),U,14)="""" K X S Y=53;S PRCHVEN=+X;5////^S X=PRCHVEN;8//^S X=""B"";"
^DIE(1442,"DR",1,442,8)="S PRCHN(""MP"")=$P(^PRC(442,DA,0),U,2);1//^S X=PRCHFCP;S PRC(""CP"")=X;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");"
^DIE(1442,"DR",1,442,9)="D EN2^PRCHNPO3;2//^S X=PRCHCC;5.2;52;@88;54;I X[""N"" S Y=6.4;5.6//^S X=PRCHDLOC;I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;"
^DIE(1442,"DR",1,442,10)="5.4//^S X=$G(PRCY);K DIC(""DR"");6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//^S X=DT S X=X,X1=X,X2=+10,X="""" D C^%DTC:X1;8.2//^S X=""N/A"";13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";"
^DIE(1442,"DR",1,442,11)="S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;K PRCHDUZ;40;20;"
^DIE(1442,"DR",2,442.01)="S PRCHREC=DA;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^DIE(1442,"DR",2,442.01,1)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;"
^DIE(1442,"DR",2,442.01,2)="I X'="""",$G(PRCHN(""SFC""))'=2 S PRCHMAND=$P($G(^PRC(441,X,0)),U,8) I $G(PRCHMAND),PRCHMAND'=$P($G(^PRC(442,DA(1),1)),U) W !,""This item can only be purchased from ""_$P($G(^PRC(440,PRCHMAND,0)),U) S Y=1.5;1;"
^DIE(1442,"DR",2,442.01,3)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;S (PRCHQUAN,Z)="""" I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(1442,"DR",2,442.01,4)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(1442,"DR",2,442.01,5)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^DIE(1442,"DR",2,442.01,6)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^DIE(1442,"DR",2,442.01,7)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^DIE(1442,"DR",2,442.01,8)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;8T~;"
^DIE(1442,"DR",2,442.01,9)="I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:(PRCHN(""COM"")'=1)&($E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)'=11) Y=4;4;"
^DIE(1442,"DR",2,442.01,10)="S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5);K PRCHBOCC;I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);"
^DIE(1442,"DR",2,442.01,11)="I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;"
^DIE(1443,0)="PRCH DELIVERY ORDER^3060512.1103^^442^^^3060705"
^DIE(1443,"DIAB",3,0,442,6)="PCDO VENDOR;REQ"
^DIE(1443,"DIAB",4,0,442,3)="SUBSTATION;REQ"
^DIE(1443,"DIAB",4,0,442,4)="P.O. DATE//TODAY"
^DIE(1443,"DIAB",5,0,442,10)="DELIVERY DATE//TODAY+10"
^DIE(1443,"DIAB",8,1,442.01,10)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(1443,"DR",1,442)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1443,"DR",1,442,1)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^DIE(1443,"DR",1,442,2)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(442,DA,0),U,2),0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")'="""":PRCHN(""INV""),1:""FMS"");48///^S X=""D"";"
^DIE(1443,"DR",1,442,3)="I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;S OSUB=$P($G(^PRC(442,DA,23)),U,7);I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^DIE(1443,"DR",1,442,4)="S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;Q;.1//^S X=DT;.02//^S X=""INVOICE/RECEIVING REPORT"";"
^DIE(1443,"DR",1,442,5)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");S PRCHCTPO=$S(PRCHN(""MP"")=2:""Y"",1:""N"");"
^DIE(1443,"DR",1,442,6)=".08//^S X=$S(PRCHN(""MP"")=2:""Y"",PRCHN(""MP"")=12:""Y"",1:""N"");.04//^S X=PRCHN(""INV"");53R~;S PRCHVEN=+X;5////^S X=PRCHVEN;8///^S X=6;K DIC(""DR"");@1;1;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;"
^DIE(1443,"DR",1,442,7)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");@88;S:PRCHN(""MP"")=2 Y=""@3"" I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";@3;"
^DIE(1443,"DR",1,442,8)="S:PRCHN(""MP"")=4 Y=5.3;I '$P(^PRC(442,DA,0),U,19)&(PRCHN(""MP"")'=2) W !,""Enter the word 'PATIENT' in the 'DELIVERY LOCATION' field for a direct delivery"",!,""to a patient."";5.6;"
^DIE(1443,"DR",1,442,9)="I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;5.4//^S X=$G(PRCY);"
^DIE(1443,"DR",1,442,10)="I $P(^PRC(442,DA,1),U,12)'="""" W *7,!,""Delete the Direct Delivery patient name if you wish the 'Ship to' address"",!,""to print on the P.O."",!;6.4//DESTINATION;S PRCHN(""FOB"")=X;Q;7//^S X=DT S X=X,X1=X,X2=+10,X="""" D C^%DTC:X1;"
^DIE(1443,"DR",1,442,11)="8.2//^S X=""N/A"";13;S PRCHSHP=+X;S:X']"""" Y=""@99"";I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;S Y=""@100"";@98;13.05;@100;"
^DIE(1443,"DR",1,442,12)="I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;16////^S X=DUZ;K PRCHDUZ;40;20;"
^DIE(1443,"DR",2,442.01)="S PRCHREC=DA;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^DIE(1443,"DR",2,442.01,1)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;"
^DIE(1443,"DR",2,442.01,2)="I X'="""",$P($G(^PRC(441,X,2,PRCHVEN,0)),U,3)="""",$G(PRCSAVE)="""" W !,""This is not a contract item."" S Y=1.5;"
^DIE(1443,"DR",2,442.01,3)="I X'="""" S PRCHMAND=$P($G(^PRC(441,X,0)),U,8) I $G(PRCHMAND),PRCHMAND'=$P($G(^PRC(442,DA(1),1)),U) W !,""This item can only be purchased from ""_$P($G(^PRC(440,PRCHMAND,0)),U) S Y=1.5;1;"
^DIE(1443,"DR",2,442.01,4)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;S (PRCHQUAN,Z)="""" I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(1443,"DR",2,442.01,5)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(1443,"DR",2,442.01,6)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");S PRCHTOT=0 I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^DIE(1443,"DR",2,442.01,7)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^DIE(1443,"DR",2,442.01,8)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^DIE(1443,"DR",2,442.01,9)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;"
^DIE(1443,"DR",2,442.01,10)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;S:PRCHN(""MP"")=2 Y=4;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^DIE(1443,"DR",2,442.01,11)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^DIE(1443,"DR",2,442.01,12)="D TSTREQ2^PRCHNPO9;40;S Y=4;41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);4;S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5);K PRCHBOCC;"
^DIE(1443,"DR",2,442.01,13)="S:PRCHN(""SFC"")=2 ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)),PRCHBOCC=$P($G(^PRCD(420.2,$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699),0)),U);I $G(PRCHBOCC) S Y=""@87"";3.5//^S X=$G(PRCHBOCC);"
^DIE(1443,"DR",2,442.01,14)="S Y=""@89"";@87;3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;"
^DIE(1444,0)="PRCH PURCHASE CARD AMEND^3060505.1009^^443.6^^^3060629"
^DIE(1444,"DIAB",12,1,443.61,7)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(1444,"DR",1,443.6)="40///^S X=PRCHI1;"
^DIE(1444,"DR",2,443.61)="K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^DIE(1444,"DR",2,443.61,1)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;"
^DIE(1444,"DR",2,443.61,2)="S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^DIE(1444,"DR",2,443.61,3)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^DIE(1444,"DR",2,443.61,4)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^DIE(1444,"DR",2,443.61,5)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^DIE(1444,"DR",2,443.61,6)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^DIE(1444,"DR",2,443.61,7)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;@6;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");8T~;"
^DIE(1444,"DR",2,443.61,8)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^DIE(1444,"DR",2,443.61,9)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;@4;4;"
^DIE(1444,"DR",2,443.61,10)="S PRCHIDA=+$P(^PRC(443.6,DA(1),2,DA,0),U,5),PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^DIE(1444,"DR",2,443.61,11)="I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);"
^DIE(1444,"DR",2,443.61,12)="3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;"
^DIE(1445,0)="PRCH DELIVERY ORDER AMEND^3060512.1112^^443.6^^^3060705"
^DIE(1445,"DIAB",14,1,443.61,8)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(1445,"DR",1,443.6)="40///^S X=PRCHI1;"
^DIE(1445,"DR",2,443.61)="K PRCSAVE;1.5;I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";I X=""""&($L($P($G(^PRC(443.6,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";"
^DIE(1445,"DR",2,443.61,1)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;S PRCHVEN=$P(^PRC(443.6,PRCHPO,1),U);"
^DIE(1445,"DR",2,443.61,2)="I X'="""",$P($G(^PRC(441,X,2,PRCHVEN,0)),U,3)="""",$G(PRCSAVE)="""" W !,""This is not a contract item."" S Y=1.5;1;I '$D(^PRC(443.6,DA(1),2,DA,1)) W $C(7),?3,!,""Description is Required!!"" S Y=1;"
^DIE(1445,"DR",2,443.61,3)="S (PRCHQUAN,PRCHZ)="""" I $D(^PRC(443.6,DA(1),1)) S PRCHZ=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),2,+^PRC(443.6,DA(1),1),0)):^(0),1:"""");"
^DIE(1445,"DR",2,443.61,4)="I PRCHZ'="""" W:$P(PRCHZ,U,12)'="""" !,*7,""    Minimum Order Qty.: "",$P(PRCHZ,U,12) W:$P(PRCHZ,U,9) !,*7,""    Maximum Order Qty.: "",$P(PRCHZ,U,9) W:$P(PRCHZ,U,11) !,*7,""    Required Order Multiple: "",$P(PRCHZ,U,11) S PRCHQUAN=PRCHZ;"
^DIE(1445,"DR",2,443.61,5)="S PRCHQPR=$P($G(^PRC(443.6,DA(1),2,DA,2)),U,8);@2;2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");"
^DIE(1445,"DR",2,443.61,6)="I PRCHQPR>0 I X<PRCHQPR W !,""QUANTITY is less than Quantity Previously Received."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than Minimum Order Quantity."",$C(7) S Y=""@2"";"
^DIE(1445,"DR",2,443.61,7)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than Maximum Order Quantity."",$C(7) S Y=""@2"";I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value."",$C(7) S Y=""@2"";"
^DIE(1445,"DR",2,443.61,8)="3;5;I $D(^PRC(443.6,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(443.6,DA(1),0),U,2),0)):$P(^(0),U,3),1:"""");S:PRCHN(""MP"")=2 Y=4;8T~;"
^DIE(1445,"DR",2,443.61,9)="I $G(PRCSAVE)'=""^"" D EN100^PRCHNPO7;"
^DIE(1445,"DR",2,443.61,10)="S PRCHFCP=+$P(^PRC(443.6,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^DIE(1445,"DR",2,443.61,11)="D TSTREQ2^PRCHNPO9;40;S Y=""@4"";41//^S Z=$S($D(^PRC(441,+$P(^PRC(443.6,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);@4;4;S PRCHIDA=+$P(^PRC(443.6,DA(1),2,DA,0),U,5),PRCHN(""SFC"")=+$P(^PRC(443.6,DA(1),0),U,19);"
^DIE(1445,"DR",2,443.61,12)="I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);"
^DIE(1445,"DR",2,443.61,13)="3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC,PRCHANS,PRCSAVE;S:'$D(PRCHEDI) Y=""@5"";36.3;36.6;@5;"
^DIE(1446,0)="PRCHPROMPT^2960611.0902^^442^^^2961010"
^DIE(1446,"DR",1,442)="9.2//NET;"
^DIE(1446,"DR",2,442.06)=".01;1//30;S:'$D(PRCHD(""*"")) Y="""";3///^S X=PRCHD(""*"");"
^DIE(1447,0)="PRCH DIRECT DELIVERY ORDER^2980406.1257^^442^^^2980521"
^DIE(1447,"DIAB",1,0,442,6)="53;REQ"
^DIE(1447,"DIAB",4,0,442,3)="31;REQ"
^DIE(1447,"DR",1,442)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1447,"DR",1,442,1)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^DIE(1447,"DR",1,442,2)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);S PRCHN(""MP"")=$S($D(^PRCD(442.5,+$P(^PRC(442,DA,0),U,2),0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")'="""":PRCHN(""INV""),1:""FMS"");Q;48///^S X=""D"";"
^DIE(1447,"DR",1,442,3)="I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;S OSUB=$P($G(^PRC(442,DA,23)),U,7);I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^DIE(1447,"DR",1,442,4)="S SUB=X;I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;Q;.1//TODAY;.02///^S X=""AUTO BANK PAYMENT"";"
^DIE(1447,"DR",1,442,5)="S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""MP"")=2:""FISCAL"",PRCHN(""MP"")=12:"""",PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");S PRCHCTPO=$S(PRCHN(""MP"")=2:""Y"",1:""N"");.08///^S X=""N"";.04///^S X=PRCHN(""INV"");"
^DIE(1447,"DR",1,442,6)="53R~;Q;Q;S PRCHVEN=+X;5////^S X=PRCHVEN;8///^S X=6;K DIC(""DR"");@1;1;Q;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");"
^DIE(1447,"DR",1,442,7)="D EN2^PRCHNPO3;2//^S X=PRCHN(""CC"");@88;Q;S:PRCHN(""MP"")=2 Y=""@3"" I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";@3;"
^DIE(1447,"DR",1,442,8)="I '$P(^PRC(442,DA,0),U,19)&(PRCHN(""MP"")'=2) W !,""Enter the word 'PATIENT' in the 'DELIVERY LOCATION' field for a direct delivery"",!,""to a patient."";5.6;"
^DIE(1447,"DR",1,442,9)="I X=""PATIENT"",$P(^PRC(442,DA,0),U,19) I $P(^(0),U,19)!(PRCHN(""MP"")=2) W *7,!,""  PATIENT DELIVERY not valid for this type of order!"" S Y=5.6;Q;5.4//^S X=$G(PRCY);"
^DIE(1447,"DR",1,442,10)="I $P(^PRC(442,DA,1),U,12)'="""" W *7,!,""Delete the Direct Delivery patient name if you wish the 'Ship to' address"",!,""to print on the P.O."",!;6.4///DESTINATION;S PRCHN(""FOB"")=X;Q;7//TODAY+1;8.2///^S X=""N/A"";16////^S X=DUZ;K PRCHDUZ;"
^DIE(1447,"DR",1,442,11)="40;20;"
^DIE(1447,"DR",2,442.01)="S PRCHREC=DA;.01;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X="""" W !,""Items for this order must be from the Item Master File."" S Y=1.5;"
^DIE(1447,"DR",2,442.01,1)="I X'="""",$P($G(^PRC(441,X,2,PRCHVEN,0)),U,3)="""" W !,""This is not a contract item."" S Y=1.5;"
^DIE(1447,"DR",2,442.01,2)="I X'="""" S PRCHMAND=$P($G(^PRC(441,X,0)),U,8) I $G(PRCHMAND),PRCHMAND'=$P($G(^PRC(442,DA(1),1)),U) W !,""This item can only be purchased from ""_$P($G(^PRC(440,PRCHMAND,0)),U) S Y=1.5;1;"
^DIE(1447,"DR",2,442.01,3)="I '$D(^PRC(442,DA(1),2,DA,1)) W !,""Description is Required!!"" S Y=1;S (PRCHQUAN,Z)="""" I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(1447,"DR",2,442.01,4)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(1447,"DR",2,442.01,5)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");S PRCHTOT=0 I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^DIE(1447,"DR",2,442.01,6)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^DIE(1447,"DR",2,442.01,7)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^DIE(1447,"DR",2,442.01,8)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;S $P(^PRC(442,DA(1),2,DA,0),U,9)=0;5//^S X=0;"
^DIE(1447,"DR",2,442.01,9)="I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";3.1///^S X=1;S DIE(""NO^"")=""A"";9.7///^S X=1;K DIE(""NO^"");@6;S:PRCHN(""MP"")=2 Y=4;8///^S X=9999;"
^DIE(1447,"DR",2,442.01,10)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=""@44"";"
^DIE(1447,"DR",2,442.01,11)="D TSTREQ2^PRCHNPO9;40;S Y=""@44"";41///^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);@44;S PRCHIDA=+$P(^PRC(442,DA(1),2,DA,0),U,5);"
^DIE(1447,"DR",2,442.01,12)="I PRCHN(""SFC"")=2 S ACCT=$$ACCT^PRCPUX1($E($$NSN^PRCPUX1(PRCHIDA),1,4)) S PRCHBOCC=$S(ACCT=1:2697,ACCT=2:2698,ACCT=3:2699,ACCT=6:2699,ACCT=8:2696,1:2699);I '$G(PRCHBOCC) S Y=""@87"";S PRCHBOCC=$P($G(^PRCD(420.2,PRCHBOCC,0)),U);"
^DIE(1447,"DR",2,442.01,13)="3.5////^S X=PRCHBOCC;S Y=""@89"";@87;3.5;@89;K PRCHBOCC;@5;"
^DIE(1448,0)="PRCHQ RFQ REQUEST^3060509.0853^@^444^^@^3060509"
^DIE(1448,"DIAB",3,1,444.019,2)="FEDERAL SUPPLY CLASSIFICATION;T;REQ"
^DIE(1448,"DIAB",4,0,444,1)="TRANSMIT TO 'PUBLIC';REQ"
^DIE(1448,"DIAB",5,0,444,0)="REFERENCE DATE//TODAY;REQ"
^DIE(1448,"DIAB",7,0,444,0)="REQD DELIVERY DATE;REQ"
^DIE(1448,"DIAB",8,1,444.019,1)="DESCRIPTION;REQ"
^DIE(1448,"DIAB",9,0,444,0)="QUOTE DUE DATE/TIME;REQ"
^DIE(1448,"DIAB",9,1,444.019,2)="BOC;REQ"
^DIE(1448,"DIAB",11,1,444.019,1)="SIC CODE;REQ"
^DIE(1448,"DIAB",12,0,444,0)="PRIORITY OF REQUEST;REQ"
^DIE(1448,"DIAB",13,0,444,0)="SHIP TO;REQ"
^DIE(1448,"DIAB",14,0,444,0)="DELIVER TO;REQ"
^DIE(1448,"DIAB",15,0,444,0)="FOB;REQ"
^DIE(1448,"DR",1,444)="S:'$D(PRCDA) PRCDA=D0;S PRCRD=$P($G(^PRC(444,PRCDA,0)),U,2);S PRCRQD=$P($G(^PRC(444,PRCDA,1)),U,2);Q;1R~//^S X=DT;S PRCRD=X;13R~;S PRCRQD=X;2R~;S Y=$$QUOTEDUE^PRCHQ1C(X,PRCRD,PRCRQD) S:Y="""" Y=""@1"";@1;5R~;14R~;15R~;12R~;17.5;3;"
^DIE(1448,"DR",1,444,1)="I $P($G(^VA(200,X,.13)),U,5)="""" W !,""Contracting Officer lacks Commercial Phone #"" S Y=3;19;20;20.5R~;16;S:$$ADMCERT^PRCHQ1C(PRCDA)]"""" Y=0;17;"
^DIE(1448,"DR",2,444.01)=".01;S PRCVEN=X;1;I $G(X)'="""" S Y=$$METHOD^PRCHQ1C(X,PRCVEN) S:Y="""" Y=""@4"";@4;"
^DIE(1448,"DR",2,444.019)="S PRCDA2=D1;S PRCITMO=$P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,4);.01;K PRCSAVE;1;I X=""""&($L($P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,5))=4) S PRCSAVE=""G"",Y=""@5"";I X=""""&($L($P($G(^PRC(444,PRCDA,2,PRCDA2,0)),U,5))=5) S PRCSAVE=""S"",Y=""@5"";"
^DIE(1448,"DR",2,444.019,1)="I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@5;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;S PRCIEN=X;D:PRCIEN'=PRCITMO STUFFITM^PRCHQ1C(X,PRCDA,PRCDA2);S PRCITMO=PRCIEN;1.6;1.5R~;3;2;6R~;7;5;"
^DIE(1448,"DR",2,444.019,2)="S Y=$$NSN^PRCHQ1C(X) S:Y="""" Y=""@3"";@3;4R~T~;I $G(PRCSAVE)'=""^"" D EN101^PRCHNPO7;8;9;10;12;12.5R~;K PRCHANS,PRCSAVE;20;S Y=$$DELTOTAL^PRCHQ1C(PRCDA,PRCDA2) S:Y="""" Y=""@2"";@2;"
^DIE(1448,"DR",3,444.039)=".01;1;2;3;"
^DIE(1449,0)="ENFA DELETE-T^2961021.1149^^6915.5^^^2961120"
^DIE(1449,"DIAB",1,0,6915.5,0)="102;""TURN-IN DATE"""
^DIE(1449,"DR",1,6915.5)="102TURN-IN DATE~;34//^S X=""00000"";"
^DIE(1450,0)="ENFA DELETE-D^2961015.1359^^6915.5^^^2961021"
^DIE(1450,"DR",1,6915.5)="102;33//0.00;103;34//^S X=""00000"";"
^DIE(1451,0)="PRCH PROSTHETIC^2981229.1448^@^442^^@^2990210"
^DIE(1451,"DIAB",2,0,442,8)="64;REQ"
^DIE(1451,"DR",1,442)="Q:'$D(PRC(""SITE""))  S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1451,"DR",1,442,1)="S PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);Q;16////^S X=DUZ;"
^DIE(1451,"DR",1,442,2)="56////^S X=DUZ;.02///^S X=25;48///^S X=""S"";63///^S X=1;54///^S X=""N"";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=""@46"";31////^S X=PRC(""SITE"");S SUB=X;"
^DIE(1451,"DR",1,442,3)="I $D(SUB) S PRCX=$O(^PRC(411,SUB,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,SUB,1,PRCX,0)),U) K PRCX;Q;Q;Q;@46;S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);"
^DIE(1451,"DR",1,442,4)="S PRCHNN=0 F PRCHII=1:1 S PRCHNN=$O(^PRC(440.5,""C"",DUZ,PRCHNN)) Q:'PRCHNN  S PRCHCDF=$P(^PRC(440.5,PRCHNN,0),U);S PRCHCDFT="""" I PRCHII=2 S PRCHCDFT=PRCHCDF;D LOOK^PRCSPC;I (X="""")!(X[""^"") S Y=0;I $G(PRCHXXX)="""" S Y=0;"
^DIE(1451,"DR",1,442,5)="46////^S X=$G(PRCHXXX);I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new Purchase Card."",!;"
^DIE(1451,"DR",1,442,6)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHDLOC=$P(PRCHP0,U,7),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);61////^S X=PRCHHLDR;55///^S X=PRCHCD;Q;"
^DIE(1451,"DR",1,442,7)=".1///^S X=""T"";S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");53////^S X=PRCRI(440);Q;Q;Q;Q;S PRCHVEN=PRCRI(440);5////^S X=PRCHVEN;"
^DIE(1451,"DR",1,442,8)="I $P($G(^PRC(440,PRCHVEN,0)),U)'=""SIMPLIFIED"" S Y=1;64R~;1///^S X=PRCHFCP;Q;Q;S PRC(""CP"")=X;S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19);@2;I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));"
^DIE(1451,"DR",1,442,9)="26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHCC;@88;Q;Q;K DIC(""DR"");Q;K PRCHDUZ;5.4///^S X=""SIMPLIFIED"";S PRCPROST=1.9;"
^DIE(1452,0)="PRCHAMENDPRO^2961121.173^@^443.6^^@^2961209"
^DIE(1452,"DIAB",2,1,443.67,0)="1//TODAY"
^DIE(1452,"DR",1,443.6)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);50///^S X=PRCHAM;"
^DIE(1452,"DR",2,443.67)="Q;1//^S X=DT;S PRCHAU=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) I +$G(PRCHAU)=0 S PRCHAU=4;3///^S X=""E"";"
^DIE(1452,"DR",2,443.67,1)="I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) I PRCHAU'=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,1),U,4)="""";I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) S PRCHAU=4;I X=5!(X=15) D CAN^PRCHMA3 I NOCAN S ER=1;"
^DIE(1452,"DR",2,443.67,2)="I $G(ER)=1 W !,$S($D(PRCHREQ):""REQUISITION"",1:""PURCHASE ORDER"")_"" HAS BEEN RECEIVED, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;I X=5!(X=15) D PAID^PRCHINQ I $G(PAID) S ER=1;"
^DIE(1452,"DR",2,443.67,3)="I $G(ER) W !,?5,""THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;"
^DIE(1452,"DR",2,443.67,4)="I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4)=5!($P($G(^(0)),U,4)=15) D ONLY^PRCHMA0 I $G(PRCHON)=0 S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S Y=3;S:$D(PRCHREQ) Y=""@5"";4;5///^S X=""NO"";S:X'=""Y"" Y=""@5"";5.2;@5;"
^DIE(1452,"DR",2,443.67,5)="I '$G(PRCHAUTH) S Y=""@6"";6////^S X=DUZ;S Y=""@7"";@6;6//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");@7;S FLGUP=1;"
^DIE(1453,0)="ESP REGISTRATION^2970122.1027^@^910^^@^2970131"
^DIE(1453,"DR",1,910)=".04;I X=""E"" S Y=.05;.06;I X="""",($S($D(^ESP(910,D0,2)):$P(^(2),""^"",1,5),1:"""")?.""^"") S Y=2.06;2.01;2.02;2.03;2.04;2.05;S Y=2.06;.05;2.06;1.01;I X="""",($S($D(^ESP(910,D0,1)):$P(^(1),""^"",1,5),1:"""")?.""^"") S Y=1.06;1.02;1.03;1.04;1.05;"
^DIE(1453,"DR",1,910,1)="1.06;.08;.09;.1;.11;"
^DIE(1454,0)="ESP REGISTRATION 3^2970130.1536^@^910.2^^@^2970131"
^DIE(1454,"DR",1,910.2)=".01;.04////^S X=3;.05;.06;2.01;2.02;2.03;2.04;2.05;2.06;2.07;2.08;20;"
^DIE(1455,0)="ESP REGISTRATION 5^2970130.1538^@^910.2^^@^2970131"
^DIE(1455,"DR",1,910.2)=".01;.04////^S X=5;.05;5.01;5.02;20;"
^DIE(1456,0)="ESP REGISTRATION 2^2970130.1536^@^910.2^^@^2970131"
^DIE(1456,"DR",1,910.2)=".01;.04////^S X=2;.05;.06;.07;4.01;4.02;4.03;4.04;4.05;20;"
^DIE(1457,0)="ESP REGISTRATION 4^2970130.1537^@^910.2^^@^2970131"
^DIE(1457,"DR",1,910.2)=".01;.04////^S X=4;.05;.07;3.01;3.02;3.03;3.04;3.05;3.06;3.07;3.08;20;"
^DIE(1459,0)="PRCG PURGEMASTER SITE EDIT^2931018.1508^^443.2^^^3000920^"
^DIE(1459,"DIAB",1,1,443.26,0)="ALL"
^DIE(1459,"DR",1,443.2)=".01;2;3;4;5;6;"
^DIE(1459,"DR",2,443.26)=".01:1"
^DIE(1460,0)="PRPF LONG REGISTRATION^3020514.113^@^470^^@^3020802^"
^DIE(1460,"DIAB",1,1,470.05,0)="ALL"
^DIE(1460,"DR",1,470)="73;1////A;2//UNRESTRICTED;I ""UX""[X S Y=""@1"";10.5;10.7;17;18;S Y=""@2"";@1;S $P(^PRPF(470,DA,1),""^"",7,8)=""^"";S $P(^PRPF(470,DA,0),""^"",12,13)=""^"";@2;3//UNKNOWN;4//NO;5;6;7;8;9;23;24;25;26;33;34;35;"
^DIE(1460,"DR",2,470.05)=".01:3"
^DIE(1461,0)="PRPF SELECTED DATA EDIT^2871127^@^470^^@^^"
^DIE(1461,"DR",1,470)="2;I ""XU""[X S $P(^PRPF(470,DA,0),""^"",12,13)=""^"",$P(^(1),""^"",7,8)=""^"",Y=4;10.5;10.7;17;18;4;9;34;35;"
^DIE(1462,0)="PRPF POST TRANSACTION^2870402^@^470.1^^@^^"
^DIE(1462,"DR",1,470.1)="7;3;6;5///TODAY;4;8;10;9;15;13;"
^DIE(1463,0)="PRPF SHORT REGISTRATION^3020514.113^@^470^^@^3020802^"
^DIE(1463,"DR",1,470)="73;1//ACTIVE;2;I ""XU""[X S Y=""@1"",$P(^PRPF(470,DA,1),""^"",7,8)=""^"",$P(^(0),""^"",12,13)=""^"";10.5;10.7;17;18;@1;34;35;"
^DIE(1464,0)="PRPF INACTIVE/ACTIVE^3020509.0906^@^470^^@^3020717^"
^DIE(1464,"DR",1,470)="1//INACTIVE;73;"
^DIE(1465,0)="PRPF TEMP TRANS POST^2880926^@^470.5^^@^2970424^"
^DIE(1465,"DR",1,470.5)="7;S DEP=X,$P(^PRPFT(470.5,DA,0),""^"",4)="""",FORM=$S(X=""W"":""10-1126"",1:""4-1028"");3;I X=""K"" S Y="""",PRPF(""KILL"")="""";S AMT=X;6;4//^S X=""TODAY"";8//^S X=""CASH"";I X'=2!(DEP=""W"") S Y=""@1"";19;S Y=""@2"";@1;19///^S X="""";@2;Q;10//^S X=FORM;"
^DIE(1465,"DR",1,470.5,1)="9//GRATUITOUS;S:""GP""'[X Y=9 S XX=$S(X=""P"":12,1:13) S $P(^PRPFT(470.5,DA,0),""^"",XX)=AMT K XX;15;I $D(DFN),$D(^PRPF(470,DFN,0)),""LR""'[$P(^PRPF(470,DFN,0),""^"",3) S Y=""@3"";S:'$D(DEP) Y=7;I DEP=""D"" S Y=""@3"";20//^S X=""YES"";S Y="""";@3;"
^DIE(1465,"DR",1,470.5,2)="20////N;"
^DIE(1466,0)="PRPF TEMP MULTIPLE^2871105^@^470.5^^@^^"
^DIE(1466,"DR",1,470.5)="7;S DEP=X;6;4//TODAY;8;I X'=2!(DEP=""W"") S Y=""@1"";19;@1;10;9//GRATUITOUS;15;20////N;"
^DIE(1467,0)="PRPF MULTIPLE AMT^2870831^@^470.5^^@^^"
^DIE(1467,"DR",1,470.5)="3;I X=""K"" S Y="""",PRPF(""KILL"")="""";S AMT=X;S:""GP""[PRPFT(10) XX=$S(PRPFT(10)=""P"":12,1:13) S $P(^PRPFT(470.5,DA,0),""^"",XX)=AMT K XX;20////N;I $D(DFN),$D(^PRPF(470,DFN,0)),""LR""[$P(^(0),""^"",3),$D(DEP),DEP[""W"" S Y=""@3"";S Y="""";@3;20;"
^DIE(1468,0)="PRPF SUSPENSE ENTER EDIT^2870824^@^470^^@^2970318^"
^DIE(1468,"DIAB",1,2,470.04,0)="ALL"
^DIE(1468,"DR",1,470)="32;"
^DIE(1468,"DR",2,470.03)="1;"
^DIE(1468,"DR",3,470.04)=".01:1"
^DIE(1468,"DR",4,470.07)=".01"
^DIE(1469,0)="PRPF DEFERRAL EDIT^2870824^@^470^^@^^"
^DIE(1469,"DR",1,470)="31;"
^DIE(1469,"DR",2,470.02)="1;"
^DIE(1470,0)="PRPF TEMP BCF AMTS^2870831^@^470.5^^@^^"
^DIE(1470,"DIAB",1,0,470.5,0)="16;""Enter Balance Carried Forward Total Amount"""
^DIE(1470,"DIAB",3,0,470.5,0)="17;""Enter Amount of Total which is Private Source"""
^DIE(1470,"DIAB",5,0,470.5,0)="18;""Enter Amount of Total which is Gratuitous"""
^DIE(1470,"DR",1,470.5)="16Enter Balance Carried Forward Total Amount~;S PRTOT=X;17Enter Amount of Total which is Private Source~;S PRPVT=X;18Enter Amount of Total which is Gratuitous~;S PRGRAT=X;"
^DIE(1471,0)="PRPF FORMS EDIT^2871214^@^470.2^^@^^"
^DIE(1471,"DIAB",1,1,470.21,0)="ALL"
^DIE(1471,"DR",1,470.2)=".01;1;2;3;"
^DIE(1471,"DR",2,470.21)=".01"
^DIE(1472,0)="PRCA CREATE TRANS STUB^2970129.154^@^433^^@^2970415"
^DIE(1472,"DR",1,433)="4////^S X=1;5.02////^S X=""SYSTEM ""_$S($D(PRCAARC):""ARCHIVED"",1:""INACTIVATED"")_$S($D(PRCABN):"" (BILL ""_$P($G(^PRCA(430,PRCABN,0)),U)_"")"",1:"""");10////^S X=1;11////^S X=DT;12////^S X=$S($D(PRCATYPE):PRCATYPE,1:"""");42////^S X=DUZ;"
^DIE(1472,"DR",1,433,1)="41///^S X=$S($D(PRCACOMM):PRCACOMM,1:"""");"
^DIE(1473,0)="PRCA CREATE BILL STUB^2970129.154^@^430^^@^2970415"
^DIE(1473,"DR",1,430)="2////^S X=$S($D(PRCACAT):PRCACAT,1:"""");8////^S X=26;10////^S X=DT;97////^S X=DUZ;98///^S X=$S($D(PRCACOMM):PRCACOMM,1:"""");"
^DIE(1474,0)="ENEQTURN^2970414.1525^^6914^^^2970414"
^DIE(1474,"%D",0)="^^4^4^2961120^"
^DIE(1474,"%D",1,0)="This template is used by option ENEQTD to update equipment records for"
^DIE(1474,"%D",2,0)="turn-in. Some fields are automatically changed (///) and then appropriate"
^DIE(1474,"%D",3,0)="fields are asked. If local template ENZEQTURN exists, it will be used in"
^DIE(1474,"%D",4,0)="place of this template."
^DIE(1474,"DIAB",14,0,6914,0)="20.5//TODAY"
^DIE(1474,"DR",1,6914)="19///@;20///TURNED IN;20;19;Q;24;S:$G(ENCONTR)'=""Y"" Y=""@1"";19.5;S:X=""Y"" Y=""@1"";19.6///@;Q;@1;Q;20.5//^S X=DT;40;S:'$D(^XUSEC(""ENEDSPEX"",DUZ)) Y=0;70;"
^DIE(1475,0)="ENEQDISP^2970414.1525^^6914^^^2970626"
^DIE(1475,"%D",0)="^^4^4^2961120^"
^DIE(1475,"%D",1,0)="This template is used by option ENEQTD to update equipment records for"
^DIE(1475,"%D",2,0)="final disposition. Some fields are automatically changed (///) and then"
^DIE(1475,"%D",3,0)="appropriate fields are asked. If local template ENZEQDISP exists, it will"
^DIE(1475,"%D",4,0)="be used in place of this template."
^DIE(1475,"DIAB",14,0,6914,0)="22//TODAY"
^DIE(1475,"DR",1,6914)="19///@;20///TURNED IN;38///@;20;Q;24;S:$G(ENCONTR)'=""Y"" Y=""@1"";19.5;S:X=""Y"" Y=""@1"";Q;19.6///@;@1;Q;22//^S X=DT;32;31;40;S:'$D(^XUSEC(""ENEDSPEX"",DUZ)) Y=0;70;"
^DIE(1476,0)="DGRPT 10-10T REGISTRATION^3030306.1536^^2^^^3030306"
^DIE(1476,"AB","3^DGRPTX24",.01)="1^DGRPTX25"
^DIE(1476,"AB","^",.02)="3^DGRPTX"
^DIE(1476,"AB","^",.05)="5^DGRPTX9"
^DIE(1476,"AB","^",.111)="7^DGRPTX"
^DIE(1476,"AB","^",.1112)="4^DGRPTX4"
^DIE(1476,"AB","^",.112)="9^DGRPTX"
^DIE(1476,"AB","^",.113)="1^DGRPTX4"
^DIE(1476,"AB","^",.114)="5^DGRPTX4"
^DIE(1476,"AB","^",.115)="7^DGRPTX4"
^DIE(1476,"AB","^",.117)="1^DGRPTX9"
^DIE(1476,"AB","^",.121)="4^DGRPTX9"
^DIE(1476,"AB","^",.131)="2^DGRPTX9"
^DIE(1476,"AB","^",.132)="3^DGRPTX9"
^DIE(1476,"AB","^",.21011)="14^DGRPTX10"
^DIE(1476,"AB","^",.211)="6^DGRPTX9"
^DIE(1476,"AB","^",.212)="1^DGRPTX10"
^DIE(1476,"AB","^",.2125)="3^DGRPTX10"
^DIE(1476,"AB","^",.213)="5^DGRPTX10"
^DIE(1476,"AB","^",.214)="7^DGRPTX10"
^DIE(1476,"AB","^",.215)="9^DGRPTX10"
^DIE(1476,"AB","^",.216)="10^DGRPTX10"
^DIE(1476,"AB","^",.217)="11^DGRPTX10"
^DIE(1476,"AB","^",.219)="13^DGRPTX10"
^DIE(1476,"AB","^",.2201)="16^DGRPTX13"
^DIE(1476,"AB","^",.2207)="12^DGRPTX10"
^DIE(1476,"AB","^",.301)="7^DGRPTX17"
^DIE(1476,"AB","^",.302)="9^DGRPTX17"
^DIE(1476,"AB","^",.32102)="3^DGRPTX17"
^DIE(1476,"AB","^",.32103)="4^DGRPTX17"
^DIE(1476,"AB","^",.322013)="5^DGRPTX17"
^DIE(1476,"AB","^",.323)="4^DGRPTX24"
^DIE(1476,"AB","^",.325)="4^DGRPTX16"
^DIE(1476,"AB","^",.328)="5^DGRPTX16"
^DIE(1476,"AB","^",.33011)="2^DGRPTX16"
^DIE(1476,"AB","^",.3305)="1^DGRPTX13"
^DIE(1476,"AB","^",.331)="6^DGRPTX13"
^DIE(1476,"AB","^",.332)="8^DGRPTX13"
^DIE(1476,"AB","^",.333)="9^DGRPTX13"
^DIE(1476,"AB","^",.334)="11^DGRPTX13"
^DIE(1476,"AB","^",.335)="13^DGRPTX13"
^DIE(1476,"AB","^",.336)="14^DGRPTX13"
^DIE(1476,"AB","^",.337)="15^DGRPTX13"
^DIE(1476,"AB","^",.339)="1^DGRPTX16"
^DIE(1476,"AB","^",.361)="2^DGRPTX24"
^DIE(1476,"AB","^",.362)="6^DGRPTX17"
^DIE(1476,"AB","^",.36205)="11^DGRPTX17"
^DIE(1476,"AB","^",.36215)="12^DGRPTX17"
^DIE(1476,"AB","^",.36235)="1^DGRPTX24"
^DIE(1476,"AB","^",.525)="6^DGRPTX16"
^DIE(1476,"AB","^",.531)="8^DGRPTX16"
^DIE(1476,"AB","^",.532)="13^DGRPTX16"
^DIE(1476,"AB","^",.532,"///")=""
^DIE(1476,"AB","^",.533)="17^DGRPTX16"
^DIE(1476,"AB","^",.533,"///")=""
^DIE(1476,"AB","^",.535)="14^DGRPTX16"
^DIE(1476,"AB","^",.535,"///")=""
^DIE(1476,"AB","^",361)="3^DGRPTX24"
^DIE(1476,"AB","^",391)="4^DGRPTX"
^DIE(1476,"AB","^",1901)="5^DGRPTX"
^DIE(1476,"AB","^","@10")="6^DGRPTX"
^DIE(1476,"AB","^","@1112")="2^DGRPTX4"
^DIE(1476,"AB","^","@30")="15^DGRPTX10"
^DIE(1476,"AB","^","@40")="3^DGRPTX16"
^DIE(1476,"AB","^","@50")="10^DGRPTX17"
^DIE(1476,"AB","^","@53")="2^DGRPTX17"
^DIE(1476,"AB","^","@532")="12^DGRPTX16"
^DIE(1476,"AB","^","@533")="16^DGRPTX16"
^DIE(1476,"AB","^","@98")="5^DGRPTX24"
^DIE(1476,"AR",2,605)="1^DGRPTX26"
^DIE(1476,"AR",2,607)="2^DGRPTX26"
^DIE(1476,"DR",1,2)="K DGFIN;I $G(DGNEWPF) S Y=""@10"";.02;391;1901;@10;.111;S:X="""" Y=""@1112"";.112;S:X="""" Y=""@1112"";.113;@1112;S EASZIPLK=1;.1112;.114;S:'$$KEY^DGREGDD1(DUZ,DA) Y=.131;.115;.117;.131;.132;.121;.05;.211;S:X="""" Y=""@30"";.212;Q;.2125//NO;"
^DIE(1476,"DR",1,2,1)="I X=""Y"" S DGADD="".21"" D AD^DGRPE S Y=.21011;.213;S:X="""" Y=.216;.214;S:X="""" Y=.216;.215;.216;.217;.2207;.219;.21011;@30;I $S('$D(^DPT(DFN,.21)):1,$P(^(.21),U,1)="""":1,1:0) S Y=.331;.3305//NO;I X'=""Y"" S Y=.331;"
^DIE(1476,"DR",1,2,2)="S X=$S($D(^DPT(DA,.21)):^(.21),1:"""") S:X'="""" ^(.33)=$P(X_""^^^^^^^^^^^"",U,1,9)_U_$P(^(.33),U,10)_U_$P(X,U,11);S:$D(^DPT(DFN,.22)) $P(^(.22),U,1)=$P(^(.22),U,7);S Y=.33011;.331;S:X="""" Y=""@40"";.332;.333;S:X="""" Y=.336;.334;"
^DIE(1476,"DR",1,2,3)="S:X="""" Y=.336;.335;.336;.337;.2201;.339;.33011;@40;.325;.328;.525;I $P($G(^DPT(DFN,.53)),U)]"""" S Y=""@53"";.531;I X=""Y"" S Y=""@532"",DGPHMULT=1;I X=""N"" S Y=""@533"",DGPHMULT=1;S:X="""" Y=""@53"";@532;.532///^S X=""PENDING"";"
^DIE(1476,"DR",1,2,4)=".535///^S X=$$DIV^DGRPLE();S Y=""@53"";@533;.533///^S X=""VAMC"";.535///^S X=$$DIV^DGRPLE();@53;.32102;.32103;.322013;.362;.301;S:X'=""Y"" Y=""@50"";.302;@50;.36205;.36215;.36235;.361;361;.323;@98;S DGFIN="""";"
^DIE(1476,"DR",2,2.0361)=".01;"
^DIE(1476,"DR",99,1,9.2)="S (D,D0)=$QS(DIMQ,$QL(DIMQ)) I D,$D(^DGNT(28.11,D,0)) S X=$P(^(0),U) S:$D(^DPT(+X,0)) X=$P(^(0),U) S DWLC=DWLC+1,^DPT(DA,DV,DWLC,0)=X"
^DIE(1476,"DR",99,1,9.3)="N DIMQ,DIMSTRT,DIMSCNT S (DIMQ,DIMSTRT)=$NA(^DGNT(28.11,""B"",I(0,0))),DIMSCNT=$QL(DIMQ) F  S DIMQ=$Q(@DIMQ) Q:DIMQ=""""  Q:$NA(@DIMQ,DIMSCNT)'=DIMSTRT   X DR(99,1,9.2) Q:'$D(D)  S D=D0"
^DIE(1476,"ROU")="^DGRPTX"
^DIE(1476,"ROUOLD")="DGRPTX"
^DIE(1477,0)="IBD CREATE FORM TRACKING^2970321.155^@^357.96^^@^2970423"
^DIE(1477,"AB","^",.02)="1^IBDX96"
^DIE(1477,"AB","^",.02,"///")=""
^DIE(1477,"AB","^",.03)="2^IBDX96"
^DIE(1477,"AB","^",.03,"///")=""
^DIE(1477,"AB","^",.04)="3^IBDX96"
^DIE(1477,"AB","^",.04,"///")=""
^DIE(1477,"AB","^",.05)="4^IBDX96"
^DIE(1477,"AB","^",.05,"///")=""
^DIE(1477,"AB","^",.07)="5^IBDX96"
^DIE(1477,"AB","^",.07,"///")=""
^DIE(1477,"AB","^",.08)="6^IBDX96"
^DIE(1477,"AB","^",.08,"///")=""
^DIE(1477,"AB","^",.09)="1^IBDX961"
^DIE(1477,"AB","^",.09,"///")=""
^DIE(1477,"AB","^",.1)="2^IBDX961"
^DIE(1477,"AB","^",.1,"///")=""
^DIE(1477,"AB","^",.11)="3^IBDX961"
^DIE(1477,"AB","^",.11,"///")=""
^DIE(1477,"AB","^",.14)="5^IBDX961"
^DIE(1477,"AB","^",.14,"///")=""
^DIE(1477,"AB","^","@99")="6^IBDX961"
^DIE(1477,"DR",1,357.96)=".02////^S X=DFN;.03////^S X=APPT;.04////^S X=$S(INTERNAL:FORMTYPE,1:"""");.05////^S X=$$NOW^XLFDT;.07////^S X=SOURCE;.08////^S X=$S('INTERNAL:FORMTYPE,1:"""");.09////^S X=EXID;.1////^S X=$G(CLIN);.11////1;"
^DIE(1477,"DR",1,357.96,1)="I $G(^DPT(DFN,""S"",APPT,0)) S Y=""@99"";.14////1;@99;"
^DIE(1477,"ROU")="^IBDX96"
^DIE(1477,"ROUOLD")="IBDX96"
^DIE(1478,0)="IBD EDIT FORM TRACKING STATUS^2970321.1628^@^357.96^^@^2970423"
^DIE(1478,"AB","^",.06)="2^IBDX97"
^DIE(1478,"AB","^",.06,"///")=""
^DIE(1478,"AB","^",.11)="4^IBDX97"
^DIE(1478,"AB","^",.11,"///")=""
^DIE(1478,"AB","^",.12)="5^IBDX97"
^DIE(1478,"AB","^",.12,"///")=""
^DIE(1478,"AB","^","@7")="3^IBDX97"
^DIE(1478,"DR",1,357.96)="I $P(^IBD(357.96,DA,0),""^"",6)'="""" S Y=""@7"";.06////^S X=$$NOW^XLFDT;@7;.11////^S X=$S($G(STAT):STAT,1:2);.12////^S X=$G(ERR);"
^DIE(1478,"ROU")="^IBDX97"
^DIE(1478,"ROUOLD")="IBDX97"
^DIE(1479,0)="PRPF PURGE PARAMETERS^2920319.1613^@^443.2^^@^2920319"
^DIE(1479,"DR",1,443.2)=".01;2;3;4;5;6;"
^DIE(1480,0)="PRCH PC DIRECT DELIVERY^3060515.0902^@^442^^@^3060515"
^DIE(1480,"DIAB",3,0,442,3)="SUBSTATION;REQ"
^DIE(1480,"DIAB",6,0,442,8)="PCDO VENDOR;REQ"
^DIE(1480,"DIAB",7,1,442.01,9)="FEDERAL SUPPLY CLASSIFICATION;T"
^DIE(1480,"DR",1,442)="Q:'$D(PRC(""SITE""));S (PRCHN(""SVC""),PRCHN(""CC""),PRCHN(""SC""),PRCHN(""INV""))="""",PRCHN(""SFC"")=+$P(^PRC(442,DA,0),U,19),PRCHN(""FOB"")=$S($D(^(1)):$P(^(1),U,6),1:""""),PRCHN(12)=$S($D(^PRC(442,DA,12)):^(12),1:"""");"
^DIE(1480,"DR",1,442,1)="S PRCHNVF="""",PRCHPONO=$P(^PRC(442,DA,0),U,1),PRCHSTN=$P(PRCHPONO,""-"") S PRCHIEN=DA;S PRCX=$O(^PRC(411,PRC(""SITE""),1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,PRC(""SITE""),1,PRCX,0)),U) K PRCX;D EN2^PRCHNPO6;"
^DIE(1480,"DR",1,442,2)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);16////^S X=DUZ;56////^S X=DUZ;.02///^S X=25;48///^S X=""P"";63///^S X=1;S X=$P($G(^PRC(442,DA,1)),U) I X>0,$P($G(^PRC(440,X,3)),U,2)=""Y"" S PRCHEDI="""";I '$D(^PRC(411,""UP"",PRC(""SITE""))) S Y=.1;"
^DIE(1480,"DR",1,442,3)="S OSUB=$P($G(^PRC(442,DA,23)),U,7);I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($G(^(0)),U,10) I +X=OSUB W !,""SUBSTATION: "",$P(^PRC(411,$P(^PRC(442,DA,23),U,7),0),U) S Y=.1;31R~;"
^DIE(1480,"DR",1,442,4)="I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) I X'=OSUB W !,?5,""Sub-station cannot be changed because the attached 2237"",!,?5,""would then have a different sub-station."",! S $P(^PRC(442,DA,23),U,7)=OSUB S Y=31;"
^DIE(1480,"DR",1,442,5)="S PRCX=$O(^PRC(411,X,1,0)) S:$G(PRCX)]"""" PRCY=$P($G(^PRC(411,X,1,PRCX,0)),U) K PRCX;Q;.1//TODAY;S PRCHN(""MP"")=$S($D(^PRCD(442.5,+X,0)):$P(^(0),U,3),1:""""),PRCHN(""INV"")=$S(PRCHN(""INV"")]"""":PRCHN(""INV""),1:""FMS"");"
^DIE(1480,"DR",1,442,6)="S PRCHCDNO=$P($G(^PRC(442,DA,23)),U,8);D LOOK^PRCSPC;I (X="""")!(X[""^"") S ERRFLG=3,Y=0;I $G(PRCHXXX)="""" S ERRFLG=3,Y=0;46////^S X=$G(PRCHXXX);"
^DIE(1480,"DR",1,442,7)="I PRCHCDNO'="""",X'=PRCHCDNO W !,?5,""Please verify the accounting information for the new purchase card."",!;"
^DIE(1480,"DR",1,442,8)="I X]"""" S PRCHP0=^PRC(440.5,X,0),PRCHFCP=$P(PRCHP0,U,2),PRCHCC=$P(PRCHP0,U,3),PRCHBOC1=$P(PRCHP0,U,4),PRCHCD=$P(PRCHP0,U),PRCHCDNO=+X,PRCHHLDR=$P(PRCHP0,U,8);55///^S X=PRCHCD;.08//^S X=""N"";.04//^S X=PRCHN(""INV"");@33;53R~;"
^DIE(1480,"DR",1,442,9)="I $P($G(^PRC(440,($P(^PRC(442,D0,23),U,14)),2)),U,11)'=""Y"" W !,?5,""This vendor is not a guarenteed delivery vendor."" S $P(^PRC(442,DA,23),U,14)="""" K X S Y=""@33"";"
^DIE(1480,"DR",1,442,10)="S PRCHOV3=$G(^PRC(440,+^PRC(442,D0,1),3)) S:$P(PRCHOV3,""^"",12)=""P"" Y=""@20"";I $G(PRCFLAG)=1 S $P(^PRC(442,DA,23),U,14)="""" K X S Y=53;S PRCHVEN=+X;5////^S X=PRCHVEN;@20;18.6//^S X=""N"";I X=""N"" S Y=""@10"";18.7;@10;8//^S X=PRCHN(""SC"");"
^DIE(1480,"DR",1,442,11)="I ""46910""'[X K:0 DIC(""DR"") D ^PRCHNPO3 S Y=""@1"";.25;D ^PRCHNPO3;@1;1//^S X=PRCHFCP;I $D(^PRCS(410,+$P(^PRC(442,DA,0),""^"",12),0)) S X=$P($P(^(0),U,1),""-"",4) I +X=+$P(^PRC(442,DA,0),U,3) W !,""FCP: "",$P(^(0),U,3) S Y=""@2"";S X=PRCHFCP;"
^DIE(1480,"DR",1,442,12)="S PRCHN(""SFC"")=$P(^PRC(442,DA,0),U,19) I PRCHN(""SFC"")'="""" W !,""You cannot use a special control point for this type of order."" S Y=""@1"";S PRC(""CP"")=$P(^PRC(442,DA,0),U,3);@2;"
^DIE(1480,"DR",1,442,13)="I $G(PRC(""BBFY""))="""" S PRC(""BBFY"")=$$BBFY^PRCSUT(PRC(""SITE""),PRC(""FY""),$P(^PRC(442,DA,0),U,3));26///^S X=PRC(""BBFY"");D EN2^PRCHNPO3;2//^S X=PRCHCC;@88;5.2//^S X=PRCHN(""SVC"");I $D(^PRC(442,DA,1)),$P(^(1),U,18)]"""" S Y=""@3"";"
^DIE(1480,"DR",1,442,14)=".3//^S X=""E"";@3;52;5.3;5.6////^S X=""PATIENT"";5.4;6.2;6.4;S PRCHN(""FOB"")=X;Q;7//TODAY+10;8.2//^S X=""N/A"";8.3;13;S PRCHSHP=+X;I $P(^PRC(442,DA,0),U,19)'=2 S Y=""@98"";S PRCHSBOC=$P($G(^PRCD(420.2,2299,0)),U);13.05////^S X=PRCHSBOC;"
^DIE(1480,"DR",1,442,15)="S Y=""@100"";@98;13.05;@100;S:'$D(PRCHSHP) PRCHSHP=$P(^PRC(442,DA,0),U,13) I '(PRCHN(""FOB"")=""O""&((PRCHSHP>250)!(PRCHSHP=0))) S Y=""@99"";13.2;13.4;13.3;@99;97//^S X=""A"";16//^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");"
^DIE(1480,"DR",1,442,16)="S PRCHDUZ1=X I $P(^PRC(442,DA,0),U,2)=25,'$D(^PRC(440.5,""H"",X)) W *7,!,""This user is not a purchase card user."" S Y=16;61////^S X=PRCHDUZ1;@25;K PRCHDUZ,PRCHDUZ1;40;24;20;K PRCHANS,PRCHTPO,PRCHSEEN,PRCHMORE,PRCHQTY,PRCSAVE;"
^DIE(1480,"DR",2,442.01)="S PRCHREC=DA,PRCHQUAN="""",Z="""",PRCHTOT=0;.01;K PRCSAVE;S PRCHINUM=DA,PRCHOLD=$P($G(^PRC(442,PRCHIEN,2,PRCHINUM,0)),U,2);1.5;I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=4) S PRCSAVE=""G"",Y=""@101"";"
^DIE(1480,"DR",2,442.01,1)="I X=""""&($L($P($G(^PRC(442,DA(1),2,DA,2)),U,3))=5) S PRCSAVE=""S"",Y=""@101"";I X=""""&($G(PRCSAVE)="""") D ^PRCHAAC4 I $D(PRCHANS) S PRCSAVE=PRCHANS;@101;I $G(PRCSAVE)=""^"" K PRCHANS,PRCSAVE S Y=0;1;"
^DIE(1480,"DR",2,442.01,2)="I '$D(^PRC(442,DA(1),2,DA,1)) W $C(7),!,""Description is Required!!"" S Y=1;I $D(^PRC(442,DA(1),1)) S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),2,+^PRC(442,DA(1),1),0)):^(0),1:"""");"
^DIE(1480,"DR",2,442.01,3)="I Z'="""" W:$P(Z,U,12)'="""" !,""    Minimum Order Qty.: "",$P(Z,U,12) W:$P(Z,U,9) !,""    Maximum Order Qty.: "",$P(Z,U,9) W:$P(Z,U,11) !,""    Required Order Multiple: "",$P(Z,U,11) S PRCHQUAN=Z K Z;"
^DIE(1480,"DR",2,442.01,4)="2//^S X=$S($P(PRCHQUAN,U,12)'="""":$P(PRCHQUAN,U,12),$P(PRCHQUAN,U,11)'="""":$P(PRCHQUAN,U,11),1:"""");I X<PRCHOLD N I F I=0:0 S I=$O(^PRC(442.8,""AC"",PRCHPONO,PRCHINUM,I)) Q:'I  S PRCHTOT=PRCHTOT+$P($G(^PRC(442.8,I,0)),U,5);"
^DIE(1480,"DR",2,442.01,5)="I $G(PRCHTOT)>X W !!!!!,$C(7),""****Delivery schedule total for this item ("",PRCHTOT,"") EXCEEDS order quantity ("",X,"")."",!,""Edit delivery schedule(s) now."" S PRCHFLG=1,PRCHQTY=X S Y=""@16"";@44;"
^DIE(1480,"DR",2,442.01,6)="I $P(PRCHQUAN,U,12)'="""" I X<$P(PRCHQUAN,U,12) W !,""QUANTITY is less than the Minimum Order Quantity of "",$P(PRCHQUAN,U,12),$C(7) S Y=2;"
^DIE(1480,"DR",2,442.01,7)="I $P(PRCHQUAN,U,9)'="""" I X>$P(PRCHQUAN,U,9) W !,""QUANTITY is more than the Maximum Order Quantity of "",$P(PRCHQUAN,U,9),$C(7) S Y=2;"
^DIE(1480,"DR",2,442.01,8)="I $P(PRCHQUAN,U,11)'="""" I X#$P(PRCHQUAN,U,11)'=0 W !,""QUANTITY is not a Required Order Multiple value of "",$P(PRCHQUAN,U,11),$C(7) S Y=2;3;5;I $D(^PRC(442,DA(1),1)),$P(^(1),U,20)=""Y"" S Y=""@6"";D TSTREQ1^PRCHNPO9;3.1;9.4;S:X']"""" Y=9;"
^DIE(1480,"DR",2,442.01,9)="S DIE(""NO^"")=""A"";9.7;K DIE(""NO^"");9;9.5;@6;8T~;I $G(PRCSAVE)'=""^"" D EN10^PRCHNPO7;"
^DIE(1480,"DR",2,442.01,10)="S PRCHFCP=+$P(^PRC(442,DA(1),0),U,3),PRCHN(""COM"")=$S($D(^PRC(441.2,+X,0)):$P(^(0),U,4),1:"""") S:$E($P($G(^PRC(420,PRCHSTN,1,PRCHFCP,0)),U,18),1,2)=11 Y=41 S:(PRCHN(""COM"")'=1)&($E($P($G(^(0)),U,18),1,2)'=11) Y=4;9.3;"
^DIE(1480,"DR",2,442.01,11)="D TSTREQ2^PRCHNPO9;40;41//^S Z=$S($D(^PRC(441,+$P(^PRC(442,DA(1),2,DA,0),U,5),3)):^(3),1:""""),X=$P(Z,U,7);42;4;@87;36.3;36.6;@5;"
^DIE(1480,"DR",2,442.01,12)="S PRCHTOT=0,PRCHSCN="""" F I=0:0 S PRCHSCN=$O(^PRC(442.8,""B"",PRCHPONO,PRCHSCN)) Q:PRCHSCN=""""  I $P(^PRC(442.8,PRCHSCN,0),U,2)=DA S PRCHTOT=PRCHTOT+$P(^(0),U,5);S PRCHQTY=$P(^PRC(442,DA(1),2,DA,0),U,2);"
^DIE(1480,"DR",2,442.01,13)="I PRCHTOT>PRCHQTY S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item # = "",PRCHLINO,!,""Orig. Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),! S Y=""@555"";"
^DIE(1480,"DR",2,442.01,14)="W !!,""Enter/Edit Delivery Schedule for this Item?  NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""'[$E(X) Y=""@56"" W ""  ""_$S(""Yy""[$E(X):""(YES)"",""Nn""[$E(X):""(NO)"",1:"""");@16;"
^DIE(1480,"DR",2,442.01,15)="S PRCHDA1=DA(1),PRCHDA=DA,PRCHLINO=$P(^PRC(442,DA(1),2,PRCHREC,0),U) W !,""Line Item #="",PRCHLINO,!,""Orig. Quantity Ordered: ""_$P(^PRC(442,DA(1),2,PRCHREC,0),U,2),!;"
^DIE(1480,"DR",2,442.01,16)="I PRCHTOT=PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" equals order quantity of "",PRCHQTY,""."",!,""You may edit delivery schedule(s), but cannot add a new schedule."",!;@555;"
^DIE(1480,"DR",2,442.01,17)="I PRCHTOT>PRCHQTY W !,""Delivery schedule quantity of "",PRCHTOT,"" EXCEEDS order quantity of "",PRCHQTY,"".  You must edit"",!,""one or more schedules so that the total equals no more than "",PRCHQTY,""."",! S Y=""@55"";"
^DIE(1480,"DR",2,442.01,18)="S:$D(PRCHSEEN) Y=""@55"";S PRCHSEEN=1 W !!,""To delete a schedule, zero out the quantity to be delivered. To add a new"",!,""delivery schedule do the following:"",!!;"
^DIE(1480,"DR",2,442.01,19)="W ""a. If there is no delivery schedule already in file answer 'Yes' when asked if     you are adding a new delivery schedule."";"
^DIE(1480,"DR",2,442.01,20)="W !,""b. If there is only one delivery schedule already in the file you will see         'OK? YES//' answer 'No' and then answer 'Yes' when asked if you are adding a    new delivery schedule."";"
^DIE(1480,"DR",2,442.01,21)="W !,""c. If there is more than one delivery schedule in the file, hit <return> key at    'CHOOSE' prompt and answer 'Yes' when asked if you are adding a new delivery    schedule."";@55;"
^DIE(1480,"DR",2,442.01,22)="S:$G(PRCHDA) PRCHINUM=PRCHDA S PRCHQTY=$P(^PRC(442,PRCHIEN,2,PRCHINUM,0),U,2);"
^DIE(1480,"DR",2,442.01,23)="I $G(PRCHFLG),PRCHTOT>PRCHQTY W !!,""Delivery schedule total of "",PRCHTOT,"" EXCEEDS ordered quantity."",!,""of "",PRCHQTY,"".  Adjust delivery schedule(s)."" S Y=""@16"";"
^DIE(1480,"DR",2,442.01,24)="I $G(PRCHFLG) S PRCHFLG=0 W !!!!,""****Returning to Item Multiple edit session."" S Y=""@44"";I PRCHTOT>PRCHQTY S Y=""@555"";"
^DIE(1480,"DR",2,442.01,25)="W !!,""Enter/Edit Another Delivery Schedule for this Item? NO// "" R X:DTIME S:'$T X=""^"" S:X="""" X=""N"" S:X[""?"" Y=""@5"" S:""Yy?""[$E(X) Y=""@16"";@56;K PRCHTOT,PRCHSCN;3.5;"
^DIE(1480,"DR",2,442.12)=".01;"
^DIE(1480,"DR",2,442.15)=".01;"
^DIE(1481,0)="PRCHAMENDPRO EDIT^2970603.1203^@^443.6^^@^2970708"
^DIE(1481,"DR",1,443.6)="S PRCHDUZ=$P(^VA(200,DUZ,0),U,1);50///^S X=PRCHAM;"
^DIE(1481,"DR",2,443.67)="Q;1////^S X=DT;S PRCHAU=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) I +$G(PRCHAU)=0 S PRCHAU=4;3///^S X=""D"";"
^DIE(1481,"DR",2,443.67,1)="I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) I PRCHAU'=$P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,1),U,4)="""";I +$G(PRCHAU)=5!(+$G(PRCHAU)=15) S PRCHAU=4;I X=5!(X=15) D CAN^PRCHMA3 I NOCAN S ER=1;"
^DIE(1481,"DR",2,443.67,2)="I $G(ER)=1 W !,$S($D(PRCHREQ):""REQUISITION"",1:""PURCHASE ORDER"")_"" HAS BEEN RECEIVED, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;I X=5!(X=15) D PAID^PRCHINQ I $G(PAID) S ER=1;"
^DIE(1481,"DR",2,443.67,3)="I $G(ER) W !,?5,""THERE HAS BEEN PAYMENT MADE FOR THIS PURCHASE CARD ORDER, CANNOT CANCEL !"",$C(7) S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S ER=0 S Y=3;"
^DIE(1481,"DR",2,443.67,4)="I $P($G(^PRC(443.6,PRCHPO,6,PRCHAM,0)),U,4)=5!($P($G(^(0)),U,4)=15) D ONLY^PRCHMA0 I $G(PRCHON)=0 S $P(^PRC(443.6,PRCHPO,6,PRCHAM,0),U,4)=PRCHAU S Y=3;S:$D(PRCHREQ) Y=""@5"";4////Prosthetic Order Amendment;5///^S X=""NO"";"
^DIE(1481,"DR",2,443.67,5)="S:X'=""Y"" Y=""@5"";@5;I '$G(PRCHAUTH) S Y=""@6"";6////^S X=DUZ;S Y=""@7"";@6;6////^S X=$S($D(PRCHDUZ):PRCHDUZ,1:"""");@7;S FLGUP=1;"
^DIE(1482,0)="IBCE ADD/EDIT LOCAL FORM^2960708.1312^@^353^^@^2960917"
^DIE(1482,"DR",1,353)="S DIPA(""FTYPE"")=$P($G(^IBE(353,DA,2)),U,2);.01;S:DIPA(""FTYPE"")'=""P"" Y=""@40"";2.03;@40;I DIPA(""FTYPE"")=""S"" S Y=""@45"";50;51;53;52;@45;54;55;S:$S(DIPA(""FTYPE"")'=""T"":1,$P($G(^IBE(353,DA,2)),U,5):1,1:0) Y=""@50"";2.07;@50;2.06;"
^DIE(1483,0)="IBCE DEFINE LOCAL ELEMENT^2960627.1337^@^364.5^^@^2960822"
^DIE(1483,"DR",1,364.5)="K IBFM,IBTYPE,IBNM I $P($G(^IBA(364.5,DA,0)),U,2)=""N"" W !,*7,""YOU CANNOT EDIT A NATIONAL ENTRY!!"" S Y=""@99"";S IBNM=$P($G(^IBA(364.5,DA,0)),U);@5;.01;I $E(X,1,2)'=""N-"" S Y=""@20"";W !,*7,""ONLY NATIONAL FIELDS CAN START WITH 'N-'"";"
^DIE(1483,"DR",1,364.5,1)=".01///^S X=$G(IBNM);S Y=""@5"";@20;.02///L;.05;.03;S IBTYPE=X S:IBTYPE'=""E"" Y=""@30"";.04//^S X=""I"";S Y=""@60"";@30;.04////I;S:$G(IBTYPE)=""C"" Y=""@50"";@40;.06;S IBFM=X;.07//^S X=""I"";"
^DIE(1483,"DR",1,364.5,2)="I $G(IBFM)="""" W !,*7,""PLEASE ENTER A FILEMAN FIELD FIRST!!"" S Y=""@40"";S Y=""@90"";@50;.08;S Y=""@90"";@60;1;@90;2;3;@99;"
^DIE(1484,0)="IBCE ADD/EDIT LOCAL FORM FIELD^3000414.1431^@^364.6^^@^3010118"
^DIE(1484,"DR",1,364.6)="S DIPA(""CALC"")=(+$P($G(^IBA(364.6,DA,0)),U,8)[""."");I DIPA(""CALC"")!$P($G(^IBA(364.6,DA,0)),U,11) S Y=""@5"";.11////0;@5;I $P($G(^IBA(364.6,DA,0)),U,3),DA'=$P(^(0),U,3) S Y=""@50"";"
^DIE(1484,"DR",1,364.6,1)="I $P($G(^IBE(353,+$G(^IBA(364.6,DA,0)),2)),U,2)'=""S"" S Y=""@10"";.04////1;S Y=""@15"";@10;.04;@15;.05;.08;I X,(X'=(X\1)) W !,*7,""Warning - field will not output any data - use as calculate only"";"
^DIE(1484,"DR",1,364.6,2)="S DIPA(""CALC"")=(+$P($G(^IBA(364.6,DA,0)),U,8)[""."");.06;.09;I $P($G(^IBA(364.6,DA,0)),U,2)'=""L"" S Y=""@25"";.07///Y;S Y=""@50"";@25;.07;@50;.1;@80;I $G(DIPA(""CALC"")) S Y=""@99"";.11;I $S(X:1,1:'$G(DIPA(""CALC""))) S Y=""@99"";.11////1;"
^DIE(1484,"DR",1,364.6,3)="W !,*7,""This field must be CALCULATE ONLY if column/piece is not a whole number"";S Y=""@80"";@99;"
^DIE(1485,0)="IBCE EDIT FIELD CONTENT^2960822.1459^@^364.7^^@^2970407"
^DIE(1485,"DR",1,364.7)="S DIPA(""TYPE"")=$P($G(^IBE(353,+$G(^IBA(364.6,+$G(^IBA(364.7,DA,0)),0)),2)),U,2),DIPA(""ELE"")=$P($G(^IBA(364.7,DA,0)),U,3),DIPA(""EDITABLE"")=$P($G(^(0)),U,9)=""E"",DIPA(""PROMPT"")=$P($G(^(0)),U,4);.02///L;@5;.03;"
^DIE(1485,"DR",1,364.7,1)="S DIPA(""ELE"")=X I DIPA(""TYPE"")'=""S"" S Y=""@30"";S DIPA(""EDITABLE"")=1;I DIPA(""ELE"")="""" S Y=""@10"";"
^DIE(1485,"DR",1,364.7,2)="S DIPA(""FMFLD"")=$$FMFLD^IBCEFG7(DA) I $S($P(DIPA(""FMFLD""),""#"",2)<10000:0,1:+$P(^DD(+DIPA(""FMFLD""),+$P(DIPA(""FMFLD""),""#"",2),0),U,4)'<10000) S Y=""@10"";S DIPA(""EDITABLE"")="""";"
^DIE(1485,"DR",1,364.7,3)="W !,*7,""This must be a display only data element"",!,""Only local Fileman-type fields on nodes > 10000 and #'ed > 10000 are editable!!"",!;.09////D;.1///@;@10;I $P(^IBA(364.7,DA,0),U,9)'="""" S Y=""@15"";.09////E;@15;.04;"
^DIE(1485,"DR",1,364.7,4)="S DIPA(""PROMPT"")=X I DIPA(""ELE"")'="""" S Y=""@30"";.09////D;.1///@;1///@;@30;.05;.06;.07//N;I DIPA(""TYPE"")'=""S"" S Y=""@40"";I DIPA(""ELE"")="""" S Y=""@99"";I 'DIPA(""EDITABLE"") S Y=""@40"";.09;.1;@40;1;3;@99;"
^DIE(1486,0)="LR WKLD EDIT ALL^3020716.1251^^64^^^3020716"
^DIE(1486,"DR",1,64)=".01;.02;.04;2;4;5;6;7;8;9;11;12;13;14;16;18;19;20;21;24;26;"
^DIE(1486,"DR",2,64.01)=".01:2;30;"
^DIE(1486,"DR",2,64.018)=".01:4;6;"
^DIE(1486,"DR",2,64.019)=".01;"
^DIE(1486,"DR",3,64.02)="4;"
^DIE(1487,0)="USR CLASS EDIT^2970303.1407^^8930.3^^^2970703"
^DIE(1487,"DIAB",1,0,8930.3,0)=".01;REQ"
^DIE(1487,"DR",1,8930.3)=".01R~;.02///^S X=$P($G(^USR(8930,+$G(USRDA),0)),U);.03;.04;"
^DIE(1488,0)="USR DEFINE AUTHORIZATIONS^3010308.1359^^8930.1^^^3010416"
^DIE(1488,"DR",1,8930.1)="N TIUFPRIV S TIUFPRIV=1;@1;N USRDDEF,USRACT0,USRVERB,USRVMOD,USREND,USRPHRAS,USRFLAG;.01;S USRDDEF=X;S DIC(""S"")=""I $P(^USR(8930.6,+Y,0),U,4)'=""""DEFN"""""";.02;K DIC(""S"");.03;S:'X Y=.04;"
^DIE(1488,"DR",1,8930.1,1)="S USRACT0=^USR(8930.8,X,0),USRVERB=$P(USRACT0,U,5),USRVMOD=$P(USRACT0,U,7),USREND=$S($L(USRVMOD):""     ""_USRVMOD_""."",1:"".""),USRPHRAS=$G(^USR(8930.8,X,3));S USRFLAG=$S($P(USRACT0,U)=""ATTACH ID ENTRY"":1,1:0);"
^DIE(1488,"DR",1,8930.1,2)="W:($L(USRPHRAS)!$L(USRVMOD)) !,""     This rule authorizes users to "",USRVERB,"" a note of type: "",!,""         "",$P(^TIU(8925.1,USRDDEF,0),U);W:($L(USRPHRAS)!$L(USRVMOD)&(USREND'=""."")) ! W:($L(USRPHRAS)!$L(USRVMOD)) USREND;"
^DIE(1488,"DR",1,8930.1,3)="W:USRFLAG&($P(^TIU(8925.1,USRDDEF,0),U,4)=""CL"") ""??"",!?7,""Rules such as this one which permit notes"",!?7,""to be ID PARENTS may not be written for CLASSES."",!,""Please select a TITLE or a DOCUMENT CLASS:"";"
^DIE(1488,"DR",1,8930.1,4)="S:USRFLAG&($P(^TIU(8925.1,USRDDEF,0),U,4)'=""DOC"")&($P(^TIU(8925.1,USRDDEF,0),U,4)'=""DC"") Y=""@1"";"
^DIE(1488,"DR",1,8930.1,5)="W:USRFLAG !?7,""WARNING: Notes used as ID PARENTS may NOT be used as ID children."",!?16,""Rules such as this one which permit notes to be ID PARENTS"",!?16,""OVERRIDE any existing rules permitting them to be children."";.04;.05;.06;1;"
^DIE(1489,0)="USR MEMBERSHIP EDIT^2970303.1405^^8930.3^^^2970619"
^DIE(1489,"DIAB",1,0,8930.3,0)=".02//^S X=$P($G(^USR(8930,+$G(USRCLASS),0)),U);REQ"
^DIE(1489,"DR",1,8930.3)=".02R~//^S X=$P($G(^USR(8930,+$G(USRCLASS),0)),U);.03;.04;"
^DIE(1490,0)="USR CLASS STRUCTURE EDIT^2970304.113^@^8930^^@^2970304"
^DIE(1490,"DR",1,8930)=".01;.04//^S X=$$MIXED^USRLS(X);.02;.03;S USRSUBS=+$P($G(^USR(8930,+D0,1,0)),U,3);1;I +$P($G(^USR(8930,+D0,1,0)),U,3)'=+$G(USRSUBS) S USRCHNG=1;"
^DIE(1490,"DR",2,8930.01)=".01;I X]"""" S USRCHNG=1;"
^DIE(1491,0)="TIU ENTER/EDIT DS^3050902.1039^^8925^^^3050902"
^DIE(1491,"AB","^",.02)="1^TIUEDS"
^DIE(1491,"AB","^",.02,"///")=""
^DIE(1491,"AB","^",.03)="2^TIUEDS"
^DIE(1491,"AB","^",.03,"///")=""
^DIE(1491,"AB","^",.07)="4^TIUEDS"
^DIE(1491,"AB","^",.07,"///")=""
^DIE(1491,"AB","^",.08)="7^TIUEDS"
^DIE(1491,"AB","^",.08,"///")=""
^DIE(1491,"AB","^",.09)="9^TIUEDS"
^DIE(1491,"AB","^",.12)="7^TIUEDS5"
^DIE(1491,"AB","^",.12,"///")=""
^DIE(1491,"AB","^",1201)="17^TIUEDS5"
^DIE(1491,"AB","^",1201,"///")=""
^DIE(1491,"AB","^",1202)="12^TIUEDS"
^DIE(1491,"AB","^",1204)="6^TIUEDS10"
^DIE(1491,"AB","^",1204,"///")=""
^DIE(1491,"AB","^",1205)="12^TIUEDS10"
^DIE(1491,"AB","^",1205,"///")=""
^DIE(1491,"AB","^",1208)="7^TIUEDS10"
^DIE(1491,"AB","^",1208,"///")=""
^DIE(1491,"AB","^",1209)="1^TIUEDS10"
^DIE(1491,"AB","^",1212)="13^TIUEDS10"
^DIE(1491,"AB","^",1212,"///")=""
^DIE(1491,"AB","^",1301)="9^TIUEDS5"
^DIE(1491,"AB","^",1301,"///")=""
^DIE(1491,"AB","^",1302)="11^TIUEDS5"
^DIE(1491,"AB","^",1302,"///")=""
^DIE(1491,"AB","^",1303)="14^TIUEDS5"
^DIE(1491,"AB","^",1303,"///")=""
^DIE(1491,"AB","^",1307)="3^TIUEDS5"
^DIE(1491,"AB","^",1401)="9^TIUEDS10"
^DIE(1491,"AB","^",1401,"///")=""
^DIE(1491,"AB","^",1402)="10^TIUEDS10"
^DIE(1491,"AB","^",1402,"///")=""
^DIE(1491,"AB","^",1404)="11^TIUEDS10"
^DIE(1491,"AB","^",1404,"///")=""
^DIE(1491,"AB","^",1506)="8^TIUEDS10"
^DIE(1491,"AB","^",1506,"///")=""
^DIE(1491,"AB","^","@1")="5^TIUEDS"
^DIE(1491,"AB","^","@10")="5^TIUEDS10"
^DIE(1491,"AB","^","@2")="8^TIUEDS"
^DIE(1491,"AB","^","@3")="2^TIUEDS5"
^DIE(1491,"AB","^","@4")="8^TIUEDS5"
^DIE(1491,"AB","^","@5")="12^TIUEDS5"
^DIE(1491,"AB","^","@6")="15^TIUEDS5"
^DIE(1491,"AB","^","@7")="18^TIUEDS5"
^DIE(1491,"AB","^","@8")="14^TIUEDS"
^DIE(1491,"AB","^","@9")="3^TIUEDS10"
^DIE(1491,"AR",8925,247)="1^TIUEDS14"
^DIE(1491,"DIAB",3,0,8925,1)="1202//^S X=$$PERSNAME^TIULC1(DUZ);REQ"
^DIE(1491,"DIAB",6,0,8925,1)="1202//^S X=$S($G(TIUAUTH):$$PERSNAME^TIULC1(TIUAUTH),1:"""");REQ"
^DIE(1491,"DIAB",7,0,8925,3)="1209;REQ"
^DIE(1491,"DIAB",8,0,8925,1)="1307;REQ"
^DIE(1491,"DR",1,8925)=".02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);I $P(^TIU(8925,+DA,0),U,7)]"""" S Y=""@1"";.07////^S X=$P(TIU(""EDT""),U);@1;I $P(^TIU(8925,+DA,0),U,8)]"""" S Y=""@2"";.08////^S X=$P(TIU(""LDT""),U);@2;.09//routine;"
^DIE(1491,"DR",1,8925,1)="I +$G(^TIU(8925,+DA,15)) S Y=""@3"";I +$$PROVIDER^TIUPXAP1(DUZ,DT)'>0 S Y=""@8"";1202R~//^S X=$$PERSNAME^TIULC1(DUZ);S Y=""@3"";@8;1202R~//^S X=$S($G(TIUAUTH):$$PERSNAME^TIULC1(TIUAUTH),1:"""");@3;1307R~;Q;"
^DIE(1491,"DR",1,8925,2)="S TIUREFDT=$$REFDATE^TIULC1(.TIU,+X);I +$P(TIUREFDT,U,2)'>0 S Y=""@4"";.12////^S X=1;@4;1301////^S X=$P(TIUREFDT,U);I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@6"";"
^DIE(1491,"DR",1,8925,3)="1303////^S X=""D"";@6;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@7"";1201////^S X=$$NOW^TIULC;@7;I +$$PROVIDER^TIUPXAP1(DUZ,DT)'>0 S Y=""@9"";1209R~;S Y=""@10"";@9;1209;@10;1204////^S X=$$WHOSIGNS^TIULC1(DA);1208////^S X=$$WHOCOSIG^TIULC1(DA);"
^DIE(1491,"DR",1,8925,4)="1506////^S X=$S(+$P($G(^TIU(8925,+DA,12)),U,4)=+$P($G(^TIU(8925,+DA,12)),U,9):0,1:1);1401////^S X=$G(TIU(""AD#""));1402////^S X=$P($G(TIU(""TS"")),U);1404////^S X=$P($G(TIU(""SVC"")),U);1205////^S X=$P($G(TIU(""LOC"")),U);"
^DIE(1491,"DR",1,8925,5)="1212////^S X=$P($G(TIU(""INST"")),U);"
^DIE(1491,"ROU")="^TIUEDS"
^DIE(1491,"ROUOLD")="TIUEDS"
^DIE(1492,0)="TIU EDIT DOCUMENT TYPE^2951022.103^^8925.1^^^2960703"
^DIE(1492,"DIAB",1,1,8925.14,0)="ALL"
^DIE(1492,"DR",1,8925.1)=".01;.02;.03;.04;.05;.06;.07;3;4;5;6;7;8;9;10;"
^DIE(1492,"DR",2,8925.14)=".01:4"
^DIE(1493,0)="TIU ENTER/EDIT PROGRESS NOTE^3040405.1119^^8925^^^3040917"
^DIE(1493,"DIAB",2,0,8925,3)="AUTHOR/DICTATOR//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T;REQ"
^DIE(1493,"DIAB",3,0,8925,7)="EXPECTED COSIGNER//^S X=$G(TIUDCSNR);REQ"
^DIE(1493,"DIAB",7,0,8925,2)="REFERENCE DATE//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");T"
^DIE(1493,"DIAB",7,0,8925,7)="EXPECTED COSIGNER;REQ"
^DIE(1493,"DR",1,8925)=".02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);.07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);1401////^S X=$P($G(TIU(""AD#"")),U);I '+$G(TIUBY) S Y=""@1"";I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@13"";"
^DIE(1493,"DR",1,8925,1)="1205////^S X=$P($G(TIU(""LOC"")),U);@13;I +$G(^TIU(8925,+DA,13)) S Y=""@14"";1301////^S X=$$NOW^TIULC;@14;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";"
^DIE(1493,"DR",1,8925,2)="I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;1301T~//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");"
^DIE(1493,"DR",1,8925,3)="I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";1202R~T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));"
^DIE(1493,"DR",1,8925,4)="I +$G(TIUAUTH),(+$P(^TIU(8925,+DA,12),U,2)'=+$G(TIUAUTH)) S TIU(""SVC"")=$$PROVSVC^TIULV(+$P(^(12),U,2)),TIUAUTH=+$P(^TIU(8925,+DA,12),U,2);@2;1204////^S X=$P($G(^TIU(8925,+DA,12)),U,2);S TIUESNR=X;"
^DIE(1493,"DR",1,8925,5)="I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";1201////^S X=$$NOW^TIULC;@6;S TIURQCS=+$$REQCOSIG^TIULP(+$G(TIUTYP),+DA,+$G(TIUESNR));"
^DIE(1493,"DR",1,8925,6)="I 'TIURQCS,($L($P($G(^TIU(8925,+DA,12)),U,8))'>0) S Y=""@7"";I +TIURQCS S Y=""@15"";W !!,""No cosignature is required for this author."",!;1208///@;1506///@;S Y=""@7"";@15;I +$$ISA^USRLM(DUZ,""TRANSCRIPTIONIST"") S Y=""@8"";"
^DIE(1493,"DR",1,8925,7)="S TIUDCSNR=$$PERSNAME^TIULC1(+$P($G(TIUPREF),U,9));I TIUDCSNR=""UNKNOWN"" S Y=""@11"";1208R~//^S X=$G(TIUDCSNR);K TIUDCSNR;S Y=""@9"";@11;1208R~;S Y=""@9"";@8;1208;@9;1506////1;@7;"
^DIE(1493,"DR",1,8925,8)="I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;K TIUESNR,TIURQCS;I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@12"";1303////^S X=""D"";@12;"
^DIE(1493,"ROUOLD")="TIUEPN"
^DIE(1494,0)="TIU BASIC PARAMETER EDIT^3060201.1423^^8925.99^^^3060719"
^DIE(1494,"DR",1,8925.99)=".02;1.07;.05;I +$P($G(^TIU(8925.99,+DA,0)),U,4)'>0 S Y=""@1"";.04///@;@1;.14;.03;.06;.07;.08;1.06;3.1;3.2;3.3;"
^DIE(1495,0)="TIU UPLOAD PARAMETER EDIT^2960327.1115^^8925.99^^^2970619"
^DIE(1495,"DIAB",1,1,8925.992,0)="ALL"
^DIE(1495,"DR",1,8925.99)=".09;S TIUUSRC=X I X'=""R"" S Y=""@1"";.17;I X=""k"" S Y=""@1"";.15;.11;@1;.16;I X'=""D"" S Y=""@2"";.13;@2;.1;.12;I TIUUSRC'=""H"" S Y=""@3"";.11;@3;.18//NO;W !!,""Now Select upload error alert recipients:"",!;2;"
^DIE(1495,"DR",2,8925.992)=".01"
^DIE(1496,0)="TIU ENTER/EDIT SEARCH CATEGORY^2950616.12^^8925.8^^^2951022"
^DIE(1496,"DR",1,8925.8)=".01;.02;.03//^S X=$$MIXED^TIULS($P(^TIU(8925.8,+DA,0),U));"
^DIE(1497,0)="TIU UPLOAD FIELD EDIT^2960328.1551^^8925.1^^^2970619"
^DIE(1497,"DR",1,8925.1)=".02;1.02;1.01;I +X'>0 S Y=0;S TIUX=X;S TIUX=$$TXTFLD^TIUUPEDT(TIUX,+$P($G(^TIU(8925.1,+DA,1)),U,3));I +TIUX'>0 S Y=""@1"";1.03////^S X=TIUX;@1;4;4.5;4.8;I '$D(TIUPRM0) D SETPARM^TIULE;I $P(TIUPRM0,U,16)=""C"" S Y=""@2"";1;S Y=0;@2;2;"
^DIE(1497,"DR",2,8925.11)=".01;.02;.03;.04;1;.05;.06;.07;"
^DIE(1497,"DR",2,8925.12)=".01;.02;.03;.04;1;.05;.06;.07;"
^DIE(1498,0)="TIUF UPLOAD FIELD EDIT^2961210.1417^^8925.1^^^2991019"
^DIE(1498,"%D",0)="^^1^1^2960730^"
^DIE(1498,"%D",1,0)="Used by Document Definition Utility TIUF to edit upload fields.  "
^DIE(1498,"DR",1,8925.1)="1.01;I +X'>0 S Y=0;S TIUX=X;1.02;S TIUX=$$TXTFLD^TIUUPEDT(TIUX,+$P($G(^TIU(8925.1,+DA,1)),U,3));I +TIUX'>0 S Y=0;1.03////^S X=TIUX;4;4.5;4.8;I '$D(TIUPRM0) D SETPARM^TIULE;I $P(TIUPRM0,U,16)=""C"" S Y=""@2"";"
^DIE(1498,"DR",1,8925.1,1)="W !!,""Editing Delimited ASCII Record Header"",!;1;S Y=0;@2;W !!,""Editing Captioned ASCII Record Header"",!;2;"
^DIE(1498,"DR",2,8925.11)=".01;.02;.03;.04;1;.05;.06;.07;"
^DIE(1498,"DR",2,8925.12)=".01;.02;.03;.04;1;.05;.06;.07;"
^DIE(1499,0)="TIU DOCUMENT PARAMETER EDIT^3070511.1523^@^8925.95^^@^3070810"
^DIE(1499,"%D",0)="^.4021^1^1^3061019^^^"
^DIE(1499,"%D",1,0)="This is the input template for #8925.95."
^DIE(1499,"DIAB",1,0,8925.95,3)="FILING ERROR ALERT RECIPIENTS;""FILING ALERT RECIPIENT"""
^DIE(1499,"DR",1,8925.95)=".02;.03;.04;.06;.07;.08;.09;.1;@2;.11;I +X'>0 K DIE(""NO^"") S Y=""@1"";S DIE(""NO^"")=""BACK"";.12;K DIE(""NO^"");I +$P(^TIU(8925.95,+DA,0),U,12)>0 S Y=""@1"";W !,""You may not turn on IRT w/o specifying the Deficiency..."";.11///@;S Y=""@2"";@1;"
^DIE(1499,"DR",1,8925.95,1)=".14;I +$P(^TIU(8925.95,+DA,0),U,14) S Y=""@3"";.15;.16;S Y=""@4"";@3;I +$P(^TIU(8925.95,+DA,0),U,14)'>0 S Y=""@4"";.15///@;.16///@;@4;.17;.18;.19;.2;3;I '+$$MEMBEROF^TIUPR222(+^TIU(8925.95,DA,0),""FORM LETTERS"") S Y=""@5"";6;9.01;9.06;7;"
^DIE(1499,"DR",1,8925.95,2)="9.02;8;9.03;9.04;9.05;@5;W !!,""Now enter the USER CLASSES for which cosignature will be required:"",!;5;W !!,""Now enter the DIVISIONAL parameters:"",!;2;W !!,""If document is to be uploaded, specify Filing Alert Recipients:"",!;"
^DIE(1499,"DR",1,8925.95,3)="4FILING ALERT RECIPIENT~;"
^DIE(1499,"DR",2,8925.952)=".02;.03;"
^DIE(1499,"DR",2,8925.955)=".01;"
^DIE(1500,0)="TIU ENTER/EDIT CONSULT RESULT^3030418.105^@^8925^^@^3040120"
^DIE(1500,"DIAB",1,0,8925,4)="1202//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T;REQ"
^DIE(1500,"DIAB",1,0,8925,7)="1208//^S X=TIUDCSNR;REQ"
^DIE(1500,"DIAB",3,0,8925,3)="1301//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");T"
^DIE(1500,"DIAB",5,0,8925,7)="1208;REQ"
^DIE(1500,"DIAB",12,0,8925,7)="1405////^S X=$$GETCNSLT^TIUCNSLT(DFN);T"
^DIE(1500,"DR",1,8925)=".02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);.07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);I '+$G(TIUBY) S Y=""@1"";I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@13"";1205////^S X=$P($G(TIU(""LOC"")),U);"
^DIE(1500,"DR",1,8925,1)="1212////^S X=$P($G(TIU(""INST"")),U);@13;I +$G(^TIU(8925,+DA,13)) S Y=""@14"";1301////^S X=$$NOW^TIULC;@14;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";"
^DIE(1500,"DR",1,8925,2)="I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@15"";1212////^S X=+$G(DUZ(2));S Y=""@16"";@15;"
^DIE(1500,"DR",1,8925,3)="1212////^S X=+$$DIVISION^TIULC1(+$P($G(^TIU(8925,+DA,12)),U,5));@16;1301T~//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";"
^DIE(1500,"DR",1,8925,4)="1202R~T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));Q;I +$G(TIUAUTH),(+$P(^TIU(8925,+DA,12),U,2)'=+$G(TIUAUTH)) S TIU(""SVC"")=$$PROVSVC^TIULV(+$P(^(12),U,2)),TIUAUTH=+$P(^TIU(8925,+DA,12),U,2);@2;"
^DIE(1500,"DR",1,8925,5)="1204////^S X=$P($G(^TIU(8925,+DA,12)),U,2);S TIUESNR=X;I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";1201////^S X=$$NOW^TIULC;@6;"
^DIE(1500,"DR",1,8925,6)="I '+$$REQCOSIG^TIULP(+$G(TIUTYP),+DA,+$G(TIUESNR)),($L($P($G(^TIU(8925,+DA,12)),U,8))'>0) S Y=""@7"";I +$$ISA^USRLM(DUZ,""TRANSCRIPTIONIST"") S Y=""@8"";S TIUDCSNR=$$PERSNAME^TIULC1(+$P($G(TIUPREF),U,9));I TIUDCSNR=""UNKNOWN"" S Y=""@11"";"
^DIE(1500,"DR",1,8925,7)="1208R~//^S X=TIUDCSNR;K TIUDCSNR;S Y=""@9"";@11;1208R~;S Y=""@9"";@8;1208;@9;1506////1;@7;1405T~////^S X=$$GETCNSLT^TIUCNSLT(DFN);I +X'>0 W !,""You may only enter a result for a valid Consult Request."",! S Y=0,TIUQUIT=1;"
^DIE(1500,"DR",1,8925,8)="I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;K TIUESNR;I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@12"";1303////^S X=""D"";@12;"
^DIE(1501,0)="TIU ENTER/EDIT PERSONAL LIST^3000621.1027^@^8925.98^^@^3000713"
^DIE(1501,"DIAB",1,0,8925.98,0)=".02;T"
^DIE(1501,"DIAB",2,0,8925.98,2)=".03;T"
^DIE(1501,"DR",1,8925.98)=".02T~;S TIUCLASS=X;I TIUCLASS="""" S Y=0;I +$O(^TIU(8925.98,""AC"",DUZ,TIUCLASS,0))'=DA D ALREADY^TIUPLST(TIUCLASS) S TIUCLASS="""",Y=0;S TIUASK=$$LBYPASS^TIULA4;I $S(+$G(DIRUT):1,+$G(DTOUT):1,+$G(DUOUT):1,+$G(DIROUT):1,1:0) S Y=0;"
^DIE(1501,"DR",1,8925.98,1)="I TIUASK=""D"" S Y=""@1"";W !!,""When selecting from this PARENT CLASS, which TITLES would you like to be"",!,""presented with initially?"",!;10;@1;I TIUASK=""L"" S Y=0;"
^DIE(1501,"DR",1,8925.98,2)="W !!,$S(TIUASK=""B"":""Now, "",1:""""),""Specify the TITLE you'd like as your DEFAULT for "",$$UP^XLFSTR($$PNAME^TIULC1(TIUCLASS)),!;.03T~;"
^DIE(1501,"DR",2,8925.9801)=".01;.02;.03;"
^DIE(1502,0)="TIUZ ENTER/EDIT PN^3010516.1552^@^8925^^@^3010516"
^DIE(1502,"DIAB",1,0,8925,4)="1202//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T"
^DIE(1502,"DIAB",3,0,8925,3)="1301//^S X=$$DATE^TIULS($$NOW^TIULC,""MM/DD/YY@HR:MIN:SEC"");T"
^DIE(1502,"DIAB",7,0,8925,6)="1208//^S X=TIUDCSNR;REQ"
^DIE(1502,"DIAB",11,0,8925,6)="1208;REQ"
^DIE(1502,"DR",1,8925)="I $S($G(VALMAR)']"""":1,+$$ISADDNDM^TIULC1(+DA):1,1:0) S Y=""@13"";.01////^S X=+$$ASKTITLE^TIULA3(3,+$G(^TIU(8925,+DA,0)));.04////^S X=$$DOCCLASS^TIULC1(+$G(^TIU(8925,+DA,0)));@13;.02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);"
^DIE(1502,"DR",1,8925,1)=".07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);I '+$G(TIUBY) S Y=""@1"";I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@14"";1205////^S X=$P($G(TIU(""LOC"")),U);@14;I +$G(^TIU(8925,+DA,13)) S Y=""@15"";1301////^S X=$$NOW^TIULC;"
^DIE(1502,"DR",1,8925,2)="@15;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;"
^DIE(1502,"DR",1,8925,3)="1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;1301T~//^S X=$$DATE^TIULS($$NOW^TIULC,""MM/DD/YY@HR:MIN:SEC"");I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";"
^DIE(1502,"DR",1,8925,4)="1202T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));Q;@2;1204////^S X=$P($G(^TIU(8925,+DA,12)),U,2);S TIUESNR=X;I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";"
^DIE(1502,"DR",1,8925,5)="1201////^S X=$$NOW^TIULC;@6;S TIURQCS=+$$REQCOSIG^TIULP(+$G(TIUTYP),+DA,+$G(TIUESNR));I '+TIURQCS,($L($P($G(^TIU(8925,+DA,12)),U,8))'>0) S Y=""@7"";I +TIURQCS S Y=""@16"";W !!,""No cosignature is required for this author."",!;1208///@;"
^DIE(1502,"DR",1,8925,6)="1506///@;S Y=""@7"";@16;I +$$ISA^USRLM(DUZ,""TRANSCRIPTIONIST"") S Y=""@8"";S TIUDCSNR=$$PERSNAME^TIULC1(+$P($G(TIUPREF),U,9));I TIUDCSNR=""UNKNOWN"" S Y=""@11"";1208R~//^S X=TIUDCSNR;K TIUDCSNR;S Y=""@9"";@11;1208R~;S Y=""@9"";@8;1208;@9;"
^DIE(1502,"DR",1,8925,7)="1506////1;@7;1404///^S X=$P($G(TIU(""SVC"")),U,2);I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;K TIUESNR,TIURQCS;I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@12"";1303////^S X=""D"";@12;"
^DIE(1503,0)="EC CREATE PATIENT ENTRY^3051202.1316^^721^^^3051216"
^DIE(1503,"AB","^",1)="1^ECMXP"
^DIE(1503,"AB","^",1,"///")=""
^DIE(1503,"AB","^",2)="2^ECMXP"
^DIE(1503,"AB","^",2,"///")=""
^DIE(1503,"AB","^",3)="3^ECMXP"
^DIE(1503,"AB","^",3,"///")=""
^DIE(1503,"AB","^",4)="4^ECMXP"
^DIE(1503,"AB","^",4,"///")=""
^DIE(1503,"AB","^",5)="5^ECMXP"
^DIE(1503,"AB","^",5,"///")=""
^DIE(1503,"AB","^",6)="6^ECMXP"
^DIE(1503,"AB","^",6,"///")=""
^DIE(1503,"AB","^",7)="7^ECMXP"
^DIE(1503,"AB","^",7,"///")=""
^DIE(1503,"AB","^",8)="8^ECMXP"
^DIE(1503,"AB","^",8,"///")=""
^DIE(1503,"AB","^",9)="9^ECMXP"
^DIE(1503,"AB","^",9,"///")=""
^DIE(1503,"AB","^",11)="10^ECMXP"
^DIE(1503,"AB","^",11,"///")=""
^DIE(1503,"AB","^",13)="11^ECMXP"
^DIE(1503,"AB","^",13,"///")=""
^DIE(1503,"AB","^",19)="12^ECMXP"
^DIE(1503,"AB","^",19,"///")=""
^DIE(1503,"AB","^",20)="13^ECMXP"
^DIE(1503,"AB","^",20,"///")=""
^DIE(1503,"AB","^",21)="14^ECMXP"
^DIE(1503,"AB","^",21,"///")=""
^DIE(1503,"AB","^",22)="15^ECMXP"
^DIE(1503,"AB","^",22,"///")=""
^DIE(1503,"AB","^",23)="1^ECMXP1"
^DIE(1503,"AB","^",23,"///")=""
^DIE(1503,"AB","^",24)="2^ECMXP1"
^DIE(1503,"AB","^",24,"///")=""
^DIE(1503,"AB","^",26)="6^ECMXP1"
^DIE(1503,"AB","^",26,"///")=""
^DIE(1503,"AB","^",27)="7^ECMXP1"
^DIE(1503,"AB","^",27,"///")=""
^DIE(1503,"AB","^",29)="8^ECMXP1"
^DIE(1503,"AB","^",29,"///")=""
^DIE(1503,"AB","^",34)="9^ECMXP1"
^DIE(1503,"AB","^",34,"///")=""
^DIE(1503,"AB","^",35)="3^ECMXP1"
^DIE(1503,"AB","^",35,"///")=""
^DIE(1503,"AB","^",39)="4^ECMXP1"
^DIE(1503,"AB","^",39,"///")=""
^DIE(1503,"AB","^",40)="5^ECMXP1"
^DIE(1503,"AB","^",40,"///")=""
^DIE(1503,"DR",1,721)="1////^S X=$G(ECPTR(""DFN""));2////^S X=$G(ECPRR(""PROCDT""));3////^S X=$G(ECL);4////^S X=$P($G(^ECD(+$P($G(ECDSSU),""^""),0)),""^"",2);5////^S X=$P($G(^ECD(+$P($G(ECDSSU),""^""),0)),""^"",3);6////^S X=$P($G(ECDSSU),""^"");"
^DIE(1503,"DR",1,721,1)="7////^S X=+$P($G(ECCAT),""^"");8////^S X=$G(ECPRR(""PROC""));9////^S X=$G(ECPRR(""VOL""));11////^S X=$G(ECPTR(""ORDSEC""));13////^S X=$G(DUZ);19////^S X=$G(ECPRR(""PCEPR""));20////^S X=$G(ECPTR(""DX""));21////^S X=$G(ECPTR(""AO""));"
^DIE(1503,"DR",1,721,2)="22////^S X=$G(ECPTR(""IR""));23////^S X=$G(ECPTR(""ENV""));24////^S X=$G(ECPTR(""SC""));35////^S X=$G(ECPTR(""MST""));39////^S X=$G(ECPTR(""HNC""));40////^S X=$G(ECPTR(""CV""));26////^S X=$G(ECPTR(""CLIN""));"
^DIE(1503,"DR",1,721,3)="27////^S X=$P($G(^SC(+$G(ECPTR(""CLIN"")),0)),""^"",7);29////^S X=$G(ECPTR(""IO""));34////^S X=$G(ECPRR(""REAS""));"
^DIE(1503,"ROU")="^ECMXP"
^DIE(1503,"ROUOLD")="ECMXP"
^DIE(1504,0)="EC FILE PCE NODE^3051202.1317^^721^^^3051216"
^DIE(1504,"AB","^",30)="1^ECMXPC"
^DIE(1504,"AB","^",30,"///")=""
^DIE(1504,"AB","^",37)="3^ECMXPC"
^DIE(1504,"AB","^",37,"///")=""
^DIE(1504,"DR",1,721)="30////^S X=ECPRR(""PROCDT"")_""~""_ECPTR(""DFN"")_""~""_ECPTR(""CLIN"")_""~""_ECL_""~""_ECDSS_""~~~~""_ECPRR(""VOL"")_""~""_ECPRR(""PCEPR"")_""~""_ECPTR(""DX"");"
^DIE(1504,"DR",1,721,1)="30////^S X=X_""~""_ECAO_""~""_ECIR_""~""_ECEV_""~""_ECSC_""~""_$S(ECNPP]"""":ECNPP,1:"""")_""~""_ECELIG_""~""_ECMST_""~""_ECHNC_""~""_ECCV;37////^S X=ECMODS;"
^DIE(1504,"ROU")="^ECMXPC"
^DIE(1504,"ROUOLD")="ECMXPC"
^DIE(1505,0)="A1CK VARO/DHCP^2990219.0838^@^2^^@^2990219"
^DIE(1505,"AB","1^A1CKC11",.01)="1^A1CKC12"
^DIE(1505,"AB","1^A1CKC11",.01,"///")=""
^DIE(1505,"AB","1^A1CKC11",2)="2^A1CKC12"
^DIE(1505,"AB","1^A1CKC11",2,"///")=""
^DIE(1505,"AB","1^A1CKC11",3)="3^A1CKC12"
^DIE(1505,"AB","1^A1CKC11",3,"///")=""
^DIE(1505,"AB","^",.301)="4^A1CKC"
^DIE(1505,"AB","^",.301,"///")=""
^DIE(1505,"AB","^",.302)="5^A1CKC"
^DIE(1505,"AB","^",.302,"///")=""
^DIE(1505,"AB","^",.3025)="6^A1CKC11"
^DIE(1505,"AB","^",.3025,"///")=""
^DIE(1505,"AB","^",.361)="6^A1CKC"
^DIE(1505,"AB","^",.361,"///")=""
^DIE(1505,"AB","^",.36205)="4^A1CKC3"
^DIE(1505,"AB","^",.36205,"///")=""
^DIE(1505,"AB","^",.36215)="5^A1CKC3"
^DIE(1505,"AB","^",.36215,"///")=""
^DIE(1505,"AB","^",.36235)="3^A1CKC3"
^DIE(1505,"AB","^",.36235,"///")=""
^DIE(1505,"AB","^",.3721)="1^A1CKC11"
^DIE(1505,"AB","^",.3721,"///")=""
^DIE(1505,"AB","^",391)="7^A1CKC"
^DIE(1505,"AB","^",391,"///")=""
^DIE(1505,"AB","^",1901)="3^A1CKC"
^DIE(1505,"AB","^",1901,"///")=""
^DIE(1505,"AB","^","@10")="2^A1CKC"
^DIE(1505,"AB","^","@100")="5^A1CKC11"
^DIE(1505,"AB","^","@20")="9^A1CKC"
^DIE(1505,"AB","^","@200")="8^A1CKC11"
^DIE(1505,"AB","^","@30")="9^A1CKC3"
^DIE(1505,"AB","^","@300")="11^A1CKC11"
^DIE(1505,"AB","^","@31")="12^A1CKC3"
^DIE(1505,"AB","^","@39")="3^A1CKC11"
^DIE(1505,"AB","^","@400")="14^A1CKC11"
^DIE(1505,"AB","^","@999")="17^A1CKC11"
^DIE(1505,"DR",1,2)="S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@10;1901///Y;.301///Y;.302///^S X=PER;.361///^S X=ELIG;391///^S X=DZT;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@20;1901///Y;.301///N;.36235///^S X=$S(PE=""Y"":""Y"",1:""N"");"
^DIE(1505,"DR",1,2,1)=".36205///^S X=$S(AA=""Y"":""Y"",1:""N"");.36215///^S X=$S(HB=""Y"":""Y"",1:""N"");.361///^S X=ELIG;391///^S X=DZT2;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@30;I 'SCI S Y=""@39"";S ISC=0;@31;S ISC=$O(SCI(ISC));I 'ISC S Y=""@39"";.3721///^S X=""`""_ISC;"
^DIE(1505,"DR",1,2,2)="S Y=""@31"";@39;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@100;.3025///^S X=CP;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@200;.36235///^S X=PE;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@300;.36205///^S X=AA;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);"
^DIE(1505,"DR",1,2,3)="@400;.36215///^S X=HB;S Y=$P(STR,""^""),STR=$P(STR,""^"",2,99);@999;"
^DIE(1505,"DR",2,2.04)=".01///^S X=""`""_ISC;2///^S X=+SCI(ISC);3///1;"
^DIE(1505,"ROU")="^A1CKC"
^DIE(1505,"ROUOLD")="A1CKC"
^DIE(1506,0)="PSSJIDE^2910313.1437^^50.4^^^^"
^DIE(1506,"%D",0)="^^2^2^2970407^^"
^DIE(1506,"%D",1,0)="This is used to allow the user to edit the fields pertaining to Electrolyte"
^DIE(1506,"%D",2,0)="drugs."
^DIE(1506,"DR",1,50.4)=".01;1;"
^DIE(1507,0)="PSSCOMMON^3070521.1029^@^50^^@^3070709"
^DIE(1507,"DIAB",1,1,50.037,0)="ALL"
^DIE(1507,"DIAB",1,1,50.065,0)="ALL"
^DIE(1507,"DR",1,50)=".01;2;D PKIND^PSSDDUT2;3;81;D PKIND^PSSDDUT2;W !!,""NATIONAL FORMULARY INDICATOR: "" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=1 ""YES"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)="""" ""Not Matched To NDF"" W:$P($G(^PSDRUG(DA,""ND"")),""^"",11)=0 ""NO"";51;52;"
^DIE(1507,"DR",1,50,1)="37;65;9;101;102;6;31;100;N ND S ND=$G(^PSDRUG(DA,""ND"")) I +ND,+$P(ND,""^"",3),+$P($G(^PSNDF(50.68,+$P(ND,""^"",3),""PFS"")),""^"") S Y=""@4"";W !!,""If you are planning to match to a NDF entry later or have no plan of using"";"
^DIE(1507,"DR",1,50,2)="W !,""the external billing function, you may skip the Service Code entry."";400;@4;S PSONEWW=$S($P($G(^PS(59.7,1,10)),""^"",9)=""N"":1,1:0) W !!,""WARNING LABEL SOURCE is ""_$S(PSONEWW:""'NEW'."",1:""not 'NEW'."");"
^DIE(1507,"DR",1,50,3)="I PSONEWW W !,""The following WARNING LABEL may continue to be used for a limited time for some external interfaces."";I 'PSONEWW W !,""WARNING LABEL will be used until the WARNING LABEL SOURCE is set to 'NEW'."";8;@5;"
^DIE(1507,"DR",1,50,4)="D WARN^PSSWRNB S:$G(WARNEDIT) Y=""@10"" I '$G(WARNEDIT) S Y=""@15"";@10;8.1;S Y=""@5"";@15;D GENDER2^PSSWRNA I GENDER="""" S Y=""@20"";8.2;@20;12;13;14.5;15;D NCINIT^PSSDDUT2 S Y=""@24"";@24;82;D NCPDPDU^PSSDDUT2 S PSSNDU=X S Y=""@25"";@25;83;"
^DIE(1507,"DR",2,50.037)=".01"
^DIE(1507,"DR",2,50.065)=".01"
^DIE(1507,"DR",2,50.1)=".01;1;2;"
^DIE(1508,0)="PSSOP^3010321.1204^@^50^^@^3010725"
^DIE(1508,"DR",1,50)="905;4;W:$P($G(^PSDRUG(DA,0)),""^"",5)'="""" !,""STANDARD SIG: ""_$P($G(^PSDRUG(DA,0)),""^"",5);51;14;17;50;40;101;215;"
^DIE(1509,0)="PSSIV ADD^2960515.1009^@^52.6^^@^2971024"
^DIE(1509,"DIAB",1,1,52.62,0)="ALL"
^DIE(1509,"DIAB",1,1,52.63,0)="ALL"
^DIE(1509,"DR",1,52.6)=".01;1;D GETD^PSSVIDRG;17;2;3;4;Q;S X=$S($D(PSIVSC):PSIVSC,1:"""") K PSIVSC;5;6;7;8;9;10;12;13;14;"
^DIE(1509,"DR",2,52.61)=".01;1;2;3;4;5///^S X=$S($D(PSIVSC):PSIVSC,1:"""") K PSIVSC;Q;5;6;7;"
^DIE(1509,"DR",2,52.62)=".01:1"
^DIE(1509,"DR",2,52.63)=".01"
^DIE(1510,0)="PSS SIGED^2960606.0824^@^51^^@^2960807"
^DIE(1510,"DR",1,51)=".01;.5;1;9;30;2;3;"
^DIE(1511,0)="PSS PD EDIT^2960830.1044^@^50.3^^@^2960830"
^DIE(1511,"DIAB",1,1,50.32,0)="ALL"
^DIE(1511,"DIAB",1,2,50.311,0)="ALL"
^DIE(1511,"DR",1,50.3)=".01;.02;.03;2;1;"
^DIE(1511,"DR",2,50.31)=".01;.02;.03;S:""IU""'[$P($G(^PS(50.3,DA(1),1,DA,0)),""^"") Y=""@3"";.05;.06;.07;.08;@3;S:'$P($G(^PS(50.3,DA(1),1,DA,0)),""^"",2) Y=""@5"";1;@5;"
^DIE(1511,"DR",2,50.32)=".01"
^DIE(1511,"DR",3,50.311)=".01"
^DIE(1512,0)="PSSJ SCHEDULE EDIT^3070108.1503^@^51.1^^@^3070108"
^DIE(1512,"DIAB",3,1,51.11,0)="WARD ADMINISTRATION TIMES;REQ"
^DIE(1512,"DIAB",7,0,51.1,2)="STANDARD ADMINISTRATION TIMES;REQ"
^DIE(1512,"DR",1,51.1)=".01;8;8.1;@3;S:'$D(PSJIVSEF) Y=""@2"";5;S Y=1,PSJS="""";@2;5//;I X=""O"" S Y="""";S PSJS=X;I PSJS=""D"" S Y=""@5"" Q;@4;2//^D ENFQD^PSSJSV;I X="""" W "" Must enter a frequency."" K X S Y=""@4"" Q;S PSJS=$$NSO^PSGS0(X);"
^DIE(1512,"DR",1,51.1,1)="W !?10,""The schedule entered equals "",PSJS,""."",!;I X>1439,X#1440 S PSJS="""";I X,X<1440,1440#X S PSJS="""";I PSJS="""" W ?10,""This is an odd schedule that does not require administration times."",!;"
^DIE(1512,"DR",1,51.1,2)="I PSJS="""" W ?10,""BCMA will determine the administration times based off the"",!;I PSJS="""" W ?10,""start date/time of the medication order."";I PSJS="""" S Y=""@999"";@5;I PSJS="""" S Y=0;I PSJS'=""D"" S Y=""@6"" Q;1R~;@6;I PSJS=""D"" S Y=""@7"" Q;"
^DIE(1512,"DR",1,51.1,3)="1;@7;3;@999;"
^DIE(1512,"DR",2,51.11)=".01;I X="""" S Y=""@999"" Q;1R~;"
^DIE(1513,0)="PSSJ EXT SCHEDULE EDIT^2960919.1338^@^51.1^^@^2960919"
^DIE(1513,"DR",1,51.1)=".01;5//CONTINUOUS;I X=""O""!(X=""DR"") S Y="""";S PSJS=X S:X=""S"" Y=6 S:X=""R"" Y=2;1;S Y=$S(PSJS=""D"":7,1:2);6;S Y=7;2//^D ENFQD^PSSJSV;S:PSJS=""R"" Y=""@9"";7;@9;I PSJPP[""PS"" S Y=""@10"";2.5;@10;K PSJS;"
^DIE(1513,"DR",2,51.17)=".01;S:PSJS=""S"" Y=2;1;S Y=""@5"";2;@5;"
^DIE(1514,0)="PSS INTERACT^2961118.1333^@^56^^@^2961203"
^DIE(1514,"DR",1,56)=".01;1;Q;2;I $D(PSDI),PSDI=0 S Y=""@1"";3;5;@1;"
^DIE(1515,0)="PSS CLOZDRUG^2970903.1425^@^50^^@^2970903"
^DIE(1515,"DIAB",3,0,50,0)="17.2;REQ"
^DIE(1515,"DIAB",4,0,50,0)="17.3//7;REQ"
^DIE(1515,"DIAB",5,0,50,0)="17.4;REQ"
^DIE(1515,"DR",1,50)="3;2;17.2R~;17.3R~//7;17.4R~;17.5///^S X=""PSOCLO1"";101;40;"
^DIE(1516,0)="LRBLPOOL^2960925.1513^^65^^^2971029"
^DIE(1516,"DR",1,65)=".02///SELF;.03///00;.04///^S X=LRV;.07///^S X=$P(LRE,U,7);.08///^S X=$P(LRE,U,8);.09////^S X=DUZ;.1///^S X=LRV(10);.11///^S X=LRM;.16////^S X=DUZ(2);91///^S X=LRV(15);S:'LRN Y=.05;1.1;.05//^S X=""NOW"";S LRK=X;.06//^S X=LRO(1);"
^DIE(1516,"DR",1,65,1)="S LRO(2)=X;"
^DIE(1517,0)="LRBLDOLD^2970501.1214^^65.5^^^2970501"
^DIE(1517,"DIAB",1,1,65.51,0)="ALL"
^DIE(1517,"DIAB",1,1,65.53,0)="ALL"
^DIE(1517,"DR",1,65.5)=".01;.09////^S X=DUZ;S LR(""SSN"")=$P($G(^LAB(69.9,1,8,1,0)),U,5);.02;.03;.04;.05;.06;.07;S:'LR(""SSN"") Y=1.1;.13;1.1;1.2;1.3;1.4;1.5;1.6;1.7;1.8;2;4;"
^DIE(1517,"DR",2,65.51)=".01"
^DIE(1517,"DR",2,65.53)=".01"
^DIE(1518,0)="ENPRI001^2970912.1405^^6925^^^2971125"
^DIE(1518,"DIAB",1,1,6925.0166,0)="ALL"
^DIE(1518,"DIAB",3,0,6925,12)="158.8;REQ"
^DIE(1518,"DIAB",3,0,6925,14)="165.1;REQ"
^DIE(1518,"DIAB",4,0,6925,14)="158.3;REQ"
^DIE(1518,"DIAB",5,0,6925,14)="158.4;REQ"
^DIE(1518,"DIAB",6,0,6925,14)="158.5;REQ"
^DIE(1518,"DR",1,6925)="X:'$D(ENDA) ""W !,""""Variable ENDA not defined - Terminating Edit"""" S Y=0"";S ENPN=$P($G(^ENG(""PROJ"",ENDA,0)),U);S ENPR=$P($G(^ENG(""PROJ"",ENDA,0)),U,6);S ENFT=$P($G(^ENG(""PROJ"",ENDA,52)),U,6);S ENPCI=$P($G(^ENG(""PROJ"",ENDA,52)),U);"
^DIE(1518,"DR",1,6925,1)="S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBOI=$P($G(^ENG(""PROJ"",ENDA,52)),U,9);S ENBO=$S(ENBOI:$P($G(^OFM(7336.8,ENBOI,0)),U),1:"""");S ENBCI=$P($G(^ENG(""PROJ"",ENDA,52)),U,2);"
^DIE(1518,"DR",1,6925,2)="S:'ENBCI&ENPCI ENBCI=$P($G(^OFM(7336.8,ENPCI,1)),U,$F(""MA,MI,MM,NR,"",ENPC)\3);S ENBC=$S(ENBCI:$P($G(^OFM(7336.9,ENBCI,0)),U),1:"""");S ENAY=$P($G(^ENG(""PROJ"",ENDA,5)),U,7);S ENCY=$P($G(^ENG(""PROJ"",ENDA,0)),U,7);"
^DIE(1518,"DR",1,6925,3)="S ENCAF=$P($G(^ENG(""PROJ"",ENDA,1)),U);S ENAMI=$P($G(^ENG(""PROJ"",ENDA,1)),U,4);S ENCMI=$P($G(^ENG(""PROJ"",ENDA,1)),U,5);.01;S ENPN=X;S:'$D(^DIC(6910,1,0)) Y=""@20"";"
^DIE(1518,"DR",1,6925,4)="W:$P(ENPN,""-"")'=$E($P(^DIC(6910,1,0),U,2),1,3) $C(7),!,""Note: Station # in Project Number differs from Station # in ENG INIT"",!,?5,""PARAMETERS File"";@20;2.5//YES;1;3;S:'$D(^DIC(4,X,99)) Y=""@30"";"
^DIE(1518,"DR",1,6925,5)="X:$E($P(^DIC(4,X,99),U),1,3)'=$P(ENPN,""-"") ""W !,""""Note: Project Number """"_ENPN_"""" differs from Facility's number"""""";@30;176;2;158;S ENFT=X;155;"
^DIE(1518,"DR",1,6925,6)="X:ENFT=""NCS""&((X=""NR"")!(X=""MM"")) ""W !,""""National Cemetery System projects can not be NRM or Minor Misc program"""" S Y=155"";"
^DIE(1518,"DR",1,6925,7)="X:$L(ENPN,""-"")'=3&((X=""NR"")!(X=""LE"")!(X=""SL"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";"
^DIE(1518,"DR",1,6925,8)="X:$L(ENPN,""-"")'=2&((X=""MA"")!(X=""MI"")!(X=""MM"")) ""W !,""""Project Number """"_ENPN_"""" is incompatible with Program"""" S Y=155"";S:(X=ENPR)!(ENPR']"""") ENPR=X,Y=""@40"";"
^DIE(1518,"DR",1,6925,9)="W !!,""Because the Program was changed the current Project Category and"",!,""Budget Category of this project will be deleted."";W !,""Deleting Project Category "",ENPC,""..."",!,""Deleting Budget Category "",ENBC,""..."";"
^DIE(1518,"DR",1,6925,10)="S $P(^ENG(""PROJ"",ENDA,52),U,1,2)=""^"",(ENPC,ENPCI,ENBC)="""";W !,""You must enter new values for these required fields."",!;S:X'=""NR"" $P(^ENG(""PROJ"",ENDA,52),U,7,8)=""^"";S:""^NR^SL^""'[(U_X_U) $P(^ENG(""PROJ"",ENDA,52),U,9)="""",ENBO="""";"
^DIE(1518,"DR",1,6925,11)="S ENPR=X;@40;6;158.1;S ENPCI=X;S ENPC=$S(ENPCI:$P($G(^OFM(7336.8,ENPCI,0)),U),1:"""");S ENBC=$S(ENPCI'?1.N:"""",$D(^OFM(7336.8,ENPCI,1))#10:$P(^(1),U,$F(""MA,MI,MM,NR,"",ENPR)\3),1:"""");S:ENBC ENBC=$P($G(^OFM(7336.9,ENBC,0)),U);"
^DIE(1518,"DR",1,6925,12)="S:""^NR^SL^""'[(U_ENPR_U) Y=158.2;W:ENBO="""" !,""Select Bonus Category 'Not Applicable' if none of the other choices are"",!,""   50% or more of the project scope."";158.8R~;S ENBO=$S(X:$P($G(^OFM(7336.8,X,0)),U),1:"""");158.2//^S X=ENBC;"
^DIE(1518,"DR",1,6925,13)="S ENAP=$S(X?1.N:$P($G(^OFM(7336.9,X,0)),U,2),1:"""");X:X?1.N&(ENAP'[ENPR) ""W !,""""Budget Category is incompatible with Program"""" S Y=158.2"" K ENAP;S:X?1.N ENBC=$P($G(^OFM(7336.9,X,0)),U);S:ENFT'=""VHA"" Y=""@120"";"
^DIE(1518,"DR",1,6925,14)="S:""^MA^MI^MM^""[(U_ENPR_U)&(ENPC'[""NHCU"") Y=""@120"";S:""^NR^SL^""[(U_ENPR_U)&(ENBO'[""NHCU"") Y=""@120"";165.1R~;158.3R~;158.4R~;158.5R~;166;@120;S:""NR""'=ENPR Y=""@130"";158.6;S:X'=""Y"" $P(^ENG(""PROJ"",ENDA,52),U,8)="""";S:X'=""Y"" Y=""@130"";158.7;"
^DIE(1518,"DR",1,6925,15)="@130;3.45;S ENAY=X;3.5;S ENCY=X;X:ENCY]""""&(ENCY<ENAY) ""W !,""""Funding Year - Construction can not be earlier than Funding Year - A/E"""" S Y=3.45"";5;4;S ENCAF=X;7;S ENAMI=X;8;S ENCMI=X;S:""^MA^MI^""'[(U_ENPR_U) Y=""@210"";20;20.1;@210;"
^DIE(1518,"DR",1,6925,16)="S:ENAMI=3!(ENCMI=5) Y=""@220"";20.3;20.4;20.5;@220;S:""MA""'=ENPR!(ENCMI=5) Y=""@230"";21;22;@230;S:""^MA^MI^MM^""'[(U_ENPR_U)!(ENCMI=5) Y=""@240"";22.5;22.6;@240;S:ENCMI=5 Y=""@245"";23;24;@245;S:ENCAF<500000 Y=""@250"";24.4;@250;"
^DIE(1518,"DR",1,6925,17)="S:ENCAF<500000 Y=""@260"";24.6;@260;S:""^2^3^""[(U_ENCMI_U) Y=""@265"";25;@265;S:ENCAF<500000 Y=""@270"";25.4;@270;S:ENCAF<500000 Y=""@280"";25.6;@280;S:""^2^3^""[(U_ENCMI_U) Y=""@290"";26;27;@290;28;29;30;S:""^MA^MI^""'[(U_ENPR_U) Y=""@310"";34;"
^DIE(1518,"DR",1,6925,18)="34.1;@310;S:ENAMI=3!(ENCMI=5) Y=""@320"";34.3;34.4;34.5;@320;S:""MA""'=ENPR!(ENCMI=5) Y=""@330"";35;36;@330;S:""^MA^MI^MM^""'[(U_ENPR_U)!(ENCMI=5) Y=""@340"";36.1;36.2;@340;S:ENCMI=5 Y=""@345"";37;38;@345;S:ENCAF<500000 Y=""@350"";38.4;@350;"
^DIE(1518,"DR",1,6925,19)="S:ENCAF<500000 Y=""@360"";38.6;@360;S:""^2^3^""[(U_ENCMI_U) Y=""@365"";39;@365;S:ENCAF<500000 Y=""@370"";39.4;@370;S:ENCAF<500000 Y=""@380"";39.6;@380;S:""^2^3^""[(U_ENCMI_U) Y=""@390"";40;41;@390;42;43;44;S:""^MA^MI^""'[(U_ENPR_U) Y=""@410"";49;"
^DIE(1518,"DR",1,6925,20)="49.1;@410;S:""^MA^MI^MM^NR^""'[(U_ENPR_U) Y=""@415"";50;@415;S:ENAMI=3!(ENCMI=5) Y=""@420"";51;52;53;@420;S:""MA""'=ENPR!(ENCMI=5) Y=""@430"";54;55;@430;S:""^MA^MI^MM^""'[(U_ENPR_U)!(ENCMI=5) Y=""@440"";55.5;55.6;@440;S:ENCMI=5 Y=""@445"";56;57;"
^DIE(1518,"DR",1,6925,21)="@445;S:ENCAF<500000 Y=""@450"";57.4;@450;S:ENCAF<500000 Y=""@460"";57.6;@460;S:""^2^3^""[(U_ENCMI_U) Y=""@465"";58;@465;S:ENCAF<500000 Y=""@470"";58.4;@470;S:ENCAF<500000 Y=""@480"";58.6;@480;S:""^2^3^""[(U_ENCMI_U) Y=""@490"";59;60;@490;61;62;63;"
^DIE(1518,"DR",1,6925,22)="S:""^MA^MI^""'[(U_ENPR_U) Y=""@510"";13;@510;S:""MA""'=ENPR!(ENCMI=5) Y=""@530"";9;@530;S:""^MA^MI^MM^""'[(U_ENPR_U)!(ENCMI=5) Y=""@540"";12;@540;S:ENCMI=5 Y=""@545"";10;@545;11;70;85;71.6;71.7;72;72.3;72.5;73;74;75;75.5;77;78;79;80;105;115;106;"
^DIE(1518,"DR",1,6925,23)="125;126;127;128;129.1;107;108;145;146;"
^DIE(1518,"DR",2,6925.0166)=".01:1"
^DIE(1519,0)="ENPRLOCAL^2970424.1718^@^6925^^@^2970621"
^DIE(1519,"DR",1,6925)="71.5;86;87;105.5;116;117;"
^DIE(1520,0)="QAC CONTACT ENTER/EDIT^3020603.1606^@^745.1^^@^3020604"
^DIE(1520,"DIAB",1,1,745.117,0)="ALL"
^DIE(1520,"DIAB",1,1,745.128,0)="ALL"
^DIE(1520,"DR",1,745.1)="S QACDA=DA;37;8;10;11;12;I $P(^QA(745.1,DA,0),U,10)'=""CO"" S Y=""@30"";29;@30;30;14;17;28;19;20;22;25;I '$D(^XUSEC(""QAC EDIT"",DUZ))#2 S Y=""@44"";@21;21;I $P($G(^QA(745.1,DA,3,0)),U,3)<1 S Y=""@33"";41////3;@33;"
^DIE(1520,"DR",1,745.1,1)="I $O(^QA(745.1,DA,3,0))'>0 W !!?5,""Reports of Contact cannot be resolved without Issue Codes."",!?5,""You may enter Issue Code(s) now, or """"^"""" to exit."" S Y=""@21"";"
^DIE(1520,"DR",1,745.1,2)="S EE=0 F  S EE=$O(^QA(745.1,DA,3,EE)) Q:EE'>0  I $O(^QA(745.1,DA,3,EE,3,0))'>0 W !!?5,""Reports of Contact cannot be resolved without Service/Discipline(s)."",!?5,""for each Issue Code.  Edit now, or """"^"""" to exit."" S Y=""@21"";26;"
^DIE(1520,"DR",1,745.1,3)="S QACDATE=$P(^QA(745.1,DA,0),U,2);I X]"""" S X1=X,X2=QACDATE D ^%DTC S $P(^QA(745.1,DA,7),U,4)=X S:X=0 X=""Less than 1"" W !?5,""DAYS TO RESOLUTION: "",X;@44;43//NO;"
^DIE(1520,"DR",2,745.11)="Q;.01;S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"");"
^DIE(1520,"DR",2,745.117)=".01"
^DIE(1520,"DR",2,745.121)=".01;3;"
^DIE(1520,"DR",2,745.128)=".01"
^DIE(1520,"DR",3,745.1213)=".01;"
^DIE(1521,0)="LA7S ENTRY^2970507.1508^^60^^^2970918"
^DIE(1521,"DIAB",1,2,64.01,0)="ALL"
^DIE(1521,"DIAB",5,0,60,0)="64:"
^DIE(1521,"DR",1,60)=".01;64;64.1;64.2;^64^LAM(^^S I(0,0)=D0 S Y(1)=$S($D(^LAB(60,D0,64)):^(64),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1521,"DR",2,64)="7;8;20;"
^DIE(1521,"DR",3,64.01)=".01:2"
^DIE(1522,0)="LBRY LOCAL SETUP^2970115.1536^^680^^^2980317"
^DIE(1522,"DR",1,680)=".02;I X]"""" S Y="""";I X="""",$G(LBRYCLS)'="""",$P($G(^LBRY(680.5,LBRYCLS,0)),U,2)="""" S $P(^LBRY(680.5,LBRYCLS,0),U,2)=1;.04///^S X=LBRYPTR;@2;7;I X="""" W !,""To properly set up this TITLE enter INITIAL COPIES ORDERED."" S Y=""@2"";1.5;.03;"
^DIE(1522,"DR",1,680,1)="12.3;"
^DIE(1523,0)="LBRYINUP^2951027.1332^@^680.8^^@^2980417"
^DIE(1523,"DR",1,680.8)=".01///^S X=TIT;1///^S X=COD;"
^DIE(1526,0)="ABSV DIRECTORY EDIT^3000414.1527^@^503339.2^^@^3001212"
^DIE(1526,"DIAB",1,1,503339.214,0)="ALL"
^DIE(1526,"DIAB",1,1,503339.216,0)="ALL"
^DIE(1526,"DIAB",1,1,503339.22,0)="ALL"
^DIE(1526,"DR",1,503339.2)=".01;1;1.2;3;4;4.5;5;6;7;2;.05;8;9;10;11;12;13;14;15;16;17;18;19;20;"
^DIE(1526,"DR",2,503339.214)=".01:4"
^DIE(1526,"DR",2,503339.216)=".01;2"
^DIE(1526,"DR",2,503339.22)=".01"
^DIE(1527,0)="ABSV LABEL CONFIGURATION^2980401.1429^^503338.1^^^2980418"
^DIE(1527,"%D",0)="^^1^1^2980331^"
^DIE(1527,"%D",1,0)="This template is utilized to create/edit any field in file 503338.1."
^DIE(1527,"DIAB",1,1,503338.15,0)="ALL"
^DIE(1527,"DR",1,503338.1)=".01;1;2;3;4;5;6;7;8;9;"
^DIE(1527,"DR",2,503338.15)=".01"
^DIE(1528,0)="RCMS REGIONAL COUNSEL^2970926.1119^^342.1^^^2980402"
^DIE(1528,"%D",0)="^^1^1^2980227^"
^DIE(1528,"%D",1,0)="This template records information for the Regional Counsel Office."
^DIE(1528,"DR",1,342.1)=".01;1.01;1.02;1.03;1.04;1.05;1.06;1.07;2.01;2.02;"
^DIE(1529,0)="PRCAC RC REFER^2971201.1123^^433^^^2980402"
^DIE(1529,"%D",0)="^^1^1^2980227^"
^DIE(1529,"%D",1,0)="This template records referral information for TP bills."
^DIE(1529,"DR",1,433)=".03////^S X=$S($D(PRCABN):PRCABN,1:"""");11////^S X=DT;S PRCADT=X;5///^S X=PRCADT;3////^S X=0;12////^S X=$S($D(RCTYP):RCTYP,1:3);7////^S X=$S($D(RCCODE):RCCODE,1:""RC"");15////^S X=RCBAL;81////^S X=RCBAL;4////^S X=2;82////0;83////0;"
^DIE(1529,"DR",1,433,1)="84////0;85////0;"
^DIE(1530,0)="PRCAC RC TRAN^2980116.1602^^433^^^2980119"
^DIE(1530,"%D",0)="^^1^1^2980227^"
^DIE(1530,"%D",1,0)="This template records information for TP referral Transactions."
^DIE(1530,"DR",1,433)=".03////^S X=PRCABN;3///DONE;5///^S X=RCDT;11///^S X=RCDT;12////^S X=RCTR;15////^S X=+RCAMT;42////^S X=.5;81////^S X=+RCPB;4///^S X=2;"
^DIE(1531,0)="ENY2CLOSE^2980306.1203^^6920^^^2980617"
^DIE(1531,"DIAB",1,1,6920.02,0)="ALL"
^DIE(1531,"DIAB",1,1,6920.035,0)="ALL"
^DIE(1531,"DR",1,6920)="1;3;16.5;35;38;47;39;36//TODAY;S:X'>0 Y=0;32///^S X=""COMPLETED"";"
^DIE(1531,"DR",2,6920.02)=".01:2"
^DIE(1531,"DR",2,6920.035)=".01"
^DIE(1532,0)="ANRVRE^2980220.0641^^2040^^^2980605"
^DIE(1532,"DR",1,2040)=".015;.5;1.2;1;1.5;2;3;3.5;4.2;4;4.5;5;6;6.5;7;9;12.1;12.2;12.3;12.4;12.5;13;"
^DIE(1532,"DR",2,2040.01)=".01;"
^DIE(1532,"DR",2,2040.02)=".01;"
^DIE(1532,"DR",2,2040.03)=".01;"
^DIE(1532,"DR",2,2040.04)=".01;1;2;3;4;5;"
^DIE(1532,"DR",2,2040.06)=".01;1;2;"
^DIE(1533,0)="ANRVEID^2980220.0634^^2040^^^2980605"
^DIE(1533,"DR",1,2040)="14;"
^DIE(1533,"DR",2,2040.014)=".01;1;"
^DIE(1534,0)="ANRV VIST PARM^2910612.1322^^2041^^^2980204^"
^DIE(1534,"DR",1,2041)=".01;.02;.03;.04;"
^DIE(1535,0)="ANRV EDIT LETTER^2931202.0802^^2043^^^2980611^"
^DIE(1535,"DR",1,2043)=".01;.02;1;"
^DIE(1536,0)="ANRV EDIT CHECKLIST^2930603.16^^2041.7^^^2980605^"
^DIE(1536,"DR",1,2041.7)=".01;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;"
^DIE(1536,"DR",2,"2041.7.032")=".01;1;"
^DIE(1537,0)="ANRVRRE^2980220.0642^^2042.5^^^2980605"
^DIE(1537,"DIAB",1,1,2042.51,0)="ALL"
^DIE(1537,"DR",1,2042.5)="1;"
^DIE(1537,"DR",2,2042.51)=".01:7"
^DIE(1538,0)="ANRVACE^2980203.0649^^2043.5^^^2980605"
^DIE(1538,"DR",1,2043.5)=".01;1;"
^DIE(1538,"DR",2,2043.51)=".01;.02;.03//^S SHEMP=$O(^ANRV(2041,0)),X=$S($D(^DIC(4,$P(^ANRV(2041,SHEMP,0),""^"",4),0)):$P(^(0),""^""),1:"""");.04;"
^DIE(1539,0)="ANRV PARAM EDIT^2980204.1233^@^2041^^@^2980416"
^DIE(1539,"DR",1,2041)=".02;.03;.04;"
^DIE(1540,0)="SD ENCOUNTER LOG^2970827.0853^@^409.68^^@^2980706"
^DIE(1540,"AB","^",.1)="1^SDAMXLG"
^DIE(1540,"AB","^",.1,"///")=""
^DIE(1540,"AB","^",101)="2^SDAMXLG"
^DIE(1540,"AB","^",101,"///")=""
^DIE(1540,"AB","^",102)="3^SDAMXLG"
^DIE(1540,"AB","^",102,"///")=""
^DIE(1540,"AB","^",201)="4^SDAMXLG"
^DIE(1540,"AB","^",201,"///")=""
^DIE(1540,"AB","^",202)="5^SDAMXLG"
^DIE(1540,"AB","^",202,"///")=""
^DIE(1540,"DR",1,409.68)=".1////^S X=$G(SDLOG(""APPT TYPE""));101////^S X=$G(SDLOG(""USER""));102////^S X=$G(SDLOG(""DATE/TIME""));201////^S X=$G(SDLOG(""CG""));202////^S X=$G(SDLOG(""REASON""));"
^DIE(1540,"ROU")="^SDAMXLG"
^DIE(1540,"ROUOLD")="SDAMXLG"
^DIE(1541,0)="PRCHVENDORNOREACT^3021203.1625^@^440^^@^3021203"
^DIE(1541,"DIAB",1,1,440.02,0)="ALL"
^DIE(1541,"DR",1,440)="W !!!;S NAME=$P($G(^PRC(440,DA,0)),U);W ""NAME: ""_NAME_""// (No Editing)"";1;S PAYADD1=$P($G(^PRC(440,DA,0)),U,2);2;S PAYADD2=$P($G(^PRC(440,DA,0)),U,3);S:X="""" Y=4.2;3;S:X="""" Y=4.2;4;4.2;4.4;4.6;46;S CHECKR=$P($G(^PRC(440,DA,3)),U,6);"
^DIE(1541,"DR",1,440,1)="I CHECKR=""R"" S Y=38;36///^S X=""R"";38;I X]"""" S Y=39;W !!,""This VENDOR needs a TAX IDENTIFICATION NUMBER or a SOCIAL SECURITY NUMBER."",!,""Please enter one if you have it or get it from the VENDOR."",!;39;I X]"""" S Y=""@1"";"
^DIE(1541,"DR",1,440,2)="W !!,""Please tell me whether the TAX ID/SSN field is a TAX NUMBER or a SSN NUMBER."",!;@1;S ORDER=^PRC(440,DA,0) W !!,""ORDERING ADDRESS: "",$P(ORDER,U,2) W:$P(ORDER,U,3)]"""" !,?18,$P(ORDER,U,3);"
^DIE(1541,"DR",1,440,3)="W !,?18,$P(ORDER,U,6) S STATE=$S($P(ORDER,U,7)>0:$P($G(^DIC(5,$P(ORDER,U,7),0)),U),1:"""") I STATE]"""" W "", ""_STATE;W "" ""_$P(ORDER,U,8),!;17.3//^S X=$E($P(^PRC(440,DA,0),U,2),1,30);"
^DIE(1541,"DR",1,440,4)="17.4//^S X=$S($P($G(^PRC(440,DA,7)),U,4)=""""&($P($G(^(7)),U,7)=""""):$E($P(^PRC(440,DA,0),U,3),1,30),1:"""");17.7//^S X=$E($P(^PRC(440,DA,0),U,6),1,19);"
^DIE(1541,"DR",1,440,5)="I $L($P(^PRC(440,DA,7),U,7))>19 W !!,""The city you entered is over 19 characters long.  When sent to FMS only the"",!,""first 19 characters will go.  You may want to edit the city."",!;"
^DIE(1541,"DR",1,440,6)="S STATE="""" I $P(^PRC(440,DA,0),U,7)>0 S STATE=$P(^DIC(5,$P(^PRC(440,DA,0),U,7),0),U);17.8//^S X=STATE;17.9//^S X=$P(^PRC(440,DA,0),U,8);41//^S X=""YES"";44;5;4.8;5.1;"
^DIE(1541,"DR",1,440,7)="S:'$D(^PRC(440,DA,4,0)) ^PRC(440.3,DA,4,0)=""^""_$P($G(^DD(440,6,0)),U,2)_""^0^0"";6;8.3;Q;10;D CHK^PRCHFPDS;I '$D(^PRC(440,DA,1.1)) S Y=10;K DIE(""NO^"");11;5.2;20;13//NOT APPLICABLE;S:X=""Y"" Y=14;S Y=18.3;14;18.3;"
^DIE(1541,"DR",2,440.02)=".01"
^DIE(1541,"DR",2,440.03)=".01:2;"
^DIE(1541,"DR",2,440.05)=".01;S DIE(""NO^"")=""A"";"
^DIE(1542,0)="XPAR SINGLE VALUED CREATE^2971118.1453^@^8989.51^^@^2980831"
^DIE(1542,"DIAB",1,1,8989.513,0)="ALL"
^DIE(1542,"DR",1,8989.51)=".01;.02;1.1;1.2;1.3;.05;30;20;"
^DIE(1542,"DR",2,8989.513)=".01:.02"
^DIE(1543,0)="XPAR MULTI VALUED CREATE^2960212.1418^@^8989.51^^@^2980612"
^DIE(1543,"DIAB",1,1,8989.513,0)="ALL"
^DIE(1543,"DR",1,8989.51)=".01;.02;.03//Yes;.04;6.1;6.2;6.3;1.1;1.2;1.3;30;20;"
^DIE(1543,"DR",2,8989.513)=".01:.02"
^DIE(1544,0)="DGSHARESUB^2981224.0731^@^35.1^^@^2981230"
^DIE(1544,"%D",0)="^^1^1^2981223^"
^DIE(1544,"%D",1,0)="Adds ability to edited Sub Category Name"
^DIE(1544,"DIAB",1,1,35.2,1)=".01;""SHARING AGREEMENT SUB-CATEGORY NAME"""
^DIE(1544,"DIAB",3,0,35.1,0)=".02:"
^DIE(1544,"DR",1,35.1)=".03;Q;^35.2^DG(35.2,^^S I(0,0)=D0 S Y(1)=$S($D(^DG(35.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1544,"DR",2,35.2)="@1;W !!,$P($G(^DG(35.2,DA,0)),U),"" is the name of the Sharing Agreement Sub-Category"";W !,""Do you wish to edit the Sub-Category Name"" S %=2 D YN^DICN I %'=1 S Y=$S(%=2:"""",1:""@1"");S DGEDMODE=1;"
^DIE(1544,"DR",2,35.2,1)=".01SHARING AGREEMENT SUB-CATEGORY NAME~;"
^DIE(1546,0)="RGEQ NEW EXCEPTION^2960307.0844^@^995.1^^@^2981111"
^DIE(1546,"DR",1,995.1)=".02///^S X=""NOW"";.03////^S X=TYPE;1////^S X=STUB;2////^S X=ERROR;"
^DIE(1547,0)="RGEQ NEW STATISTIC^2960306.1425^@^995.2^^@^2990416"
^DIE(1547,"DR",1,995.2)=".02////^S X=TYPE;.03////^S X=DATE;"
^DIE(1548,0)="MPIF SITE PARAMETERS^2960724.1606^@^991.8^^@^2990415"
^DIE(1548,"DIAB",1,0,991.8,0)=".02;""Type of Processing"""
^DIE(1548,"DIAB",2,0,991.8,0)=".03;""New Request Mailgroup"""
^DIE(1548,"DR",1,991.8)=".02Type of Processing~;.03New Request Mailgroup~;"
^DIE(1550,0)="MPIF OPEN REQUEST^2960718.1536^@^984.9^^@^2990429"
^DIE(1550,"DR",1,984.9)=".03///^S X=""TODAY"";.06////^S X=1;"
^DIE(1552,0)="MPIF REQUEST INCOMING^3010718.0437^@^984.9^^@^3011105"
^DIE(1552,"DR",1,984.9)="1.03////^S X=TYPE;.08////^S X=1;.06////^S X=3;.03////^S X=NDATE;1.01////^S X=USER;.07///^S X=INST;1.02////^S X=REASON;.05////^S X=PHONE;.04////^S X=PATIEN;"
^DIE(1553,0)="MPIF REVIEW RESULT^2960722.0907^@^984.9^^@^2980123"
^DIE(1553,"DR",1,984.9)="2.01////^S X=DUZ;2.02///^S X=""TODAY"";.06////^S X=$S($E(RESULT)=""A"":4,1:5);2.03//^S X=PHONE;3.02;"
^DIE(1554,0)="MPIF REVIEW RESET^2960722.0911^@^984.9^^@^2980414"
^DIE(1554,"DR",1,984.9)="2.01///@;2.02///@;.06////^S X=3;2.03///@;3.02///@;"
^DIE(1555,0)="MPIF RESULT INCOMING^3000614.0731^@^984.9^^@^3000619"
^DIE(1555,"DR",1,984.9)=".06////^S X=RESULT;2.02////^S X=NDATE;2.03////^S X=PHONE;3.01////^S X=REVIEWER;3.02////^S X=COMMENTS;"
^DIE(1556,0)="MPIF REVIEW AUTO^2960723.095^@^984.9^^@^2960726"
^DIE(1556,"DR",1,984.9)="2.02///^S X=""TODAY"";.06////^S X=4;3.01////^S X=""AUTOMATIC PROCESSING"";"
^DIE(1557,0)="RMPO ACT^2980326.0834^^665^^^2981118"
^DIE(1557,"DR",1,665)="I $G(RMPR(""STA""))'=$P(^RMPR(665,D0,0),U,2) W !,""Patient not enrolled at this site."",$C(7) H 3 S Y=""@99"";Q;19.5//;I X="""" S Y=""@1"";19.6;19.7///^S X=DUZ;S Y=""@99"";@1;S $P(^(""RMPOA""),U,4)="""",$P(^(""RMPOA""),U,6)="""";@99;"
^DIE(1558,0)="RMPO-EDIT-SITE^2980727.1235^@^669.9^^@^2981209"
^DIE(1558,"DIAB",1,1,669.9001,0)="ALL"
^DIE(1558,"DIAB",1,1,669.965,0)="ALL"
^DIE(1558,"DR",1,669.9)="60;65;61;"
^DIE(1558,"DR",2,669.9001)=".01:1"
^DIE(1558,"DR",2,669.965)=".01:2"
^DIE(1559,0)="RMPO ADD/EDIT NON-ITEM^2980521.1145^@^665^^@^2980521"
^DIE(1559,"DR",1,665)="Q;I $P(^RMPR(665,D0,""RMPOA""),U,3) W !!,*7,""<< INACTIVE patient !!!>>"",!!;I X'=""D"" S Y=""@1"";19.11//;@1;19.2;19.3;@99;"
^DIE(1559,"DR",2,665.193)=".01;Q;2//^D EXPIRE^RMPOBIL4 S:X["""" X=X;3;"
^DIE(1560,0)="RMPRE2319X^2990901.0722^@^660^^@^2990903"
^DIE(1560,"DR",1,660)="4.5;2;"
^DIE(1561,0)="XWB LISTENER EDIT^3030701.0852^@^8994.1^^@^3040909"
^DIE(1561,"DR",1,8994.1)="7;"
^DIE(1561,"DR",2,8994.17)=".01;1;"
^DIE(1561,"DR",3,8994.171)=".01;1;.5;2;"
^DIE(1562,0)="SCCV EDIT TEMPLATE^2980205.1526^@^404.98^^@^2990304"
^DIE(1562,"DIAB",1,0,404.98,0)="I $G(SCCVY)'="""" S Y=SCCVY;X"
^DIE(1562,"DIAB",8,0,404.98,0)=".05;""EVENT"""
^DIE(1562,"DR",1,404.98)="I $G(SCCVY)'="""" S Y=SCCVY;@5;.03;S SCCVX(""STARTDT"")=X;.04;S SCCVX(""ENDDT"")=X;I $S(SCCVX(""STARTDT"")'=SCCV(""STARTDT""):1,1:SCCVX(""ENDDT"")'=SCCV(""ENDDT"")),'$$DTOK^SCCVU1(.SCCVX) S Y=""@10"";.05EVENT~;S Y=""@15"";@10;"
^DIE(1562,"DR",1,404.98,1)=".03////^S X=SCCV(""STARTDT"");.04////^S X=SCCV(""ENDDT"");S Y=""@5"";@12;.05///2;@15;.06;"
^DIE(1563,0)="SCCV SCHEDULE REQUEST^3000407.111^@^404.98^^@^3000407"
^DIE(1563,"DIAB",1,0,404.98,0)="I $G(SCSTOP) S Y=""@10"";X"
^DIE(1563,"DIAB",2,0,404.98,0)="I '$G(ASKBULL) S Y=""@5"";X"
^DIE(1563,"DIAB",4,1,404.9825,1)="S SCCVOK=1;X"
^DIE(1563,"DIAB",7,0,404.98,0)="S SCCVNOW=$$NOW^XLFDT;X"
^DIE(1563,"DIAB",8,1,404.9825,1)="S SCCVOK=1;X"
^DIE(1563,"DIAB",10,1,404.9825,0)=".04//NOW"
^DIE(1563,"DR",1,404.98)="I $G(SCSTOP) S Y=""@10"";I '$G(ASKBULL) S Y=""@5"";.06//YES;@5;W !,""Logging request ..."";@10;S SCCVNOW=$$NOW^XLFDT;25///^S X=SCCVNOW;"
^DIE(1563,"DR",2,404.9825)="S SCCVDA1=DA;.01///^S X=SCCVNOW;.02////^S X=SCCVACT;.03////^S X=$P(SCCV0,U,5);Q;S $P(SCCV0,U,5)=X;.06////^S X=DUZ;I $G(SCSTOP) S Y=""@15"";Q;.04//^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(1563,"DR",2,404.9825,1)="I $P(SCCV0,U,5)=0 S Y=""@12"";.05;@12;S SCCVOK=1;S Y=""@99"";@15;.04///^S X=SCCVNOW;S SCCVOK=1;@99;"
^DIE(1564,0)="SCCV CREATE TEMPLATE^2980115.1423^@^404.98^^@^2990111"
^DIE(1564,"DR",1,404.98)=".02////1;.03;.04;"
^DIE(1565,0)="SCCV CONV EDIT SITE PARAMS^2990315.0829^@^404.91^^@^2990315"
^DIE(1565,"DIAB",3,0,404.91,0)="902;""DEFAULT DISPOSITION CLINIC"""
^DIE(1565,"DIAB",5,0,404.91,1)="903;""DATE SCHEDULE FILE DELETE COMPLETED"""
^DIE(1565,"DR",1,404.91)="901;905;902DEFAULT DISPOSITION CLINIC~;907//^S X=1000;909//^S X=""NO"";S SCCVX(904)=$P($G(^SD(404.91,1,""CNV"")),U,4);@15;I '$$COMPL^SCCVPAR(0) S Y=""@99"";I $$SEQGAP^SCCVPAR() S Y=""@99"";904;"
^DIE(1565,"DR",1,404.91,1)="I $P($G(^SD(404.91,1,""CNV"")),U,4)'=$G(SCCVX(904)) D 904^SCCVPAR(.Y);S SCCVX(903)=$P($G(^SD(404.91,1,""CNV"")),U,3);@25;I '$P($G(^SD(404.91,1,""CNV"")),U,4) S Y=""@99"";903DATE SCHEDULE FILE DELETE COMPLETED~;"
^DIE(1565,"DR",1,404.91,2)="I $P($G(^SD(404.91,1,""CNV"")),U,3)'=$G(SCCVX(903)) D 903^SCCVPAR(.Y);S Y=""@99"";@30;903///^S X=$S($G(SCCVX(903)):SCCVX(903),1:""@"");S Y=""@25"";@20;904///^S X=$S($G(SCCVX(904)):SCCVX(904),1:""@"");S Y=""@15"";@99;"
^DIE(1566,0)="SCCV CONV CANCEL^2980302.1614^@^404.98^^@^2981209"
^DIE(1566,"DR",1,404.98)=".09////1;"
^DIE(1567,0)="SCCV CONV FILE DELETION LOG^2990128.105^@^404.91^^@^2990128"
^DIE(1567,"DR",1,404.91)="1000///^S X=SCDEL(""FILE"");S SCFIN=1;"
^DIE(1567,"DR",2,404.9101)=".02////^S X=SCDEL(""DATE/TIME"");IF SCDEL(""TYPE"")=""DATA"" S Y=""@10"";.03////^S X=SCDEL(""USER"");S Y=""@50"";@10;.04////^S X=SCDEL(""USER"");@50;"
^DIE(1568,0)="PRCP LEVELS^2990908.1958^^445^^^2991008"
^DIE(1568,"DR",1,445)="1///^S X=PRCPITEM;"
^DIE(1568,"DR",2,445.01)="4;9;11;9.5;I 'X S Y=10;9.6;10;10.3;.4;"
^DIE(1569,0)="IBDF CPT MODIFIER^2990526.1117^@^357.3^^@^3000223"
^DIE(1569,"DIAB",1,1,357.33,0)="ALL"
^DIE(1569,"DR",1,357.3)="3;"
^DIE(1569,"DR",2,357.33)=".01"
^DIE(1570,0)="ACKQAS ENTER/EDIT MODIFIERS^2990910.1527^@^509850.5^^@^2991202"
^DIE(1570,"AB","^",.01)="1^ACKQTM"
^DIE(1570,"AB","^",1)="2^ACKQTM"
^DIE(1570,"DR",1,509850.5)=".01;1//^S X=$S(X=0:""INACTIVE"",1:""ACTIVE"");"
^DIE(1570,"ROU")="^ACKQTM"
^DIE(1570,"ROUOLD")="ACKQTM"
^DIE(1572,0)="PXRM EDIT ELEMENT^3070912.1118^@^801.41^^@^3071212"
^DIE(1572,"DIAB",2,1,801.412,0)="ITEM;""ADDITIONAL PROMPT/FORCED VALUE"""
^DIE(1572,"DIAB",18,0,801.41,0)="PROMPT CAPTION;""VITALS PROMPT CAPTION"""
^DIE(1572,"DR",1,801.41)=".01;3;100;101;102;13;17;15;S:X'[""YTT(601.71"" Y=25 S:X[""GMRD(120.51"" Y=24;D MHLICR^PXRMDLG5(+X);D RESCHK^PXRMDLG5(DA);I $G(RGKILL) K RGKILL,Y;@20;121;54;113;S Y=25;24VITALS PROMPT CAPTION~;25;35;23;51;18;10;@28;"
^DIE(1572,"DR",1,801.41,1)="D OTERM^PXRMDLG5(.DA);116;S X=$$NTERM^PXRMDLG5(.DA,$G(OTERM),X);S Y=$S(X=0:""@30"",X=1:""@29"",X=2:""@31"");@29;117;S X=$$TERMS^PXRMDLG5(.DA,X);S:+X=0 Y=""@28"" S:+X=2 Y=""@32"";118;S Y=""@32"";@30;117////@;118////@;S Y=""@29"";@31;117////@;"
^DIE(1572,"DR",1,801.41,2)="118////@;@32;"
^DIE(1572,"DR",2,801.41121)=".01;"
^DIE(1572,"DR",2,801.4118)=".01;"
^DIE(1572,"DR",2,801.412)=".01;2ADDITIONAL PROMPT/FORCED VALUE~;6;7;8;9;"
^DIE(1573,0)="PXRM EDIT REMINDER DIALOG^3040518.1822^@^801.41^^@^3050128"
^DIE(1573,"DIAB",2,1,801.412,0)="ITEM;""DIALOG ELEMENT/GROUP"""
^DIE(1573,"DR",1,801.41)=".01;3;100;101;102;2;10;112;"
^DIE(1573,"DR",2,801.412)=".01;2DIALOG ELEMENT/GROUP~;"
^DIE(1574,0)="PXRM EDIT GROUP^3040607.1209^@^801.41^^@^3050125"
^DIE(1574,"DIAB",1,0,801.41,1)="ALTERNATE PROGRESS NOTE TEXT;""GROUP HEADER ALTERNATE P/N TEXT"""
^DIE(1574,"DIAB",2,1,801.412,0)="ITEM;""DIALOG ELEMENT"""
^DIE(1574,"DIAB",10,0,801.41,0)="PROMPT CAPTION;""VITALS PROMPT CAPTION"""
^DIE(1574,"DIAB",11,0,801.41,0)="CAPTION;""GROUP CAPTION"""
^DIE(1574,"DIAB",12,0,801.41,0)="BOX;""PUT A BOX AROUND THE GROUP"""
^DIE(1574,"DIAB",13,0,801.41,0)="SHARE COMMON PROMPTS;""SHARE COMMON PROMPTS"""
^DIE(1574,"DIAB",14,0,801.41,0)="GROUP ENTRY;""MULTIPLE SELECTION"""
^DIE(1574,"DIAB",16,0,801.41,0)="DIALOG/PROGRESS NOTE TEXT;""GROUP HEADER DIALOG TEXT"""
^DIE(1574,"DR",1,801.41)=".01;3;100;101;102;13;17;15;I X'[""GMRD(120.51"" S Y=5;24VITALS PROMPT CAPTION~;5GROUP CAPTION~;6PUT A BOX AROUND THE GROUP~;8SHARE COMMON PROMPTS~;9MULTIPLE SELECTION~;50;25GROUP HEADER DIALOG TEXT~;"
^DIE(1574,"DR",1,801.41,1)="35GROUP HEADER ALTERNATE P/N TEXT~;23;51;7;52;18;10;@28;D OTERM^PXRMDLG5(.DA);116;S X=$$NTERM^PXRMDLG5(.DA,$G(OTERM),X);S Y=$S(X=0:""@30"",X=1:""@29"",X=2:""@31"");@29;117;S X=$$TERMS^PXRMDLG5(.DA,X);S:+X=0 Y=""@28"" S:+X=2 Y=""@32"";118;"
^DIE(1574,"DR",1,801.41,2)="S Y=""@32"";@30;117////@;118////@;S Y=""@29"";@31;117////@;118////@;@32;"
^DIE(1574,"DR",2,801.4118)=".01;"
^DIE(1574,"DR",2,801.412)=".01;2DIALOG ELEMENT~;8;"
^DIE(1575,0)="PXRM EDIT REMINDER TERM^3020329.1034^@^811.5^^@^3020912"
^DIE(1575,"DR",1,811.5)="D TERMS^PXRMREDF(DA,0);.01;100;102;1;20;"
^DIE(1575,"DR",2,811.52)=".01;9;12;17;10;11;13;16;14;15;18;"
^DIE(1576,0)="PXRM EDIT FORCED VALUE^3010530.144^@^801.41^^@^3050103"
^DIE(1576,"DR",1,801.41)=".01Forced value NAME~;3DISABLE Forced value~;100;101;102;22;14RESTRICTED TO FINDING TYPE~;"
^DIE(1577,0)="PXRM EDIT REMINDER CF^3030129.1046^@^811.4^^@^3050201"
^DIE(1577,"%D",0)="^^1^1^3000126^"
^DIE(1577,"%D",1,0)="Edit template for REMINDER COMPUTED FINDINGS."
^DIE(1577,"DR",1,811.4)=".01;.02;.03;.04;5;1;100;101;102;"
^DIE(1578,0)="PXRM RESULT ELEMENT^3071018.1601^@^801.41^^@^3071022"
^DIE(1578,"DIAB",9,0,801.41,0)="ALTERNATE PROGRESS NOTE TEXT;""PROGRESS NOTE TEXT"""
^DIE(1578,"DIAB",11,0,801.41,0)="DIALOG/PROGRESS NOTE TEXT;""INFORMATIONAL MESSAGE TEXT"""
^DIE(1578,"DR",1,801.41)="S X=$$RSELEDIT^PXRMDLG5(DA);S Y=$S(X=0:""@3"",X=1:""@2"",1:""@1"");@1;.01;100;101;102;53;35PROGRESS NOTE TEXT~;@2;25INFORMATIONAL MESSAGE TEXT~;@3;"
^DIE(1579,0)="PXRM RESULT GROUP^3070514.1722^@^801.41^^@^3071010"
^DIE(1579,"DR",1,801.41)=".01;3;100;101;102;@1;119;I X="""" W !,""A MH Test is required"" H 1 S Y=""@1"";D MHLICR^PXRMDLG5(+X);@2;120;I X="""" W !,""A MH Scale is required"" H 1 S Y=""@2"";23;10;"
^DIE(1579,"DR",2,801.412)=".01;2;"
^DIE(1580,0)="PXRM EDIT NATIONAL TERM^3020329.1032^@^811.5^^@^3020912"
^DIE(1580,"DR",1,811.5)="D TERMS^PXRMREDF(DA,0);20;"
^DIE(1580,"DR",2,811.52)=".01;9;12;17;10;11;13;16;14;15;18;"
^DIE(1581,0)="PSS SYNONYM^3000504.1035^@^50^^@^3000524"
^DIE(1581,"DR",1,50)="9;"
^DIE(1581,"DR",2,50.1)=".01;1;2;"
^DIE(1582,0)="DGRAI^2991012.1322^@^43^^@^2991028"
^DIE(1582,"DR",1,43)="391.705;391.7014;"
^DIE(1583,0)="DGRU ORIGINAL ADMISSION DATE^3000508.1115^^405^^^3000515"
^DIE(1583,"%D",0)="^^2^2^3000508^"
^DIE(1583,"%D",1,0)="Used to enter/edit the Original Admission Date field (#300) in the"
^DIE(1583,"%D",2,0)="Patient Movement file (#405)."
^DIE(1583,"DR",1,405)="300;"
^DIE(1584,0)="IBAT OUT PRICING EDIT^2990413.1105^@^351.61^^@^3000613"
^DIE(1584,"DR",1,351.61)="3;"
^DIE(1584,"DR",2,351.613)=".01;D CPTDSP^IBATLM2B(X);.02;.03;"
^DIE(1585,0)="RMPR EDIT STATION^3000727.1228^@^668^^@^3000815"
^DIE(1585,"DR",1,668)="2;"
^DIE(1586,0)="QAN ENTER TIME^3000830.1734^@^742.4^^@^3000830"
^DIE(1586,"DIAB",4,0,742.4,0)=".03;""DATE/TIME OF INCIDENT"""
^DIE(1586,"DR",1,742.4)=".02;@3;I $P(^QA(740,1,""QAN""),U,6)'=1 S Y=""@4"";.03DATE/TIME OF INCIDENT~;I $P(X,""."",2)']"""" W !,"" You must enter a TIME and date."" S Y=""@3"";S Y=""@5"";@4;.03;@5;.04;"
^DIE(1587,0)="QAN QUICK EDIT^3000509.1337^@^742.4^^@^3000509"
^DIE(1587,"DR",1,742.4)=".02;I X'=$G(QANDEATH) S Y=""@1"";.15;@1;@2;.03;I $P(^QA(740,1,""QAN""),U,6)'=1 S Y=""@3"";I $P(X,""."",2)']"""" W !,""  You must enter a TIME and a date."" S Y=""@2"";@3;"
^DIE(1588,0)="PRCP INVENTORY POINT (NON SS)^3000519.1336^^445^^^3010130^"
^DIE(1588,"DR",1,445)=".01;S PRCPTYPE=$P(^PRCP(445,DA,0),""^"",3) W !!,""TYPE OF INVENTORY POINT: "",$S(PRCPTYPE=""W"":""WAREHOUSE"",PRCPTYPE=""P"":""PRIMARY"",PRCPTYPE=""S"":""SECONDARY"",1:"""");.8;.5;.6;I PRCPTYPE'=""P"" S Y=12;14;15;"
^DIE(1588,"DR",1,445,1)="I $P(^PRCP(445,DA,0),""^"",20)'=""S"" S Y=12;16;12;I PRCPTYPE=""S"" S Y=6;.9;I PRCPTYPE'=""P"" S Y=6;5;5.5;9;6;I PRCPTYPE=""W"" S Y="""";11;"
^DIE(1588,"DR",2,445.011)=".01;1;"
^DIE(1588,"DR",2,445.04)=".01;"
^DIE(1589,0)="PRCP ITEM ALL FIELDS (NON-SS)^3000913.0953^^445^^^3010202^"
^DIE(1589,"%D",0)="^^3^3^3000428^"
^DIE(1589,"%D",1,0)="This template is used for inventory points non linked to a supply"
^DIE(1589,"%D",2,0)="station to ask all fields when adding new items to an inventory point or"
^DIE(1589,"%D",3,0)="selecting the AF protocol when editing."
^DIE(1589,"DIAB",1,2,445.02,0)="ALL"
^DIE(1589,"DIAB",1,2,445.122,0)="ALL"
^DIE(1589,"DR",1,445)="1///^S X=PRCPITEM;"
^DIE(1589,"DR",2,445.01)="S PRCPTYPE=$P(^PRCP(445,DA(1),0),""^"",3);.5;5;6;W !!,""  ----- Enter Issue Units -----"";D SETUNITS^PRCPEIUI(DA(1),DA);S PRCPUI=$$UNIT^PRCPUX1(DA(1),DA,"" per "");4;4.5;I PRCPTYPE'=""P"" S Y=""@1"";"
^DIE(1589,"DR",2,445.01,1)="I $P(^PRCP(445,DA(1),0),""^"",20)'=""D"" S Y=16;50;51;16;16.5;@1;S PRCPUI1=$$UNIT^PRCPUX1(DA(1),DA,"" per "");I PRCPTYPE'=""S"",PRCPUI'=PRCPUI1,PRCPUI1'[""?"" D UPDATE^PRCPEIPU(DA(1),DA);"
^DIE(1589,"DR",2,445.01,2)="W !!,""  ----- Enter Procurement and Mandatory Sources -----"";D SOURCES^PRCPEIPS(DA(1),DA);D SOURCES0^PRCPEIL1(DA(1),DA);W !!,""  ----- Enter Levels -----"";9;11;9.5;I 'X S Y=10;9.6;10;10.3;I PRCPTYPE=""W"" S Y=""@3"";"
^DIE(1589,"DR",2,445.01,3)="W !!,""  -----Enter Costs -----"";4.7;@3;I PRCPTYPE=""S"" S Y="""";W !!,""  ----- Enter Special Parameters -----"";I PRCPTYPE=""W"" S Y=22;I $P(^PRCP(445,DA(1),0),""^"",10)'=""S"" S Y=14;14.5;14;14.3;14.4;I PRCPTYPE=""P"" S Y="""";22;"
^DIE(1589,"DR",3,445.02)=".01"
^DIE(1589,"DR",3,445.122)=".01"
^DIE(1590,0)="PRCP ITEM ALL FIELDS (SS)^3000921.0928^@^445^^@^3000921"
^DIE(1590,"DIAB",1,2,445.02,0)="ALL"
^DIE(1590,"DIAB",1,2,445.122,0)="ALL"
^DIE(1590,"DR",1,445)="1///^S X=PRCPITEM;"
^DIE(1590,"DR",2,445.01)="N PRCPQUIT;S PRCPTYPE=$P(^PRCP(445,DA(1),0),""^"",3);.5;5;6;W !!,""  ----- Enter Issue Units -----"";D SETUNITS^PRCPEIUI(DA(1),DA);S PRCPUI=$$UNIT^PRCPUX1(DA(1),DA,"" per "");4;4.5;I PRCPTYPE'=""P"" S Y=""@1"";"
^DIE(1590,"DR",2,445.01,1)="I $P(^PRCP(445,DA(1),0),""^"",20)'=""D"" S Y=16;50;51;16;16.5;@1;S PRCPUI1=$$UNIT^PRCPUX1(DA(1),DA,"" per "");I PRCPTYPE'=""S"",PRCPUI'=PRCPUI1,PRCPUI1'[""?"" D UPDATE^PRCPEIPU(DA(1),DA);"
^DIE(1590,"DR",2,445.01,2)="W !!,""  ----- Enter Procurement and Mandatory Sources -----"";D SOURCES^PRCPEIPS(DA(1),DA);D SOURCES0^PRCPEIL1(DA(1),DA);W !!,""  ----- Enter Levels -----"";S PRCPQUIT=0;D EDNORM^PRCPEITE(DA(1),DA,""NORMAL STOCK LEVEL"",.PRCPQUIT);"
^DIE(1590,"DR",2,445.01,3)="I PRCPQUIT S Y=""@99"";11;9.5;I 'X S Y=10;9.6;10;10.3;I PRCPTYPE=""W"" S Y=""@3"";W !!,""  -----Enter Costs -----"";4.7;@3;I PRCPTYPE=""S"" S Y="""";W !!,""  ----- Enter Special Parameters -----"";I PRCPTYPE=""W"" S Y=22;"
^DIE(1590,"DR",2,445.01,4)="I $P(^PRCP(445,DA(1),0),""^"",10)'=""S"" S Y=14;14.5;14;14.3;14.4;I PRCPTYPE=""P"" S Y="""";22;@99;"
^DIE(1590,"DR",3,445.02)=".01"
^DIE(1590,"DR",3,445.122)=".01"
^DIE(1591,0)="PRCP INVENTORY POINT (SS)^3000915.1158^@^445^^@^3000921"
^DIE(1591,"DR",1,445)="W !!,""The inventory point name cannot be edited on a supply station secondary."";W !,""INVENTORY POINT: "",$P(^PRCP(445,DA,0),""^"",1);"
^DIE(1591,"DR",1,445,1)="S PRCPTYPE=$P(^PRCP(445,DA,0),""^"",3) W !,""TYPE OF INVENTORY POINT: "",$S(PRCPTYPE=""W"":""WAREHOUSE"",PRCPTYPE=""P"":""PRIMARY"",PRCPTYPE=""S"":""SECONDARY"",1:"""");.8;"
^DIE(1591,"DR",1,445,2)="W !!,""WARNING: A 'NO' RESPONSE MAY CAUSE INTEGRITY PROBLEMS IN THE SUPPLY STATION INTERFACE."";.5;W !!,""WARNING: A 'NO' RESPONSE CAUSES GIP TO IGNORE INFORMATION FROM THE SUPPLY STATION."";.6;W !;I PRCPTYPE'=""P"" S Y=12;14;15;"
^DIE(1591,"DR",1,445,3)="I $P(^PRCP(445,DA,0),""^"",20)'=""S"" S Y=12;16;12;I PRCPTYPE=""S"" S Y=6;.9;I PRCPTYPE'=""P"" S Y=6;5;5.5;9;6;I PRCPTYPE=""W"" S Y="""";11;"
^DIE(1591,"DR",2,445.011)=".01;1;"
^DIE(1591,"DR",2,445.04)=".01;"
^DIE(1592,0)="GMRC PROCEDURE SETUP^3020204.1613^@^123.3^^@^3020329"
^DIE(1592,"DIAB",1,1,123.31,0)="ALL"
^DIE(1592,"DIAB",1,1,123.3128,0)="ALL"
^DIE(1592,"DIAB",1,1,123.32,0)="ALL"
^DIE(1592,"DR",1,123.3)="I $O(^GMR(123.3,DA,""IFCS"",0)) D EN^DDIOL(""Procedure configured to receive inter-facility consults from another facility."","""",""!"");"
^DIE(1592,"DR",1,123.3,1)="I $O(^GMR(123.3,DA,""IFCS"",0)) D EN^DDIOL(""Editing of the procedure name may disrupt inter-facility consult operations."","""",""!"");.01;Q;I '$G(GMRCNEW) S Y=""@99"";"
^DIE(1592,"DR",1,123.3,2)="D EN^DDIOL(""The new procedure will not be orderable unless the INACTIVE flag is deleted."");Q;.02//^S X=""YES"";S Y=""@999"";@99;.02;@999;1;3;2;.05;I '$$VERSION^XPDUTL(""MD"") S Y=""@9999"";I $D(^GMR(123.3,DA,""IFC"")) S Y=""@9999"";"
^DIE(1592,"DR",1,123.3,3)="I $D(^GMR(123.3,DA,""IFCS"")) S Y=""@9999"";.04;@9999;D EN^DDIOL("" "");125;.07;.08;124;.09;I $P(^GMR(123.3,DA,0),U,4) S Y="""";D EN^DDIOL("" "");D EN^DDIOL(""Inter-facility information:"");"
^DIE(1592,"DR",1,123.3,4)="I $O(^GMR(123.3,DA,""IFCS"",0)) D EN^DDIOL("" "") S Y=128;126;127;I +$G(^GMR(123.3,DA,""IFC"")) D EN^DDIOL("" "") S Y="""";128;"
^DIE(1592,"DR",2,123.31)=".01"
^DIE(1592,"DR",2,123.3128)=".01"
^DIE(1592,"DR",2,123.32)=".01"
^DIE(1593,0)="IBT AVERAGE BILL AMOUNTS (MON)^3010222.1636^^356.19^^^3010507"
^DIE(1593,"DR",1,356.19)="1.01////^S X=IBAVG(""BILLS-I"");1.02////^S X=IBAVG(""$AMNT-I"");1.03////^S X=IBAVG(""EPISD-I"");1.04////^S X=IBAVG(""BILLS-P"");1.05////^S X=IBAVG(""$AMNT-P"");1.06////^S X=IBAVG(""EPISD-P"");1.13///NOW;"
^DIE(1594,0)="IBT AVERAGE BILL AMOUNTS (12M)^3010223.1242^^356.19^^^3010507"
^DIE(1594,"DR",1,356.19)="1.07////^S X=IBAVG(""BILLS-I"");1.08////^S X=IBAVG(""$AMNT-I"");1.09////^S X=IBAVG(""EPISD-I"");1.1////^S X=IBAVG(""BILLS-P"");1.11////^S X=IBAVG(""$AMNT-P"");1.12////^S X=IBAVG(""EPISD-P"");1.14///NOW;"
^DIE(1595,0)="IBT UNBILLED AMOUNTS^3040928.1019^^356.19^^^3040928"
^DIE(1595,"DIAB",1,0,356.19,3)="2.11///NOW"
^DIE(1595,"DR",1,356.19)="2.01////^S X=IBUNB(""EPISM-I"");2.02////^S X=IBUNB(""EPISM-P"");2.03////^S X=IBUNB(""ENCNTRS"");2.04////^S X=IBUNB(""CPTMS-I"");2.05////^S X=IBUNB(""CPTMS-P"");2.06////^S X=IBUNB(""PRESCRP"");2.07////^S X=IBUNB(""UNBILIP"");"
^DIE(1595,"DR",1,356.19,1)="2.08////^S X=IBUNB(""UNBILOP"");2.09////^S X=IBUNB(""UNBILRX"");2.1////^S X=IBUNB(""UNBILTL"");3.01////^S X=IBUNB(""EPISM-I-MRA"");3.02////^S X=IBUNB(""EPISM-P-MRA"");3.04////^S X=IBUNB(""CPTMS-I-MRA"");3.05////^S X=IBUNB(""CPTMS-P-MRA"");"
^DIE(1595,"DR",1,356.19,2)="3.06////^S X=IBUNB(""PRESCRP-MRA"");3.07////^S X=IBUNB(""UNBILIP-MRA"");3.08////^S X=IBUNB(""UNBILOP-MRA"");3.09////^S X=IBUNB(""UNBILRX-MRA"");3.1////^S X=IBUNB(""UNBILTL-MRA"");Q;"
^DIE(1595,"DR",1,356.19,3)="2.11///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);"
^DIE(1596,0)="MAG SITE PARAMETERS^3010102.1404^^2006.1^^^3010102"
^DIE(1596,"DIAB",1,1,2006.112,0)="ALL"
^DIE(1596,"DR",1,2006.1)=".02;.03;120;.09;W !!,""The following two fields relate to the NT IMAGING PROFILE."";50;X ^%ZOSF(""EOFF"");51;X ^%ZOSF(""EON"");S:'$O(^MAGDHL7(2006.5,0)) Y=""@1"";W !!,""PACS interface fields: "";1.01;1.03;102;103;@1;"
^DIE(1596,"DR",1,2006.1,1)="W !!,""The following fields relate to Jukebox functions"";54;11;20;12;W !!,""The following fields relate to Imaging workstation parameters"",!;121;122;100;101;"
^DIE(1596,"DR",2,2006.112)=".01"
^DIE(1598,0)="MAG ENTER/EDIT NETWORK LOC^2990302.13^^2005.2^^^3010404"
^DIE(1598,"DR",1,2005.2)=".01;6//^S X=""MAG"";5//^S X=1;1;7;"
^DIE(1599,0)="MAG EDIT BACKGRND WORKSTA^3001025.1225^^2006.8^^^3001025"
^DIE(1599,"DR",1,2006.8)=".01;50;11;I X=""""!(X=0) S Y=""@100"";12;13;14;15;20;@100;"
^DIE(1600,0)="MAG PURGE PARAMETERS^2990225.16^^2006.1^^^3001016"
^DIE(1600,"DR",1,2006.1)="W !,""You are setting the parameters for purging image files."";8;9;21;22;23;24;"
^DIE(1601,0)="MAGD-UPDT^2970311.1151^@^2006.575^^@^2970311"
^DIE(1601,"DR",1,2006.575)="16///^S X=1;17///^S X=NEWDFN;18///^S X=NEWNME;19///^S X=NEWSSN;20///^S X=NEWCAS;21///^S X=NEWDTI;22///^S X=NEWMUL;23///^S X=NEWDTIM;24///^S X=NEWPIEN;25///^S X=NEWPROC;"
^DIE(1602,0)="MAGD-ENTRY^2970311.1157^@^2006.575^^@^2970311"
^DIE(1602,"DR",1,2006.575)=".01///^S X=FROMPATH;1///^S X=REASON;2///^S X=PID;3///^S X=PATIENT;4///^S X=PNAMEDCM;5///^S X=ACNUMB;6///^S X=CASENUMB;7///^S X=DATE;8///^S X=IMAGEUID;9///^S X=STUDYUID;10///^S X=MODNAME;11///^S X=ROWS;12///^S X=COLUMNS;"
^DIE(1602,"DR",1,2006.575,1)="13///^S X=OFFSET;14///^S X=MODIEN;27///^S X=MODALITY;"
^DIE(1603,0)="MAG MUSE PARAMETERS^3001006.1018^@^2006.1^^@^3010404"
^DIE(1603,"DR",1,2006.1)="50;51;101;"
^DIE(1604,0)="MAG ENTER/EDIT MUSE NETWORK^3000410.1523^@^2005.2^^@^3010404"
^DIE(1604,"DR",1,2005.2)=".01;1;6//^S X=""EKG"";5;15;16;28;29;"
^DIE(1606,0)="LR LNC MAP ANTIMICROBIAL^3001122.145^^62.06^^^3010214"
^DIE(1606,"DIAB",1,0,62.06,0)="64:"
^DIE(1606,"DR",1,62.06)="^64^LAM(^^S I(0,0)=D0 S Y(1)=$S($D(^LAB(62.06,D0,64)):^(64),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1606,"DR",2,64)="25;"
^DIE(1610,0)="ABSV DON GPF^3010629.1526^^503342^^^3010830"
^DIE(1610,"%D",0)="^^1^1^3010824^"
^DIE(1610,"%D",1,0)="Allows the user to enter an account name and number in the GPF file."
^DIE(1610,"DR",1,503342)="1;2;"
^DIE(1611,0)="ABSV DON EDIT LETTER^3010720.1615^^503341^^^3010911"
^DIE(1611,"%D",0)="^^1^1^3010824^"
^DIE(1611,"%D",1,0)="Allows the user to edit a thank you letter."
^DIE(1611,"DR",1,503341)=".01;1;2;"
^DIE(1612,0)="ABSV DON LETTER FORMAT^3010722.1501^^503341^^^3010722"
^DIE(1612,"%D",0)="^^1^1^3010824^"
^DIE(1612,"%D",1,0)="Allows the user to add/edit a letter format in the letter file."
^DIE(1612,"DR",1,503341)=".01;1;2;"
^DIE(1614,0)="ABSV DON LETTER EDIT^3010725.1621^^503341^^^3010725"
^DIE(1614,"%D",0)="^^1^1^3010824^"
^DIE(1614,"%D",1,0)="Allows the user to add or edit a letter in the letter file."
^DIE(1614,"DR",1,503341)="2;"
^DIE(1617,0)="ABSV DON MANUAL ENTRY^3010812.1834^^503344^^^3020508"
^DIE(1617,"%D",0)="^^1^1^3010824^"
^DIE(1617,"%D",1,0)="Allows the user to enter the data for a temporary receipt manually."
^DIE(1617,"DR",1,503344)="10;1;2;9;3;5;14;12;13;6;"
^DIE(1618,0)="PSS DOSAGE FORM^3020920.1318^@^50.606^^@^3020920"
^DIE(1618,"DIAB",1,1,50.6061,0)="ALL"
^DIE(1618,"DR",1,50.606)="1;3;3.1;5;5.1;6;10;"
^DIE(1618,"DR",2,50.6061)=".01"
^DIE(1618,"DR",2,50.6066)=".01;3;1;"
^DIE(1619,0)="PSS MEDICATION ROUTES^3070522.2054^@^51.2^^@^3070530"
^DIE(1619,"DR",1,51.2)=".01;1;3;4;4.1;6;8;9;"
^DIE(1620,0)="EASEC ENTER/EDIT ASSETS^3010919.1608^@^408.21^^@^3011024"
^DIE(1620,"DIAB",2,0,408.21,1)="2.01;""CASH"""
^DIE(1620,"DIAB",5,0,408.21,1)="2.02;""STOCKS, BONDS, MUTUAL FUNDS, SEP'S"""
^DIE(1620,"DIAB",8,0,408.21,0)="2.07;""OTHER RESIDENCES/LAND/FARM OR RANCH"""
^DIE(1620,"DR",1,408.21)="K DGFIN;I '$D(DGDR) W !,*7,""Variable DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;2.06;@102;S:DGDR'[""102"" Y=""@103"";2.07OTHER RESIDENCES/LAND/FARM OR RANCH~;@103;S:DGDR'[""103"" Y=""@104"";2.08;@104;"
^DIE(1620,"DR",1,408.21,1)="S:DGDR'[""104"" Y=""@105"";2.01CASH~;@105;S:DGDR'[""105"" Y=""@106"";2.02STOCKS, BONDS, MUTUAL FUNDS, SEP'S~;@106;S:DGDR'[""106"" Y=""@998"";2.09;@998;S DGFIN="""";@999;"
^DIE(1621,0)="EASEC ENTER/EDIT EXPENSES^3030521.1731^@^408.21^^@^3030704"
^DIE(1621,"DIAB",5,0,408.21,0)="1.03;""EDUCATION"""
^DIE(1621,"DIAB",8,0,408.21,0)="1.02;""FUNERAL AND BURIAL"""
^DIE(1621,"DIAB",10,0,408.21,1)="1.01;""NON-REIMBURSED MEDICAL EXPENSES"""
^DIE(1621,"DR",1,408.21)="K DGFIN;I '$D(DGDR) W !,*7,""Variable DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;1.03EDUCATION~;@102;S:DGDR'[""102"" Y=""@103"";1.02FUNERAL AND BURIAL~;@103;S:DGDR'[""103"" Y=""@104"";1.04;@104;S:DGDR'[""104"" Y=""@105"";"
^DIE(1621,"DR",1,408.21,1)="1.05;@105;S:DGDR'[""105"" Y=""@106"";1.06;@106;S:DGDR'[""106"" Y=""@107"";1.07;@107;S:DGDR'[""107"" Y=""@108"";1.01NON-REIMBURSED MEDICAL EXPENSES~;@108;S:DGDR'[""108"" Y=""@109"";1.08;@109;S:DGDR'[""109"" Y=""@110"";1.09;@110;S:DGDR'[""110"" Y=""@998"";"
^DIE(1621,"DR",1,408.21,2)="1.1;@998;S DGFIN="""";@999;"
^DIE(1622,0)="EASEC ENTER/EDIT INCOME^3020227.1406^@^408.21^^@^3020522"
^DIE(1622,"DIAB",1,0,408.21,3)=".16;""OTHER COMPENSATION (WORKERS COMP/BLACK LUNG)"""
^DIE(1622,"DIAB",2,0,408.21,1)=".15;""INTEREST/DIVIDENDS"""
^DIE(1622,"DIAB",5,0,408.21,0)=".14;""CURRENT INCOME"""
^DIE(1622,"DIAB",6,0,408.21,2)=".19;""SPOUSE VA DISABILITY/COMPENSATION"""
^DIE(1622,"DIAB",8,0,408.21,0)=".08;""SOCIAL SECURITY RETIREMENT/DISABILITY"""
^DIE(1622,"DIAB",8,0,408.21,1)=".09;""CIVIL SERVICE RETIREMENT"""
^DIE(1622,"DIAB",13,0,408.21,3)=".17;""OTHER INCOME"""
^DIE(1622,"DR",1,408.21)="K DGFIN;I '$D(DGDR)!('$D(DGPRTY)) W !,*7,""Variable DGDR and DGPRTY must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;.14CURRENT INCOME~;@102;S:DGDR'[""102"" Y=""@103"";.08SOCIAL SECURITY RETIREMENT/DISABILITY~;@103;"
^DIE(1622,"DR",1,408.21,1)="S:DGDR'[""103"" Y=""@104"";.15INTEREST/DIVIDENDS~;@104;S:DGDR'[""104"" Y=""@105"";.06;@105;S:DGDR'[""105"" Y=""@106"";.09CIVIL SERVICE RETIREMENT~;@106;S:DGDR'[""106"" Y=""@107"";.1;@107;S:DGDR'[""107"" Y=""@108"";"
^DIE(1622,"DR",1,408.21,2)="S:DGPRTY=""V""&($P($G(^DPT(DFN,.362)),U,14)'=""Y"") Y=""@108"";.07;@108;S:DGDR'[""108"" Y=""@109"";S:DGPRTY=""V"" Y=""@109"";.19SPOUSE VA DISABILITY/COMPENSATION~;@109;S:DGDR'[""109"" Y=""@110"";.12;@110;S:DGDR'[""110"" Y=""@111"";"
^DIE(1622,"DR",1,408.21,3)=".16OTHER COMPENSATION (WORKERS COMP/BLACK LUNG)~;@111;S:DGDR'[""111"" Y=""@112"";.11;@112;S:DGDR'[""112"" Y=""@113"";.13;@113;S:DGDR'[""113"" Y=""@114"";.2;@114;S:DGDR'[""114"" Y=""@998"";.17OTHER INCOME~;@998;S DGFIN="""";@999;"
^DIE(1623,0)="EASEC COMPLETE LTC CO-PAY TEST^3030522.0903^@^408.31^^@^3030708"
^DIE(1623,"DIAB",2,0,408.31,3)=".07;REQ"
^DIE(1623,"DIAB",4,0,408.31,3)="50;""Comments"""
^DIE(1623,"DR",1,408.31)="K DGFIN;I '$D(DGMTS)!('$D(DGINT))!('$D(DGDET))!('$D(DGNWT)) W !,*7,""Variables DGMTS, DGINT, DGDET, and DGNWT must be defined!"" S Y=""@999"";S:$P(^DGMT(408.31,DA,0),U,14)=0&('$D(DGREF)) Y=""@20"";.14///^S X=$S($D(DGREF):1,1:0);@20;"
^DIE(1623,"DR",1,408.31,1)=".03////^S X=DGMTS;2.07////^S X=$S(DGMTS=12:$G(DGRE),1:""@"");2.08////^S X=$P($$GETLTC4^EASECMT(DFN,DGMTDT),U,1);.04////^S X=$S('$D(DGREF):DGINT,1:""@"");.15////^S X=$S('$D(DGREF):DGDET,1:""@"");.05////^S X=$S('$D(DGREF):DGNWT,1:""@"");"
^DIE(1623,"DR",1,408.31,2)=".18////^S X=$G(DGND);.06////^S X=DUZ;S:$P(^DGMT(408.31,DA,0),U,7) Y=""@30"";.07///^S X=$S(DGMTDT=DT:""NOW"",1:DGMTDT);2.05////^S X=$$GETSITE^DGMTU4(.DUZ);@30;2.02///^S X=""NOW"";.11////^S X=$S($D(DGAGR):DGAGR,1:""@"");"
^DIE(1623,"DR",1,408.31,3)="S:DGMTDT'<DT Y=""@998"";.07R~;@998;50Comments~;S DGFIN="""";@999;"
^DIE(1624,0)="EASEC EDIT MARITAL STATUS^3030902.1412^@^408.22^^@^3031022"
^DIE(1624,"DIAB",2,0,408.22,2)=".08//^S X=$S($D(DGREL(""C"")):""YES"",1:"""");REQ;T"
^DIE(1624,"DIAB",3,0,408.22,1)=".17;REQ;""ARE YOU LEGALLY SEPARATED"""
^DIE(1624,"DIAB",5,0,408.22,0)=".14//^S X=$S(""^2^5^""[(U_$S($D(^DPT(DFN,0)):$P(^(0),U,5),1:"""")_U)!($D(DGREL(""S""))):""YES"",1:""NO"");REQ;T"
^DIE(1624,"DIAB",5,0,408.22,1)=".16;REQ;""IS YOUR SPOUSE RESIDING IN THE COMMUNITY"""
^DIE(1624,"DIAB",8,0,408.22,1)=".15;REQ;""ARE YOU LIVING WITH YOUR SPOUSE"""
^DIE(1624,"DR",1,408.22)="K DGFIN;I '$D(DFN)!('$D(DGDR)) W !,*7,""Variables DFN and DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;.14T~R~//^S X=$S(""^2^5^""[(U_$S($D(^DPT(DFN,0)):$P(^(0),U,5),1:"""")_U)!($D(DGREL(""S""))):""YES"",1:""NO"");"
^DIE(1624,"DR",1,408.22,1)="S:'X Y=""@102"";S:'$G(DGFORM) Y=.16;.17ARE YOU LEGALLY SEPARATED~R~;S:X Y=""@102"";.16IS YOUR SPOUSE RESIDING IN THE COMMUNITY~R~;S:'X Y=""@102"";S:$G(DGFORM) Y=""@102"";.15ARE YOU LIVING WITH YOUR SPOUSE~R~;S:X Y=""@102"";@102;"
^DIE(1624,"DR",1,408.22,2)="S:DGDR'[""102"" Y=""@998"";.08T~R~//^S X=$S($D(DGREL(""C"")):""YES"",1:"""");@998;S DGFIN="""";@999;"
^DIE(1625,0)="EASEC EDIT DEPENDENTS^3010821.1359^@^408.22^^@^3011011"
^DIE(1625,"DIAB",2,0,408.22,0)=".16;""IS THE CHILD LIVING IN THE COMMUNITY"""
^DIE(1625,"DIAB",4,0,408.22,0)=".15;""IS THE CHILD LIVING WITH YOU"""
^DIE(1625,"DR",1,408.22)="K DGFIN;.16IS THE CHILD LIVING IN THE COMMUNITY~;S:'X Y=""@998"";.15IS THE CHILD LIVING WITH YOU~;@998;S DGFIN="""";"
^DIE(1626,0)="MAGJ LIST EDIT^2990713.1458^@^2006.631^^@^3020227"
^DIE(1626,"DIAB",1,1,2006.6311,0)="ALL"
^DIE(1626,"DIAB",7,0,2006.631,0)=".05///NOW"
^DIE(1626,"DR",1,2006.631)=".01;.02;.07;.03;.04///A;Q;.05///^S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100);.06;1;2;"
^DIE(1626,"DR",2,2006.6311)=".01:1"
^DIE(1626,"DR",2,2006.6312)=".01;I +X I '$P(^MAG(2006.63,+X,0),U,7) S Y=""@88"";1;S Y=""@99"";@88;1///0;@99;"
^DIE(1627,0)="MAGJ PRIOR EDIT^2990701.0935^@^2006.65^^@^3010817"
^DIE(1627,"DR",1,2006.65)=".01;1;"
^DIE(1627,"DR",2,2006.66)=".01;4///Y;6;5;"
^DIE(1628,0)="ABSV DONATIONS ENTER^3010817.1551^^503340^^^3020422"
^DIE(1628,"DR",1,503340)="1;2;3.5;4;1.7;1.71;1.72;20;21;22;4.5;5;6;7;19;8;16;D ^ABSVDADD;14;14.5;3;9;23;S PLTR=$S(X'=1:0,1:1);"
^DIE(1629,0)="ABSV DON EDIT^3010803.1358^^503340^^^3010817"
^DIE(1629,"%D",0)="^^1^1^3010824^"
^DIE(1629,"%D",1,0)="Allows the user to edit a donation file entry."
^DIE(1629,"DR",1,503340)="1;1.5;2;3;3.5;4;1.7;1.71;1.72;20;21;22;4.5;5;6;16;7;8;9;14;14.5;15;17;18;19;30;30.5;31;32;33;34;35;"
^DIE(1630,0)="ABSV DON PRINT LETTER^3010806.163^^503340^^^3011105"
^DIE(1630,"%D",0)="^^1^1^3010824^"
^DIE(1630,"%D",1,0)="Allows the user to enter the data needed to print a letter."
^DIE(1630,"DR",1,503340)="17;37;30;30.5;30.7;31;32;33;34;35;40;I X="""" S Y=""@1"";36////cc:;41;42;43;I X="""" S Y=""@1"";44;45;@1;"
^DIE(1631,0)="PXRM EDIT NATIONAL DIALOG^3011211.1627^@^801.41^^@^3041210"
^DIE(1631,"DIAB",1,1,801.4118,0)="ALL"
^DIE(1631,"DR",1,801.41)="15;18;"
^DIE(1631,"DR",2,801.4118)=".01"
^DIE(1633,0)="RORMNT EDIT REG PARAMS^3030424.1422^^798.1^^@^3060202"
^DIE(1633,"%D",0)="^.4021^2^2^3030424^^^"
^DIE(1633,"%D",1,0)="This template is used by the [RORMNT EDIT REG PARAMS] menu option to"
^DIE(1633,"%D",2,0)="review/edit the registry parameters."
^DIE(1633,"DIAB",1,1,798.11,0)="ALL"
^DIE(1633,"DIAB",1,1,798.114,0)="ALL"
^DIE(1633,"DR",1,798.1)="1;2;7;8;8.1;11;14;15.1;15.9;13.2;25;13.1;"
^DIE(1633,"DR",2,798.11)=".01"
^DIE(1633,"DR",2,798.114)=".01"
^DIE(1636,0)="RORMNT EDIT LAB SEARCH^3020305.102^^798.9^^@^3060202"
^DIE(1636,"DR",1,798.9)="2;1;"
^DIE(1636,"DR",2,798.92)=".01;1;2;"
^DIE(1637,0)="TIU ENTER/EDIT CLINPROC RESULT^3030418.1053^^8925^^^3031106"
^DIE(1637,"DIAB",2,0,8925,4)="1202//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T;REQ"
^DIE(1637,"DIAB",4,0,8925,7)="1208//^S X=TIUDCSNR;REQ"
^DIE(1637,"DIAB",7,0,8925,3)="1301//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");T"
^DIE(1637,"DIAB",8,0,8925,7)="1208;REQ"
^DIE(1637,"DIAB",10,0,8925,11)="70201;REQ"
^DIE(1637,"DIAB",11,0,8925,11)="70202;REQ"
^DIE(1637,"DR",1,8925)="S DIE(""NO^"")="""";.02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);.07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);1401////^S X=$P($G(TIU(""AD#"")),U);I '+$G(TIUBY) S Y=""@1"";"
^DIE(1637,"DR",1,8925,1)="I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@13"";1205////^S X=$P($G(TIU(""LOC"")),U);1212////^S X=$P($G(TIU(""INST"")),U);@13;I +$G(^TIU(8925,+DA,13)) S Y=""@14"";1301////^S X=$$NOW^TIULC;@14;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";"
^DIE(1637,"DR",1,8925,2)="1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;"
^DIE(1637,"DR",1,8925,3)="I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@16"";1212////^S X=+$G(DUZ(2));S Y=""@17"";@16;1212////^S X=+$$DIVISION^TIULC1(+$P($G(^TIU(8925,+DA,12)),U,5));@17;1301T~//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");"
^DIE(1637,"DR",1,8925,4)="I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";1202R~T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));Q;"
^DIE(1637,"DR",1,8925,5)="I +$G(TIUAUTH),(+$P(^TIU(8925,+DA,12),U,2)'=+$G(TIUAUTH)) S TIU(""SVC"")=$$PROVSVC^TIULV(+$P(^(12),U,2)),TIUAUTH=+$P(^TIU(8925,+DA,12),U,2);@2;1204////^S X=$P($G(^TIU(8925,+DA,12)),U,2);S TIUESNR=X;"
^DIE(1637,"DR",1,8925,6)="I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";1201////^S X=$$NOW^TIULC;@6;I '+$$REQCOSIG^TIULP(+$G(TIUTYP),+DA,+$G(TIUESNR)),($L($P($G(^TIU(8925,+DA,12)),U,8))'>0) S Y=""@7"";"
^DIE(1637,"DR",1,8925,7)="I +$$ISA^USRLM(DUZ,""TRANSCRIPTIONIST"") S Y=""@8"";S TIUDCSNR=$$PERSNAME^TIULC1(+$P($G(TIUPREF),U,9));I TIUDCSNR=""UNKNOWN"" S Y=""@11"";1208R~//^S X=TIUDCSNR;K TIUDCSNR;S Y=""@9"";@11;1208R~;S Y=""@9"";@8;1208;@9;1506////1;@7;"
^DIE(1637,"DR",1,8925,8)="S TIUCDA=+$P($G(^TIU(8925,+DA,14)),U,5);I TIUCDA S Y=""@15"";S TIUCVP=$$GETCNSLT^TIUCNSLT(DFN,1);I +TIUCVP'>0 W !,""You may only enter a result for a valid Clinical Procedure Request."",! S Y=""@999"",TIUQUIT=1;"
^DIE(1637,"DR",1,8925,9)="S TIUCPACT=$$CPACTM^GMRCCP(+TIUCVP);I TIUCPACT=2 W !,""Document cannot be edited.  Results are not available to interpret."" S Y=""@999"",TIUQUIT=1;"
^DIE(1637,"DR",1,8925,10)="I TIUCPACT=3 W !,""Document cannot be entered.  An incomplete document already exists."" S Y=""@999"",TIUQUIT=1;S TIUCDA=+TIUCVP;1405////^S X=TIUCVP;@15;I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;"
^DIE(1637,"DR",1,8925,11)="K TIUESNR;I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@12"";1303////^S X=""D"";@12;I $$REQCPF^TIULP(+$G(TIUCDA)) S Y=""@20"";70201;70202;S Y=""@999"";@20;70201R~;70202R~;@999;K TIUCDA,TIUCVP,TIUCPACT;"
^DIE(1638,0)="OREV EVENT^3030114.1216^@^100.5^^@^3030123"
^DIE(1638,"DIAB",1,0,100.5,3)="3;""MANUAL RELEASE WITHIN DIVISION"""
^DIE(1638,"DIAB",3,0,100.5,2)="3;""ADMIT TO DIVISION"""
^DIE(1638,"DIAB",6,0,100.5,2)="3;""DISCHARGE FROM DIVISION"""
^DIE(1638,"DIAB",9,0,100.5,2)="3;""TRANSFER TO/WITHIN DIVISION"""
^DIE(1638,"DIAB",12,0,100.5,2)="3;""SURGERY WITHIN DIVISION"""
^DIE(1638,"DR",1,100.5)="I $G(^ORD(100.5,DA,1))&($G(NEW)) W !,""You will not be allowed to ^ out until the required fields are entered."",! S DIE(""NO^"")=""NO EXIT, NO JUMP"";I '$G(DIE(""NO^""))="""" S DIE(""NO^"")=""OUTOK"";.01;8;"
^DIE(1638,"DR",1,100.5,1)="I '$G(^ORD(100.5,DA,1)) W !!,""The TYPE OF EVENT and DIVISION fields can only be edited"",!,""when the entry is inactive."",! S Y=""@6"";2;S ETYPE=$P($G(^ORD(100.5,DA,0)),U,2);"
^DIE(1638,"DR",1,100.5,2)="S Y=$S(ETYPE=""A"":""@1"",ETYPE=""D"":""@2"",ETYPE=""T"":""@3"",ETYPE=""O"":""@4"",1:""@5"");@1;3ADMIT TO DIVISION~;S Y=""@6"";@2;3DISCHARGE FROM DIVISION~;S Y=""@6"";@3;3TRANSFER TO/WITHIN DIVISION~;S Y=""@6"";@4;3SURGERY WITHIN DIVISION~;S Y=""@6"";@5;"
^DIE(1638,"DR",1,100.5,3)="3MANUAL RELEASE WITHIN DIVISION~;@6;I ""^A^T^D^""'[(""^""_$P($G(^ORD(100.5,DA,0)),U,2)_""^"") S Y=""@7"";7;@7;S ATS=0;I ""^A^T^""'[(""^""_$P($G(^ORD(100.5,DA,0)),U,2)_""^"") S Y=""@9"";"
^DIE(1638,"DR",1,100.5,4)="I ""^1^2^3^""[(""^""_$P($G(^ORD(100.5,DA,0)),U,7)_""^"") D DELMUL^OREV1(100.5,DA,""""""LOC""""""),DELMUL^OREV1(100.5,DA,""""""TS"""""") S Y=""@9"";I ""^22^23^24^""[(""^""_$P($G(^ORD(100.5,DA,0)),U,7)_""^"") D DELMUL^OREV1(100.5,DA,""""""LOC"""""") S ATS=1;10;"
^DIE(1638,"DR",1,100.5,5)="I $G(ATS) S Y=""@8"";11;@8;I $G(ORTYPE)'="""" S REQD=$$HASREQD^OREV1() I 'REQD S DIE(""NO^"")=""NO EXIT, NO JUMP"" W !!,""Locations or treating specialties must be entered for this event type."",! S Y=""@7"";"
^DIE(1638,"DR",1,100.5,6)="I $G(REQD)=2 W !!,""*Warning: You have defined locations and treating specialties for this event."",!,""As such, both must be true for orders to be released.  Be sure this is what you want."";@9;"
^DIE(1638,"DR",1,100.5,7)="I $G(NEW) W !!,""You have now entered the required fields and may ^ to exit."",!;S DIE(""NO^"")=""OUTOK"";.1;4;5;6;9;13;D EDITPAR^XPAREDIT(""ORWDX WRITE ORDERS EVENT LIST"");"
^DIE(1638,"DR",2,100.51)="S DIE(""NO^"")=""NO EXIT, NO JUMP"";.01;1;"
^DIE(1638,"DR",2,100.511)="S DIE(""NO^"")=""NO EXIT, NO JUMP"";.01;"
^DIE(1639,0)="OREV AUTO DC^3030114.1219^@^100.6^^@^3030121"
^DIE(1639,"DIAB",1,0,100.6,2)="3;""ADMIT TO DIVISION"""
^DIE(1639,"DIAB",4,0,100.6,2)="3;""DISCHARGE FROM DIVISION"""
^DIE(1639,"DIAB",7,0,100.6,2)="3;""TRANSFER TO/WITHIN DIVISION"""
^DIE(1639,"DIAB",10,0,100.6,2)="3;""SURGERY WITHIN DIVISION"""
^DIE(1639,"DIAB",13,0,100.6,2)="3;""T.S. CHANGE WITHIN DIVISION"""
^DIE(1639,"DR",1,100.6)="I $G(^ORD(100.6,DA,1))&($G(NEW)) W !,""You will not be allowed to ^ out until the required fields are entered."",! S DIE(""NO^"")=""NO EXIT, NO JUMP"";S:$G(DIE(""NO^""))="""" DIE(""NO^"")=""OUTOK"";.01;5;S ETYPE=$P($G(^ORD(100.6,DA,0)),U,2);"
^DIE(1639,"DR",1,100.6,1)="I '$G(^ORD(100.6,DA,1)) W !!,""The TYPE OF EVENT, MAS MOVEMENT TYPE, and DIVISION fields can only be"",!,""edited when the entry is inactive."",! S Y=""@8"";2;S Y=$S(ETYPE=""A"":""@1"",ETYPE=""D"":""@2"",ETYPE=""T"":""@3"",ETYPE=""O"":""@4"",1:""@5"");@1;"
^DIE(1639,"DR",1,100.6,2)="3ADMIT TO DIVISION~;S Y=""@6"";@2;3DISCHARGE FROM DIVISION~;S Y=""@6"";@3;3TRANSFER TO/WITHIN DIVISION~;S Y=""@6"";@4;3SURGERY WITHIN DIVISION~;S Y=""@6"";@5;3T.S. CHANGE WITHIN DIVISION~;@6;I ETYPE=""O"" S Y=""@8"";@7;30;"
^DIE(1639,"DR",1,100.6,3)="S REQD=$$HASREQD^OREV1() I REQD=0!(REQD=2) S DIE(""NO^"")=""NO EXIT, NO JUMP"";I REQD=0 W !!,""MAS MOVEMENT TYPE is required for this type of event."",! S Y=""@7"";"
^DIE(1639,"DR",1,100.6,4)="I REQD=2 W !!,""Interward Transfer may not be used with any other type of transfer."",!,""Either delete it or delete the additional entries"",! S Y=""@7"";@8;I $G(NEW) W !!,""You have now entered the required fields and may ^ to exit."",!;"
^DIE(1639,"DR",1,100.6,5)="S DIE(""NO^"")=""OUTOK"";I ""^D^T^""'[(""^""_ETYPE_""^"")!('$$ASKOBS^OREV1) S Y=""@9"";6;@9;4;I ETYPE'=""S"" S Y=""@10"";40;@10;I ETYPE'=""T""!(ETYPE=""T""&('$$IWT^OREV2(DA))) S Y=""@13"";50;60;@13;70;100;80;"
^DIE(1639,"DR",2,100.62)=".01;S DIE(""NO^"")=""NO EXIT, NO JUMP"";1;I X=1 S Y=""@11"";2;@11;3;I X=1 S Y=""@12"";4;@12;S DIEFIRE=""L"";S DIE(""NO^"")=""OUTOK"";D FROMTO^OREV4(""L"",DA(1),DA);"
^DIE(1639,"DR",2,100.63)="S DIE(""NO^"")=""NO EXIT, NO JUMP"";.01;"
^DIE(1639,"DR",2,100.64)=".01:1;D FROMTO^OREV4(""S"",DA(1),DA);"
^DIE(1639,"DR",2,100.65)=".01;"
^DIE(1639,"DR",2,100.66)=".01;"
^DIE(1639,"DR",2,100.67)=".01;"
^DIE(1639,"DR",2,100.68)=".01;"
^DIE(1639,"DR",3,100.641)=".01"
^DIE(1640,0)="OR USER ACCESS OPTIONS^3020327.1121^@^200^^@^3020709"
^DIE(1640,"DIAB",1,1,200.010113,0)="ALL"
^DIE(1640,"DR",1,200)="101.01;101.02;101.13;"
^DIE(1640,"DR",2,200.010113)=".01:.03"
^DIE(1641,0)="OREV CHILD EVENT^3020828.1458^@^100.5^^@^3020913"
^DIE(1641,"DR",1,100.5)="I $G(NEW) W !!,""You will not be allowed to ^ out until the required fields are entered."",! S DIE(""NO^"")=""NO EXIT, NO JUMP"";.01;8;I $G(NEW) W !!,""You have now entered the required fields and may ^ to exit."",! S DIE(""NO^"")=""OUTOK"";5;"
^DIE(1641,"DR",1,100.5,1)=".1;13;9;D EDITPAR^XPAREDIT(""ORWDX WRITE ORDERS EVENT LIST"");"
^DIE(1642,0)="LR WKLD ES CPT^3010524.0009^^64^^^3011230"
^DIE(1642,"DIAB",1,1,64.018,0)="ALL"
^DIE(1642,"DR",1,64)="26;18;"
^DIE(1642,"DR",2,64.018)=".01:4;6"
^DIE(1642,"DR",3,64.186)=".01"
^DIE(1643,0)="GMTS EDIT EXIST HS TYPE^3021025.1725^^142^^^3021120"
^DIE(1643,"DIAB",5,0,142,0)=".08;T"
^DIE(1643,"DR",1,142)="I '$D(GMTSNEW) S GMTSNEW=0;I GMTSNEW,'GMTSMGR S Y=""@1"";.01;.02;.08T~;I 'GMTSMGR S Y=0;.05;.06;S Y=0;@1;.06////^S X=DUZ;S Y=.01;"
^DIE(1644,0)="PRCAC RC INFO^3021212.1056^@^430^^@^3030131"
^DIE(1644,"DR",1,430)="68.94;I X'=5 S Y="""";68.95;"
^DIE(1645,0)="MAG IMAGE INDEX EDIT^3021015.1556^@^2005^^@^3030224"
^DIE(1645,"DR",1,2005)="42;43;44;"
^DIE(1646,0)="RMIM FIM SITE PARAMETER^3021028.0851^@^783.9^^@^3021203"
^DIE(1646,"DIAB",1,1,783.9001,0)="ALL"
^DIE(1646,"DR",1,783.9)=".01;.03:.06;10;"
^DIE(1646,"DR",2,783.9001)=".01:.02"
^DIE(1647,0)="LBRY SITE2^3021210.0938^^680.6^^^3030305"
^DIE(1647,"DR",1,680.6)=".01;.07;.1;I X S Y=""@2"";.02//^S X=""ABOC"";S Y=""@3"";@2;.09;S LBRFLS=$$AFTER^DGBTCSL(680.6,D0,X,$G(LBRPREV)) K LBRPREV;I LBRFLS<1 S Y=""@2"";@3;.05;.03;.08;"
^DIE(1648,0)="LBRY D3^3021210.0935^^681^^^3030220"
^DIE(1648,"DR",1,681)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;1///^S X=1;3///^S X=DUZ;1.6;I X'=""y"" S Y=""@1"";S $P(^LBRY(681,DA,1),U,5)="""";1.7;S Y=""@2"";@1;S:$P($G(^LBRY(681,DA,1)),U,7)=""y"" Y=""@2"";"
^DIE(1648,"DR",1,681,1)="3.01//^I $D(LBRYPTR) S X=$G(LBRPREV) S:$S('$D(^LBRY(680.6,LBRYPTR,0))#2:0,$P(^(0),U,9)']"""":0,1:1) X=$$GET1^DIQ(680.6,LBRYPTR,.09);S LBRFLS=$$AFTER^DGBTCSL(681,D0,X,$G(LBRPREV)) K LBRPREV;S:LBRFLS<1 Y=""@1"" K LBRFLS;@2;1.1;1.3;"
^DIE(1648,"DR",1,681,2)="I X=""A"" S Y=""@3"";1.5//SHELVED;I X=3 S Y=""@5"";S Y=""@4"";@3;1.5//ROUTED;I X=3 S Y=""@5"";@4;2;@5;1.8///^S X=$S($D(LBRYPTR):LBRYPTR,1:"""");"
^DIE(1648,"DR",2,681.02)=".01;@10;1;I X="""" W !,""Please enter ROUTING ORDER."" S Y=""@10"";"
^DIE(1649,0)="LBRY D4^3021210.0937^^681^^^3030223"
^DIE(1649,"DR",1,681)=".02////^S X=LBRYLOC;.04///^S X=LBRYPTR;S LBRYSH=1;1;I X'="""",$P(^LBRY(681,DA,1),U)'=X S $P(^LBRY(681,DA,1),U,3)=DUZ;I X=""ToC"" S $P(^LBRY(681,DA,1),U,6)=1,Y=""@2"";1.6;I X'=""y"" S Y=""@1"";S $P(^LBRY(681,DA,1),U,5)="""";1.7;S Y=""@3"";@1;"
^DIE(1649,"DR",1,681,1)="S:$P($G(^LBRY(681,DA,1)),U,7)=""y"" Y=""@3"";3.01//^I $D(LBRYPTR) S X=$G(LBRPREV) S:$S('$D(^LBRY(680.6,LBRYPTR,0))#2:0,$P(^(0),U,9)']"""":0,1:1) X=$$GET1^DIQ(680.6,LBRYPTR,.09);S LBRFLS=$$AFTER^DGBTCSL(681,D0,X,$G(LBRPREV)) K LBRPREV;"
^DIE(1649,"DR",1,681,2)="S:LBRFLS<1 Y=""@1"" K LBRFLS;@3;1.1;1.3;I X=""A"" S Y=""@5"";1.5//SHELVED;I X=3 S LBRYSH=1;I X=1!(X=2) S LBRYSH="""";S Y=""@4"";Q;@5;1.5//ROUTED;I X=1!(X=2) S LBRYSH="""";I X=3 S LBRYSH=1;@4;1.9;1.95;I LBRYSH=1 S Y=""@6"";@2;2;@6;"
^DIE(1649,"DR",2,681.02)=".01;@11;1;I X="""" W !,""Please enter ROUTING ORDER."" S Y=""@11"";"
^DIE(1650,0)="LBRY BIBLIOGRAPHIC 2 ENTRY^3040205.1126^^680^^^3040205"
^DIE(1650,"DIAB",1,1,680.01,0)="ALL"
^DIE(1650,"DIAB",1,1,680.02,0)="ALL"
^DIE(1650,"DR",1,680)="1.1;2.1;2.6;S LBRFLS=$$AFTER^DGBTCSL(680,D0,X,$G(LBRPREV)) K LBRPREV;3;4;5.2;I X'=""D"" S Y=6;5.3;5.4;6;9;9.1;9.4;9.8;9.85;10.5;10.6;10.7;10.8;"
^DIE(1650,"DR",2,680.01)=".01:1"
^DIE(1650,"DR",2,680.02)=".01"
^DIE(1650,"DR",2,680.03)=".01;.02///^S X=DT;"
^DIE(1651,0)="IBCNE GENERAL PARAMETER EDIT^3040429.1627^@^350.9^^@^3050106"
^DIE(1651,"DIAB",1,1,200,0)="OFFICE PHONE;REQ"
^DIE(1651,"DIAB",2,1,200,0)="EMAIL ADDRESS;REQ"
^DIE(1651,"DIAB",14,0,350.9,0)="CONTACT PERSON:"
^DIE(1651,"DR",1,350.9)="51.01;51.02;S:'X Y=""@10"";51.03;@10;51.04;51.13;S:X=""I"" Y=""@1"";51.14;51.19;@1;51.15;51.16;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^IBE(350.9,D0,51)):^(51),1:"""") S X=$P(Y(1),U,16),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");51.2;"
^DIE(1651,"DR",2,200)=".132R~;.151R~;"
^DIE(1652,0)="RCMS EDI LOCKBOX^3021106.1422^@^342^^@^3030711"
^DIE(1652,"DR",1,342)="7.02;7.03;"
^DIE(1653,0)="XOBU SITE PARAMETERS^3050708.0813^@^18.01^^@^3050819"
^DIE(1653,"%D",0)="^^4^4^3030407^"
^DIE(1653,"%D",1,0)="This template is used to edit the Foundations and VistALink site "
^DIE(1653,"%D",2,0)="parameters."
^DIE(1653,"%D",3,0)=" "
^DIE(1653,"%D",4,0)="The XOBU SITE PARAMETERS protocol executes this template."
^DIE(1653,"DR",1,18.01)="W !!,""Overall Parameters: "";W !,""   <none at this time>"";W !!,""VistALink Parameters: "";.02;.03;.04//604800;.05//3600;21//10;IF $$GETOS^XOBVTCP()[""DSM"" SET Y="""";100;"
^DIE(1653,"DR",2,18.012)=".01;.02;"
^DIE(1654,0)="XOBV LISTENER CONFIG EDIT^3030330.1949^@^18.03^^@^3050803"
^DIE(1654,"%D",0)="^^3^3^3030409^"
^DIE(1654,"%D",1,0)="This template is used to add/edit a VistALink Listener configuration."
^DIE(1654,"%D",2,0)="  "
^DIE(1654,"%D",3,0)="The XOBV LISTENER CONFIG protocol executes this template.  "
^DIE(1654,"DR",1,18.03)=".01;100;"
^DIE(1654,"DR",2,18.031)=".01;.02;"
^DIE(1655,0)="FHMADM2^3040316.16^@^117^^@^3040519"
^DIE(1655,"DR",1,117)="6;"
^DIE(1655,"DR",2,117.06)=".01;S FHCOMM=X;D C1^FHMADM2;S DIE(""NO^"")="""" S:'$D(FHN(""D"")) Y=""@1"";21//^S X=FHN(""D"",0);22//^S X=FHN(""D"",1);@1;S:'$D(FHN(""N"")) Y=""@2"";23//^S X=FHN(""N"",0);24//^S X=FHN(""N"",1);@2;S:'$D(FHN(""H"")) Y=""@3"";25//^S X=FHN(""H"",0);"
^DIE(1655,"DR",2,117.06,1)="26//^S X=FHN(""H"",1);@3;K DIE(""NO^"");1//^S X=FHOPC(""B"");2//^S X=FHOPC(""N"");3//^S X=FHOPC(""E"");4//^S X=FHOPC(""E"",""B"");5//^S X=FHOPC(""E"",""N"");6//^S X=FHOPC(""E"",""E"");7//^S X=FHOPC(""P"",""B"");8//^S X=FHOPC(""P"",""N"");9//^S X=FHOPC(""P"",""E"");"
^DIE(1655,"DR",2,117.06,2)="10//^S X=FHOPC(""O"",""B"");11//^S X=FHOPC(""O"",""N"");12//^S X=FHOPC(""O"",""E"");13//^S X=FHOPC(""V"",""B"");14//^S X=FHOPC(""V"",""N"");15//^S X=FHOPC(""V"",""E"");16//^S X=FHOPC(""G"",""B"");17//^S X=FHOPC(""G"",""N"");18//^S X=FHOPC(""G"",""E"");19;20;"
^DIE(1656,0)="FHMADM4^3031010.1122^@^117.1^^@^3031203"
^DIE(1656,"DR",1,117.1)="20;"
^DIE(1656,"DR",2,117.11)="2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;"
^DIE(1657,0)="FHMASE^3031014.1532^@^115.7^^@^3040729"
^DIE(1657,"DR",1,115.7)="2//^S X=$P(^VA(200,DUZ,0),""^"",1);11;3//^S X="""",DIC(""S"")=""I Y>2"";K DIC(""S"") S FHX1=$S($D(^FH(115.6,+X,0)):^(0),1:"""") I $P(FHX1,""^"",5)'=""Y"" S Y=""@1"";4;@1;S FHX2=$P(FHX1,""^"",3) I '$P(FHX1,""^"",4) S Y=6;5;I X=""F"" S FHX2=$P(FHX1,""^"",4);"
^DIE(1657,"DR",1,115.7,1)="6//^S X=FHX2;S FHX2=$P(FHX1,""^"",6) I FHX2'=""B"" S Y=""@3"";7;S FHX2=X,Y=""@4"";@3;7///^S X=FHX2;@4;10;S FHX3="""" I $P(FHX1,""^"",7)'=""Y"" S Y=8 S:FHX2=""I"" FHX3=1;@5;20;D CNT^FHMASE I $P(FHX4,""^"",10)'="""",FHX3 S $P(^FHEN(ASE,0),U,10)="""";"
^DIE(1657,"DR",1,115.7,2)="I FHX2=""I"",FHX3<1 W *7,!?5,""Must select a patient."" S Y=""@5"";@8;8//^S X=FHX3;I X<FHX3 W *7,!?5,""Group Size cannot be less than total person count (default)"" S $P(^FHEN(ASE,0),U,10)="""",Y=""@8"";I $P(FHX4,""^"",13)'="""" S Y=""@9"";"
^DIE(1657,"DR",1,115.7,3)="101////^S X=DUZ;@9;I $P(FHX4,""^"",14)'="""" S Y=""@10"";102///^S X=""NOW"";@10;S:'FHN Y=0;103///^S X=""NOW"";104////^S X=DUZ;"
^DIE(1657,"DR",2,115.701)=".01;S DFN=X,DGT=DTE D ^DGPMSTAT S X9=$G(^DIC(42,+DG1,44));1////^S X=X9;I $P(FHX1,""^"",8)'=""Y"" S Y=""@6"";2;@6;I $P(FHX1,""^"",9)'=""Y"" S Y=""@7"";3;@7;I FHX2=""I"" S DI(1)=+DI(1),Y=0;"
^DIE(1658,0)="EASEC ENTER/EDIT ASSETS NEW^3030827.1145^@^408.21^^@^3031022"
^DIE(1658,"DIAB",2,0,408.21,1)="2.01;""CASH, STOCKS, BONDS, MUTUAL FUNDS, ETC."""
^DIE(1658,"DIAB",8,0,408.21,0)="2.07;""OTHER RESIDENCES/LAND/FARM OR RANCH"""
^DIE(1658,"DR",1,408.21)="K DGFIN;I '$D(DGDR) W !,*7,""Variable DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;2.06;@102;S:DGDR'[""102"" Y=""@103"";2.07OTHER RESIDENCES/LAND/FARM OR RANCH~;@103;S:DGDR'[""103"" Y=""@104"";2.08;@104;"
^DIE(1658,"DR",1,408.21,1)="S:DGDR'[""104"" Y=""@105"";2.01CASH, STOCKS, BONDS, MUTUAL FUNDS, ETC.~;@105;S:DGDR'[""105"" Y=""@998"";2.09;@998;S DGFIN="""";@999;"
^DIE(1659,0)="EASEC ENTER/EDIT INCOME NEW^3030828.1633^@^408.21^^@^3031022"
^DIE(1659,"DIAB",5,0,408.21,0)=".14;""CURRENT INCOME"""
^DIE(1659,"DIAB",8,0,408.21,0)=".15;""INCOME FROM FARM/RANCH/BUSINESS"""
^DIE(1659,"DIAB",11,0,408.21,0)=".17;""ALL OTHER INCOME"""
^DIE(1659,"DR",1,408.21)="K DGFIN;I '$D(DGDR) W !,*7,""Variable DGDR must be defined!"" S Y=""@999"";S:DGDR'[""101"" Y=""@102"";@101;.14CURRENT INCOME~;@102;S:DGDR'[""102"" Y=""@103"";.15INCOME FROM FARM/RANCH/BUSINESS~;@103;S:DGDR'[""103"" Y=""@998"";.17ALL OTHER INCOME~;"
^DIE(1659,"DR",1,408.21,1)="@998;S DGFIN="""";@999;"
^DIE(1660,0)="AWCM EDIT PARAM FILE^3040131.0857^^177100.12^^^3040201"
^DIE(1660,"DR",1,177100.12)="1.2;1.5;1;2;3;4;5;6;7;8;9;10;11;12;13;14;17;18;19;20;21;22;23;24;25;"
^DIE(1661,0)="XUMF IMF EDIT^3031210.1344^@^4^^@^3040116"
^DIE(1661,"DIAB",2,0,4,0)=".01;REQ"
^DIE(1661,"DIAB",3,0,4,0)="13;REQ"
^DIE(1661,"DIAB",4,0,4,0)="100;REQ"
^DIE(1661,"DIAB",6,0,4,0)="1.01;REQ"
^DIE(1661,"DIAB",8,0,4,0)="1.03;REQ"
^DIE(1661,"DIAB",9,0,4,0)=".02;REQ"
^DIE(1661,"DIAB",10,0,4,0)="1.04;REQ"
^DIE(1661,"DIAB",11,0,4,0)="4.01;REQ"
^DIE(1661,"DIAB",13,0,4,0)="4.03;REQ"
^DIE(1661,"DIAB",14,0,4,0)="4.04;REQ"
^DIE(1661,"DIAB",15,0,4,0)="4.05;REQ"
^DIE(1661,"DIAB",16,0,4,0)="95;REQ"
^DIE(1661,"DR",1,4)="S XUMF=1;.01R~;13R~;100R~;101;1.01R~;1.02;1.03R~;.02R~;1.04R~;4.01R~;4.02;4.03R~;4.04R~;4.05R~;95R~;"
^DIE(1662,0)="HLEV MONITOR ENTER/EDIT^3030807.1039^@^776.1^^@^3040120"
^DIE(1662,"DIAB",1,1,776.106,0)="ALL"
^DIE(1662,"DIAB",1,1,776.1061,0)="ALL"
^DIE(1662,"DIAB",1,1,776.1062,0)="ALL"
^DIE(1662,"DR",1,776.1)="D HELP^HLEVSTUP(776.1,.01);.01;D HELP^HLEVSTUP(776.1,3);3;D HELP^HLEVSTUP(776.1,2);2;D HELP^HLEVSTUP(776.1,6);6;D HELP^HLEVSTUP(776.1,4);4;D HELP^HLEVSTUP(776.1,7);7;D HELP^HLEVSTUP(776.1,51);51;52;53;D HELP^HLEVSTUP(776.1,41);41;"
^DIE(1662,"DR",1,776.1,1)="D HELP^HLEVSTUP(776.1,50);50;"
^DIE(1662,"DR",2,776.106)=".01"
^DIE(1662,"DR",2,776.1061)=".01"
^DIE(1662,"DR",2,776.1062)=".01"
^DIE(1663,0)="HLEV MASTER JOB ENTER/EDIT^3030603.0516^@^776.999^^@^3040210"
^DIE(1663,"DR",1,776.999)="D HELP^HLEVSTUP(776.999,2);2;D HELP^HLEVSTUP(776.999,3);3;D HELP^HLEVSTUP(776.999,6);6;D HELP^HLEVSTUP(776.999,4);4;"
^DIE(1664,0)="DG801^3070622.1616^@^46.1^^@^3070625"
^DIE(1664,"AB","^",.02)="3^DGPTX8"
^DIE(1664,"AB","^",.03)="15^DGPTX8"
^DIE(1664,"AB","^",.04)="21^DGPTX8"
^DIE(1664,"AB","^",.05)="27^DGPTX8"
^DIE(1664,"AB","^",.06)="33^DGPTX8"
^DIE(1664,"AB","^",.07)="1^DGPTX81"
^DIE(1664,"AB","^",.08)="9^DGPTX8"
^DIE(1664,"AB","^",1)="7^DGPTX81"
^DIE(1664,"AB","^",1,"///")=""
^DIE(1664,"AB","^","@10")="5^DGPTX8"
^DIE(1664,"AB","^","@11")="7^DGPTX8"
^DIE(1664,"AB","^","@20")="11^DGPTX8"
^DIE(1664,"AB","^","@21")="13^DGPTX8"
^DIE(1664,"AB","^","@30")="17^DGPTX8"
^DIE(1664,"AB","^","@31")="19^DGPTX8"
^DIE(1664,"AB","^","@40")="23^DGPTX8"
^DIE(1664,"AB","^","@41")="25^DGPTX8"
^DIE(1664,"AB","^","@50")="29^DGPTX8"
^DIE(1664,"AB","^","@51")="31^DGPTX8"
^DIE(1664,"AB","^","@60")="35^DGPTX8"
^DIE(1664,"AB","^","@61")="37^DGPTX8"
^DIE(1664,"AB","^","@70")="3^DGPTX81"
^DIE(1664,"AB","^","@71")="5^DGPTX81"
^DIE(1664,"AB","^","@99")="6^DGPTX81"
^DIE(1664,"DIAB",1,0,46.1,2)="TREATED FOR AO CONDITION;""WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?"""
^DIE(1664,"DIAB",1,0,46.1,5)="TREATMENT FOR HEAD/NECK CA;""WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?"""
^DIE(1664,"DIAB",2,0,46.1,1)="COMBAT VET//YES;""WAS TREATMENT RELATED TO COMBAT?"""
^DIE(1664,"DIAB",2,0,46.1,4)="TREATMENT FOR MST;""WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?"""
^DIE(1664,"DIAB",3,0,46.1,0)="TREATED FOR SC CONDITION;""WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?"""
^DIE(1664,"DIAB",4,0,46.1,3)="EXPOSURE TO ENVIR CONTAMINANTS;""WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?"""
^DIE(1664,"DIAB",7,0,46.1,2)="TREATMENT FOR IR CONDITION;""WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?"""
^DIE(1664,"DR",1,46.1)="I '$D(SDCLY(3)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,2)="""":""@11"",1:""@10"");D ELIG^DGPTUTL1;.02WAS TREATMENT FOR A SERVICE CONNECTED CONDITION?~;S Y=""@11"";@10;.02////0;@11;"
^DIE(1664,"DR",1,46.1,1)="I '$D(SDCLY(7)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,8)="""":""@21"",1:""@20"");.08WAS TREATMENT RELATED TO COMBAT?~//YES;S Y=""@21"";@20;.08////0;@21;I '$D(SDCLY(1)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,3)="""":""@31"",1:""@30"");"
^DIE(1664,"DR",1,46.1,2)=".03WAS TREATMENT RELATED TO AGENT ORANGE EXPOSURE?~;S Y=""@31"";@30;.03////0;@31;I '$D(SDCLY(2)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,4)="""":""@41"",1:""@40"");.04WAS TREATMENT RELATED TO IONIZING RADIATION EXPOSURE?~;S Y=""@41"";@40;"
^DIE(1664,"DR",1,46.1,3)=".04////0;@41;I '$D(SDCLY(4)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,5)="""":""@51"",1:""@50"");.05WAS TREATMENT RELATED TO ENVIRONMENTAL CONTAMINANT EXPOSURE?~;S Y=""@51"";@50;.05////0;@51;"
^DIE(1664,"DR",1,46.1,4)="I '$D(SDCLY(5)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,6)="""":""@61"",1:""@60"");.06WAS TREATMENT RELATED TO MILITARY SEXUAL TRAUMA?~;S Y=""@61"";@60;.06////0;@61;I '$D(SDCLY(6)) S Y=$S($P($G(^DGICD9(46.1,D0,0)),U,7)="""":""@71"",1:""@70"");"
^DIE(1664,"DR",1,46.1,5)=".07WAS TREATMENT RELATED TO HEAD AND/OR NECK CANCER?~;S Y=""@71"";@70;.07////0;@71;@99;1////^S X=PTF;"
^DIE(1664,"ROU")="^DGPTX8"
^DIE(1664,"ROUOLD")="DGPTX8"
^DIE(1665,0)="TIU ENTER/EDIT SURGICAL REPORT^3040227.1831^@^8925^^@^3040326"
^DIE(1665,"DIAB",2,0,8925,3)="AUTHOR/DICTATOR//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T;REQ"
^DIE(1665,"DIAB",5,0,8925,5)="ATTENDING PHYSICIAN;""ATTENDING SURGEON"";REQ"
^DIE(1665,"DIAB",7,0,8925,2)="REFERENCE DATE//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");OPERATION DATE/TIME"
^DIE(1665,"DIAB",8,0,8925,5)="ATTENDING PHYSICIAN;""ATTENDING SURGEON"""
^DIE(1665,"DR",1,8925)=".02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);.07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);1401////^S X=$P($G(TIU(""AD#"")),U);I '+$G(TIUBY) S Y=""@1"";I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@13"";"
^DIE(1665,"DR",1,8925,1)="1205////^S X=$P($G(TIU(""LOC"")),U);@13;I +$G(^TIU(8925,+DA,13)) S Y=""@14"";1301////^S X=$$NOW^TIULC;@14;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";"
^DIE(1665,"DR",1,8925,2)="I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;1301OPERATION DATE/TIME~//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");"
^DIE(1665,"DR",1,8925,3)="I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";1202R~T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));"
^DIE(1665,"DR",1,8925,4)="I +$G(TIUAUTH),(+$P(^TIU(8925,+DA,12),U,2)'=+$G(TIUAUTH)) S TIU(""SVC"")=$$PROVSVC^TIULV(+$P(^(12),U,2)),TIUAUTH=+$P(^TIU(8925,+DA,12),U,2);@2;I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302//^S X=DUZ;@5;"
^DIE(1665,"DR",1,8925,5)="I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";1201////^S X=$$NOW^TIULC;@6;I +$$PROVIDER^TIUPXAP1(DUZ,DT)'>0 S Y=""@7"";1209R~ATTENDING SURGEON~;S Y=""@8"";@7;1209ATTENDING SURGEON~;@8;1204////^S X=$$WHOSIGNS^TIULC1(DA);"
^DIE(1665,"DR",1,8925,6)="1208////^S X=$$WHOCOSIG^TIULC1(DA);1506////^S X=$S(+$P($G(^TIU(8925,+DA,12)),U,4)=+$P($G(^(12)),U,9):0,1:1);1404;1402;I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;"
^DIE(1665,"DR",1,8925,7)="I $P($G(^TIU(8925,+DA,13)),U,3)=""D"" S Y=""@12"";1303////^S X=""D"";@12;I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@15"";1212////^S X=+$G(DUZ(2));S Y=""@16"";@15;1212////^S X=+$$DIVISION^TIULC1(+$P($G(^TIU(8925,+DA,12)),U,5));@16;"
^DIE(1666,0)="SRONRPT^3060721.0936^^130^^^3060721"
^DIE(1666,"DIAB",1,0,130,0)="44;T"
^DIE(1666,"DIAB",1,0,130,1)=".12;T"
^DIE(1666,"DIAB",1,1,130.01,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.0129,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.013,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.02,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.04,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.065,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.08,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.23,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.24,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.28,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.31,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.32,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.33,0)=".01;T"
^DIE(1666,"DIAB",1,1,130.36,0)=".01;T"
^DIE(1666,"DIAB",1,2,130.0134,0)=".01;T"
^DIE(1666,"DIAB",1,2,130.34,0)=".01;T"
^DIE(1666,"DIAB",1,2,130.39,0)=".01;T"
^DIE(1666,"DIAB",2,0,130,0)="45;T"
^DIE(1666,"DIAB",2,0,130,1)="506;T"
^DIE(1666,"DIAB",2,1,130.01,0)="8;T"
^DIE(1666,"DIAB",2,1,130.0129,0)="1;T"
^DIE(1666,"DIAB",2,1,130.013,0)="1;T"
^DIE(1666,"DIAB",2,1,130.02,0)="3;T"
^DIE(1666,"DIAB",2,1,130.04,0)="1;T"
^DIE(1666,"DIAB",2,1,130.065,0)="1;T"
^DIE(1666,"DIAB",2,1,130.08,0)="1;T"
^DIE(1666,"DIAB",2,1,130.23,0)="1;T"
^DIE(1666,"DIAB",2,1,130.24,0)="1;T"
^DIE(1666,"DIAB",2,1,130.28,0)="3;T"
^DIE(1666,"DIAB",2,1,130.31,0)="1;T"
^DIE(1666,"DIAB",2,1,130.32,0)="2;T"
^DIE(1666,"DIAB",2,1,130.33,0)="1;T"
^DIE(1666,"DIAB",2,1,130.36,0)="3;T"
^DIE(1666,"DIAB",2,2,130.0134,0)="1;T"
^DIE(1666,"DIAB",2,2,130.34,0)="1;T"
^DIE(1666,"DIAB",2,2,130.39,0)="1;T"
^DIE(1666,"DIAB",3,0,130,0)="46;T"
^DIE(1666,"DIAB",3,0,130,1)="508;T"
^DIE(1666,"DIAB",3,1,130.01,0)="9;T"
^DIE(1666,"DIAB",3,1,130.0129,0)="2;T"
^DIE(1666,"DIAB",3,1,130.013,0)="2;T"
^DIE(1666,"DIAB",3,1,130.02,0)="1;T"
^DIE(1666,"DIAB",3,1,130.04,0)="3;T"
^DIE(1666,"DIAB",3,1,130.31,0)="2;T"
^DIE(1666,"DIAB",3,1,130.32,0)="1;T"
^DIE(1666,"DIAB",3,2,130.0134,0)="2;T"
^DIE(1666,"DIAB",3,2,130.34,0)="2;T"
^DIE(1666,"DIAB",3,2,130.39,0)="2;T"
^DIE(1666,"DIAB",4,0,130,0)="47;T"
^DIE(1666,"DIAB",4,0,130,1)=".18;T"
^DIE(1666,"DIAB",4,1,130.01,0)="10;T"
^DIE(1666,"DIAB",4,1,130.0129,0)="4;T"
^DIE(1666,"DIAB",4,1,130.013,0)="3;T"
^DIE(1666,"DIAB",4,1,130.02,0)="4;T"
^DIE(1666,"DIAB",4,1,130.04,0)="4;T"
^DIE(1666,"DIAB",4,1,130.32,0)="3;T"
^DIE(1666,"DIAB",4,2,130.34,0)="3;T"
^DIE(1666,"DIAB",5,0,130,0)="48;T"
^DIE(1666,"DIAB",5,0,130,1)="4;T"
^DIE(1666,"DIAB",5,1,130.01,0)="1;T"
^DIE(1666,"DIAB",5,1,130.0129,0)="3;T"
^DIE(1666,"DIAB",5,1,130.013,0)="4;T"
^DIE(1666,"DIAB",5,1,130.02,0)="2;T"
^DIE(1666,"DIAB",5,1,130.04,0)="5;T"
^DIE(1666,"DIAB",5,2,130.34,0)="4;T"
^DIE(1666,"DIAB",6,0,130,0)=".203;T"
^DIE(1666,"DIAB",6,0,130,1)=".175;T"
^DIE(1666,"DIAB",6,1,130.01,0)="2;T"
^DIE(1666,"DIAB",6,1,130.0129,0)="5;T"
^DIE(1666,"DIAB",6,1,130.013,0)="5;T"
^DIE(1666,"DIAB",6,2,130.34,0)="5;T"
^DIE(1666,"DIAB",7,0,130,0)=".205;T"
^DIE(1666,"DIAB",7,0,130,1)="8;T"
^DIE(1666,"DIAB",7,1,130.01,0)="2.5;T"
^DIE(1666,"DIAB",8,0,130,0)="73;T"
^DIE(1666,"DIAB",8,0,130,1)="65;T"
^DIE(1666,"DIAB",8,1,130.01,0)="5;T"
^DIE(1666,"DIAB",9,0,130,0)="72;T"
^DIE(1666,"DIAB",9,0,130,1)=".13;T"
^DIE(1666,"DIAB",9,1,130.01,0)="6;T"
^DIE(1666,"DIAB",10,0,130,0)="71;T"
^DIE(1666,"DIAB",10,0,130,1)=".75;T"
^DIE(1666,"DIAB",10,1,130.01,0)="7;T"
^DIE(1666,"DIAB",11,0,130,0)="84;T"
^DIE(1666,"DIAB",11,0,130,1)="57;T"
^DIE(1666,"DIAB",12,0,130,0)="83;T"
^DIE(1666,"DIAB",12,0,130,1)="58;T"
^DIE(1666,"DIAB",13,0,130,0)="82;T"
^DIE(1666,"DIAB",13,0,130,1)=".55;T"
^DIE(1666,"DIAB",14,0,130,0)=".22;T"
^DIE(1666,"DIAB",14,0,130,1)="6;T"
^DIE(1666,"DIAB",15,0,130,0)=".23;T"
^DIE(1666,"DIAB",15,0,130,1)="49;T"
^DIE(1666,"DIAB",16,0,130,0)=".206;T"
^DIE(1666,"DIAB",16,0,130,1)="64;T"
^DIE(1666,"DIAB",17,0,130,0)=".232;T"
^DIE(1666,"DIAB",17,0,130,1)=".37;T"
^DIE(1666,"DIAB",18,0,130,0)="26;T"
^DIE(1666,"DIAB",18,0,130,1)="22;T"
^DIE(1666,"DIAB",19,0,130,0)=".42;T"
^DIE(1666,"DIAB",19,0,130,1)=".48;T"
^DIE(1666,"DIAB",20,0,130,0)="1.09;T"
^DIE(1666,"DIAB",20,0,130,1)=".757;T"
^DIE(1666,"DIAB",21,0,130,0)=".46;T"
^DIE(1666,"DIAB",21,0,130,1)=".47;T"
^DIE(1666,"DIAB",22,0,130,0)=".03;T"
^DIE(1666,"DIAB",22,0,130,1)=".375;T"
^DIE(1666,"DIAB",23,0,130,0)=".02;T"
^DIE(1666,"DIAB",23,0,130,1)=".39;T"
^DIE(1666,"DIAB",24,0,130,0)=".035;T"
^DIE(1666,"DIAB",24,0,130,1)=".27;T"
^DIE(1666,"DIAB",25,0,130,0)=".14;T"
^DIE(1666,"DIAB",25,0,130,1)="41;T"
^DIE(1666,"DIAB",26,0,130,0)=".164;T"
^DIE(1666,"DIAB",26,0,130,1)=".875;T"
^DIE(1666,"DIAB",27,0,130,0)=".15;T"
^DIE(1666,"DIAB",27,0,130,1)=".25;T"
^DIE(1666,"DIAB",28,0,130,0)=".16;T"
^DIE(1666,"DIAB",28,0,130,1)=".255;T"
^DIE(1666,"DIAB",29,0,130,0)=".31;T"
^DIE(1666,"DIAB",29,0,130,1)=".81;T"
^DIE(1666,"DIAB",30,0,130,0)=".33;T"
^DIE(1666,"DIAB",30,0,130,1)=".821;T"
^DIE(1666,"DIAB",31,0,130,0)="30;T"
^DIE(1666,"DIAB",31,0,130,1)=".76;T"
^DIE(1666,"DIAB",32,0,130,0)=".112;T"
^DIE(1666,"DIAB",32,0,130,1)=".77;T"
^DIE(1666,"DIAB",33,0,130,0)=".111;T"
^DIE(1666,"DIAB",33,0,130,1)="129;T"
^DIE(1666,"DIAB",34,0,130,0)="31;T"
^DIE(1666,"DIAB",34,0,130,1)="127;T"
^DIE(1666,"DIAB",35,0,130,0)=".19;T"
^DIE(1666,"DIAB",35,0,130,1)="25;T"
^DIE(1666,"DIAB",36,0,130,0)=".196;T"
^DIE(1666,"DIAB",36,0,130,1)="130;T"
^DIE(1666,"DIAB",37,0,130,0)=".07;T"
^DIE(1666,"DIAB",37,0,130,1)="131;T"
^DIE(1666,"DIAB",38,0,130,0)=".195;T"
^DIE(1666,"DIAB",38,0,130,1)=".29;T"
^DIE(1666,"DIAB",39,0,130,0)=".69;T"
^DIE(1666,"DR",1,130)="44T~;45T~;46T~;47T~;48T~;.203T~;.205T~;73T~;72T~;71T~;84T~;83T~;82T~;.22T~;.23T~;.206T~;.232T~;26T~;.42T~;1.09T~;.46T~;.03T~;.02T~;.035T~;.14T~;.164T~;.15T~;.16T~;.31T~;.33T~;30T~;.112T~;.111T~;31T~;.19T~;.196T~;.07T~;.195T~;.69T~;"
^DIE(1666,"DR",1,130,1)=".12T~;506T~;508T~;.18T~;4T~;.175T~;8T~;65T~;.13T~;.75T~;57T~;58T~;.55T~;6T~;49T~;64T~;.37T~;22T~;.48T~;.757T~;.47T~;.375T~;.39T~;.27T~;41T~;.875T~;.25T~;.255T~;.81T~;.821T~;.76T~;.77T~;129T~;127T~;25T~;130T~;131T~;.29T~;"
^DIE(1666,"DR",2,130.01)=".01T~;8T~;9T~;10T~;1T~;2T~;2.5T~;5T~;6T~;7T~;"
^DIE(1666,"DR",2,130.0129)=".01T~;1T~;2T~;4T~;3T~;5T~;"
^DIE(1666,"DR",2,130.013)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1666,"DR",2,130.02)=".01T~;3T~;1T~;4T~;2T~;"
^DIE(1666,"DR",2,130.04)=".01T~;1T~;3T~;4T~;5T~;"
^DIE(1666,"DR",2,130.06)=".01T~;"
^DIE(1666,"DR",2,130.065)=".01T~;1T~;"
^DIE(1666,"DR",2,130.08)=".01T~;1T~;"
^DIE(1666,"DR",2,130.16)=".01T~;"
^DIE(1666,"DR",2,130.23)=".01T~;1T~;"
^DIE(1666,"DR",2,130.24)=".01T~;1T~;"
^DIE(1666,"DR",2,130.28)=".01T~;3T~;"
^DIE(1666,"DR",2,130.31)=".01T~;1T~;2T~;"
^DIE(1666,"DR",2,130.32)=".01T~;2T~;1T~;3T~;"
^DIE(1666,"DR",2,130.33)=".01T~;1T~;"
^DIE(1666,"DR",2,130.36)=".01T~;3T~;"
^DIE(1666,"DR",3,130.0134)=".01T~;1T~;2T~;"
^DIE(1666,"DR",3,130.34)=".01T~;1T~;2T~;3T~;4T~;5T~;"
^DIE(1666,"DR",3,130.39)=".01T~;1T~;2T~;"
^DIE(1667,0)="SROARPT^3050603.1308^^130^^^3050603"
^DIE(1667,"DIAB",1,0,130,0)=".02;T"
^DIE(1667,"DIAB",1,1,130.04,0)=".01;T"
^DIE(1667,"DIAB",1,1,130.06,0)=".01;T"
^DIE(1667,"DIAB",1,1,130.16,0)=".01;T"
^DIE(1667,"DIAB",1,1,130.213,0)=".01;T"
^DIE(1667,"DIAB",1,1,130.33,0)=".01;T"
^DIE(1667,"DIAB",1,1,130.41,0)=".01;T"
^DIE(1667,"DIAB",1,2,130.34,0)=".01;T"
^DIE(1667,"DIAB",1,2,130.47,0)=".01;T"
^DIE(1667,"DIAB",1,2,130.49,0)=".01;T"
^DIE(1667,"DIAB",2,0,130,0)=".31;T"
^DIE(1667,"DIAB",2,1,130.04,0)="1;T"
^DIE(1667,"DIAB",2,1,130.06,0)=".05;T"
^DIE(1667,"DIAB",2,1,130.16,0)="2;T"
^DIE(1667,"DIAB",2,1,130.213,0)="1;T"
^DIE(1667,"DIAB",2,1,130.33,0)="1;T"
^DIE(1667,"DIAB",2,1,130.41,0)="3;T"
^DIE(1667,"DIAB",2,2,130.34,0)="4;T"
^DIE(1667,"DIAB",2,2,130.47,0)="1;T"
^DIE(1667,"DIAB",2,2,130.49,0)="1;T"
^DIE(1667,"DIAB",3,0,130,0)=".32;T"
^DIE(1667,"DIAB",3,1,130.04,0)="3;T"
^DIE(1667,"DIAB",3,1,130.06,0)="24;T"
^DIE(1667,"DIAB",3,1,130.41,0)="1;T"
^DIE(1667,"DIAB",3,2,130.34,0)="2;T"
^DIE(1667,"DIAB",3,2,130.49,0)="2;T"
^DIE(1667,"DIAB",4,0,130,0)=".34;T"
^DIE(1667,"DIAB",4,1,130.04,0)="4;T"
^DIE(1667,"DIAB",4,1,130.06,0)="41;T"
^DIE(1667,"DIAB",4,1,130.41,0)="2;T"
^DIE(1667,"DIAB",4,2,130.34,0)="3;T"
^DIE(1667,"DIAB",5,0,130,0)=".345;T"
^DIE(1667,"DIAB",5,1,130.06,0)="42;T"
^DIE(1667,"DIAB",5,2,130.34,0)="5;T"
^DIE(1667,"DIAB",6,0,130,0)=".33;T"
^DIE(1667,"DIAB",6,1,130.06,0)="3;T"
^DIE(1667,"DIAB",7,0,130,0)=".213;T"
^DIE(1667,"DIAB",7,1,130.06,0)="4;T"
^DIE(1667,"DIAB",8,0,130,0)="1.13;T"
^DIE(1667,"DIAB",8,1,130.06,0)="5;T"
^DIE(1667,"DIAB",9,0,130,0)=".46;T"
^DIE(1667,"DIAB",9,1,130.06,0)="6;T"
^DIE(1667,"DIAB",10,0,130,0)=".37;T"
^DIE(1667,"DIAB",10,1,130.06,0)="7;T"
^DIE(1667,"DIAB",11,0,130,0)="26;T"
^DIE(1667,"DIAB",11,1,130.06,0)="8;T"
^DIE(1667,"DIAB",12,0,130,0)=".42;T"
^DIE(1667,"DIAB",12,1,130.06,0)="9;T"
^DIE(1667,"DIAB",13,0,130,0)=".375;T"
^DIE(1667,"DIAB",13,1,130.06,0)="10;T"
^DIE(1667,"DIAB",14,0,130,0)=".36;T"
^DIE(1667,"DIAB",14,1,130.06,0)="11;T"
^DIE(1667,"DIAB",15,0,130,0)=".293;T"
^DIE(1667,"DIAB",15,1,130.06,0)="12;T"
^DIE(1667,"DIAB",16,0,130,0)=".27;T"
^DIE(1667,"DIAB",16,1,130.06,0)="21;T"
^DIE(1667,"DIAB",17,0,130,0)=".25;T"
^DIE(1667,"DIAB",17,1,130.06,0)="39;T"
^DIE(1667,"DIAB",18,0,130,0)=".255;T"
^DIE(1667,"DIAB",18,1,130.06,0)="22;T"
^DIE(1667,"DIAB",19,0,130,0)="1.11;T"
^DIE(1667,"DIAB",19,1,130.06,0)="17;T"
^DIE(1667,"DIAB",20,0,130,0)="1.12;T"
^DIE(1667,"DIAB",20,1,130.06,0)="18;T"
^DIE(1667,"DIAB",21,0,130,0)="1.19;T"
^DIE(1667,"DIAB",21,1,130.06,0)="25;T"
^DIE(1667,"DIAB",22,0,130,0)="1.2;T"
^DIE(1667,"DIAB",22,1,130.06,0)="26;T"
^DIE(1667,"DIAB",23,0,130,0)=".28;T"
^DIE(1667,"DIAB",23,1,130.06,0)="27;T"
^DIE(1667,"DIAB",24,1,130.06,0)="29;T"
^DIE(1667,"DIAB",25,1,130.06,0)="43;T"
^DIE(1667,"DIAB",26,1,130.06,0)="34;T"
^DIE(1667,"DIAB",27,1,130.06,0)="35;T"
^DIE(1667,"DIAB",28,1,130.06,0)="44;T"
^DIE(1667,"DIAB",29,1,130.06,0)="38;T"
^DIE(1667,"DR",1,130)=".02T~;.31T~;.32T~;.34T~;.345T~;.33T~;.213T~;1.13T~;.46T~;.37T~;26T~;.42T~;.375T~;.36T~;.293T~;.27T~;.25T~;.255T~;1.11T~;1.12T~;1.19T~;1.2T~;.28T~;"
^DIE(1667,"DR",2,130.04)=".01T~;1T~;3T~;4T~;"
^DIE(1667,"DR",2,130.06)=".01T~;.05T~;24T~;41T~;42T~;3T~;4T~;5T~;6T~;7T~;8T~;9T~;10T~;11T~;12T~;21T~;39T~;22T~;17T~;18T~;25T~;26T~;27T~;29T~;43T~;34T~;35T~;44T~;38T~;Q;"
^DIE(1667,"DR",2,130.16)=".01T~;2T~;"
^DIE(1667,"DR",2,130.213)=".01T~;1T~;"
^DIE(1667,"DR",2,130.33)=".01T~;1T~;"
^DIE(1667,"DR",2,130.41)=".01T~;3T~;1T~;2T~;"
^DIE(1667,"DR",3,130.34)=".01T~;4T~;2T~;3T~;5T~;"
^DIE(1667,"DR",3,130.47)=".01T~;1T~;"
^DIE(1667,"DR",3,130.49)=".01T~;1T~;2T~;"
^DIE(1668,0)="IB EDIT E&M QUANTITY^3040421.1004^@^357.69^^@^3040421"
^DIE(1668,"DR",1,357.69)=".06;"
^DIE(1669,0)="RMPR ENTER RECALL DATA^3040511.0859^@^660^^@^3040817"
^DIE(1669,"DR",1,660)="D SERIAL^RMPRUTL4;W !,""Patient Name: ""_RMPRX(660,DA_"","",.02,""E"");W !,""Form: ""_RMPRX(660,DA_"","",11,""E"");W !,""Transaction #: ""_RMPRX(660,DA_"","",23,""E"");W !,""Brief Desc: ""_RMPRX(660,DA_"","",24,""E"");"
^DIE(1669,"DR",1,660,1)="W !,""PSAS HCPCS: ""_RMPRX(660,DA_"","",4.5,""E"");W !,""Item: ""_RMPRX(660,DA_"","",4,""E"");W !,""Vendor: ""_RMPRX(660,DA_"","",7,""E"");W !,""Initiator: ""_RMPRX(660,DA_"","",27,""E"");9;9.1;9.2;21;"
^DIE(1681,0)="BPSJ CONTACT ENTER/EDIT^3031215.1702^^9002313.99^^^3060228.141135"
^DIE(1681,"DIAB",2,0,9002313.99,0)="6000:"
^DIE(1681,"DR",1,9002313.99)="6000;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^BPS(9002313.99,D0,""VITRIA"")):^(""VITRIA""),1:"""") S X=$P(Y(1),U,1),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1681,"DR",2,200)=".132;.151;"
^DIE(1682,0)="BPSJ ALT CONTACT ENTER/EDIT^3031216.1448^@^9002313.99^^@^3060228.141135"
^DIE(1682,"DIAB",2,0,9002313.99,0)="6001:"
^DIE(1682,"DR",1,9002313.99)="6001;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^BPS(9002313.99,D0,""VITRIA"")):^(""VITRIA""),1:"""") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1682,"DR",2,200)=".132;.151;"
^DIE(1683,0)="BPSJ PHARMACY SITE ENTER/EDIT^3060605.0902^@^9002313.56^^@^3060707"
^DIE(1683,"DR",1,9002313.56)=".1;.02;.03;120.03;120.01;120.02;102.03;120.04;120.05;130.01;130.02;130.03;130.6;130.07;130.08;"
^DIE(1684,0)="BPSJ PHARM CONTACT ENTER/EDIT^3040323.1605^@^9002313.56^^@^3060130"
^DIE(1684,"DIAB",2,0,9002313.56,0)="1900.01:"
^DIE(1684,"DR",1,9002313.56)="1900.01;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^BPS(9002313.56,D0,""REP"")):^(""REP""),1:"""") S X=$P(Y(1),U,3),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1684,"DR",2,200)="8;.132;.151;"
^DIE(1685,0)="BPSJ PHARM ALT CONT ENTER/EDIT^3040420.1437^@^9002313.56^^@^3060130"
^DIE(1685,"DIAB",2,0,9002313.56,0)="1900.02:"
^DIE(1685,"DR",1,9002313.56)="1900.02;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^BPS(9002313.56,D0,""REP"")):^(""REP""),1:"""") S X=$P(Y(1),U,4),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1685,"DR",2,200)="8;.132;.151;"
^DIE(1686,0)="BPSJ PHARMACIST ENTER/EDIT^3040608.1404^@^9002313.56^^@^3060130"
^DIE(1686,"DIAB",2,0,9002313.56,0)="1900.03:"
^DIE(1686,"DR",1,9002313.56)="1900.03;^200^VA(200,^^S I(0,0)=D0 S Y(1)=$S($D(^BPS(9002313.56,D0,""REP"")):^(""REP""),1:"""") S X=$P(Y(1),U,5),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"""");"
^DIE(1686,"DR",2,200)="8;"
^DIE(1687,0)="PXRM EDIT FINDING RULE^3020702.153^@^810.4^^@^3041129"
^DIE(1687,"DR",1,810.4)=".01;.02;100;1;2;3;"
^DIE(1688,0)="PXRM EDIT RULE SET^3060712.1016^@^810.4^^@^3060809"
^DIE(1688,"DR",1,810.4)=".01;.02;100;30;"
^DIE(1688,"DR",2,810.41)=".01;.02;S RR=$S($G(X)="""":0,$P(^PXRM(810.4,X,0),U,10)'="""":1,1:0);.03;I RR S Y=""@1"";2;@1;3;"
^DIE(1689,0)="PXRM EDIT REMINDER RULE^3060407.1006^@^810.4^^@^3060712"
^DIE(1689,"%D",0)="^^1^1^3060407^"
^DIE(1689,"%D",1,0)=""
^DIE(1689,"DR",1,810.4)=".01;.02;100;@1;9;S X=$$VDEF^PXRMVLST($G(X));S:X=0 Y=$$REMOVE^PXRMLCR(DA);3;"
^DIE(1690,0)="PXRM EDIT REPORT OUTPUT RULE^3020702.1428^@^810.4^^@^3020702"
^DIE(1690,"DR",1,810.4)=".01;"
^DIE(1694,0)="PXRM EDIT PATIENT LIST RULE^3060516.1142^@^810.4^^@^3060516"
^DIE(1694,"DR",1,810.4)=".01;.02;100;4;I X'="""" S Y=""@1"";7;@1;"
^DIE(1695,0)="XUMF MFP EDIT^3050317.0722^@^4.001^^@^3050405"
^DIE(1695,"DIAB",1,0,4.001,1)="4.6;""ALT CODING SYSTEM"";REQ"
^DIE(1695,"DIAB",2,0,4.001,0)=".03;REQ"
^DIE(1695,"DIAB",2,0,4.001,1)="4.7;REQ"
^DIE(1695,"DIAB",3,0,4.001,0)=".02;REQ"
^DIE(1695,"DIAB",3,0,4.001,1)="4.8;REQ"
^DIE(1695,"DIAB",4,1,4.011,0)=".02;REQ"
^DIE(1695,"DIAB",7,0,4.001,0)="4.1;""MFE ID FIELD"";REQ"
^DIE(1695,"DIAB",8,0,4.001,0)="4.11;""MFE ID TYPE"";REQ"
^DIE(1695,"DIAB",8,1,4.011,0)=".03;REQ"
^DIE(1695,"DIAB",9,0,4.001,0)="4.2;""MFE TEXT FIELD"";REQ"
^DIE(1695,"DIAB",9,1,4.011,0)=".09;REQ"
^DIE(1695,"DIAB",10,0,4.001,0)="4.12;""MFE TEXT TYPE"";REQ"
^DIE(1695,"DIAB",11,0,4.001,0)="4.3;""MFE ID CODING SYSTEM"";REQ"
^DIE(1695,"DIAB",12,0,4.001,0)="4.4;""ALT ID FIELD"";REQ"
^DIE(1695,"DIAB",13,0,4.001,0)="4.14;""ALT ID TYPE"";REQ"
^DIE(1695,"DIAB",14,0,4.001,0)="4.5;""ALT TEXT FIELD"";REQ"
^DIE(1695,"DIAB",15,0,4.001,0)="4.15;""ALT TEXT TYPE"";REQ"
^DIE(1695,"DR",1,4.001)=".01;.03R~;.02R~;.04;.05;.06;4.1R~MFE ID FIELD~;4.11R~MFE ID TYPE~;4.2R~MFE TEXT FIELD~;4.12R~MFE TEXT TYPE~;4.3R~MFE ID CODING SYSTEM~;4.4R~ALT ID FIELD~;4.14R~ALT ID TYPE~;4.5R~ALT TEXT FIELD~;4.15R~ALT TEXT TYPE~;"
^DIE(1695,"DR",1,4.001,1)="4.6R~ALT CODING SYSTEM~;4.7R~;4.8R~;4.16;4.17;4.9;1;"
^DIE(1695,"DR",2,4.011)=".01;.04;S XUMFMIFN=X;.02R~;S XUMFFN=X;S:'$$PTR^XUMF($S($G(XUMFMIFN):$G(XUMFMIFN),1:DA(1)),X) Y=.03;.07;.03R~;.09R~;.13;.14;S:'$G(XUMFMIFN) Y=""@1"";.08;.06;S:X'="""" Y=""@1"";.05;@1;K XUMFFN,XUMFMIFN;"
^DIE(1696,0)="RMPR ENTER WAVIER EXCLUDE^3050110.1406^@^660^^@^3050203"
^DIE(1696,"DR",1,660)="D SERIAL^RMPRUTL4;W !,""Patient Name: ""_RMPRX(660,DA_"","",.02,""E"");W !,""Form: ""_RMPRX(660,DA_"","",11,""E"");W !,""Transaction #: ""_RMPRX(660,DA_"","",23,""E"");W !,""Brief Desc: ""_RMPRX(660,DA_"","",24,""E"");"
^DIE(1696,"DR",1,660,1)="W !,""PSAS HCPCS: ""_RMPRX(660,DA_"","",4.5,""E"");W !,""Item: ""_RMPRX(660,DA_"","",89,""E"");W !,""Vendor: ""_RMPRX(660,DA_"","",7,""E"");W !,""Initiator: ""_RMPRX(660,DA_"","",27,""E"");38.1;"
^DIE(1697,0)="RMPR ENTER CONTRACT^3050203.1529^@^660^^@^3050203"
^DIE(1697,"DR",1,660)="D SERIAL^RMPRUTL4;W !,""Patient Name: ""_RMPRX(660,DA_"","",.02,""E"");W !,""Form: ""_RMPRX(660,DA_"","",11,""E"");W !,""Transaction #: ""_RMPRX(660,DA_"","",23,""E"");W !,""Brief Desc: ""_RMPRX(660,DA_"","",24,""E"");"
^DIE(1697,"DR",1,660,1)="W !,""PSAS HCPCS: ""_RMPRX(660,DA_"","",4.5,""E"");W !,""Item: ""_RMPRX(660,DA_"","",89,""E"");W !,""Vendor: ""_RMPRX(660,DA_"","",7,""E"");W !,""Initiator: ""_RMPRX(660,DA_"","",27,""E"");38.7;"
^DIE(1698,0)="XTPM COMPLETE NON-KIDS PATCH^3050721.0643^@^9.9^^@^3050804"
^DIE(1698,"DIAB",1,0,9.9,0)="12;""DATE COMPLETED"""
^DIE(1698,"DIAB",1,0,9.9,1)="13//USER(""N"")"
^DIE(1698,"DR",1,9.9)="12DATE COMPLETED~;I X']"""" S Y=""@1"";Q;"
^DIE(1698,"DR",1,9.9,1)="13//^X DR(99,1,9.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""""),X=$S('DUZ:""??"",X=""#"":DUZ,X=""N"":$P(%,U,1),X=""I"":$P(%,U,2),X=""T"":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""""),X=""NN"":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""""),1:""??"") K %;"
^DIE(1698,"DR",1,9.9,2)="S Y=""@2"";@1;12///@;13///@;@2;"
^DIE(1698,"DR",99,1,9.2)="S X=""N"""
^DIE(1699,0)="XTPM EDIT PATCH^3050721.0757^@^9.9^^@^3050803"
^DIE(1699,"DIAB",1,0,9.9,1)="13//USER(""N"")"
^DIE(1699,"DIAB",4,0,9.9,0)="12;""DATE COMPLETED"""
^DIE(1699,"DR",1,9.9)="8;11;I X'=1 S Y=""@1"";12DATE COMPLETED~;Q;"
^DIE(1699,"DR",1,9.9,1)="13//^X DR(99,1,9.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""""),X=$S('DUZ:""??"",X=""#"":DUZ,X=""N"":$P(%,U,1),X=""I"":$P(%,U,2),X=""T"":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""""),X=""NN"":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""""),1:""??"") K %;"
^DIE(1699,"DR",1,9.9,2)="S Y=""@2"";@1;12///@;13///@;@2;"
^DIE(1699,"DR",99,1,9.2)="S X=""N"""
^DIE(1700,0)="XTPM EDIT PATCH MONITOR PARAMS^3050721.1146^@^9.95^^@^3061127"
^DIE(1700,"DIAB",1,1,9.951,0)="ALL"
^DIE(1700,"DIAB",1,1,9.954,0)="ALL"
^DIE(1700,"DR",1,9.95)=".01;1;2;3;4;"
^DIE(1700,"DR",2,9.951)=".01"
^DIE(1700,"DR",2,9.954)=".01:1"
^DIE(1700,"DR",3,9.9541)=".01"
^DIE(1701,0)="HLOAPREG^3070709.1029^@^779.2^^@^3070719"
^DIE(1701,"DIAB",1,1,779.21,0)="ALL"
^DIE(1701,"DR",1,779.2)=".01;2;.09;.03;.06;.07;.08;.04;.05;1;.12;.1;.11;"
^DIE(1701,"DR",2,779.21)=".01:.07"
^DIE(1702,0)="PRCHITEM2^3021223.1603^@^441^^@^3050809"
^DIE(1702,"DR",1,441)=".05;.1;I '$O(^PRC(441,DA,1,0)) W *7,!,""Long Description is REQUIRED to be entered"" S Y=.1;.08;2;5;5.5;3;19;S PRCHFSC=$P(^PRC(441,DA,0),U,3) S:$P(PRCHFSC/100,""."")'=89 Y=21;20;21;S:$P(^PRC(441,DA,0),U,3)'=6505 Y=6;22;6;10;"
^DIE(1702,"DR",1,441,1)="I $D(PRC(""PARAM"")),$P(PRC(""PARAM""),U,16)=""""!($P(PRC(""PARAM""),U,16)=""N"") S Y="""";12;"
^DIE(1702,"DR",1,441,2)="I X="""",$D(PRC(""PARAM"")),$P(PRC(""PARAM""),U,16)=""Y"" W *7,!!,""  A&MM has been designated to enter BOC on items--this should be done"",!,""before ordering this item!"";"
^DIE(1702,"DR",2,441.01)="S DIE(""NO^"")="""";.01;1.5;1;1.6;10;K DIE(""NO^"");2;3;8;8.5;9;S:$P(^PRC(441,DA(1),0),U,3)'=6505 Y="""";4;"
^DIE(1702,"DR",2,441.05)=".01;"
^DIE(1703,0)="PRCHAMT89 NEW^3050620.1334^^442^^^3060123"
^DIE(1703,"%D",0)="^^3^3^3050729^"
^DIE(1703,"%D",1,0)="This is a clone of PRCHAMT89 to be used by users of purchase card and"
^DIE(1703,"%D",2,0)="delivery orders to support data collection for the new FPDS report"
^DIE(1703,"%D",3,0)="requested by the Austin Automation Center (AAC)."
^DIE(1703,"DR",1,442)="35///^S X=PRCHAMT;"
^DIE(1703,"DR",2,442.1)="D BREAK^PRCHFPDT;I $G(PRCHPC)=2!($G(PRCHPC)=3)!($G(PRCHDELV)=1)!($G(PRCHPHAM)=1) S Y=""@23"";S Y=""@26"";@23;I ""26B""'[PRCHSC S Y=""@26"";S PRCBS=+PRCHN(""MB"");1//^S X=$S(PRCHSC=2:""B""_PRCBS,PRCHSC=""B"":""B""_PRCBS,PRCHSC=6:""D""_PRCBS,1:"""");"
^DIE(1703,"DR",2,442.1,1)="D COMP^PRCHFPDT S Y=""@27"";@27;1.1//^S X=""Y""_PRCBS;D PREF^PRCHFPDT;S Y=""@2"";@26;I PRCHSC'=5 S Y=""@10"";1////^S X=120;S Y=""@20"";@10;1;@20;2///^S X=PRCHCN;I PRCHSC'=5 S Y=""@1"";1.1////^S X=132;1.2////^S X=155;S Y=""@2"";@1;"
^DIE(1703,"DR",2,442.1,2)="D COMP^PRCHFPDT;@11;1.1;D PREF^PRCHFPDT;@12;1.2;@2;D D1^PRCHFPDT;"
^DIE(1704,0)="PRCH NEW PC FPDS^3051116.0719^^442^^^3060123"
^DIE(1704,"%D",0)="^^5^5^3051102^"
^DIE(1704,"%D",1,0)="This template is used by the new FPDS report for the Austin Automation "
^DIE(1704,"%D",2,0)="Center (AAC). It presents fields based on the value of the Source Code: "
^DIE(1704,"%D",3,0)="2, 6, and B (ien=9) and the competitive status/business for the vendor."
^DIE(1704,"%D",4,0)="The variables PRCB and PRCCB keep track of the comp. status/business in"
^DIE(1704,"%D",5,0)="the PO."
^DIE(1704,"DIAB",1,0,442,3)="SOLICITATION PROCEDURE//^S X=""SP1"";REQ"
^DIE(1704,"DIAB",2,0,442,1)="EXTENT COMPETED//^S X=$S(PRCCB=1:""G"",1:""F"");REQ"
^DIE(1704,"DIAB",2,0,442,2)="FUNDING AGENCY OFFICE CODE;REQ"
^DIE(1704,"DIAB",2,0,442,3)="EVALUATED PREFERENCE//^S X=""NONE"";REQ"
^DIE(1704,"DIAB",5,0,442,1)="REASON NOT COMPETED//^S X=""SP2"";REQ"
^DIE(1704,"DIAB",5,0,442,3)="FUNDING AGENCY OFFICE CODE;REQ"
^DIE(1704,"DIAB",6,0,442,2)="REASON NOT COMPETED//^S X=""SP2"";REQ"
^DIE(1704,"DIAB",6,0,442,3)="CLINGER COHEN//^S X=""N"";REQ"
^DIE(1704,"DIAB",7,0,442,1)="SOLICITATION PROCEDURE//^S X=""SP1"";REQ"
^DIE(1704,"DIAB",8,0,442,1)="EVALUATED PREFERENCE//^S X=""NONE"";REQ"
^DIE(1704,"DIAB",8,0,442,2)="NUMBER OF OFFERS//^S X=1;REQ"
^DIE(1704,"DIAB",8,0,442,3)="MULTIYEAR//^S X=""N"";REQ"
^DIE(1704,"DIAB",9,0,442,2)="SOLICITATION PROCEDURE//^S X=""SP1"";REQ"
^DIE(1704,"DIAB",9,0,442,3)="PERF. BASED SERVICE CONTRACT//^S X=""N"";REQ"
^DIE(1704,"DIAB",13,0,442,2)="CLINGER COHEN//^S X=""N"";REQ"
^DIE(1704,"DIAB",15,0,442,2)="MULTIYEAR//^S X=""N"";REQ"
^DIE(1704,"DIAB",16,0,442,2)="PERF. BASED SERVICE CONTRACT//^S X=""N"";REQ"
^DIE(1704,"DIAB",19,0,442,2)="REASON NOT COMPETED//^S X=""SP2"";REQ"
^DIE(1704,"DIAB",20,0,442,2)="NUMBER OF OFFERS//^S X=1;REQ"
^DIE(1704,"DR",1,442)="I $D(^PRC(442,DA,9)) S PRCB=+$P(^PRC(442,DA,9,1,0),U,4);I ""^125^126^127^128^129^130^131^132^""[PRCB S PRCCB=1;I ""^121^122^123^124^""[PRCB S PRCCB=2;I $D(^PRC(442,DA,1)) S PRCHSC=$P(^PRC(442,DA,1),U,7);I ""6""[PRCHSC S Y=""@1"";"
^DIE(1704,"DR",1,442,1)="I ""9""[PRCHSC S Y=""@3"";128R~//^S X=$S(PRCCB=1:""G"",1:""F"");I $G(PRCCB)'=1&(""37""'[X) S Y=""@7"";I ""^1^2^4^5^6^8^9^""[(""^""_$P(^PRC(442,DA,25),U,12)_""^"") S Y=""@7"";117R~//^S X=""SP2"";@7;121R~//^S X=""SP1"";122R~//^S X=""NONE"";123;"
^DIE(1704,"DR",1,442,2)="I X="""" S Y=""@4"";124R~;S Y=""@4"";@1;I $G(PRCCB)=2 S Y=""@8"";117R~//^S X=""SP2"";@8;118R~//^S X=1;121R~//^S X=""SP1"";123;I X="""" S Y=""@5"";124;130R~//^S X=""N"";@5;125R~//^S X=""N"";129R~//^S X=""N"";S Y=""@4"";@3;117R~//^S X=""SP2"";118R~//^S X=1;"
^DIE(1704,"DR",1,442,3)="121R~//^S X=""SP1"";122R~//^S X=""NONE"";123;I X="""" S Y=""@6"";124R~;130R~//^S X=""N"";@6;125R~//^S X=""N"";129R~//^S X=""N"";@4;K PRCB,PRCCB;"
^DIE(1705,0)="PRCH NEW DEL FPDS^3051212.0856^^442^^^3060104"
^DIE(1705,"%D",0)="^^5^5^3051212^"
^DIE(1705,"%D",1,0)="This template is used by the new FPDS report for the Austin Automation "
^DIE(1705,"%D",2,0)="Center (AAC). It is set up so that users of the delivery orders menu can"
^DIE(1705,"%D",3,0)="use suggested defaults. By design, these delivery orders use source code ="
^DIE(1705,"%D",4,0)="6. The PRCB and PRCCB are used to keep track of the competitive status for"
^DIE(1705,"%D",5,0)="the PO and decide to present the field 'Reason not competed' to the user."
^DIE(1705,"DIAB",1,0,442,1)="REASON NOT COMPETED//^S X=""SP2"";REQ"
^DIE(1705,"DIAB",3,0,442,1)="NUMBER OF OFFERS//^S X=1;REQ"
^DIE(1705,"DIAB",4,0,442,1)="PRE AWARD SYNOPSIS//^S X=""N"";REQ"
^DIE(1705,"DIAB",5,0,442,1)="ALTERNATIVE ADVERTISING//^S X=""N"";REQ"
^DIE(1705,"DIAB",6,0,442,1)="SOLICITATION PROCEDURE//^S X=""SP1"";REQ"
^DIE(1705,"DIAB",7,0,442,1)="EVALUATED PREFERENCE//^S X=""NONE"";REQ"
^DIE(1705,"DIAB",10,0,442,1)="FUNDING AGENCY OFFICE CODE;REQ"
^DIE(1705,"DIAB",11,0,442,1)="CLINGER COHEN//^S X=""N"";REQ"
^DIE(1705,"DIAB",13,0,442,1)="MULTIYEAR//^S X=""N"";REQ"
^DIE(1705,"DIAB",14,0,442,1)="PERF. BASED SERVICE CONTRACT//^S X=""N"";REQ"
^DIE(1705,"DIAB",15,0,442,1)="EPA DESIGNATED PRODUCT//^S X=""E"";REQ"
^DIE(1705,"DIAB",16,0,442,1)="CONTRACT BUNDLING//^S X=""D"";REQ"
^DIE(1705,"DIAB",17,0,442,1)="PLACE OF PERF. THIS STATION?//^S X=""Y"";REQ"
^DIE(1705,"DR",1,442)="I $D(^PRC(442,DA,9)) S PRCB=+$P(^PRC(442,DA,9,1,0),U,4);I ""^125^126^127^128^129^130^131^132^""[PRCB S PRCCB=1;I ""^121^122^123^124^""[PRCB S PRCCB=2;I $G(PRCHDELV)=1!($G(PRCHPHAM)=1) S Y=""@5"";S Y=""@4"";@5;I $G(PRCCB)=2 S Y=""@6"";"
^DIE(1705,"DR",1,442,1)="117R~//^S X=""SP2"";@6;118R~//^S X=1;119R~//^S X=""N"";120R~//^S X=""N"";121R~//^S X=""SP1"";122R~//^S X=""NONE"";123;I X="""" S Y=""@1"";124R~;130R~//^S X=""N"";@1;125R~//^S X=""N"";129R~//^S X=""N"";126R~//^S X=""E"";127R~//^S X=""D"";131R~//^S X=""Y"";"
^DIE(1705,"DR",1,442,2)="@4;K PRCB,PRCCCB;"
^DIE(1706,0)="PRCH NEW PO FPDS^3051212.0927^^442^^^3060119"
^DIE(1706,"%D",0)="^^7^7^3051212^^"
^DIE(1706,"%D",1,0)="This template part of the Purchasing Agent menu and is used by the new"
^DIE(1706,"%D",2,0)="FPDS report for the Austin Automation Center (AAC). It presents fields"
^DIE(1706,"%D",3,0)="based on the value of the Source Code 2 and 5 and the competitive"
^DIE(1706,"%D",4,0)="status/business for the vendor. The variables PRCB and PRCCB keep track of"
^DIE(1706,"%D",5,0)="the comp. status/business in the PO. Also, this template implements a new"
^DIE(1706,"%D",6,0)="definition for delivery orders based on source codes 4, 6, 7, and B. No"
^DIE(1706,"%D",7,0)="defaults are offered for any of the new FPDS prompts."
^DIE(1706,"DIAB",4,0,442,1)="EXTENT COMPETED;REQ"
^DIE(1706,"DIAB",4,0,442,2)="REASON NOT COMPETED;REQ"
^DIE(1706,"DIAB",6,0,442,2)="NUMBER OF OFFERS;REQ"
^DIE(1706,"DIAB",7,0,442,1)="REASON NOT COMPETED;REQ"
^DIE(1706,"DIAB",7,0,442,2)="PRE AWARD SYNOPSIS;REQ"
^DIE(1706,"DIAB",8,0,442,2)="ALTERNATIVE ADVERTISING;REQ"
^DIE(1706,"DIAB",9,0,442,2)="SOLICITATION PROCEDURE;REQ"
^DIE(1706,"DIAB",10,0,442,1)="SOLICITATION PROCEDURE;REQ"
^DIE(1706,"DIAB",10,0,442,2)="EVALUATED PREFERENCE;REQ"
^DIE(1706,"DIAB",12,0,442,1)="EVALUATED PREFERENCE;REQ"
^DIE(1706,"DIAB",13,0,442,2)="FUNDING AGENCY OFFICE CODE;REQ"
^DIE(1706,"DIAB",14,0,442,2)="CLINGER COHEN;REQ"
^DIE(1706,"DIAB",15,0,442,1)="FUNDING AGENCY OFFICE CODE;REQ"
^DIE(1706,"DIAB",16,0,442,2)="MULTIYEAR;REQ"
^DIE(1706,"DIAB",17,0,442,2)="PERF. BASED SERVICE CONTRACT;REQ"
^DIE(1706,"DIAB",18,0,442,2)="EPA DESIGNATED PRODUCT;REQ"
^DIE(1706,"DIAB",19,0,442,2)="CONTRACT BUNDLING;REQ"
^DIE(1706,"DIAB",20,0,442,2)="PLACE OF PERF. THIS STATION?;REQ"
^DIE(1706,"DR",1,442)="I $D(^PRC(442,DA,1)) S PRCHSC=$P(^PRC(442,DA,1),U,7);I $D(^PRC(442,DA,9)) S PRCB=+$P(^PRC(442,DA,9,1,0),U,4);I ""^125^126^127^128^129^130^131^132^""[PRCB S PRCCB=1;I ""^121^122^123^124^""[PRCB S PRCCB=2;I ""25""[PRCHSC S Y=""@1"";"
^DIE(1706,"DR",1,442,1)="I ""46910""[PRCHSC S Y=""@8"";S Y=""@99"";@1;128R~;I $G(PRCCB)'=1&(""37""'[X) S Y=""@7"";I ""^1^2^4^5^6^8^9^""[(""^""_$P(^PRC(442,DA,25),U,12)_""^"") S Y=""@7"";117R~;@7;I $G(PRCHSC)=5 S Y=""@3"";121R~;@3;122R~;123;I $G(X)="""" S Y=""@99"";124R~;"
^DIE(1706,"DR",1,442,2)="S Y=""@99"";@8;I $G(PRCCB)=2 S Y=""@9"";117R~;@9;118R~;119R~;120R~;121R~;122R~;123;I X="""" S Y=""@10"";124R~;130R~;@10;125R~;129R~;126R~;127R~;131R~;@99;K PRCB,PRCCB;"
^DIE(1707,0)="RORHDT EDIT EXTRACTION^3051220.0941^@^799.6^^@^3060109"
^DIE(1707,"DIAB",1,1,799.63,0)="REGISTRY NAME;REQ"
^DIE(1707,"DIAB",2,0,799.6,0)="START DATE;REQ"
^DIE(1707,"DIAB",3,0,799.6,0)="END DATE;REQ"
^DIE(1707,"DIAB",4,0,799.6,0)="PATIENTS PER BATCH//750;REQ"
^DIE(1707,"DIAB",5,0,799.6,0)="OUTPUT DIRECTORY;REQ"
^DIE(1707,"DIAB",6,0,799.6,0)="BASE FILE NAME//ROR;REQ"
^DIE(1707,"DR",1,799.6)=".02///2;.03R~;.04R~;.05R~//750;2R~;.08R~//ROR;3;1;"
^DIE(1707,"DR",2,799.61)=".01;.02;.03;"
^DIE(1707,"DR",2,799.63)=".01R~;.02;"
^DIE(1708,0)="RORHDT EDIT NATIONAL EXTRACT^3051220.0945^@^799.6^^@^3060109"
^DIE(1708,"DIAB",1,0,799.6,0)="OUTPUT DIRECTORY;REQ"
^DIE(1708,"DR",1,799.6)="2R~;"
^DIE(1709,0)="SD IMO^3030418.1341^@^44^^@^3030428"
^DIE(1709,"DR",1,44)="2802;"
^DIE(1710,0)="TIU ENTER/EDIT PRF^3050309.1533^@^8925^^@^3060104"
^DIE(1710,"DIAB",2,0,8925,3)="AUTHOR/DICTATOR//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));T;REQ"
^DIE(1710,"DIAB",3,0,8925,7)="EXPECTED COSIGNER//^S X=$G(TIUDCSNR);REQ"
^DIE(1710,"DIAB",7,0,8925,2)="REFERENCE DATE//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");T"
^DIE(1710,"DIAB",7,0,8925,7)="EXPECTED COSIGNER;REQ"
^DIE(1710,"DR",1,8925)=".02////^S X=DFN;.03////^S X=$P($G(TIU(""VISIT"")),U);.07////^S X=$P($G(TIU(""EDT"")),U);.08////^S X=$P($G(TIU(""LDT"")),U);1401////^S X=$P($G(TIU(""AD#"")),U);I '+$G(TIUBY) S Y=""@1"";I +$P($G(^TIU(8925,+DA,12)),U,5) S Y=""@13"";"
^DIE(1710,"DR",1,8925,1)="1205////^S X=$P($G(TIU(""LOC"")),U);@13;I +$G(^TIU(8925,+DA,13)) S Y=""@14"";1301////^S X=$$NOW^TIULC;@14;I +$P($G(^TIU(8925,+DA,12)),U,2) S Y=""@1"";1202////^S X=$S($D(TIUAUTH):+TIUAUTH,1:+$G(DUZ));@1;I +$G(TIUBY) S Y=""@2"";"
^DIE(1710,"DR",1,8925,2)="I $P($G(^SC(+$G(TIU(""LOC"")),0)),U,3)=""W"" S Y=""@3"";1205////^S X=$P($G(TIU(""LOC"")),U);S Y=""@4"";@3;1205//^S X=$P($G(TIU(""LOC"")),U,2);@4;1301T~//^S X=$$DATE^TIULS($$NOW^XLFDT,""MM/DD/YY@HR:MIN"");"
^DIE(1710,"DR",1,8925,3)="I +$$DATENOTE^TIULA3($$DATE^TIULS(X,""MM/DD/YY@HR:MIN:SEC""))'>0 S Y=""@4"";1202R~T~//^S X=$$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:+DUZ));"
^DIE(1710,"DR",1,8925,4)="I +$G(TIUAUTH),(+$P(^TIU(8925,+DA,12),U,2)'=+$G(TIUAUTH)) S TIU(""SVC"")=$$PROVSVC^TIULV(+$P(^(12),U,2)),TIUAUTH=+$P(^TIU(8925,+DA,12),U,2);@2;1204////^S X=$P($G(^TIU(8925,+DA,12)),U,2);S TIUESNR=X;"
^DIE(1710,"DR",1,8925,5)="I +$P($G(^TIU(8925,+DA,13)),U,2) S Y=""@5"";1302////^S X=DUZ;@5;I +$P($G(^TIU(8925,+DA,12)),U) S Y=""@6"";1201////^S X=$$NOW^TIULC;@6;S TIURQCS=+$$REQCOSIG^TIULP(+$G(TIUTYP),+DA,+$G(TIUESNR));"
^DIE(1710,"DR",1,8925,6)="I 'TIURQCS,($L($P($G(^TIU(8925,+DA,12)),U,8))'>0) S Y=""@7"";I +TIURQCS S Y=""@15"";W !!,""No cosignature is required for this author."",!;1208///@;1506///@;S Y=""@7"";@15;I +$$ISA^USRLM(DUZ,""TRANSCRIPTIONIST"") S Y=""@8"";"
^DIE(1710,"DR",1,8925,7)="S TIUDCSNR=$$PERSNAME^TIULC1(+$P($G(TIUPREF),U,9));I TIUDCSNR=""UNKNOWN"" S Y=""@11"";1208R~//^S X=$G(TIUDCSNR);K TIUDCSNR;S Y=""@9"";@11;1208R~;S Y=""@9"";@8;1208;@9;1506////1;@7;"
^DIE(1710,"DR",1,8925,8)="I $G(TIUNEW) S LINKED=$$GETLINK^TIUPRF1(+^TIU(8925,DA,0),DFN,DA) S:'LINKED TIUQUIT=1 K LINKED S:$G(TIUQUIT) Y=0;I +$P($G(TIUPREF),U,8)'>0,($G(^TIU(8925,+DA,17))']"""") S Y=""@10"";1701;@10;K TIUESNR,TIURQCS;"
^DIE(1710,"DR",1,8925,9)="I $P($G(^TIU(8925,+DA,13)),U,3)]"""" S Y=""@12"";1303////^S X=""D"";@12;"
^DIE(1711,0)="SD ASSOCIATED STOP^3060324.1355^^123.5^^^3060425"
^DIE(1711,"DIAB",1,1,123.5688,0)="ALL"
^DIE(1711,"DR",1,123.5)="688;"
^DIE(1711,"DR",2,123.5688)=".01"
^DIE(1712,0)="PXRM EXTRACT DEFINITION^3020708.1609^@^810.2^^@^3060817"
^DIE(1712,"DIAB",1,1,810.21,0)="ALL"
^DIE(1712,"DR",1,810.2)=".01;100;.02;.03;1;10;"
^DIE(1712,"DR",2,810.21)=".01:10"
^DIE(1712,"DR",3,810.22)=".01:2"
^DIE(1713,0)="PXRM EXTRACT COUNTING^3020906.1135^@^810.7^^@^3060809"
^DIE(1713,"DIAB",1,1,810.701,0)="ALL"
^DIE(1713,"DR",1,810.7)=".01;100;1;10;"
^DIE(1713,"DR",2,810.701)=".01:2"
^DIE(1714,0)="PXRM EXTRACT COUNTING GROUP^3020906.1411^@^810.8^^@^3060809"
^DIE(1714,"DR",1,810.8)=".01;100;1;2;10;"
^DIE(1714,"DR",2,810.801)=".01;1;2;"
^DIE(1715,0)="XUPRTL INPUT^3041021.1103^#^101^^#^3050518"
^DIE(1715,"DR",1,101)=".01;S NAME=X;1:4;6:775;"
^DIE(1715,"DR",2,101.01)=".01:14"
^DIE(1715,"DR",2,101.02)=".01"
^DIE(1715,"DR",2,101.021)=".01"
^DIE(1715,"DR",2,101.03)=".01"
^DIE(1715,"DR",2,101.0431)=".01"
^DIE(1715,"DR",2,101.05)=".01:.02"
^DIE(1715,"DR",2,101.06)=".01"
^DIE(1715,"DR",2,101.07)=".01"
^DIE(1715,"DR",2,101.0775)=".01"
^DIE(1716,0)="DGPT 601 CLEANUP^3070215.0945^^45^^^3070321"
^DIE(1716,"DR",1,45)="60///^S X=P(DGZP,1);"
^DIE(1716,"DR",2,45.05)="I $D(DGBPC(8)),$P(DGHOLD,U,4)]"""" S Y=""@899"";3////^S X=""@"";@899;"
^DIE(1717,0)="IBCN PATIENT INSURANCE^3080204.1237^@^2^^@^3080108"
^DIE(1717,"%D",0)="^^4^4^3070611^"
^DIE(1717,"%D",1,0)="esg - 6/11/2007 - IB patch 371"
^DIE(1717,"%D",2,0)=" "
^DIE(1717,"%D",3,0)="New input template to handle the input/edit of fields in the patient "
^DIE(1717,"%D",4,0)="insurance multiple (2.312) in the patient file."
^DIE(1717,"DIAB",2,1,2.312,0)="INSURANCE TYPE;""INSURANCE COMPANY"""
^DIE(1717,"DIAB",4,1,2.312,0)="PT. RELATIONSHIP - HIPAA;""PT. RELATIONSHIP TO INSURED"""
^DIE(1717,"DIAB",9,1,2.312,1)="SUBSCRIBER ID;""SUBSCRIBER PRIMARY ID"""
^DIE(1717,"DIAB",12,1,2.312,2)="PATIENT ID;""PATIENT PRIMARY ID"""
^DIE(1717,"DR",1,2)=".3121;"
^DIE(1717,"DR",2,2.312)="I '$G(IBREG)!'$$KCHK^XUSRB(""IB INSURANCE SUPERVISOR"") S Y=""@10"";.01INSURANCE COMPANY~;@10;4.03PT. RELATIONSHIP TO INSURED~;S IBREL=X;I IBREL="""" S Y="""";I '$G(IBDFN) S Y="""";F IBZ=""VADM"",""VAPA"" K ^UTILITY(IBZ,$J);"
^DIE(1717,"DR",2,2.312,1)="17//^S X=$$PIDEF^IBCNSP1($G(IBREL),17,$G(IBDFN));8;3;4.01;4.02;.2;1.09;W !;1SUBSCRIBER PRIMARY ID~;I '$$ASK^IBCNSP1(""Do you want to enter/update Subscriber Secondary IDs"") S Y=""@30"";S IB1ST(""ID EDIT"")=1;5.02;I X="""" S Y=""@30"";5.03;"
^DIE(1717,"DR",2,2.312,2)="I X="""" S Y=""@30"";5.04;I X="""" S Y=""@30"";5.05;I X="""" S Y=""@30"";5.06;I X="""" S Y=""@30"";5.07;@30;I +$G(IBREL)=18 S Y=""@20"";W !;5.01PATIENT PRIMARY ID~;I '$$ASK^IBCNSP1(""Do you want to enter/update Patient Secondary IDs"") S Y=""@20"";"
^DIE(1717,"DR",2,2.312,3)="S IB1ST(""ID EDIT"")=1;5.08;I X="""" S Y=""@20"";5.09;I X="""" S Y=""@20"";5.1;I X="""" S Y=""@20"";5.11;I X="""" S Y=""@20"";5.12;I X="""" S Y=""@20"";5.13;@20;W !;3.01//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.01,$G(IBDFN));"
^DIE(1717,"DR",2,2.312,4)="3.12//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.12,$G(IBDFN));3.02//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.02,$G(IBDFN));3.03;3.06//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.06,$G(IBDFN),1);3.07//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.07,$G(IBDFN),1);"
^DIE(1717,"DR",2,2.312,5)="3.08//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.08,$G(IBDFN),1);3.09//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.09,$G(IBDFN),1);3.1//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.1,$G(IBDFN),1);3.11//^S X=$$PIDEF^IBCNSP1($G(IBREL),3.11,$G(IBDFN),1);"
^DIE(1718,0)="SROALAB^3071129.1003^^139.2^^^3080212"
^DIE(1718,"DIAB",1,0,139.2,0)="1;T"
^DIE(1718,"DIAB",1,1,139.21,0)=".01;T"
^DIE(1718,"DIAB",2,0,139.2,0)="2;T"
^DIE(1718,"DR",1,139.2)="1T~;2T~;"
^DIE(1718,"DR",2,139.21)=".01T~;Q;"
^DIE("AF",2,.02,508)=""
^DIE("AF",2,.02,1476)=""
^DIE("AF",2,.03,508)=""
^DIE("AF",2,.05,426)=""
^DIE("AF",2,.05,508)=""
^DIE("AF",2,.05,1476)=""
^DIE("AF",2,.07,509)=""
^DIE("AF",2,.111,486)=""
^DIE("AF",2,.111,508)=""
^DIE("AF",2,.111,960)=""
^DIE("AF",2,.111,1476)=""
^DIE("AF",2,.1112,486)=""
^DIE("AF",2,.1112,508)=""
^DIE("AF",2,.1112,960)=""
^DIE("AF",2,.1112,1476)=""
^DIE("AF",2,.112,486)=""
^DIE("AF",2,.112,508)=""
^DIE("AF",2,.112,960)=""
^DIE("AF",2,.112,1476)=""
^DIE("AF",2,.113,486)=""
^DIE("AF",2,.113,508)=""
^DIE("AF",2,.113,960)=""
^DIE("AF",2,.113,1476)=""
^DIE("AF",2,.114,486)=""
^DIE("AF",2,.114,508)=""
^DIE("AF",2,.114,960)=""
^DIE("AF",2,.114,1476)=""
^DIE("AF",2,.115,486)=""
^DIE("AF",2,.115,508)=""
^DIE("AF",2,.115,960)=""
^DIE("AF",2,.115,1476)=""
^DIE("AF",2,.117,486)=""
^DIE("AF",2,.117,508)=""
^DIE("AF",2,.117,960)=""
^DIE("AF",2,.117,1476)=""
^DIE("AF",2,.121,1476)=""
^DIE("AF",2,.12105,508)=""
^DIE("AF",2,.1211,508)=""
^DIE("AF",2,.12112,508)=""
^DIE("AF",2,.1212,508)=""
^DIE("AF",2,.1213,508)=""
^DIE("AF",2,.1214,508)=""
^DIE("AF",2,.1215,508)=""
^DIE("AF",2,.1217,508)=""
^DIE("AF",2,.1218,508)=""
^DIE("AF",2,.1219,508)=""
^DIE("AF",2,.131,486)=""
^DIE("AF",2,.131,508)=""
^DIE("AF",2,.131,1476)=""
^DIE("AF",2,.132,1476)=""
^DIE("AF",2,.21011,1476)=""
^DIE("AF",2,.211,1476)=""
^DIE("AF",2,.212,1476)=""
^DIE("AF",2,.2125,1476)=""
^DIE("AF",2,.213,1476)=""
^DIE("AF",2,.214,1476)=""
^DIE("AF",2,.215,1476)=""
^DIE("AF",2,.216,1476)=""
^DIE("AF",2,.217,1476)=""
^DIE("AF",2,.219,1476)=""
^DIE("AF",2,.2201,1476)=""
^DIE("AF",2,.2205,509)=""
^DIE("AF",2,.2206,509)=""
^DIE("AF",2,.2207,1476)=""
^DIE("AF",2,.251,509)=""
^DIE("AF",2,.252,509)=""
^DIE("AF",2,.253,509)=""
^DIE("AF",2,.254,509)=""
^DIE("AF",2,.255,509)=""
^DIE("AF",2,.256,509)=""
^DIE("AF",2,.258,509)=""
^DIE("AF",2,.291,420)=""
^DIE("AF",2,.292,420)=""
^DIE("AF",2,.293,420)=""
^DIE("AF",2,.293,960)=""
^DIE("AF",2,.301,420)=""
^DIE("AF",2,.301,960)=""
^DIE("AF",2,.301,1476)=""
^DIE("AF",2,.301,1505)=""
^DIE("AF",2,.3012,420)=""
^DIE("AF",2,.3014,960)=""
^DIE("AF",2,.302,420)=""
^DIE("AF",2,.302,960)=""
^DIE("AF",2,.302,1476)=""
^DIE("AF",2,.302,1505)=""
^DIE("AF",2,.3025,420)=""
^DIE("AF",2,.3025,960)=""
^DIE("AF",2,.3025,1505)=""
^DIE("AF",2,.304,420)=""
^DIE("AF",2,.305,420)=""
^DIE("AF",2,.305,960)=""
^DIE("AF",2,.306,960)=""
^DIE("AF",2,.309,420)=""
^DIE("AF",2,.309,421)=""
^DIE("AF",2,.3111,509)=""
^DIE("AF",2,.31115,509)=""
^DIE("AF",2,.3113,509)=""
^DIE("AF",2,.3114,509)=""
^DIE("AF",2,.3115,509)=""
^DIE("AF",2,.3116,509)=""
^DIE("AF",2,.3117,509)=""
^DIE("AF",2,.3119,509)=""
^DIE("AF",2,.313,420)=""
^DIE("AF",2,.313,960)=""
^DIE("AF",2,.314,420)=""
^DIE("AF",2,.314,960)=""
^DIE("AF",2,.32101,426)=""
^DIE("AF",2,.32101,960)=""
^DIE("AF",2,.32102,426)=""
^DIE("AF",2,.32102,1476)=""
^DIE("AF",2,.32103,426)=""
^DIE("AF",2,.32103,1476)=""
^DIE("AF",2,.3212,426)=""
^DIE("AF",2,.3213,426)=""
^DIE("AF",2,.322,960)=""
^DIE("AF",2,.322013,1476)=""
^DIE("AF",2,.323,420)=""
^DIE("AF",2,.323,421)=""
^DIE("AF",2,.323,422)=""
^DIE("AF",2,.323,960)=""
^DIE("AF",2,.323,1476)=""
^DIE("AF",2,.324,960)=""
^DIE("AF",2,.325,960)=""
^DIE("AF",2,.325,1476)=""
^DIE("AF",2,.326,960)=""
^DIE("AF",2,.327,960)=""
^DIE("AF",2,.328,960)=""
^DIE("AF",2,.328,1476)=""
^DIE("AF",2,.3285,960)=""
^DIE("AF",2,.329,960)=""
^DIE("AF",2,.3291,960)=""
^DIE("AF",2,.3292,960)=""
^DIE("AF",2,.3293,960)=""
^DIE("AF",2,.3294,960)=""
^DIE("AF",2,.32945,960)=""
^DIE("AF",2,.3295,960)=""
^DIE("AF",2,.3296,960)=""
^DIE("AF",2,.3297,960)=""
^DIE("AF",2,.3298,960)=""
^DIE("AF",2,.3299,960)=""
^DIE("AF",2,.33011,1476)=""
^DIE("AF",2,.3305,1476)=""
^DIE("AF",2,.331,1476)=""
^DIE("AF",2,.332,1476)=""
^DIE("AF",2,.333,1476)=""
^DIE("AF",2,.334,1476)=""
^DIE("AF",2,.335,1476)=""
^DIE("AF",2,.336,1476)=""
^DIE("AF",2,.337,1476)=""
^DIE("AF",2,.339,1476)=""
^DIE("AF",2,.351,960)=""
^DIE("AF",2,.361,420)=""
^DIE("AF",2,.361,421)=""
^DIE("AF",2,.361,422)=""
^DIE("AF",2,.361,508)=""
^DIE("AF",2,.361,960)=""
^DIE("AF",2,.361,1476)=""
^DIE("AF",2,.361,1505)=""
^DIE("AF",2,.3611,960)=""
^DIE("AF",2,.3612,960)=""
^DIE("AF",2,.3615,960)=""
^DIE("AF",2,.362,1476)=""
^DIE("AF",2,.36205,420)=""
^DIE("AF",2,.36205,960)=""
^DIE("AF",2,.36205,1476)=""
^DIE("AF",2,.36205,1505)=""
^DIE("AF",2,.36215,420)=""
^DIE("AF",2,.36215,960)=""
^DIE("AF",2,.36215,1476)=""
^DIE("AF",2,.36215,1505)=""
^DIE("AF",2,.36225,960)=""
^DIE("AF",2,.36235,420)=""
^DIE("AF",2,.36235,960)=""
^DIE("AF",2,.36235,1476)=""
^DIE("AF",2,.36235,1505)=""
^DIE("AF",2,.3626,420)=""
^DIE("AF",2,.36265,420)=""
^DIE("AF",2,.3628,960)=""
^DIE("AF",2,.36285,960)=""
^DIE("AF",2,.3629,960)=""
^DIE("AF",2,.36295,420)=""
^DIE("AF",2,.36295,960)=""
^DIE("AF",2,.3721,960)=""
^DIE("AF",2,.3721,1505)=""
^DIE("AF",2,.3731,420)=""
^DIE("AF",2,.525,426)=""
^DIE("AF",2,.525,960)=""
^DIE("AF",2,.525,1476)=""
^DIE("AF",2,.526,426)=""
^DIE("AF",2,.531,1476)=""
^DIE("AF",2,.532,1476)=""
^DIE("AF",2,.533,1476)=""
^DIE("AF",2,.535,1476)=""
^DIE("AF",2,1,508)=""
^DIE("AF",2,2,426)=""
^DIE("AF",2,6,426)=""
^DIE("AF",2,57.4,426)=""
^DIE("AF",2,361,420)=""
^DIE("AF",2,361,960)=""
^DIE("AF",2,361,1476)=""
^DIE("AF",2,391,420)=""
^DIE("AF",2,391,960)=""
^DIE("AF",2,391,1476)=""
^DIE("AF",2,391,1505)=""
^DIE("AF",2,1901,420)=""
^DIE("AF",2,1901,422)=""
^DIE("AF",2,1901,508)=""
^DIE("AF",2,1901,960)=""
^DIE("AF",2,1901,1476)=""
^DIE("AF",2,1901,1505)=""
^DIE("AF",2,11500.02,420)=""
^DIE("AF",2,11500.02,421)=""
^DIE("AF",2,11500.03,420)=""
^DIE("AF",2,11500.03,421)=""
^DIE("AF",2.01,.01,508)=""
^DIE("AF",2.01,1,508)=""
^DIE("AF",2.02,.01,426)=""
^DIE("AF",2.02,.02,426)=""
^DIE("AF",2.0361,.01,420)=""
^DIE("AF",2.0361,.01,960)=""
^DIE("AF",2.0361,.01,1476)=""
^DIE("AF",2.04,.01,1505)=""
^DIE("AF",2.04,2,960)=""
^DIE("AF",2.04,2,1505)=""
^DIE("AF",2.04,3,960)=""
^DIE("AF",2.04,3,1505)=""
^DIE("AF",2.04,4,960)=""
^DIE("AF",2.04,5,960)=""
^DIE("AF",2.04,6,960)=""
^DIE("AF",2.05,.01,420)=""
^DIE("AF",2.05,.02,420)=""
^DIE("AF",2.06,.01,426)=""
^DIE("AF",2.06,.02,426)=""
^DIE("AF",40.8,50,484)=""
^DIE("AF",40.806,.03,484)=""
^DIE("AF",40.806,.04,484)=""
^DIE("AF",40.806,10,484)=""
^DIE("AF",40.807,.02,484)=""
^DIE("AF",40.807,5,484)=""
^DIE("AF",40.807,6,484)=""
^DIE("AF",40.807,7,484)=""
^DIE("AF",40.807,8,484)=""
^DIE("AF",44,.01,485)=""
^DIE("AF",44,1,485)=""
^DIE("AF",44,3.5,485)=""
^DIE("AF",44,8,485)=""
^DIE("AF",44,9,485)=""
^DIE("AF",44,10,485)=""
^DIE("AF",44,24,485)=""
^DIE("AF",44,30,485)=""
^DIE("AF",44,99,485)=""
^DIE("AF",44,1910,485)=""
^DIE("AF",44,1912,485)=""
^DIE("AF",44,1913,485)=""
^DIE("AF",44,1914,485)=""
^DIE("AF",44,1916,485)=""
^DIE("AF",44,1917,485)=""
^DIE("AF",44,1918,485)=""
^DIE("AF",44,1918.5,485)=""
^DIE("AF",44,2000,485)=""
^DIE("AF",44,2000.5,485)=""
^DIE("AF",44,2001,485)=""
^DIE("AF",44,2002,485)=""
^DIE("AF",44,2003,485)=""
^DIE("AF",44,2005,485)=""
^DIE("AF",44,2500,485)=""
^DIE("AF",44,2501,485)=""
^DIE("AF",44,2502,485)=""
^DIE("AF",44,2502.5,485)=""
^DIE("AF",44,2503,485)=""
^DIE("AF",44,2504,485)=""
^DIE("AF",44,2507,485)=""
^DIE("AF",44,2508,485)=""
^DIE("AF",44,2509,485)=""
^DIE("AF",44,2510,485)=""
^DIE("AF",44,2511,485)=""
^DIE("AF",44,2600,485)=""
^DIE("AF",44,2700,485)=""
^DIE("AF",44,2801,485)=""
^DIE("AF",44,2802,485)=""
^DIE("AF",44.03,.01,485)=""
^DIE("AF",44.04,.01,485)=""
^DIE("AF",44.1,.01,485)=""
^DIE("AF",44.1,.02,485)=""
^DIE("AF",44.11,.01,485)=""
^DIE("AF",44.11,.02,485)=""
^DIE("AF",45,2,443)=""
^DIE("AF",45,3,426)=""
^DIE("AF",45,4,443)=""
^DIE("AF",45,5,426)=""
^DIE("AF",45,6,443)=""
^DIE("AF",45,11,443)=""
^DIE("AF",45,20,426)=""
^DIE("AF",45,20,455)=""
^DIE("AF",45,20.1,426)=""
^DIE("AF",45,21.1,426)=""
^DIE("AF",45,21.2,426)=""
^DIE("AF",45,22,426)=""
^DIE("AF",45,23,426)=""
^DIE("AF",45,40,428)=""
^DIE("AF",45,50,429)=""
^DIE("AF",45,50,430)=""
^DIE("AF",45,50,443)=""
^DIE("AF",45,73,426)=""
^DIE("AF",45,74,426)=""
^DIE("AF",45,75,426)=""
^DIE("AF",45,76.1,426)=""
^DIE("AF",45,76.2,426)=""
^DIE("AF",45,77,426)=""
^DIE("AF",45,78,426)=""
^DIE("AF",45,79,432)=""
^DIE("AF",45,79.16,432)=""
^DIE("AF",45,79.17,432)=""
^DIE("AF",45,79.18,432)=""
^DIE("AF",45,79.19,432)=""
^DIE("AF",45,79.201,432)=""
^DIE("AF",45,79.21,432)=""
^DIE("AF",45,79.22,432)=""
^DIE("AF",45,79.23,432)=""
^DIE("AF",45,79.24,432)=""
^DIE("AF",45,79.241,432)=""
^DIE("AF",45,79.242,432)=""
^DIE("AF",45,79.243,432)=""
^DIE("AF",45,300.02,432)=""
^DIE("AF",45,300.03,432)=""
^DIE("AF",45,300.04,432)=""
^DIE("AF",45,300.05,432)=""
^DIE("AF",45,300.06,432)=""
^DIE("AF",45,300.07,432)=""
^DIE("AF",45.01,.01,428)=""
^DIE("AF",45.01,3,428)=""
^DIE("AF",45.01,4,428)=""
^DIE("AF",45.01,5,428)=""
^DIE("AF",45.01,6,428)=""
^DIE("AF",45.01,7,428)=""
^DIE("AF",45.01,8,428)=""
^DIE("AF",45.01,9,428)=""
^DIE("AF",45.01,10,428)=""
^DIE("AF",45.01,11,428)=""
^DIE("AF",45.01,12,428)=""
^DIE("AF",45.01,300.01,428)=""
^DIE("AF",45.02,.01,443)=""
^DIE("AF",45.02,2,429)=""
^DIE("AF",45.02,3,429)=""
^DIE("AF",45.02,3,430)=""
^DIE("AF",45.02,4,429)=""
^DIE("AF",45.02,4,430)=""
^DIE("AF",45.02,5,429)=""
^DIE("AF",45.02,5,430)=""
^DIE("AF",45.02,6,429)=""
^DIE("AF",45.02,6,430)=""
^DIE("AF",45.02,7,429)=""
^DIE("AF",45.02,7,430)=""
^DIE("AF",45.02,8,429)=""
^DIE("AF",45.02,8,430)=""
^DIE("AF",45.02,9,429)=""
^DIE("AF",45.02,9,430)=""
^DIE("AF",45.02,10,429)=""
^DIE("AF",45.02,18,429)=""
^DIE("AF",45.02,18,430)=""
^DIE("AF",45.02,26,429)=""
^DIE("AF",45.02,26,430)=""
^DIE("AF",45.02,27,429)=""
^DIE("AF",45.02,27,430)=""
^DIE("AF",45.02,28,429)=""
^DIE("AF",45.02,28,430)=""
^DIE("AF",45.02,29,429)=""
^DIE("AF",45.02,29,430)=""
^DIE("AF",45.02,30,429)=""
^DIE("AF",45.02,30,430)=""
^DIE("AF",45.02,31,429)=""
^DIE("AF",45.02,31,430)=""
^DIE("AF",45.02,300.02,429)=""
^DIE("AF",45.02,300.02,430)=""
^DIE("AF",45.02,300.03,429)=""
^DIE("AF",45.02,300.03,430)=""
^DIE("AF",45.02,300.04,429)=""
^DIE("AF",45.02,300.04,430)=""
^DIE("AF",45.02,300.05,429)=""
^DIE("AF",45.02,300.05,430)=""
^DIE("AF",45.02,300.06,429)=""
^DIE("AF",45.02,300.06,430)=""
^DIE("AF",45.02,300.07,429)=""
^DIE("AF",45.02,300.07,430)=""
^DIE("AF",45.5,1,454)=""
^DIE("AF",45.5,2,454)=""
^DIE("AF",45.5,3,454)=""
^DIE("AF",45.5,10,454)=""
^DIE("AF",45.51,.01,454)=""
^DIE("AF",46.1,.02,1664)=""
^DIE("AF",46.1,.03,1664)=""
^DIE("AF",46.1,.04,1664)=""
^DIE("AF",46.1,.05,1664)=""
^DIE("AF",46.1,.06,1664)=""
^DIE("AF",46.1,.07,1664)=""
^DIE("AF",46.1,.08,1664)=""
^DIE("AF",46.1,1,1664)=""
^DIE("AF",70,2,1083)=""
^DIE("AF",70.02,2,1083)=""
^DIE("AF",70.02,3,1083)=""
^DIE("AF",70.02,4,1083)=""
^DIE("AF",70.02,50,1083)=""
^DIE("AF",70.03,2,1083)=""
^DIE("AF",70.03,3,1083)=""
^DIE("AF",70.03,4,1083)=""
^DIE("AF",70.03,6,1083)=""
^DIE("AF",70.03,7,1083)=""
^DIE("AF",70.03,8,1083)=""
^DIE("AF",70.03,9,1083)=""
^DIE("AF",70.03,9.5,1083)=""
^DIE("AF",70.03,11,1083)=""
^DIE("AF",70.03,14,1083)=""
^DIE("AF",70.03,18,1083)=""
^DIE("AF",70.03,19,1083)=""
^DIE("AF",70.03,21,1083)=""
^DIE("AF",70.03,22,1083)=""
^DIE("AF",70.03,26,1083)=""
^DIE("AF",70.03,50,1083)=""
^DIE("AF",70.03,75,1083)=""
^DIE("AF",70.03,100,1083)=""
^DIE("AF",70.03,125,1083)=""
^DIE("AF",70.03,500,1083)=""
^DIE("AF",70.04,2,1083)=""
^DIE("AF",70.05,2,1083)=""
^DIE("AF",70.05,3,1083)=""
^DIE("AF",70.07,2,1083)=""
^DIE("AF",70.07,3,1083)=""
^DIE("AF",70.07,4,1083)=""
^DIE("AF",70.1,.01,1083)=""
^DIE("AF",74,5,1069)=""
^DIE("AF",74,5,1073)=""
^DIE("AF",74,6,1069)=""
^DIE("AF",74,7,1069)=""
^DIE("AF",74,7,1073)=""
^DIE("AF",74,8,1069)=""
^DIE("AF",74,9,1069)=""
^DIE("AF",74,9,1073)=""
^DIE("AF",74,10,1069)=""
^DIE("AF",74,10,1073)=""
^DIE("AF",74,11,1069)=""
^DIE("AF",74,17,1069)=""
^DIE("AF",74,17,1073)=""
^DIE("AF",74,25,1069)=""
^DIE("AF",74,25,1073)=""
^DIE("AF",74,100,1069)=""
^DIE("AF",74,100,1073)=""
^DIE("AF",74,200,1069)=""
^DIE("AF",74,300,1069)=""
^DIE("AF",74,400,1069)=""
^DIE("AF",74.01,2,1069)=""
^DIE("AF",74.01,2,1073)=""
^DIE("AF",74.01,3,1069)=""
^DIE("AF",74.01,3,1073)=""
^DIE("AF",74.02,.01,1069)=""
^DIE("AF",74.03,.01,1069)=""
^DIE("AF",74.04,.01,1069)=""
^DIE("AF",75.1,1.1,1086)=""
^DIE("AF",75.1,1.1,1087)=""
^DIE("AF",75.1,2,1086)=""
^DIE("AF",75.1,2,1087)=""
^DIE("AF",75.1,3,1086)=""
^DIE("AF",75.1,3,1087)=""
^DIE("AF",75.1,4,1086)=""
^DIE("AF",75.1,4,1087)=""
^DIE("AF",75.1,5,1086)=""
^DIE("AF",75.1,5,1087)=""
^DIE("AF",75.1,6,1086)=""
^DIE("AF",75.1,6,1087)=""
^DIE("AF",75.1,8,1086)=""
^DIE("AF",75.1,8,1087)=""
^DIE("AF",75.1,9,1087)=""
^DIE("AF",75.1,9.5,1087)=""
^DIE("AF",75.1,12,1086)=""
^DIE("AF",75.1,12,1087)=""
^DIE("AF",75.1,13,1086)=""
^DIE("AF",75.1,13,1087)=""
^DIE("AF",75.1,14,1086)=""
^DIE("AF",75.1,14,1087)=""
^DIE("AF",75.1,17,1087)=""
^DIE("AF",75.1,18,1086)=""
^DIE("AF",75.1,18,1087)=""
^DIE("AF",75.1,19,1086)=""
^DIE("AF",75.1,19,1087)=""
^DIE("AF",75.1,20,1086)=""
^DIE("AF",75.1,20,1087)=""
^DIE("AF",75.1,21,1086)=""
^DIE("AF",75.1,21,1087)=""
^DIE("AF",75.1,22,1086)=""
^DIE("AF",75.1,22,1087)=""
^DIE("AF",75.1,24,1086)=""
^DIE("AF",75.1,24,1087)=""
^DIE("AF",75.1,26,1086)=""
^DIE("AF",75.1,26,1087)=""
^DIE("AF",75.1,75,1086)=""
^DIE("AF",75.1,75,1087)=""
^DIE("AF",75.1,125,1086)=""
^DIE("AF",75.1,125,1087)=""
^DIE("AF",75.1,400,1087)=""
^DIE("AF",75.11,.01,1087)=""
^DIE("AF",75.1125,.01,1086)=""
^DIE("AF",75.1125,.01,1087)=""
^DIE("AF",75.12,2,1086)=""
^DIE("AF",75.12,2,1087)=""
^DIE("AF",75.12,3,1086)=""
^DIE("AF",75.12,3,1087)=""
^DIE("AF",161,.5,1015)=""
^DIE("AF",161,.6,1015)=""
^DIE("AF",161,.65,1015)=""
^DIE("AF",161,.7,1015)=""
^DIE("AF",161,1,1015)=""
^DIE("AF",161.01,.01,1015)=""
^DIE("AF",161.01,.02,1015)=""
^DIE("AF",161.01,.021,1015)=""
^DIE("AF",161.01,.03,1015)=""
^DIE("AF",161.01,.04,1015)=""
^DIE("AF",161.01,.065,1015)=""
^DIE("AF",161.01,.07,1015)=""
^DIE("AF",161.01,.08,1015)=""
^DIE("AF",161.01,.085,1015)=""
^DIE("AF",161.01,.086,1015)=""
^DIE("AF",161.01,.095,1015)=""
^DIE("AF",161.01,.096,1015)=""
^DIE("AF",161.01,.097,1015)=""
^DIE("AF",161.01,1,1015)=""
^DIE("AF",161.01,2,1015)=""
^DIE("AF",161.01,100,1015)=""
^DIE("AF",161.01,101,1015)=""
^DIE("AF",161.06,.01,1015)=""
^DIE("AF",161.2,.01,1055)=""
^DIE("AF",161.2,.05,1055)=""
^DIE("AF",161.2,1,1055)=""
^DIE("AF",161.2,2,1055)=""
^DIE("AF",161.2,2.5,1055)=""
^DIE("AF",161.2,3,1055)=""
^DIE("AF",161.2,4,1055)=""
^DIE("AF",161.2,5,1055)=""
^DIE("AF",161.2,5.18,1055)=""
^DIE("AF",161.2,5.5,1055)=""
^DIE("AF",161.2,6,1055)=""
^DIE("AF",161.2,7,1055)=""
^DIE("AF",161.2,8,1055)=""
^DIE("AF",161.2,14,1055)=""
^DIE("AF",161.2,22,1055)=""
^DIE("AF",161.2,24,1055)=""
^DIE("AF",161.2,30.01,1055)=""
^DIE("AF",161.2,30.02,1055)=""
^DIE("AF",161.2,30.03,1055)=""
^DIE("AF",161.2,30.04,1055)=""
^DIE("AF",161.2,30.05,1055)=""
^DIE("AF",161.2,30.06,1055)=""
^DIE("AF",161.2,41.01,1055)=""
^DIE("AF",190,3,877)=""
^DIE("AF",190,5,877)=""
^DIE("AF",190,6,877)=""
^DIE("AF",190,7,877)=""
^DIE("AF",190,11,882)=""
^DIE("AF",190,12,877)=""
^DIE("AF",190,50,882)=""
^DIE("AF",190,75,882)=""
^DIE("AF",190,101,882)=""
^DIE("AF",190,102,882)=""
^DIE("AF",190,102,884)=""
^DIE("AF",190,105,877)=""
^DIE("AF",190,105,882)=""
^DIE("AF",190,106,877)=""
^DIE("AF",190,106,882)=""
^DIE("AF",190,107,877)=""
^DIE("AF",190,107,882)=""
^DIE("AF",190,108,877)=""
^DIE("AF",190,108,882)=""
^DIE("AF",190,114,877)=""
^DIE("AF",190,114,882)=""
^DIE("AF",190,115,877)=""
^DIE("AF",190,115,882)=""
^DIE("AF",190.1,2,878)=""
^DIE("AF",190.1,3,878)=""
^DIE("AF",190.1,4,878)=""
^DIE("AF",190.1,5,878)=""
^DIE("AF",190.1,6,878)=""
^DIE("AF",190.1,6,883)=""
^DIE("AF",190.1,7,878)=""
^DIE("AF",190.1,7,883)=""
^DIE("AF",190.1,8,878)=""
^DIE("AF",190.1,8,883)=""
^DIE("AF",190.1,10,878)=""
^DIE("AF",190.1,11,878)=""
^DIE("AF",190.1,12,878)=""
^DIE("AF",190.1,14,878)=""
^DIE("AF",190.1,75,878)=""
^DIE("AF",190.3,2,884)=""
^DIE("AF",190.3,3,884)=""
^DIE("AF",190.3,4,884)=""
^DIE("AF",190.3,5,884)=""
^DIE("AF",190.3,6,884)=""
^DIE("AF",190.3,7,884)=""
^DIE("AF",190.3,8,884)=""
^DIE("AF",190.3,9,882)=""
^DIE("AF",190.3,10,882)=""
^DIE("AF",190.3,14,884)=""
^DIE("AF",190.3,15,884)=""
^DIE("AF",194.2,.01,892)=""
^DIE("AF",194.2,2,892)=""
^DIE("AF",194.2,3,892)=""
^DIE("AF",194.2,4,892)=""
^DIE("AF",194.2,5,892)=""
^DIE("AF",194.2,6,892)=""
^DIE("AF",194.2,7,892)=""
^DIE("AF",194.2,8,892)=""
^DIE("AF",194.2,10,892)=""
^DIE("AF",194.2,11,892)=""
^DIE("AF",194.2,12,892)=""
^DIE("AF",194.2,100,892)=""
^DIE("AF",194.21,.01,892)=""
^DIE("AF",195.9,8,878)=""
^DIE("AF",195.9,9,878)=""
^DIE("AF",213.2,1,988)=""
^DIE("AF",213.2,2,988)=""
^DIE("AF",213.2,3,988)=""
^DIE("AF",213.2,4,988)=""
^DIE("AF",213.2,5,988)=""
^DIE("AF",213.2,6,988)=""
^DIE("AF",213.2,7,988)=""
^DIE("AF",213.2,8,988)=""
^DIE("AF",213.2,9,988)=""
^DIE("AF",213.2,10,988)=""
^DIE("AF",213.2,11,988)=""
^DIE("AF",213.2,12,988)=""
^DIE("AF",213.2,13,988)=""
^DIE("AF",213.2,14,988)=""
^DIE("AF",213.2,15,988)=""
^DIE("AF",213.2,16,988)=""
^DIE("AF",213.2,17,988)=""
^DIE("AF",213.2,18,988)=""
^DIE("AF",213.2,19,988)=""
^DIE("AF",213.2,20,988)=""
^DIE("AF",213.2,43,988)=""
^DIE("AF",340,.05,799)=""
^DIE("AF",354,.03,517)=""
^DIE("AF",354,.04,517)=""
^DIE("AF",354,.05,517)=""
^DIE("AF",354.1,.02,516)=""
^DIE("AF",354.1,.03,516)=""
^DIE("AF",354.1,.04,516)=""
^DIE("AF",354.1,.05,516)=""
^DIE("AF",354.1,.06,516)=""
^DIE("AF",354.1,.07,516)=""
^DIE("AF",354.1,.08,516)=""
^DIE("AF",354.1,.1,516)=""
^DIE("AF",354.1,.1,518)=""
^DIE("AF",354.1,.11,516)=""
^DIE("AF",354.1,.15,516)=""
^DIE("AF",354.1,.15,518)=""
^DIE("AF",355.93,.05,515)=""
^DIE("AF",355.93,.05,577)=""
^DIE("AF",355.93,.06,515)=""
^DIE("AF",355.93,.06,577)=""
^DIE("AF",355.93,.07,515)=""
^DIE("AF",355.93,.07,577)=""
^DIE("AF",355.93,.08,515)=""
^DIE("AF",355.93,.08,577)=""
^DIE("AF",355.93,.1,515)=""
^DIE("AF",355.93,.1,577)=""
^DIE("AF",357.2,.01,528)=""
^DIE("AF",357.2,.02,528)=""
^DIE("AF",357.2,.04,528)=""
^DIE("AF",357.2,.05,528)=""
^DIE("AF",357.2,.06,528)=""
^DIE("AF",357.2,.07,528)=""
^DIE("AF",357.2,.08,528)=""
^DIE("AF",357.2,.09,528)=""
^DIE("AF",357.2,.11,528)=""
^DIE("AF",357.2,.12,528)=""
^DIE("AF",357.2,.13,528)=""
^DIE("AF",357.2,.15,528)=""
^DIE("AF",357.2,.16,528)=""
^DIE("AF",357.2,.17,528)=""
^DIE("AF",357.2,.18,528)=""
^DIE("AF",357.2,.19,528)=""
^DIE("AF",357.2,1,528)=""
^DIE("AF",357.2,2,528)=""
^DIE("AF",357.21,.01,528)=""
^DIE("AF",357.21,.02,528)=""
^DIE("AF",357.21,.03,528)=""
^DIE("AF",357.21,.04,528)=""
^DIE("AF",357.22,.01,528)=""
^DIE("AF",357.22,.02,528)=""
^DIE("AF",357.22,.03,528)=""
^DIE("AF",357.22,.04,528)=""
^DIE("AF",357.22,.05,528)=""
^DIE("AF",357.22,.06,528)=""
^DIE("AF",357.22,.07,528)=""
^DIE("AF",357.22,.08,528)=""
^DIE("AF",357.22,.09,528)=""
^DIE("AF",357.22,.1,528)=""
^DIE("AF",357.5,.01,522)=""
^DIE("AF",357.5,.02,522)=""
^DIE("AF",357.5,.03,522)=""
^DIE("AF",357.5,.04,522)=""
^DIE("AF",357.5,.05,522)=""
^DIE("AF",357.5,.06,522)=""
^DIE("AF",357.5,.07,522)=""
^DIE("AF",357.5,.1,522)=""
^DIE("AF",357.5,.11,522)=""
^DIE("AF",357.5,.12,522)=""
^DIE("AF",357.5,.13,522)=""
^DIE("AF",357.5,.14,522)=""
^DIE("AF",357.5,2,522)=""
^DIE("AF",357.52,.01,522)=""
^DIE("AF",357.52,.03,522)=""
^DIE("AF",357.52,.04,522)=""
^DIE("AF",357.52,.05,522)=""
^DIE("AF",357.52,.06,522)=""
^DIE("AF",357.52,.07,522)=""
^DIE("AF",357.52,.08,522)=""
^DIE("AF",357.52,.09,522)=""
^DIE("AF",357.93,.01,904)=""
^DIE("AF",357.93,.02,904)=""
^DIE("AF",357.93,.03,904)=""
^DIE("AF",357.93,.04,904)=""
^DIE("AF",357.93,.06,904)=""
^DIE("AF",357.93,.07,904)=""
^DIE("AF",357.93,.08,904)=""
^DIE("AF",357.93,.09,904)=""
^DIE("AF",357.93,1,904)=""
^DIE("AF",357.931,.02,904)=""
^DIE("AF",357.931,.03,904)=""
^DIE("AF",357.931,.04,904)=""
^DIE("AF",357.931,.05,904)=""
^DIE("AF",357.931,.06,904)=""
^DIE("AF",357.931,.07,904)=""
^DIE("AF",357.931,.08,904)=""
^DIE("AF",357.931,.09,904)=""
^DIE("AF",357.96,.02,1477)=""
^DIE("AF",357.96,.03,1477)=""
^DIE("AF",357.96,.04,1477)=""
^DIE("AF",357.96,.05,1477)=""
^DIE("AF",357.96,.06,1478)=""
^DIE("AF",357.96,.07,1477)=""
^DIE("AF",357.96,.08,1477)=""
^DIE("AF",357.96,.09,1477)=""
^DIE("AF",357.96,.1,1477)=""
^DIE("AF",357.96,.11,1477)=""
^DIE("AF",357.96,.11,1478)=""
^DIE("AF",357.96,.12,1478)=""
^DIE("AF",357.96,.14,1477)=""
^DIE("AF",393,.02,460)=""
^DIE("AF",393,.02,461)=""
^DIE("AF",393,.03,460)=""
^DIE("AF",393,.03,461)=""
^DIE("AF",393,.04,460)=""
^DIE("AF",393,.04,461)=""
^DIE("AF",393,.05,460)=""
^DIE("AF",393,.05,461)=""
^DIE("AF",393,.06,460)=""
^DIE("AF",393,.06,461)=""
^DIE("AF",393,.07,460)=""
^DIE("AF",393,.07,461)=""
^DIE("AF",393,.08,460)=""
^DIE("AF",393,.08,461)=""
^DIE("AF",393,.09,460)=""
^DIE("AF",393,.09,461)=""
^DIE("AF",393,.1,460)=""
^DIE("AF",393,.1,461)=""
^DIE("AF",393,.11,460)=""
^DIE("AF",393,.11,461)=""
^DIE("AF",393,.12,460)=""
^DIE("AF",393,.12,461)=""
^DIE("AF",393,10.01,460)=""
^DIE("AF",393,10.01,461)=""
^DIE("AF",393,10.02,460)=""
^DIE("AF",393,10.02,461)=""
^DIE("AF",393,10.03,460)=""
^DIE("AF",393,10.03,461)=""
^DIE("AF",393,10.04,460)=""
^DIE("AF",393,10.04,461)=""
^DIE("AF",393,10.05,460)=""
^DIE("AF",393,10.05,461)=""
^DIE("AF",393,10.06,460)=""
^DIE("AF",393,10.06,461)=""
^DIE("AF",393,10.07,460)=""
^DIE("AF",393,10.07,461)=""
^DIE("AF",393,10.08,460)=""
^DIE("AF",393,10.08,461)=""
^DIE("AF",393,20.01,460)=""
^DIE("AF",393,20.01,461)=""
^DIE("AF",396,4.5,962)=""
^DIE("AF",396,4.8,962)=""
^DIE("AF",396,4.9,962)=""
^DIE("AF",396,5.5,962)=""
^DIE("AF",396,5.8,962)=""
^DIE("AF",396,5.9,962)=""
^DIE("AF",396,6.5,962)=""
^DIE("AF",396,6.8,962)=""
^DIE("AF",396,6.9,962)=""
^DIE("AF",396,8,962)=""
^DIE("AF",396,8.5,962)=""
^DIE("AF",396,8.7,962)=""
^DIE("AF",396,10,962)=""
^DIE("AF",396,10.5,962)=""
^DIE("AF",396,10.7,962)=""
^DIE("AF",396,12,962)=""
^DIE("AF",396,12.5,962)=""
^DIE("AF",396,12.7,962)=""
^DIE("AF",396,14,962)=""
^DIE("AF",396,14.5,962)=""
^DIE("AF",396,14.7,962)=""
^DIE("AF",396,16,962)=""
^DIE("AF",396,16.5,962)=""
^DIE("AF",396,16.7,962)=""
^DIE("AF",396,17.4,962)=""
^DIE("AF",396,17.8,962)=""
^DIE("AF",396,17.9,962)=""
^DIE("AF",396,19,962)=""
^DIE("AF",396,19.5,962)=""
^DIE("AF",396,19.7,962)=""
^DIE("AF",396,21,962)=""
^DIE("AF",396,21.5,962)=""
^DIE("AF",396,21.7,962)=""
^DIE("AF",399,.03,511)=""
^DIE("AF",399,.07,574)=""
^DIE("AF",399,.09,510)=""
^DIE("AF",399,.09,511)=""
^DIE("AF",399,.18,508)=""
^DIE("AF",399,.19,512)=""
^DIE("AF",399,.19,513)=""
^DIE("AF",399,.19,574)=""
^DIE("AF",399,.21,574)=""
^DIE("AF",399,.22,512)=""
^DIE("AF",399,.22,513)=""
^DIE("AF",399,.24,512)=""
^DIE("AF",399,.24,513)=""
^DIE("AF",399,.25,512)=""
^DIE("AF",399,.25,513)=""
^DIE("AF",399,.26,512)=""
^DIE("AF",399,.26,513)=""
^DIE("AF",399,.27,512)=""
^DIE("AF",399,.27,513)=""
^DIE("AF",399,9,506)=""
^DIE("AF",399,12,506)=""
^DIE("AF",399,14,506)=""
^DIE("AF",399,21,506)=""
^DIE("AF",399,24,506)=""
^DIE("AF",399,25,506)=""
^DIE("AF",399,27,515)=""
^DIE("AF",399,27,577)=""
^DIE("AF",399,28,515)=""
^DIE("AF",399,28,577)=""
^DIE("AF",399,40,510)=""
^DIE("AF",399,40,511)=""
^DIE("AF",399,41,510)=""
^DIE("AF",399,41,511)=""
^DIE("AF",399,42,512)=""
^DIE("AF",399,42,513)=""
^DIE("AF",399,43,511)=""
^DIE("AF",399,43,513)=""
^DIE("AF",399,44,506)=""
^DIE("AF",399,47,510)=""
^DIE("AF",399,47,511)=""
^DIE("AF",399,48,510)=""
^DIE("AF",399,104,574)=""
^DIE("AF",399,105,574)=""
^DIE("AF",399,106,574)=""
^DIE("AF",399,107,574)=""
^DIE("AF",399,108,574)=""
^DIE("AF",399,109,574)=""
^DIE("AF",399,111,574)=""
^DIE("AF",399,112,574)=""
^DIE("AF",399,113,574)=""
^DIE("AF",399,114,574)=""
^DIE("AF",399,121,574)=""
^DIE("AF",399,122,574)=""
^DIE("AF",399,123,574)=""
^DIE("AF",399,124,574)=""
^DIE("AF",399,128,574)=""
^DIE("AF",399,129,574)=""
^DIE("AF",399,130,574)=""
^DIE("AF",399,151,512)=""
^DIE("AF",399,151,513)=""
^DIE("AF",399,152,512)=""
^DIE("AF",399,152,513)=""
^DIE("AF",399,153,512)=""
^DIE("AF",399,153,513)=""
^DIE("AF",399,155,512)=""
^DIE("AF",399,155,513)=""
^DIE("AF",399,156,512)=""
^DIE("AF",399,156,513)=""
^DIE("AF",399,157,512)=""
^DIE("AF",399,157,513)=""
^DIE("AF",399,158,510)=""
^DIE("AF",399,159,510)=""
^DIE("AF",399,159,577)=""
^DIE("AF",399,159.5,510)=""
^DIE("AF",399,160,510)=""
^DIE("AF",399,161,512)=""
^DIE("AF",399,162,510)=""
^DIE("AF",399,162,513)=""
^DIE("AF",399,163,514)=""
^DIE("AF",399,163,515)=""
^DIE("AF",399,163,577)=""
^DIE("AF",399,165,512)=""
^DIE("AF",399,166,515)=""
^DIE("AF",399,167,515)=""
^DIE("AF",399,202,512)=""
^DIE("AF",399,202,513)=""
^DIE("AF",399,203,512)=""
^DIE("AF",399,203,513)=""
^DIE("AF",399,207,514)=""
^DIE("AF",399,208,514)=""
^DIE("AF",399,210,512)=""
^DIE("AF",399,210,513)=""
^DIE("AF",399,213,514)=""
^DIE("AF",399,215,515)=""
^DIE("AF",399,215,577)=""
^DIE("AF",399,216,512)=""
^DIE("AF",399,216,513)=""
^DIE("AF",399,217,512)=""
^DIE("AF",399,217,513)=""
^DIE("AF",399,218,512)=""
^DIE("AF",399,218,513)=""
^DIE("AF",399,219,512)=""
^DIE("AF",399,219,513)=""
^DIE("AF",399,220,512)=""
^DIE("AF",399,220,513)=""
^DIE("AF",399,221,512)=""
^DIE("AF",399,222,515)=""
^DIE("AF",399,222,577)=""
^DIE("AF",399,230,515)=""
^DIE("AF",399,230,577)=""
^DIE("AF",399,231,515)=""
^DIE("AF",399,231,577)=""
^DIE("AF",399,232,515)=""
^DIE("AF",399,232,577)=""
^DIE("AF",399,233,515)=""
^DIE("AF",399,233,577)=""
^DIE("AF",399,234,515)=""
^DIE("AF",399,235,515)=""
^DIE("AF",399,236,515)=""
^DIE("AF",399,237,515)=""
^DIE("AF",399,238,515)=""
^DIE("AF",399,243,512)=""
^DIE("AF",399,243,513)=""
^DIE("AF",399,244,577)=""
^DIE("AF",399,401,515)=""
^DIE("AF",399,402,577)=""
^DIE("AF",399,453,515)=""
^DIE("AF",399,453,577)=""
^DIE("AF",399,454,515)=""
^DIE("AF",399,454,577)=""
^DIE("AF",399,455,515)=""
^DIE("AF",399,455,577)=""
^DIE("AF",399,459,515)=""
^DIE("AF",399.0222,.01,515)=""
^DIE("AF",399.0222,.01,577)=""
^DIE("AF",399.0222,.02,515)=""
^DIE("AF",399.0222,.02,577)=""
^DIE("AF",399.0222,.03,515)=""
^DIE("AF",399.0222,.03,577)=""
^DIE("AF",399.0222,.05,515)=""
^DIE("AF",399.0222,.05,577)=""
^DIE("AF",399.0222,.06,515)=""
^DIE("AF",399.0222,.06,577)=""
^DIE("AF",399.0222,.07,515)=""
^DIE("AF",399.0222,.07,577)=""
^DIE("AF",399.0222,.12,515)=""
^DIE("AF",399.0222,.12,577)=""
^DIE("AF",399.0222,.13,515)=""
^DIE("AF",399.0222,.13,577)=""
^DIE("AF",399.0222,.14,515)=""
^DIE("AF",399.0222,.14,577)=""
^DIE("AF",399.0222,.15,577)=""
^DIE("AF",399.04,.01,510)=""
^DIE("AF",399.04,.01,511)=""
^DIE("AF",399.041,.01,510)=""
^DIE("AF",399.041,.01,511)=""
^DIE("AF",399.041,.02,510)=""
^DIE("AF",399.041,.02,511)=""
^DIE("AF",399.041,.03,510)=""
^DIE("AF",399.041,.03,511)=""
^DIE("AF",399.041,.04,510)=""
^DIE("AF",399.041,.04,511)=""
^DIE("AF",399.042,.01,512)=""
^DIE("AF",399.042,.01,513)=""
^DIE("AF",399.042,.02,512)=""
^DIE("AF",399.042,.02,513)=""
^DIE("AF",399.042,.03,512)=""
^DIE("AF",399.042,.03,513)=""
^DIE("AF",399.042,.04,512)=""
^DIE("AF",399.042,.04,513)=""
^DIE("AF",399.042,.05,512)=""
^DIE("AF",399.042,.05,513)=""
^DIE("AF",399.042,.06,512)=""
^DIE("AF",399.042,.06,513)=""
^DIE("AF",399.042,.07,512)=""
^DIE("AF",399.042,.07,513)=""
^DIE("AF",399.042,.09,512)=""
^DIE("AF",399.042,.09,513)=""
^DIE("AF",399.042,.1,512)=""
^DIE("AF",399.042,.1,513)=""
^DIE("AF",399.042,.12,512)=""
^DIE("AF",399.042,.12,513)=""
^DIE("AF",399.042,.15,513)=""
^DIE("AF",399.043,.01,511)=""
^DIE("AF",399.043,.01,513)=""
^DIE("AF",399.044,.01,506)=""
^DIE("AF",399.047,.01,510)=""
^DIE("AF",399.047,.01,511)=""
^DIE("AF",399.047,.02,510)=""
^DIE("AF",399.047,.02,511)=""
^DIE("AF",399.048,.01,510)=""
^DIE("AF",399.048,.02,510)=""
^DIE("AF",399.048,.03,510)=""
^DIE("AF",405,.01,446)=""
^DIE("AF",405,.01,447)=""
^DIE("AF",405,.01,448)=""
^DIE("AF",405,.01,449)=""
^DIE("AF",405,.01,450)=""
^DIE("AF",405,.01,451)=""
^DIE("AF",405,.01,452)=""
^DIE("AF",405,.04,446)=""
^DIE("AF",405,.04,447)=""
^DIE("AF",405,.04,448)=""
^DIE("AF",405,.04,449)=""
^DIE("AF",405,.04,450)=""
^DIE("AF",405,.04,451)=""
^DIE("AF",405,.05,446)=""
^DIE("AF",405,.05,447)=""
^DIE("AF",405,.05,448)=""
^DIE("AF",405,.05,450)=""
^DIE("AF",405,.06,446)=""
^DIE("AF",405,.06,447)=""
^DIE("AF",405,.06,450)=""
^DIE("AF",405,.06,452)=""
^DIE("AF",405,.07,446)=""
^DIE("AF",405,.07,447)=""
^DIE("AF",405,.07,450)=""
^DIE("AF",405,.07,452)=""
^DIE("AF",405,.08,451)=""
^DIE("AF",405,.09,451)=""
^DIE("AF",405,.1,446)=""
^DIE("AF",405,.1,452)=""
^DIE("AF",405,.11,446)=""
^DIE("AF",405,.11,452)=""
^DIE("AF",405,.12,446)=""
^DIE("AF",405,.12,452)=""
^DIE("AF",405,.13,447)=""
^DIE("AF",405,.19,451)=""
^DIE("AF",405,30.01,450)=""
^DIE("AF",405,30.02,450)=""
^DIE("AF",405,30.03,449)=""
^DIE("AF",405,41,446)=""
^DIE("AF",405,41,452)=""
^DIE("AF",405,54,446)=""
^DIE("AF",405,99,451)=""
^DIE("AF",405,102,446)=""
^DIE("AF",405,102,447)=""
^DIE("AF",405,102,448)=""
^DIE("AF",405,102,449)=""
^DIE("AF",405,102,450)=""
^DIE("AF",405,102,451)=""
^DIE("AF",405,102,452)=""
^DIE("AF",405,103,446)=""
^DIE("AF",405,103,447)=""
^DIE("AF",405,103,448)=""
^DIE("AF",405,103,449)=""
^DIE("AF",405,103,450)=""
^DIE("AF",405,103,451)=""
^DIE("AF",405,103,452)=""
^DIE("AF",405,11500.01,446)=""
^DIE("AF",405,11500.01,452)=""
^DIE("AF",405,11500.02,448)=""
^DIE("AF",405,11500.03,448)=""
^DIE("AF",405,11500.05,448)=""
^DIE("AF",405,11500.06,448)=""
^DIE("AF",405.099,.01,451)=""
^DIE("AF",408.21,.08,469)=""
^DIE("AF",408.21,.08,475)=""
^DIE("AF",408.21,.09,469)=""
^DIE("AF",408.21,.09,475)=""
^DIE("AF",408.21,.1,469)=""
^DIE("AF",408.21,.1,475)=""
^DIE("AF",408.21,.11,469)=""
^DIE("AF",408.21,.11,475)=""
^DIE("AF",408.21,.12,469)=""
^DIE("AF",408.21,.12,475)=""
^DIE("AF",408.21,.13,469)=""
^DIE("AF",408.21,.13,475)=""
^DIE("AF",408.21,.14,469)=""
^DIE("AF",408.21,.14,475)=""
^DIE("AF",408.21,.15,469)=""
^DIE("AF",408.21,.15,475)=""
^DIE("AF",408.21,.16,469)=""
^DIE("AF",408.21,.16,475)=""
^DIE("AF",408.21,.17,469)=""
^DIE("AF",408.21,.17,475)=""
^DIE("AF",408.21,1.02,474)=""
^DIE("AF",408.21,1.03,474)=""
^DIE("AF",408.21,1.12,474)=""
^DIE("AF",408.21,2.01,476)=""
^DIE("AF",408.21,2.02,476)=""
^DIE("AF",408.21,2.03,476)=""
^DIE("AF",408.21,2.04,476)=""
^DIE("AF",408.21,2.05,476)=""
^DIE("AF",408.22,.05,467)=""
^DIE("AF",408.22,.06,467)=""
^DIE("AF",408.22,.06,468)=""
^DIE("AF",408.22,.07,467)=""
^DIE("AF",408.22,.08,467)=""
^DIE("AF",408.22,.09,468)=""
^DIE("AF",408.22,.1,468)=""
^DIE("AF",408.22,.11,468)=""
^DIE("AF",408.22,.12,468)=""
^DIE("AF",408.22,.18,468)=""
^DIE("AF",408.22,.19,468)=""
^DIE("AF",408.31,.03,471)=""
^DIE("AF",408.31,.04,471)=""
^DIE("AF",408.31,.05,471)=""
^DIE("AF",408.31,.06,471)=""
^DIE("AF",408.31,.07,471)=""
^DIE("AF",408.31,.11,471)=""
^DIE("AF",408.31,.12,471)=""
^DIE("AF",408.31,.13,471)=""
^DIE("AF",408.31,.14,471)=""
^DIE("AF",408.31,.15,471)=""
^DIE("AF",408.31,.16,471)=""
^DIE("AF",408.31,.18,471)=""
^DIE("AF",408.31,.2,471)=""
^DIE("AF",408.31,.21,471)=""
^DIE("AF",408.31,.22,471)=""
^DIE("AF",408.31,.27,471)=""
^DIE("AF",408.31,2.01,471)=""
^DIE("AF",408.31,2.04,471)=""
^DIE("AF",408.31,2.05,471)=""
^DIE("AF",408.31,2.09,471)=""
^DIE("AF",408.31,50,471)=""
^DIE("AF",408.311,.01,471)=""
^DIE("AF",409.5,10,490)=""
^DIE("AF",409.5,10,491)=""
^DIE("AF",409.51,2,490)=""
^DIE("AF",409.51,2,491)=""
^DIE("AF",409.51,3,490)=""
^DIE("AF",409.51,3,491)=""
^DIE("AF",409.51,4,490)=""
^DIE("AF",409.51,4,491)=""
^DIE("AF",409.51,5,490)=""
^DIE("AF",409.51,5,491)=""
^DIE("AF",409.51,6,490)=""
^DIE("AF",409.51,7,491)=""
^DIE("AF",409.51,11,490)=""
^DIE("AF",409.51,21,490)=""
^DIE("AF",409.51,21,491)=""
^DIE("AF",409.51,22,490)=""
^DIE("AF",409.51,22,491)=""
^DIE("AF",409.51,23,490)=""
^DIE("AF",409.51,23,491)=""
^DIE("AF",409.51,24,490)=""
^DIE("AF",409.51,24,491)=""
^DIE("AF",409.51,25,490)=""
^DIE("AF",409.51,25,491)=""
^DIE("AF",409.68,.02,493)=""
^DIE("AF",409.68,.03,493)=""
^DIE("AF",409.68,.04,493)=""
^DIE("AF",409.68,.05,493)=""
^DIE("AF",409.68,.06,493)=""
^DIE("AF",409.68,.08,493)=""
^DIE("AF",409.68,.09,493)=""
^DIE("AF",409.68,.1,493)=""
^DIE("AF",409.68,.1,1540)=""
^DIE("AF",409.68,.11,493)=""
^DIE("AF",409.68,.12,493)=""
^DIE("AF",409.68,.13,493)=""
^DIE("AF",409.68,101,1540)=""
^DIE("AF",409.68,102,1540)=""
^DIE("AF",409.68,103,493)=""
^DIE("AF",409.68,104,493)=""
^DIE("AF",409.68,201,1540)=""
^DIE("AF",409.68,202,1540)=""
^DIE("AF",410,1,607)=""
^DIE("AF",410,1,609)=""
^DIE("AF",410,1,612)=""
^DIE("AF",410,1,616)=""
^DIE("AF",410,5,607)=""
^DIE("AF",410,5,609)=""
^DIE("AF",410,5,612)=""
^DIE("AF",410,5,616)=""
^DIE("AF",410,6.3,607)=""
^DIE("AF",410,6.3,609)=""
^DIE("AF",410,6.3,612)=""
^DIE("AF",410,6.3,616)=""
^DIE("AF",410,7,607)=""
^DIE("AF",410,7,609)=""
^DIE("AF",410,7,612)=""
^DIE("AF",410,7,616)=""
^DIE("AF",410,7.5,607)=""
^DIE("AF",410,7.5,609)=""
^DIE("AF",410,7.5,612)=""
^DIE("AF",410,7.5,616)=""
^DIE("AF",410,8,607)=""
^DIE("AF",410,8,609)=""
^DIE("AF",410,8,612)=""
^DIE("AF",410,8,616)=""
^DIE("AF",410,9,607)=""
^DIE("AF",410,9,609)=""
^DIE("AF",410,9,612)=""
^DIE("AF",410,9,616)=""
^DIE("AF",410,10,607)=""
^DIE("AF",410,10,609)=""
^DIE("AF",410,10,612)=""
^DIE("AF",410,10,616)=""
^DIE("AF",410,11,607)=""
^DIE("AF",410,11,609)=""
^DIE("AF",410,11,612)=""
^DIE("AF",410,11,616)=""
^DIE("AF",410,11.1,607)=""
^DIE("AF",410,11.1,609)=""
^DIE("AF",410,11.1,612)=""
^DIE("AF",410,11.1,616)=""
^DIE("AF",410,11.2,607)=""
^DIE("AF",410,11.2,609)=""
^DIE("AF",410,11.2,612)=""
^DIE("AF",410,11.2,616)=""
^DIE("AF",410,11.3,607)=""
^DIE("AF",410,11.3,609)=""
^DIE("AF",410,11.3,612)=""
^DIE("AF",410,11.3,616)=""
^DIE("AF",410,11.4,607)=""
^DIE("AF",410,11.4,609)=""
^DIE("AF",410,11.4,612)=""
^DIE("AF",410,11.4,616)=""
^DIE("AF",410,11.5,607)=""
^DIE("AF",410,11.5,609)=""
^DIE("AF",410,11.5,612)=""
^DIE("AF",410,11.5,616)=""
^DIE("AF",410,11.6,607)=""
^DIE("AF",410,11.6,609)=""
^DIE("AF",410,11.6,612)=""
^DIE("AF",410,11.6,616)=""
^DIE("AF",410,11.7,607)=""
^DIE("AF",410,11.7,609)=""
^DIE("AF",410,11.7,612)=""
^DIE("AF",410,11.7,616)=""
^DIE("AF",410,11.8,607)=""
^DIE("AF",410,11.8,609)=""
^DIE("AF",410,11.8,612)=""
^DIE("AF",410,11.8,616)=""
^DIE("AF",410,11.9,607)=""
^DIE("AF",410,11.9,609)=""
^DIE("AF",410,11.9,612)=""
^DIE("AF",410,11.9,616)=""
^DIE("AF",410,15.5,607)=""
^DIE("AF",410,15.5,609)=""
^DIE("AF",410,15.5,612)=""
^DIE("AF",410,15.5,616)=""
^DIE("AF",410,16,607)=""
^DIE("AF",410,16,612)=""
^DIE("AF",410,20,607)=""
^DIE("AF",410,20,612)=""
^DIE("AF",410,21,607)=""
^DIE("AF",410,21,612)=""
^DIE("AF",410,40,607)=""
^DIE("AF",410,40,609)=""
^DIE("AF",410,40,612)=""
^DIE("AF",410,40,616)=""
^DIE("AF",410,42,607)=""
^DIE("AF",410,42,612)=""
^DIE("AF",410,44,607)=""
^DIE("AF",410,44,612)=""
^DIE("AF",410,45,607)=""
^DIE("AF",410,45,609)=""
^DIE("AF",410,45,612)=""
^DIE("AF",410,45,616)=""
^DIE("AF",410,46,607)=""
^DIE("AF",410,46,609)=""
^DIE("AF",410,46,612)=""
^DIE("AF",410,46,616)=""
^DIE("AF",410,48.1,607)=""
^DIE("AF",410,48.1,609)=""
^DIE("AF",410,49,607)=""
^DIE("AF",410,49,609)=""
^DIE("AF",410,49,612)=""
^DIE("AF",410,49,616)=""
^DIE("AF",410,60,607)=""
^DIE("AF",410,60,609)=""
^DIE("AF",410,60,612)=""
^DIE("AF",410,60,616)=""
^DIE("AF",410,68,607)=""
^DIE("AF",410,68,612)=""
^DIE("AF",410.01,.01,607)=""
^DIE("AF",410.01,.01,609)=""
^DIE("AF",410.01,.01,612)=""
^DIE("AF",410.01,.01,616)=""
^DIE("AF",410.02,.01,607)=""
^DIE("AF",410.02,.01,609)=""
^DIE("AF",410.02,.01,612)=""
^DIE("AF",410.02,.01,616)=""
^DIE("AF",410.02,1,607)=""
^DIE("AF",410.02,1,609)=""
^DIE("AF",410.02,1,612)=""
^DIE("AF",410.02,1,616)=""
^DIE("AF",410.02,2,607)=""
^DIE("AF",410.02,2,609)=""
^DIE("AF",410.02,2,612)=""
^DIE("AF",410.02,2,616)=""
^DIE("AF",410.02,3,607)=""
^DIE("AF",410.02,3,609)=""
^DIE("AF",410.02,3,612)=""
^DIE("AF",410.02,3,616)=""
^DIE("AF",410.02,4,607)=""
^DIE("AF",410.02,4,609)=""
^DIE("AF",410.02,4,612)=""
^DIE("AF",410.02,4,616)=""
^DIE("AF",410.02,5,612)=""
^DIE("AF",410.02,5,616)=""
^DIE("AF",410.02,6,607)=""
^DIE("AF",410.02,6,609)=""
^DIE("AF",410.02,6,612)=""
^DIE("AF",410.02,6,616)=""
^DIE("AF",410.02,7,607)=""
^DIE("AF",410.02,7,609)=""
^DIE("AF",410.02,7,612)=""
^DIE("AF",410.02,7,616)=""
^DIE("AF",410.02,10,607)=""
^DIE("AF",410.02,10,612)=""
^DIE("AF",410.02,12,607)=""
^DIE("AF",410.02,12,609)=""
^DIE("AF",410.02,12,612)=""
^DIE("AF",410.02,12,616)=""
^DIE("AF",410.03,.01,607)=""
^DIE("AF",410.03,.01,609)=""
^DIE("AF",410.03,.01,612)=""
^DIE("AF",410.03,.01,616)=""
^DIE("AF",410.04,.01,607)=""
^DIE("AF",410.04,.01,612)=""
^DIE("AF",410.04,1,607)=""
^DIE("AF",410.04,1,612)=""
^DIE("AF",410.05,.01,607)=""
^DIE("AF",410.05,.01,609)=""
^DIE("AF",410.05,.01,612)=""
^DIE("AF",410.05,.01,616)=""
^DIE("AF",410.06,.01,607)=""
^DIE("AF",410.06,.01,609)=""
^DIE("AF",410.06,.01,612)=""
^DIE("AF",410.06,.01,616)=""
^DIE("AF",410.212,.01,607)=""
^DIE("AF",410.212,.01,609)=""
^DIE("AF",410.212,.01,612)=""
^DIE("AF",410.212,.01,616)=""
^DIE("AF",410.212,1,607)=""
^DIE("AF",410.212,1,609)=""
^DIE("AF",410.212,1,612)=""
^DIE("AF",410.212,1,616)=""
^DIE("AF",410.6,1,607)=""
^DIE("AF",410.6,1,609)=""
^DIE("AF",410.6,1,612)=""
^DIE("AF",410.6,1,616)=""
^DIE("AF",410.6,2,607)=""
^DIE("AF",410.6,2,609)=""
^DIE("AF",410.6,2,612)=""
^DIE("AF",410.6,2,616)=""
^DIE("AF",410.6,3,607)=""
^DIE("AF",410.6,3,609)=""
^DIE("AF",410.6,3,612)=""
^DIE("AF",410.6,3,616)=""
^DIE("AF",410.6,4,607)=""
^DIE("AF",410.6,4,609)=""
^DIE("AF",410.6,4,612)=""
^DIE("AF",410.6,4,616)=""
^DIE("AF",430,1,799)=""
^DIE("AF",430,1,815)=""
^DIE("AF",430,2,824)=""
^DIE("AF",430,3,815)=""
^DIE("AF",430,4.5,799)=""
^DIE("AF",430,4.5,815)=""
^DIE("AF",430,7,799)=""
^DIE("AF",430,7,815)=""
^DIE("AF",430,7,824)=""
^DIE("AF",430,8,799)=""
^DIE("AF",430,8,815)=""
^DIE("AF",430,8,824)=""
^DIE("AF",430,9,799)=""
^DIE("AF",430,9,815)=""
^DIE("AF",430,9,824)=""
^DIE("AF",430,10,799)=""
^DIE("AF",430,10,815)=""
^DIE("AF",430,10,824)=""
^DIE("AF",430,15.1,799)=""
^DIE("AF",430,15.1,815)=""
^DIE("AF",430,19,799)=""
^DIE("AF",430,19,815)=""
^DIE("AF",430,19,824)=""
^DIE("AF",430,19.1,799)=""
^DIE("AF",430,19.1,815)=""
^DIE("AF",430,19.1,824)=""
^DIE("AF",430,20.1,799)=""
^DIE("AF",430,20.1,815)=""
^DIE("AF",430,61,815)=""
^DIE("AF",430,62,815)=""
^DIE("AF",430,63,815)=""
^DIE("AF",430,67,815)=""
^DIE("AF",430,71,815)=""
^DIE("AF",430,72,815)=""
^DIE("AF",430,73,815)=""
^DIE("AF",430,101,799)=""
^DIE("AF",430,101,815)=""
^DIE("AF",430,111,799)=""
^DIE("AF",430,111,824)=""
^DIE("AF",430,113,824)=""
^DIE("AF",430,239,799)=""
^DIE("AF",430,239,815)=""
^DIE("AF",430,240,799)=""
^DIE("AF",430,240,815)=""
^DIE("AF",430,242,799)=""
^DIE("AF",430,242,815)=""
^DIE("AF",430,243,799)=""
^DIE("AF",430,243,815)=""
^DIE("AF",430,244,799)=""
^DIE("AF",430,244,815)=""
^DIE("AF",430,247,799)=""
^DIE("AF",430,247,815)=""
^DIE("AF",430,248,799)=""
^DIE("AF",430,248,815)=""
^DIE("AF",430,249,799)=""
^DIE("AF",430,249,815)=""
^DIE("AF",430.01,.01,799)=""
^DIE("AF",430.01,.01,815)=""
^DIE("AF",430.01,1,815)=""
^DIE("AF",430.01,3,815)=""
^DIE("AF",430.01,7,799)=""
^DIE("AF",430.01,7,815)=""
^DIE("AF",440,17.3,595)=""
^DIE("AF",440,17.3,626)=""
^DIE("AF",440,17.4,595)=""
^DIE("AF",440,17.4,626)=""
^DIE("AF",440,17.7,595)=""
^DIE("AF",440,17.7,626)=""
^DIE("AF",440,17.8,595)=""
^DIE("AF",440,17.8,626)=""
^DIE("AF",440,17.9,595)=""
^DIE("AF",440,17.9,626)=""
^DIE("AF",440,38,595)=""
^DIE("AF",440,38,626)=""
^DIE("AF",440,39,595)=""
^DIE("AF",440,39,626)=""
^DIE("AF",440,41,595)=""
^DIE("AF",440,41,626)=""
^DIE("AF",440,44,595)=""
^DIE("AF",440,44,626)=""
^DIE("AF",442,.02,595)=""
^DIE("AF",442,.02,626)=""
^DIE("AF",442,.02,749)=""
^DIE("AF",442,.04,595)=""
^DIE("AF",442,.04,626)=""
^DIE("AF",442,.08,595)=""
^DIE("AF",442,.08,626)=""
^DIE("AF",442,.1,595)=""
^DIE("AF",442,.1,626)=""
^DIE("AF",442,.1,749)=""
^DIE("AF",442,.2,626)=""
^DIE("AF",442,.2,749)=""
^DIE("AF",442,.25,595)=""
^DIE("AF",442,.3,595)=""
^DIE("AF",442,.3,626)=""
^DIE("AF",442,.3,749)=""
^DIE("AF",442,1,595)=""
^DIE("AF",442,1,626)=""
^DIE("AF",442,1,749)=""
^DIE("AF",442,2,595)=""
^DIE("AF",442,2,626)=""
^DIE("AF",442,5,595)=""
^DIE("AF",442,5,626)=""
^DIE("AF",442,5,749)=""
^DIE("AF",442,5.2,595)=""
^DIE("AF",442,5.2,626)=""
^DIE("AF",442,5.2,749)=""
^DIE("AF",442,5.3,595)=""
^DIE("AF",442,5.4,595)=""
^DIE("AF",442,5.4,626)=""
^DIE("AF",442,5.4,749)=""
^DIE("AF",442,5.6,595)=""
^DIE("AF",442,5.6,626)=""
^DIE("AF",442,5.6,749)=""
^DIE("AF",442,6,595)=""
^DIE("AF",442,6,749)=""
^DIE("AF",442,6.2,595)=""
^DIE("AF",442,6.4,595)=""
^DIE("AF",442,7,595)=""
^DIE("AF",442,7,626)=""
^DIE("AF",442,7,749)=""
^DIE("AF",442,8,595)=""
^DIE("AF",442,8,626)=""
^DIE("AF",442,8,749)=""
^DIE("AF",442,8.2,595)=""
^DIE("AF",442,8.2,626)=""
^DIE("AF",442,8.3,595)=""
^DIE("AF",442,9.2,626)=""
^DIE("AF",442,13,595)=""
^DIE("AF",442,13,626)=""
^DIE("AF",442,13.05,595)=""
^DIE("AF",442,13.05,626)=""
^DIE("AF",442,13.2,595)=""
^DIE("AF",442,13.3,595)=""
^DIE("AF",442,13.4,595)=""
^DIE("AF",442,15,749)=""
^DIE("AF",442,16,595)=""
^DIE("AF",442,16,626)=""
^DIE("AF",442,16,749)=""
^DIE("AF",442,18.6,595)=""
^DIE("AF",442,18.6,626)=""
^DIE("AF",442,18.7,595)=""
^DIE("AF",442,18.7,626)=""
^DIE("AF",442,20,595)=""
^DIE("AF",442,20,626)=""
^DIE("AF",442,20,749)=""
^DIE("AF",442,24,595)=""
^DIE("AF",442,26,595)=""
^DIE("AF",442,26,626)=""
^DIE("AF",442,31,595)=""
^DIE("AF",442,31,626)=""
^DIE("AF",442,40,595)=""
^DIE("AF",442,40,626)=""
^DIE("AF",442,46,595)=""
^DIE("AF",442,46,626)=""
^DIE("AF",442,61,595)=""
^DIE("AF",442,61,626)=""
^DIE("AF",442,71,626)=""
^DIE("AF",442,72,626)=""
^DIE("AF",442,72.4,626)=""
^DIE("AF",442,73,626)=""
^DIE("AF",442,73.4,626)=""
^DIE("AF",442,74,626)=""
^DIE("AF",442,75,626)=""
^DIE("AF",442,76,626)=""
^DIE("AF",442,77,626)=""
^DIE("AF",442,78,626)=""
^DIE("AF",442,79,626)=""
^DIE("AF",442,80,626)=""
^DIE("AF",442,97,595)=""
^DIE("AF",442,102.4,626)=""
^DIE("AF",442,102.4,749)=""
^DIE("AF",442,501,595)=""
^DIE("AF",442.01,.01,595)=""
^DIE("AF",442.01,.01,626)=""
^DIE("AF",442.01,1,595)=""
^DIE("AF",442.01,1,626)=""
^DIE("AF",442.01,1.5,595)=""
^DIE("AF",442.01,1.5,626)=""
^DIE("AF",442.01,2,595)=""
^DIE("AF",442.01,2,626)=""
^DIE("AF",442.01,3,595)=""
^DIE("AF",442.01,3,626)=""
^DIE("AF",442.01,3.1,595)=""
^DIE("AF",442.01,3.1,626)=""
^DIE("AF",442.01,3.5,595)=""
^DIE("AF",442.01,3.5,626)=""
^DIE("AF",442.01,4,595)=""
^DIE("AF",442.01,4,626)=""
^DIE("AF",442.01,5,595)=""
^DIE("AF",442.01,5,626)=""
^DIE("AF",442.01,8,595)=""
^DIE("AF",442.01,8,626)=""
^DIE("AF",442.01,9,595)=""
^DIE("AF",442.01,9,626)=""
^DIE("AF",442.01,9.3,595)=""
^DIE("AF",442.01,9.3,626)=""
^DIE("AF",442.01,9.4,595)=""
^DIE("AF",442.01,9.4,626)=""
^DIE("AF",442.01,9.5,595)=""
^DIE("AF",442.01,9.5,626)=""
^DIE("AF",442.01,9.7,595)=""
^DIE("AF",442.01,9.7,626)=""
^DIE("AF",442.01,30,626)=""
^DIE("AF",442.01,35,626)=""
^DIE("AF",442.01,36,626)=""
^DIE("AF",442.01,36.3,595)=""
^DIE("AF",442.01,36.3,626)=""
^DIE("AF",442.01,36.6,595)=""
^DIE("AF",442.01,36.6,626)=""
^DIE("AF",442.01,40,595)=""
^DIE("AF",442.01,40,626)=""
^DIE("AF",442.01,41,595)=""
^DIE("AF",442.01,41,626)=""
^DIE("AF",442.01,42,595)=""
^DIE("AF",442.01,42,626)=""
^DIE("AF",442.04,.01,595)=""
^DIE("AF",442.04,.01,626)=""
^DIE("AF",442.04,.01,749)=""
^DIE("AF",442.05,.01,595)=""
^DIE("AF",442.05,.01,626)=""
^DIE("AF",442.06,1,626)=""
^DIE("AF",442.12,.01,595)=""
^DIE("AF",442.15,.01,595)=""
^DIE("AF",442.8,.01,595)=""
^DIE("AF",442.8,.01,626)=""
^DIE("AF",442.8,1,595)=""
^DIE("AF",442.8,1,626)=""
^DIE("AF",442.8,2,595)=""
^DIE("AF",442.8,2,626)=""
^DIE("AF",442.8,3,595)=""
^DIE("AF",442.8,3,626)=""
^DIE("AF",442.8,4,595)=""
^DIE("AF",442.8,4,626)=""
^DIE("AF",697.2,.01,1424)=""
^DIE("AF",697.2,1,1424)=""
^DIE("AF",697.2,1.1,1424)=""
^DIE("AF",697.2,2,1424)=""
^DIE("AF",697.2,2.1,1424)=""
^DIE("AF",697.2,3,1424)=""
^DIE("AF",697.2,4,1424)=""
^DIE("AF",697.2,5,1424)=""
^DIE("AF",697.2,6,1424)=""
^DIE("AF",697.2,7,1424)=""
^DIE("AF",697.2,8,1424)=""
^DIE("AF",697.2,9,1424)=""
^DIE("AF",697.2,10,1424)=""
^DIE("AF",697.2,16,1424)=""
^DIE("AF",697.2,1000,1424)=""
^DIE("AF",697.2,1001,1424)=""
^DIE("AF",697.21,.01,1424)=""
^DIE("AF",721,1,1503)=""
^DIE("AF",721,2,1503)=""
^DIE("AF",721,3,1503)=""
^DIE("AF",721,4,1503)=""
^DIE("AF",721,5,1503)=""
^DIE("AF",721,6,1503)=""
^DIE("AF",721,7,1503)=""
^DIE("AF",721,8,1503)=""
^DIE("AF",721,9,1503)=""
^DIE("AF",721,11,1503)=""
^DIE("AF",721,13,1503)=""
^DIE("AF",721,19,1503)=""
^DIE("AF",721,20,1503)=""
^DIE("AF",721,21,1503)=""
^DIE("AF",721,22,1503)=""
^DIE("AF",721,23,1503)=""
^DIE("AF",721,24,1503)=""
^DIE("AF",721,26,1503)=""
^DIE("AF",721,27,1503)=""
^DIE("AF",721,29,1503)=""
^DIE("AF",721,30,1504)=""
^DIE("AF",721,34,1503)=""
^DIE("AF",721,35,1503)=""
^DIE("AF",721,37,1504)=""
^DIE("AF",721,39,1503)=""
^DIE("AF",721,40,1503)=""
^DIE("AF",8925,.02,1491)=""
^DIE("AF",8925,.02,1493)=""
^DIE("AF",8925,.03,1491)=""
^DIE("AF",8925,.03,1493)=""
^DIE("AF",8925,.07,1491)=""
^DIE("AF",8925,.07,1493)=""
^DIE("AF",8925,.08,1491)=""
^DIE("AF",8925,.08,1493)=""
^DIE("AF",8925,.09,1491)=""
^DIE("AF",8925,.12,1491)=""
^DIE("AF",8925,1201,1491)=""
^DIE("AF",8925,1201,1493)=""
^DIE("AF",8925,1202,1491)=""
^DIE("AF",8925,1202,1493)=""
^DIE("AF",8925,1204,1491)=""
^DIE("AF",8925,1204,1493)=""
^DIE("AF",8925,1205,1491)=""
^DIE("AF",8925,1205,1493)=""
^DIE("AF",8925,1208,1491)=""
^DIE("AF",8925,1208,1493)=""
^DIE("AF",8925,1209,1491)=""
^DIE("AF",8925,1212,1491)=""
^DIE("AF",8925,1301,1491)=""
^DIE("AF",8925,1301,1493)=""
^DIE("AF",8925,1302,1491)=""
^DIE("AF",8925,1302,1493)=""
^DIE("AF",8925,1303,1491)=""
^DIE("AF",8925,1303,1493)=""
^DIE("AF",8925,1307,1491)=""
^DIE("AF",8925,1401,1491)=""
^DIE("AF",8925,1402,1491)=""
^DIE("AF",8925,1404,1491)=""
^DIE("AF",8925,1404,1493)=""
^DIE("AF",8925,1506,1491)=""
^DIE("AF",8925,1506,1493)=""
^DIE("AF",8925,1701,1493)=""
^DIE("AF",509850.2,.03,1338)=""
^DIE("AF",509850.5,.01,1570)=""
^DIE("AF",509850.5,1,1570)=""
^DIE("AF",509850.6,.07,1338)=""
^DIE("AF",509850.6,.08,1338)=""
^DIE("AF",509850.6,1,1338)=""
^DIE("AF",509850.6,2.5,1338)=""
^DIE("AF",509850.6,2.7,1338)=""
^DIE("AF",509850.6,3,1338)=""
^DIE("AF",509850.6,4.01,1338)=""
^DIE("AF",509850.6,4.02,1338)=""
^DIE("AF",509850.6,4.03,1338)=""
^DIE("AF",509850.6,4.04,1338)=""
^DIE("AF",509850.6,4.05,1338)=""
^DIE("AF",509850.6,4.07,1338)=""
^DIE("AF",509850.6,4.08,1338)=""
^DIE("AF",509850.6,4.09,1338)=""
^DIE("AF",509850.6,4.1,1338)=""
^DIE("AF",509850.6,4.11,1338)=""
^DIE("AF",509850.6,4.13,1338)=""
^DIE("AF",509850.6,4.14,1338)=""
^DIE("AF",509850.6,4.15,1338)=""
^DIE("AF",509850.6,4.16,1338)=""
^DIE("AF",509850.6,4.17,1338)=""
^DIE("AF",509850.6,4.18,1338)=""
^DIE("AF",509850.6,4.23,1338)=""
^DIE("AF",509850.6,4.24,1338)=""
^DIE("AF",509850.6,5,1338)=""
^DIE("AF",509850.6,6,1338)=""
^DIE("AF",509850.6,7,1338)=""
^DIE("AF",509850.6,10,1338)=""
^DIE("AF",509850.6,15,1338)=""
^DIE("AF",509850.6,20,1338)=""
^DIE("AF",509850.6,25,1338)=""
^DIE("AF",509850.6,30,1338)=""
^DIE("AF",509850.6,35,1338)=""
^DIE("AF",509850.6,55,1338)=""
^DIE("AF",509850.6,80,1338)=""
^DIE("AF",509850.6,90,1338)=""
^DIE("AF",509850.6,100,1338)=""
^DIE("AF",509850.6,101,1338)=""
^DIE("AF",509850.6,102,1338)=""
^DIE("AF",509850.6,103,1338)=""
^DIE("AF",509850.6,104,1338)=""
^DIE("AF",509850.61,.01,1338)=""
^DIE("AF",509850.61,.03,1338)=""
^DIE("AF",509850.61,.04,1338)=""
^DIE("AF",509850.61,.05,1338)=""
^DIE("AF",509850.6101,.01,1338)=""
^DIE("AF",509850.6102,.01,1338)=""
^DIE("AF",509850.6103,.01,1338)=""
^DIE("AF",509850.6104,.01,1338)=""
^DIE("AF",509850.615,.01,1338)=""
^DIE("AF",509850.615,.03,1338)=""
^DIE("AF",509850.615,.05,1338)=""
^DIE("AF",509850.62,.01,1338)=""
^DIE("AF",509850.63,.01,1338)=""
^DIE("AF",509850.63,.12,1338)=""
^DIE("AF",509850.63,.13,1338)=""
^DIE("AF",509850.63,.14,1338)=""
^DIE("AF",509850.64,.01,1338)=""
^DIE("AF",509850.66,.01,1338)=""
^DIE("AF",9009032.4,.01,871)=""
^DIE("AF",9009032.4,.02,871)=""
^DIE("AF",9009032.4,.03,870)=""
^DIE("AF",9009032.4,.03,871)=""
^DIE("AF",9009032.4,.04,870)=""
^DIE("AF",9009032.4,.04,871)=""
^DIE("AF",9009032.4,.05,871)=""
^DIE("AF",9009032.4,.06,870)=""
^DIE("AF",9009032.4,.06,871)=""
^DIE("AF",9009032.4,.07,870)=""
^DIE("AF",9009032.4,.07,871)=""
^DIE("AF",9009032.4,.08,870)=""
^DIE("AF",9009032.4,.08,871)=""
^DIE("AF",9009032.4,.09,870)=""
^DIE("AF",9009032.4,.09,871)=""
^DIE("AF",9009032.4,.11,870)=""
^DIE("AF",9009032.4,.11,871)=""
^DIE("AF",9009032.4,.12,870)=""
^DIE("AF",9009032.4,.12,871)=""
^DIE("AF",9009032.4,.13,870)=""
^DIE("AF",9009032.4,.13,871)=""
^DIE("AF",9009032.4,.16,870)=""
^DIE("AF",9009032.4,.17,870)=""
^DIE("AF",9009032.4,.17,871)=""
^DIE("AF",9009032.4,1100,870)=""
^DIE("AF",9009032.4,1100,871)=""
^DIE("AF",9009032.4,1200,870)=""
^DIE("AF",9009032.4,1200,871)=""
^DIE("AF",9009032.4,1300,870)=""
^DIE("AF",9009032.4,1300,871)=""
^DIE("AF",9009032.4,1400,870)=""
^DIE("AF",9009032.4,1400,871)=""
^DIE("AF",9009032.4,1500,870)=""
^DIE("AF",9009032.4,1500,871)=""
^DIE("AF",9009032.4,1600,870)=""
^DIE("AF",9009032.4,1600,871)=""
^DIE("AF",9009032.411,.01,870)=""
^DIE("AF",9009032.411,.01,871)=""
^DIE("AF",9009032.412,.01,870)=""
^DIE("AF",9009032.412,.01,871)=""
^DIE("AF",9009032.413,.01,870)=""
^DIE("AF",9009032.413,.01,871)=""
^DIE("AF",9009032.414,.01,870)=""
^DIE("AF",9009032.414,.01,871)=""
^DIE("AF",9009032.415,.01,870)=""
^DIE("AF",9009032.415,.01,871)=""
^DIE("AF",9009032.416,.01,870)=""
^DIE("AF",9009032.416,.01,871)=""
^DIE("B","*XUFILERANGE",12)=""
^DIE("B","*XUFILESINGLE",11)=""
^DIE("B","A1CK VARO/DHCP",1505)=""
^DIE("B","A4CG AMS4 BMS CONTRACT HRS",152)=""
^DIE("B","A4CG AMS4 BMS ENVIR CARE",154)=""
^DIE("B","A4CG AMS4 BMS HRS WORKED",153)=""
^DIE("B","A4CG AMS4 BMS TEXTILE CARE",155)=""
^DIE("B","A4CG AMS4 CHAP FUNDS",157)=""
^DIE("B","A4CG AMS4 CHAP MONTHLY",156)=""
^DIE("B","A4CG AMS4 MMP QUARTERLY",158)=""
^DIE("B","A4CG AMS4 NURS FTEE",163)=""
^DIE("B","A4CG AMS4 NURS MANHOURS",162)=""
^DIE("B","A4CG AMS4 NURS MANPOWER",161)=""
^DIE("B","A4CG AMS4 REC DIRECT",159)=""
^DIE("B","A4CG AMS4 REC INDIRECT",160)=""
^DIE("B","ABSV ADD/EDIT MASTER",1334)=""
^DIE("B","ABSV COMBINATION EDIT",1335)=""
^DIE("B","ABSV CREATE",1327)=""
^DIE("B","ABSV DELAY/RELEASE TIMECARD",1329)=""
^DIE("B","ABSV DIRECTORY EDIT",1526)=""
^DIE("B","ABSV DON EDIT",1629)=""
^DIE("B","ABSV DON EDIT LETTER",1611)=""
^DIE("B","ABSV DON GPF",1610)=""
^DIE("B","ABSV DON LETTER EDIT",1614)=""
^DIE("B","ABSV DON LETTER FORMAT",1612)=""
^DIE("B","ABSV DON MANUAL ENTRY",1617)=""
^DIE("B","ABSV DON PRINT LETTER",1630)=""
^DIE("B","ABSV DONATIONS ENTER",1628)=""
^DIE("B","ABSV HOSP USE ONLY",1326)=""
^DIE("B","ABSV HOSPITAL USE ONLY EDIT",1328)=""
^DIE("B","ABSV LABEL CONFIGURATION",1527)=""
^DIE("B","ABSV LOG",1336)=""
^DIE("B","ABSV LOG1",1337)=""
^DIE("B","ABSV LUNCH EDIT",1333)=""
^DIE("B","ABSV OCCASIONAL TIME ENTER",1331)=""
^DIE("B","ABSV SITE EDIT",1332)=""
^DIE("B","ABSV TIME CARD EDIT",1330)=""
^DIE("B","ACKQAS CLINICIAN EDIT",1340)=""
^DIE("B","ACKQAS ENTER/EDIT MODIFIERS",1570)=""
^DIE("B","ACKQAS SITE",1339)=""
^DIE("B","ACKQAS VISIT ENTRY",1338)=""
^DIE("B","AFJXNHEX EDIT",903)=""
^DIE("B","ANRV EDIT CHECKLIST",1536)=""
^DIE("B","ANRV EDIT LETTER",1535)=""
^DIE("B","ANRV PARAM EDIT",1539)=""
^DIE("B","ANRV VIST PARM",1534)=""
^DIE("B","ANRVACE",1538)=""
^DIE("B","ANRVEID",1533)=""
^DIE("B","ANRVRE",1532)=""
^DIE("B","ANRVRRE",1537)=""
^DIE("B","AWCM EDIT PARAM FILE",1660)=""
^DIE("B","BPSJ ALT CONTACT ENTER/EDIT",1682)=""
^DIE("B","BPSJ CONTACT ENTER/EDIT",1681)=""
^DIE("B","BPSJ PHARM ALT CONT ENTER/EDIT",1685)=""
^DIE("B","BPSJ PHARM CONTACT ENTER/EDIT",1684)=""
^DIE("B","BPSJ PHARMACIST ENTER/EDIT",1686)=""
^DIE("B","BPSJ PHARMACY SITE ENTER/EDIT",1683)=""
^DIE("B","DENT NONCLIN",977)=""
^DIE("B","DENTCPMEDT",978)=""
^DIE("B","DENTENDM",982)=""
^DIE("B","DENTENDU",981)=""
^DIE("B","DENTGENM",980)=""
^DIE("B","DENTGENU",979)=""
^DIE("B","DENTORAM",984)=""
^DIE("B","DENTORAU",983)=""
^DIE("B","DENTPERIM",986)=""
^DIE("B","DENTPERIU",985)=""
^DIE("B","DG AMS1 AMIS",308)=""
^DIE("B","DG AMS1 AMIS 334",310)=""
^DIE("B","DG AMS1 AMIS 336",311)=""
^DIE("B","DG AMS1 AMIS 345",309)=""
^DIE("B","DG AMS1 AMIS 400",313)=""
^DIE("B","DG AMS1 AMIS 420",314)=""
^DIE("B","DG AMS1C AMIS 167",315)=""
^DIE("B","DG AMS1D AMIS 290",307)=""
^DIE("B","DG CONSISTENCY CHECKER",421)=""
^DIE("B","DG ELIG ENTER/EDIT",445)=""
^DIE("B","DG EMPLOYER",413)=""
^DIE("B","DG ENTER/EDIT SECURITY",434)=""
^DIE("B","DG ID FORMAT ENTER/EDIT",457)=""
^DIE("B","DG LOAD EDIT SCREEN 7",420)=""
^DIE("B","DG PATIENT TYPE",419)=""
^DIE("B","DG PTF ADD MESSAGE",454)=""
^DIE("B","DG PTF ATTACH",453)=""
^DIE("B","DG PTF CREATE PTF ENTRY",443)=""
^DIE("B","DG PTF POST CREATE",455)=""
^DIE("B","DG RAM-DATA-INPUT",440)=""
^DIE("B","DG101",426)=""
^DIE("B","DG101 PRE-SCCP-TEST",477)=""
^DIE("B","DG101F",427)=""
^DIE("B","DG401",428)=""
^DIE("B","DG501",430)=""
^DIE("B","DG501 SAVE 5.2",483)=""
^DIE("B","DG501F",429)=""
^DIE("B","DG501Q",466)=""
^DIE("B","DG601",435)=""
^DIE("B","DG701",432)=""
^DIE("B","DG801",1664)=""
^DIE("B","DGBT MILES",480)=""
^DIE("B","DGBT REMARKS",481)=""
^DIE("B","DGBT ZIP",482)=""
^DIE("B","DGCOLLATERAL",418)=""
^DIE("B","DGJ DEF PARAMETER EDIT",479)=""
^DIE("B","DGJ EDIT IRT RECORD",460)=""
^DIE("B","DGJ ENTER IRT DEFICIENCY",478)=""
^DIE("B","DGJ ENTER IRT RECORD",461)=""
^DIE("B","DGJ IRT PARAMETERS",462)=""
^DIE("B","DGMT COMMENTS",496)=""
^DIE("B","DGMT EFFECTIVE DATE",495)=""
^DIE("B","DGMT ENTER/EDIT ADJUDICATION",472)=""
^DIE("B","DGMT ENTER/EDIT ANNUAL INCOME",469)=""
^DIE("B","DGMT ENTER/EDIT CATEGORY",473)=""
^DIE("B","DGMT ENTER/EDIT CHILD EXPENSES",470)=""
^DIE("B","DGMT ENTER/EDIT COMPLETION",471)=""
^DIE("B","DGMT ENTER/EDIT DEPENDENTS",468)=""
^DIE("B","DGMT ENTER/EDIT EXPENSES",474)=""
^DIE("B","DGMT ENTER/EDIT MARITAL STATUS",467)=""
^DIE("B","DGMT ENTER/EDIT NET WORTH",476)=""
^DIE("B","DGMT ENTER/EDIT THRESHOLD",431)=""
^DIE("B","DGMT UPDATE AUDIT",494)=""
^DIE("B","DGPAR",424)=""
^DIE("B","DGPM ADMIT",446)=""
^DIE("B","DGPM ASIH ADMIT",452)=""
^DIE("B","DGPM BED EDIT",456)=""
^DIE("B","DGPM CHECK-IN LODGER",450)=""
^DIE("B","DGPM DISCHARGE",448)=""
^DIE("B","DGPM LODGER CHECK-OUT",449)=""
^DIE("B","DGPM SPECIALTY TRANSFER",451)=""
^DIE("B","DGPM TRANSFER",447)=""
^DIE("B","DGPT 099",465)=""
^DIE("B","DGPT 150",463)=""
^DIE("B","DGPT 151",464)=""
^DIE("B","DGPT 401 CLEANUP",459)=""
^DIE("B","DGPT 501 CLEANUP",458)=""
^DIE("B","DGPT 601 CLEANUP",1716)=""
^DIE("B","DGPT CENSUS DATE",442)=""
^DIE("B","DGPT STUFF ENTRY",441)=""
^DIE("B","DGQWK",436)=""
^DIE("B","DGQWKF",437)=""
^DIE("B","DGRAI",1582)=""
^DIE("B","DGREG",414)=""
^DIE("B","DGREGE",415)=""
^DIE("B","DGREGEO",416)=""
^DIE("B","DGRP COLLATERAL REGISTER",422)=""
^DIE("B","DGRP ENTER/EDIT ANNUAL INCOME",475)=""
^DIE("B","DGRPT 10-10T REGISTRATION",1476)=""
^DIE("B","DGRU ORIGINAL ADMISSION DATE",1583)=""
^DIE("B","DGRUG",438)=""
^DIE("B","DGRUG16",439)=""
^DIE("B","DGSCHADMIT",433)=""
^DIE("B","DGSHARESUB",1544)=""
^DIE("B","DGTREAT",444)=""
^DIE("B","DGTS",484)=""
^DIE("B","DGWARD",423)=""
^DIE("B","DGWIN",425)=""
^DIE("B","DVBA C ADD 2507 PAT",965)=""
^DIE("B","DVBA EDIT REMARKS",963)=""
^DIE("B","DVBA ELIGIBILITY EDIT",961)=""
^DIE("B","DVBA SITE EDIT",964)=""
^DIE("B","DVBA STATUS EDIT",962)=""
^DIE("B","DVBHINQ UPDATE",960)=""
^DIE("B","EASEC COMPLETE LTC CO-PAY TEST",1623)=""
^DIE("B","EASEC EDIT DEPENDENTS",1625)=""
^DIE("B","EASEC EDIT MARITAL STATUS",1624)=""
^DIE("B","EASEC ENTER/EDIT ASSETS",1620)=""
^DIE("B","EASEC ENTER/EDIT ASSETS NEW",1658)=""
^DIE("B","EASEC ENTER/EDIT EXPENSES",1621)=""
^DIE("B","EASEC ENTER/EDIT INCOME",1622)=""
^DIE("B","EASEC ENTER/EDIT INCOME NEW",1659)=""
^DIE("B","EC CREATE PATIENT ENTRY",1503)=""
^DIE("B","EC FILE PCE NODE",1504)=""
^DIE("B","ECT EQUIPMENT INPUT",1102)=""
^DIE("B","ECT STATUS EDIT",1103)=""
^DIE("B","ENCSN",135)=""
^DIE("B","ENEQDISP",1475)=""
^DIE("B","ENEQENTER",127)=""
^DIE("B","ENEQPMP",122)=""
^DIE("B","ENEQPMP",123)=""
^DIE("B","ENEQTURN",1474)=""
^DIE("B","ENFA CHANGE EN",382)=""
^DIE("B","ENFA CHANGE FA",384)=""
^DIE("B","ENFA CHANGE FB",383)=""
^DIE("B","ENFA DELETE-D",1450)=""
^DIE("B","ENFA DELETE-T",1449)=""
^DIE("B","ENFA XFR",381)=""
^DIE("B","ENGSURVEY",134)=""
^DIE("B","ENPLI001",138)=""
^DIE("B","ENPLI002",139)=""
^DIE("B","ENPLI003",140)=""
^DIE("B","ENPMCLOSE",121)=""
^DIE("B","ENPRI001",1518)=""
^DIE("B","ENPRLOCAL",1519)=""
^DIE("B","ENSITE",131)=""
^DIE("B","ENSP-BLDG-P",142)=""
^DIE("B","ENSPENTER",132)=""
^DIE("B","ENSWOPT",133)=""
^DIE("B","ENWOBIOCLSE",126)=""
^DIE("B","ENWOCLOSE",125)=""
^DIE("B","ENWODISAP",128)=""
^DIE("B","ENWOEDIT",137)=""
^DIE("B","ENWONEW",124)=""
^DIE("B","ENWONEWCLOSE",141)=""
^DIE("B","ENWOWARD",129)=""
^DIE("B","ENWOWARDXFER",130)=""
^DIE("B","ENWOXFER",136)=""
^DIE("B","ENY2CLOSE",1531)=""
^DIE("B","ESP ACTIVITY ADD/EDIT",1276)=""
^DIE("B","ESP ACTIVITY CODE EDIT",1273)=""
^DIE("B","ESP ADD JOURNAL ENTRY",1280)=""
^DIE("B","ESP AMS7 196",305)=""
^DIE("B","ESP BICYCLE REGISTRATION",1266)=""
^DIE("B","ESP COURTESY VIOLATION INPUT",1269)=""
^DIE("B","ESP CREATE JOURNAL",1279)=""
^DIE("B","ESP DISPOSITION EDIT",1272)=""
^DIE("B","ESP EVIDENCE ADD/EDIT",1277)=""
^DIE("B","ESP FOLLOW-UP NOTES",1281)=""
^DIE("B","ESP GOLF REGISTRATION",1265)=""
^DIE("B","ESP OFFENSE CODE EDIT",1275)=""
^DIE("B","ESP OFFENSE REPORT 4",1287)=""
^DIE("B","ESP OFFENSE REPORT 5",1288)=""
^DIE("B","ESP OFFENSE REPORT EDIT",1283)=""
^DIE("B","ESP OFFENSE REPORT EDIT 1",1284)=""
^DIE("B","ESP OFFENSE REPORT EDIT 2",1285)=""
^DIE("B","ESP OFFENSE REPORT EDIT 3",1286)=""
^DIE("B","ESP PET REGISTRATION",1268)=""
^DIE("B","ESP POLICE EDIT",1282)=""
^DIE("B","ESP REGISTRATION",1453)=""
^DIE("B","ESP REGISTRATION 2",1456)=""
^DIE("B","ESP REGISTRATION 3",1454)=""
^DIE("B","ESP REGISTRATION 4",1457)=""
^DIE("B","ESP REGISTRATION 5",1455)=""
^DIE("B","ESP SELECTABLES EDIT",1274)=""
^DIE("B","ESP TRAINING EDIT",1271)=""
^DIE("B","ESP UNKNOWN VIOLATOR EDIT",1289)=""
^DIE("B","ESP USDCVN INPUT",1270)=""
^DIE("B","ESP VEHICLE REGISTRATION",1264)=""
^DIE("B","ESP W&W INPUT",1278)=""
^DIE("B","ESP WEAPON REGISTRATION",1267)=""
^DIE("B","FB ADD RX",1056)=""
^DIE("B","FB AMS1 RCS 18-3",306)=""
^DIE("B","FB AMS1A AMIS 344",145)=""
^DIE("B","FB AMS1A AMIS 349",144)=""
^DIE("B","FB AMS1A AMIS 350",146)=""
^DIE("B","FB CH OPEN BATCH",1034)=""
^DIE("B","FB CHNH OPEN BATCH",1027)=""
^DIE("B","FB FEEBASIS-IFCAP 994.00",373)=""
^DIE("B","FB FEEBASIS-IFCAP 994.01",372)=""
^DIE("B","FB FEEBASIS-IFCAP 994.90",374)=""
^DIE("B","FB UNAUTHORIZED APPEAL",1049)=""
^DIE("B","FB UNAUTHORIZED APPEAL EDIT",1050)=""
^DIE("B","FB UNAUTHORIZED COVA APPEAL",1051)=""
^DIE("B","FB UNAUTHORIZED DISPOSITION",1052)=""
^DIE("B","FB UNAUTHORIZED EDIT",1048)=""
^DIE("B","FB UNAUTHORIZED EDIT",1057)=""
^DIE("B","FB UNAUTHORIZED ENTER",1043)=""
^DIE("B","FB UNAUTHORIZED LETTER UPDATE",1054)=""
^DIE("B","FB UNAUTHORIZED PENDING",1044)=""
^DIE("B","FB UNAUTHORIZED PREVIOUS",1053)=""
^DIE("B","FB UNAUTHORIZED UPDATE",1046)=""
^DIE("B","FB UNAUTHORIZED UPDATE",1047)=""
^DIE("B","FB UNAUTHORIZED UPDATE1",1058)=""
^DIE("B","FB VENDOR UPDATE",1055)=""
^DIE("B","FBAA ADDRESS EDIT",417)=""
^DIE("B","FBAA AUTHORIZATION",1015)=""
^DIE("B","FBAA BATCH EDIT",1020)=""
^DIE("B","FBAA EDIT SCHEDULE",1031)=""
^DIE("B","FBAA EDIT VENDOR",1016)=""
^DIE("B","FBAA INVOICE EDIT",1019)=""
^DIE("B","FBAA LETTERS",1022)=""
^DIE("B","FBAA MED IFCAP",1028)=""
^DIE("B","FBAA NEW VENDOR",1017)=""
^DIE("B","FBAA PHARM IFCAP",1029)=""
^DIE("B","FBAA REPORT OF CONTACT",1018)=""
^DIE("B","FBAA SITE PARAMETERS",1021)=""
^DIE("B","FBAA TRAV IFCAP",1030)=""
^DIE("B","FBAA VENDOR MRA",1045)=""
^DIE("B","FBCH ADD ROC",1039)=""
^DIE("B","FBCH EDIT 7078",1037)=""
^DIE("B","FBCH EDIT PAYMENT",1026)=""
^DIE("B","FBCH EDIT ROC",1040)=""
^DIE("B","FBCH ENTER 7078",1024)=""
^DIE("B","FBCH ENTER PAYMENT",1025)=""
^DIE("B","FBCH ENTER REQUEST",1023)=""
^DIE("B","FBCH ENTER ROC",1038)=""
^DIE("B","FBCH REOPEN REQUEST",1041)=""
^DIE("B","FBNH EDIT AUTHORIZATION",1035)=""
^DIE("B","FBNH EDIT PAYMENT",1036)=""
^DIE("B","FBNH ENTER 7078",1032)=""
^DIE("B","FBNH ENTER AUTHORIZATION",1033)=""
^DIE("B","FBNH ENTER CONTRACT",1042)=""
^DIE("B","FH AMS4 224",318)=""
^DIE("B","FHADM2",35)=""
^DIE("B","FHADM4",34)=""
^DIE("B","FHASE",33)=""
^DIE("B","FHCMSR",38)=""
^DIE("B","FHINPR",32)=""
^DIE("B","FHMADM2",1655)=""
^DIE("B","FHMADM4",1656)=""
^DIE("B","FHMASE",1657)=""
^DIE("B","FHSEL",37)=""
^DIE("B","FHSITEC1",36)=""
^DIE("B","GECO FORM2 REQUISITION",291)=""
^DIE("B","GECO HBHC2 DISCHARGE FORM 5",290)=""
^DIE("B","GECO HBHC2 EVAL/ADM FORM 3",288)=""
^DIE("B","GECO HBHC2 VISIT LOG FORM 4",289)=""
^DIE("B","GECO NSY4 STAFF MGMT - 1",277)=""
^DIE("B","GECO NSY4 STAFF MGMT - 2",278)=""
^DIE("B","GECO NSY4 STAFF MGMT - 3",279)=""
^DIE("B","GECO NSY4 STAFF MGMT - 4",280)=""
^DIE("B","GECO NSY4 STAFF MGMT - 5",281)=""
^DIE("B","GECO NSY4 STAFF MGMT - 6",282)=""
^DIE("B","GECO NSY4 STAFF MGMT - 7",283)=""
^DIE("B","GECO PER4 RECRUITMENT",326)=""
^DIE("B","GECO PER4 VACANT POSITIONS",327)=""
^DIE("B","GECO PHY4 PHYSICIAN PART-1",274)=""
^DIE("B","GECO PHY4 PHYSICIAN PART-2",273)=""
^DIE("B","GECO PHY4 PHYSICIAN PART-3",275)=""
^DIE("B","GECO PHY4 PHYSICIAN PART-4",276)=""
^DIE("B","GECO WGE4 BLS FORM",284)=""
^DIE("B","GECO WGE4 CONT FORM",287)=""
^DIE("B","GECO WGE4 DATA FORM",286)=""
^DIE("B","GECO WGE4 EI FORM",285)=""
^DIE("B","GECO WGE4 PARAMETERS",325)=""
^DIE("B","GECS KEYPUNCH",143)=""
^DIE("B","GMRC PROCEDURE SETUP",1592)=""
^DIE("B","GMRC SERVICE USER MGMT",412)=""
^DIE("B","GMRC SETUP REQUEST SERVICE",411)=""
^DIE("B","GMRG EDIT TERM",1009)=""
^DIE("B","GMRV SITE FILE EDIT",992)=""
^DIE("B","GMTS DELETE HLTH SUM TYPE",401)=""
^DIE("B","GMTS EDIT EXIST HS TYPE",1643)=""
^DIE("B","GMTS EDIT HLTH SUM TYPE",400)=""
^DIE("B","HBHC DISCHARGE",1341)=""
^DIE("B","HBHC EDIT PROVIDER (631.4)",1344)=""
^DIE("B","HBHC UPDATE DISCHARGE",1343)=""
^DIE("B","HL 1.6 APPLICATION PARAM EDIT",386)=""
^DIE("B","HL MESSAGING PROTOCOL EDIT",385)=""
^DIE("B","HL TCP/IP ENTER",387)=""
^DIE("B","HLEV MASTER JOB ENTER/EDIT",1663)=""
^DIE("B","HLEV MONITOR ENTER/EDIT",1662)=""
^DIE("B","HLOAPREG",1701)=""
^DIE("B","IB ACTIVATE",498)=""
^DIE("B","IB BILLING CYCLE ADD",504)=""
^DIE("B","IB BILLING CYCLE ADJUST",503)=""
^DIE("B","IB CURRENT STATUS",517)=""
^DIE("B","IB DEVICE",507)=""
^DIE("B","IB EDIT CLEAR",501)=""
^DIE("B","IB EDIT E&M QUANTITY",1668)=""
^DIE("B","IB EDIT SITE PARAM",500)=""
^DIE("B","IB ENTER THRESHOLD",519)=""
^DIE("B","IB INACTIVATE EXEMPTION",518)=""
^DIE("B","IB MAIL",499)=""
^DIE("B","IB NEW EXEMPTION",516)=""
^DIE("B","IB RATE EDIT",497)=""
^DIE("B","IB REVCODE EDIT",502)=""
^DIE("B","IB SCREEN1",508)=""
^DIE("B","IB SCREEN2",509)=""
^DIE("B","IB SCREEN3",574)=""
^DIE("B","IB SCREEN4",510)=""
^DIE("B","IB SCREEN5",511)=""
^DIE("B","IB SCREEN6",512)=""
^DIE("B","IB SCREEN7",513)=""
^DIE("B","IB SCREEN8",514)=""
^DIE("B","IB SCREEN82",577)=""
^DIE("B","IB SCREEN8H",515)=""
^DIE("B","IB STATUS",506)=""
^DIE("B","IBAT OUT PRICING EDIT",1584)=""
^DIE("B","IBCE ADD/EDIT LOCAL FORM",1482)=""
^DIE("B","IBCE ADD/EDIT LOCAL FORM FIELD",1484)=""
^DIE("B","IBCE DEFINE LOCAL ELEMENT",1483)=""
^DIE("B","IBCE EDIT FIELD CONTENT",1485)=""
^DIE("B","IBCN AB ADD COM",565)=""
^DIE("B","IBCN AB EDIT ALL",566)=""
^DIE("B","IBCN AB HOME HEA",563)=""
^DIE("B","IBCN AB HOSPC",564)=""
^DIE("B","IBCN AB INPT",562)=""
^DIE("B","IBCN AB IV MGMT",573)=""
^DIE("B","IBCN AB MEN H",559)=""
^DIE("B","IBCN AB OPT",561)=""
^DIE("B","IBCN AB POL INF",560)=""
^DIE("B","IBCN AB REHAB",572)=""
^DIE("B","IBCN BU ADD COM",567)=""
^DIE("B","IBCN BU ED AL",571)=""
^DIE("B","IBCN BU INPT",568)=""
^DIE("B","IBCN BU OPT",569)=""
^DIE("B","IBCN BU POL",570)=""
^DIE("B","IBCN PATIENT INSURANCE",1717)=""
^DIE("B","IBCNE GENERAL PARAMETER EDIT",1651)=""
^DIE("B","IBD CREATE FORM TRACKING",1477)=""
^DIE("B","IBD EDIT FORM TRACKING STATUS",1478)=""
^DIE("B","IBDF CPT MODIFIER",1569)=""
^DIE("B","IBDF EDIT AVAILABLE HLTH SMRY",575)=""
^DIE("B","IBDF EDIT AVAILABLE REPORT",532)=""
^DIE("B","IBDF EDIT DATA FIELD",522)=""
^DIE("B","IBDF EDIT FORM HEADER",523)=""
^DIE("B","IBDF EDIT HAND PRINT FIELD",906)=""
^DIE("B","IBDF EDIT HEADER BLOCK",524)=""
^DIE("B","IBDF EDIT HEADER&OUTLINE",521)=""
^DIE("B","IBDF EDIT LABEL FIELD",905)=""
^DIE("B","IBDF EDIT MARKING AREA",535)=""
^DIE("B","IBDF EDIT MULT CHOICE FIELD",904)=""
^DIE("B","IBDF EDIT NEW FORM",531)=""
^DIE("B","IBDF EDIT OLD OR COPIED FORM",530)=""
^DIE("B","IBDF EDIT OUTPUT/SELECTION RTN",534)=""
^DIE("B","IBDF EDIT PLACE HOLDER",907)=""
^DIE("B","IBDF EDIT PRINTER",908)=""
^DIE("B","IBDF EDIT SELECTION",529)=""
^DIE("B","IBDF EDIT SELECTION LIST",528)=""
^DIE("B","IBDF EDIT TEXT AREA",527)=""
^DIE("B","IBDF FORM LINE",525)=""
^DIE("B","IBDF NEW EMPTY BLOCK",526)=""
^DIE("B","IBDF POSITION COPIED BLOCK",520)=""
^DIE("B","IBDF POSITION/SIZE COLUMNS",533)=""
^DIE("B","IBDF PRINT MANAGER",536)=""
^DIE("B","IBDF PRINT MANAGER",537)=""
^DIE("B","IBEDIT INS CO1",558)=""
^DIE("B","IBT ACTION INFO",549)=""
^DIE("B","IBT ADD APPEAL",555)=""
^DIE("B","IBT ADD COMMENTS",541)=""
^DIE("B","IBT APPEAL INFO",550)=""
^DIE("B","IBT ASSIGN CASE",556)=""
^DIE("B","IBT AVERAGE BILL AMOUNTS (12M)",1594)=""
^DIE("B","IBT AVERAGE BILL AMOUNTS (MON)",1593)=""
^DIE("B","IBT BILLING INFO",539)=""
^DIE("B","IBT COMMENT INFO",546)=""
^DIE("B","IBT CONTACT INFO",547)=""
^DIE("B","IBT FINAL OUTCOME",557)=""
^DIE("B","IBT INS VERIFICATION",576)=""
^DIE("B","IBT INSURANCE INFO",548)=""
^DIE("B","IBT PRECERT INFO",540)=""
^DIE("B","IBT QUICK EDIT",545)=""
^DIE("B","IBT QUICK EDIT",578)=""
^DIE("B","IBT REMOVE NEXT REVIEW",553)=""
^DIE("B","IBT REMOVE NEXT REVIEW",554)=""
^DIE("B","IBT REVIEW INFO",543)=""
^DIE("B","IBT SPECIAL UNIT",544)=""
^DIE("B","IBT STATUS CHANGE",542)=""
^DIE("B","IBT STATUS CHANGE",551)=""
^DIE("B","IBT STATUS CHANGE",552)=""
^DIE("B","IBT UNBILLED AMOUNTS",1595)=""
^DIE("B","IBT UR INFO",538)=""
^DIE("B","LA AUTO ACC",39)=""
^DIE("B","LA AUTO LL",40)=""
^DIE("B","LA7S ENTRY",1521)=""
^DIE("B","LBRY BIBLIOGRAPHIC 2 ENTRY",1650)=""
^DIE("B","LBRY BIBLIOGRAPHIC ENTRY",1134)=""
^DIE("B","LBRY CHECK-IN SETUP",1106)=""
^DIE("B","LBRY CHECK-IN SETUP",1133)=""
^DIE("B","LBRY CONTACTS ROUTING",1105)=""
^DIE("B","LBRY D1",1130)=""
^DIE("B","LBRY D2",1129)=""
^DIE("B","LBRY D3",1648)=""
^DIE("B","LBRY D4",1649)=""
^DIE("B","LBRY FINANCIAL ENTRY",1135)=""
^DIE("B","LBRY INSERT",1131)=""
^DIE("B","LBRY JOURNAL DATE EDIT",1132)=""
^DIE("B","LBRY LOCAL SETUP",1522)=""
^DIE("B","LBRY PREDICT INSERT",1128)=""
^DIE("B","LBRY SITE",1104)=""
^DIE("B","LBRY SITE2",1647)=""
^DIE("B","LBRY TITLE SETUP",1136)=""
^DIE("B","LBRYFRUP",1113)=""
^DIE("B","LBRYINUP",1523)=""
^DIE("B","LBRYLTF",1111)=""
^DIE("B","LBRYPPUP",1115)=""
^DIE("B","LBRYPUUP",1114)=""
^DIE("B","LBRYREC",1112)=""
^DIE("B","LR ACC CONTROLS",48)=""
^DIE("B","LR AMS5 ADMIN DATA H01",176)=""
^DIE("B","LR AMS5 ADMIN DATA J08",239)=""
^DIE("B","LR AMS5 AFIPA 378",175)=""
^DIE("B","LR AMS5 AUTO CHEM H02-H18",177)=""
^DIE("B","LR AMS5 AUTO CHEM H19-H76",187)=""
^DIE("B","LR AMS5 AUTO CHEM H77-H85",188)=""
^DIE("B","LR AMS5 BB MAN & AUTO H28",184)=""
^DIE("B","LR AMS5 BB MAN & AUTO H29",185)=""
^DIE("B","LR AMS5 BG & CHEM H87",225)=""
^DIE("B","LR AMS5 BLOOD BANK H84",223)=""
^DIE("B","LR AMS5 BLOOD BANK H86",224)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H46",195)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H48",197)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H50",199)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H52",201)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H54",203)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H56",205)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H58",207)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H60",209)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H62",211)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H64",213)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H66",215)=""
^DIE("B","LR AMS5 CHEM MAN & AUTO H68",217)=""
^DIE("B","LR AMS5 CHEM MAN TESTS H15",178)=""
^DIE("B","LR AMS5 CHEM MAN TESTS H16",179)=""
^DIE("B","LR AMS5 CHEM MAN TESTS H17",180)=""
^DIE("B","LR AMS5 CYTOLOGY H96",234)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H47",196)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H49",198)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H51",200)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H53",202)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H55",204)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H57",206)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H59",208)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H61",210)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H63",212)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H65",214)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H67",216)=""
^DIE("B","LR AMS5 DRUG AND TOXIC H69",218)=""
^DIE("B","LR AMS5 DRUG DEP PROG J09",240)=""
^DIE("B","LR AMS5 ELECTRON MICRO H95",233)=""
^DIE("B","LR AMS5 ENVIRONMENTAL H99",237)=""
^DIE("B","LR AMS5 HEM MAN & AUTO H24",182)=""
^DIE("B","LR AMS5 HEM MAN & AUTO H26",183)=""
^DIE("B","LR AMS5 HEMATOLOGY H78",220)=""
^DIE("B","LR AMS5 HEMATOLOGY H79",221)=""
^DIE("B","LR AMS5 HEMATOLOGY H80",222)=""
^DIE("B","LR AMS5 HISTOLOGY H36",192)=""
^DIE("B","LR AMS5 HISTOLOGY H94",232)=""
^DIE("B","LR AMS5 IDENT KITS H90",229)=""
^DIE("B","LR AMS5 IMMUN MAN & AUTO H30",186)=""
^DIE("B","LR AMS5 IMMUNOLOGY H88",226)=""
^DIE("B","LR AMS5 IMMUNOLOGY H89",227)=""
^DIE("B","LR AMS5 M,B,GM,SP H33",190)=""
^DIE("B","LR AMS5 MICRO AUTO H32",189)=""
^DIE("B","LR AMS5 MICRO BLOOD CULT H34",191)=""
^DIE("B","LR AMS5 MISCELLANEOUS H42",193)=""
^DIE("B","LR AMS5 MISCELLANEOUS J07",333)=""
^DIE("B","LR AMS5 MYCOBACTERIOLOGY H91",228)=""
^DIE("B","LR AMS5 MYCOLOGY H92",230)=""
^DIE("B","LR AMS5 PARASITOLOGY H93",231)=""
^DIE("B","LR AMS5 RADIOISOTOPES J03",238)=""
^DIE("B","LR AMS5 SPEC PROC & DISP H44",194)=""
^DIE("B","LR AMS5 SUSCEPTIBILITY H97",235)=""
^DIE("B","LR AMS5 URINE AND FECES H22",181)=""
^DIE("B","LR AMS5 URINE AND FECES H74",219)=""
^DIE("B","LR AMS5 VIROLOGY H98",236)=""
^DIE("B","LR ANAEROBIC PANEL",50)=""
^DIE("B","LR ATOMIC TESTS",41)=""
^DIE("B","LR C&S",46)=""
^DIE("B","LR COSMIC TESTS",42)=""
^DIE("B","LR DEFAULT",91)=""
^DIE("B","LR EXECUTE WKLD CODES",120)=""
^DIE("B","LR FASTIDIOUS ORGANISM",51)=""
^DIE("B","LR GNR",52)=""
^DIE("B","LR GRAM NEG & URINARY",53)=""
^DIE("B","LR GRAM POSITIVE",54)=""
^DIE("B","LR INSTRUMENT LOAD",109)=""
^DIE("B","LR LNC MAP ANTIMICROBIAL",1606)=""
^DIE("B","LR MTB",59)=""
^DIE("B","LR OTHER",95)=""
^DIE("B","LR PSEUDO",44)=""
^DIE("B","LR STAPH",43)=""
^DIE("B","LR STERILITY",49)=""
^DIE("B","LR STREPT",45)=""
^DIE("B","LR VERIFY WKLD CODE",119)=""
^DIE("B","LR WKLD CODE SUFFIX LOAD",111)=""
^DIE("B","LR WKLD COMMENTS",113)=""
^DIE("B","LR WKLD EDIT",110)=""
^DIE("B","LR WKLD EDIT ALL",1486)=""
^DIE("B","LR WKLD ES CPT",1642)=""
^DIE("B","LR WKLD MANUAL INPUT",114)=""
^DIE("B","LR WKLD STATS ON",115)=""
^DIE("B","LR WKLD STATS ON ACC AREA",116)=""
^DIE("B","LR WKLD STD/QC/REPS",112)=""
^DIE("B","LRAPDIS",79)=""
^DIE("B","LRAPDR",87)=""
^DIE("B","LRAPER",85)=""
^DIE("B","LRAPETI",78)=""
^DIE("B","LRAPFR",86)=""
^DIE("B","LRAPFUN",80)=""
^DIE("B","LRAPHDR",98)=""
^DIE("B","LRAPLIB",104)=""
^DIE("B","LRAPMOR",77)=""
^DIE("B","LRAPMR",84)=""
^DIE("B","LRAPOCC",82)=""
^DIE("B","LRAPOR",89)=""
^DIE("B","LRAPPR",88)=""
^DIE("B","LRAPPRO",81)=""
^DIE("B","LRAPTOP",76)=""
^DIE("B","LRAPTR",83)=""
^DIE("B","LRAUTOACC",93)=""
^DIE("B","LRAUTOLL",94)=""
^DIE("B","LRBLBP",106)=""
^DIE("B","LRBLDABRH",67)=""
^DIE("B","LRBLDAG",64)=""
^DIE("B","LRBLDC",58)=""
^DIE("B","LRBLDCP",68)=""
^DIE("B","LRBLDCPN",100)=""
^DIE("B","LRBLDEDIT",60)=""
^DIE("B","LRBLDEF",62)=""
^DIE("B","LRBLDEMO",63)=""
^DIE("B","LRBLDNEW",66)=""
^DIE("B","LRBLDNEWM",99)=""
^DIE("B","LRBLDOLD",1517)=""
^DIE("B","LRBLDON",65)=""
^DIE("B","LRBLDT",101)=""
^DIE("B","LRBLDUC",102)=""
^DIE("B","LRBLIABRH",69)=""
^DIE("B","LRBLIAG",73)=""
^DIE("B","LRBLID",55)=""
^DIE("B","LRBLIDTM",71)=""
^DIE("B","LRBLILG",72)=""
^DIE("B","LRBLIXR",70)=""
^DIE("B","LRBLPABRH",74)=""
^DIE("B","LRBLPAG",105)=""
^DIE("B","LRBLPCMBS",92)=""
^DIE("B","LRBLPCS",103)=""
^DIE("B","LRBLPEDIT",61)=""
^DIE("B","LRBLPOLD",75)=""
^DIE("B","LRBLPOOL",1516)=""
^DIE("B","LRBLPT",97)=""
^DIE("B","LRBLPTXR",118)=""
^DIE("B","LRBLSCREEN",90)=""
^DIE("B","LRBLSPP",96)=""
^DIE("B","LRCYTOEDIT",108)=""
^DIE("B","LRCYWK",107)=""
^DIE("B","LRLL CONTROLS",57)=""
^DIE("B","LRLLDFT",56)=""
^DIE("B","LRLLPRO",47)=""
^DIE("B","LRLOAD",117)=""
^DIE("B","MAG EDIT BACKGRND WORKSTA",1599)=""
^DIE("B","MAG ENTER/EDIT MUSE NETWORK",1604)=""
^DIE("B","MAG ENTER/EDIT NETWORK LOC",1598)=""
^DIE("B","MAG IMAGE INDEX EDIT",1645)=""
^DIE("B","MAG MUSE PARAMETERS",1603)=""
^DIE("B","MAG PURGE PARAMETERS",1600)=""
^DIE("B","MAG SITE PARAMETERS",1596)=""
^DIE("B","MAGD-ENTRY",1602)=""
^DIE("B","MAGD-UPDT",1601)=""
^DIE("B","MAGJ LIST EDIT",1626)=""
^DIE("B","MAGJ PRIOR EDIT",1627)=""
^DIE("B","MC AMS2 230 HOME OXYGEN",272)=""
^DIE("B","MC AMS2 234 AUD-SPEECH PATH",270)=""
^DIE("B","MC AMS2 J15 CATHETERIZATION",271)=""
^DIE("B","MC AMS2 J19 DIALYSIS",269)=""
^DIE("B","MC AMS2 J41 MICU",265)=""
^DIE("B","MC AMS2 J42 SICU",266)=""
^DIE("B","MC AMS2 J43 CCU",267)=""
^DIE("B","MC AMS2 J44 GEN PURPOSE UNIT",268)=""
^DIE("B","MCARBLCATH",1425)=""
^DIE("B","MCARCATH1",1350)=""
^DIE("B","MCARCATHB",1381)=""
^DIE("B","MCARCATHBRIEF",1376)=""
^DIE("B","MCARECG1",1346)=""
^DIE("B","MCARECGA",1362)=""
^DIE("B","MCARECGB",1382)=""
^DIE("B","MCARECHO1",1348)=""
^DIE("B","MCARECHOB",1383)=""
^DIE("B","MCAREPBRIEF",1384)=""
^DIE("B","MCAREPEDITALL",1373)=""
^DIE("B","MCAREPENTRY",1345)=""
^DIE("B","MCARFLCATH",1426)=""
^DIE("B","MCARGIBRIEF",1388)=""
^DIE("B","MCARGIBRIEFNON",1389)=""
^DIE("B","MCARGICONSULT",1354)=""
^DIE("B","MCARGIED",1353)=""
^DIE("B","MCARGIEDIT",1361)=""
^DIE("B","MCARGIEDIT1",1374)=""
^DIE("B","MCARGIEDIT2",1375)=""
^DIE("B","MCARGIEDITNON",1351)=""
^DIE("B","MCARHEMBRIEF",1391)=""
^DIE("B","MCARHEMEDIT",1352)=""
^DIE("B","MCARHOLTA",1366)=""
^DIE("B","MCARHOLTFM",1347)=""
^DIE("B","MCARHOLTFMBRIEF",1385)=""
^DIE("B","MCARPACEDIT",1360)=""
^DIE("B","MCARPACSURV",1359)=""
^DIE("B","MCARPACSURVBRIEF",1395)=""
^DIE("B","MCARPULMBRIEF",1390)=""
^DIE("B","MCARPULMEDIT",1355)=""
^DIE("B","MCARSRAPOST",1364)=""
^DIE("B","MCARSRAPRE",1363)=""
^DIE("B","MCARTR1",1349)=""
^DIE("B","MCARTRB",1386)=""
^DIE("B","MCBLA-LEAD IMP",1393)=""
^DIE("B","MCBLCATH",1413)=""
^DIE("B","MCBLECG",1414)=""
^DIE("B","MCBLECHO",1415)=""
^DIE("B","MCBLEP",1416)=""
^DIE("B","MCBLETT",1418)=""
^DIE("B","MCBLGEN",1423)=""
^DIE("B","MCBLGEN.IMPL.",1392)=""
^DIE("B","MCBLGI",1419)=""
^DIE("B","MCBLHEM",1422)=""
^DIE("B","MCBLHOLTER",1417)=""
^DIE("B","MCBLNONENDO",1420)=""
^DIE("B","MCBLPFT",1412)=""
^DIE("B","MCBLPULM",1421)=""
^DIE("B","MCBLV-LEAD IMP",1394)=""
^DIE("B","MCBUILDGENERIC",1424)=""
^DIE("B","MCCONSULT",1378)=""
^DIE("B","MCCONSULTBRIEF",1387)=""
^DIE("B","MCFLA-LEAD IMP",1358)=""
^DIE("B","MCFLCATH",1405)=""
^DIE("B","MCFLECG",1401)=""
^DIE("B","MCFLECHO",1403)=""
^DIE("B","MCFLEP",1400)=""
^DIE("B","MCFLETT",1404)=""
^DIE("B","MCFLGEN",1411)=""
^DIE("B","MCFLGEN.IMPL.",1356)=""
^DIE("B","MCFLGI",1409)=""
^DIE("B","MCFLHEM",1407)=""
^DIE("B","MCFLHOLTER",1402)=""
^DIE("B","MCFLNONENDO",1406)=""
^DIE("B","MCFLPFT",1410)=""
^DIE("B","MCFLPULM",1408)=""
^DIE("B","MCFLV-LEAD IMP",1357)=""
^DIE("B","MCGENERIC",1379)=""
^DIE("B","MCGENERICBRIEF",1396)=""
^DIE("B","MCPFTBRIEF",1380)=""
^DIE("B","MCPFTEDIT",1365)=""
^DIE("B","MCPFTEDITNEW",1399)=""
^DIE("B","MCRHBACKINFO",1377)=""
^DIE("B","MCRHBRIEF",1397)=""
^DIE("B","MCRHBRLINE",1398)=""
^DIE("B","MCRHDEATH",1370)=""
^DIE("B","MCRHDIAG",1372)=""
^DIE("B","MCRHHAQ",1369)=""
^DIE("B","MCRHHIST",1367)=""
^DIE("B","MCRHNARR",1371)=""
^DIE("B","MCRHPHYS",1368)=""
^DIE("B","MPIF OPEN REQUEST",1550)=""
^DIE("B","MPIF REQUEST INCOMING",1552)=""
^DIE("B","MPIF RESULT INCOMING",1555)=""
^DIE("B","MPIF REVIEW AUTO",1556)=""
^DIE("B","MPIF REVIEW RESET",1554)=""
^DIE("B","MPIF REVIEW RESULT",1553)=""
^DIE("B","MPIF SITE PARAMETERS",1548)=""
^DIE("B","NURA-I-A1106B",988)=""
^DIE("B","NURA-I-PATHOURS",990)=""
^DIE("B","NURS-I-PRIORITY 1A",993)=""
^DIE("B","NURSAED-I-CED",1000)=""
^DIE("B","NURSAED-I-EDUCATION",1002)=""
^DIE("B","NURSAED-I-STAFF1",1001)=""
^DIE("B","NURSAED-I-STAFF10",998)=""
^DIE("B","NURSAED-I-STAFF11",999)=""
^DIE("B","NURSAED-I-STAFF2",994)=""
^DIE("B","NURSAED-I-STAFF3",995)=""
^DIE("B","NURSAED-I-STAFF4",996)=""
^DIE("B","NURSAED-I-STAFF5",997)=""
^DIE("B","NURSAED-I-STAFF6",1005)=""
^DIE("B","NURSAED-I-STAFF7",1006)=""
^DIE("B","NURSAED-I-STAFF8",1007)=""
^DIE("B","NURSAED-I-STAFFPD",1004)=""
^DIE("B","NURSAED-I-STAFFPR",1003)=""
^DIE("B","ONCO ABSTRACT-I",1263)=""
^DIE("B","ONCO DEATH",1255)=""
^DIE("B","ONCO FOLL ADD/EDIT LETTER",1251)=""
^DIE("B","ONCO FOLL ATTEMPT",1259)=""
^DIE("B","ONCO FOLL-ADD CONTACT",1253)=""
^DIE("B","ONCO FOLLOWUP",1254)=""
^DIE("B","ONCO RECURRENCE FOLLOWUP",1262)=""
^DIE("B","ONCO UPDATE CONTACT",1260)=""
^DIE("B","ONCO UTL CORRECT DATA",1261)=""
^DIE("B","OR ACTIVATE ITEMS",397)=""
^DIE("B","OR ADV MENU",394)=""
^DIE("B","OR EDIT",388)=""
^DIE("B","OR EDIT MENU",392)=""
^DIE("B","OR EDIT PACKAGE",391)=""
^DIE("B","OR EDIT PROTOCOL",390)=""
^DIE("B","OR MEMBER",389)=""
^DIE("B","OR PRINT FORMAT EDIT",395)=""
^DIE("B","OR PROFILE",393)=""
^DIE("B","OR USER ACCESS OPTIONS",1640)=""
^DIE("B","ORCL ADV MENU EDIT",399)=""
^DIE("B","ORCL PARAMETER EDIT",396)=""
^DIE("B","ORCL PROTOCOL MENU",398)=""
^DIE("B","OREV AUTO DC",1639)=""
^DIE("B","OREV CHILD EVENT",1641)=""
^DIE("B","OREV EVENT",1638)=""
^DIE("B","PPP EDIT FILE",956)=""
^DIE("B","PRCA BILL 1080",801)=""
^DIE("B","PRCA BILL 1081",802)=""
^DIE("B","PRCA BILL 1114",800)=""
^DIE("B","PRCA CAT SET",825)=""
^DIE("B","PRCA CAUSED BY",804)=""
^DIE("B","PRCA COMMENT",846)=""
^DIE("B","PRCA CREATE BILL STUB",1473)=""
^DIE("B","PRCA CREATE TRANS STUB",1472)=""
^DIE("B","PRCA FY ADJ2 BATCH",827)=""
^DIE("B","PRCA OLD SET",815)=""
^DIE("B","PRCA PAYMENT",820)=""
^DIE("B","PRCA RE-ESTABLISH WRITE-OFF",830)=""
^DIE("B","PRCA SET",799)=""
^DIE("B","PRCAC COWC REFER",821)=""
^DIE("B","PRCAC DCDOJ REFER",818)=""
^DIE("B","PRCAC DCDOJ REREFER",819)=""
^DIE("B","PRCAC DCDOJ RETN",817)=""
^DIE("B","PRCAC LOCATE DEBTOR",803)=""
^DIE("B","PRCAC RC INFO",1644)=""
^DIE("B","PRCAC RC REFER",1529)=""
^DIE("B","PRCAC RC TRAN",1530)=""
^DIE("B","PRCAE ADMIN",807)=""
^DIE("B","PRCAE AUDIT",812)=""
^DIE("B","PRCAE BILL FROM",829)=""
^DIE("B","PRCAE INSURANCE DATA",814)=""
^DIE("B","PRCAF RETURN BILL",826)=""
^DIE("B","PRCASV REL",824)=""
^DIE("B","PRCASV STATUS",822)=""
^DIE("B","PRCAT EDIT GL",813)=""
^DIE("B","PRCB 285 CATEGORY EDIT",781)=""
^DIE("B","PRCB ENTER TRANS",753)=""
^DIE("B","PRCB FMS VENDOR EDIT",791)=""
^DIE("B","PRCB NEW TRANSACTION",751)=""
^DIE("B","PRCB RD2-285 ALL",752)=""
^DIE("B","PRCB READER FILE EDIT",754)=""
^DIE("B","PRCB STATUS FUNDS",759)=""
^DIE("B","PRCB VENDOR EDIT",755)=""
^DIE("B","PRCC CA2 10-2418 HEADER",328)=""
^DIE("B","PRCC CA2 10-2418D1",321)=""
^DIE("B","PRCC CA2 10-2418D2",322)=""
^DIE("B","PRCC CA2 10-2418D3",323)=""
^DIE("B","PRCC CA2 10-2418D3T",334)=""
^DIE("B","PRCC CA2 10-2418a",320)=""
^DIE("B","PRCD SUBSTATION",876)=""
^DIE("B","PRCE 1358 ADJUSTMENT",777)=""
^DIE("B","PRCE NEW 1358",778)=""
^DIE("B","PRCE NEW 1358S",795)=""
^DIE("B","PRCF CI BORROWER",757)=""
^DIE("B","PRCF CI CHECK-IN",758)=""
^DIE("B","PRCF CI FMS ACCOUNTING",785)=""
^DIE("B","PRCF CI VOUCHER AUDIT",756)=""
^DIE("B","PRCF FMS VENEDIT1",793)=""
^DIE("B","PRCF FMS VENEDIT1B",797)=""
^DIE("B","PRCF FMS VENEDIT2",794)=""
^DIE("B","PRCF FMS VENEDIT2B",798)=""
^DIE("B","PRCF SUB EDIT",604)=""
^DIE("B","PRCFA TT900.00",750)=""
^DIE("B","PRCFA TT920.00",662)=""
^DIE("B","PRCFA TT920.04",711)=""
^DIE("B","PRCFA TT920.41",776)=""
^DIE("B","PRCFA TT921.00",627)=""
^DIE("B","PRCFA TT921.20",633)=""
^DIE("B","PRCFA TT921.21",634)=""
^DIE("B","PRCFA TT921.26",635)=""
^DIE("B","PRCFA TT921.30",636)=""
^DIE("B","PRCFA TT921.31",712)=""
^DIE("B","PRCFA TT921.39",637)=""
^DIE("B","PRCFA TT921.41",638)=""
^DIE("B","PRCFA TT921.51",639)=""
^DIE("B","PRCFA TT921.53",640)=""
^DIE("B","PRCFA TT921.60",660)=""
^DIE("B","PRCFA TT921.71",631)=""
^DIE("B","PRCFA TT921.72",641)=""
^DIE("B","PRCFA TT921.91",642)=""
^DIE("B","PRCFA TT921.93",643)=""
^DIE("B","PRCFA TT921.94",644)=""
^DIE("B","PRCFA TT922.00",645)=""
^DIE("B","PRCFA TT922.01",674)=""
^DIE("B","PRCFA TT922.10",773)=""
^DIE("B","PRCFA TT922.21",779)=""
^DIE("B","PRCFA TT922.99",673)=""
^DIE("B","PRCFA TT923.01",647)=""
^DIE("B","PRCFA TT923.07",646)=""
^DIE("B","PRCFA TT924.00",628)=""
^DIE("B","PRCFA TT924.41",768)=""
^DIE("B","PRCFA TT925.01",648)=""
^DIE("B","PRCFA TT925.30",771)=""
^DIE("B","PRCFA TT928.01",649)=""
^DIE("B","PRCFA TT929.00",671)=""
^DIE("B","PRCFA TT929.30",775)=""
^DIE("B","PRCFA TT930.00",629)=""
^DIE("B","PRCFA TT930.21",650)=""
^DIE("B","PRCFA TT934.20",705)=""
^DIE("B","PRCFA TT938.00",630)=""
^DIE("B","PRCFA TT938.01",734)=""
^DIE("B","PRCFA TT938.07",735)=""
^DIE("B","PRCFA TT938.08",733)=""
^DIE("B","PRCFA TT938.09",769)=""
^DIE("B","PRCFA TT938.10",736)=""
^DIE("B","PRCFA TT938.21",737)=""
^DIE("B","PRCFA TT938.28",738)=""
^DIE("B","PRCFA TT938.30",739)=""
^DIE("B","PRCFA TT938.32",741)=""
^DIE("B","PRCFA TT938.41",740)=""
^DIE("B","PRCFA TT938.54",743)=""
^DIE("B","PRCFA TT938.55",742)=""
^DIE("B","PRCFA TT939.00",721)=""
^DIE("B","PRCFA TT939.10",722)=""
^DIE("B","PRCFA TT939.12",723)=""
^DIE("B","PRCFA TT939.43",724)=""
^DIE("B","PRCFA TT939.45",725)=""
^DIE("B","PRCFA TT941.00",675)=""
^DIE("B","PRCFA TT941.02",676)=""
^DIE("B","PRCFA TT942.31",677)=""
^DIE("B","PRCFA TT942.38",678)=""
^DIE("B","PRCFA TT944.01",679)=""
^DIE("B","PRCFA TT945.03",704)=""
^DIE("B","PRCFA TT945.04",680)=""
^DIE("B","PRCFA TT945.05",681)=""
^DIE("B","PRCFA TT946.00",682)=""
^DIE("B","PRCFA TT946.21",683)=""
^DIE("B","PRCFA TT951.00",651)=""
^DIE("B","PRCFA TT951.11",774)=""
^DIE("B","PRCFA TT951.21",700)=""
^DIE("B","PRCFA TT951.31",701)=""
^DIE("B","PRCFA TT951.51",702)=""
^DIE("B","PRCFA TT951.61",703)=""
^DIE("B","PRCFA TT952.01",684)=""
^DIE("B","PRCFA TT959.01",685)=""
^DIE("B","PRCFA TT960.00",632)=""
^DIE("B","PRCFA TT960.01",699)=""
^DIE("B","PRCFA TT961.00",686)=""
^DIE("B","PRCFA TT961.26",687)=""
^DIE("B","PRCFA TT961.71",688)=""
^DIE("B","PRCFA TT970.01",698)=""
^DIE("B","PRCFA TT970.02",689)=""
^DIE("B","PRCFA TT970.05",720)=""
^DIE("B","PRCFA TT970.06",772)=""
^DIE("B","PRCFA TT970.12",690)=""
^DIE("B","PRCFA TT970.20",691)=""
^DIE("B","PRCFA TT972.01",656)=""
^DIE("B","PRCFA TT972.04",706)=""
^DIE("B","PRCFA TT972.05",707)=""
^DIE("B","PRCFA TT972.06",672)=""
^DIE("B","PRCFA TT972.07",708)=""
^DIE("B","PRCFA TT972.11",657)=""
^DIE("B","PRCFA TT972.13",770)=""
^DIE("B","PRCFA TT972.14",709)=""
^DIE("B","PRCFA TT972.15",710)=""
^DIE("B","PRCFA TT972.16",696)=""
^DIE("B","PRCFA TT972.21",658)=""
^DIE("B","PRCFA TT972.51",697)=""
^DIE("B","PRCFA TT972.71",659)=""
^DIE("B","PRCFA TT973.00",663)=""
^DIE("B","PRCFA TT973.10",664)=""
^DIE("B","PRCFA TT973.11",665)=""
^DIE("B","PRCFA TT973.20",667)=""
^DIE("B","PRCFA TT973.30",666)=""
^DIE("B","PRCFA TT973.81",783)=""
^DIE("B","PRCFA TT974.00",668)=""
^DIE("B","PRCFA TT974.01",669)=""
^DIE("B","PRCFA TT974.21",670)=""
^DIE("B","PRCFA TT982.00",652)=""
^DIE("B","PRCFA TT983.00",653)=""
^DIE("B","PRCFA TT984.00",654)=""
^DIE("B","PRCFA TT986.00",655)=""
^DIE("B","PRCFA TT994.00",692)=""
^DIE("B","PRCFA TT994.01",693)=""
^DIE("B","PRCFA TT994.90",694)=""
^DIE("B","PRCFA TT998.01",695)=""
^DIE("B","PRCFACALM",591)=""
^DIE("B","PRCFACALM",787)=""
^DIE("B","PRCFACEDIT",661)=""
^DIE("B","PRCFMS:AO",369)=""
^DIE("B","PRCFMS:AT",376)=""
^DIE("B","PRCFMS:AV",366)=""
^DIE("B","PRCFMS:BD",364)=""
^DIE("B","PRCFMS:CO(CONTRACT ORDER)",368)=""
^DIE("B","PRCFMS:CONTROL",345)=""
^DIE("B","PRCFMS:CR",360)=""
^DIE("B","PRCFMS:CX",357)=""
^DIE("B","PRCFMS:DD",353)=""
^DIE("B","PRCFMS:DV",354)=""
^DIE("B","PRCFMS:IF",356)=""
^DIE("B","PRCFMS:IV",348)=""
^DIE("B","PRCFMS:MO",347)=""
^DIE("B","PRCFMS:MV",365)=""
^DIE("B","PRCFMS:NC",358)=""
^DIE("B","PRCFMS:OP",361)=""
^DIE("B","PRCFMS:PV",355)=""
^DIE("B","PRCFMS:RC",370)=""
^DIE("B","PRCFMS:RO",351)=""
^DIE("B","PRCFMS:RT",371)=""
^DIE("B","PRCFMS:RV",350)=""
^DIE("B","PRCFMS:SA",375)=""
^DIE("B","PRCFMS:SO",367)=""
^DIE("B","PRCFMS:ST",377)=""
^DIE("B","PRCFMS:SV",363)=""
^DIE("B","PRCFMS:TN",359)=""
^DIE("B","PRCFMS:TO",349)=""
^DIE("B","PRCFMS:TP",352)=""
^DIE("B","PRCFMS:TV",346)=""
^DIE("B","PRCFMS:TY",378)=""
^DIE("B","PRCFMS:TZ",379)=""
^DIE("B","PRCFMS:WR",362)=""
^DIE("B","PRCG PURGEMASTER SITE EDIT",1459)=""
^DIE("B","PRCH DELIVERY ORDER",1443)=""
^DIE("B","PRCH DELIVERY ORDER AMEND",1445)=""
^DIE("B","PRCH DETAILED PURCHASE CARD",1442)=""
^DIE("B","PRCH DIRECT DELIVERY ORDER",1447)=""
^DIE("B","PRCH NEW DEL FPDS",1705)=""
^DIE("B","PRCH NEW PC FPDS",1704)=""
^DIE("B","PRCH NEW PO FPDS",1706)=""
^DIE("B","PRCH PC DIRECT DELIVERY",1480)=""
^DIE("B","PRCH PROSTHETIC",1451)=""
^DIE("B","PRCH PURCHASE CARD",1250)=""
^DIE("B","PRCH PURCHASE CARD AMEND",1444)=""
^DIE("B","PRCH-DEP LOG 401",760)=""
^DIE("B","PRCH-REC7 LOG 431/434",761)=""
^DIE("B","PRCH2138",595)=""
^DIE("B","PRCHAMDESC",599)=""
^DIE("B","PRCHAMDISCNT",600)=""
^DIE("B","PRCHAMDISCOUNT",792)=""
^DIE("B","PRCHAMEND",597)=""
^DIE("B","PRCHAMENDAV",622)=""
^DIE("B","PRCHAMENDPRO",1452)=""
^DIE("B","PRCHAMENDPRO EDIT",1481)=""
^DIE("B","PRCHAMIT",598)=""
^DIE("B","PRCHAMPPP",601)=""
^DIE("B","PRCHAMT",621)=""
^DIE("B","PRCHAMT89",748)=""
^DIE("B","PRCHAMT89 NEW",1703)=""
^DIE("B","PRCHDEL",617)=""
^DIE("B","PRCHDISCNT",594)=""
^DIE("B","PRCHEDIT",596)=""
^DIE("B","PRCHFEDVEN",719)=""
^DIE("B","PRCHITEM",592)=""
^DIE("B","PRCHITEM2",1702)=""
^DIE("B","PRCHL100",716)=""
^DIE("B","PRCHL500",727)=""
^DIE("B","PRCHL501",715)=""
^DIE("B","PRCHL550",729)=""
^DIE("B","PRCHL551",744)=""
^DIE("B","PRCHL552",745)=""
^DIE("B","PRCHL604",762)=""
^DIE("B","PRCHL605",766)=""
^DIE("B","PRCHL607",767)=""
^DIE("B","PRCHL632",713)=""
^DIE("B","PRCHL642",765)=""
^DIE("B","PRCHL664",764)=""
^DIE("B","PRCHL666",714)=""
^DIE("B","PRCHL700",731)=""
^DIE("B","PRCHL710",730)=""
^DIE("B","PRCHL712",763)=""
^DIE("B","PRCHLINE",786)=""
^DIE("B","PRCHMAPP",796)=""
^DIE("B","PRCHNREQ",626)=""
^DIE("B","PRCHPC",603)=""
^DIE("B","PRCHPCR",618)=""
^DIE("B","PRCHPM DEPT EDIT",732)=""
^DIE("B","PRCHPPM",602)=""
^DIE("B","PRCHPROMPT",1446)=""
^DIE("B","PRCHPT",593)=""
^DIE("B","PRCHPUSH",749)=""
^DIE("B","PRCHQ RFQ REQUEST",1448)=""
^DIE("B","PRCHRQITM",790)=""
^DIE("B","PRCHSIMP",1441)=""
^DIE("B","PRCHSITE",589)=""
^DIE("B","PRCHSPD",588)=""
^DIE("B","PRCHVEN",789)=""
^DIE("B","PRCHVENDOR",590)=""
^DIE("B","PRCHVENDOR1",784)=""
^DIE("B","PRCHVENDORNOREACT",1541)=""
^DIE("B","PRCN2237",1427)=""
^DIE("B","PRCN2237E",1434)=""
^DIE("B","PRCNCMR",1428)=""
^DIE("B","PRCNEDIT",1433)=""
^DIE("B","PRCNENG",1440)=""
^DIE("B","PRCNPPE",1435)=""
^DIE("B","PRCNPPM",1431)=""
^DIE("B","PRCNPPM1",1439)=""
^DIE("B","PRCNPPM2",1438)=""
^DIE("B","PRCNRNK",1432)=""
^DIE("B","PRCNTICMR",1430)=""
^DIE("B","PRCNTIPED",1436)=""
^DIE("B","PRCNTIPPM",1437)=""
^DIE("B","PRCNTIRQ",1429)=""
^DIE("B","PRCO EDI VENDOR",780)=""
^DIE("B","PRCO EDI VENDOR",788)=""
^DIE("B","PRCP INVENTORY POINT",585)=""
^DIE("B","PRCP INVENTORY POINT (NON SS)",1588)=""
^DIE("B","PRCP INVENTORY POINT (SS)",1591)=""
^DIE("B","PRCP ITEM ALL FIELDS",586)=""
^DIE("B","PRCP ITEM ALL FIELDS (NON-SS)",1589)=""
^DIE("B","PRCP ITEM ALL FIELDS (SS)",1590)=""
^DIE("B","PRCP LEVELS",1568)=""
^DIE("B","PRCSCP",782)=""
^DIE("B","PRCSEDS",625)=""
^DIE("B","PRCSEN1358",611)=""
^DIE("B","PRCSEN1358A",747)=""
^DIE("B","PRCSEN1358S",614)=""
^DIE("B","PRCSEN2237B",607)=""
^DIE("B","PRCSEN2237S",609)=""
^DIE("B","PRCSENA",605)=""
^DIE("B","PRCSENA 1358",728)=""
^DIE("B","PRCSENC",608)=""
^DIE("B","PRCSENCAD",619)=""
^DIE("B","PRCSENCI",624)=""
^DIE("B","PRCSENCOD",606)=""
^DIE("B","PRCSENCODS",615)=""
^DIE("B","PRCSENCT",623)=""
^DIE("B","PRCSENE",726)=""
^DIE("B","PRCSENIB",718)=""
^DIE("B","PRCSENIBS",717)=""
^DIE("B","PRCSENMDR",746)=""
^DIE("B","PRCSENOD",620)=""
^DIE("B","PRCSENPR",610)=""
^DIE("B","PRCSENPRS",613)=""
^DIE("B","PRCSENR&NR",612)=""
^DIE("B","PRCSENR&NRS",616)=""
^DIE("B","PRCSRI",587)=""
^DIE("B","PRCT BASIC PARAM",579)=""
^DIE("B","PRCT DATA ENTER/EDIT/VIEW",581)=""
^DIE("B","PRCT PARAMETER (CREATOR)",580)=""
^DIE("B","PRCT PARAMETER (USER)",583)=""
^DIE("B","PRCT PROGRAM ENTER/EDIT",582)=""
^DIE("B","PRCT SPECIALTY COMMANDS",584)=""
^DIE("B","PRPF DEFERRAL EDIT",1469)=""
^DIE("B","PRPF FORMS EDIT",1471)=""
^DIE("B","PRPF INACTIVE/ACTIVE",1464)=""
^DIE("B","PRPF LONG REGISTRATION",1460)=""
^DIE("B","PRPF MULTIPLE AMT",1467)=""
^DIE("B","PRPF POST TRANSACTION",1462)=""
^DIE("B","PRPF PURGE PARAMETERS",1479)=""
^DIE("B","PRPF SELECTED DATA EDIT",1461)=""
^DIE("B","PRPF SHORT REGISTRATION",1463)=""
^DIE("B","PRPF SUSPENSE ENTER EDIT",1468)=""
^DIE("B","PRPF TEMP BCF AMTS",1470)=""
^DIE("B","PRPF TEMP MULTIPLE",1466)=""
^DIE("B","PRPF TEMP TRANS POST",1465)=""
^DIE("B","PSAENT",941)=""
^DIE("B","PSAGIP",942)=""
^DIE("B","PSD INV GROUP",940)=""
^DIE("B","PSGE AMS3 AMIS 157",317)=""
^DIE("B","PSGE AMS3 AMIS 158",316)=""
^DIE("B","PSGW AREA OF USE EDIT",936)=""
^DIE("B","PSGW ENTER/EDIT AMIS DATA",937)=""
^DIE("B","PSGW INACTIVATE ITEM",938)=""
^DIE("B","PSGW WARD INVENTORY",935)=""
^DIE("B","PSJ ECSP",923)=""
^DIE("B","PSJ FILED",930)=""
^DIE("B","PSJ IUP SUPER EDIT",933)=""
^DIE("B","PSJ IUP USER EDIT",932)=""
^DIE("B","PSJ IWP EDIT",927)=""
^DIE("B","PSJ OAOPT",917)=""
^DIE("B","PSJ SHIFT EDIT",915)=""
^DIE("B","PSJI SITE PARAMETERS",913)=""
^DIE("B","PSJIDE",911)=""
^DIE("B","PSJIEDT",924)=""
^DIE("B","PSJU DRUG EDIT",916)=""
^DIE("B","PSJU FILED",929)=""
^DIE("B","PSJU WG",918)=""
^DIE("B","PSJUMATE",909)=""
^DIE("B","PSJUOSE",934)=""
^DIE("B","PSO CLOZDRUG",873)=""
^DIE("B","PSO DISPLAY EDIT",875)=""
^DIE("B","PSO INTERACT",868)=""
^DIE("B","PSO INTERVENTION EDIT",871)=""
^DIE("B","PSO INTERVENTION NEW",870)=""
^DIE("B","PSO OUTPT",866)=""
^DIE("B","PSO OUTPTA",867)=""
^DIE("B","PSO PARTIAL",864)=""
^DIE("B","PSO SITE",869)=""
^DIE("B","PSOD DUE BUILD QUESTIONNAIRE",872)=""
^DIE("B","PSOD DUE EDIT",874)=""
^DIE("B","PSS CLOZDRUG",1515)=""
^DIE("B","PSS DOSAGE FORM",1618)=""
^DIE("B","PSS INTERACT",1514)=""
^DIE("B","PSS MEDICATION ROUTES",1619)=""
^DIE("B","PSS PD EDIT",1511)=""
^DIE("B","PSS SIGED",1510)=""
^DIE("B","PSS SYNONYM",1581)=""
^DIE("B","PSSCOMMON",1507)=""
^DIE("B","PSSIV ADD",1509)=""
^DIE("B","PSSJ EXT SCHEDULE EDIT",1513)=""
^DIE("B","PSSJ SCHEDULE EDIT",1512)=""
^DIE("B","PSSJIDE",1506)=""
^DIE("B","PSSOP",1508)=""
^DIE("B","PSX DRUG",939)=""
^DIE("B","PX LOCATION OF HOME",1013)=""
^DIE("B","PX SITE PARAMETER EDIT",1014)=""
^DIE("B","PXRM EDIT ELEMENT",1572)=""
^DIE("B","PXRM EDIT FINDING RULE",1687)=""
^DIE("B","PXRM EDIT FORCED VALUE",1576)=""
^DIE("B","PXRM EDIT GROUP",1574)=""
^DIE("B","PXRM EDIT NATIONAL DIALOG",1631)=""
^DIE("B","PXRM EDIT NATIONAL TERM",1580)=""
^DIE("B","PXRM EDIT PATIENT LIST RULE",1694)=""
^DIE("B","PXRM EDIT REMINDER CF",1577)=""
^DIE("B","PXRM EDIT REMINDER DIALOG",1573)=""
^DIE("B","PXRM EDIT REMINDER RULE",1689)=""
^DIE("B","PXRM EDIT REMINDER TERM",1575)=""
^DIE("B","PXRM EDIT REPORT OUTPUT RULE",1690)=""
^DIE("B","PXRM EDIT RULE SET",1688)=""
^DIE("B","PXRM EXTRACT COUNTING",1713)=""
^DIE("B","PXRM EXTRACT COUNTING GROUP",1714)=""
^DIE("B","PXRM EXTRACT DEFINITION",1712)=""
^DIE("B","PXRM RESULT ELEMENT",1578)=""
^DIE("B","PXRM RESULT GROUP",1579)=""
^DIE("B","PXTT EDIT HEALTH FACTORS",1011)=""
^DIE("B","PXTT EDIT PAT. EDUCATION",1012)=""
^DIE("B","QAC CONTACT ENTER/EDIT",1520)=""
^DIE("B","QAN ENTER TIME",1586)=""
^DIE("B","QAN QUICK EDIT",1587)=""
^DIE("B","QAQA QAC SITE PARAMETERS",1290)=""
^DIE("B","QAQA QAM SITE PARAMETERS",966)=""
^DIE("B","QAQA QAN SITE PARAMETERS",970)=""
^DIE("B","QAQA QAOS SITE PARAMETERS",968)=""
^DIE("B","QAQA QAQA SITE PARAMETERS",969)=""
^DIE("B","QAQA QARC SITE PARAMETERS",967)=""
^DIE("B","RA AMS1 AMIS 186",151)=""
^DIE("B","RA CANCEL",1074)=""
^DIE("B","RA COMMON PROCEDURE EDIT",1085)=""
^DIE("B","RA DIAGNOSTIC BY CASE",1065)=""
^DIE("B","RA DISTRIBUTION EDIT",1080)=""
^DIE("B","RA DISTRIBUTION LOG",1081)=""
^DIE("B","RA DIVISION PARAMETERS",1062)=""
^DIE("B","RA EXAM EDIT",1075)=""
^DIE("B","RA FLASH CARD EDIT",1063)=""
^DIE("B","RA IMAGE PARAMETERS",1076)=""
^DIE("B","RA LAST PAST VISIT",1079)=""
^DIE("B","RA LOCATION PARAMETERS",1064)=""
^DIE("B","RA NO PURGE SPECIFICATION",1082)=""
^DIE("B","RA OERR EDIT",1084)=""
^DIE("B","RA ON-LINE CRITERIA",1077)=""
^DIE("B","RA ORDER EXAM",1087)=""
^DIE("B","RA OUTSIDE ADD",1066)=""
^DIE("B","RA OUTSIDE EDIT",1067)=""
^DIE("B","RA OUTSIDE SUPEROK",1068)=""
^DIE("B","RA OVERRIDE",1078)=""
^DIE("B","RA PERSONNEL",1060)=""
^DIE("B","RA PRE-VERIFY REPORT EDIT",1088)=""
^DIE("B","RA PRE-VERIFY REPORT ONLY",1089)=""
^DIE("B","RA PROCEDURE EDIT",1059)=""
^DIE("B","RA QUICK EXAM ORDER",1086)=""
^DIE("B","RA REGISTER",1083)=""
^DIE("B","RA REPORT EDIT",1069)=""
^DIE("B","RA SITE MANAGER",1072)=""
^DIE("B","RA STANDARD REPORT ENTRY",1061)=""
^DIE("B","RA STATUS CHANGE",1071)=""
^DIE("B","RA STATUS ENTRY",1070)=""
^DIE("B","RA VERIFY REPORT ONLY",1073)=""
^DIE("B","RCAM ADDRESS EDIT",835)=""
^DIE("B","RCAM COMMENT",841)=""
^DIE("B","RCEV CLOSE EVENT",840)=""
^DIE("B","RCEV OPEN EVENT",839)=""
^DIE("B","RCFM CAF FILE ENTRIES",861)=""
^DIE("B","RCFM OPEN DOCUMENT",855)=""
^DIE("B","RCMS ACCT RECEIVABLE",851)=""
^DIE("B","RCMS BANK DEPOSIT",858)=""
^DIE("B","RCMS BILLING AGENCY",853)=""
^DIE("B","RCMS CASHIER",838)=""
^DIE("B","RCMS DEPT OF JUSTICE",850)=""
^DIE("B","RCMS EDI LOCKBOX",1652)=""
^DIE("B","RCMS FORM LETTER",831)=""
^DIE("B","RCMS IRS",837)=""
^DIE("B","RCMS NOTIFICATION",836)=""
^DIE("B","RCMS RATES",848)=""
^DIE("B","RCMS REGIONAL COUNSEL",1528)=""
^DIE("B","RCMS RETURN PAYMENT",854)=""
^DIE("B","RCMS SITE",852)=""
^DIE("B","RCMS SITE DEPOSIT",860)=""
^DIE("B","RGEQ NEW EXCEPTION",1546)=""
^DIE("B","RGEQ NEW STATISTIC",1547)=""
^DIE("B","RMIM FIM SITE PARAMETER",1646)=""
^DIE("B","RMPO ACT",1557)=""
^DIE("B","RMPO ADD/EDIT NON-ITEM",1559)=""
^DIE("B","RMPO-EDIT-SITE",1558)=""
^DIE("B","RMPR 2520",1320)=""
^DIE("B","RMPR AMS5 AMIS 120",241)=""
^DIE("B","RMPR AMS5 AMIS 121",242)=""
^DIE("B","RMPR AMS5 AMIS 122",243)=""
^DIE("B","RMPR AMS5 AMIS 123",244)=""
^DIE("B","RMPR AMS5 AMIS 124",245)=""
^DIE("B","RMPR AMS5 AMIS 125",246)=""
^DIE("B","RMPR AMS5 AMIS 126",247)=""
^DIE("B","RMPR AMS5 AMIS 127",248)=""
^DIE("B","RMPR AMS5 AMIS 128",249)=""
^DIE("B","RMPR AMS5 AMIS 129",250)=""
^DIE("B","RMPR AMS5 AMIS 130",251)=""
^DIE("B","RMPR AMS5 AMIS 131",252)=""
^DIE("B","RMPR AMS5 AMIS 132",253)=""
^DIE("B","RMPR AMS5 AMIS 133",254)=""
^DIE("B","RMPR AMS5 AMIS 134",255)=""
^DIE("B","RMPR AMS5 AMIS 135",256)=""
^DIE("B","RMPR AMS5 AMIS 136",257)=""
^DIE("B","RMPR AMS5 AMIS 137",258)=""
^DIE("B","RMPR AMS5 AMIS 138",259)=""
^DIE("B","RMPR AMS5 AMIS 139",260)=""
^DIE("B","RMPR AMS5 AMIS 150",261)=""
^DIE("B","RMPR AMS5 AMIS 173",262)=""
^DIE("B","RMPR AMS5 AMIS 174",263)=""
^DIE("B","RMPR AMS5 AMIS 362",264)=""
^DIE("B","RMPR AMS5 AMIS 363",335)=""
^DIE("B","RMPR EDIT STATION",1585)=""
^DIE("B","RMPR ENTER CONTRACT",1697)=""
^DIE("B","RMPR ENTER RECALL DATA",1669)=""
^DIE("B","RMPR ENTER WAVIER EXCLUDE",1696)=""
^DIE("B","RMPR FL 10-90 ADP",1322)=""
^DIE("B","RMPR ITEM EDIT",1316)=""
^DIE("B","RMPR PATIENT ADD",1317)=""
^DIE("B","RMPR4 PC",1323)=""
^DIE("B","RMPR55",1318)=""
^DIE("B","RMPRE2319",1321)=""
^DIE("B","RMPRE2319X",1560)=""
^DIE("B","RMPREYE",1319)=""
^DIE("B","RORHDT EDIT EXTRACTION",1707)=""
^DIE("B","RORHDT EDIT NATIONAL EXTRACT",1708)=""
^DIE("B","RORMNT EDIT LAB SEARCH",1636)=""
^DIE("B","RORMNT EDIT REG PARAMS",1633)=""
^DIE("B","RT ADMIT SET-UP (SITE MGR)",894)=""
^DIE("B","RT APPL SET-UP",880)=""
^DIE("B","RT APPL SET-UP (SITE MGR)",891)=""
^DIE("B","RT BORROWER SET-UP",897)=""
^DIE("B","RT CHANGE PULL LIST STATUS",888)=""
^DIE("B","RT CHANGE REQUEST STATUS",883)=""
^DIE("B","RT CHARGE",882)=""
^DIE("B","RT EDIT REQUEST",890)=""
^DIE("B","RT FILE ROOM SET-UP",895)=""
^DIE("B","RT FILE ROOM SET-UP (SITE MGR)",896)=""
^DIE("B","RT FILE ROOM/REMOTE",901)=""
^DIE("B","RT FOUND",886)=""
^DIE("B","RT LABEL EDIT",881)=""
^DIE("B","RT MISSING",885)=""
^DIE("B","RT MOVEMENT",884)=""
^DIE("B","RT MOVEMENT SET-UP",900)=""
^DIE("B","RT NEW RECORD",877)=""
^DIE("B","RT OVERALL PARAMETERS",893)=""
^DIE("B","RT PRINT FIELD SETUP",889)=""
^DIE("B","RT PULL LIST",892)=""
^DIE("B","RT PURGE PROFILE",899)=""
^DIE("B","RT QUICK UPDATE",898)=""
^DIE("B","RT REASON SET-UP",887)=""
^DIE("B","RT REQUEST",878)=""
^DIE("B","RT RETIREMENT PROFILE",902)=""
^DIE("B","RT TYPE SET-UP",879)=""
^DIE("B","SCCV CONV CANCEL",1566)=""
^DIE("B","SCCV CONV EDIT SITE PARAMS",1565)=""
^DIE("B","SCCV CONV FILE DELETION LOG",1567)=""
^DIE("B","SCCV CREATE TEMPLATE",1564)=""
^DIE("B","SCCV EDIT TEMPLATE",1562)=""
^DIE("B","SCCV SCHEDULE REQUEST",1563)=""
^DIE("B","SD AMS1 AMIS223",312)=""
^DIE("B","SD ASSOCIATED STOP",1711)=""
^DIE("B","SD ENCOUNTER ENTRY",493)=""
^DIE("B","SD ENCOUNTER LOG",1540)=""
^DIE("B","SD IMO",1709)=""
^DIE("B","SDAM ADD LOG",492)=""
^DIE("B","SDAMBT",491)=""
^DIE("B","SDB",485)=""
^DIE("B","SDM1",486)=""
^DIE("B","SDXACSE",490)=""
^DIE("B","SOWK AMS3 AMIS 257",148)=""
^DIE("B","SOWK AMS3 AMIS 258",149)=""
^DIE("B","SOWK AMS3 AMIS 361",150)=""
^DIE("B","SOWKADDT",1292)=""
^DIE("B","SOWKBHED",1304)=""
^DIE("B","SOWKCADT",1293)=""
^DIE("B","SOWKCHAT",1296)=""
^DIE("B","SOWKCLINICS",1303)=""
^DIE("B","SOWKCLOT",1298)=""
^DIE("B","SOWKCMRT",1299)=""
^DIE("B","SOWKCWKT",1294)=""
^DIE("B","SOWKDBCLS",1305)=""
^DIE("B","SOWKDBDPN",1306)=""
^DIE("B","SOWKDBEDU",1308)=""
^DIE("B","SOWKDBEMP",1307)=""
^DIE("B","SOWKDBIPA",1314)=""
^DIE("B","SOWKDBLE",1311)=""
^DIE("B","SOWKDBMIL",1309)=""
^DIE("B","SOWKDBPRO",1313)=""
^DIE("B","SOWKDBPSY",1315)=""
^DIE("B","SOWKDBSOC",1310)=""
^DIE("B","SOWKDBSUB",1312)=""
^DIE("B","SOWKDELT",1295)=""
^DIE("B","SOWKEDIT",1302)=""
^DIE("B","SOWKNWRK",1291)=""
^DIE("B","SOWKOPEN",1297)=""
^DIE("B","SOWKSITE",1300)=""
^DIE("B","SOWKSPF",1301)=""
^DIE("B","SPNL SCD NATIONAL REGISTRY",1325)=""
^DIE("B","SPNL SCD SITE PARAMETERS",1324)=""
^DIE("B","SR AMS3 AMIS 177",147)=""
^DIE("B","SREQUEST",1246)=""
^DIE("B","SRISK-MISC",1241)=""
^DIE("B","SRISK-NOCARD",1243)=""
^DIE("B","SRISK-NOCOMP",1242)=""
^DIE("B","SRNON-OR",1239)=""
^DIE("B","SRO-NOCOMP",1245)=""
^DIE("B","SRO-ROOM",1238)=""
^DIE("B","SROALAB",1718)=""
^DIE("B","SROANES-AMIS",1234)=""
^DIE("B","SROARPT",1667)=""
^DIE("B","SROCOMP",1236)=""
^DIE("B","SROMEN-ANES",1222)=""
^DIE("B","SROMEN-ANES TECH",1226)=""
^DIE("B","SROMEN-COMP",1231)=""
^DIE("B","SROMEN-OPER",1225)=""
^DIE("B","SROMEN-OUT",1223)=""
^DIE("B","SROMEN-PACU",1233)=""
^DIE("B","SROMEN-POST",1224)=""
^DIE("B","SROMEN-REFER",1227)=""
^DIE("B","SROMEN-STAFF",1220)=""
^DIE("B","SROMEN-START",1237)=""
^DIE("B","SRONRPT",1666)=""
^DIE("B","SROTHER",1244)=""
^DIE("B","SROVER",1232)=""
^DIE("B","SRPARAM",1240)=""
^DIE("B","SRSCHED-UNREQUESTED",1247)=""
^DIE("B","SRSREQV",1235)=""
^DIE("B","SRSRES-ENTRY",1221)=""
^DIE("B","SRSRES-SCHED",1229)=""
^DIE("B","SRSRES1",1228)=""
^DIE("B","SRSRES2",1230)=""
^DIE("B","TIU BASIC PARAMETER EDIT",1494)=""
^DIE("B","TIU DOCUMENT PARAMETER EDIT",1499)=""
^DIE("B","TIU EDIT DOCUMENT TYPE",1492)=""
^DIE("B","TIU ENTER/EDIT CLINPROC RESULT",1637)=""
^DIE("B","TIU ENTER/EDIT CONSULT RESULT",1500)=""
^DIE("B","TIU ENTER/EDIT DS",1491)=""
^DIE("B","TIU ENTER/EDIT PERSONAL LIST",1501)=""
^DIE("B","TIU ENTER/EDIT PRF",1710)=""
^DIE("B","TIU ENTER/EDIT PROGRESS NOTE",1493)=""
^DIE("B","TIU ENTER/EDIT SEARCH CATEGORY",1496)=""
^DIE("B","TIU ENTER/EDIT SURGICAL REPORT",1665)=""
^DIE("B","TIU UPLOAD FIELD EDIT",1497)=""
^DIE("B","TIU UPLOAD PARAMETER EDIT",1495)=""
^DIE("B","TIUF UPLOAD FIELD EDIT",1498)=""
^DIE("B","TIUZ ENTER/EDIT PN",1502)=""
^DIE("B","USR CLASS EDIT",1487)=""
^DIE("B","USR CLASS STRUCTURE EDIT",1490)=""
^DIE("B","USR DEFINE AUTHORIZATIONS",1488)=""
^DIE("B","USR MEMBERSHIP EDIT",1489)=""
^DIE("B","VALM ADD/EDIT LIST TEMPLATE",402)=""
^DIE("B","VALM CAPTION EDIT",408)=""
^DIE("B","VALM DEMOGRAPHICS EDIT",403)=""
^DIE("B","VALM LIST REGION EDIT",404)=""
^DIE("B","VALM MUMPS CODE EDIT",407)=""
^DIE("B","VALM NEW ENTRY DEFAULTS",410)=""
^DIE("B","VALM OTHER FIELDS",406)=""
^DIE("B","VALM PROTOCOL EDIT",409)=""
^DIE("B","VALM PROTOCOL INFORMATION",405)=""
^DIE("B","VAQ EDIT FILE",943)=""
^DIE("B","VAQ EDIT FILE",944)=""
^DIE("B","VAQ EDIT FILE",945)=""
^DIE("B","VAQ EDIT FILE",946)=""
^DIE("B","VAQ EDIT FILE",947)=""
^DIE("B","VAQ EDIT FILE",950)=""
^DIE("B","VAQ EDIT FILE (PRIVATE)",948)=""
^DIE("B","VAQ EDIT FILE (PUBLIC)",949)=""
^DIE("B","VOLU VOL2 01 ADD NEW VOL",292)=""
^DIE("B","VOLU VOL2 02 ADD NEW VOL",293)=""
^DIE("B","VOLU VOL2 03 CHANGE VOL DATA",304)=""
^DIE("B","VOLU VOL2 03 REACTIVATE VOL",294)=""
^DIE("B","VOLU VOL2 03 TERMINATE VOL",295)=""
^DIE("B","VOLU VOL2 04 CHANGE VOL DATA",296)=""
^DIE("B","VOLU VOL2 04 DELETE COMB",297)=""
^DIE("B","VOLU VOL2 05 ADD NEW VOL",298)=""
^DIE("B","VOLU VOL2 08 CORRECT COMB",299)=""
^DIE("B","VOLU VOL2 09 DELETE VOL",300)=""
^DIE("B","VOLU VOL2 10 CHANGE COMB",301)=""
^DIE("B","VOLU VOL2 10 DELETE COMB",302)=""
^DIE("B","VOLU VOL2 11 CORRECT COMB",303)=""
^DIE("B","VSITTRAK",1010)=""
^DIE("B","XDR DUPLICATE RESOLUTION EDIT",29)=""
^DIE("B","XOBU SITE PARAMETERS",1653)=""
^DIE("B","XOBV LISTENER CONFIG EDIT",1654)=""
^DIE("B","XPAR MULTI VALUED CREATE",1543)=""
^DIE("B","XPAR SINGLE VALUED CREATE",1542)=""
^DIE("B","XPD EDIT BUILD",1)=""
^DIE("B","XQSMD SET PREFIX",16)=""
^DIE("B","XTKERMIT-1",23)=""
^DIE("B","XTLK EDIT KEY",28)=""
^DIE("B","XTLK EDIT LOOKUP",27)=""
^DIE("B","XTLK EDIT SHORT",25)=""
^DIE("B","XTLK EDIT SYN",26)=""
^DIE("B","XTPM COMPLETE NON-KIDS PATCH",1698)=""
^DIE("B","XTPM EDIT PATCH",1699)=""
^DIE("B","XTPM EDIT PATCH MONITOR PARAMS",1700)=""
^DIE("B","XTV EDIT VERIF PACKAGE",24)=""
^DIE("B","XU KSP INIT",20)=""
^DIE("B","XU ROUTINE DOC",6)=""
^DIE("B","XU-ZISPL1",5)=""
^DIE("B","XU-ZTMSCHEDULE",2)=""
^DIE("B","XUAUDIT",19)=""
^DIE("B","XUCRT",17)=""
^DIE("B","XUCS SITE EDIT",30)=""
^DIE("B","XUCS VOL GROUP EDIT",31)=""
^DIE("B","XUEDIT CHARACTERISTICS",10)=""
^DIE("B","XUEDITOPT",3)=""
^DIE("B","XUEXISTING USER",9)=""
^DIE("B","XUHFSDEV",13)=""
^DIE("B","XUMF IMF EDIT",1661)=""
^DIE("B","XUMF MFP EDIT",1695)=""
^DIE("B","XUNEW USER",8)=""
^DIE("B","XUPRT",18)=""
^DIE("B","XUPRTL INPUT",1715)=""
^DIE("B","XUREACT USER",1248)=""
^DIE("B","XUSDPDEV",14)=""
^DIE("B","XUSER PC BUILD",1249)=""
^DIE("B","XUSERDEACT",22)=""
^DIE("B","XUSITEPARM",21)=""
^DIE("B","XUSPLDEV",15)=""
^DIE("B","XWB LISTENER EDIT",1561)=""
^DIE("B","YS AMS5 169",164)=""
^DIE("B","YS AMS5 171",165)=""
^DIE("B","YS AMS5 172",174)=""
^DIE("B","YS AMS5 222",166)=""
^DIE("B","YS AMS5 229",167)=""
^DIE("B","YS AMS5 311",168)=""
^DIE("B","YS AMS5 312",169)=""
^DIE("B","YS AMS5 313",170)=""
^DIE("B","YS AMS5 314",329)=""
^DIE("B","YS AMS5 315",171)=""
^DIE("B","YS AMS5 316",172)=""
^DIE("B","YS AMS5 317",173)=""
^DIE("B","YS AMS5 318",330)=""
^DIE("B","YS AMS5 319",332)=""
^DIE("B","YS AMS5 324",331)=""
^DIE("B","YSCEN UNIT DEF",987)=""
^DIE("B","YSDD DDC5 5333",339)=""
^DIE("B","YSDD DDC5 5334",338)=""
^DIE("B","YSDD DDC5 5335",340)=""
^DIE("B","YSDD DDC5 5356",336)=""
^DIE("B","YSDD DDC5 5357",337)=""
^DIE("B","YSDD DDC5 53CO",341)=""
^DIE("F100.23","OR PRINT FORMAT EDIT",395)="1"
^DIE("F100.5","OREV CHILD EVENT",1641)="1"
^DIE("F100.5","OREV EVENT",1638)="1"
^DIE("F100.6","OREV AUTO DC",1639)="1"
^DIE("F100.98","OR EDIT",388)="1"
^DIE("F100.98","OR MEMBER",389)="1"
^DIE("F100.99","OR EDIT PACKAGE",391)="1"
^DIE("F100.99","ORCL PARAMETER EDIT",396)="1"
^DIE("F101","HL MESSAGING PROTOCOL EDIT",385)="1"
^DIE("F101","OR ACTIVATE ITEMS",397)="1"
^DIE("F101","OR ADV MENU",394)="1"
^DIE("F101","OR EDIT MENU",392)="1"
^DIE("F101","OR EDIT PROTOCOL",390)="1"
^DIE("F101","OR PROFILE",393)="1"
^DIE("F101","ORCL ADV MENU EDIT",399)="1"
^DIE("F101","ORCL PROTOCOL MENU",398)="1"
^DIE("F101","VALM PROTOCOL EDIT",409)="1"
^DIE("F101","XUPRTL INPUT",1715)="1"
^DIE("F1020.1","PPP EDIT FILE",956)="1"
^DIE("F114","FHINPR",32)="1"
^DIE("F115","FHSEL",37)="1"
^DIE("F115.7","FHASE",33)="1"
^DIE("F115.7","FHMASE",1657)="1"
^DIE("F117","FHADM2",35)="1"
^DIE("F117","FHMADM2",1655)="1"
^DIE("F117.1","FHADM4",34)="1"
^DIE("F117.1","FHMADM4",1656)="1"
^DIE("F117.2","FHCMSR",38)="1"
^DIE("F119.9","FHSITEC1",36)="1"
^DIE("F120.57","GMRV SITE FILE EDIT",992)="1"
^DIE("F123.3","GMRC PROCEDURE SETUP",1592)="1"
^DIE("F123.5","GMRC SERVICE USER MGMT",412)="1"
^DIE("F123.5","GMRC SETUP REQUEST SERVICE",411)="1"
^DIE("F123.5","SD ASSOCIATED STOP",1711)="1"
^DIE("F124.2","GMRG EDIT TERM",1009)="1"
^DIE("F130","SREQUEST",1246)="1"
^DIE("F130","SRISK-MISC",1241)="1"
^DIE("F130","SRISK-NOCARD",1243)="1"
^DIE("F130","SRISK-NOCOMP",1242)="1"
^DIE("F130","SRNON-OR",1239)="1"
^DIE("F130","SRO-NOCOMP",1245)="1"
^DIE("F130","SROANES-AMIS",1234)="1"
^DIE("F130","SROARPT",1667)="1"
^DIE("F130","SROCOMP",1236)="1"
^DIE("F130","SROMEN-ANES",1222)="1"
^DIE("F130","SROMEN-ANES TECH",1226)="1"
^DIE("F130","SROMEN-COMP",1231)="1"
^DIE("F130","SROMEN-OPER",1225)="1"
^DIE("F130","SROMEN-OUT",1223)="1"
^DIE("F130","SROMEN-PACU",1233)="1"
^DIE("F130","SROMEN-POST",1224)="1"
^DIE("F130","SROMEN-REFER",1227)="1"
^DIE("F130","SROMEN-STAFF",1220)="1"
^DIE("F130","SROMEN-START",1237)="1"
^DIE("F130","SRONRPT",1666)="1"
^DIE("F130","SROTHER",1244)="1"
^DIE("F130","SROVER",1232)="1"
^DIE("F130","SRSCHED-UNREQUESTED",1247)="1"
^DIE("F130","SRSREQV",1235)="1"
^DIE("F130","SRSRES-ENTRY",1221)="1"
^DIE("F130","SRSRES-SCHED",1229)="1"
^DIE("F130","SRSRES1",1228)="1"
^DIE("F130","SRSRES2",1230)="1"
^DIE("F131.7","SRO-ROOM",1238)="1"
^DIE("F133","SRPARAM",1240)="1"
^DIE("F139.2","SROALAB",1718)="1"
^DIE("F142","GMTS DELETE HLTH SUM TYPE",401)="1"
^DIE("F142","GMTS EDIT EXIST HS TYPE",1643)="1"
^DIE("F142","GMTS EDIT HLTH SUM TYPE",400)="1"
^DIE("F15.1","XDR DUPLICATE RESOLUTION EDIT",29)="1"
^DIE("F150.9","VSITTRAK",1010)="1"
^DIE("F154.91","SPNL SCD NATIONAL REGISTRY",1325)="1"
^DIE("F154.91","SPNL SCD SITE PARAMETERS",1324)="1"
^DIE("F160","ONCO DEATH",1255)="1"
^DIE("F160","ONCO FOLL ATTEMPT",1259)="1"
^DIE("F160","ONCO FOLL-ADD CONTACT",1253)="1"
^DIE("F160","ONCO FOLLOWUP",1254)="1"
^DIE("F161","FB UNAUTHORIZED EDIT",1057)="1"
^DIE("F161","FB UNAUTHORIZED UPDATE",1047)="1"
^DIE("F161","FB UNAUTHORIZED UPDATE1",1058)="1"
^DIE("F161","FBAA AUTHORIZATION",1015)="1"
^DIE("F161","FBAA REPORT OF CONTACT",1018)="1"
^DIE("F161","FBNH EDIT AUTHORIZATION",1035)="1"
^DIE("F161","FBNH ENTER AUTHORIZATION",1033)="1"
^DIE("F161.2","FB VENDOR UPDATE",1055)="1"
^DIE("F161.2","FBAA EDIT VENDOR",1016)="1"
^DIE("F161.2","FBAA NEW VENDOR",1017)="1"
^DIE("F161.21","FBNH ENTER CONTRACT",1042)="1"
^DIE("F161.25","FBAA VENDOR MRA",1045)="1"
^DIE("F161.3","FBAA LETTERS",1022)="1"
^DIE("F161.4","FBAA SITE PARAMETERS",1021)="1"
^DIE("F161.5","FBCH ADD ROC",1039)="1"
^DIE("F161.5","FBCH EDIT ROC",1040)="1"
^DIE("F161.5","FBCH ENTER ROC",1038)="1"
^DIE("F161.7","FB CH OPEN BATCH",1034)="1"
^DIE("F161.7","FB CHNH OPEN BATCH",1027)="1"
^DIE("F161.7","FBAA BATCH EDIT",1020)="1"
^DIE("F161.7","FBAA MED IFCAP",1028)="1"
^DIE("F161.7","FBAA PHARM IFCAP",1029)="1"
^DIE("F161.7","FBAA TRAV IFCAP",1030)="1"
^DIE("F162.1","FB ADD RX",1056)="1"
^DIE("F162.1","FBAA INVOICE EDIT",1019)="1"
^DIE("F162.2","FBCH ENTER REQUEST",1023)="1"
^DIE("F162.2","FBCH REOPEN REQUEST",1041)="1"
^DIE("F162.4","FBCH EDIT 7078",1037)="1"
^DIE("F162.4","FBCH ENTER 7078",1024)="1"
^DIE("F162.4","FBNH ENTER 7078",1032)="1"
^DIE("F162.5","FBCH EDIT PAYMENT",1026)="1"
^DIE("F162.5","FBCH ENTER PAYMENT",1025)="1"
^DIE("F162.5","FBNH EDIT PAYMENT",1036)="1"
^DIE("F162.7","FB UNAUTHORIZED APPEAL",1049)="1"
^DIE("F162.7","FB UNAUTHORIZED APPEAL EDIT",1050)="1"
^DIE("F162.7","FB UNAUTHORIZED COVA APPEAL",1051)="1"
^DIE("F162.7","FB UNAUTHORIZED DISPOSITION",1052)="1"
^DIE("F162.7","FB UNAUTHORIZED EDIT",1048)="1"
^DIE("F162.7","FB UNAUTHORIZED ENTER",1043)="1"
^DIE("F162.7","FB UNAUTHORIZED LETTER UPDATE",1054)="1"
^DIE("F162.7","FB UNAUTHORIZED PREVIOUS",1053)="1"
^DIE("F162.7","FB UNAUTHORIZED UPDATE",1046)="1"
^DIE("F162.8","FB UNAUTHORIZED PENDING",1044)="1"
^DIE("F163.99","FBAA EDIT SCHEDULE",1031)="1"
^DIE("F165","ONCO UPDATE CONTACT",1260)="1"
^DIE("F165.1","ONCO FOLL ADD/EDIT LETTER",1251)="1"
^DIE("F165.5","ONCO ABSTRACT-I",1263)="1"
^DIE("F165.5","ONCO RECURRENCE FOLLOWUP",1262)="1"
^DIE("F165.5","ONCO UTL CORRECT DATA",1261)="1"
^DIE("F177100.12","AWCM EDIT PARAM FILE",1660)="1"
^DIE("F18.01","XOBU SITE PARAMETERS",1653)="1"
^DIE("F18.03","XOBV LISTENER CONFIG EDIT",1654)="1"
^DIE("F19","XU-ZTMSCHEDULE",2)="1"
^DIE("F19","XUEDITOPT",3)="1"
^DIE("F190","RT CHARGE",882)="1"
^DIE("F190","RT NEW RECORD",877)="1"
^DIE("F190.1","RT CHANGE REQUEST STATUS",883)="1"
^DIE("F190.1","RT EDIT REQUEST",890)="1"
^DIE("F190.1","RT REQUEST",878)="1"
^DIE("F190.2","RT FOUND",886)="1"
^DIE("F190.2","RT MISSING",885)="1"
^DIE("F190.3","RT MOVEMENT",884)="1"
^DIE("F194.2","RT CHANGE PULL LIST STATUS",888)="1"
^DIE("F194.2","RT PULL LIST",892)="1"
^DIE("F194.4","RT LABEL EDIT",881)="1"
^DIE("F194.5","RT PRINT FIELD SETUP",889)="1"
^DIE("F195.1","RT APPL SET-UP",880)="1"
^DIE("F195.1","RT APPL SET-UP (SITE MGR)",891)="1"
^DIE("F195.2","RT PURGE PROFILE",899)="1"
^DIE("F195.2","RT RETIREMENT PROFILE",902)="1"
^DIE("F195.2","RT TYPE SET-UP",879)="1"
^DIE("F195.3","RT MOVEMENT SET-UP",900)="1"
^DIE("F195.4","RT OVERALL PARAMETERS",893)="1"
^DIE("F195.6","RT REASON SET-UP",887)="1"
^DIE("F195.9","RT ADMIT SET-UP (SITE MGR)",894)="1"
^DIE("F195.9","RT BORROWER SET-UP",897)="1"
^DIE("F195.9","RT FILE ROOM SET-UP",895)="1"
^DIE("F195.9","RT FILE ROOM SET-UP (SITE MGR)",896)="1"
^DIE("F195.9","RT FILE ROOM/REMOTE",901)="1"
^DIE("F195.9","RT QUICK UPDATE",898)="1"
^DIE("F2","A1CK VARO/DHCP",1505)="1"
^DIE("F2","DG CONSISTENCY CHECKER",421)="1"
^DIE("F2","DG EMPLOYER",413)="1"
^DIE("F2","DG LOAD EDIT SCREEN 7",420)="1"
^DIE("F2","DGCOLLATERAL",418)="1"
^DIE("F2","DGREG",414)="1"
^DIE("F2","DGREGE",415)="1"
^DIE("F2","DGREGEO",416)="1"
^DIE("F2","DGRP COLLATERAL REGISTER",422)="1"
^DIE("F2","DGRPT 10-10T REGISTRATION",1476)="1"
^DIE("F2","DVBA C ADD 2507 PAT",965)="1"
^DIE("F2","DVBA ELIGIBILITY EDIT",961)="1"
^DIE("F2","DVBHINQ UPDATE",960)="1"
^DIE("F2","FBAA ADDRESS EDIT",417)="1"
^DIE("F2","IBCN PATIENT INSURANCE",1717)="1"
^DIE("F2","PSO OUTPT",866)="1"
^DIE("F2","PSO OUTPTA",867)="1"
^DIE("F2","SDM1",486)="1"
^DIE("F200","*XUFILERANGE",12)="1"
^DIE("F200","*XUFILESINGLE",11)="1"
^DIE("F200","ESP POLICE EDIT",1282)="1"
^DIE("F200","OR USER ACCESS OPTIONS",1640)="1"
^DIE("F200","RA PERSONNEL",1060)="1"
^DIE("F200","SOWKNWRK",1291)="1"
^DIE("F200","XQSMD SET PREFIX",16)="1"
^DIE("F200","XUEDIT CHARACTERISTICS",10)="1"
^DIE("F200","XUEXISTING USER",9)="1"
^DIE("F200","XUNEW USER",8)="1"
^DIE("F200","XUREACT USER",1248)="1"
^DIE("F200","XUSER PC BUILD",1249)="1"
^DIE("F200","XUSERDEACT",22)="1"
^DIE("F2005","MAG IMAGE INDEX EDIT",1645)="1"
^DIE("F2005.2","MAG ENTER/EDIT MUSE NETWORK",1604)="1"
^DIE("F2005.2","MAG ENTER/EDIT NETWORK LOC",1598)="1"
^DIE("F2006.1","MAG MUSE PARAMETERS",1603)="1"
^DIE("F2006.1","MAG PURGE PARAMETERS",1600)="1"
^DIE("F2006.1","MAG SITE PARAMETERS",1596)="1"
^DIE("F2006.575","MAGD-ENTRY",1602)="1"
^DIE("F2006.575","MAGD-UPDT",1601)="1"
^DIE("F2006.631","MAGJ LIST EDIT",1626)="1"
^DIE("F2006.65","MAGJ PRIOR EDIT",1627)="1"
^DIE("F2006.8","MAG EDIT BACKGRND WORKSTA",1599)="1"
^DIE("F2040","ANRVEID",1533)="1"
^DIE("F2040","ANRVRE",1532)="1"
^DIE("F2041","ANRV PARAM EDIT",1539)="1"
^DIE("F2041","ANRV VIST PARM",1534)="1"
^DIE("F2041.7","ANRV EDIT CHECKLIST",1536)="1"
^DIE("F2042.5","ANRVRRE",1537)="1"
^DIE("F2043","ANRV EDIT LETTER",1535)="1"
^DIE("F2043.5","ANRVACE",1538)="1"
^DIE("F210","NURSAED-I-CED",1000)="1"
^DIE("F210","NURSAED-I-EDUCATION",1002)="1"
^DIE("F210","NURSAED-I-STAFF1",1001)="1"
^DIE("F210","NURSAED-I-STAFF10",998)="1"
^DIE("F210","NURSAED-I-STAFF11",999)="1"
^DIE("F210","NURSAED-I-STAFF2",994)="1"
^DIE("F210","NURSAED-I-STAFF3",995)="1"
^DIE("F210","NURSAED-I-STAFF4",996)="1"
^DIE("F210","NURSAED-I-STAFF5",997)="1"
^DIE("F210","NURSAED-I-STAFF6",1005)="1"
^DIE("F210","NURSAED-I-STAFF7",1006)="1"
^DIE("F210","NURSAED-I-STAFF8",1007)="1"
^DIE("F210","NURSAED-I-STAFFPD",1004)="1"
^DIE("F210","NURSAED-I-STAFFPR",1003)="1"
^DIE("F2100","A4CG AMS4 BMS CONTRACT HRS",152)="1"
^DIE("F2100","A4CG AMS4 BMS ENVIR CARE",154)="1"
^DIE("F2100","A4CG AMS4 BMS HRS WORKED",153)="1"
^DIE("F2100","A4CG AMS4 BMS TEXTILE CARE",155)="1"
^DIE("F2100","A4CG AMS4 CHAP FUNDS",157)="1"
^DIE("F2100","A4CG AMS4 CHAP MONTHLY",156)="1"
^DIE("F2100","A4CG AMS4 MMP QUARTERLY",158)="1"
^DIE("F2100","A4CG AMS4 NURS FTEE",163)="1"
^DIE("F2100","A4CG AMS4 NURS MANHOURS",162)="1"
^DIE("F2100","A4CG AMS4 NURS MANPOWER",161)="1"
^DIE("F2100","A4CG AMS4 REC DIRECT",159)="1"
^DIE("F2100","A4CG AMS4 REC INDIRECT",160)="1"
^DIE("F2100","DG AMS1 AMIS",308)="1"
^DIE("F2100","DG AMS1 AMIS 334",310)="1"
^DIE("F2100","DG AMS1 AMIS 336",311)="1"
^DIE("F2100","DG AMS1 AMIS 345",309)="1"
^DIE("F2100","DG AMS1 AMIS 400",313)="1"
^DIE("F2100","DG AMS1 AMIS 420",314)="1"
^DIE("F2100","DG AMS1C AMIS 167",315)="1"
^DIE("F2100","DG AMS1D AMIS 290",307)="1"
^DIE("F2100","ESP AMS7 196",305)="1"
^DIE("F2100","FB AMS1 RCS 18-3",306)="1"
^DIE("F2100","FB AMS1A AMIS 344",145)="1"
^DIE("F2100","FB AMS1A AMIS 349",144)="1"
^DIE("F2100","FB AMS1A AMIS 350",146)="1"
^DIE("F2100","FB FEEBASIS-IFCAP 994.00",373)="1"
^DIE("F2100","FB FEEBASIS-IFCAP 994.01",372)="1"
^DIE("F2100","FB FEEBASIS-IFCAP 994.90",374)="1"
^DIE("F2100","FH AMS4 224",318)="1"
^DIE("F2100","GECO FORM2 REQUISITION",291)="1"
^DIE("F2100","GECO HBHC2 DISCHARGE FORM 5",290)="1"
^DIE("F2100","GECO HBHC2 EVAL/ADM FORM 3",288)="1"
^DIE("F2100","GECO HBHC2 VISIT LOG FORM 4",289)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 1",277)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 2",278)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 3",279)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 4",280)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 5",281)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 6",282)="1"
^DIE("F2100","GECO NSY4 STAFF MGMT - 7",283)="1"
^DIE("F2100","GECO PER4 RECRUITMENT",326)="1"
^DIE("F2100","GECO PER4 VACANT POSITIONS",327)="1"
^DIE("F2100","GECO PHY4 PHYSICIAN PART-1",274)="1"
^DIE("F2100","GECO PHY4 PHYSICIAN PART-2",273)="1"
^DIE("F2100","GECO PHY4 PHYSICIAN PART-3",275)="1"
^DIE("F2100","GECO PHY4 PHYSICIAN PART-4",276)="1"
^DIE("F2100","GECO WGE4 BLS FORM",284)="1"
^DIE("F2100","GECO WGE4 CONT FORM",287)="1"
^DIE("F2100","GECO WGE4 DATA FORM",286)="1"
^DIE("F2100","GECO WGE4 EI FORM",285)="1"
^DIE("F2100","GECO WGE4 PARAMETERS",325)="1"
^DIE("F2100","GECS KEYPUNCH",143)="1"
^DIE("F2100","LR AMS5 ADMIN DATA H01",176)="1"
^DIE("F2100","LR AMS5 ADMIN DATA J08",239)="1"
^DIE("F2100","LR AMS5 AFIPA 378",175)="1"
^DIE("F2100","LR AMS5 AUTO CHEM H02-H18",177)="1"
^DIE("F2100","LR AMS5 AUTO CHEM H19-H76",187)="1"
^DIE("F2100","LR AMS5 AUTO CHEM H77-H85",188)="1"
^DIE("F2100","LR AMS5 BB MAN & AUTO H28",184)="1"
^DIE("F2100","LR AMS5 BB MAN & AUTO H29",185)="1"
^DIE("F2100","LR AMS5 BG & CHEM H87",225)="1"
^DIE("F2100","LR AMS5 BLOOD BANK H84",223)="1"
^DIE("F2100","LR AMS5 BLOOD BANK H86",224)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H46",195)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H48",197)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H50",199)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H52",201)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H54",203)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H56",205)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H58",207)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H60",209)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H62",211)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H64",213)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H66",215)="1"
^DIE("F2100","LR AMS5 CHEM MAN & AUTO H68",217)="1"
^DIE("F2100","LR AMS5 CHEM MAN TESTS H15",178)="1"
^DIE("F2100","LR AMS5 CHEM MAN TESTS H16",179)="1"
^DIE("F2100","LR AMS5 CHEM MAN TESTS H17",180)="1"
^DIE("F2100","LR AMS5 CYTOLOGY H96",234)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H47",196)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H49",198)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H51",200)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H53",202)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H55",204)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H57",206)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H59",208)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H61",210)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H63",212)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H65",214)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H67",216)="1"
^DIE("F2100","LR AMS5 DRUG AND TOXIC H69",218)="1"
^DIE("F2100","LR AMS5 DRUG DEP PROG J09",240)="1"
^DIE("F2100","LR AMS5 ELECTRON MICRO H95",233)="1"
^DIE("F2100","LR AMS5 ENVIRONMENTAL H99",237)="1"
^DIE("F2100","LR AMS5 HEM MAN & AUTO H24",182)="1"
^DIE("F2100","LR AMS5 HEM MAN & AUTO H26",183)="1"
^DIE("F2100","LR AMS5 HEMATOLOGY H78",220)="1"
^DIE("F2100","LR AMS5 HEMATOLOGY H79",221)="1"
^DIE("F2100","LR AMS5 HEMATOLOGY H80",222)="1"
^DIE("F2100","LR AMS5 HISTOLOGY H36",192)="1"
^DIE("F2100","LR AMS5 HISTOLOGY H94",232)="1"
^DIE("F2100","LR AMS5 IDENT KITS H90",229)="1"
^DIE("F2100","LR AMS5 IMMUN MAN & AUTO H30",186)="1"
^DIE("F2100","LR AMS5 IMMUNOLOGY H88",226)="1"
^DIE("F2100","LR AMS5 IMMUNOLOGY H89",227)="1"
^DIE("F2100","LR AMS5 M,B,GM,SP H33",190)="1"
^DIE("F2100","LR AMS5 MICRO AUTO H32",189)="1"
^DIE("F2100","LR AMS5 MICRO BLOOD CULT H34",191)="1"
^DIE("F2100","LR AMS5 MISCELLANEOUS H42",193)="1"
^DIE("F2100","LR AMS5 MISCELLANEOUS J07",333)="1"
^DIE("F2100","LR AMS5 MYCOBACTERIOLOGY H91",228)="1"
^DIE("F2100","LR AMS5 MYCOLOGY H92",230)="1"
^DIE("F2100","LR AMS5 PARASITOLOGY H93",231)="1"
^DIE("F2100","LR AMS5 RADIOISOTOPES J03",238)="1"
^DIE("F2100","LR AMS5 SPEC PROC & DISP H44",194)="1"
^DIE("F2100","LR AMS5 SUSCEPTIBILITY H97",235)="1"
^DIE("F2100","LR AMS5 URINE AND FECES H22",181)="1"
^DIE("F2100","LR AMS5 URINE AND FECES H74",219)="1"
^DIE("F2100","LR AMS5 VIROLOGY H98",236)="1"
^DIE("F2100","MC AMS2 230 HOME OXYGEN",272)="1"
^DIE("F2100","MC AMS2 234 AUD-SPEECH PATH",270)="1"
^DIE("F2100","MC AMS2 J15 CATHETERIZATION",271)="1"
^DIE("F2100","MC AMS2 J19 DIALYSIS",269)="1"
^DIE("F2100","MC AMS2 J41 MICU",265)="1"
^DIE("F2100","MC AMS2 J42 SICU",266)="1"
^DIE("F2100","MC AMS2 J43 CCU",267)="1"
^DIE("F2100","MC AMS2 J44 GEN PURPOSE UNIT",268)="1"
^DIE("F2100","PRCC CA2 10-2418 HEADER",328)="1"
^DIE("F2100","PRCC CA2 10-2418D1",321)="1"
^DIE("F2100","PRCC CA2 10-2418D2",322)="1"
^DIE("F2100","PRCC CA2 10-2418D3",323)="1"
^DIE("F2100","PRCC CA2 10-2418D3T",334)="1"
^DIE("F2100","PRCC CA2 10-2418a",320)="1"
^DIE("F2100","PRCFMS:AO",369)="1"
^DIE("F2100","PRCFMS:AT",376)="1"
^DIE("F2100","PRCFMS:AV",366)="1"
^DIE("F2100","PRCFMS:BD",364)="1"
^DIE("F2100","PRCFMS:CO(CONTRACT ORDER)",368)="1"
^DIE("F2100","PRCFMS:CONTROL",345)="1"
^DIE("F2100","PRCFMS:CR",360)="1"
^DIE("F2100","PRCFMS:CX",357)="1"
^DIE("F2100","PRCFMS:DD",353)="1"
^DIE("F2100","PRCFMS:DV",354)="1"
^DIE("F2100","PRCFMS:IF",356)="1"
^DIE("F2100","PRCFMS:IV",348)="1"
^DIE("F2100","PRCFMS:MO",347)="1"
^DIE("F2100","PRCFMS:MV",365)="1"
^DIE("F2100","PRCFMS:NC",358)="1"
^DIE("F2100","PRCFMS:OP",361)="1"
^DIE("F2100","PRCFMS:PV",355)="1"
^DIE("F2100","PRCFMS:RC",370)="1"
^DIE("F2100","PRCFMS:RO",351)="1"
^DIE("F2100","PRCFMS:RT",371)="1"
^DIE("F2100","PRCFMS:RV",350)="1"
^DIE("F2100","PRCFMS:SA",375)="1"
^DIE("F2100","PRCFMS:SO",367)="1"
^DIE("F2100","PRCFMS:ST",377)="1"
^DIE("F2100","PRCFMS:SV",363)="1"
^DIE("F2100","PRCFMS:TN",359)="1"
^DIE("F2100","PRCFMS:TO",349)="1"
^DIE("F2100","PRCFMS:TP",352)="1"
^DIE("F2100","PRCFMS:TV",346)="1"
^DIE("F2100","PRCFMS:TY",378)="1"
^DIE("F2100","PRCFMS:TZ",379)="1"
^DIE("F2100","PRCFMS:WR",362)="1"
^DIE("F2100","PSGE AMS3 AMIS 157",317)="1"
^DIE("F2100","PSGE AMS3 AMIS 158",316)="1"
^DIE("F2100","RA AMS1 AMIS 186",151)="1"
^DIE("F2100","RMPR AMS5 AMIS 120",241)="1"
^DIE("F2100","RMPR AMS5 AMIS 121",242)="1"
^DIE("F2100","RMPR AMS5 AMIS 122",243)="1"
^DIE("F2100","RMPR AMS5 AMIS 123",244)="1"
^DIE("F2100","RMPR AMS5 AMIS 124",245)="1"
^DIE("F2100","RMPR AMS5 AMIS 125",246)="1"
^DIE("F2100","RMPR AMS5 AMIS 126",247)="1"
^DIE("F2100","RMPR AMS5 AMIS 127",248)="1"
^DIE("F2100","RMPR AMS5 AMIS 128",249)="1"
^DIE("F2100","RMPR AMS5 AMIS 129",250)="1"
^DIE("F2100","RMPR AMS5 AMIS 130",251)="1"
^DIE("F2100","RMPR AMS5 AMIS 131",252)="1"
^DIE("F2100","RMPR AMS5 AMIS 132",253)="1"
^DIE("F2100","RMPR AMS5 AMIS 133",254)="1"
^DIE("F2100","RMPR AMS5 AMIS 134",255)="1"
^DIE("F2100","RMPR AMS5 AMIS 135",256)="1"
^DIE("F2100","RMPR AMS5 AMIS 136",257)="1"
^DIE("F2100","RMPR AMS5 AMIS 137",258)="1"
^DIE("F2100","RMPR AMS5 AMIS 138",259)="1"
^DIE("F2100","RMPR AMS5 AMIS 139",260)="1"
^DIE("F2100","RMPR AMS5 AMIS 150",261)="1"
^DIE("F2100","RMPR AMS5 AMIS 173",262)="1"
^DIE("F2100","RMPR AMS5 AMIS 174",263)="1"
^DIE("F2100","RMPR AMS5 AMIS 362",264)="1"
^DIE("F2100","RMPR AMS5 AMIS 363",335)="1"
^DIE("F2100","SD AMS1 AMIS223",312)="1"
^DIE("F2100","SOWK AMS3 AMIS 257",148)="1"
^DIE("F2100","SOWK AMS3 AMIS 258",149)="1"
^DIE("F2100","SOWK AMS3 AMIS 361",150)="1"
^DIE("F2100","SR AMS3 AMIS 177",147)="1"
^DIE("F2100","VOLU VOL2 01 ADD NEW VOL",292)="1"
^DIE("F2100","VOLU VOL2 02 ADD NEW VOL",293)="1"
^DIE("F2100","VOLU VOL2 03 CHANGE VOL DATA",304)="1"
^DIE("F2100","VOLU VOL2 03 REACTIVATE VOL",294)="1"
^DIE("F2100","VOLU VOL2 03 TERMINATE VOL",295)="1"
^DIE("F2100","VOLU VOL2 04 CHANGE VOL DATA",296)="1"
^DIE("F2100","VOLU VOL2 04 DELETE COMB",297)="1"
^DIE("F2100","VOLU VOL2 05 ADD NEW VOL",298)="1"
^DIE("F2100","VOLU VOL2 08 CORRECT COMB",299)="1"
^DIE("F2100","VOLU VOL2 09 DELETE VOL",300)="1"
^DIE("F2100","VOLU VOL2 10 CHANGE COMB",301)="1"
^DIE("F2100","VOLU VOL2 10 DELETE COMB",302)="1"
^DIE("F2100","VOLU VOL2 11 CORRECT COMB",303)="1"
^DIE("F2100","YS AMS5 169",164)="1"
^DIE("F2100","YS AMS5 171",165)="1"
^DIE("F2100","YS AMS5 172",174)="1"
^DIE("F2100","YS AMS5 222",166)="1"
^DIE("F2100","YS AMS5 229",167)="1"
^DIE("F2100","YS AMS5 311",168)="1"
^DIE("F2100","YS AMS5 312",169)="1"
^DIE("F2100","YS AMS5 313",170)="1"
^DIE("F2100","YS AMS5 314",329)="1"
^DIE("F2100","YS AMS5 315",171)="1"
^DIE("F2100","YS AMS5 316",172)="1"
^DIE("F2100","YS AMS5 317",173)="1"
^DIE("F2100","YS AMS5 318",330)="1"
^DIE("F2100","YS AMS5 319",332)="1"
^DIE("F2100","YS AMS5 324",331)="1"
^DIE("F2100","YSDD DDC5 5333",339)="1"
^DIE("F2100","YSDD DDC5 5334",338)="1"
^DIE("F2100","YSDD DDC5 5335",340)="1"
^DIE("F2100","YSDD DDC5 5356",336)="1"
^DIE("F2100","YSDD DDC5 5357",337)="1"
^DIE("F2100","YSDD DDC5 53CO",341)="1"
^DIE("F211.4","NURS-I-PRIORITY 1A",993)="1"
^DIE("F213.2","NURA-I-A1106B",988)="1"
^DIE("F213.4","NURA-I-PATHOURS",990)="1"
^DIE("F220","DENTCPMEDT",978)="1"
^DIE("F221","DENTENDM",982)="1"
^DIE("F221","DENTENDU",981)="1"
^DIE("F221","DENTGENM",980)="1"
^DIE("F221","DENTGENU",979)="1"
^DIE("F221","DENTORAM",984)="1"
^DIE("F221","DENTORAU",983)="1"
^DIE("F221","DENTPERIM",986)="1"
^DIE("F221","DENTPERIU",985)="1"
^DIE("F226","DENT NONCLIN",977)="1"
^DIE("F3.5","XUCRT",17)="1"
^DIE("F3.5","XUHFSDEV",13)="1"
^DIE("F3.5","XUPRT",18)="1"
^DIE("F3.5","XUSDPDEV",14)="1"
^DIE("F3.5","XUSPLDEV",15)="1"
^DIE("F3.51","XU-ZISPL1",5)="1"
^DIE("F340","RCAM ADDRESS EDIT",835)="1"
^DIE("F341","RCAM COMMENT",841)="1"
^DIE("F341","RCEV CLOSE EVENT",840)="1"
^DIE("F341","RCEV OPEN EVENT",839)="1"
^DIE("F342","RCMS EDI LOCKBOX",1652)="1"
^DIE("F342","RCMS IRS",837)="1"
^DIE("F342","RCMS NOTIFICATION",836)="1"
^DIE("F342","RCMS RATES",848)="1"
^DIE("F342.1","RCMS ACCT RECEIVABLE",851)="1"
^DIE("F342.1","RCMS BANK DEPOSIT",858)="1"
^DIE("F342.1","RCMS BILLING AGENCY",853)="1"
^DIE("F342.1","RCMS CASHIER",838)="1"
^DIE("F342.1","RCMS DEPT OF JUSTICE",850)="1"
^DIE("F342.1","RCMS REGIONAL COUNSEL",1528)="1"
^DIE("F342.1","RCMS RETURN PAYMENT",854)="1"
^DIE("F342.1","RCMS SITE",852)="1"
^DIE("F342.1","RCMS SITE DEPOSIT",860)="1"
^DIE("F343","RCMS FORM LETTER",831)="1"
^DIE("F347","RCFM OPEN DOCUMENT",855)="1"
^DIE("F35.1","DGSHARESUB",1544)="1"
^DIE("F350.9","IB EDIT CLEAR",501)="1"
^DIE("F350.9","IB EDIT SITE PARAM",500)="1"
^DIE("F350.9","IBCNE GENERAL PARAMETER EDIT",1651)="1"
^DIE("F351","IB BILLING CYCLE ADD",504)="1"
^DIE("F351","IB BILLING CYCLE ADJUST",503)="1"
^DIE("F351.61","IBAT OUT PRICING EDIT",1584)="1"
^DIE("F353","IB DEVICE",507)="1"
^DIE("F353","IBCE ADD/EDIT LOCAL FORM",1482)="1"
^DIE("F354","IB CURRENT STATUS",517)="1"
^DIE("F354.1","IB INACTIVATE EXEMPTION",518)="1"
^DIE("F354.1","IB NEW EXEMPTION",516)="1"
^DIE("F354.3","IB ENTER THRESHOLD",519)="1"
^DIE("F355.4","IBCN AB ADD COM",565)="1"
^DIE("F355.4","IBCN AB EDIT ALL",566)="1"
^DIE("F355.4","IBCN AB HOME HEA",563)="1"
^DIE("F355.4","IBCN AB HOSPC",564)="1"
^DIE("F355.4","IBCN AB INPT",562)="1"
^DIE("F355.4","IBCN AB IV MGMT",573)="1"
^DIE("F355.4","IBCN AB MEN H",559)="1"
^DIE("F355.4","IBCN AB OPT",561)="1"
^DIE("F355.4","IBCN AB POL INF",560)="1"
^DIE("F355.4","IBCN AB REHAB",572)="1"
^DIE("F355.5","IBCN BU ADD COM",567)="1"
^DIE("F355.5","IBCN BU ED AL",571)="1"
^DIE("F355.5","IBCN BU INPT",568)="1"
^DIE("F355.5","IBCN BU OPT",569)="1"
^DIE("F355.5","IBCN BU POL",570)="1"
^DIE("F356","IBT ASSIGN CASE",556)="1"
^DIE("F356","IBT BILLING INFO",539)="1"
^DIE("F356","IBT PRECERT INFO",540)="1"
^DIE("F356","IBT QUICK EDIT",578)="1"
^DIE("F356","IBT STATUS CHANGE",551)="1"
^DIE("F356","IBT UR INFO",538)="1"
^DIE("F356.1","IBT ADD COMMENTS",541)="1"
^DIE("F356.1","IBT REMOVE NEXT REVIEW",553)="1"
^DIE("F356.1","IBT REVIEW INFO",543)="1"
^DIE("F356.1","IBT SPECIAL UNIT",544)="1"
^DIE("F356.1","IBT STATUS CHANGE",542)="1"
^DIE("F356.19","IBT AVERAGE BILL AMOUNTS (12M)",1594)="1"
^DIE("F356.19","IBT AVERAGE BILL AMOUNTS (MON)",1593)="1"
^DIE("F356.19","IBT UNBILLED AMOUNTS",1595)="1"
^DIE("F356.2","IBT ACTION INFO",549)="1"
^DIE("F356.2","IBT ADD APPEAL",555)="1"
^DIE("F356.2","IBT APPEAL INFO",550)="1"
^DIE("F356.2","IBT COMMENT INFO",546)="1"
^DIE("F356.2","IBT CONTACT INFO",547)="1"
^DIE("F356.2","IBT FINAL OUTCOME",557)="1"
^DIE("F356.2","IBT INS VERIFICATION",576)="1"
^DIE("F356.2","IBT INSURANCE INFO",548)="1"
^DIE("F356.2","IBT QUICK EDIT",545)="1"
^DIE("F356.2","IBT REMOVE NEXT REVIEW",554)="1"
^DIE("F356.2","IBT STATUS CHANGE",552)="1"
^DIE("F357","IBDF EDIT NEW FORM",531)="1"
^DIE("F357","IBDF EDIT OLD OR COPIED FORM",530)="1"
^DIE("F357.1","IBDF EDIT HEADER BLOCK",524)="1"
^DIE("F357.1","IBDF EDIT HEADER&OUTLINE",521)="1"
^DIE("F357.1","IBDF NEW EMPTY BLOCK",526)="1"
^DIE("F357.1","IBDF POSITION COPIED BLOCK",520)="1"
^DIE("F357.2","IBDF EDIT SELECTION LIST",528)="1"
^DIE("F357.2","IBDF POSITION/SIZE COLUMNS",533)="1"
^DIE("F357.3","IBDF CPT MODIFIER",1569)="1"
^DIE("F357.3","IBDF EDIT PLACE HOLDER",907)="1"
^DIE("F357.3","IBDF EDIT SELECTION",529)="1"
^DIE("F357.5","IBDF EDIT DATA FIELD",522)="1"
^DIE("F357.5","IBDF EDIT FORM HEADER",523)="1"
^DIE("F357.5","IBDF EDIT LABEL FIELD",905)="1"
^DIE("F357.6","IBDF EDIT AVAILABLE HLTH SMRY",575)="1"
^DIE("F357.6","IBDF EDIT AVAILABLE REPORT",532)="1"
^DIE("F357.6","IBDF EDIT OUTPUT/SELECTION RTN",534)="1"
^DIE("F357.69","IB EDIT E&M QUANTITY",1668)="1"
^DIE("F357.7","IBDF FORM LINE",525)="1"
^DIE("F357.8","IBDF EDIT TEXT AREA",527)="1"
^DIE("F357.91","IBDF EDIT MARKING AREA",535)="1"
^DIE("F357.93","IBDF EDIT MULT CHOICE FIELD",904)="1"
^DIE("F357.94","IBDF EDIT PRINTER",908)="1"
^DIE("F357.96","IBD CREATE FORM TRACKING",1477)="1"
^DIE("F357.96","IBD EDIT FORM TRACKING STATUS",1478)="1"
^DIE("F359.94","IBDF EDIT HAND PRINT FIELD",906)="1"
^DIE("F36","IBEDIT INS CO1",558)="1"
^DIE("F364.5","IBCE DEFINE LOCAL ELEMENT",1483)="1"
^DIE("F364.6","IBCE ADD/EDIT LOCAL FORM FIELD",1484)="1"
^DIE("F364.7","IBCE EDIT FIELD CONTENT",1485)="1"
^DIE("F38.1","DG ENTER/EDIT SECURITY",434)="1"
^DIE("F391","DG PATIENT TYPE",419)="1"
^DIE("F392.1","DGBT MILES",480)="1"
^DIE("F392.1","DGBT REMARKS",481)="1"
^DIE("F392.1","DGBT ZIP",482)="1"
^DIE("F393","DGJ EDIT IRT RECORD",460)="1"
^DIE("F393","DGJ ENTER IRT DEFICIENCY",478)="1"
^DIE("F393","DGJ ENTER IRT RECORD",461)="1"
^DIE("F393.3","DGJ DEF PARAMETER EDIT",479)="1"
^DIE("F394.71","VAQ EDIT FILE",950)="1"
^DIE("F394.73","VAQ EDIT FILE",943)="1"
^DIE("F394.81","VAQ EDIT FILE",944)="1"
^DIE("F394.82","VAQ EDIT FILE",945)="1"
^DIE("F394.83","VAQ EDIT FILE",946)="1"
^DIE("F394.84","VAQ EDIT FILE",947)="1"
^DIE("F394.84","VAQ EDIT FILE (PRIVATE)",948)="1"
^DIE("F394.84","VAQ EDIT FILE (PUBLIC)",949)="1"
^DIE("F396","DVBA EDIT REMARKS",963)="1"
^DIE("F396","DVBA STATUS EDIT",962)="1"
^DIE("F396.1","DVBA SITE EDIT",964)="1"
^DIE("F399","IB MAIL",499)="1"
^DIE("F399","IB REVCODE EDIT",502)="1"
^DIE("F399","IB SCREEN1",508)="1"
^DIE("F399","IB SCREEN2",509)="1"
^DIE("F399","IB SCREEN3",574)="1"
^DIE("F399","IB SCREEN4",510)="1"
^DIE("F399","IB SCREEN5",511)="1"
^DIE("F399","IB SCREEN6",512)="1"
^DIE("F399","IB SCREEN7",513)="1"
^DIE("F399","IB SCREEN8",514)="1"
^DIE("F399","IB SCREEN82",577)="1"
^DIE("F399","IB SCREEN8H",515)="1"
^DIE("F399","IB STATUS",506)="1"
^DIE("F399.2","IB ACTIVATE",498)="1"
^DIE("F399.3","IB RATE EDIT",497)="1"
^DIE("F4","XUMF IMF EDIT",1661)="1"
^DIE("F4.001","XUMF MFP EDIT",1695)="1"
^DIE("F40.8","DGJ IRT PARAMETERS",462)="1"
^DIE("F40.8","DGTS",484)="1"
^DIE("F404.91","SCCV CONV EDIT SITE PARAMS",1565)="1"
^DIE("F404.91","SCCV CONV FILE DELETION LOG",1567)="1"
^DIE("F404.98","SCCV CONV CANCEL",1566)="1"
^DIE("F404.98","SCCV CREATE TEMPLATE",1564)="1"
^DIE("F404.98","SCCV EDIT TEMPLATE",1562)="1"
^DIE("F404.98","SCCV SCHEDULE REQUEST",1563)="1"
^DIE("F405","DG PTF ATTACH",453)="1"
^DIE("F405","DGPM ADMIT",446)="1"
^DIE("F405","DGPM ASIH ADMIT",452)="1"
^DIE("F405","DGPM CHECK-IN LODGER",450)="1"
^DIE("F405","DGPM DISCHARGE",448)="1"
^DIE("F405","DGPM LODGER CHECK-OUT",449)="1"
^DIE("F405","DGPM SPECIALTY TRANSFER",451)="1"
^DIE("F405","DGPM TRANSFER",447)="1"
^DIE("F405","DGRU ORIGINAL ADMISSION DATE",1583)="1"
^DIE("F405.4","DGPM BED EDIT",456)="1"
^DIE("F408.12","DGMT EFFECTIVE DATE",495)="1"
^DIE("F408.21","DGMT ENTER/EDIT ANNUAL INCOME",469)="1"
^DIE("F408.21","DGMT ENTER/EDIT CHILD EXPENSES",470)="1"
^DIE("F408.21","DGMT ENTER/EDIT EXPENSES",474)="1"
^DIE("F408.21","DGMT ENTER/EDIT NET WORTH",476)="1"
^DIE("F408.21","DGRP ENTER/EDIT ANNUAL INCOME",475)="1"
^DIE("F408.21","EASEC ENTER/EDIT ASSETS",1620)="1"
^DIE("F408.21","EASEC ENTER/EDIT ASSETS NEW",1658)="1"
^DIE("F408.21","EASEC ENTER/EDIT EXPENSES",1621)="1"
^DIE("F408.21","EASEC ENTER/EDIT INCOME",1622)="1"
^DIE("F408.21","EASEC ENTER/EDIT INCOME NEW",1659)="1"
^DIE("F408.22","DGMT ENTER/EDIT DEPENDENTS",468)="1"
^DIE("F408.22","DGMT ENTER/EDIT MARITAL STATUS",467)="1"
^DIE("F408.22","EASEC EDIT DEPENDENTS",1625)="1"
^DIE("F408.22","EASEC EDIT MARITAL STATUS",1624)="1"
^DIE("F408.31","DGMT COMMENTS",496)="1"
^DIE("F408.31","DGMT ENTER/EDIT ADJUDICATION",472)="1"
^DIE("F408.31","DGMT ENTER/EDIT CATEGORY",473)="1"
^DIE("F408.31","DGMT ENTER/EDIT COMPLETION",471)="1"
^DIE("F408.31","EASEC COMPLETE LTC CO-PAY TEST",1623)="1"
^DIE("F408.41","DGMT UPDATE AUDIT",494)="1"
^DIE("F409.5","SDAMBT",491)="1"
^DIE("F409.5","SDXACSE",490)="1"
^DIE("F409.61","VALM ADD/EDIT LIST TEMPLATE",402)="1"
^DIE("F409.61","VALM CAPTION EDIT",408)="1"
^DIE("F409.61","VALM DEMOGRAPHICS EDIT",403)="1"
^DIE("F409.61","VALM LIST REGION EDIT",404)="1"
^DIE("F409.61","VALM MUMPS CODE EDIT",407)="1"
^DIE("F409.61","VALM NEW ENTRY DEFAULTS",410)="1"
^DIE("F409.61","VALM OTHER FIELDS",406)="1"
^DIE("F409.61","VALM PROTOCOL INFORMATION",405)="1"
^DIE("F409.65","SDAM ADD LOG",492)="1"
^DIE("F409.68","SD ENCOUNTER ENTRY",493)="1"
^DIE("F409.68","SD ENCOUNTER LOG",1540)="1"
^DIE("F409.95","IBDF PRINT MANAGER",536)="1"
^DIE("F409.96","IBDF PRINT MANAGER",537)="1"
^DIE("F41.1","DGSCHADMIT",433)="1"
^DIE("F410","PRCE 1358 ADJUSTMENT",777)="1"
^DIE("F410","PRCE NEW 1358",778)="1"
^DIE("F410","PRCE NEW 1358S",795)="1"
^DIE("F410","PRCN2237",1427)="1"
^DIE("F410","PRCN2237E",1434)="1"
^DIE("F410","PRCSEDS",625)="1"
^DIE("F410","PRCSEN1358",611)="1"
^DIE("F410","PRCSEN1358A",747)="1"
^DIE("F410","PRCSEN1358S",614)="1"
^DIE("F410","PRCSEN2237B",607)="1"
^DIE("F410","PRCSEN2237S",609)="1"
^DIE("F410","PRCSENA",605)="1"
^DIE("F410","PRCSENA 1358",728)="1"
^DIE("F410","PRCSENC",608)="1"
^DIE("F410","PRCSENCAD",619)="1"
^DIE("F410","PRCSENCI",624)="1"
^DIE("F410","PRCSENCOD",606)="1"
^DIE("F410","PRCSENCODS",615)="1"
^DIE("F410","PRCSENCT",623)="1"
^DIE("F410","PRCSENE",726)="1"
^DIE("F410","PRCSENIB",718)="1"
^DIE("F410","PRCSENIBS",717)="1"
^DIE("F410","PRCSENMDR",746)="1"
^DIE("F410","PRCSENOD",620)="1"
^DIE("F410","PRCSENPR",610)="1"
^DIE("F410","PRCSENPRS",613)="1"
^DIE("F410","PRCSENR&NR",612)="1"
^DIE("F410","PRCSENR&NRS",616)="1"
^DIE("F410.3","PRCHSPD",588)="1"
^DIE("F410.3","PRCSRI",587)="1"
^DIE("F411","PRCD SUBSTATION",876)="1"
^DIE("F411","PRCHSITE",589)="1"
^DIE("F413","PRCNCMR",1428)="1"
^DIE("F413","PRCNEDIT",1433)="1"
^DIE("F413","PRCNENG",1440)="1"
^DIE("F413","PRCNPPE",1435)="1"
^DIE("F413","PRCNPPM",1431)="1"
^DIE("F413","PRCNPPM1",1439)="1"
^DIE("F413","PRCNPPM2",1438)="1"
^DIE("F413","PRCNRNK",1432)="1"
^DIE("F413.1","PRCNTICMR",1430)="1"
^DIE("F413.1","PRCNTIPED",1436)="1"
^DIE("F413.1","PRCNTIPPM",1437)="1"
^DIE("F413.1","PRCNTIRQ",1429)="1"
^DIE("F42","DGWARD",423)="1"
^DIE("F42","DGWIN",425)="1"
^DIE("F420","PRCB STATUS FUNDS",759)="1"
^DIE("F420","PRCHPM DEPT EDIT",732)="1"
^DIE("F420","PRCSCP",782)="1"
^DIE("F420.7","PRCB 285 CATEGORY EDIT",781)="1"
^DIE("F421","PRCB NEW TRANSACTION",751)="1"
^DIE("F421","PRCB RD2-285 ALL",752)="1"
^DIE("F421.1","PRCB ENTER TRANS",753)="1"
^DIE("F421.5","PRCF CI BORROWER",757)="1"
^DIE("F421.5","PRCF CI CHECK-IN",758)="1"
^DIE("F421.5","PRCF CI FMS ACCOUNTING",785)="1"
^DIE("F421.5","PRCF CI VOUCHER AUDIT",756)="1"
^DIE("F421.6","PRCB FMS VENDOR EDIT",791)="1"
^DIE("F421.6","PRCB READER FILE EDIT",754)="1"
^DIE("F421.6","PRCB VENDOR EDIT",755)="1"
^DIE("F423","PRCFA TT900.00",750)="1"
^DIE("F423","PRCFA TT920.00",662)="1"
^DIE("F423","PRCFA TT920.04",711)="1"
^DIE("F423","PRCFA TT920.41",776)="1"
^DIE("F423","PRCFA TT921.00",627)="1"
^DIE("F423","PRCFA TT921.20",633)="1"
^DIE("F423","PRCFA TT921.21",634)="1"
^DIE("F423","PRCFA TT921.26",635)="1"
^DIE("F423","PRCFA TT921.30",636)="1"
^DIE("F423","PRCFA TT921.31",712)="1"
^DIE("F423","PRCFA TT921.39",637)="1"
^DIE("F423","PRCFA TT921.41",638)="1"
^DIE("F423","PRCFA TT921.51",639)="1"
^DIE("F423","PRCFA TT921.53",640)="1"
^DIE("F423","PRCFA TT921.60",660)="1"
^DIE("F423","PRCFA TT921.71",631)="1"
^DIE("F423","PRCFA TT921.72",641)="1"
^DIE("F423","PRCFA TT921.91",642)="1"
^DIE("F423","PRCFA TT921.93",643)="1"
^DIE("F423","PRCFA TT921.94",644)="1"
^DIE("F423","PRCFA TT922.00",645)="1"
^DIE("F423","PRCFA TT922.01",674)="1"
^DIE("F423","PRCFA TT922.10",773)="1"
^DIE("F423","PRCFA TT922.21",779)="1"
^DIE("F423","PRCFA TT922.99",673)="1"
^DIE("F423","PRCFA TT923.01",647)="1"
^DIE("F423","PRCFA TT923.07",646)="1"
^DIE("F423","PRCFA TT924.00",628)="1"
^DIE("F423","PRCFA TT924.41",768)="1"
^DIE("F423","PRCFA TT925.01",648)="1"
^DIE("F423","PRCFA TT925.30",771)="1"
^DIE("F423","PRCFA TT928.01",649)="1"
^DIE("F423","PRCFA TT929.00",671)="1"
^DIE("F423","PRCFA TT929.30",775)="1"
^DIE("F423","PRCFA TT930.00",629)="1"
^DIE("F423","PRCFA TT930.21",650)="1"
^DIE("F423","PRCFA TT934.20",705)="1"
^DIE("F423","PRCFA TT938.00",630)="1"
^DIE("F423","PRCFA TT938.01",734)="1"
^DIE("F423","PRCFA TT938.07",735)="1"
^DIE("F423","PRCFA TT938.08",733)="1"
^DIE("F423","PRCFA TT938.09",769)="1"
^DIE("F423","PRCFA TT938.10",736)="1"
^DIE("F423","PRCFA TT938.21",737)="1"
^DIE("F423","PRCFA TT938.28",738)="1"
^DIE("F423","PRCFA TT938.30",739)="1"
^DIE("F423","PRCFA TT938.32",741)="1"
^DIE("F423","PRCFA TT938.41",740)="1"
^DIE("F423","PRCFA TT938.54",743)="1"
^DIE("F423","PRCFA TT938.55",742)="1"
^DIE("F423","PRCFA TT939.00",721)="1"
^DIE("F423","PRCFA TT939.10",722)="1"
^DIE("F423","PRCFA TT939.12",723)="1"
^DIE("F423","PRCFA TT939.43",724)="1"
^DIE("F423","PRCFA TT939.45",725)="1"
^DIE("F423","PRCFA TT941.00",675)="1"
^DIE("F423","PRCFA TT941.02",676)="1"
^DIE("F423","PRCFA TT942.31",677)="1"
^DIE("F423","PRCFA TT942.38",678)="1"
^DIE("F423","PRCFA TT944.01",679)="1"
^DIE("F423","PRCFA TT945.03",704)="1"
^DIE("F423","PRCFA TT945.04",680)="1"
^DIE("F423","PRCFA TT945.05",681)="1"
^DIE("F423","PRCFA TT946.00",682)="1"
^DIE("F423","PRCFA TT946.21",683)="1"
^DIE("F423","PRCFA TT951.00",651)="1"
^DIE("F423","PRCFA TT951.11",774)="1"
^DIE("F423","PRCFA TT951.21",700)="1"
^DIE("F423","PRCFA TT951.31",701)="1"
^DIE("F423","PRCFA TT951.51",702)="1"
^DIE("F423","PRCFA TT951.61",703)="1"
^DIE("F423","PRCFA TT952.01",684)="1"
^DIE("F423","PRCFA TT959.01",685)="1"
^DIE("F423","PRCFA TT960.00",632)="1"
^DIE("F423","PRCFA TT960.01",699)="1"
^DIE("F423","PRCFA TT961.00",686)="1"
^DIE("F423","PRCFA TT961.26",687)="1"
^DIE("F423","PRCFA TT961.71",688)="1"
^DIE("F423","PRCFA TT970.01",698)="1"
^DIE("F423","PRCFA TT970.02",689)="1"
^DIE("F423","PRCFA TT970.05",720)="1"
^DIE("F423","PRCFA TT970.06",772)="1"
^DIE("F423","PRCFA TT970.12",690)="1"
^DIE("F423","PRCFA TT970.20",691)="1"
^DIE("F423","PRCFA TT972.01",656)="1"
^DIE("F423","PRCFA TT972.04",706)="1"
^DIE("F423","PRCFA TT972.05",707)="1"
^DIE("F423","PRCFA TT972.06",672)="1"
^DIE("F423","PRCFA TT972.07",708)="1"
^DIE("F423","PRCFA TT972.11",657)="1"
^DIE("F423","PRCFA TT972.13",770)="1"
^DIE("F423","PRCFA TT972.14",709)="1"
^DIE("F423","PRCFA TT972.15",710)="1"
^DIE("F423","PRCFA TT972.16",696)="1"
^DIE("F423","PRCFA TT972.21",658)="1"
^DIE("F423","PRCFA TT972.51",697)="1"
^DIE("F423","PRCFA TT972.71",659)="1"
^DIE("F423","PRCFA TT973.00",663)="1"
^DIE("F423","PRCFA TT973.10",664)="1"
^DIE("F423","PRCFA TT973.11",665)="1"
^DIE("F423","PRCFA TT973.20",667)="1"
^DIE("F423","PRCFA TT973.30",666)="1"
^DIE("F423","PRCFA TT973.81",783)="1"
^DIE("F423","PRCFA TT974.00",668)="1"
^DIE("F423","PRCFA TT974.01",669)="1"
^DIE("F423","PRCFA TT974.21",670)="1"
^DIE("F423","PRCFA TT982.00",652)="1"
^DIE("F423","PRCFA TT983.00",653)="1"
^DIE("F423","PRCFA TT984.00",654)="1"
^DIE("F423","PRCFA TT986.00",655)="1"
^DIE("F423","PRCFA TT994.00",692)="1"
^DIE("F423","PRCFA TT994.01",693)="1"
^DIE("F423","PRCFA TT994.90",694)="1"
^DIE("F423","PRCFA TT998.01",695)="1"
^DIE("F423","PRCFACEDIT",661)="1"
^DIE("F423","PRCH-DEP LOG 401",760)="1"
^DIE("F423","PRCH-REC7 LOG 431/434",761)="1"
^DIE("F423","PRCHL100",716)="1"
^DIE("F423","PRCHL500",727)="1"
^DIE("F423","PRCHL501",715)="1"
^DIE("F423","PRCHL550",729)="1"
^DIE("F423","PRCHL551",744)="1"
^DIE("F423","PRCHL552",745)="1"
^DIE("F423","PRCHL604",762)="1"
^DIE("F423","PRCHL605",766)="1"
^DIE("F423","PRCHL607",767)="1"
^DIE("F423","PRCHL632",713)="1"
^DIE("F423","PRCHL642",765)="1"
^DIE("F423","PRCHL664",764)="1"
^DIE("F423","PRCHL666",714)="1"
^DIE("F423","PRCHL700",731)="1"
^DIE("F423","PRCHL710",730)="1"
^DIE("F423","PRCHL712",763)="1"
^DIE("F43","DGMT ENTER/EDIT THRESHOLD",431)="1"
^DIE("F43","DGPAR",424)="1"
^DIE("F43","DGRAI",1582)="1"
^DIE("F430","PRCA BILL 1080",801)="1"
^DIE("F430","PRCA BILL 1081",802)="1"
^DIE("F430","PRCA BILL 1114",800)="1"
^DIE("F430","PRCA CAT SET",825)="1"
^DIE("F430","PRCA CAUSED BY",804)="1"
^DIE("F430","PRCA CREATE BILL STUB",1473)="1"
^DIE("F430","PRCA OLD SET",815)="1"
^DIE("F430","PRCA SET",799)="1"
^DIE("F430","PRCAC COWC REFER",821)="1"
^DIE("F430","PRCAC LOCATE DEBTOR",803)="1"
^DIE("F430","PRCAC RC INFO",1644)="1"
^DIE("F430","PRCAE AUDIT",812)="1"
^DIE("F430","PRCAE INSURANCE DATA",814)="1"
^DIE("F430","PRCAF RETURN BILL",826)="1"
^DIE("F430","PRCASV REL",824)="1"
^DIE("F430","PRCASV STATUS",822)="1"
^DIE("F430","PRCAT EDIT GL",813)="1"
^DIE("F430","RCFM CAF FILE ENTRIES",861)="1"
^DIE("F430.6","PRCAE BILL FROM",829)="1"
^DIE("F433","PRCA COMMENT",846)="1"
^DIE("F433","PRCA CREATE TRANS STUB",1472)="1"
^DIE("F433","PRCA FY ADJ2 BATCH",827)="1"
^DIE("F433","PRCA PAYMENT",820)="1"
^DIE("F433","PRCA RE-ESTABLISH WRITE-OFF",830)="1"
^DIE("F433","PRCAC DCDOJ REFER",818)="1"
^DIE("F433","PRCAC DCDOJ REREFER",819)="1"
^DIE("F433","PRCAC DCDOJ RETN",817)="1"
^DIE("F433","PRCAC RC REFER",1529)="1"
^DIE("F433","PRCAC RC TRAN",1530)="1"
^DIE("F433","PRCAE ADMIN",807)="1"
^DIE("F44","SD IMO",1709)="1"
^DIE("F44","SDB",485)="1"
^DIE("F440","PRCF FMS VENEDIT1",793)="1"
^DIE("F440","PRCF FMS VENEDIT1B",797)="1"
^DIE("F440","PRCF FMS VENEDIT2",794)="1"
^DIE("F440","PRCF FMS VENEDIT2B",798)="1"
^DIE("F440","PRCFACALM",591)="1"
^DIE("F440","PRCHFEDVEN",719)="1"
^DIE("F440","PRCHVENDOR",590)="1"
^DIE("F440","PRCHVENDOR1",784)="1"
^DIE("F440","PRCHVENDORNOREACT",1541)="1"
^DIE("F440","PRCO EDI VENDOR",780)="1"
^DIE("F440.2","PRCHPT",593)="1"
^DIE("F440.3","PRCFACALM",787)="1"
^DIE("F440.3","PRCO EDI VENDOR",788)="1"
^DIE("F440.5","PRCH PURCHASE CARD",1250)="1"
^DIE("F441","PRCF SUB EDIT",604)="1"
^DIE("F441","PRCHITEM",592)="1"
^DIE("F441","PRCHITEM2",1702)="1"
^DIE("F441","PRCHVEN",789)="1"
^DIE("F442","PRCH DELIVERY ORDER",1443)="1"
^DIE("F442","PRCH DETAILED PURCHASE CARD",1442)="1"
^DIE("F442","PRCH DIRECT DELIVERY ORDER",1447)="1"
^DIE("F442","PRCH NEW DEL FPDS",1705)="1"
^DIE("F442","PRCH NEW PC FPDS",1704)="1"
^DIE("F442","PRCH NEW PO FPDS",1706)="1"
^DIE("F442","PRCH PC DIRECT DELIVERY",1480)="1"
^DIE("F442","PRCH PROSTHETIC",1451)="1"
^DIE("F442","PRCH2138",595)="1"
^DIE("F442","PRCHAMT",621)="1"
^DIE("F442","PRCHAMT89",748)="1"
^DIE("F442","PRCHAMT89 NEW",1703)="1"
^DIE("F442","PRCHDEL",617)="1"
^DIE("F442","PRCHDISCNT",594)="1"
^DIE("F442","PRCHEDIT",596)="1"
^DIE("F442","PRCHNREQ",626)="1"
^DIE("F442","PRCHPROMPT",1446)="1"
^DIE("F442","PRCHPUSH",749)="1"
^DIE("F442","PRCHSIMP",1441)="1"
^DIE("F443","PRCHPC",603)="1"
^DIE("F443","PRCHPCR",618)="1"
^DIE("F443","PRCHPPM",602)="1"
^DIE("F443.2","PRCG PURGEMASTER SITE EDIT",1459)="1"
^DIE("F443.2","PRPF PURGE PARAMETERS",1479)="1"
^DIE("F443.6","PRCH DELIVERY ORDER AMEND",1445)="1"
^DIE("F443.6","PRCH PURCHASE CARD AMEND",1444)="1"
^DIE("F443.6","PRCHAMDESC",599)="1"
^DIE("F443.6","PRCHAMDISCNT",600)="1"
^DIE("F443.6","PRCHAMDISCOUNT",792)="1"
^DIE("F443.6","PRCHAMEND",597)="1"
^DIE("F443.6","PRCHAMENDAV",622)="1"
^DIE("F443.6","PRCHAMENDPRO",1452)="1"
^DIE("F443.6","PRCHAMENDPRO EDIT",1481)="1"
^DIE("F443.6","PRCHAMIT",598)="1"
^DIE("F443.6","PRCHAMPPP",601)="1"
^DIE("F443.6","PRCHLINE",786)="1"
^DIE("F443.6","PRCHMAPP",796)="1"
^DIE("F443.6","PRCHRQITM",790)="1"
^DIE("F444","PRCHQ RFQ REQUEST",1448)="1"
^DIE("F445","PRCP INVENTORY POINT",585)="1"
^DIE("F445","PRCP INVENTORY POINT (NON SS)",1588)="1"
^DIE("F445","PRCP INVENTORY POINT (SS)",1591)="1"
^DIE("F445","PRCP ITEM ALL FIELDS",586)="1"
^DIE("F445","PRCP ITEM ALL FIELDS (NON-SS)",1589)="1"
^DIE("F445","PRCP ITEM ALL FIELDS (SS)",1590)="1"
^DIE("F445","PRCP LEVELS",1568)="1"
^DIE("F446.4","PRCT DATA ENTER/EDIT/VIEW",581)="1"
^DIE("F446.4","PRCT PARAMETER (CREATOR)",580)="1"
^DIE("F446.4","PRCT PARAMETER (USER)",583)="1"
^DIE("F446.4","PRCT PROGRAM ENTER/EDIT",582)="1"
^DIE("F446.5","PRCT BASIC PARAM",579)="1"
^DIE("F446.6","PRCT SPECIALTY COMMANDS",584)="1"
^DIE("F45","DG PTF CREATE PTF ENTRY",443)="1"
^DIE("F45","DG PTF POST CREATE",455)="1"
^DIE("F45","DG101",426)="1"
^DIE("F45","DG101 PRE-SCCP-TEST",477)="1"
^DIE("F45","DG101F",427)="1"
^DIE("F45","DG401",428)="1"
^DIE("F45","DG501",430)="1"
^DIE("F45","DG501 SAVE 5.2",483)="1"
^DIE("F45","DG501F",429)="1"
^DIE("F45","DG501Q",466)="1"
^DIE("F45","DG601",435)="1"
^DIE("F45","DG701",432)="1"
^DIE("F45","DGPT 401 CLEANUP",459)="1"
^DIE("F45","DGPT 501 CLEANUP",458)="1"
^DIE("F45","DGPT 601 CLEANUP",1716)="1"
^DIE("F45","DGQWK",436)="1"
^DIE("F45","DGQWKF",437)="1"
^DIE("F45.5","DG PTF ADD MESSAGE",454)="1"
^DIE("F45.7","DGTREAT",444)="1"
^DIE("F45.85","DGPT STUFF ENTRY",441)="1"
^DIE("F45.86","DGPT CENSUS DATE",442)="1"
^DIE("F45.87","DGPT 099",465)="1"
^DIE("F45.87","DGPT 150",463)="1"
^DIE("F45.87","DGPT 151",464)="1"
^DIE("F45.9","DGRUG",438)="1"
^DIE("F45.9","DGRUG16",439)="1"
^DIE("F46.1","DG801",1664)="1"
^DIE("F470","PRPF DEFERRAL EDIT",1469)="1"
^DIE("F470","PRPF INACTIVE/ACTIVE",1464)="1"
^DIE("F470","PRPF LONG REGISTRATION",1460)="1"
^DIE("F470","PRPF SELECTED DATA EDIT",1461)="1"
^DIE("F470","PRPF SHORT REGISTRATION",1463)="1"
^DIE("F470","PRPF SUSPENSE ENTER EDIT",1468)="1"
^DIE("F470.1","PRPF POST TRANSACTION",1462)="1"
^DIE("F470.2","PRPF FORMS EDIT",1471)="1"
^DIE("F470.5","PRPF MULTIPLE AMT",1467)="1"
^DIE("F470.5","PRPF TEMP BCF AMTS",1470)="1"
^DIE("F470.5","PRPF TEMP MULTIPLE",1466)="1"
^DIE("F470.5","PRPF TEMP TRANS POST",1465)="1"
^DIE("F50","PSGW ENTER/EDIT AMIS DATA",937)="1"
^DIE("F50","PSJ FILED",930)="1"
^DIE("F50","PSJU DRUG EDIT",916)="1"
^DIE("F50","PSJU FILED",929)="1"
^DIE("F50","PSO CLOZDRUG",873)="1"
^DIE("F50","PSS CLOZDRUG",1515)="1"
^DIE("F50","PSS SYNONYM",1581)="1"
^DIE("F50","PSSCOMMON",1507)="1"
^DIE("F50","PSSOP",1508)="1"
^DIE("F50","PSX DRUG",939)="1"
^DIE("F50.073","PSOD DUE BUILD QUESTIONNAIRE",872)="1"
^DIE("F50.0731","PSOD DUE EDIT",874)="1"
^DIE("F50.3","PSS PD EDIT",1511)="1"
^DIE("F50.4","PSJIDE",911)="1"
^DIE("F50.4","PSSJIDE",1506)="1"
^DIE("F50.606","PSS DOSAGE FORM",1618)="1"
^DIE("F503067","ABSV ADD/EDIT MASTER",1334)="1"
^DIE("F503067","ABSV COMBINATION EDIT",1335)="1"
^DIE("F503330","ABSV ADD/EDIT MASTER",1334)="1"
^DIE("F503330","ABSV COMBINATION EDIT",1335)="1"
^DIE("F503330.1","ABSV LOG",1336)="1"
^DIE("F503330.1","ABSV LOG1",1337)="1"
^DIE("F503330.2","ABSV LUNCH EDIT",1333)="1"
^DIE("F503335","ABSV CREATE",1327)="1"
^DIE("F503335","ABSV DELAY/RELEASE TIMECARD",1329)="1"
^DIE("F503335","ABSV HOSP USE ONLY",1326)="1"
^DIE("F503335","ABSV HOSPITAL USE ONLY EDIT",1328)="1"
^DIE("F503335","ABSV TIME CARD EDIT",1330)="1"
^DIE("F503336","ABSV OCCASIONAL TIME ENTER",1331)="1"
^DIE("F503338","ABSV SITE EDIT",1332)="1"
^DIE("F503338.1","ABSV LABEL CONFIGURATION",1527)="1"
^DIE("F503339.2","ABSV DIRECTORY EDIT",1526)="1"
^DIE("F503340","ABSV DON EDIT",1629)="1"
^DIE("F503340","ABSV DON PRINT LETTER",1630)="1"
^DIE("F503340","ABSV DONATIONS ENTER",1628)="1"
^DIE("F503341","ABSV DON EDIT LETTER",1611)="1"
^DIE("F503341","ABSV DON LETTER EDIT",1614)="1"
^DIE("F503341","ABSV DON LETTER FORMAT",1612)="1"
^DIE("F503342","ABSV DON GPF",1610)="1"
^DIE("F503344","ABSV DON MANUAL ENTRY",1617)="1"
^DIE("F509850.3","ACKQAS CLINICIAN EDIT",1340)="1"
^DIE("F509850.5","ACKQAS ENTER/EDIT MODIFIERS",1570)="1"
^DIE("F509850.6","ACKQAS VISIT ENTRY",1338)="1"
^DIE("F509850.8","ACKQAS SITE",1339)="1"
^DIE("F51","PSS SIGED",1510)="1"
^DIE("F51.1","PSSJ EXT SCHEDULE EDIT",1513)="1"
^DIE("F51.1","PSSJ SCHEDULE EDIT",1512)="1"
^DIE("F51.15","PSJ SHIFT EDIT",915)="1"
^DIE("F51.2","PSS MEDICATION ROUTES",1619)="1"
^DIE("F52","PSO PARTIAL",864)="1"
^DIE("F52.6","PSSIV ADD",1509)="1"
^DIE("F53.1","PSJIEDT",924)="1"
^DIE("F53.2","PSJUOSE",934)="1"
^DIE("F53.45","PSJ IUP SUPER EDIT",933)="1"
^DIE("F53.45","PSJ IUP USER EDIT",932)="1"
^DIE("F537025","AFJXNHEX EDIT",903)="1"
^DIE("F56","PSO INTERACT",868)="1"
^DIE("F56","PSS INTERACT",1514)="1"
^DIE("F57.5","PSJU WG",918)="1"
^DIE("F57.7","PSJUMATE",909)="1"
^DIE("F58.1","PSGW AREA OF USE EDIT",936)="1"
^DIE("F58.1","PSGW INACTIVATE ITEM",938)="1"
^DIE("F58.2","PSD INV GROUP",940)="1"
^DIE("F58.2","PSGW WARD INVENTORY",935)="1"
^DIE("F58.8","PSAENT",941)="1"
^DIE("F58.8","PSAGIP",942)="1"
^DIE("F59","PSO SITE",869)="1"
^DIE("F59.3","PSO DISPLAY EDIT",875)="1"
^DIE("F59.5","PSJI SITE PARAMETERS",913)="1"
^DIE("F59.6","PSJ IWP EDIT",927)="1"
^DIE("F59.7","PSJ ECSP",923)="1"
^DIE("F59.7","PSJ OAOPT",917)="1"
^DIE("F60","LA7S ENTRY",1521)="1"
^DIE("F60","LR ATOMIC TESTS",41)="1"
^DIE("F60","LR COSMIC TESTS",42)="1"
^DIE("F60","LR VERIFY WKLD CODE",119)="1"
^DIE("F60","LRCYTOEDIT",108)="1"
^DIE("F61","LRAPTOP",76)="1"
^DIE("F61","LRAPTR",83)="1"
^DIE("F61.1","LRAPMOR",77)="1"
^DIE("F61.1","LRAPMR",84)="1"
^DIE("F61.2","LRAPER",85)="1"
^DIE("F61.2","LRAPETI",78)="1"
^DIE("F61.3","LRAPFR",86)="1"
^DIE("F61.3","LRAPFUN",80)="1"
^DIE("F61.4","LRAPDIS",79)="1"
^DIE("F61.4","LRAPDR",87)="1"
^DIE("F61.5","LRAPPR",88)="1"
^DIE("F61.5","LRAPPRO",81)="1"
^DIE("F61.6","LRAPOCC",82)="1"
^DIE("F61.6","LRAPOR",89)="1"
^DIE("F618","YSCEN UNIT DEF",987)="1"
^DIE("F62.06","LR LNC MAP ANTIMICROBIAL",1606)="1"
^DIE("F62.07","LR EXECUTE WKLD CODES",120)="1"
^DIE("F62.4","LA AUTO ACC",39)="1"
^DIE("F62.4","LA AUTO LL",40)="1"
^DIE("F62.4","LRAUTOACC",93)="1"
^DIE("F62.4","LRAUTOLL",94)="1"
^DIE("F63","LR ANAEROBIC PANEL",50)="1"
^DIE("F63","LR C&S",46)="1"
^DIE("F63","LR DEFAULT",91)="1"
^DIE("F63","LR FASTIDIOUS ORGANISM",51)="1"
^DIE("F63","LR GNR",52)="1"
^DIE("F63","LR GRAM NEG & URINARY",53)="1"
^DIE("F63","LR GRAM POSITIVE",54)="1"
^DIE("F63","LR MTB",59)="1"
^DIE("F63","LR OTHER",95)="1"
^DIE("F63","LR PSEUDO",44)="1"
^DIE("F63","LR STAPH",43)="1"
^DIE("F63","LR STERILITY",49)="1"
^DIE("F63","LR STREPT",45)="1"
^DIE("F63","LRBLPABRH",74)="1"
^DIE("F63","LRBLPAG",105)="1"
^DIE("F63","LRBLPCMBS",92)="1"
^DIE("F63","LRBLPCS",103)="1"
^DIE("F63","LRBLPEDIT",61)="1"
^DIE("F63","LRBLPOLD",75)="1"
^DIE("F63","LRBLPT",97)="1"
^DIE("F63","LRBLPTXR",118)="1"
^DIE("F63","LRBLSCREEN",90)="1"
^DIE("F63","LRBLSPP",96)="1"
^DIE("F63","LRCYWK",107)="1"
^DIE("F631","HBHC DISCHARGE",1341)="1"
^DIE("F631","HBHC UPDATE DISCHARGE",1343)="1"
^DIE("F631.4","HBHC EDIT PROVIDER (631.4)",1344)="1"
^DIE("F64","LR WKLD EDIT",110)="1"
^DIE("F64","LR WKLD EDIT ALL",1486)="1"
^DIE("F64","LR WKLD ES CPT",1642)="1"
^DIE("F64.1","LR WKLD COMMENTS",113)="1"
^DIE("F64.1","LR WKLD MANUAL INPUT",114)="1"
^DIE("F64.1","LR WKLD STD/QC/REPS",112)="1"
^DIE("F64.2","LR INSTRUMENT LOAD",109)="1"
^DIE("F64.2","LR WKLD CODE SUFFIX LOAD",111)="1"
^DIE("F65","LRBLIABRH",69)="1"
^DIE("F65","LRBLIAG",73)="1"
^DIE("F65","LRBLID",55)="1"
^DIE("F65","LRBLIDTM",71)="1"
^DIE("F65","LRBLILG",72)="1"
^DIE("F65","LRBLIXR",70)="1"
^DIE("F65","LRBLPOOL",1516)="1"
^DIE("F65.5","LRBLDABRH",67)="1"
^DIE("F65.5","LRBLDAG",64)="1"
^DIE("F65.5","LRBLDC",58)="1"
^DIE("F65.5","LRBLDCP",68)="1"
^DIE("F65.5","LRBLDCPN",100)="1"
^DIE("F65.5","LRBLDEDIT",60)="1"
^DIE("F65.5","LRBLDEF",62)="1"
^DIE("F65.5","LRBLDEMO",63)="1"
^DIE("F65.5","LRBLDNEW",66)="1"
^DIE("F65.5","LRBLDNEWM",99)="1"
^DIE("F65.5","LRBLDOLD",1517)="1"
^DIE("F65.5","LRBLDON",65)="1"
^DIE("F65.5","LRBLDT",101)="1"
^DIE("F65.5","LRBLDUC",102)="1"
^DIE("F650","SOWKCHAT",1296)="1"
^DIE("F650","SOWKCLOT",1298)="1"
^DIE("F650","SOWKEDIT",1302)="1"
^DIE("F650","SOWKOPEN",1297)="1"
^DIE("F650.1","SOWKCLINICS",1303)="1"
^DIE("F650.1","SOWKSITE",1300)="1"
^DIE("F650.1","SOWKSPF",1301)="1"
^DIE("F652","SOWKADDT",1292)="1"
^DIE("F652","SOWKCADT",1293)="1"
^DIE("F652","SOWKCWKT",1294)="1"
^DIE("F652","SOWKDELT",1295)="1"
^DIE("F655","SOWKCMRT",1299)="1"
^DIE("F655.2","SOWKDBCLS",1305)="1"
^DIE("F655.2","SOWKDBDPN",1306)="1"
^DIE("F655.2","SOWKDBEDU",1308)="1"
^DIE("F655.2","SOWKDBEMP",1307)="1"
^DIE("F655.2","SOWKDBIPA",1314)="1"
^DIE("F655.2","SOWKDBLE",1311)="1"
^DIE("F655.2","SOWKDBMIL",1309)="1"
^DIE("F655.2","SOWKDBPRO",1313)="1"
^DIE("F655.2","SOWKDBPSY",1315)="1"
^DIE("F655.2","SOWKDBSOC",1310)="1"
^DIE("F655.2","SOWKDBSUB",1312)="1"
^DIE("F656","SOWKBHED",1304)="1"
^DIE("F66","LRBLBP",106)="1"
^DIE("F660","RMPR ENTER CONTRACT",1697)="1"
^DIE("F660","RMPR ENTER RECALL DATA",1669)="1"
^DIE("F660","RMPR ENTER WAVIER EXCLUDE",1696)="1"
^DIE("F660","RMPRE2319",1321)="1"
^DIE("F660","RMPRE2319X",1560)="1"
^DIE("F661","RMPR ITEM EDIT",1316)="1"
^DIE("F664","RMPR 2520",1320)="1"
^DIE("F664","RMPR4 PC",1323)="1"
^DIE("F664","RMPR55",1318)="1"
^DIE("F664","RMPREYE",1319)="1"
^DIE("F665","RMPO ACT",1557)="1"
^DIE("F665","RMPO ADD/EDIT NON-ITEM",1559)="1"
^DIE("F665","RMPR PATIENT ADD",1317)="1"
^DIE("F665.4","RMPR FL 10-90 ADP",1322)="1"
^DIE("F668","RMPR EDIT STATION",1585)="1"
^DIE("F669.9","RMPO-EDIT-SITE",1558)="1"
^DIE("F68","LR ACC CONTROLS",48)="1"
^DIE("F68","LR WKLD STATS ON ACC AREA",116)="1"
^DIE("F68.2","LRLL CONTROLS",57)="1"
^DIE("F68.2","LRLLDFT",56)="1"
^DIE("F68.2","LRLLPRO",47)="1"
^DIE("F68.2","LRLOAD",117)="1"
^DIE("F680","LBRY BIBLIOGRAPHIC 2 ENTRY",1650)="1"
^DIE("F680","LBRY BIBLIOGRAPHIC ENTRY",1134)="1"
^DIE("F680","LBRY CHECK-IN SETUP",1133)="1"
^DIE("F680","LBRY FINANCIAL ENTRY",1135)="1"
^DIE("F680","LBRY LOCAL SETUP",1522)="1"
^DIE("F680.1","LBRYPUUP",1114)="1"
^DIE("F680.2","LBRYFRUP",1113)="1"
^DIE("F680.4","LBRY CONTACTS ROUTING",1105)="1"
^DIE("F680.5","LBRY CHECK-IN SETUP",1106)="1"
^DIE("F680.5","LBRY TITLE SETUP",1136)="1"
^DIE("F680.6","LBRY SITE",1104)="1"
^DIE("F680.6","LBRY SITE2",1647)="1"
^DIE("F680.8","LBRYINUP",1523)="1"
^DIE("F680.9","LBRYPPUP",1115)="1"
^DIE("F681","LBRY D1",1130)="1"
^DIE("F681","LBRY D2",1129)="1"
^DIE("F681","LBRY D3",1648)="1"
^DIE("F681","LBRY D4",1649)="1"
^DIE("F682","LBRY INSERT",1131)="1"
^DIE("F682","LBRY JOURNAL DATE EDIT",1132)="1"
^DIE("F682","LBRY PREDICT INSERT",1128)="1"
^DIE("F682.1","LBRYLTF",1111)="1"
^DIE("F682.1","LBRYREC",1112)="1"
^DIE("F69.2","LRAPHDR",98)="1"
^DIE("F69.9","LR WKLD STATS ON",115)="1"
^DIE("F690","MCARGIED",1353)="1"
^DIE("F690","MCARPACEDIT",1360)="1"
^DIE("F691","MCARECHO1",1348)="1"
^DIE("F691","MCARECHOB",1383)="1"
^DIE("F691","MCBLECHO",1415)="1"
^DIE("F691","MCFLECHO",1403)="1"
^DIE("F691.1","MCARBLCATH",1425)="1"
^DIE("F691.1","MCARCATH1",1350)="1"
^DIE("F691.1","MCARCATHB",1381)="1"
^DIE("F691.1","MCARCATHBRIEF",1376)="1"
^DIE("F691.1","MCARFLCATH",1426)="1"
^DIE("F691.1","MCBLCATH",1413)="1"
^DIE("F691.1","MCFLCATH",1405)="1"
^DIE("F691.5","MCARECG1",1346)="1"
^DIE("F691.5","MCARECGA",1362)="1"
^DIE("F691.5","MCARECGB",1382)="1"
^DIE("F691.5","MCBLECG",1414)="1"
^DIE("F691.5","MCFLECG",1401)="1"
^DIE("F691.6","MCARHOLTA",1366)="1"
^DIE("F691.6","MCARHOLTFM",1347)="1"
^DIE("F691.6","MCARHOLTFMBRIEF",1385)="1"
^DIE("F691.6","MCBLHOLTER",1417)="1"
^DIE("F691.6","MCFLHOLTER",1402)="1"
^DIE("F691.7","MCARTR1",1349)="1"
^DIE("F691.7","MCARTRB",1386)="1"
^DIE("F691.7","MCBLETT",1418)="1"
^DIE("F691.7","MCFLETT",1404)="1"
^DIE("F691.8","MCAREPBRIEF",1384)="1"
^DIE("F691.8","MCAREPEDITALL",1373)="1"
^DIE("F691.8","MCAREPENTRY",1345)="1"
^DIE("F691.8","MCBLEP",1416)="1"
^DIE("F691.8","MCFLEP",1400)="1"
^DIE("F6910","ENSITE",131)="1"
^DIE("F6910.2","ENSWOPT",133)="1"
^DIE("F6911","ENEQPMP",122)="1"
^DIE("F6914","ENEQDISP",1475)="1"
^DIE("F6914","ENEQENTER",127)="1"
^DIE("F6914","ENEQPMP",123)="1"
^DIE("F6914","ENEQTURN",1474)="1"
^DIE("F6915.4","ENFA CHANGE EN",382)="1"
^DIE("F6915.4","ENFA CHANGE FA",384)="1"
^DIE("F6915.4","ENFA CHANGE FB",383)="1"
^DIE("F6915.5","ENFA DELETE-D",1450)="1"
^DIE("F6915.5","ENFA DELETE-T",1449)="1"
^DIE("F6915.6","ENFA XFR",381)="1"
^DIE("F6916","ENGSURVEY",134)="1"
^DIE("F6917","ENCSN",135)="1"
^DIE("F6920","ENPMCLOSE",121)="1"
^DIE("F6920","ENWOBIOCLSE",126)="1"
^DIE("F6920","ENWOCLOSE",125)="1"
^DIE("F6920","ENWODISAP",128)="1"
^DIE("F6920","ENWOEDIT",137)="1"
^DIE("F6920","ENWONEW",124)="1"
^DIE("F6920","ENWONEWCLOSE",141)="1"
^DIE("F6920","ENWOWARD",129)="1"
^DIE("F6920","ENWOWARDXFER",130)="1"
^DIE("F6920","ENWOXFER",136)="1"
^DIE("F6920","ENY2CLOSE",1531)="1"
^DIE("F6925","ENPLI001",138)="1"
^DIE("F6925","ENPLI002",139)="1"
^DIE("F6925","ENPLI003",140)="1"
^DIE("F6925","ENPRI001",1518)="1"
^DIE("F6925","ENPRLOCAL",1519)="1"
^DIE("F6928","ENSPENTER",132)="1"
^DIE("F6928.3","ENSP-BLDG-P",142)="1"
^DIE("F694","MCARHEMBRIEF",1391)="1"
^DIE("F694","MCARHEMEDIT",1352)="1"
^DIE("F694","MCBLHEM",1422)="1"
^DIE("F694","MCFLHEM",1407)="1"
^DIE("F694.5","MCARSRAPOST",1364)="1"
^DIE("F694.5","MCARSRAPRE",1363)="1"
^DIE("F697.2","MCBUILDGENERIC",1424)="1"
^DIE("F698","MCBLGEN.IMPL.",1392)="1"
^DIE("F698","MCFLGEN.IMPL.",1356)="1"
^DIE("F698.1","MCBLV-LEAD IMP",1394)="1"
^DIE("F698.1","MCFLV-LEAD IMP",1357)="1"
^DIE("F698.2","MCBLA-LEAD IMP",1393)="1"
^DIE("F698.2","MCFLA-LEAD IMP",1358)="1"
^DIE("F698.3","MCARPACSURV",1359)="1"
^DIE("F698.3","MCARPACSURVBRIEF",1395)="1"
^DIE("F699","MCARGIBRIEF",1388)="1"
^DIE("F699","MCARGIBRIEFNON",1389)="1"
^DIE("F699","MCARGICONSULT",1354)="1"
^DIE("F699","MCARGIEDIT",1361)="1"
^DIE("F699","MCARGIEDIT1",1374)="1"
^DIE("F699","MCARGIEDIT2",1375)="1"
^DIE("F699","MCARGIEDITNON",1351)="1"
^DIE("F699","MCARPULMBRIEF",1390)="1"
^DIE("F699","MCARPULMEDIT",1355)="1"
^DIE("F699","MCBLGI",1419)="1"
^DIE("F699","MCBLNONENDO",1420)="1"
^DIE("F699","MCBLPULM",1421)="1"
^DIE("F699","MCFLGI",1409)="1"
^DIE("F699","MCFLNONENDO",1406)="1"
^DIE("F699","MCFLPULM",1408)="1"
^DIE("F699.5","MCBLGEN",1423)="1"
^DIE("F699.5","MCCONSULT",1378)="1"
^DIE("F699.5","MCCONSULTBRIEF",1387)="1"
^DIE("F699.5","MCFLGEN",1411)="1"
^DIE("F699.5","MCGENERIC",1379)="1"
^DIE("F699.5","MCGENERICBRIEF",1396)="1"
^DIE("F70","RA CANCEL",1074)="1"
^DIE("F70","RA DIAGNOSTIC BY CASE",1065)="1"
^DIE("F70","RA EXAM EDIT",1075)="1"
^DIE("F70","RA LAST PAST VISIT",1079)="1"
^DIE("F70","RA NO PURGE SPECIFICATION",1082)="1"
^DIE("F70","RA OUTSIDE ADD",1066)="1"
^DIE("F70","RA OUTSIDE EDIT",1067)="1"
^DIE("F70","RA OUTSIDE SUPEROK",1068)="1"
^DIE("F70","RA OVERRIDE",1078)="1"
^DIE("F70","RA REGISTER",1083)="1"
^DIE("F70","RA STATUS CHANGE",1071)="1"
^DIE("F700","MCBLPFT",1412)="1"
^DIE("F700","MCFLPFT",1410)="1"
^DIE("F700","MCPFTBRIEF",1380)="1"
^DIE("F700","MCPFTEDIT",1365)="1"
^DIE("F700","MCPFTEDITNEW",1399)="1"
^DIE("F701","MCRHBACKINFO",1377)="1"
^DIE("F701","MCRHBRIEF",1397)="1"
^DIE("F701","MCRHBRLINE",1398)="1"
^DIE("F701","MCRHDEATH",1370)="1"
^DIE("F701","MCRHDIAG",1372)="1"
^DIE("F701","MCRHHAQ",1369)="1"
^DIE("F701","MCRHHIST",1367)="1"
^DIE("F701","MCRHNARR",1371)="1"
^DIE("F701","MCRHPHYS",1368)="1"
^DIE("F71","RA PROCEDURE EDIT",1059)="1"
^DIE("F71.3","RA COMMON PROCEDURE EDIT",1085)="1"
^DIE("F72","RA STATUS ENTRY",1070)="1"
^DIE("F721","EC CREATE PATIENT ENTRY",1503)="1"
^DIE("F721","EC FILE PCE NODE",1504)="1"
^DIE("F731.5","ECT EQUIPMENT INPUT",1102)="1"
^DIE("F731.5","ECT STATUS EDIT",1103)="1"
^DIE("F74","RA PRE-VERIFY REPORT EDIT",1088)="1"
^DIE("F74","RA PRE-VERIFY REPORT ONLY",1089)="1"
^DIE("F74","RA REPORT EDIT",1069)="1"
^DIE("F74","RA VERIFY REPORT ONLY",1073)="1"
^DIE("F74.1","RA STANDARD REPORT ENTRY",1061)="1"
^DIE("F74.3","RA DISTRIBUTION EDIT",1080)="1"
^DIE("F74.3","RA DISTRIBUTION LOG",1081)="1"
^DIE("F740","QAQA QAC SITE PARAMETERS",1290)="1"
^DIE("F740","QAQA QAM SITE PARAMETERS",966)="1"
^DIE("F740","QAQA QAN SITE PARAMETERS",970)="1"
^DIE("F740","QAQA QAOS SITE PARAMETERS",968)="1"
^DIE("F740","QAQA QAQA SITE PARAMETERS",969)="1"
^DIE("F740","QAQA QARC SITE PARAMETERS",967)="1"
^DIE("F742.4","QAN ENTER TIME",1586)="1"
^DIE("F742.4","QAN QUICK EDIT",1587)="1"
^DIE("F745.1","QAC CONTACT ENTER/EDIT",1520)="1"
^DIE("F75.1","RA OERR EDIT",1084)="1"
^DIE("F75.1","RA ORDER EXAM",1087)="1"
^DIE("F75.1","RA QUICK EXAM ORDER",1086)="1"
^DIE("F771","HL 1.6 APPLICATION PARAM EDIT",386)="1"
^DIE("F776.1","HLEV MONITOR ENTER/EDIT",1662)="1"
^DIE("F776.999","HLEV MASTER JOB ENTER/EDIT",1663)="1"
^DIE("F779.2","HLOAPREG",1701)="1"
^DIE("F78.2","RA FLASH CARD EDIT",1063)="1"
^DIE("F783.9","RMIM FIM SITE PARAMETER",1646)="1"
^DIE("F79","RA DIVISION PARAMETERS",1062)="1"
^DIE("F79.1","RA LOCATION PARAMETERS",1064)="1"
^DIE("F79.1","RA SITE MANAGER",1072)="1"
^DIE("F79.2","RA IMAGE PARAMETERS",1076)="1"
^DIE("F79.2","RA ON-LINE CRITERIA",1077)="1"
^DIE("F798.1","RORMNT EDIT REG PARAMS",1633)="1"
^DIE("F798.9","RORMNT EDIT LAB SEARCH",1636)="1"
^DIE("F799.6","RORHDT EDIT EXTRACTION",1707)="1"
^DIE("F799.6","RORHDT EDIT NATIONAL EXTRACT",1708)="1"
^DIE("F8","DG ELIG ENTER/EDIT",445)="1"
^DIE("F8.2","DG ID FORMAT ENTER/EDIT",457)="1"
^DIE("F801.41","PXRM EDIT ELEMENT",1572)="1"
^DIE("F801.41","PXRM EDIT FORCED VALUE",1576)="1"
^DIE("F801.41","PXRM EDIT GROUP",1574)="1"
^DIE("F801.41","PXRM EDIT NATIONAL DIALOG",1631)="1"
^DIE("F801.41","PXRM EDIT REMINDER DIALOG",1573)="1"
^DIE("F801.41","PXRM RESULT ELEMENT",1578)="1"
^DIE("F801.41","PXRM RESULT GROUP",1579)="1"
^DIE("F81","DG RAM-DATA-INPUT",440)="1"
^DIE("F810.2","PXRM EXTRACT DEFINITION",1712)="1"
^DIE("F810.4","PXRM EDIT FINDING RULE",1687)="1"
^DIE("F810.4","PXRM EDIT PATIENT LIST RULE",1694)="1"
^DIE("F810.4","PXRM EDIT REMINDER RULE",1689)="1"
^DIE("F810.4","PXRM EDIT REPORT OUTPUT RULE",1690)="1"
^DIE("F810.4","PXRM EDIT RULE SET",1688)="1"
^DIE("F810.7","PXRM EXTRACT COUNTING",1713)="1"
^DIE("F810.8","PXRM EXTRACT COUNTING GROUP",1714)="1"
^DIE("F811.4","PXRM EDIT REMINDER CF",1577)="1"
^DIE("F811.5","PXRM EDIT NATIONAL TERM",1580)="1"
^DIE("F811.5","PXRM EDIT REMINDER TERM",1575)="1"
^DIE("F815","PX SITE PARAMETER EDIT",1014)="1"
^DIE("F869.2","HL TCP/IP ENTER",387)="1"
^DIE("F8925","TIU ENTER/EDIT CLINPROC RESULT",1637)="1"
^DIE("F8925","TIU ENTER/EDIT CONSULT RESULT",1500)="1"
^DIE("F8925","TIU ENTER/EDIT DS",1491)="1"
^DIE("F8925","TIU ENTER/EDIT PRF",1710)="1"
^DIE("F8925","TIU ENTER/EDIT PROGRESS NOTE",1493)="1"
^DIE("F8925","TIU ENTER/EDIT SURGICAL REPORT",1665)="1"
^DIE("F8925","TIUZ ENTER/EDIT PN",1502)="1"
^DIE("F8925.1","TIU EDIT DOCUMENT TYPE",1492)="1"
^DIE("F8925.1","TIU UPLOAD FIELD EDIT",1497)="1"
^DIE("F8925.1","TIUF UPLOAD FIELD EDIT",1498)="1"
^DIE("F8925.8","TIU ENTER/EDIT SEARCH CATEGORY",1496)="1"
^DIE("F8925.95","TIU DOCUMENT PARAMETER EDIT",1499)="1"
^DIE("F8925.98","TIU ENTER/EDIT PERSONAL LIST",1501)="1"
^DIE("F8925.99","TIU BASIC PARAMETER EDIT",1494)="1"
^DIE("F8925.99","TIU UPLOAD PARAMETER EDIT",1495)="1"
^DIE("F8930","USR CLASS STRUCTURE EDIT",1490)="1"
^DIE("F8930.1","USR DEFINE AUTHORIZATIONS",1488)="1"
^DIE("F8930.3","USR CLASS EDIT",1487)="1"
^DIE("F8930.3","USR MEMBERSHIP EDIT",1489)="1"
^DIE("F8980","XTKERMIT-1",23)="1"
^DIE("F8984.1","XTLK EDIT KEY",28)="1"
^DIE("F8984.2","XTLK EDIT SHORT",25)="1"
^DIE("F8984.3","XTLK EDIT SYN",26)="1"
^DIE("F8984.4","XTLK EDIT LOOKUP",27)="1"
^DIE("F8987.1","XUCS SITE EDIT",30)="1"
^DIE("F8987.1","XUCS VOL GROUP EDIT",31)="1"
^DIE("F8989.3","XU KSP INIT",20)="1"
^DIE("F8989.3","XUAUDIT",19)="1"
^DIE("F8989.3","XUSITEPARM",21)="1"
^DIE("F8989.51","XPAR MULTI VALUED CREATE",1543)="1"
^DIE("F8989.51","XPAR SINGLE VALUED CREATE",1542)="1"
^DIE("F8991.19","XTV EDIT VERIF PACKAGE",24)="1"
^DIE("F8994.1","XWB LISTENER EDIT",1561)="1"
^DIE("F9.6","XPD EDIT BUILD",1)="1"
^DIE("F9.8","XU ROUTINE DOC",6)="1"
^DIE("F9.9","XTPM COMPLETE NON-KIDS PATCH",1698)="1"
^DIE("F9.9","XTPM EDIT PATCH",1699)="1"
^DIE("F9.95","XTPM EDIT PATCH MONITOR PARAMS",1700)="1"
^DIE("F9000001","PX LOCATION OF HOME",1013)="1"
^DIE("F9002313.56","BPSJ PHARM ALT CONT ENTER/EDIT",1685)="1"
^DIE("F9002313.56","BPSJ PHARM CONTACT ENTER/EDIT",1684)="1"
^DIE("F9002313.56","BPSJ PHARMACIST ENTER/EDIT",1686)="1"
^DIE("F9002313.56","BPSJ PHARMACY SITE ENTER/EDIT",1683)="1"
^DIE("F9002313.99","BPSJ ALT CONTACT ENTER/EDIT",1682)="1"
^DIE("F9002313.99","BPSJ CONTACT ENTER/EDIT",1681)="1"
^DIE("F9009032.4","PSO INTERVENTION EDIT",871)="1"
^DIE("F9009032.4","PSO INTERVENTION NEW",870)="1"
^DIE("F910","ESP BICYCLE REGISTRATION",1266)="1"
^DIE("F910","ESP COURTESY VIOLATION INPUT",1269)="1"
^DIE("F910","ESP GOLF REGISTRATION",1265)="1"
^DIE("F910","ESP PET REGISTRATION",1268)="1"
^DIE("F910","ESP REGISTRATION",1453)="1"
^DIE("F910","ESP USDCVN INPUT",1270)="1"
^DIE("F910","ESP VEHICLE REGISTRATION",1264)="1"
^DIE("F910","ESP WEAPON REGISTRATION",1267)="1"
^DIE("F910.1","ESP ACTIVITY ADD/EDIT",1276)="1"
^DIE("F910.2","ESP REGISTRATION 2",1456)="1"
^DIE("F910.2","ESP REGISTRATION 3",1454)="1"
^DIE("F910.2","ESP REGISTRATION 4",1457)="1"
^DIE("F910.2","ESP REGISTRATION 5",1455)="1"
^DIE("F910.7","ESP SELECTABLES EDIT",1274)="1"
^DIE("F910.8","ESP EVIDENCE ADD/EDIT",1277)="1"
^DIE("F911","ESP ACTIVITY CODE EDIT",1273)="1"
^DIE("F911.2","ESP DISPOSITION EDIT",1272)="1"
^DIE("F912","ESP FOLLOW-UP NOTES",1281)="1"
^DIE("F912","ESP OFFENSE REPORT 4",1287)="1"
^DIE("F912","ESP OFFENSE REPORT 5",1288)="1"
^DIE("F912","ESP OFFENSE REPORT EDIT",1283)="1"
^DIE("F912","ESP OFFENSE REPORT EDIT 1",1284)="1"
^DIE("F912","ESP OFFENSE REPORT EDIT 2",1285)="1"
^DIE("F912","ESP OFFENSE REPORT EDIT 3",1286)="1"
^DIE("F912.5","ESP TRAINING EDIT",1271)="1"
^DIE("F913","ESP W&W INPUT",1278)="1"
^DIE("F914","ESP UNKNOWN VIOLATOR EDIT",1289)="1"
^DIE("F915","ESP OFFENSE CODE EDIT",1275)="1"
^DIE("F916","ESP ADD JOURNAL ENTRY",1280)="1"
^DIE("F916","ESP CREATE JOURNAL",1279)="1"
^DIE("F95","LRAPLIB",104)="1"
^DIE("F984.9","MPIF OPEN REQUEST",1550)="1"
^DIE("F984.9","MPIF REQUEST INCOMING",1552)="1"
^DIE("F984.9","MPIF RESULT INCOMING",1555)="1"
^DIE("F984.9","MPIF REVIEW AUTO",1556)="1"
^DIE("F984.9","MPIF REVIEW RESET",1554)="1"
^DIE("F984.9","MPIF REVIEW RESULT",1553)="1"
^DIE("F991.8","MPIF SITE PARAMETERS",1548)="1"
^DIE("F995.1","RGEQ NEW EXCEPTION",1546)="1"
^DIE("F995.2","RGEQ NEW STATISTIC",1547)="1"
^DIE("F9999999.09","PXTT EDIT PAT. EDUCATION",1012)="1"
^DIE("F9999999.64","PXTT EDIT HEALTH FACTORS",1011)="1"