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! |