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

• COLLECTION TYPE (LAB)
  ROW:   2
  COLUMN:   15
  CAPTION (Optional):   NONE
• FREE TEXT
  ROW:   10
  COLUMN:   1
  LITERAL TEXT:   Time of Collection:_____________
• LAB TEST
  ROW:   8
  COLUMN:   1
  CAPTION (Optional):   Test:
  FORMAT:   70
• LAB URGENCY
  ROW:   8
  COLUMN:   50
  CAPTION (Optional):   NONE
• LAB COLLECTION w/CONTAINER
  ROW:   11
  COLUMN:   1
  CAPTION (Optional):   Collection Sample:
• LAB TEST.SPECIMEN COMMENTS
  ROW:   12
  COLUMN:   1
  CAPTION (Optional):   NONE
  FORMAT:   70
• LAB TEST COMMENTS
  ROW:   13
  COLUMN:   1
  CAPTION (Optional):   NONE
  FORMAT:   70
• WARD COMMENTS ON LAB SPECIMEN
  ROW:   14
  COLUMN:   1
• ORDER DATE
  ROW:   2
  COLUMN:   30
  FORMAT:   MM/DD/CCYY HR:MIN
• LAB ORDER #
  ROW:   3
  COLUMN:   15
• REQUESTING LOCATION
  ROW:   3
  COLUMN:   30
• NAME of Patient
  ROW:   4
  COLUMN:   1
  CAPTION (Optional):   NONE
• SSN of Patient
  ROW:   4
  COLUMN:   30
  CAPTION (Optional):   NONE
• ENTERED BY
  ROW:   5
  COLUMN:   1
• REQUESTING PHYSICIAN
  ROW:   6
  COLUMN:   1
• START DATE
  ROW:   6
  COLUMN:   30
  FORMAT:   MM/DD/CCYY HR:MIN

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),"")

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