AZAMED ; IHS/PHXAO/TMJ - ACTUAL UPDATES OF AHCCCS MEDICAID RECORDS [ 06/18/03 10:34 AM ]
;AZAGMED Global established by Routine AZAGMED.
;This Sets Every Record in AHCCCS File to AZAGMED(Global
;
;This Routine $0's through Global ^AZAGMED(
;This Routine completes the ACTUAL RPMS DOWNLOAD
;by updated the RPMS MEDICAID ELIGIBILITY File, the
;RPMS Master Control File and the Monthly No Match File
;
;
VARIABLE ;Establish Date/Time/Count Variables
;Establish Run Counters
;
;S FILE="MED0120001.TXT" ;Hard Set for Testing Only on just this routine
;
S AZAMNEW=0 ;New Adds to Med Eligibility File
S AZAMUPDT=0 ;Updates to Med Eligibility File
S SSNCT=0 ;SSN Matches Only in No Match File
S KIDCT=0 ;KID's Care Counter in No Match File
S TOTALCT=0 ;Total Records Actually Processed - New or Update
S NOCOUNT=0 ; Variable used to not count News & Updates twice
S GRANDTOT=0 ;Grand Total all Records regardless of action
S BEGTIME=$$NOW^XLFDT
;
INS ;GET ARIZONA MEDICAID INTERNAL NUMBER FROM THE INSURER FILE-PHX AREA
S DIC="^AUTNINS(",DIC(0)="XZIMO",X="MEDICAID" D ^DIC
I Y'=-1 S INS=$P(Y,"^",1)
E G END2 ;Quit if no Insurer - don't write message
;
D START
S ENDTIME=$$NOW^XLFDT
D LOG
D END
Q
;
START ;BEGIN $O THRU ^AZAGMED( -created by Routine AZAGMED
;which reads all records in AHCCCS File 1-420 Position &
;sets full record in ^AZAGMED(Global
;S MRATE=""
;
I '$D(ZTQUEUED) U IO(0) ;IHS/ANMC/FBD-2/17/98-ADDED LINE-TRYING TO AVOID <MODER> ERRORS
K ^TMP($J),^AZAMED ;Kill off $Job and Previous Month's AZAMED Global
;
S ^AZAMED(0)="AZA MEDICAID ELIGIBLE (NO SSN)^1180001DI"
A ; -- BEGIN $O THRU AZAGMED(GLOBAL CREATED BY AZAGMED
S IFN=0 F S IFN=$O(^AZAGMED(IFN)) Q:'IFN D
. S N=^AZAGMED(IFN),MSSN=$E(N,27,35),MNUM=$E(N,18,26),MLNAME=$E(N,108,130),MDOB=$E(N,143,150),MSEX=$E(N,142,142),MFNAME=$E(N,131,140)
. Q:$E(N,1,2)="XX" ;Quit -Last IFN Record is end of File
. S MLNAME=$P(MLNAME," ",1) ; Strip out spaces on Medicaid Last Name
. S MFNAME=$P(MFNAME," ",1) ;Strip out spaces on Medicaid First Name
. S MFULNAME=MLNAME_","_MFNAME ;Medicaid Full Name
. S MRATE="" S MKID="" S SSNMATCH="" S NOCOUNT=0 S GRANDTOT=GRANDTOT+1
. D MEDNUM ;Check the Med Elig Number before SSN
. I MNUMMAT=0 S DFN=$O(^DPT("SSN",+MSSN,0)) I 'DFN N N,MSSN,MNUM D ^AZAMED0 Q
. D MEDNAME ;Check Medicaid Elig File's Medicaid Name (if exists)
. S SDOB=$P(^DPT(DFN,0),U,3) ;VA PT DOB
. S MDOB=$$DOB ; AHCCCS DOB
. S SSEX=$P(^DPT(DFN,0),U,2),FULLNAME=$P(^(0),U) ; VA PT SEX
. S SLNAME=$P(FULLNAME,",",1) ; VA PT FULL LAST NAME
. S MRATE=$E(N,355,358) ;AHCCCS Rate Code-Ck for Kids Care
. S EED=$$EED,EBD=$$EBD ;AHCCCS PAYMENT TO/FROM DT
. ;Q:EED<$$EHIS
. S ERD=$$ERD,CT=$E(N,106,107) ;Enrollment Dt - CT=Coverage Type)
. S NOCOUNT=0 ;Variable for Not counting New & Updates twice
. I MRATE>5999&(MRATE<7000) S MKID="Y" S KIDCT=KIDCT+1 N N,MSSN,MNUM D ^AZAMED0 Q ;Quit if KIDS CARE-Per J. Hathcoat 1/25/01
. I MLNAME'=SLNAME&(MNAMEMAT'=1) S SSNCT=SSNCT+1 S SSNMATCH="Y" N N,MSSN,MNUM D ^AZAMED0 Q ; Quit if no match on Med Name or Last Name ;*** TESTING - AEF *** ADDED ADDITIONAL SPACE AFTER QUIT TO PREVENT <SYNTAX> ERROR
. I MDOB'=SDOB S SSNCT=SSNCT+1 S SSNMATCH="Y" N N,MSSN,MNUM D ^AZAMED0 Q ; Quit on DOB No Match
. I MSEX'=SSEX S SSNCT=SSNCT+1 S SSNMATCH="Y" N N,MSSN,MNUM D ^AZAMED0 Q ; Quit if no match on Sex
. D NEW,UP0,MED
. S TOTALCT=TOTALCT+1 ;Total Record Count - Regardless of action
Q
;
MED ; -- add eligiblity date(s)/data
S IEN=$O(^AUPNMCD("B",DFN,0)) Q:'IEN
Q:$P($G(^AUPNMCD(IEN,0)),U,4)'=3 ;*** TESTING - AEF *** DON'T UPDATE IF NOT AZ
Q:$P($G(^AUPNMCD(IEN,11,EBD,0)),U,2)=EED ;Quit if Both Beg/End Match already
S:'$D(^AUPNMCD(IEN,11,0)) $P(^(0),U,2)="9000004.11D"
S LSTEBD=$P($G(^AUPNMCD(IEN,11,0)),U,3) ;Last Beg Date entered
I LSTEBD="" D
. S $P(^AUPNMCD(IEN,11,0),U,3)=EBD
. S $P(^AUPNMCD(IEN,11,0),U,4)=$P(^(0),U,4)+1
. S DR=".01///"_EBD_";.03////"_CT ; Add Beginning DT Only ;*** TESTING - AEF *** REMOVE EXTRA QUOTE TO PREVENT <SYNTAX> ERROR
. S DIE="^AUPNMCD("_IEN_",11,",DA(1)=IEN,DA=EBD D ^DIE K DIE,DR,DA,DINUM
. I NOCOUNT=0 S AZAMUPDT=AZAMUPDT+1 D UPDATES^AZAMSTR ;Update Count-Update Master List
I LSTEBD'="" D
. S SENDDT=$P($G(^AUPNMCD(IEN,11,LSTEBD,0)),U,2)
. I SENDDT'="" S $P(^AUPNMCD(IEN,11,0),U,3)=EBD
. I SENDDT'="" S $P(^AUPNMCD(IEN,11,0),U,4)=$P(^(0),U,4)+1
. I SENDDT'="" S DR=".01///"_EBD_";03////"_CT ; Add Beg DT Only
. I SENDDT'="" S DIE="^AUPNMCD("_IEN_",11,",DA(1)=IEN,DA=EBD D ^DIE K DIE,DR,DA,DINUM I NOCOUNT=0 S AZAMUPDT=AZAMUPDT+1 D UPDATES^AZAMSTR Q
. D STILLACT^AZAMSTR ;Existing Patient fell through-Still Active Only/no Update
Q
;
NEW ; -- create new entry in medicaid eligible
Q:$O(^AUPNMCD("B",+DFN,0)) ;Quit if already in Medicaid Eligibility File
D ^XBFMK K DIADD,DINUM
S X=DFN,DIC="^AUPNMCD(",DIC(0)="L",DLAYGO=9000004
S DIC("DR")=".02////"_INS_";.03////"_MNUM_";.04////"_3_";2101////"_MFULNAME
S DIC("DR")=DIC("DR")_";.07////"_SSEX_";.08////"_DT_";.12////"_MRATE
;K DD,DO
D FILE^DICN S IEN=+Y D ^XBFMK K DIADD,DINUM
S AZAMNEW=AZAMNEW+1 ;Counter for New Adds to Medicaid Eligibility file
S NOCOUNT=1 ;Don't count again on Date Updates UP0
D NEW^AZAMSTR
Q
;
UP0 ; -- update 0th node - Patient Demographics Only
S IEN=$O(^AUPNMCD("B",DFN,0)) Q:'IEN
Q:$P($G(^AUPNMCD(IEN,0)),U,4)'=3 ;*** TESTING - AEF *** DON'T UPDATE IF NOT AZ
S:'$P(^AUPNMCD(IEN,0),U,2) $P(^AUPNMCD(IEN,0),U,2)=INS
S:'$P(^AUPNMCD(IEN,0),U,3) $P(^AUPNMCD(IEN,0),U,3)=MNUM
S:'$P(^AUPNMCD(IEN,0),U,4) $P(^AUPNMCD(IEN,0),U,4)=3
S DIE="^AUPNMCD(",DA=IEN,DR="2101////"_MFULNAME_";.08////"_DT_";.12////"_MRATE
D ^DIE K DIE,DR,DA
;I NOCOUNT=0 S AZAMUPDT=AZAMUPDT+1 ;Counter for Updates only to Medicaid Eligibility File
Q
;
END ; -- cleanup
S GRANDTOT=GRANDTOT-1
;W !!,"End of Download Update!!!",!
;W !!
;W "Total Records Processed: "_GRANDTOT
;W !,"Total Action Records Process: "_TOTALCT
;W !,"Total New Records Added: "_AZAMNEW
;W !,"Total Updated Records: "_AZAMUPDT
;W !,"Total Records with SSN Match Only: "_SSNCT
;W !!,"Total KID's Care: "_KIDCT
;
K IFN,DFN,IEN,EED,EBD,CT,MNUM,MSEX,N,NAME,CNT,MFULNAME,MFNAME,MNAMEMAT,MEDNAME,MIEN,MFNAME,MDOB,MRATE
K AZAMNEW,AZAMUPDT,SSNCT,TOTALCT,NOCOUNT,GRANDTOT,BEGTIME,MKID,KIDCT,ENDTIME
Q
;
EED() ; -- eligibility end date
;N X,Y S X=$E(N,412,419) D ^%DT Q Y
N X,Y S YYYY=$E(N,412,415),MMDD=$E(N,416,419)
S EED=MMDD_YYYY
S X=EED D ^%DT Q Y
;
EBD() ; -- eligibility beg date
;N X,Y S X=$E(N,404,411) D ^%DT Q Y
N X,Y S YYYY=$E(N,347,350),MMDD=$E(N,351,354)
S EBD=MMDD_YYYY
S X=EBD D ^%DT Q Y
;
EHIS() ; -- eligibilities after date/flag
N X1,X2,X S X1=DT,X2=-180 D C^%DTC Q X
;
HRCN() ;EP; -- IHS health record number
Q $P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),"^",2)
;
ERD() ;EP -- Eligibility Enrollment Dt (Same as Beg Date on Roster)
;Roster Positions 347-354
N X,Y S YYYY=$E(N,347,350),MMDD=$E(N,351,354)
S ERD=MMDD_YYYY
S X=ERD D ^%DT Q Y
;N X,Y S X=$E(N,404,411) D ^%DT Q Y
;
DOB() ;EP - Date of AHCCCS Birth Date Conversion
N X,Y S YYYY=$E(N,143,146),MMDD=$E(N,147,150)
S MDOB=MMDD_YYYY
S X=MDOB D ^%DT Q Y
;
LOG ;Update AZA MEDICAL ELIGIBLE DOWNLOAD LOG
;W !!,"The Download Process is Now Complete!!"
;W !!,"I will now update the Download Log with the final run documentation",!
;S BEGTIME=$$NOW^XLFDT,ENDTIME=$$NOW^XLFDT,GRANDTOT=100,TOTALCT=50,SSNCT=5,AZAMNEW=10,AZAMUPDT=8
;The .01 Entry is Today's Date at time of run - BEGTIME Variable
D ^XBFMK K DIADD,DINUM
S X=BEGTIME,DIC="^AZAMEDLG(",DIC(0)="L",DLAYGO=1180006
S DIC("DR")=".02////"_ENDTIME_";.03////"_GRANDTOT_";.04///"_TOTALCT_";.05////"_SSNCT_";1///"_KIDCT
S DIC("DR")=DIC("DR")_";.06////"_AZAMNEW_";.07////"_AZAMUPDT_";.08////"_FILE
;ADD THE FILE NAME PROCESSED FIELD .08 HERE
;S DIC("DR")=DIC("DR")_";1////"_SSN_";2////"_RESCE
D FILE^DICN S IEN=+Y D ^XBFMK K DIADD,DINUM
;
;W !!,"Log File Updated",!
;
Q
;
END2 ;Abnormal Termination - Medicaid Insurer missing from Insurer File
;W !,"The Insurer - ARIZONA MEDICAID - is missing from the Insurer File",!
;W !,"The Initial Process of creating the AZAGMED Global is complete",!
;W "however, the Update Run (AZAMED) cannot be ran - See your Site Manager",!!
Q
;
MEDNAME ;Check Med Elig Medicaid Name-If exists for match
;
S MNAMEMAT=0
S MIEN=$O(^AUPNMCD("B",+DFN,0))
Q:'MIEN
S MEDNAME=$P($G(^AUPNMCD(MIEN,21)),U,1)
Q:MEDNAME=""
I MEDNAME=MFULNAME S MNAMEMAT=1
Q
;
MEDNUM ;Check Med Elig Number against RPMS
;
S MNUMMAT=0
S MIEN=$O(^AUPNMCD("AE",MNUM,0))
Q:'MIEN
S MEDNUM=$P($G(^AUPNMCD(MIEN,0)),U,3)
Q:MEDNUM=""
I MEDNUM=MNUM S MNUMMAT=1 S DFN=$P($G(^AUPNMCD(MIEN,0)),U,1)
Q
;
AZAMED ; IHS/PHXAO/TMJ - ACTUAL UPDATES OF AHCCCS MEDICAID RECORDS [ 06/18/03 10:34 AM ]
+1 ;AZAGMED Global established by Routine AZAGMED.
+2 ;This Sets Every Record in AHCCCS File to AZAGMED(Global
+3 ;
+4 ;This Routine $0's through Global ^AZAGMED(
+5 ;This Routine completes the ACTUAL RPMS DOWNLOAD
+6 ;by updated the RPMS MEDICAID ELIGIBILITY File, the
+7 ;RPMS Master Control File and the Monthly No Match File
+8 ;
+9 ;
VARIABLE ;Establish Date/Time/Count Variables
+1 ;Establish Run Counters
+2 ;
+3 ;S FILE="MED0120001.TXT" ;Hard Set for Testing Only on just this routine
+4 ;
+5 ;New Adds to Med Eligibility File
SET AZAMNEW=0
+6 ;Updates to Med Eligibility File
SET AZAMUPDT=0
+7 ;SSN Matches Only in No Match File
SET SSNCT=0
+8 ;KID's Care Counter in No Match File
SET KIDCT=0
+9 ;Total Records Actually Processed - New or Update
SET TOTALCT=0
+10 ; Variable used to not count News & Updates twice
SET NOCOUNT=0
+11 ;Grand Total all Records regardless of action
SET GRANDTOT=0
+12 SET BEGTIME=$$NOW^XLFDT
+13 ;
INS ;GET ARIZONA MEDICAID INTERNAL NUMBER FROM THE INSURER FILE-PHX AREA
+1 SET DIC="^AUTNINS("
SET DIC(0)="XZIMO"
SET X="MEDICAID"
DO ^DIC
+2 IF Y'=-1
SET INS=$PIECE(Y,"^",1)
+3 ;Quit if no Insurer - don't write message
IF '$TEST
GOTO END2
+4 ;
+5 DO START
+6 SET ENDTIME=$$NOW^XLFDT
+7 DO LOG
+8 DO END
+9 QUIT
+10 ;
START ;BEGIN $O THRU ^AZAGMED( -created by Routine AZAGMED
+1 ;which reads all records in AHCCCS File 1-420 Position &
+2 ;sets full record in ^AZAGMED(Global
+3 ;S MRATE=""
+4 ;
+5 ;IHS/ANMC/FBD-2/17/98-ADDED LINE-TRYING TO AVOID <MODER> ERRORS
IF '$DATA(ZTQUEUED)
USE IO(0)
+6 ;Kill off $Job and Previous Month's AZAMED Global
KILL ^TMP($JOB),^AZAMED
+7 ;
+8 SET ^AZAMED(0)="AZA MEDICAID ELIGIBLE (NO SSN)^1180001DI"
A ; -- BEGIN $O THRU AZAGMED(GLOBAL CREATED BY AZAGMED
+1 SET IFN=0
FOR
SET IFN=$ORDER(^AZAGMED(IFN))
IF 'IFN
QUIT
Begin DoDot:1
+2 SET N=^AZAGMED(IFN)
SET MSSN=$EXTRACT(N,27,35)
SET MNUM=$EXTRACT(N,18,26)
SET MLNAME=$EXTRACT(N,108,130)
SET MDOB=$EXTRACT(N,143,150)
SET MSEX=$EXTRACT(N,142,142)
SET MFNAME=$EXTRACT(N,131,140)
+3 ;Quit -Last IFN Record is end of File
IF $EXTRACT(N,1,2)="XX"
QUIT
+4 ; Strip out spaces on Medicaid Last Name
SET MLNAME=$PIECE(MLNAME," ",1)
+5 ;Strip out spaces on Medicaid First Name
SET MFNAME=$PIECE(MFNAME," ",1)
+6 ;Medicaid Full Name
SET MFULNAME=MLNAME_","_MFNAME
+7 SET MRATE=""
SET MKID=""
SET SSNMATCH=""
SET NOCOUNT=0
SET GRANDTOT=GRANDTOT+1
+8 ;Check the Med Elig Number before SSN
DO MEDNUM
+9 IF MNUMMAT=0
SET DFN=$ORDER(^DPT("SSN",+MSSN,0))
IF 'DFN
NEW N,MSSN,MNUM
DO ^AZAMED0
QUIT
+10 ;Check Medicaid Elig File's Medicaid Name (if exists)
DO MEDNAME
+11 ;VA PT DOB
SET SDOB=$PIECE(^DPT(DFN,0),U,3)
+12 ; AHCCCS DOB
SET MDOB=$$DOB
+13 ; VA PT SEX
SET SSEX=$PIECE(^DPT(DFN,0),U,2)
SET FULLNAME=$PIECE(^(0),U)
+14 ; VA PT FULL LAST NAME
SET SLNAME=$PIECE(FULLNAME,",",1)
+15 ;AHCCCS Rate Code-Ck for Kids Care
SET MRATE=$EXTRACT(N,355,358)
+16 ;AHCCCS PAYMENT TO/FROM DT
SET EED=$$EED
SET EBD=$$EBD
+17 ;Q:EED<$$EHIS
+18 ;Enrollment Dt - CT=Coverage Type)
SET ERD=$$ERD
SET CT=$EXTRACT(N,106,107)
+19 ;Variable for Not counting New & Updates twice
SET NOCOUNT=0
+20 ;Quit if KIDS CARE-Per J. Hathcoat 1/25/01
IF MRATE>5999&(MRATE<7000)
SET MKID="Y"
SET KIDCT=KIDCT+1
NEW N,MSSN,MNUM
DO ^AZAMED0
QUIT
+21 ; Quit if no match on Med Name or Last Name ;*** TESTING - AEF *** ADDED ADDITIONAL SPACE AFTER QUIT TO PREVENT <SYNTAX> ERROR
IF MLNAME'=SLNAME&(MNAMEMAT'=1)
SET SSNCT=SSNCT+1
SET SSNMATCH="Y"
NEW N,MSSN,MNUM
DO ^AZAMED0
QUIT
+22 ; Quit on DOB No Match
IF MDOB'=SDOB
SET SSNCT=SSNCT+1
SET SSNMATCH="Y"
NEW N,MSSN,MNUM
DO ^AZAMED0
QUIT
+23 ; Quit if no match on Sex
IF MSEX'=SSEX
SET SSNCT=SSNCT+1
SET SSNMATCH="Y"
NEW N,MSSN,MNUM
DO ^AZAMED0
QUIT
+24 DO NEW
DO UP0
DO MED
+25 ;Total Record Count - Regardless of action
SET TOTALCT=TOTALCT+1
End DoDot:1
+26 QUIT
+27 ;
MED ; -- add eligiblity date(s)/data
+1 SET IEN=$ORDER(^AUPNMCD("B",DFN,0))
IF 'IEN
QUIT
+2 ;*** TESTING - AEF *** DON'T UPDATE IF NOT AZ
IF $PIECE($GET(^AUPNMCD(IEN,0)),U,4)'=3
QUIT
+3 ;Quit if Both Beg/End Match already
IF $PIECE($GET(^AUPNMCD(IEN,11,EBD,0)),U,2)=EED
QUIT
+4 IF '$DATA(^AUPNMCD(IEN,11,0))
SET $PIECE(^(0),U,2)="9000004.11D"
+5 ;Last Beg Date entered
SET LSTEBD=$PIECE($GET(^AUPNMCD(IEN,11,0)),U,3)
+6 IF LSTEBD=""
Begin DoDot:1
+7 SET $PIECE(^AUPNMCD(IEN,11,0),U,3)=EBD
+8 SET $PIECE(^AUPNMCD(IEN,11,0),U,4)=$PIECE(^(0),U,4)+1
+9 ; Add Beginning DT Only ;*** TESTING - AEF *** REMOVE EXTRA QUOTE TO PREVENT <SYNTAX> ERROR
SET DR=".01///"_EBD_";.03////"_CT
+10 SET DIE="^AUPNMCD("_IEN_",11,"
SET DA(1)=IEN
SET DA=EBD
DO ^DIE
KILL DIE,DR,DA,DINUM
+11 ;Update Count-Update Master List
IF NOCOUNT=0
SET AZAMUPDT=AZAMUPDT+1
DO UPDATES^AZAMSTR
End DoDot:1
+12 IF LSTEBD'=""
Begin DoDot:1
+13 SET SENDDT=$PIECE($GET(^AUPNMCD(IEN,11,LSTEBD,0)),U,2)
+14 IF SENDDT'=""
SET $PIECE(^AUPNMCD(IEN,11,0),U,3)=EBD
+15 IF SENDDT'=""
SET $PIECE(^AUPNMCD(IEN,11,0),U,4)=$PIECE(^(0),U,4)+1
+16 ; Add Beg DT Only
IF SENDDT'=""
SET DR=".01///"_EBD_";03////"_CT
+17 IF SENDDT'=""
SET DIE="^AUPNMCD("_IEN_",11,"
SET DA(1)=IEN
SET DA=EBD
DO ^DIE
KILL DIE,DR,DA,DINUM
IF NOCOUNT=0
SET AZAMUPDT=AZAMUPDT+1
DO UPDATES^AZAMSTR
QUIT
+18 ;Existing Patient fell through-Still Active Only/no Update
DO STILLACT^AZAMSTR
End DoDot:1
+19 QUIT
+20 ;
NEW ; -- create new entry in medicaid eligible
+1 ;Quit if already in Medicaid Eligibility File
IF $ORDER(^AUPNMCD("B",+DFN,0))
QUIT
+2 DO ^XBFMK
KILL DIADD,DINUM
+3 SET X=DFN
SET DIC="^AUPNMCD("
SET DIC(0)="L"
SET DLAYGO=9000004
+4 SET DIC("DR")=".02////"_INS_";.03////"_MNUM_";.04////"_3_";2101////"_MFULNAME
+5 SET DIC("DR")=DIC("DR")_";.07////"_SSEX_";.08////"_DT_";.12////"_MRATE
+6 ;K DD,DO
+7 DO FILE^DICN
SET IEN=+Y
DO ^XBFMK
KILL DIADD,DINUM
+8 ;Counter for New Adds to Medicaid Eligibility file
SET AZAMNEW=AZAMNEW+1
+9 ;Don't count again on Date Updates UP0
SET NOCOUNT=1
+10 DO NEW^AZAMSTR
+11 QUIT
+12 ;
UP0 ; -- update 0th node - Patient Demographics Only
+1 SET IEN=$ORDER(^AUPNMCD("B",DFN,0))
IF 'IEN
QUIT
+2 ;*** TESTING - AEF *** DON'T UPDATE IF NOT AZ
IF $PIECE($GET(^AUPNMCD(IEN,0)),U,4)'=3
QUIT
+3 IF '$PIECE(^AUPNMCD(IEN,0),U,2)
SET $PIECE(^AUPNMCD(IEN,0),U,2)=INS
+4 IF '$PIECE(^AUPNMCD(IEN,0),U,3)
SET $PIECE(^AUPNMCD(IEN,0),U,3)=MNUM
+5 IF '$PIECE(^AUPNMCD(IEN,0),U,4)
SET $PIECE(^AUPNMCD(IEN,0),U,4)=3
+6 SET DIE="^AUPNMCD("
SET DA=IEN
SET DR="2101////"_MFULNAME_";.08////"_DT_";.12////"_MRATE
+7 DO ^DIE
KILL DIE,DR,DA
+8 ;I NOCOUNT=0 S AZAMUPDT=AZAMUPDT+1 ;Counter for Updates only to Medicaid Eligibility File
+9 QUIT
+10 ;
END ; -- cleanup
+1 SET GRANDTOT=GRANDTOT-1
+2 ;W !!,"End of Download Update!!!",!
+3 ;W !!
+4 ;W "Total Records Processed: "_GRANDTOT
+5 ;W !,"Total Action Records Process: "_TOTALCT
+6 ;W !,"Total New Records Added: "_AZAMNEW
+7 ;W !,"Total Updated Records: "_AZAMUPDT
+8 ;W !,"Total Records with SSN Match Only: "_SSNCT
+9 ;W !!,"Total KID's Care: "_KIDCT
+10 ;
+11 KILL IFN,DFN,IEN,EED,EBD,CT,MNUM,MSEX,N,NAME,CNT,MFULNAME,MFNAME,MNAMEMAT,MEDNAME,MIEN,MFNAME,MDOB,MRATE
+12 KILL AZAMNEW,AZAMUPDT,SSNCT,TOTALCT,NOCOUNT,GRANDTOT,BEGTIME,MKID,KIDCT,ENDTIME
+13 QUIT
+14 ;
EED() ; -- eligibility end date
+1 ;N X,Y S X=$E(N,412,419) D ^%DT Q Y
+2 NEW X,Y
SET YYYY=$EXTRACT(N,412,415)
SET MMDD=$EXTRACT(N,416,419)
+3 SET EED=MMDD_YYYY
+4 SET X=EED
DO ^%DT
QUIT Y
+5 ;
EBD() ; -- eligibility beg date
+1 ;N X,Y S X=$E(N,404,411) D ^%DT Q Y
+2 NEW X,Y
SET YYYY=$EXTRACT(N,347,350)
SET MMDD=$EXTRACT(N,351,354)
+3 SET EBD=MMDD_YYYY
+4 SET X=EBD
DO ^%DT
QUIT Y
+5 ;
EHIS() ; -- eligibilities after date/flag
+1 NEW X1,X2,X
SET X1=DT
SET X2=-180
DO C^%DTC
QUIT X
+2 ;
HRCN() ;EP; -- IHS health record number
+1 QUIT $PIECE($GET(^AUPNPAT(+$GET(DFN),41,+$GET(DUZ(2)),0)),"^",2)
+2 ;
ERD() ;EP -- Eligibility Enrollment Dt (Same as Beg Date on Roster)
+1 ;Roster Positions 347-354
+2 NEW X,Y
SET YYYY=$EXTRACT(N,347,350)
SET MMDD=$EXTRACT(N,351,354)
+3 SET ERD=MMDD_YYYY
+4 SET X=ERD
DO ^%DT
QUIT Y
+5 ;N X,Y S X=$E(N,404,411) D ^%DT Q Y
+6 ;
DOB() ;EP - Date of AHCCCS Birth Date Conversion
+1 NEW X,Y
SET YYYY=$EXTRACT(N,143,146)
SET MMDD=$EXTRACT(N,147,150)
+2 SET MDOB=MMDD_YYYY
+3 SET X=MDOB
DO ^%DT
QUIT Y
+4 ;
LOG ;Update AZA MEDICAL ELIGIBLE DOWNLOAD LOG
+1 ;W !!,"The Download Process is Now Complete!!"
+2 ;W !!,"I will now update the Download Log with the final run documentation",!
+3 ;S BEGTIME=$$NOW^XLFDT,ENDTIME=$$NOW^XLFDT,GRANDTOT=100,TOTALCT=50,SSNCT=5,AZAMNEW=10,AZAMUPDT=8
+4 ;The .01 Entry is Today's Date at time of run - BEGTIME Variable
+5 DO ^XBFMK
KILL DIADD,DINUM
+6 SET X=BEGTIME
SET DIC="^AZAMEDLG("
SET DIC(0)="L"
SET DLAYGO=1180006
+7 SET DIC("DR")=".02////"_ENDTIME_";.03////"_GRANDTOT_";.04///"_TOTALCT_";.05////"_SSNCT_";1///"_KIDCT
+8 SET DIC("DR")=DIC("DR")_";.06////"_AZAMNEW_";.07////"_AZAMUPDT_";.08////"_FILE
+9 ;ADD THE FILE NAME PROCESSED FIELD .08 HERE
+10 ;S DIC("DR")=DIC("DR")_";1////"_SSN_";2////"_RESCE
+11 DO FILE^DICN
SET IEN=+Y
DO ^XBFMK
KILL DIADD,DINUM
+12 ;
+13 ;W !!,"Log File Updated",!
+14 ;
+15 QUIT
+16 ;
END2 ;Abnormal Termination - Medicaid Insurer missing from Insurer File
+1 ;W !,"The Insurer - ARIZONA MEDICAID - is missing from the Insurer File",!
+2 ;W !,"The Initial Process of creating the AZAGMED Global is complete",!
+3 ;W "however, the Update Run (AZAMED) cannot be ran - See your Site Manager",!!
+4 QUIT
+5 ;
MEDNAME ;Check Med Elig Medicaid Name-If exists for match
+1 ;
+2 SET MNAMEMAT=0
+3 SET MIEN=$ORDER(^AUPNMCD("B",+DFN,0))
+4 IF 'MIEN
QUIT
+5 SET MEDNAME=$PIECE($GET(^AUPNMCD(MIEN,21)),U,1)
+6 IF MEDNAME=""
QUIT
+7 IF MEDNAME=MFULNAME
SET MNAMEMAT=1
+8 QUIT
+9 ;
MEDNUM ;Check Med Elig Number against RPMS
+1 ;
+2 SET MNUMMAT=0
+3 SET MIEN=$ORDER(^AUPNMCD("AE",MNUM,0))
+4 IF 'MIEN
QUIT
+5 SET MEDNUM=$PIECE($GET(^AUPNMCD(MIEN,0)),U,3)
+6 IF MEDNUM=""
QUIT
+7 IF MEDNUM=MNUM
SET MNUMMAT=1
SET DFN=$PIECE($GET(^AUPNMCD(MIEN,0)),U,1)
+8 QUIT
+9 ;
