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) |