VAQDIS17 ;ALB/JFP - PDX,DEVICE SELECTER FOR DISPLAY;01MAR93
Source file <VAQDIS17.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEVICE(TYPE) | ; -- Gets device
|
|
| ASK | ||
| QUEUE | ;QUEUE FOR PRINTING
|
|
| TASK | ; -- Task for printing
|
|
| ALL | ; -- Builds display for all segments
|
|
| ALLQ | ||
| SELECT | ; -- Builds display for selected segments
|
|
| SELQ | ||
| BLD | ; -- Builds printed output
|
|
| EXIT | ; -- Kill device/queue variables
|
|
| END | ; -- End of code
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | ASK |
| ^%ZISC | ASK+1, ALL+6, SELECT+6 |
| ^%ZTLOAD | QUEUE+4 |
| $$S^%ZTLOAD | ALL+2, ALL+3, SELECT+2, SELECT+3 |
| CHGCAP^VALM | BLD+5, BLD+6, BLD+7 |
| PRTLQ^VALM1 | QUEUE+5 |
| PRTLS^VALM1 | BLD+8 |
| SAVE^VALM1 | QUEUE+4 |
| BLDDIS^VAQDIS15 | ALL+2, SELECT+2 |
| ENDLN^VAQDIS15 | BLD+1 |
| $$ROOT^VAQDIS20 | BLD+4 |
| PAUSE^VAQUTL95 | QUEUE+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("VAQIDXSG" | ALL+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | ASK*, ASK+4!, EXIT+1! |
| DIROUT | EXIT+2! |
| DIRUT | EXIT+2! |
| DTOUT | EXIT+2! |
| DUOUT | EXIT+2! |
| >> ENTRY | ALL+1*, ALL+2*, SELECT+1*, SELECT+2* |
| IO | ASK+4, ASK+6 |
| IO(0 | ASK+4, ASK+6 |
| IOM | ASK+1 |
| ION | QUEUE+1 |
| >> NROOT | BLD+2*, BLD+4 |
| >> POP | ASK, ASK+2 |
| ROOT | ALL+1*, SELECT+1*, EXIT+3! |
| TYPE | DEVICE~, TASK+1, TASK+2 |
| VALMAR | BLD+3~, BLD+4* |
| >> VALMCNT | ALL+1*, SELECT+1* |
| >> VALMY( | SELECT+2 |
| >> X | QUEUE+3* |
| ZTDESC | QUEUE+2*, EXIT+1! |
| >> ZTDTH | QUEUE+1* |
| ZTIO | QUEUE+1*, EXIT+1! |
| >> ZTQUEUED | TASK+1, TASK+2 |
| >> ZTREQ | TASK+1*, TASK+2* |
| ZTRTN | QUEUE+1*, EXIT+1! |
| ZTSAVE | EXIT+1! |
| ZTSAVE( | QUEUE+3* |
| ZTSK | QUEUE+6, EXIT+1! |