LAB REQUISITION (1003)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME LAB REQUISITION
ROWS 14
FIELDS
COMPILED CODE
W !
W ?29,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")
W !
W !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")
W ?49,"",$G(ORPURG)
W !
W !?0,"","Time of Collection:_____________"
W !?0,"Collection Sample: ",$G(ORPCOT)
W !?0,"",$$TEXT^ORU($G(ORUT),"70")
W !?0,"",$$TEXT^ORU($G(OROT),"70")
W !?0,"WARD COMMENTS: ",$$TEXT^ORU($G(OROOT6),"")
W !?14,"",$G(ORPCB)
K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6
W ?29,"ORD: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")
W !?14,"LB #",$G(ORPLB)
W ?29,"LOC: ",$G(ORPRLOC)
W !?0,"",$$NAME^ORU($G(ORPNAME),"")
W ?29,"",$$SSN^ORU($G(ORPSSN),"")
W !?0,"Entered By: ",$$NAME^ORU($G(ORPEB),"")
W !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")
SCREEN I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),"NWDC","WCSPIC")
SILENT CODE
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(14,.CCNT,"LB #"_$G(ORPLB),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(29,.CCNT,"LOC: "_$G(ORPRLOC),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(29,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"Entered By: "_$$NAME^ORU4($G(ORPEB),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(29,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(14,.CCNT,""_$G(ORPCB),.CCNT)
S X=$$S^ORU4(49,.CCNT,""_$G(ORPURG),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_"Time of Collection:_____________",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"Collection Sample: "_$G(ORPCOT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(ORUT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$$TEXT^ORU4($G(OROT),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"WARD COMMENTS: "_$$TEXT^ORU4($G(OROOT6),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6
S X=$$S^ORU4(29,.CCNT,"ORD: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4