AQAOPC4 ; IHS/ORDC/LJF - OCC BY IND WITH FINDING/ACTIONS ;
Source file <AQAOPC4.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DATES | ; >> ask user to choose date range | |
| END | ; >>> eoj | |
| TYPE | ; >>> ask user what type of report to print | |
| DEV | ; >>> get print device | |
| IND | ; >>> occurrences for which indicator? | |
| OPEN | ; >>> ask user if wants to include open cases | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences | 
|---|---|
| DATES | DATES+2, OPEN+7 | 
| END | TYPE+7, IND+1, DATES+1, DATES+2, OPEN+7, DEV+2 | 
| IND | DATES+1 | 
| OPEN | DEV+1 | 
| TYPE | IND+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> %ZIS | DEV+2* | 
| >> AQAOBD | DATES+1* | 
| >> AQAODLM | DEV+6 | 
| >> AQAOED | DATES+2* | 
| >> AQAOIND | IND+1*, IND+2* | 
| >> AQAOSTAT | OPEN+7* | 
| >> AQAOTYPE | TYPE+7* | 
| >> AQAOUA("USER" | DEV+1 | 
| >> AQAOXS | DEV+8 | 
| >> AQAOXSN | DEV+7 | 
| DIR | TYPE+1!, OPEN+1! | 
| DIR("?" | TYPE+3*, TYPE+4*, TYPE+5*, TYPE+6*, OPEN+3*, OPEN+4*, OPEN+5*, OPEN+6* | 
| DIR("A" | TYPE+2*, OPEN+2* | 
| DIR(0 | TYPE+1*, OPEN+1* | 
| >> DIRUT | TYPE+7, OPEN+7 | 
| >> I | DEV+5* | 
| IO | DEV+3 | 
| IO("Q" | DEV+3, DEV+4! | 
| >> POP | DEV+2 | 
| U | IND+1, DATES+1, DATES+2, DEV+1 | 
| >> X | OPEN+7 | 
| >> Y | TYPE+7, OPEN+7, DEV+1 | 
| >> ZTDESC | DEV+4* | 
| >> ZTRTN | DEV+4* | 
| >> ZTSAVE( | DEV+5* | 
| >> ZTSAVE("AQAODLM" | DEV+6* | 
| >> ZTSAVE("AQAOXS(" | DEV+8* | 
| >> ZTSAVE("AQAOXSM" | DEV+7* | 
| >> ZTSAVE("AQAOXSN" | DEV+7* | 
| ZTSK | DEV+9! |