LAB LABEL (Buffalo)-WC New Orders & Reprint (1030)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME LAB LABEL (Buffalo)-WC New Orders & Reprint
ROWS 6
SINGLE YES
FIELDS
COMPILED CODE
W ?0,"",$$NAME^ORU($G(ORPNAME),"")
W ?57,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")
W !?0,"Urgency: ",$G(ORPURG)
W ?57,"","DRAWN BY:"
W !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70")
W ?57,"","Date/time:"
W !
K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2
W ?34,"RM/Bed: ",$G(ORPRMBED)
W ?57,"",$$NAME^ORU($G(ORPNAME),"")
W !?0,"",$$SSN^ORU($G(ORPSSN),"")
W ?21,"LB #",$G(ORPLB)
W ?57,"",$$SSN^ORU($G(ORPSSN),"")
W ?79,"LB #",$G(ORPLB)
W !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")
W ?34,"LOC:",$G(ORPLOC)
SCREEN I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),"NW","WC")
SILENT CODE
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.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(21,.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(57,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(0,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(79,.CCNT,"LB #"_$G(ORPLB),.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)
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(34,.CCNT,"LOC:"_$G(ORPLOC),.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
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(57,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,57,.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,"Urgency: "_$G(ORPURG),.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(57,.CCNT,""_"DRAWN BY:",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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(57,.CCNT,""_"Date/time:",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2
S X=$$S^ORU4(34,.CCNT,"RM/Bed: "_$G(ORPRMBED),.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(57,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X