©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
ZISPL1 ;SF/RWF - %ZIS UTILITIES FOR SPOOLING ;11/20/97 08:53 [ 04/02/2003 8:29 AM ]
Source file <ZISPL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MSG1 | ||
| FILE | ;Called by %ZIS4 to setup spool data file.
|
|
| LIMITS | ||
| FLST | ||
| R1 | ||
| ADSPL | ||
| R | ||
| NEWDOC | ;Called by %ZIS4 to get or setup a spool document.
|
|
| DQC | ;DQ the move from spool to mail message.
|
|
| CLOSE | ||
| ND3 | ||
| G1 | ||
| GENDOC | ;Auto generate document name.
|
|
| QDSPL |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | CLOSE+1, CLOSE+2, CLOSE+4, R+2, GENDOC+1 |
| ^VA(200 - [#200] | NEWDOC+1 |
| ^XMB(3.51 - [#3.51] | FILE+3, FILE+7*, CLOSE*, CLOSE+5!, R1+2*, ND3, LIMITS+4, G1, FLST |
| ^XMBS(3.519 - [#3.519] | CLOSE* |
| ^XTV(8989.3 - [#8989.3] | LIMITS |
| ^XUTL("XQ" | FILE+1, FILE+2, FILE+3! |
| Name | Line Occurrences |
|---|---|
| ADSPL | CLOSE+4 |
| FLST | GENDOC+1 |
| G1 | G1, G1+2 |
| GENDOC | R+2 |
| LIMITS | NEWDOC+2 |
| MSG1 | NEWDOC+3 |
| ND3 | R1 |
| R1 | R+2 |
| Name | Field # of Occurrence |
|---|---|
| ^("ADSPL" | FILE+2, FILE+3! |
| ^("SPL" | NEWDOC+1 |
| ^("SPOOL" | FILE+1 |
| ^(0 | FILE+3, FILE+7*, CLOSE*, CLOSE+2, CLOSE+4 |
| ^(1 | R+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CLOSE, CLOSE+1*, CLOSE+2, CLOSE+5!, ADSPL~, R1+1*, R1+2, ND3*, LIMITS+4* |
| >> %IS | R+2 |
| >> %X | CLOSE+2*, CLOSE+3*, CLOSE+4, ADSPL+1*, QDSPL |
| >> %Y | R*, R+3, R+4 |
| %Z1 | NEWDOC+3, R!, LIMITS* |
| %Z2 | NEWDOC+3, R!, LIMITS*, LIMITS+4* |
| %Z3 | NEWDOC+3, R!, LIMITS*, LIMITS+4* |
| >> %Z4 | LIMITS+4* |
| >> %Z91 | R1*, R1+2, ND3* |
| %ZDA | FILE+1*, FILE+3*, FILE+4*, FILE+5, FILE+7, CLOSE, CLOSE+4, CLOSE+5!, DQC+1, QDSPL+1 |
| %ZFN | CLOSE+5! |
| >> %ZISIOS | R+2, GENDOC+1 |
| >> %ZISMY | R |
| >> %ZS | FILE+3*, ADSPL+1 |
| >> %ZY | R+5*, R1*, GENDOC+1*, GENDOC+2*, G1 |
| >> %ZY(0 | R1* |
| >> DA | CLOSE+4* |
| DD | FILE+5!, FILE+6! |
| DIC | FILE+5*, NEWDOC+1~, R+1*, G1+1* |
| DIC("B" | R+4* |
| DIC("DR" | R+1* |
| DIC("S" | R+1* |
| DIC("W" | R+1* |
| DIC(0 | FILE+5*, R+3*, R+4*, G1+1* |
| >> DIE | CLOSE+4* |
| >> DINUM | G1+1* |
| DLAYGO | FILE+5*, FILE+6!, R+5*!, G1+1*, G1+2! |
| DO | FILE+5!, FILE+6! |
| >> DR | CLOSE+4* |
| DT | FILE+7 |
| DUZ | NEWDOC+1, R1+2, LIMITS+4 |
| IO("DOC" | R |
| IO("SPOOL" | FILE+1, FILE+3!, DQC+1* |
| >> IOP | NEWDOC+1, NEWDOC+3, R+3 |
| U | R+1*, R1+2 |
| X | FILE+5~*, NEWDOC+1~, R+3*, G1* |
| XMDUZ | CLOSE+5! |
| XMZ | CLOSE+5! |
| >> XS | FILE+5*, FILE+7, CLOSE |
| Y | FILE+5~, NEWDOC+1~, R+5, R1, R1+2, ND3, G1+2 |
| Y(0 | R1 |
| >> ZISDA | CLOSE+4*, QDSPL+1* |
| ZISDA2 | CLOSE+4!, ADSPL |
| >> ZISIOST | R1* |
| ZISPLAD | FILE+2*, FILE+4!, CLOSE+1, CLOSE+2 |
| >> ZISPLC | CLOSE+3*, ADSPL+1, QDSPL*, QDSPL+1 |
| >> ZISPLDV | CLOSE+4*, ADSPL+1 |
| >> ZISPLST | G1*, G1+1, FLST* |
| >> ZTDESC | FILE+4*, QDSPL* |
| >> ZTDTH | FILE+4*, QDSPL*, QDSPL+1 |
| >> ZTIO | FILE+4*, QDSPL*, QDSPL+1 |
| >> ZTRTN | FILE+4*, QDSPL* |
| >> ZTSAVE("%ZDA" | FILE+4* |
| >> ZTSAVE("%ZS" | FILE+4* |
| >> ZTSAVE("ZISDA" | QDSPL+1* |
| >> ZTSAVE("ZISDA2" | QDSPL+1* |
| >> ZTSAVE("ZISPLAD" | FILE+4* |
| >> ZTSAVE("ZISPLC" | QDSPL+1* |
| ZTSK | FILE+4!, ADSPL~, QDSPL+1! |