AVAP3 ;IHS/ORDC/LJF - MOVE LICENSURE BACK TO FILE 6 [ 10/27/93 9:47 AM ]
Source file <AVAP3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MOVE1 | ||
MOVE | ;**> SUBRTN to move licensure data to file 6 then delete in file 200
|
|
END | ;***> eoj
|
|
LOOP | ; loop thru provider file
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(16 - [#16] | LOOP+8, LOOP+10 |
^DIC(6 - [#6] | LOOP+1, LOOP+4, LOOP+5, LOOP+6, MOVE+2, MOVE+3*, MOVE+6* |
^VA(200 - [#200] | LOOP+13, MOVE+1, MOVE+3, MOVE+5, MOVE+6, MOVE1! |
Name | Line Occurrences |
---|---|
MOVE | LOOP+14 |
MOVE1 | MOVE+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
LJF200 | LOOP+10*, LOOP+11, LOOP+13, END+1!, MOVE+1, MOVE+3, MOVE+5, MOVE+6, MOVE1 |
LJF6 | LOOP+3*, LOOP+4*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+12, END+1! , MOVE+2, MOVE+3, MOVE+6 |
U | LOOP+6, LOOP+10, MOVE+3 |
X | END+2!, MOVE+4*, MOVE+5*, MOVE+6 |
Y | END+2! |