WORK COPY HEADER (1024)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME WORK COPY HEADER
ROWS 6
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   5
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   2
    COLUMN:   1
    CAPTION (Optional):   NONE
    LITERAL TEXT:   WORK COPY | D O C T O R ' S O R D E R S
  • HORIZONTAL LINE
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   4
    COLUMN:   2
    LITERAL TEXT:   DATE & TIME | O R D E R S | SIGNATURES
COMPILED CODE 
W ?0,"",$G(ORPLINE)
W !?0,"","       WORK COPY          |           D O C T O R ' S   O R D E R S"
W !?0,"",$G(ORPLINE)
W !?1,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"
W !?0,"",$G(ORPLINE)
W !
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,""_"DATE & TIME |                 O R D E R S                  | SIGNATURES",.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)
D LN^ORU4
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(0,.CCNT,""_"       WORK COPY          |           D O C T O R ' S   O R D E R S",.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)=""