Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BMEMLOD1

Package: IHS Medicaid Eligibility Download

Routine: BMEMLOD1


Information

BMEMLOD1 ; IHS/PHXAO/TMJ - LOAD THE MEDICAID TAPE ;

Source Information

Source file <BMEMLOD1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Local Area Programs 3 ^AZAGMED  ^AZAMED  ^AZAMWRN  
VA Fileman 2 NOW^%DTC  ^DIR  
Kernel 1 ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
TASK ;
END ; -- write the final message
CTRM ; -- check the terminal to make sure it's not a LAT device
ASKA ; -- ask if they are sure
ASKB ; -- ask about current medicaid file
CTM ; -- check to make sure this is after hours (after 4:00pm)
MAIN ; -- this is the main program loop
LOOP ; -- this is the actual process

External References

Name Field # of Occurrence
NOW^%DTC CTM+2
^%ZTLOAD LOOP+5
^AZAGMED TASK+3
^AZAMED TASK+3
^AZAMWRN MAIN+4
^DIR ASKA+4, ASKB+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are logged into a LAT device."
  • Line Location: CTRM+3
Function Call: WRITE
  • Prompt: !,"Please log into a UNIX device to run this!!"
  • Line Location: CTRM+4
Function Call: WRITE
  • Prompt: !!!,"This can only be started between the hours of 4pm and 12am!!"
  • Line Location: CTM+4
Function Call: WRITE
  • Prompt: !,"The file is now ready to upload"
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !,"Running this process will delete the old exception file",!
  • Line Location: ASKA+2
Function Call: WRITE
  • Prompt: !,"I will now get the most current file from the Area Office",!
  • Line Location: ASKB+1
Function Call: WRITE
  • Prompt: !,"Getting the most current file from area now..."
  • Line Location: ASKB+7
Function Call: WRITE
  • Prompt: !,"This could take up to 5 minutes, please stand by..."
  • Line Location: ASKB+8
Function Call: WRITE
  • Prompt: !,"The file is now here!!"
  • Line Location: ASKB+10
Function Call: WRITE
  • Prompt: !,"Now loading the State of Arizona Medicaid File....."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!,"This process could take up to 8 hours, please QUE to run after 6pm."
  • Line Location: LOOP+2
Routine Call
  • DIR
  • Line Location:
    • ASKA+4
    • ASKB+4

Label References

Name Line Occurrences
ASKA MAIN+6
ASKB MAIN+5
CTRM MAIN+2
END MAIN+7
LOOP MAIN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CTM+2~
DIR ASKA+3~, ASKA+4!, ASKB+2~, ASKB+4!
DIR("A" ASKA+3*, ASKB+3*
DIR("B" ASKA+4*, ASKB+2*
DIR(0 ASKA+3*, ASKB+2*
>> DIRUT MAIN+5, MAIN+6, ASKA+4, ASKB+4
GET MAIN+1!, ASKB+6*, ASKB+9
IO("Q" LOOP+3!
>> NW CTM+2*
S MAIN+1!, MAIN+2, CTRM+1*, CTRM+6*
T MAIN+1!, MAIN+6, ASKA+4*
T1 MAIN+1!, MAIN+5, ASKB+4*, ASKB+5
TM MAIN+1!, CTM+1*, CTM+5*
X ASKA+3~, ASKB+2~, ASKB+9*
Y ASKA+3~, ASKA+4, ASKB+2~, ASKB+4
>> ZTDESC LOOP+4*
>> ZTIO LOOP+4*
>> ZTRTN LOOP+4*
ZTSK LOOP+5!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All