AQAOEDTA ; IHS/ORDC/LJF - STUFF PCC DATA INTO OCC ;
Source file <AQAOEDTA.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CHOOSE | ;ENTRY POINT to ask user to add PCC data for inclusion under an occ | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> AQAOA( | CHOOSE+12 | 
| >> AQAOCNT | CHOOSE+2, CHOOSE+10 | 
| >> AQAOFL | CHOOSE+12, CHOOSE+16 | 
| >> AQAOFLD | CHOOSE+17 | 
| >> AQAOGBL | CHOOSE+12, CHOOSE+13, CHOOSE+16 | 
| AQAOI | CHOOSE+1~, CHOOSE+11* | 
| >> AQAOIFN | CHOOSE+14 | 
| >> AQAOPAT | CHOOSE+14 | 
| AQAOX | CHOOSE+1~, CHOOSE+11* | 
| DA | CHOOSE+16!* | 
| DD | CHOOSE+12! | 
| DIC | CHOOSE+12!* | 
| DIC("DR" | CHOOSE+14* | 
| DIC(0 | CHOOSE+12* | 
| >> DIDEL | CHOOSE+16* | 
| DIE | CHOOSE+16!* | 
| DIR | CHOOSE+1~, CHOOSE+2! | 
| DIR("?" | CHOOSE+4*, CHOOSE+5*, CHOOSE+6*, CHOOSE+7*, CHOOSE+8* | 
| DIR("A" | CHOOSE+3* | 
| DIR(0 | CHOOSE+2* | 
| >> DIRUT | CHOOSE+8 | 
| >> DLAYGO | CHOOSE+12* | 
| DO | CHOOSE+12! | 
| DR | CHOOSE+16!, CHOOSE+17* | 
| >> I | CHOOSE+10* | 
| >> X | CHOOSE+11*, CHOOSE+12*, CHOOSE+13* | 
| >> Y | CHOOSE+8, CHOOSE+10*, CHOOSE+11, CHOOSE+15, CHOOSE+16 |