Name	Value
NAME	LAB ORDER LABEL-WC New Orders & Reprint
ROWS	12
COLUMNS	80
SINGLE	YES
FIELDS	COLLECTION TYPE (LAB) ROW: 2 COLUMN: 1 CAPTION (Optional): NONE LOCATION of Patient ROW: 4 COLUMN: 60 CAPTION (Optional): NONE REQUESTING PHYSICIAN ROW: 5 COLUMN: 1 START DATE ROW: 6 COLUMN: 1 CAPTION (Optional): Start Date: FREE TEXT ROW: 7 COLUMN: 39 CAPTION (Optional): Drawn By: LITERAL TEXT: Specimen Label: LAB URGENCY ROW: 7 COLUMN: 1 CAPTION (Optional): NONE LAB TEST ROW: 8 COLUMN: 1 FORMAT: 70 TIME COLLECTED ROW: 7 COLUMN: 39 CAPTION (Optional): Collected: FREE TEXT ROW: 9 COLUMN: 1 LITERAL TEXT: LAB SLIP BRING TO LAB LAB ORDER # ROW: 2 COLUMN: 52 FREE TEXT ROW: 7 COLUMN: 39 LITERAL TEXT: Specimen Label: LAB ORDER # ROW: 2 COLUMN: 52 NAME of Patient ROW: 1 COLUMN: 39 CAPTION (Optional): NONE FORMAT: LAST,FIRST MI NAME of Patient ROW: 1 COLUMN: 39 CAPTION (Optional): NONE SSN of Patient ROW: 2 COLUMN: 39 CAPTION (Optional): NONE LOCATION of Patient ROW: 4 COLUMN: 60 CAPTION (Optional): NONE ROOM/BED of Patient ROW: 4 COLUMN: 58 CAPTION (Optional): NONE SSN of Patient ROW: 2 COLUMN: 39 CAPTION (Optional): NONE
COMPILED CODE	W ?38,"",$$NAME^ORU($G(ORPNAME),"") W !?0,"",$G(ORPURG) W ?38,"","Specimen Label: " W !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70") W !?0,"","LAB SLIP BRING TO LAB" W ! W ! W ! K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2 W !?0,"",$G(ORPCB) W ?38,"",$$SSN^ORU($G(ORPSSN),"") W ?51,"LB #",$G(ORPLB) W ! W !?57,"",$G(ORPRMBED) W ?59,"",$G(ORPLOC) W !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"") W !?0,"Start Date: ",$$DATE^ORU($G(ORPSTRT),"")
SCREEN	I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),"NW","WC")
SILENT CODE	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(51,.CCNT,"LB #"_$G(ORPLB),.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(57,.CCNT,""_$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(38,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT) S X=$$S^ORU4(59,.CCNT,""_$G(ORPLOC),.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 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"Start Date: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.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,""_$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(38,.CCNT,""_"Specimen Label: ",.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,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.ORHOOT,0,.GCNT,.CCNT),.CCNT) D LN^ORU4 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,""_"LAB SLIP BRING TO LAB",.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 D LN^ORU4 K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_$G(ORPCB),.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(38,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,38,.GCNT,.CCNT),.CCNT)

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