DG867PO ;BL/BL - PRE-INSTALL ROUTINE FOR DG*5.3*867 ;01-APR-13
;;5.3;REGISTRATION;**867**;01-APR-13;Build 59
;
;Purpose of this routine is to provide a filter for the data entries in file #391 and
;file #43.4
;
POST ;POST INIT ENTRY POINT NOT USED
Q
;
PAT391(ANAME) ;Screen for Newborn of Vet Type of Patient in file #391
I ANAME="NEWBORN OF VETERAN" Q 1
Q 0
;
ADMIT43(ANAME) ;Screen for NON-VA FOR FEMALE VET+NEWBORN 17.38 file #43.4
;
I ANAME="NON-VA FOR FEMALE VET+NEWBORN" Q 1
Q 0
;
INCO386(ANAME) ;Screen for INCONSISTENCY DATA ELEMENTS file #38.6
;
I ANAME="NEWBORN REQUIRES SPONSOR" Q 1
I ANAME="NEWBORN NEEDS ELIGIBLE SPONSOR" Q 1
Q 0
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG867PO 694 printed Sep 23, 2025@20:16:40 Page 2
DG867PO ;BL/BL - PRE-INSTALL ROUTINE FOR DG*5.3*867 ;01-APR-13
+1 ;;5.3;REGISTRATION;**867**;01-APR-13;Build 59
+2 ;
+3 ;Purpose of this routine is to provide a filter for the data entries in file #391 and
+4 ;file #43.4
+5 ;
POST ;POST INIT ENTRY POINT NOT USED
+1 QUIT
+2 ;
PAT391(ANAME) ;Screen for Newborn of Vet Type of Patient in file #391
+1 IF ANAME="NEWBORN OF VETERAN"
QUIT 1
+2 QUIT 0
+3 ;
ADMIT43(ANAME) ;Screen for NON-VA FOR FEMALE VET+NEWBORN 17.38 file #43.4
+1 ;
+2 IF ANAME="NON-VA FOR FEMALE VET+NEWBORN"
QUIT 1
+3 QUIT 0
+4 ;
INCO386(ANAME) ;Screen for INCONSISTENCY DATA ELEMENTS file #38.6
+1 ;
+2 IF ANAME="NEWBORN REQUIRES SPONSOR"
QUIT 1
+3 IF ANAME="NEWBORN NEEDS ELIGIBLE SPONSOR"
QUIT 1
+4 QUIT 0
+5 ;
