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

• NAME of Patient
  ROW:   1
  COLUMN:   1
  CAPTION (Optional):   NONE
• LAB TEST
  ROW:   3
  COLUMN:   58
  FORMAT:   70
• LAB TEST
  ROW:   5
  COLUMN:   1
  FORMAT:   70
• LAB ORDER #
  ROW:   2
  COLUMN:   22
• LAB ORDER #
  ROW:   2
  COLUMN:   80
• FREE TEXT
  ROW:   4
  COLUMN:   58
  LITERAL TEXT:   DRAWN BY:
• NAME of Patient
  ROW:   1
  COLUMN:   58
  CAPTION (Optional):   NONE
• SSN of Patient
  ROW:   2
  COLUMN:   1
  CAPTION (Optional):   NONE
• SSN of Patient
  ROW:   2
  COLUMN:   58
  CAPTION (Optional):   NONE
• REQUESTING PHYSICIAN
  ROW:   3
  COLUMN:   1
• FREE TEXT
  ROW:   5
  COLUMN:   58
  CAPTION (Optional):   Drawn By:
  LITERAL TEXT:   Date/time:
• LAB URGENCY
  ROW:   4
  COLUMN:   1
• ROOM/BED of Patient
  ROW:   1
  COLUMN:   35
• LOCATION of Patient
  ROW:   3
  COLUMN:   35
  CAPTION (Optional):   LOC:

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)

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