source: WorldVistAEHR/trunk/r/IHS_ROUTINES-AUP/AUPNDWXR.m@ 1651

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1AUPNDWXR ;IHS/SD/SDR - Routine to populate DW Audit file - [ 04/15/2004 9:49 AM ]
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**167**;Aug 12, 1996;Build 22
3 ;
4 ; This routine will be used to populate the DW Audit file
5 ; (^AUPNDWAF) for exporting edited patients to the Data
6 ; Warehouse. The patients are actually exported using code for
7 ; the DW (BDW namespace). Entries are purged once an export has been
8 ; done and the process starts over.
9 ;
10 ; The fields are divided into 5 categories with the following fields
11 ; in each category:
12 ;
13 ; BASE:
14 ; Date of Birth
15 ; Date of Death
16 ; Underlying Cause of Death
17 ; Sex
18 ; SSN
19 ; SSN Verification Status
20 ; Father's Full Name
21 ; Mother's Maiden Name
22 ; DEMOGRAPHIC:
23 ; Patient's Full Name
24 ; Mailing Address Street
25 ; Mailing Address City
26 ; Mailing Address State
27 ; Mailing Address Zip
28 ; Community of Residence
29 ; Date Moved to Community
30 ; Eligibility for Services Code
31 ; Veteran Eligible
32 ; Classification Code
33 ; Tribe Code
34 ; Blood Quantum
35 ; Reg Record Status Code
36 ; ALIAS:
37 ; Alias Full Name
38 ; CHART:
39 ; Chart Facility Code
40 ; Chart Number (HRN)
41 ; Chart Status Code
42 ; INSURANCE ELIGIBILITY:
43 ; Coverage Type (Medicare/Railroad/Medicaid/PI)
44 ; Eligibility Begin Date (Medicare/Railroad/Medicaid/PI)
45 ; Policy Number (Medicaid/PI)
46 ; Medicaid State of Eligibility
47 ; Medicaid Plan Name
48 ; Insurer Name (Medicare/Railroad/Medicaid/PI)
49 ; Eligibility End Date (Medicare/Railroad/Medicaid/PI)
50 ; Prefix/Suffix (Medicare/Railroad/Medicaid)
51 ; Policy Holder Name (PI)
52 ; Relationship to Insured (Medicaid/PI)
53 ; Date of Last Update (Medicaid)
54 ;
55SET(AUPNDFN,CAT) ; EP
56 I $G(DUZ("AG"))="E" Q ;Line added DAOU/JLG 2/9/05 VistaOffice does not use this.
57 S CAT=$S(CAT="BASE":2,CAT="DEMO":4,CAT="ALIAS":6,CAT="CHART":8,CAT="ELIG":11)
58 S $P(^AUPNDWAF(AUPNDFN,0),"^",1)=AUPNDFN
59 S ^AUPNDWAF("B",AUPNDFN,AUPNDFN)="" ;IHS/CMI/LAB added b index to fileman file
60 S $P(^AUPNDWAF(AUPNDFN,0),"^",CAT)=DT
61 Q
62KILL(AUPNDFN,CAT) ; EP
63 D SET(AUPNDFN,CAT)
64 Q
65 ;
Note: See TracBrowser for help on using the repository browser.