BMEMLOAD ; IHS/PHXAO/TMJ - LOAD THE MEDICAID FILE DRIVER ROUTINE ;
;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003
;
MAIN ; -- this is the main program loop
;This Routine runs either the Flat File 560 Routines
;or the 834 Transaction Routines
;
;The Site Parameter Global BMEPARM Determines the Type of Run
;based upon Field #.03 Type of Transaction
;If Type = F Flat File 560 - Runs BMEMED and BMEMED0
;If Type = 8 834 Transaction - Runs BME834 and BME8340
;The Fall Off Routines runs independently of Type
;
S BMEQUIT=0 ;Quit Variable to NOT run 834 Transaction
;
TYPE ;Determine the type of Run
;
S BMEFIEN=$O(^BMEPARM("B",DUZ(2),0)) ;Get Facility IEN
Q:'BMEFIEN ;Quit if No Facility Entry in Site Parameter
S BMETYPE=$P($G(^BMEPARM(BMEFIEN,0)),U,3) ; Get Type
;
Q:BMETYPE=""
I BMETYPE="F" D FLATFILE
I BMETYPE=8 D TRAN834
D END
Q
;
FLATFILE ;Run the Download from the Unix Flat File
D UNIX
D UPLOAD
D FALLOFF
D END
Q
;
;
TRAN834 ;Run the Download from the 834 Transaction/GIS
D P834
D LOAD834
D FALLOFF
D END
Q
;
;
UNIX ;Reads the Unix AHCCCS Elig. Roster to ^BMEGMED(GLOBAL
;This Global is Killed off each month at time of new run
;
D ^BMEGMED
Q
;
UPLOAD ;Upload Eligibility Data to RPMS From ^BMEGMED(GLOBAL
;Creates Monthly Temporary No Match File ^BMETMED(GLOBAL
;This Temporary File is Killed off each month at time of new run
;Populates RPMS Master Elig. File ^BMEMSTR(GLOBAL
;
;Check to make sure a complete Unit File has been read
;& the ^BMEGMED( Global has completed to the final record
;The last Record in Global should match the 20-24 position
;for record count (Plus One). Quit if incomplete ^BMEGMED
;Global is created.
;^BMEGMED(60167)=XX200105019999980006016600000000000
;
S BMELASTR=$O(^BMEGMED(""),-1) ;Get Last Record
S BMELASTD=$E(^BMEGMED(BMELASTR),20,24) ;Get Pos 20-24
S BMELASTD=BMELASTD+1 ;Add one count for check
I BMELASTR'=BMELASTD W !!,"Incomplete Global",! Q ;Quit if incomplete
;
D ^BMEMED
Q
;
FALLOFF ;Run the Eligibility Fall Off Patients
;This Routine runs through the RPMS Master File and provides
;a List of Pts (who were Eligible the previous Month's Run)
;but are not included in the current Month's Roster
;Populates the RPMS Master Elig. File with Fall Off Date
;
I BMEQUIT'=1 D ^BMEMFALL
Q
;
;
MSG ;Message Displays - Don't Use on TaskMan
;Would utilize only if User Ran Process
;W !!,"Finished loading the State of Arizona Medicaid File"
;W !!,"Now uploading the State information into the RPMS database..."
;Q
;
;
P834 ;Process the 834 Transaction load from GIS
;THIS ROUTINE HAS NOT BEEN WRITTEN. It should take the
;834 data from the GIS and Populate the BME MEDICAID HOLDING
;File - Global ^BMEHOLD. Once populated, the Holding File
;Global will be utilized to run the ^BME834 Routine which
;conducts the Actual Download of Data into the RPMS Files
;
;Will want to call Routine BHLXRFL and pass in
;XMSG = Message 834
;DIR = Directory for the File
;PRE = 834*
;XTF = Test or Production
;
;
;Quit as GIS is not Available yet
S BMEQUIT=1
;
Q
;
LOAD834 ;Upload the Eligibility Data to RPMS from the Holding
;File Global ^BMEHOLD(
;This Temporary Holding File is killed off each month for
;the new run - The BMEMSTR(Global is also populated
;
I BMEQUIT'=1 D ^BME834 ;Run Only if GIS is now programmed
Q
;
END ; -- write the final message
;W !!,"Finished, uploading the medicaid information into RPMS"
;W !!,"The new information is in the RPMS database"
;Q
;
K BMEFIEN,BMETYPE
Q
BMEMLOAD ; IHS/PHXAO/TMJ - LOAD THE MEDICAID FILE DRIVER ROUTINE ;
+1 ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003
+2 ;
MAIN ; -- this is the main program loop
+1 ;This Routine runs either the Flat File 560 Routines
+2 ;or the 834 Transaction Routines
+3 ;
+4 ;The Site Parameter Global BMEPARM Determines the Type of Run
+5 ;based upon Field #.03 Type of Transaction
+6 ;If Type = F Flat File 560 - Runs BMEMED and BMEMED0
+7 ;If Type = 8 834 Transaction - Runs BME834 and BME8340
+8 ;The Fall Off Routines runs independently of Type
+9 ;
+10 ;Quit Variable to NOT run 834 Transaction
SET BMEQUIT=0
+11 ;
TYPE ;Determine the type of Run
+1 ;
+2 ;Get Facility IEN
SET BMEFIEN=$ORDER(^BMEPARM("B",DUZ(2),0))
+3 ;Quit if No Facility Entry in Site Parameter
IF 'BMEFIEN
QUIT
+4 ; Get Type
SET BMETYPE=$PIECE($GET(^BMEPARM(BMEFIEN,0)),U,3)
+5 ;
+6 IF BMETYPE=""
QUIT
+7 IF BMETYPE="F"
DO FLATFILE
+8 IF BMETYPE=8
DO TRAN834
+9 DO END
+10 QUIT
+11 ;
FLATFILE ;Run the Download from the Unix Flat File
+1 DO UNIX
+2 DO UPLOAD
+3 DO FALLOFF
+4 DO END
+5 QUIT
+6 ;
+7 ;
TRAN834 ;Run the Download from the 834 Transaction/GIS
+1 DO P834
+2 DO LOAD834
+3 DO FALLOFF
+4 DO END
+5 QUIT
+6 ;
+7 ;
UNIX ;Reads the Unix AHCCCS Elig. Roster to ^BMEGMED(GLOBAL
+1 ;This Global is Killed off each month at time of new run
+2 ;
+3 DO ^BMEGMED
+4 QUIT
+5 ;
UPLOAD ;Upload Eligibility Data to RPMS From ^BMEGMED(GLOBAL
+1 ;Creates Monthly Temporary No Match File ^BMETMED(GLOBAL
+2 ;This Temporary File is Killed off each month at time of new run
+3 ;Populates RPMS Master Elig. File ^BMEMSTR(GLOBAL
+4 ;
+5 ;Check to make sure a complete Unit File has been read
+6 ;& the ^BMEGMED( Global has completed to the final record
+7 ;The last Record in Global should match the 20-24 position
+8 ;for record count (Plus One). Quit if incomplete ^BMEGMED
+9 ;Global is created.
+10 ;^BMEGMED(60167)=XX200105019999980006016600000000000
+11 ;
+12 ;Get Last Record
SET BMELASTR=$ORDER(^BMEGMED(""),-1)
+13 ;Get Pos 20-24
SET BMELASTD=$EXTRACT(^BMEGMED(BMELASTR),20,24)
+14 ;Add one count for check
SET BMELASTD=BMELASTD+1
+15 ;Quit if incomplete
IF BMELASTR'=BMELASTD
WRITE !!,"Incomplete Global",!
QUIT
+16 ;
+17 DO ^BMEMED
+18 QUIT
+19 ;
FALLOFF ;Run the Eligibility Fall Off Patients
+1 ;This Routine runs through the RPMS Master File and provides
+2 ;a List of Pts (who were Eligible the previous Month's Run)
+3 ;but are not included in the current Month's Roster
+4 ;Populates the RPMS Master Elig. File with Fall Off Date
+5 ;
+6 IF BMEQUIT'=1
DO ^BMEMFALL
+7 QUIT
+8 ;
+9 ;
MSG ;Message Displays - Don't Use on TaskMan
+1 ;Would utilize only if User Ran Process
+2 ;W !!,"Finished loading the State of Arizona Medicaid File"
+3 ;W !!,"Now uploading the State information into the RPMS database..."
+4 ;Q
+5 ;
+6 ;
P834 ;Process the 834 Transaction load from GIS
+1 ;THIS ROUTINE HAS NOT BEEN WRITTEN. It should take the
+2 ;834 data from the GIS and Populate the BME MEDICAID HOLDING
+3 ;File - Global ^BMEHOLD. Once populated, the Holding File
+4 ;Global will be utilized to run the ^BME834 Routine which
+5 ;conducts the Actual Download of Data into the RPMS Files
+6 ;
+7 ;Will want to call Routine BHLXRFL and pass in
+8 ;XMSG = Message 834
+9 ;DIR = Directory for the File
+10 ;PRE = 834*
+11 ;XTF = Test or Production
+12 ;
+13 ;
+14 ;Quit as GIS is not Available yet
+15 SET BMEQUIT=1
+16 ;
+17 QUIT
+18 ;
LOAD834 ;Upload the Eligibility Data to RPMS from the Holding
+1 ;File Global ^BMEHOLD(
+2 ;This Temporary Holding File is killed off each month for
+3 ;the new run - The BMEMSTR(Global is also populated
+4 ;
+5 ;Run Only if GIS is now programmed
IF BMEQUIT'=1
DO ^BME834
+6 QUIT
+7 ;
END ; -- write the final message
+1 ;W !!,"Finished, uploading the medicaid information into RPMS"
+2 ;W !!,"The new information is in the RPMS database"
+3 ;Q
+4 ;
+5 KILL BMEFIEN,BMETYPE
+6 QUIT
