Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AZAMLOAD

AZAMLOAD.m

Go to the documentation of this file.
  1. BMEMLOAD ; IHS/PHXAO/TMJ - LOAD THE MEDICAID FILE DRIVER ROUTINE ; [ 06/11/03 3:29 PM ]
  1. ;1.0;AZAM PHOENIX AREA MEDICAID UTILITIES;February 14, 2001
  1. ;
  1. MAIN ; -- this is the main program loop
  1. ;
  1. UNIX ;Reads the Unix AHCCCS Elig. Roster to ^AZAGMED(GLOBAL
  1. ;This Global is Killed off each month at time of new run
  1. ;
  1. D ^AZAGMED
  1. ;
  1. ;
  1. UPLOAD ;Upload Eligibility Data to RPMS From ^AZAGMED(GLOBAL
  1. ;Creates Monthly Temporary No Match File ^AZAMED(GLOBAL
  1. ;This Temporary File is Killed off each month at time of new run
  1. ;Populates RPMS Master Elig. File ^AZAMSTR(GLOBAL
  1. ;
  1. ;Check to make sure a complete Unit File has been read
  1. ;& the ^AZAGMED( Global has completed to the final record
  1. ;The last Record in Global should match the 20-24 position
  1. ;for record count (Plus One). Quit if incomplete ^AZAGMED
  1. ;Global is created.
  1. ;^AZAGMED(60167)=XX200105019999980006016600000000000
  1. ;
  1. S LASTREC=$O(^AZAGMED(""),-1) ;Get Last Record
  1. S LASTDATA=$E(^AZAGMED(LASTREC),20,24) ;Get Pos 20-24
  1. S LASTDATA=LASTDATA+1 ;Add one count for check
  1. I LASTREC'=LASTDATA W !!,"Incomplete Global",! Q ;Quit if incomplete
  1. ;
  1. D ^AZAMED
  1. ;
  1. ;
  1. FALLOFF ;Run the Eligibility Fall Off Patients
  1. ;This Routine runs through the RPMS Master File and provides
  1. ;a List of Pts (who were Eligible the previous Month's Run)
  1. ;but are not included in the current Month's Roster
  1. ;Populates the RPMS Master Elig. File with Fall Off Date
  1. ;
  1. D ^AZAMFALL
  1. ;
  1. ;
  1. ;
  1. ;End of Process Kill off Variables
  1. Q
  1. ;
  1. ;
  1. MSG ;Message Displays - Don't Use on TaskMan
  1. ;Would utilize only if User Ran Process
  1. ;W !!,"Finished loading the State of Arizona Medicaid File"
  1. ;W !!,"Now uploading the State information into the RPMS database..."
  1. ;D ^AZAMED
  1. ;Q
  1. ;
  1. END ; -- write the final message
  1. ;W !!,"Finished, uploading the medicaid information into RPMS"
  1. ;W !!,"The new information is in the RPMS database"
  1. ;Q