AUPNDWXR.m

AUPNDWXR ;IHS/SD/SDR - Routine to populate DW Audit file - [ 04/15/2004  9:49 AM ]

 ;;99.1;IHS DICTIONARIES (PATIENT);**13**;APR 14, 2004;Build 9

 ;

 ; This routine will be used to populate the DW Audit file

 ; (^AUPNDWAF) for exporting edited patients to the Data

 ; Warehouse.  The patients are actually exported using code for

 ; the DW (BDW namespace).   Entries are purged once an export has been

 ; done and the process starts over.

 ;

 ; The fields are divided into 5 categories with the following fields

 ; in each category:

 ;

 ; BASE:

 ;     Date of Birth

 ;     Date of Death

 ;     Underlying Cause of Death

 ;     Sex

 ;     SSN

 ;     SSN Verification Status

 ;     Father's Full Name

 ;     Mother's Maiden Name

 ; DEMOGRAPHIC:

 ;     Patient's Full Name

 ;     Mailing Address Street

 ;     Mailing Address City

 ;     Mailing Address State

 ;     Mailing Address Zip

 ;     Community of Residence

 ;     Date Moved to Community

 ;     Eligibility for Services Code

 ;     Veteran Eligible

 ;     Classification Code

 ;     Tribe Code

 ;     Blood Quantum

 ;     Reg Record Status Code

 ; ALIAS:

 ;     Alias Full Name

 ; CHART:

 ;     Chart Facility Code

 ;     Chart Number (HRN)

 ;     Chart Status Code

 ; INSURANCE ELIGIBILITY:

 ;     Coverage Type (Medicare/Railroad/Medicaid/PI)

 ;     Eligibility Begin Date (Medicare/Railroad/Medicaid/PI)

 ;     Policy Number (Medicaid/PI)

 ;     Medicaid State of Eligibility

 ;     Medicaid Plan Name

 ;     Insurer Name (Medicare/Railroad/Medicaid/PI)

 ;     Eligibility End Date (Medicare/Railroad/Medicaid/PI)

 ;     Prefix/Suffix (Medicare/Railroad/Medicaid)

 ;     Policy Holder Name (PI)

 ;     Relationship to Insured (Medicaid/PI)

 ;     Date of Last Update (Medicaid)

 ;

SET(AUPNDFN,CAT) ; EP

 S CAT=$S(CAT="BASE":2,CAT="DEMO":4,CAT="ALIAS":6,CAT="CHART":8,CAT="ELIG":11)

 S $P(^AUPNDWAF(AUPNDFN,0),"^",1)=AUPNDFN

 S ^AUPNDWAF("B",AUPNDFN,AUPNDFN)=""  ;IHS/CMI/LAB added b index to fileman file

 S $P(^AUPNDWAF(AUPNDFN,0),"^",CAT)=DT

 Q

KILL(AUPNDFN,CAT) ;    EP

 D SET(AUPNDFN,CAT)

 Q

 ;

AUPNDWXR  ;IHS/SD/SDR - Routine to populate DW Audit file - [ 04/15/2004  9:49 AM ]

 +1       ;;99.1;IHS DICTIONARIES (PATIENT);**13**;APR 14, 2004;Build 9

 +2       ;

 +3       ; This routine will be used to populate the DW Audit file

 +4       ; (^AUPNDWAF) for exporting edited patients to the Data

 +5       ; Warehouse.  The patients are actually exported using code for

 +6       ; the DW (BDW namespace).   Entries are purged once an export has been

 +7       ; done and the process starts over.

 +8       ;

 +9       ; The fields are divided into 5 categories with the following fields

 +10      ; in each category:

 +11      ;

 +12      ; BASE:

 +13      ;     Date of Birth

 +14      ;     Date of Death

 +15      ;     Underlying Cause of Death

 +16      ;     Sex

 +17      ;     SSN

 +18      ;     SSN Verification Status

 +19      ;     Father's Full Name

 +20      ;     Mother's Maiden Name

 +21      ; DEMOGRAPHIC:

 +22      ;     Patient's Full Name

 +23      ;     Mailing Address Street

 +24      ;     Mailing Address City

 +25      ;     Mailing Address State

 +26      ;     Mailing Address Zip

 +27      ;     Community of Residence

 +28      ;     Date Moved to Community

 +29      ;     Eligibility for Services Code

 +30      ;     Veteran Eligible

 +31      ;     Classification Code

 +32      ;     Tribe Code

 +33      ;     Blood Quantum

 +34      ;     Reg Record Status Code

 +35      ; ALIAS:

 +36      ;     Alias Full Name

 +37      ; CHART:

 +38      ;     Chart Facility Code

 +39      ;     Chart Number (HRN)

 +40      ;     Chart Status Code

 +41      ; INSURANCE ELIGIBILITY:

 +42      ;     Coverage Type (Medicare/Railroad/Medicaid/PI)

 +43      ;     Eligibility Begin Date (Medicare/Railroad/Medicaid/PI)

 +44      ;     Policy Number (Medicaid/PI)

 +45      ;     Medicaid State of Eligibility

 +46      ;     Medicaid Plan Name

 +47      ;     Insurer Name (Medicare/Railroad/Medicaid/PI)

 +48      ;     Eligibility End Date (Medicare/Railroad/Medicaid/PI)

 +49      ;     Prefix/Suffix (Medicare/Railroad/Medicaid)

 +50      ;     Policy Holder Name (PI)

 +51      ;     Relationship to Insured (Medicaid/PI)

 +52      ;     Date of Last Update (Medicaid)

 +53      ;

SET(AUPNDFN,CAT) ; EP

 +1        SET CAT=$SELECT(CAT="BASE":2,CAT="DEMO":4,CAT="ALIAS":6,CAT="CHART":8,CAT="ELIG":11)

 +2        SET $PIECE(^AUPNDWAF(AUPNDFN,0),"^",1)=AUPNDFN

 +3       ;IHS/CMI/LAB added b index to fileman file

           SET ^AUPNDWAF("B",AUPNDFN,AUPNDFN)=""

 +4        SET $PIECE(^AUPNDWAF(AUPNDFN,0),"^",CAT)=DT

 +5        QUIT 

KILL(AUPNDFN,CAT) ;    EP

 +1        DO SET(AUPNDFN,CAT)

 +2        QUIT 

 +3       ;