{"aaData": [["YEARLY", "S %DT=\"\",X=\"T\" D ^%DT S LRAD=$E(Y,1,3)_\"0000\" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),\"^\",3),1:0) Q\n", "Y\n", "ACCESSION\n", "", "", "", "", ""], ["PARASITOLOGY", "S DR=\"15.5////\"_DUZ_\";.05;.99;15;16;17;14\",DR(2,63.34)=\".01:99\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nStuff PARASITE ENTERING PERSON with current user; SITE/SPECIMEN; COMMENT ON\nSPECIMEN; PARASITE RPT STATUS; multiple PARASITE including STAGE,\nQUANTITY and COMMENTS; PARASITE RPT REMARK; PARASITE RPT DATE APPROVED.\n
\n\n"], ["VA CONTROL RULES", "I $P(^LRO(68,LRAA,1,LRAD,1,LRAN,0),U,2)=62.3 S LRTEST=\"\" D ^LRMRSHRT\n", "", "VERIFICATION\n", "", "", "", "", ""], ["ASTRA 32 cups 1&2 blank", "S LRCUP=$S(LRCUP<3:3,1:LRCUP+1) I LRCUP>32 S LRTRAY=LRTRAY+1,LRCUP=3\n", "", "LOADLIST\n", "", "", "", "", "\nSets up trays of 32 cups with the first 2 cups blank.\n
\n\n"], ["SMAC 8 cups/tray", "S LRCUP=LRCUP+1 I LRCUP>8 S LRCUP=1,LRTRAY=LRTRAY+1\n", "", "LOADLIST\n", "", "", "", "", "\nDoes the same thing as a Universal load transform with 8 cups/tray.\n
\n\n"], ["UNIVERSAL", "S LRCUP=LRCUP+1 I LRMAXCUP,LRCUP>LRMAXCUP S LRCUP=1,LRTRAY=LRTRAY+1\n", "", "LOADLIST\n", "", "", "", "", "\nThis is the default load transform.\n
\n\n"], ["ABO/RH", "S DR=\"[LRBLPABRH]\"\n", "", "EDIT\n", "", "", "", "", "\nUse LRBLPABRH edit template. For Blood Bank\n
\n\n"], ["VIROLOGY", "S DR=\"35////\"_DUZ_\";.05;.99;34;36;37;33\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nStuff VIROLOGY ENTERING PERSON with current user; SITE/SPECIMEN; COMMENT\nON SPECIMEN; VIROLOGY REPORT STATUS; VIRUS; VIROLOGY RPT REMARK; VIROLOGY\nRPT DATE.\n
\n\n"], ["URINE VOLUME", "R !,\"Enter the urine volume: \",LRCCOM S:+LRCCOM'=LRCCOM LRCCOM=\"?\"\n", "", "COMMENT\n", "ENTER JUST THE URINE VOLUME.\n", "", "", "", "\nPrompts for entering the urine volume, entry must be numeric.\n
\n\n"], ["ORDER COMMENT", "R !,\"Enter Order Comment: \",LRCCOM:$S($D(DTIME):DTIME,1:99) S:$L(LRCCOM)&(LRCCOM'=\"?\") LRCCOM=\"~\"_LRCCOM\n", "", "COMMENT\n", "Please enter a comment about this test order\n", "", "", "", "\nPrompts for a comment to be made at the time of ordering.\n
\n\n"], ["ANTICOAGULATION", "R !,\"WHAT kind of anticoagulant is the patient on? : \",LRCCOM S:LRCCOM]\"\" LRCCOM=\"~ANTICOAGULANT: \"_LRCCOM\n", "", "COMMENT\n", "", "", "", "", "\nPrompts to have the patient's anticoagulant entered.\n
\n\n"], ["MONTHLY", "S %DT=\"\",X=\"T\" D ^%DT S LRAD=$E(Y,1,5)_\"00\" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),\"^\",3),1:0) Q\n", "M\n", "ACCESSION\n", "", "", "", "", ""], ["SIC/SBC", "S DR=\"11.55////\"_DUZ_\";11.5//P;12;.99;11\",DR(2,63.3)=\"1.3;1.4;1.5;1.6;1.7;1.8\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with P; Stuff BACT PERSON with current user;\nmultiple ORGANISM including SIC #1, SBC #1, DRAW TIME #1 (SIC,SBC),\nSIC #2, SBC #2, DRAW TIME #2 (SIC,SBC); COMMENT ON SPECIMEN; \nBACT RPT DATE APPROVED.\n
\n\n"], ["ANTIBIOTIC LEVEL", "S DR=\"11.55////\"_DUZ_\";11.5//P;28;11\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with P; stuff BACT PERSON with current user;\nANTIBIOTIC LEVEL; BACT RPT DATE APPROVED.\n
\n\n"], ["MIC/MBC", "S DR=\"11.55////\"_DUZ_\";11.5//P;12;11\",DR(2,63.3)=200 D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with P; stuff BACT PERSON with current user;\nmultiple ORGANISM including ANTIBIOTIC; BACT RPT DATE APPROVED.\n
\n\n"], ["GRAM STAIN (labeled)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.6;11.6///***\"_$P(^LAB(60,LRTS,0),U,1)_\";11\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; stuff GRAM STAIN with ***TEST NAME; GRAM STAIN; BACT RPT DATE.\nAPPROVED.\n
\n\n"], ["NEG BACT RESULTS", "S LRSETDR=\"S DR=$S($L(LRCMNT):\"\"11///T;13///\"\"_LRCMNT,1;11.5//P,1:\"\"11///T;13;11.5//P\"\")\"\n", "", "EDIT\n", "", "", "", "", "\nNot used.\n
\n\n"], ["BACT SMEAR/PREP (labeled)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.7;11.7///***\"_$P(^LAB(60,LRTS,0),U,1)_\";13;13///***\"_$P(^LAB(60,LRTS,0),U,1)_\";11\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; stuff BACTERIOLOGY SMEAR/PREP with ***TEST NAME; BACTERIOLOGY\nSMEAR/PREP; stuff BACT RPT REMARK with ***TEST NAME; BACT RPT REMARK;\nBACT RPT DATE APPROVED.\n
\n\n"], ["PARASITE SMEAR/PREP (labeled)", "S DR=\"15.5////\"_DUZ_\";15//P;15.51;15.51///***\"_$P(^LAB(60,LRTS,0),U,1)_\";17;17///***\"_$P(^LAB(60,LRTS,0),U,1)_\";14\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt PARASITE RPT STATUS with default of P; stuff PARASITE ENTERING\nPERSON with current user; stuff PARASITOLOGY SMEAR/PREP with ***TEST NAME;\nPARASITOLOGY SMEAR/PREP; stuff PARASITE RPT REMARK with ***TEST NAME;\nPARASITE RPT REMARK; PARASITE RPT DATE APPROVED.\n
\n\n"], ["MYCOLOGY SMEAR/PREP (labeled)", "S DR=\"19.5////\"_DUZ_\";19//P;19.6;19.6///***\"_$P(^LAB(60,LRTS,0),U,1)_\";21;21///***\"_$P(^LAB(60,LRTS,0),U,1)_\";18\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt MYCOLOGY RPT STATUS with default of P; stuff MYC PERSON with current\nuser; stuff MYCOLOGY SMEAR/PREP with ***TEST NAME; MYCOLOGY SMEAR/PREP;\nstuff MYCOLOGY RPT REMARK with ***TEST NAME; MYCOLOGY RPT REMARK;\nMYCOLOGY RPT DATE APPROVED.\n
\n\n"], ["AFB REMARKS (labeled)", "S DR=\"25.5////\"_DUZ_\";23//P;27;27///***\"_$P(^LAB(60,LRTS,0),U,1)_\";22\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt TB RPT STATUS with P; stuff TB ENTERING PERSON with current user;\nstuff TB RPT REMARK with ***TEST NAME; TB RPT REMARK; TB RPT DATE APPROVED.\n
\n\n"], ["BULL'S ALGOR or MULTI-RULE", "S LRMACH=$S(LRMETH]\"\":$O(^LAB(62.4,\"D\",LRMETH,0)),1:\"\"),LRTEST=\"\" S:LRMACH<1 LRMACH=99 D LABULL^LRQCC:$P(^LRO(68,LRAA,1,LRAD,1,LRAN,0),U,2)'=62.3,^LRMRSHRT:$P(^LRO(68,LRAA,1,LRAD,1,LRAN,0),U,2)=62.3\n", "", "VERIFICATION\n", "", "", "", "", ""], ["DAILY", "S LRAD=DT\n", "D\n", "ACCESSION\n", "", "", "", "", ""], ["TDM (PEAK-TROUGH)", "D TDM^LREXECU\n", "", "COMMENT\n", "", "", "", "", "\nUsed as a Required Comment to collect when the sample will be drawn:\nPeak, Trough, Mid or Unknown.\n
\n\n"], ["BUGS", "S DR=\"[C&S] ;11\"\n", "", "EDIT\n", "", "", "", "", "\nUse C&S edit template; BACT RPT DATE APPROVED.\n
\n\n"], ["STERILITY", "S DR=\"[LR STERILITY] ;11.5\"\n", "", "EDIT\n", "", "", "", "", "\nUse STERILITY edit template; BACT RPT STATUS.\n
\n\n"], ["COOMBS", "S DR=\"[LRBLPCMBS]\"\n", "", "EDIT\n", "", "", "", "", "\nUse COOMBS display template. For Blood Bank\n
\n\n"], ["SPUTUM SCREEN (labeled)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.58;11.58///***\"_$P(^LAB(60,LRTS,0),U,1)_\";11\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; stuff SPUTUM SCREEN with ***TEST NAME; SPUTUM SCREEN; BACT RPT DATE\nAPPROVED.\n
\n\n"], ["QUARTERLY", "S %DT=\"\",X=\"T\" D ^%DT S LRAD=$E(Y,1,3)_\"0000\"+(($E(Y,4,5)-1)\\3*300+100) S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),\"^\",4),1:0) Q\n", "Q\n", "ACCESSION\n", "", "", "", "", ""], ["URINE SCREEN (labeled)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.57;11.57///***\"_$P(^LAB(60,LRTS,0),U,1)_\";11\" D ^DIE Q ;FIFO\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; stuff URINE SCREEN with ***TEST NAME; URINE SCREEN; BACT RPT DATE\nAPPROVED.\n
\n\n"], ["ALPHA DATE", "S Y=$E(\"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC\",$E(Y,4,5)*3-2,$E(Y,4,5)*3)_\" \"_$S(Y#100:$J(Y#100\\1,2)_\", \",1:\"\")_(Y\\10000+1700)_$S(Y#1:\" \"_$E(Y_0,9,10)_\":\"_$E(Y_\"000\",11,12),1:\"\")\n", "", "XECUTE\n", "", "ADD\n", "", "", ""], ["DISPLAY DATE", "S Y=$E(Y,4,5)_\"/\"_$E(Y,6,7)_\"/\"_$E(Y,2,3)_$S(Y#1:\" \"_$E(Y_0,9,10)_\":\"_$E(Y_\"000\",11,12),1:\"\")\n", "", "XECUTE\n", "", "DD\n", "", "", ""], ["SET DT", "S X=\"T\",%DT=\"\" D ^%DT S DT=Y X ^LAB(\"X\",\"DD\") S LRDT0=Y\n", "", "XECUTE\n", "", "DT\n", "", "", ""], ["STAMP", "S X=\"N\",%DT=\"ET\" D ^%DT\n", "", "XECUTE\n", "", "STAMP\n", "", "", ""], ["GET PATIENT", "S U=\"^\" X:$D(LRDPF) ^LAB(\"X\",\"PT1\") S:'$D(LRDPF) X=$S($D(^DPT(DFN,0))#2:^(0),$D(^LAB(62.3,DFN,0)):^(0),1:\"\") S PNM=$P(X,U,1),SEX=$P(X,U,2),SEX=$S(SEX=\"\":\"M\",1:SEX),DOB=$P(X,U,3),X=$P(X,U,9) X ^LAB(\"X\",\"PT2\")\n", "", "XECUTE\n", "", "PT\n", "", "", ""], ["GET PATIENT1", "Q:LRDPF<1 S X=^DIC(+LRDPF,0,\"GL\")_DFN_\",0)\",X=$S($D(@X):@X,1:\"\"),LRWRD=$S($D(^(.1)):$P(^(.1),U,1),1:\"\")\n", "", "XECUTE\n", "", "PT1\n", "", "", ""], ["DUZ", "S (LRUSNM,LRUSI)=\"\" Q:'$D(X) Q:'$D(^VA(200,+X,0)) S LRUSNM=$P(^(0),\"^\",1),LRUSI=$P(^(0),\"^\",2) Q\n", "", "XECUTE\n", "", "DUZ\n", "", "", ""], ["MOD 8", "S:'(LRIDENT#8) LRIDENT=LRIDENT+1 S:LRIDENT>135 LRIDENT=1\n", "", "IDENTITY\n", "", "", "", "", "\nNot used.\n
\n\n"], ["YMD FROM $H", "S %=%H>21549+%H-.1,%Y=%\\365.25+141,%=%#365.25\\1,%D=%+306#(%Y#4=0+365)#153#61#31+1,%M=%-%D\\29+1,X=%Y_\"00\"+%M_\"00\"+%D K %Y,%D,%M,%\n", "", "XECUTE\n", "", "YMD\n", "", "", ""], ["DASH", "W !,$E(\"---------------------------------------------------------------------------------------------------------------------------------------------------------------\",1,IOM-1)\n", "", "XECUTE\n", "", "DASH\n", "", "", ""], ["EQUALS", "W !,$E(\"======================================================================================================================================================================\",1,IOM-1)\n", "", "XECUTE\n", "", "EQUALS\n", "", "", ""], ["URGENCY", "K LRURG S LRURG(0)=\"ROUTINE\" F I=0:0 S I=$O(^LAB(62.05,I)) Q:I<1 S LRURG(I)=$P(^(I,0),U,1)\n", "", "XECUTE\n", "", "URG\n", "", "", ""], ["KEYCOM", "X ^LAB(\"X\",\"EQUALS\") W !!,\" ------------------------------ COMMENTS ------------------------------\",!,\" Key: 'L' = reference Low, 'H' = reference Hi, '*' = critical range\"\n", "", "XECUTE\n", "", "KEYCOM\n", "", "", ""], ["GET PATIENT2", "S:'$D(LRDPF) LRDPF=2 S SSN=$S(+LRDPF=2:$E(X,1,3)_\"-\"_$E(X,4,5)_\"-\"_$E(X,6,9),1:X),AGE=$S($D(DT)&(DOB?7N):DT-DOB\\10000,1:\"??\")\n", "", "XECUTE\n", "", "PT2\n", "", "", ""], ["ERROR TRAP", "D ^%ET\n", "", "XECUTE\n", "", "%ET\n", "", "", ""], ["SYSTEM STATUS", "D ^%SS,^LRPARAM\n", "", "XECUTE\n", "", "%SS\n", "", "", "\nIf you are using a DSM operating system this code should be\nD ^%SY,^LRPARAM\nTo change it you must not only edit the execute code, but must also reindex\nthe "AC" x-ref in the SUBSCRIPT field. This will set the global,\n^LAB("X","%SS")\n\n\n"], ["AFB REMARKS (nolabel)", "S DR=\"25.5////\"_DUZ_\";23//P;27;22\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt TB RPT STATUS with default of P; stuff TB ENTERING PERSON with\ncurrent user; TB RPT REMARK; TB RPT DATE APPROVED.\n
\n\n"], ["BULL ALGORITHM", "S LRMACH=$S(LRMETH]\"\":$O(^LAB(62.4,\"D\",LRMETH,0)),1:\"\") S:LRMACH<1 LRMACH=99 D LABULL^LRQCC\n", "", "VERIFICATION\n", "", "", "", "", ""], ["BACT SMEAR/PREP (nolabel)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.7;13;11\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; BACTERIOLOGY SMEAR PREP; BACT RPT REMARK; BACT RPT DATE APPROVED.\n
\n\n"], ["GRAM STAIN (nolabel)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.6;11\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; GRAM STAIN; BACT RPT DATE APPROVED.\n
\n\n"], ["MYCOLOGY SMEAR/PREP (nolabel)", "S DR=\"19.5////\"_DUZ_\";19//P;19.6;21;18\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt MYCOLOGY RPT STATUS with default of P; stuff MYC PERSON with current\nuser; MYCOLOGY SMEAR/PREP; MYCOLOGY RPT REMARK; MYCOLOGY RPT DATE APPROVED.\n
\n\n"], ["PARASITE SMEAR/PREP (nolabel)", "S DR=\"15.5////\"_DUZ_\";15//P;15.51;17;14\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt PARASITE RPT STATUS with default of P; stuff PARASITE ENTERING\nPERSON with current user; PARASITOLOGY SMEAR/PREP; PARASITE RPT REMARK;\nPARASITE RPT DATE APPROVED.\n
\n\n"], ["SPUTUM SCREEN (nolabel)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.58;11\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; SPUTUM SCREEN; BACT RPT DATE APPROVED.\n
\n\n"], ["URINE SCREEN (nolabel)", "S DR=\"11.55////\"_DUZ_\";11.5//P;11.57;11\" D ^DIE Q ;FIFO, this is a Fast In Fast Out\n", "", "EDIT\n", "", "", "", "", "\nPrompt BACT RPT STATUS with default of P; stuff BACT PERSON with current\nuser; URINE SCREEN; BACT RPT DATE APPROVED.\n
\n\n"], ["DOSE/DRAW TIMES", "D DOSE^LREXECU\n", "", "COMMENT\n", "", "", "", "", "\nThis collects the last dose time and the draw time for theraputic\ndrug monitoring.\n
\n\n"], ["TRANSFUSION", "I $D(LRE),LRE=\"BB\" D EN1^LRBLPCS\n", "", "COMMENT\n", "", "", "", "", "\nAsks for blood components\n
\n\n"], ["DIFF EQUAL 100", "S %X=0 X \"F %=394:1:399 S:$D(LRSB(%)) %X=%X+LRSB(%)\" I %X'=100 W !,\"DIFF does not equal 100. count = \",%X\n", "", "DATA\n", "", "", "", "", "\nAdds up the entries of all tests (data names from 394 to 399) and displays\na warning if the total does not equal 100. Could be entered on any single\ntest in the panel in the EXECUTE ON DATA REVIEW field in file 60.\n
\n\n"], ["SKIP", "S LRCUP=LRCUP+1 S:LRCUP'=1 LRCUP=LRCUP+1 I LRCUP>LRMAXCUP S LRTRAY=LRTRAY+1,LRCUP=1\n", "", "LOADLIST\n", "", "", "", "", "\nWill only build on odd number cups (exp. 1,3,5,7,...).\n
\n\n"], ["BACTERIOLOGY", "S DR=\"11.55////\"_DUZ_\";.055;.05;.99;11.6;11.5;1;S LRSPEC=$P(LRBG0,U,5),Y=$S(LRSPEC=71:11.57,LRSPEC=360:11.58,1:0);11.57;S Y=0;11.58\",LREND=0 D ^DIE S:$D(Y) LREND=1 Q:$D(Y) D ^LRMIBUG Q:LREND S DR=\"13;11\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nStuff BACT PERSON with current user; COLLECTION SAMPLE;\nSITE/SPECIMEN; COMMENT ON SPECIMEN; BACT RPT STATUS; PRELIMINARY BACT COMMENT;\nif specimen is urine use URINE SCREEN; if specimen is sputum use SPUTUM SCREEN.\nEnter the ORGANISM and antibiotics (edit templates may be utilized); BACT RPT REMARK; BACT RPT DATE APPROVED.\n
\n\n"], ["LRBLSCREEN", "S DR=\"[LRBLSCREEN]\"\n", "", "EDIT\n", "This is the edit templete for blood bank type and screen test.\n", "", "", "", ""], ["ORDER COMMENT MODIFIED", "S:$S($D(LRCOM(LRSAMP,LRSPEC,1)):$S(LRCOM(LRSAMP,LRSPEC,1)[\"~For Test:\":1,1:0),1:0) LRCOM(LRSAMP,LRSPEC)=0 R !,\"Enter Order Comment: \",LRCCOM:DTIME\n", "", "COMMENT\n", "Please enter a comment about this order.\n", "", "", "", "\nOrder comment that suppresses '~For test:'\n
\n\n"], ["GET PATIENT3", "I LRDPF=2 S SSN=$E(X,10,11)_\"-\"_$E(X,1,9) S:$T(+0)[\"LRRP\"!($T(+0)[\"LRMIPSZ\") AGE=AGE_\" PH #: \"_$S($D(^DPT($P(^LR(LRDFN,0),U,3),.13)):$S($P(^DPT($P(^LR(LRDFN,0),U,3),.13),U)'=\"\":$P(^DPT($P(^LR(LRDFN,0),U,3),.13),U),1:\"Un\n", "", "XECUTE\n", "", "PT3\n", "", "", ""], ["ANION GAP", "I $D(LRSB(5)),$D(LRSB(7)),$D(LRSB(8)),LRSB(5)>0,LRSB(7)>0,LRSB(8)>0 S %X=LRSB(5)-LRSB(7)-LRSB(8) W \" ANION GAP=\",%X K %X\n", "", "DATA\n", "", "", "", "", ""], ["TEST EXIT CODE", "W !,\"TEST EXIT CODE\" S X=\"EXIT\",X1=\"DATA REVIEW\" D SETVAL,SETUTL\n", "", "DATA\n", "", "", "", "", ""], ["TB BACTERIOLOGY", "S DR=\"25.5////\"_DUZ_\";.05;.99;23;24;25;26;26.5;27;22\",DR(2,63.39)=\".01;1:99\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nStuff TB ENTERING PERSON with current user; SITE/SPECIMEN;\nCOMMENT ON SPECIMEN; TB RPT STATUS; ACID FAST STAIN; QUANTITY; multiple\nMYCOBACTERIUM including QUANTITY, COMMENTS and DRUGS; PRELIMINARY TB COMMENT;\nTB RPT REMARK; TB RPT DATE APPROVED.\n
\n\n"], ["MYCOLOGY", "S DR=\"19.5////\"_DUZ_\";.05;.99;19;20;20.5;21;18\",DR(2,63.37)=\".01:99\" D ^DIE Q\n", "", "EDIT\n", "", "", "", "", "\nStuff MYC PERSON with current user; SITE/SPECIMEN; COMMENT ON\nSPECIMEN; MYCOLOGY RPT STATUS; multiple FUNGUS/YEAST including QUANTITY and\nCOMMENTS; PRELIMINARY MYCOLOGY COMMENT; MYCOLOGY RPT REMARK; MYCOLOGY RPT DATE APPROVED.\n
\n\n"]]}