| 1 | VAFCTR ;BIR/CMC,ERC-Monitoring fields for MPI/PD via DG field monitoring ; 3/30/07 1:56pm
|
|---|
| 2 | ;;5.3;Registration;**575,648,653**;Aug 13, 1993;Build 2
|
|---|
| 3 | Q ; quit if called from the top
|
|---|
| 4 | ;
|
|---|
| 5 | MPIPD ; protocol entry point for monitoring fields via DG field monitoring
|
|---|
| 6 | ; Currently monitoring for fields:
|
|---|
| 7 | ; 1 ALIAS - .01 of the multiple
|
|---|
| 8 | ; 2 RACE INFORMATION - .01 of the multiple
|
|---|
| 9 | ; 6 ETHNICITY INFORMATION - .01 of the multiple
|
|---|
| 10 | ; 994 MULTIPLE BIRTH INDICATOR
|
|---|
| 11 | ; 361 PATIENT ELIGIBILITIES - .01 of the multiple - MOVED TO 691
|
|---|
| 12 | ; .525 POW STAUTS INDICATED?
|
|---|
| 13 | ; .0906 PSEUDO SSN REASON
|
|---|
| 14 | ;
|
|---|
| 15 | I $G(DGFILE)'=2&($G(DGFILE)'=2.01)&($G(DGFILE)'=2.02)&($G(DGFILE)'=2.06)&($G(DGFILE)'=2.0361) Q
|
|---|
| 16 | S DGFIELD=$G(DGFIELD)
|
|---|
| 17 | I DGFIELD'=.01&(DGFIELD'=994)&(DGFIELD'=.525)&(DGFIELD'=.0906) Q
|
|---|
| 18 | I $T(AVAFC^VAFCDD01)="" Q
|
|---|
| 19 | I (DGFIELD=994)!(DGFIELD=.525)!(DGFIELD=.0906) S VAFCF=DGFIELD_";" D AVAFC^VAFCDD01(DGDA)
|
|---|
| 20 | ; ^ MULTIPLE BIRTH INDICATOR
|
|---|
| 21 | I DGFILE=2.01 S VAFCF="1;" D AVAFC^VAFCDD01(DGDA(1)) ;ALIAS
|
|---|
| 22 | I DGFILE=2.02 S VAFCF="2.02,.01;" D AVAFC^VAFCDD01(DGDA(1))
|
|---|
| 23 | ; ^ RACE INFORMATION
|
|---|
| 24 | I DGFILE=2.06 S VAFCF="2.06,.01;" D AVAFC^VAFCDD01(DGDA(1))
|
|---|
| 25 | ; ^ ETHNICITY INFORMATION
|
|---|
| 26 | ; MOVED TO DG*5.3*691
|
|---|
| 27 | ;I DGFILE=2.0361 S VAFCF="2.0361,.01;" D AVAFC^VAFCDD01(DGDA(1))
|
|---|
| 28 | ; ^ PATIENT ELIGIBILITIES
|
|---|
| 29 | Q
|
|---|
