©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
%ZTLOAD1 ;SEA/RDS-TaskMan: P I: Queue ;09/23/08 10:06
Source file <ZTLOAD1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCHED | ;schedule task and quit
|
|
| H3(%) | ;Convert $H to seconds.
|
|
| GET | ;get task data
|
|
| H0(%) | ;Covert from seconds to $H
|
|
| 1 | ||
| RECORD | ;build record
|
|
| 2 | ||
| EXIT | ;Clean up
|
|
| EVAL | ;ZTSAVE--evaluate expression
|
|
| DEVICE | ;get device data
|
|
| ZTSAVE | ;save variables
|
| Name | Field # of Occurrence |
|---|---|
| %XY^%RCR | EVAL+5, EVAL+6 |
| $$NOQ^%ZISUTL | DEVICE+16 |
| DOLRO^%ZOSV | EVAL+1 |
| GETENV^%ZOSV | 1+10 |
| ORDER^%ZOSV | EVAL+2 |
| ASK^%ZTLOAD2 | 1+3 |
| BADDEV^%ZTLOAD2 | DEVICE+16 |
| OPTION^%ZTLOAD2 | 1+6 |
| REJECT^%ZTLOAD2 | GET+3, 1+3, 1+6 |
| RESTRCT^%ZTLOAD2 | 1+2 |
| SPOOL^%ZTLOAD2 | DEVICE+1 |
| ZTKIL^%ZTLOAD2 | 2+2 |
| $$FMTH^%ZTLOAD7 | 1+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | DEVICE+9 |
| ^%ZOSF("$INC" | RECORD+1 |
| ^%ZTSCH( | SCHED+3* |
| ^%ZTSCH("SCHQ" | SCHED+3 |
| ^%ZTSK - [#14.4] | DEVICE+23*, RECORD+5, RECORD+6, RECORD+7, RECORD+8, RECORD+9*, RECORD+11, RECORD+14, RECORD+15, RECORD+16 , RECORD+18*, RECORD+19*, RECORD+20*, RECORD+21*, SCHED+2*, SCHED+3*, SCHED+4, ZTSAVE+5!, ZTSAVE+6!, ZTSAVE+7! , EVAL+4* |
| ^%ZTSK(0 | DEVICE+23 |
| ^TMP("XM-MESS" | EXIT+1! |
| ^VA(200 - [#200] | GET+6 |
| Name | Line Occurrences |
|---|---|
| $$H3 | SCHED+3 |
| EVAL | ZTSAVE+4 |
| EXIT | GET+3, 1+3, 1+6, DEVICE+20 |
| RECORD | RECORD+16 |
| ZTSAVE | RECORD+23 |
| Name | Field # of Occurrence |
|---|---|
| ^("ZTDTH" | ZTSAVE+6! |
| ^("ZTSAVE" | ZTSAVE+6! |
| ^(0 | DEVICE+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | H3~, H3+1, H0~, H0+1 |
| %H | ZTSAVE+2! |
| %T | ZTSAVE+2! |
| %X | GET+1~, EVAL+5*, EVAL+6* |
| %Y | GET+1~, EVAL+5*, EVAL+6* |
| %ZTLOAD | GET+2! |
| %ZTLOAD("ERROR" | DEVICE+20 |
| >> DILOCKTM | RECORD+7, RECORD+15, SCHED+3 |
| DUZ | GET+5 |
| IO("DOC" | DEVICE+5 |
| IO("HFSIO" | DEVICE+13 |
| IO("P" | DEVICE+15 |
| IOM | DEVICE+6 |
| ION | DEVICE+1, DEVICE+3 |
| >> IOPAR | DEVICE+14 |
| IOSL | DEVICE+6 |
| IOST | DEVICE+4 |
| >> IOT | DEVICE+1 |
| U | GET+4*, GET+6, 1+2, 1+8, DEVICE+23, RECORD+18, RECORD+20, SCHED+1 |
| X | GET+1~, EVAL+1*, EVAL+2* |
| X1 | GET+1~, EXIT+2! |
| >> XQY | 1+8 |
| >> XQY0 | 1+2, 1+8 |
| Y | GET+1~, 1+10, EVAL+2* |
| ZT | GET+1~, SCHED+3*, EXIT+2! |
| ZT1 | EXIT+2!, ZTSAVE+4*, EVAL+1, EVAL+2, EVAL+3, EVAL+4, EVAL+5, EVAL+6 |
| ZTA1 | GET+1~, 1+5*, 1+6, 1+7, RECORD+18, ZTSAVE+2! |
| ZTA4 | GET+1~, 1+5*, 1+8*, RECORD+18, ZTSAVE+2! |
| ZTA5 | GET+1~, 1+5*, 1+8*, RECORD+18, ZTSAVE+2! |
| ZTC1 | GET+1~, GET+5*, GET+6, RECORD+18, ZTSAVE+2! |
| ZTC2 | GET+1~, GET+5*, GET+6*, RECORD+18, ZTSAVE+2! |
| ZTC34P | GET+1~, 1+10*, RECORD+18, ZTSAVE+2! |
| ZTCPU | 2+3*, RECORD+18, ZTSAVE+2! |
| ZTDESC | 2*, RECORD+19, ZTSAVE+2! |
| ZTDTH | 1*, 1+1*, 1+3, RECORD+18, SCHED+1, SCHED+3, SCHED+4, EXIT+2! |
| ZTGOT | GET+1~, RECORD+2*, RECORD+6, RECORD+9*, RECORD+15*, RECORD+16 |
| ZTINC | GET+1~, RECORD+1*, RECORD+3, RECORD+13 |
| ZTIO | DEVICE+1, DEVICE+3*, DEVICE+4*, DEVICE+5*, DEVICE+6*, DEVICE+9*, DEVICE+11, DEVICE+15*, DEVICE+16, DEVICE+17 , RECORD+20, EXIT+1, EXIT+2!, ZTSAVE+1~, ZTSAVE+2! |
| ZTIO("H" | DEVICE+13*, RECORD+20 |
| ZTIO("P" | DEVICE+14*, RECORD+21 |
| ZTIO(1 | DEVICE+10*, RECORD+20 |
| ZTKIL | 2+2, SCHED+1, EXIT+2! |
| ZTNOGO | ZTSAVE+2! |
| ZTPRI | RECORD+18, ZTSAVE+2! |
| ZTRTN | GET+3, GET+4*, 1+6, RECORD+18, ZTSAVE+2! |
| ZTSAVE | EXIT+2! |
| ZTSAVE( | ZTSAVE+4, EVAL+3, EVAL+4 |
| ZTSAVE("DUZ(" | ZTSAVE+3* |
| ZTSAVE("XQY" | 1+8* |
| ZTSAVE("XQY0" | 1+8* |
| ZTSAVE("^TMP(""XM-MESS"",$J," | DEVICE+17* |
| >> ZTSK | RECORD+5*, RECORD+6*, RECORD+7, RECORD+8, RECORD+9, RECORD+14*, RECORD+15, RECORD+16, RECORD+18, RECORD+19 , RECORD+20, RECORD+21, SCHED+2, SCHED+3, SCHED+4, ZTSAVE+5, ZTSAVE+6, ZTSAVE+7, EVAL+4 |
| >> ZTSK("D" | SCHED+4* |
| ZTSTAT | SCHED+1*, SCHED+2, EXIT+2! |
| ZTSYNC | RECORD+20, ZTSAVE+2! |
| ZTUCI | 2+3*, RECORD+18, ZTSAVE+2! |