VAFCTR.m

VAFCTR ;BIR/CMC,ERC,PTD-Monitoring fields for MPI/PD via DG field monitoring ; 3/30/07

 ;;5.3;PIMS;**575,648,653,1015,1016**;JUN 30, 2012;Build 20

 Q  ; quit if called from the top

 ;

MPIPD ; protocol entry point for monitoring fields via DG field monitoring

 ; Currently monitoring for fields:

 ; 1 ALIAS - .01 of the multiple

 ; 2 RACE INFORMATION - .01 of the multiple

 ; 6 ETHNICITY INFORMATION - .01 of the multiple

 ; 994 MULTIPLE BIRTH INDICATOR

 ; .525 POW STAUTS INDICATED?

 ; .0906 PSEUDO SSN REASON

 ; .121 BAD ADDRESS INDICATOR

 ; .133 EMAIL ADDRESS

 ; .134 PHONE NUMBER [CELLULAR]

 ;

 I $G(DGFILE)'=2&($G(DGFILE)'=2.01)&($G(DGFILE)'=2.02)&($G(DGFILE)'=2.06) Q

 S DGFIELD=$G(DGFIELD)

 I DGFIELD'=.01&(DGFIELD'=994)&(DGFIELD'=.525)&(DGFIELD'=.0906)&(DGFIELD'=.121)&(DGFIELD'=.133)&(DGFIELD'=.134)  Q

 I $T(AVAFC^VAFCDD01)="" Q

 ;The fields below are not multiples

 I (DGFIELD=994)!(DGFIELD=.525)!(DGFIELD=.0906)!(DGFIELD=.121)!(DGFIELD=.133)!(DGFIELD=.134) S VAFCF=DGFIELD_";" D AVAFC^VAFCDD01(DGDA)

 ;The fields below ARE multiples

 I DGFILE=2.01 S VAFCF="1;" D AVAFC^VAFCDD01(DGDA(1)) ;ALIAS

 I DGFILE=2.02 S VAFCF="2.02,.01;" D AVAFC^VAFCDD01(DGDA(1)) ;RACE INFORMATION

 I DGFILE=2.06 S VAFCF="2.06,.01;" D AVAFC^VAFCDD01(DGDA(1)) ;ETHNICITY INFORMATION

 Q

VAFCTR    ;BIR/CMC,ERC,PTD-Monitoring fields for MPI/PD via DG field monitoring ; 3/30/07

 +1       ;;5.3;PIMS;**575,648,653,1015,1016**;JUN 30, 2012;Build 20

 +2       ; quit if called from the top

           QUIT 

 +3       ;

MPIPD     ; protocol entry point for monitoring fields via DG field monitoring

 +1       ; Currently monitoring for fields:

 +2       ; 1 ALIAS - .01 of the multiple

 +3       ; 2 RACE INFORMATION - .01 of the multiple

 +4       ; 6 ETHNICITY INFORMATION - .01 of the multiple

 +5       ; 994 MULTIPLE BIRTH INDICATOR

 +6       ; .525 POW STAUTS INDICATED?

 +7       ; .0906 PSEUDO SSN REASON

 +8       ; .121 BAD ADDRESS INDICATOR

 +9       ; .133 EMAIL ADDRESS

 +10      ; .134 PHONE NUMBER [CELLULAR]

 +11      ;

 +12       IF $GET(DGFILE)'=2&($GET(DGFILE)'=2.01)&($GET(DGFILE)'=2.02)&($GET(DGFILE)'=2.06)

               QUIT 

 +13       SET DGFIELD=$GET(DGFIELD)

 +14       IF DGFIELD'=.01&(DGFIELD'=994)&(DGFIELD'=.525)&(DGFIELD'=.0906)&(DGFIELD'=.121)&(DGFIELD'=.133)&(DGFIELD'=.134)

               QUIT 

 +15       IF $TEXT(AVAFC^VAFCDD01)=""

               QUIT 

 +16      ;The fields below are not multiples

 +17       IF (DGFIELD=994)!(DGFIELD=.525)!(DGFIELD=.0906)!(DGFIELD=.121)!(DGFIELD=.133)!(DGFIELD=.134)

               SET VAFCF=DGFIELD_";"

               DO AVAFC^VAFCDD01(DGDA)

 +18      ;The fields below ARE multiples

 +19      ;ALIAS

           IF DGFILE=2.01

               SET VAFCF="1;"

               DO AVAFC^VAFCDD01(DGDA(1))

 +20      ;RACE INFORMATION

           IF DGFILE=2.02

               SET VAFCF="2.02,.01;"

               DO AVAFC^VAFCDD01(DGDA(1))

 +21      ;ETHNICITY INFORMATION

           IF DGFILE=2.06

               SET VAFCF="2.06,.01;"

               DO AVAFC^VAFCDD01(DGDA(1))

 +22       QUIT