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

Name Value
NAME FH OUTPT MEAL FOOTER
ROWS 5
FIELDS
COMPILED CODE
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
SILENT CODE
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)