©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ZU ;SFISC/RWF - For MSM, TIE ALL TERMINALS EXCEPT CONSOLE TO THIS ROUTINE!! ;01/20/98 13:21 [ 04/02/2003 8:29 AM ]
Source file <ZUPCU432.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UNWIND | ;Unwind the stack
|
|
| EN | ||
| CONT | ;
|
|
| JOBCHK | ||
| ERR | ;Come here on error.
|
|
| GUIX | ||
| CTRLC2 | ||
| CTRLC | ||
| G | ;Entry point for GUI device.
|
|
| GUI() | ;Test if under GUI
|
|
| HALT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^$DI( | GUI+3 |
| ^%ZIS(14.7 - [#14.7] | JOBCHK+2 |
| ^%ZOSF("AVJ" | JOBCHK |
| ^%ZOSF("PROGMODE" | ERR+6 |
| ^XTV(8989.3 - [#8989.3] | CONT+2 |
| ^XUTL("XQ" | CTRLC2, CTRLC2+1*, HALT |
| Name | Line Occurrences |
|---|---|
| CONT | UNWIND+1, HALT+1 |
| CTRLC2 | UNWIND+1, CTRLC2+2 |
| EN | G+1 |
| GUIX | GUI+2 |
| HALT | JOBCHK |
| Name | Field # of Occurrence |
|---|---|
| ^("XUCP" | CONT+2 |
| ^(1 | CTRLC2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | JOBCHK+2* |
| >> %K | JOBCHK+2* |
| DUZ | HALT |
| IO | ERR+3, CTRLC* |
| IO(0 | ERR+4, CTRLC |
| IO(1 | ERR+3 |
| IOF | ERR+3 |
| IOST | ERR+3 |
| >> X | GUI+2*, GUI+3*, GUIX |
| >> XQPSM | CTRLC2+3* |
| >> XQY | CTRLC2+1*, CTRLC2+3*, CTRLC2+4 |
| >> XQY0 | CTRLC2+1*, CTRLC2+2 |
| >> XUERF | ERR+7* |
| >> Y | JOBCHK, JOBCHK+2*, ERR+6 |
| >> ZUGUI1 | JOBCHK+3, G+1* |