{"aaData": [["1002", "LAB ORDER LABEL", "
12
\n", "
80
\n", "", "
YES
\n", "
\n
\n\n
\n", "
\nW ?38,"",$$NAME^ORU($G(ORPNAME),"")\nW !?0,"",$G(ORPURG)\nW ?38,"","Specimen Label: "\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW !?0,"","**LAB SLIP**  BRING TO LAB"\nW !\nW !\nW !\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nW !?0,"",$G(ORPCB)\nW ?38,"",$$SSN^ORU($G(ORPSSN),"")\nW ?51,"LB #",$G(ORPLB)\nW !\nW !?57,"",$G(ORPRMBED)\nW ?59,"",$G(ORPLOC)\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW !?0,"Start Date: ",$$DATE^ORU($G(ORPSTRT),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NWDC\",\"SPICWC\")
\n", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Start Date: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_"Specimen Label: ",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"**LAB SLIP**  BRING TO LAB",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPCB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\n
\n
\n"], ["1003", "LAB REQUISITION", "
14
\n", "", "", "", "
\n
\n\n
\n", "
\nW !\nW ?29,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")\nW !\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW ?49,"",$G(ORPURG)\nW !\nW !?0,"","Time of Collection:_____________"\nW !?0,"Collection Sample: ",$G(ORPCOT)\nW !?0,"",$$TEXT^ORU($G(ORUT),"70")\nW !?0,"",$$TEXT^ORU($G(OROT),"70")\nW !?0,"WARD COMMENTS: ",$$TEXT^ORU($G(OROOT6),"")\nW !?14,"",$G(ORPCB)\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nW ?29,"ORD: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nW !?14,"LB #",$G(ORPLB)\nW ?29,"LOC: ",$G(ORPRLOC)\nW !?0,"",$$NAME^ORU($G(ORPNAME),"")\nW ?29,"",$$SSN^ORU($G(ORPSSN),"")\nW !?0,"Entered By: ",$$NAME^ORU($G(ORPEB),"")\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NWDC\",\"WCSPIC\")
\n", "
\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"LOC: "_$G(ORPRLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Entered By: "_$$NAME^ORU4($G(ORPEB),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,""_$G(ORPCB),.CCNT)\nS X=$$S^ORU4(49,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Time of Collection:_____________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Collection Sample: "_$G(ORPCOT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(ORUT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(OROT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"WARD COMMENTS: "_$$TEXT^ORU4($G(OROOT6),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nS X=$$S^ORU4(29,.CCNT,"ORD: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\n
\n
\n"], ["1004", "CHART COPY 1", "
5
\n", "", "
45
\n", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPSTAT)\nK X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES\nW ?2,"",$$TMPWRAP^ORU($G(OROOT),"45")\nW ?57,"Start: ",$$DATE^ORU($G(ORPSTRT),"")\nW !?57,"Stop: ",$$DATE^ORU($G(ORPSTOP),"")\nW !?56,"Ord'd: ",$$DATE^ORU($G(ORPODT),"")\nW !?4,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW ?24,"",$G(ORPES)\nW !\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,"Stop: "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(56,.CCNT,"Ord'd: "_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,56,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPSTAT),.CCNT)\nS X=$$S^ORU4(4,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,4,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(24,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nK X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(2,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"45",.ORHOOT,2,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1005", "CHART COPY 2", "
5
\n", "", "
60
\n", "", "
\n
\n\n
\n", "
\nW ?0,"",$$DATE^ORU($G(ORPODT),"")\nK X,ORPODT,OROOT,ORPNAT,ORPSTRT,ORPRPHY,ORPSTOP,ORPES\nW ?15,"",$$TMPWRAP^ORU($G(OROOT),"60")\nW !?3,"",$G(ORPNAT)\nW !?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"")\nW ?54,"Req  : ",$$NAME^ORU($G(ORPRPHY),"")\nW !?19,"Stop : ",$$DATE^ORU($G(ORPSTOP),"")\nW ?54,"",$G(ORPES)\nW !\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,19,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(54,.CCNT,"Req  : "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,54,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(19,.CCNT,"Stop : "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,19,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(54,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nK X,ORPODT,OROOT,ORPNAT,ORPSTRT,ORPRPHY,ORPSTOP,ORPES\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(15,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"60",.ORHOOT,15,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,""_$G(ORPNAT),.CCNT)\n
\n
\n"], ["1006", "CHART COPY HEADER", "
8
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nW !?0,"","    MEDICAL RECORD        |           D O C T O R ' S   O R D E R S"\nW !?0,"",$G(ORPLINE)\nW !?0,"","NOTE: Physician's signature must accompany each entry including standing orders"\nW !?0,"","Date and time for instituting and discontinuing the orders must be recorded"\nW !?0,"",$G(ORPLINE)\nW !?1,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"\nW !?0,"",$G(ORPLINE)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"NOTE: Physician's signature must accompany each entry including standing orders",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Date and time for instituting and discontinuing the orders must be recorded",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_"DATE & TIME |                 O R D E R S                  | SIGNATURES",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"    MEDICAL RECORD        |           D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1007", "CHART COPY FOOTER", "
9
\n", "", "", "", "
\n
\n\n
\n", "
\nW !\nW !?44,"","|  D O C T O R ' S   O R D E R S"\nW !?44,"","|"\nW !?44,"","|  VA FORM 10-1158"\nW !?44,"","|__________________________________"\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDTT\nW !?0,"",$G(ORPLINE)\nW !?44,"","|"\nW !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")\nW ?28,"",$$SSN^ORU($G(ORPSSN),"")\nW ?44,"","|         MEDICAL RECORD"\nW !?3,"Loc: ",$G(ORPLOC)\nW ?22,"Date: ",$$DATE^ORU($G(ORPDTT),"MM/DD/CCYY HR:MIN")\nW ?44,"","|"\n
\n
\n", "", "
\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,1,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(28,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,28,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|         MEDICAL RECORD",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,"Loc: "_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(22,.CCNT,"Date: "_$$DATE^ORU4($G(ORPDTT),"MM/DD/CCYY HR:MIN",.ORHOOT,22,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|  D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nS X=$$S^ORU4(44,.CCNT,""_"|  VA FORM 10-1158",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|__________________________________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDTT\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1008", "SHORT", "
1
\n", "", "
57
\n", "", "
\n
\n\n
\n", "
\nW ?3,"",$G(ORPSTAT)\nW ?7,"",$$TMPWRAP^ORU($G(OROOT),"57")\nW ?68,"",$$DATE^ORU($G(ORPODT),"")\nK X,ORPSTAT,OROOT,ORPODT\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nK X,ORPSTAT,OROOT,ORPODT\nS X=$$S^ORU4(3,.CCNT,""_$G(ORPSTAT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(7,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"57",.ORHOOT,7,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(68,.CCNT,""_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,68,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1009", "LONG", "
3
\n", "", "
30
\n", "", "
\n
\n\n
\n", "
\nW ?3,"",$G(ORPSTAT)\nW !\nK X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP\nW ?7,"",$$TMPWRAP^ORU($G(OROOT),"30")\nW ?36,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY")\nW ?47,"",$$NAME^ORU($G(ORPRPHY),"LAST,FI")\nW ?58,"",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY")\nW ?69,"",$$DATE^ORU($G(ORPSTOP),"MM/DD/CCYY")\nW !?39,"",$$DATE^ORU($G(ORPODT),"HR:MIN")\nW ?61,"",$$DATE^ORU($G(ORPSTRT),"HR:MIN")\nW ?72,"",$$DATE^ORU($G(ORPSTOP),"HR:MIN")\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(47,.CCNT,""_$$NAME^ORU4($G(ORPRPHY),"LAST,FI",.ORHOOT,47,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(58,.CCNT,""_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY",.ORHOOT,58,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(69,.CCNT,""_$$DATE^ORU4($G(ORPSTOP),"MM/DD/CCYY",.ORHOOT,69,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS X=$$S^ORU4(3,.CCNT,""_$G(ORPSTAT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,""_$$DATE^ORU4($G(ORPODT),"HR:MIN",.ORHOOT,39,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(61,.CCNT,""_$$DATE^ORU4($G(ORPSTRT),"HR:MIN",.ORHOOT,61,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(72,.CCNT,""_$$DATE^ORU4($G(ORPSTOP),"HR:MIN",.ORHOOT,72,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(7,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"30",.ORHOOT,7,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(36,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY",.ORHOOT,36,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1010", "DOCTOR'S ORDERS", "
4
\n", "", "
33
\n", "", "
\n
\n\n
\n", "
\nW ?0,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nK X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG\nW ?18,"",$G(ORPSTAT)\nW ?21,"",$$TMPWRAP^ORU($G(OROOT),"33")\nW ?59,"",$G(ORPES)\nW !?20,$S($L($G(ORPSTRT)):"Start: ",1:""),$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")\nW ?59,"",$G(ORPDOT)\nW !\nW !?34,$S($L($G(ORPURG)):"Urgency: ",1:""),$G(ORPURG)\nW ?35,$S($L($G(ORPCURG)):"URG: ",1:""),$G(ORPCURG)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(20,.CCNT,$S($L($G(ORPSTRT)):"Start: ",1:"")_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,20,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPDOT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(34,.CCNT,$S($L($G(ORPURG)):"Urgency: ",1:"")_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(35,.CCNT,$S($L($G(ORPCURG)):"URG: ",1:"")_$G(ORPCURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(18,.CCNT,""_$G(ORPSTAT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(21,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"33",.ORHOOT,21,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1011", "CONSULTATION FOOTER", "
13
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"","The patient was examined                           Yes___  No___"\nW !?0,"PATIENT'S ID.: ",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")\nW ?51,"","CONSULTATION SHEET"\nW !?15,"",$$SSN^ORU($G(ORPSSN),"")\nW ?51,"","STANDARD FORM 513 (Rev 9-77)"\nW !?15,"",$G(ORPLOC)\nW ?25,"",$G(ORPRMBED)\nW ?51,"","Prescribed by GSA/ICMR"\nW !?51,"","FIRNIR (41 CFR) 201-45.505"\nW !?51,"","513-108"\nW !?0,"","The patient's medical record was reviewed          Yes___  No___"\nK X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED\nW !?0,"","Significant findings                               Yes___  No___"\nW !?0,"",$G(ORPLINE)\nW !?0,"","SIGNATURE & TITLE:"\nW ?62,"","| DATE:"\nW !?0,"",$G(ORPLINE)\nW !?0,"","ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________"\nW !?0,"",$G(ORPLINE)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Significant findings                               Yes___  No___",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"SIGNATURE & TITLE:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_"The patient was examined                           Yes___  No___",.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(62,.CCNT,""_"| DATE:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PATIENT'S ID.: "_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS X=$$S^ORU4(51,.CCNT,""_"CONSULTATION SHEET",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(15,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,15,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,""_"STANDARD FORM 513 (Rev 9-77)",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(15,.CCNT,""_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(25,.CCNT,""_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,""_"Prescribed by GSA/ICMR",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS X=$$S^ORU4(0,.CCNT,""_"The patient's medical record was reviewed          Yes___  No___",.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,""_"FIRNIR (41 CFR) 201-45.505",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,""_"513-108",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1012", "CONSULTATION HEADER", "
3
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?0,"","     MEDICAL RECORD     |                  CONSULTATION SHEET"\nW !?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPLINE\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"     MEDICAL RECORD     |                  CONSULTATION SHEET",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1013", "CONSULTATION BODY", "
18
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPCTYPE)\nW !?0,"",$G(ORPLINE)\nW !?0,"PROVISIONAL DIAG: ",$G(ORPDX)\nW !?0,"",$G(ORPLINE)\nW !?0,"","REQUESTED BY:"\nW ?14,"",$$NAME^ORU($G(ORPRPHY),"LAST, FI MI")\nW ?31,"","| APPROVED:"\nW ?43,"","| PLACE:"\nW ?63,"","| URGENCY:"\nW !?0,"",$G(ORPES)\nW ?31,"","| _________"\nW ?19,"",$G(ORPCPROC)\nW ?43,"| ",$G(ORPLACE)\nW ?63,"| ",$G(ORPCURG)\nW !?0,"",$G(ORPLINE)\nW !?29,"","CONSULTATION REPORT"\nW !?0,"",$G(ORPLINE)\nW !\nW !\nW !\nW !\nW !?0,"",$G(ORPLINE)\nK X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE\nW !?0,"TO: ",$G(ORPCTO)\nW ?28,"| FROM: ",$G(ORPRLOC)\nW ?57,"| REQUESTED: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY")\nW !?0,"",$G(ORPLINE)\nW !?0,"","REASON FOR REQUEST (Complaints and findings)"\nW !?0,"",$$WORD^ORU($G(OROOT3),"78")\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"TO: "_$G(ORPCTO),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(28,.CCNT,"| FROM: "_$G(ORPRLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,"| REQUESTED: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPCTYPE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"REASON FOR REQUEST (Complaints and findings)",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$WORD^ORU4($G(OROOT3),"78",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PROVISIONAL DIAG: "_$G(ORPDX),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"REQUESTED BY:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(19,.CCNT,""_$G(ORPCPROC),.CCNT)\nS X=$$S^ORU4(14,.CCNT,""_$$NAME^ORU4($G(ORPRPHY),"LAST, FI MI",.ORHOOT,14,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(31,.CCNT,""_"| APPROVED:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(43,.CCNT,""_"| PLACE:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(63,.CCNT,""_"| URGENCY:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(31,.CCNT,""_"| _________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(43,.CCNT,"| "_$G(ORPLACE),.CCNT)\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(63,.CCNT,"| "_$G(ORPCURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,""_"CONSULTATION REPORT",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nK X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE\n
\n
\n"], ["1015", "CHART COPY BODY", "
2
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nW ?18,"",$$TMPWRAP^ORU($G(OROOT),"36")\nW ?59,"","____________________"\nW !\nK X,ORPODT,OROOT\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nK X,ORPODT,OROOT\nS X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(18,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"36",.ORHOOT,18,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(59,.CCNT,""_"____________________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1016", "DOCTORS ORDERS FOOTER", "
8
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW ?44,"","|  D O C T O R ' S   O R D E R S"\nW !?44,"","|"\nW !?2,"",$G(ORPMAN)\nW ?44,"","|  VA FORM 10-1158"\nW !?44,"","|__________________________________"\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN\nW !?44,"","|"\nW !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")\nW ?28,"",$$SSN^ORU($G(ORPSSN),"")\nW ?44,"","|         MEDICAL RECORD"\nW !?3,"Loc: ",$G(ORPLOC)\nW ?27,"Date: ",$$DATE^ORU($G(ORPDT),"MM/DD/CCYY")\nW ?44,"","|"\nW !?3,"Room/Bed:",$G(ORPRMBED)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,1,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(28,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,28,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|         MEDICAL RECORD",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nS X=$$S^ORU4(3,.CCNT,"Loc: "_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(27,.CCNT,"Date: "_$$DATE^ORU4($G(ORPDT),"MM/DD/CCYY",.ORHOOT,27,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(3,.CCNT,"Room/Bed:"_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|  D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(2,.CCNT,""_$G(ORPMAN),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|  VA FORM 10-1158",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|__________________________________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1017", "DOCTOR'S ORDERS HEADER", "
8
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nW !?0,"","    MEDICAL RECORD        |           D O C T O R ' S   O R D E R S"\nW !?0,"",$G(ORPLINE)\nW !?0,"","NOTE: Physician's signature must accompany each entry including standing orders"\nW !?0,"","Date and time for instituting and discontinuing the orders must be recorded"\nW !?0,"",$G(ORPLINE)\nW !?1,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"\nW !?0,"",$G(ORPLINE)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"NOTE: Physician's signature must accompany each entry including standing orders",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Date and time for instituting and discontinuing the orders must be recorded",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_"DATE & TIME |                 O R D E R S                  | SIGNATURES",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"    MEDICAL RECORD        |           D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1018", "LAB SERVICE COPY HEADER", "
5
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?1,"","SERVICE COPY          |       L A B O R A T O R Y   S E R V I C E"\nW !?0,"",$G(ORPLINE)\nW !?1,"","Status          Item Ordered                    Ord'd  Requestor  Start"\nW !?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE,ORPLINE\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_"Status          Item Ordered                    Ord'd  Requestor  Start",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nK X,ORPLINE,ORPLINE,ORPLINE\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_"SERVICE COPY          |       L A B O R A T O R Y   S E R V I C E",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1019", "RX HEADER", "
9
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nW !?3,"","PHARMACY COPY        |           D O C T O R ' S   O R D E R S"\nW !?0,"",$G(ORPLINE)\nW !?0,"","NOTE: Physician's signature must accompany each entry including standing orders"\nW !?0,"","Date and time for instituting and discontinuing the orders must be recorded"\nW !?0,"",$G(ORPLINE)\nW !?0,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"\nW !?0,"",$G(ORPLINE)\nW !\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"NOTE: Physician's signature must accompany each entry including standing orders",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Date and time for instituting and discontinuing the orders must be recorded",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"DATE & TIME |                 O R D E R S                  | SIGNATURES",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nK X,ORPLINE,ORPLINE,ORPLINE,ORPLINE\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,""_"PHARMACY COPY        |           D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1020", "LAB LABEL (Buffalo)", "
6
\n", "", "", "
YES
\n", "
\n
\n\n
\n", "
\nW ?0,"",$$NAME^ORU($G(ORPNAME),"")\nW ?57,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW !?0,"Urgency: ",$G(ORPURG)\nW ?57,"","DRAWN BY:"\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW ?57,"","Date/time:"\nW !\nK X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2\nW ?34,"RM/Bed: ",$G(ORPRMBED)\nW ?57,"",$$NAME^ORU($G(ORPNAME),"")\nW !?0,"",$$SSN^ORU($G(ORPSSN),"")\nW ?21,"LB #",$G(ORPLB)\nW ?57,"",$$SSN^ORU($G(ORPSSN),"")\nW ?79,"LB #",$G(ORPLB)\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW ?34,"LOC:",$G(ORPLOC)\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NWDC\",\"WCSPIC\")
\n", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(21,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(79,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(34,.CCNT,"LOC:"_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Urgency: "_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_"DRAWN BY:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_"Date/time:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nK X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2\nS X=$$S^ORU4(34,.CCNT,"RM/Bed: "_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1021", "RX FOOTER", "
8
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW ?44,"","|  D O C T O R ' S   O R D E R S"\nW !?44,"","|"\nW !?44,"","|  VA FORM 10-1158"\nW !?44,"","|__________________________________"\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED\nW !?44,"","|"\nW !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")\nW ?28,"",$$SSN^ORU($G(ORPSSN),"")\nW ?44,"","|         PHARMACY COPY"\nW !?3,"Loc: ",$G(ORPLOC)\nW ?27,"Date: ",$$DATE^ORU($G(ORPDT),"")\nW ?44,"","|"\nW !?3,"Room/Bed: ",$G(ORPRMBED)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,1,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(28,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,28,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|         PHARMACY COPY",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nS X=$$S^ORU4(3,.CCNT,"Loc: "_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(27,.CCNT,"Date: "_$$DATE^ORU4($G(ORPDT),"",.ORHOOT,27,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(3,.CCNT,"Room/Bed: "_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|  D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|  VA FORM 10-1158",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|__________________________________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1022", "GENERIC ORDER LABEL", "
6
\n", "
80
\n", "", "", "
\n
\n\n
\n", "
\nW ?0,$S($L($G(ORPSTRT)):"Start Date: ",1:""),$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY")\nW !\nW !\nK X,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC\nW ?40,"",$$NAME^ORU($G(ORPNAME),"LAST,FIRST MI")\nW !?0,$S($L($G(OROOT)):"",1:""),$$TMPWRAP^ORU($G(OROOT),"38")\nW ?40,"",$$SSN^ORU($G(ORPSSN),"")\nW ?54,"",$$DOB^ORU($G(ORPDOB),"")\nW ?65,"",$$AGE^ORU($G(ORPAGE),"")\nW !?57,"",$G(ORPRMBED)\nW !?0,$S($L($G(ORPRPHY)):"PHY: ",1:""),$$NAME^ORU($G(ORPRPHY),"")\nW ?57,"",$G(ORPLOC)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(40,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,40,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(54,.CCNT,""_$$DOB^ORU4($G(ORPDOB),"",.ORHOOT,54,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(65,.CCNT,""_$$AGE^ORU4($G(ORPAGE),"",.ORHOOT,65,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,$S($L($G(ORPSTRT)):"Start Date: ",1:"")_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,$S($L($G(ORPRPHY)):"PHY: ",1:"")_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nK X,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(40,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST,FIRST MI",.ORHOOT,40,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,$S($L($G(OROOT)):"",1:"")_$$TMPWRAP^ORU4($G(OROOT),"38",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\n
\n
\n"], ["1023", "WORK COPY FORMAT", "
4
\n", "", "
36
\n", "", "
\n
\n\n
\n", "
\nW ?0,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nW ?18,"",$$TMPWRAP^ORU($G(OROOT),"36")\nW ?59,"",$G(ORPES)\nW !?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")\nW ?59,"",$G(ORPDOT)\nW !\nW !\nK X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,19,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPDOT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nK X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT\nS X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(18,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"36",.ORHOOT,18,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1024", "WORK COPY HEADER", "
6
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?0,"","       WORK COPY          |           D O C T O R ' S   O R D E R S"\nW !?0,"",$G(ORPLINE)\nW !?1,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"\nW !?0,"",$G(ORPLINE)\nW !\nK X,ORPLINE,ORPLINE,ORPLINE\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_"DATE & TIME |                 O R D E R S                  | SIGNATURES",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nD LN^ORU4\nK X,ORPLINE,ORPLINE,ORPLINE\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"       WORK COPY          |           D O C T O R ' S   O R D E R S",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1025", "WORK COPY FOOTER", "
8
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?44,"","|"\nW !?44,"","|__________________________________"\nW !\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED\nW !?44,"","|"\nW !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")\nW ?28,"",$$SSN^ORU($G(ORPSSN),"")\nW ?44,"","|"\nW !?3,"Loc: ",$G(ORPLOC)\nW ?44,"","|"\nW !?3,"Room/Bed:",$G(ORPRMBED)\nW ?44,"","|   ****  W O R K   C O P Y  ****"\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(1,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,1,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(28,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,28,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nS X=$$S^ORU4(3,.CCNT,"Loc: "_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,"Room/Bed:"_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(44,.CCNT,""_"|   ****  W O R K   C O P Y  ****",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|__________________________________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nK X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(44,.CCNT,""_"|",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1026", "RX LABEL FORMAT", "
1
\n", "", "", "
YES
\n", "
\n
\n\n
\n", "
\nD LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y="OROOT5"\n
\n
\n", "", "
\nD LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y="OROOT5"\n
\n
\n"], ["1027", "CHART COPY 3", "
6
\n", "", "
60
\n", "", "
\n
\n\n
\n", "
\nW ?0,"",$$DATE^ORU($G(ORPODT),"")\nW !\nW !\nK X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES\nW ?15,"",$$TMPWRAP^ORU($G(OROOT),"60")\nW !?3,"",$G(ORPNAT)\nW !?3,"Nurse: ",$G(ORPVNI)\nW ?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"")\nW ?54,"Req  : ",$$NAME^ORU($G(ORPRPHY),"")\nW !?3,"Clerk: ",$G(ORPVCI)\nW ?19,"Stop : ",$$DATE^ORU($G(ORPSTOP),"")\nW ?54,"",$G(ORPES)\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,"Nurse: "_$G(ORPVNI),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,19,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(54,.CCNT,"Req  : "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,54,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,"Clerk: "_$G(ORPVCI),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(19,.CCNT,"Stop : "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,19,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(54,.CCNT,""_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nK X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(15,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"60",.ORHOOT,15,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(3,.CCNT,""_$G(ORPNAT),.CCNT)\n
\n
\n"], ["1028", "CONSULTS SERVICE COPY", "
1
\n", "", "", "
YES
\n", "
\n
\n\n
\n", "
\nD EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n
\n
\n", "", "
\nD EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n
\n
\n"], ["1029", "CONSULT NEW BODY", "
1
\n", "", "", "
YES
\n", "
\n
\n\n
\n", "
\nD EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n
\n
\n", "", "
\nD EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))\n
\n
\n"], ["1030", "LAB LABEL (Buffalo)-WC New Orders & Reprint", "
6
\n", "", "", "
YES
\n", "
\n
\n\n
\n", "
\nW ?0,"",$$NAME^ORU($G(ORPNAME),"")\nW ?57,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW !?0,"Urgency: ",$G(ORPURG)\nW ?57,"","DRAWN BY:"\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW ?57,"","Date/time:"\nW !\nK X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2\nW ?34,"RM/Bed: ",$G(ORPRMBED)\nW ?57,"",$$NAME^ORU($G(ORPNAME),"")\nW !?0,"",$$SSN^ORU($G(ORPSSN),"")\nW ?21,"LB #",$G(ORPLB)\nW ?57,"",$$SSN^ORU($G(ORPSSN),"")\nW ?79,"LB #",$G(ORPLB)\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW ?34,"LOC:",$G(ORPLOC)\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\",\"WC\")
\n", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(21,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(79,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(34,.CCNT,"LOC:"_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Urgency: "_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_"DRAWN BY:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_"Date/time:",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nK X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2\nS X=$$S^ORU4(34,.CCNT,"RM/Bed: "_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1031", "LAB LABEL/INTERMEC-WC New Orders & Reprint", "
1
\n", "
1
\n", "", "
YES
\n", "
\n
\n\n
\n", "
\nW !\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\",\"WC\")
\n", "
\nD LN^ORU4\n
\n
\n"], ["1032", "LAB ORDER LABEL-WC New Orders & Reprint", "
12
\n", "
80
\n", "", "
YES
\n", "
\n
\n\n
\n", "
\nW ?38,"",$$NAME^ORU($G(ORPNAME),"")\nW !?0,"",$G(ORPURG)\nW ?38,"","Specimen Label: "\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW !?0,"","**LAB SLIP**  BRING TO LAB"\nW !\nW !\nW !\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nW !?0,"",$G(ORPCB)\nW ?38,"",$$SSN^ORU($G(ORPSSN),"")\nW ?51,"LB #",$G(ORPLB)\nW !\nW !?57,"",$G(ORPRMBED)\nW ?59,"",$G(ORPLOC)\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW !?0,"Start Date: ",$$DATE^ORU($G(ORPSTRT),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\",\"WC\")
\n", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Start Date: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_"Specimen Label: ",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"**LAB SLIP**  BRING TO LAB",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPCB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\n
\n
\n"], ["1033", "LAB REQUISITION New & reprint,WC,SP", "
14
\n", "", "", "", "
\n
\n\n
\n", "
\nW !\nW ?29,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")\nW !\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW ?49,"",$G(ORPURG)\nW !\nW !?0,"","Time of Collection:_____________"\nW !?0,"Collection Sample: ",$G(ORPCOT)\nW !?0,"",$$TEXT^ORU($G(ORUT),"70")\nW !?0,"",$$TEXT^ORU($G(OROT),"70")\nW !?0,"WARD COMMENTS: ",$$TEXT^ORU($G(OROOT6),"")\nW !?14,"",$G(ORPCB)\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nW ?29,"ORD: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nW !?14,"LB #",$G(ORPLB)\nW ?29,"LOC: ",$G(ORPRLOC)\nW !?0,"",$$NAME^ORU($G(ORPNAME),"")\nW ?29,"",$$SSN^ORU($G(ORPSSN),"")\nW !?0,"Entered By: ",$$NAME^ORU($G(ORPEB),"")\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\",\"WCSP\")
\n", "
\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"LOC: "_$G(ORPRLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Entered By: "_$$NAME^ORU4($G(ORPEB),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,""_$G(ORPCB),.CCNT)\nS X=$$S^ORU4(49,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Time of Collection:_____________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Collection Sample: "_$G(ORPCOT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(ORUT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(OROT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"WARD COMMENTS: "_$$TEXT^ORU4($G(OROOT6),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nS X=$$S^ORU4(29,.CCNT,"ORD: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\n
\n
\n"], ["1034", "LAB REQUISITION New & reprint only", "
14
\n", "", "", "", "
\n
\n\n
\n", "
\nW !\nW ?29,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")\nW !\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW ?49,"",$G(ORPURG)\nW !\nW !?0,"","Time of Collection:_____________"\nW !?0,"Collection Sample: ",$G(ORPCOT)\nW !?0,"",$$TEXT^ORU($G(ORUT),"70")\nW !?0,"",$$TEXT^ORU($G(OROT),"70")\nW !?0,"WARD COMMENTS: ",$$TEXT^ORU($G(OROOT6),"")\nW !?14,"",$G(ORPCB)\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nW ?29,"ORD: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")\nW !?14,"LB #",$G(ORPLB)\nW ?29,"LOC: ",$G(ORPRLOC)\nW !?0,"",$$NAME^ORU($G(ORPNAME),"")\nW ?29,"",$$SSN^ORU($G(ORPSSN),"")\nW !?0,"Entered By: ",$$NAME^ORU($G(ORPEB),"")\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\")
\n", "
\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"LOC: "_$G(ORPRLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Entered By: "_$$NAME^ORU4($G(ORPEB),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(29,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(14,.CCNT,""_$G(ORPCB),.CCNT)\nS X=$$S^ORU4(49,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"Time of Collection:_____________",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Collection Sample: "_$G(ORPCOT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(ORUT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(OROT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"WARD COMMENTS: "_$$TEXT^ORU4($G(OROOT6),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6\nS X=$$S^ORU4(29,.CCNT,"ORD: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\n
\n
\n"], ["1035", "LAB ORDER LABEL New & reprint,WC,SP", "
12
\n", "
80
\n", "", "
YES
\n", "
\n
\n\n
\n", "
\nW ?38,"",$$NAME^ORU($G(ORPNAME),"")\nW !?0,"",$G(ORPURG)\nW ?38,"","Specimen Label: "\nW !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")\nW !?0,"","**LAB SLIP**  BRING TO LAB"\nW !\nW !\nW !\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nW !?0,"",$G(ORPCB)\nW ?38,"",$$SSN^ORU($G(ORPSSN),"")\nW ?51,"LB #",$G(ORPLB)\nW !\nW !?57,"",$G(ORPRMBED)\nW ?59,"",$G(ORPLOC)\nW !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")\nW !?0,"Start Date: ",$$DATE^ORU($G(ORPSTRT),"")\n
\n
\n", "
I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),\"NW\",\"WCSP\")
\n", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(51,.CCNT,"LB #"_$G(ORPLB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(57,.CCNT,""_$G(ORPRMBED),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\nS X=$$S^ORU4(59,.CCNT,""_$G(ORPLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Start Date: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPURG),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_"Specimen Label: ",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"**LAB SLIP**  BRING TO LAB",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nK X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPCB),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(38,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)\n
\n
\n"], ["1036", "FH OUTPT MEAL TICKET", "
40
\n", "", "
50
\n", "
NO
\n", "
\n
\n\n
\n", "
\nW !\nW !?39,"E/S Title:  ",$G(ORPDOT)\nW !?39,"E/S Date :  ",$$DATETIME^ORU($G(ORPESD),"")\nW !\nW !\nW !?0,"Pt Authorized a:  ",$$TMPWRAP^ORU($G(OROOT),"")\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !\nW !?0,"Name of Pt:  ",$$NAME^ORU($G(ORPNAME),"FIRST LAST")\nW !\nW !\nW !\nW !\nW !?0,"","ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED."\nW !\nW !\nW !\nW !\nW !\nW ?29,$S($L($G(ORPLAST4)):"",1:""),$G(ORPLAST4)\nW !\nW !\nW !\nW !\nW !\nK X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT\nW ?39,"Req Loc  :  ",$G(ORPRLOC)\nW !?0,"Start Date:  ",$$DATE^ORU($G(ORPSTRT),"")\nW ?39,"Req Phys :  ",$$NAME^ORU($G(ORPRPHY),"")\nW !?0,"Stop Date :  ",$$DATE^ORU($G(ORPSTOP),"")\nW ?39,"E/S Name :  ",$G(ORPES)\n
\n
\n", "", "
\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,"Req Loc  :  "_$G(ORPRLOC),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Start Date:  "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,"Req Phys :  "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,39,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Stop Date :  "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,"E/S Name :  "_$G(ORPES),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,"E/S Title:  "_$G(ORPDOT),.CCNT)\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,"E/S Date :  "_$$DATETIME^ORU4($G(ORPESD),"",.ORHOOT,39,.GCNT,.CCNT),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"Pt Authorized a:  "_$$TMPWRAP^ORU4($G(OROOT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nS X=$$S^ORU4(0,.CCNT,"Name of Pt:  "_$$NAME^ORU4($G(ORPNAME),"FIRST LAST",.ORHOOT,0,.GCNT,.CCNT),.CCNT)\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED.",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nD LN^ORU4\nK X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT\nS X=$$S^ORU4(29,.CCNT,$S($L($G(ORPLAST4)):"",1:"")_$G(ORPLAST4),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\n
\n
\n"], ["1037", "FH OUTPT MEAL HEADER", "
3
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?0,"","     A U T H O R I Z E D    O U T P A T I E N T    M E A L    V O U C H E R"\nW !?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPLINE\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nK X,ORPLINE,ORPLINE\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"     A U T H O R I Z E D    O U T P A T I E N T    M E A L    V O U C H E R",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\n
\n
\n"], ["1038", "FH OUTPT MEAL FOOTER", "
5
\n", "", "", "", "
\n
\n\n
\n", "
\nW ?0,"",$G(ORPLINE)\nW !?0,"","In lieu of VA FORM 10-2817"\nW ?39,"",$G(ORPMAN)\nW !\nW !?0,"","Facility:  "_$P($$SITE^VASITE,U,2)\nW !?0,"",$G(ORPLINE)\nK X,ORPLINE,ORPMAN,ORPLINE\n
\n
\n", "", "
\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,"""Facility:  "_$P($$SITE^VASITE,U,2),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)\nK X,ORPLINE,ORPMAN,ORPLINE\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nD LN^ORU4\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(0,.CCNT,""_"In lieu of VA FORM 10-2817",.CCNT)\nI $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X\nS:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""\nS X=$$S^ORU4(39,.CCNT,""_$G(ORPMAN),.CCNT)\n
\n
\n"]]}