©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
%ZISC ;SFISC/GFT,AC,MUS - CLOSE LOGIC FOR DEVICES ;11/08/2011
Source file <ZISC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| KRX | ||
| END | ||
| RQ | ||
| CIOS(%I) | ;Find a value for IOS (IEN into device file)
|
|
| RES | ;Close resource device.
|
|
| S1 | ||
| RES1 | ||
| FF() | ;Issue form feed
|
|
| SUBTYPE | ;Find a subtype
|
|
| SETIO | ;
|
|
| DQCRES | ;Tasked entry point to close resource device.
|
|
| RM | ||
| CLOSPP() | ;Close printer port
|
|
| C0 | ;
|
|
| KILLRES(D0,D1) | ;Kill one resource use
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | SETIO+2, SETIO+6, SETIO+10, SUBTYPE+7, CIOS+4, CIOS+7, RES1 |
| ^%ZIS(2 - [#3.2] | C0+17, C0+28, C0+30, SETIO+9, S1, SUBTYPE+4, SUBTYPE+5, SUBTYPE+7, CLOSPP+1 |
| ^%ZISL(3.54 - [#3.54] | RES+1, RES1+1, RES1+2, RES1+3, RES1+4, KILLRES+3, KILLRES+4, KILLRES+5, KILLRES+6!, KILLRES+7* , KILLRES+9*, KRX |
| ^%ZOSF("OS" | C0+6 |
| ^%ZOSF("RM" | RM |
| ^XUTL("XQ" | C0+41!, SETIO+6, SETIO+7, CIOS+2 |
| Name | Line Occurrences |
|---|---|
| $$CLOSPP | C0+33 |
| $$FF | C0+32 |
| CIOS | SETIO+4, SUBTYPE+6 |
| END | C0+9, SETIO+5, SETIO+7 |
| KILLRES | RES1+5 |
| KRX | KILLRES+4 |
| RES | C0+10 |
| RES1 | DQCRES+1 |
| RM | S1+1 |
| RQ | RES1, RES1+1, RES1+2, RES1+3, RES1+4 |
| SETIO | C0+9, C0+10 |
| SUBTYPE | C0+13 |
| Name | Field # of Occurrence |
|---|---|
| ^("IOS" | CIOS+2 |
| ^("IOST(0)" | SETIO+6 |
| ^("PCX" | SETIO+2 |
| ^("TYPE" | SETIO+6, CIOS+7 |
| ^("VOL" | C0+6 |
| ^("XY" | S1 |
| ^(0 | RES1+2 |
| ^(1 | SETIO+9, RES1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | C0+1~, C0+8*, C0+9, C0+28*, C0+30*, C0+41*, SETIO+8*, SETIO+9*, SETIO+10*, SETIO+12 |
| %E | C0+1~, CIOS+3, CIOS+7 |
| %H | C0+1~, CIOS+7* |
| %I | CIOS~, CIOS+3, CIOS+4, CIOS+6 |
| %J | KILLRES+2~, KILLRES+5*, KILLRES+6 |
| %S | SUBTYPE+1~, SUBTYPE+4*, SUBTYPE+5* |
| %X | RES+2~, RES1+1*, RES1+2, RES1+3*, KILLRES+2~, KILLRES+5*, KILLRES+7*, KILLRES+9* |
| %Y | END*, RES+2~, RES1+4*, KILLRES+2~, KILLRES+4*, KILLRES+7, KILLRES+9* |
| %ZISD0 | RES+2~, RES1+2*, RES1+3, RES1+4, RES1+5 |
| %ZISD1 | RES+2~, RES1+3*, RES1+4, RES1+5 |
| %ZISI | C0+1~ |
| %ZISJOB | RES+2~, RES+3*, RES1+3, RES1+4 |
| %ZISOS | C0+1~, C0+6* |
| >> %ZISPCX | SETIO+2*, END |
| %ZISRES | RES+2~, DQCRES+1 |
| %ZISRL | RES+2~, RES1*, KILLRES+2~ |
| %ZISV | C0+1~, C0+6*, CIOS+3 |
| %ZISVT | CIOS+1~, CIOS+3*, CIOS+6*, CIOS+7 |
| %ZISX | C0+1~ |
| %ZISY0 | RES+2~, RES1+2* |
| %ZTRTN | RES+2~ |
| D0 | KILLRES~, KILLRES+1, KILLRES+3, KILLRES+4, KILLRES+5, KILLRES+6, KILLRES+7, KILLRES+9, KRX |
| D1 | KILLRES~, KILLRES+1, KILLRES+5, KILLRES+6 |
| IO | C0+5*, C0+8, C0+9, C0+17, C0+18, C0+21, C0+26, C0+37, C0+39, C0+44 , SETIO+4*, S1+1, RES+1, RES1+1, RQ, DQCRES+1*, FF+1, CLOSPP+1 |
| IO("C" | C0+37, S1+1 |
| IO("CLOSE" | C0+3!, C0+39* |
| IO("DOC" | END+2! |
| IO("ERROR" | C0+3! |
| IO("HFSIO" | END+2! |
| IO("HOME" | C0+22 |
| IO("LASTERR" | C0+3! |
| IO("P" | C0+27, C0+29, END+2! |
| IO("S" | C0+33!, CLOSPP+1 |
| IO("SPOOL" | C0+47, END+2! |
| IO("T" | C0+18, C0+33, SETIO+4!, END, FF+1 |
| IO(0 | C0+5*, C0+9, C0+37, C0+38, SETIO+4 |
| IO(1 | C0+17, C0+26, C0+37, C0+38, C0+39!, S1+1, RES+1, RQ!, FF+1, CLOSPP+1 |
| >> IOBS | SETIO+9*, SETIO+12* |
| IOC | END+2! |
| IOF | C0+32, SETIO+9*, SETIO+12* |
| IOM | SETIO+9*, SETIO+10*, SETIO+12*, RM |
| ION | C0+8, SETIO+6* |
| IONOFF | END+2!, FF+1 |
| >> IOP | C0+22* |
| >> IOPAR | SETIO+4* |
| >> IOS | C0+41, SETIO+2, SETIO+5, SETIO+6, SETIO+10, SUBTYPE+6, SUBTYPE+7, CIOS+2*, CIOS+3*, CIOS+4* , CIOS+5, CIOS+7*, RES1 |
| IOSL | SETIO+9*, SETIO+10*, SETIO+12* |
| IOST | SETIO+12*, S1*, SUBTYPE+2*, SUBTYPE+3, SUBTYPE+4*, SUBTYPE+5, SUBTYPE+6*, SUBTYPE+7*, FF+1 |
| IOST(0 | C0+16, C0+17, C0+28, C0+30, SETIO+6*, SETIO+9, S1, SUBTYPE+2*, SUBTYPE+3, SUBTYPE+4 , SUBTYPE+5*, SUBTYPE+6*, SUBTYPE+7* |
| >> IOT | C0+10, C0+44, SETIO+5*, SETIO+6*, SETIO+7, S1+1, FF+1 |
| >> IOUPAR | SETIO+4* |
| >> IOXY | S1* |
| U | C0+6*, SUBTYPE+4 |
| X | RM~* |
| ZTIO | RES+2~ |
| >> ZTQUEUED | C0+38, S1+1 |
| ZTSAVE | RES+2~ |