©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
%ZTLOAD6 ;SEA/RDS-TaskMan: P I: Dequeue ;12/29/94 16:02 [ 04/02/2003 8:29 AM ]
Source file <ZTLOAD6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INPUT | ;check input parameters for error conditions
|
|
| UNSCH | ;search ^%ZTSCH & unschedule task
|
|
| DQ(%ZTIO,ZTDTH,ZTSK) | ;SEARCH--remove task from Device Waiting List
|
|
| QUIT | ;cleanup & quit
|
| Name | Field # of Occurrence |
|---|---|
| DQ^%ZTM4 | DQ+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSCH( | UNSCH+3! |
| ^%ZTSCH("C" | UNSCH+8, UNSCH+9!, UNSCH+10 |
| ^%ZTSCH("IO" | UNSCH+6, UNSCH+7, UNSCH+8, DQ+1 |
| ^%ZTSCH("JOB" | UNSCH+4, UNSCH+5!, UNSCH+6 |
| ^%ZTSCH("LINK" | UNSCH+10, UNSCH+11!, UNSCH+12 |
| ^%ZTSK - [#14.4] | INPUT+4, QUIT+1*, QUIT+2, UNSCH+3* |
| ^VA(200 - [#200] | QUIT+1 |
| Name | Line Occurrences |
|---|---|
| DQ | UNSCH+7 |
| UNSCH | INPUT+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | UNSCH+3, UNSCH+5, UNSCH+7, UNSCH+9, UNSCH+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZTIO | DQ~ |
| DUZ | QUIT+1 |
| U | QUIT+1, UNSCH+3 |
| ZT | QUIT+2! |
| ZT1 | QUIT+2!, UNSCH+2~, UNSCH+3*, UNSCH+5*, UNSCH+7*, UNSCH+9*, UNSCH+11* |
| ZT2 | QUIT+2!, UNSCH+2~, UNSCH+3*, UNSCH+7*, UNSCH+9*, UNSCH+11* |
| ZT3 | QUIT+2!, UNSCH+2~ |
| ZTDTH | DQ~ |
| ZTLOAD | INPUT+2*! |
| ZTSK | INPUT+1*, INPUT+2!*, INPUT+3, INPUT+4, QUIT+1, QUIT+2, UNSCH+3, UNSCH+5, UNSCH+7, UNSCH+9 , UNSCH+11, DQ~ |
| ZTSK(0 | INPUT+3*, QUIT+2* |