FH OUTPT MEAL FOOTER (1038)    OE/RR PRINT FORMATS (100.23)

• FREE TEXT
  ROW:   2
  COLUMN:   1
  LITERAL TEXT:   In lieu of VA Form 10-2817
• HORIZONTAL LINE
  ROW:   1
  COLUMN:   1
• HORIZONTAL LINE
  ROW:   5
  COLUMN:   1
• FREE TEXT
  ROW:   4
  COLUMN:   1
  LITERAL TEXT:   NAME OF FACILITY COULD PRINT HERE
• WHEN PRINTED
  ROW:   2
  COLUMN:   39

W ?0,"",$G(ORPLINE)
W !?0,"","In lieu of VA FORM 10-2817"
W ?39,"",$G(ORPMAN)
W !
W !?0,"","Facility:  "_$P($$SITE^VASITE,U,2)
W !?0,"",$G(ORPLINE)
K X,ORPLINE,ORPMAN,ORPLINE

S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,"""Facility:  "_$P($$SITE^VASITE,U,2),.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,ORPMAN,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,""_"In lieu of VA FORM 10-2817",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(39,.CCNT,""_$G(ORPMAN),.CCNT)