DOCTOR'S ORDERS HEADER (1017)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME DOCTOR'S ORDERS HEADER
ROWS 8
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   8
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   2
    COLUMN:   1
    CAPTION (Optional):   NONE
    LITERAL TEXT:   MEDICAL RECORD | D O C T O R ' S O R D E R S
  • FREE TEXT
    ROW:   5
    COLUMN:   1
    CAPTION (Optional):   NONE
    LITERAL TEXT:   Date and time for instituting and discontinuing the orders must be recorded
  • HORIZONTAL LINE
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   4
    COLUMN:   1
    CAPTION (Optional):   NONE
    LITERAL TEXT:   NOTE: Physician's signature must accompany each entry including standing orders
  • HORIZONTAL LINE
    ROW:   6
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   7
    COLUMN:   2
    LITERAL TEXT:   DATE & TIME | O R D E R S | SIGNATURES
COMPILED CODE 
W ?0,"",$G(ORPLINE)
K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE
W !?0,"","    MEDICAL RECORD        |           D O C T O R ' S   O R D E R S"
W !?0,"",$G(ORPLINE)
W !?0,"","NOTE: Physician's signature must accompany each entry including standing orders"
W !?0,"","Date and time for instituting and discontinuing the orders must be recorded"
W !?0,"",$G(ORPLINE)
W !?1,"","DATE & TIME |                 O R D E R S                  | SIGNATURES"
W !?0,"",$G(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(0,.CCNT,""_"NOTE: Physician's signature must accompany each entry including standing orders",.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,""_"Date and time for instituting and discontinuing the orders must be recorded",.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
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)=""
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_"    MEDICAL RECORD        |           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)=""