LAB ORDER LABEL New & reprint,WC,SP (1035)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME LAB ORDER LABEL New & reprint,WC,SP
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","WCSP")
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)