LAB SERVICE COPY HEADER (1018)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME LAB SERVICE COPY HEADER
ROWS 5
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   2
    COLUMN:   2
    CAPTION (Optional):   NONE
    LITERAL TEXT:   SERVICE COPY | L A B O R A T O R Y S E R V I C E
  • HORIZONTAL LINE
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   4
    COLUMN:   2
    CAPTION (Optional):   NONE
    LITERAL TEXT:   Status Item Ordered Ord'd Requestor Start
  • HORIZONTAL LINE
    ROW:   5
    COLUMN:   1
    CAPTION (Optional):   NONE
COMPILED CODE 
W ?0,"",$G(ORPLINE)
W !?1,"","SERVICE COPY          |       L A B O R A T O R Y   S E R V I C E"
W !?0,"",$G(ORPLINE)
W !?1,"","Status          Item Ordered                    Ord'd  Requestor  Start"
W !?0,"",$G(ORPLINE)
K X,ORPLINE,ORPLINE,ORPLINE
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.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(1,.CCNT,""_"Status          Item Ordered                    Ord'd  Requestor  Start",.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,""_$G(ORPLINE),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)
K X,ORPLINE,ORPLINE,ORPLINE
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(1,.CCNT,""_"SERVICE COPY          |       L A B O R A T O R Y   S E R V I C E",.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)=""