source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCTR.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1VAFCTR ;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 ;
5MPIPD ; 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
Note: See TracBrowser for help on using the repository browser.