CONSULTATION HEADER (1012)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME CONSULTATION HEADER
ROWS 3
FIELDS
  • FREE TEXT
    ROW:   2
    COLUMN:   1
    LITERAL TEXT:   MEDICAL RECORD | CONSULTATION SHEET
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   NONE
COMPILED CODE 
W ?0,"",$G(ORPLINE)
W !?0,"","     MEDICAL RECORD     |                  CONSULTATION SHEET"
W !?0,"",$G(ORPLINE)
K X,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
K X,ORPLINE,ORPLINE
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,""_"     MEDICAL RECORD     |                  CONSULTATION SHEET",.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)=""