BMENLOD1 ; IHS/PHXAO/TMJ - LOAD THE MEDICAID TAPE ; [ 06/11/03 3:37 PM ]
Source file <AZANLOD1.m>
Package | Total | Call Graph |
---|---|---|
Local Area Programs | 3 | ^AZAGMED ^AZAMED ^AZAMWRN |
VA Fileman | 2 | NOW^%DTC ^DIR |
Kernel | 1 | ^%ZTLOAD |
Name | Comments | DBIA/ICR reference |
---|---|---|
TASK | ;
|
|
END | ; -- write the final message
|
|
CTRM | ; -- check the terminal to make sure it's not a LAT device
|
|
S | ||
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences |
---|---|
ASKA | MAIN+6 |
ASKB | MAIN+5 |
CTRM | MAIN+2 |
END | MAIN+7 |
LOOP | MAIN+7 |
>> | 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*, S+4* |
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! |