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