FH OUTPT MEAL HEADER (1037)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME FH OUTPT MEAL HEADER
ROWS 3
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
  • HORIZONTAL LINE
    ROW:   3
    COLUMN:   1
  • FREE TEXT
    ROW:   2
    COLUMN:   1
    LITERAL TEXT:   A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R
COMPILED CODE 
W ?0,"",$G(ORPLINE)
W !?0,"","     A U T H O R I Z E D    O U T P A T I E N T    M E A L    V O U C H E R"
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,""_"     A U T H O R I Z E D    O U T P A T I E N T    M E A L    V O U C H E R",.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)=""