©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
%ZTMS7 ;SEA/RDS-TaskMan: Submanager, (GetNext) ;10 Feb 2003 3:17 pm
Source file <ZTMS7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETNEXT | ;PROCESS--search Device Waiting List for next task waiting for %ZTIO
|
|
| G5 | ||
| G3 | ||
| LOG(M) | ;Log a msg
|
|
| TSKSTAT(CODE,MSG) | ; Update task's status
|
|
| DEALOC8 | ;GETNEXT--deallocate device, and set ZTNONEXT
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSCH("IO" | GETNEXT+5, GETNEXT+6, G3, G5, G5+2 |
| ^%ZTSCH("L" | LOG+1, LOG+2* |
| ^%ZTSCH("STOP" | GETNEXT+3 |
| ^%ZTSCH("WAIT" | GETNEXT+4 |
| ^%ZTSK - [#14.4] | G5+1, G5+2, G5+4, G5+5, G5+6, G5+7, G5+9, TSKSTAT+1* |
| Name | Line Occurrences |
|---|---|
| DEALOC8 | GETNEXT+3, GETNEXT+4, GETNEXT+5, GETNEXT+7, G3 |
| G3 | G5 |
| G5 | G5+1, G5+2, G5+4, G5+7 |
| LOG | GETNEXT+7, G5+11 |
| TSKSTAT | G5+5, G5+8 |
| Name | Field # of Occurrence |
|---|---|
| ^($J | LOG+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GETNEXT+6*, GETNEXT+7, GETNEXT+8, LOG+1~*, LOG+2 |
| >> %ZTIME | GETNEXT+2* |
| >> %ZTIO | GETNEXT+5, GETNEXT+6, GETNEXT+7, G3, G5, G5+2, G5+11, DEALOC8+1, DEALOC8+3* |
| CODE | TSKSTAT~, TSKSTAT+1 |
| IO("C" | DEALOC8+2*! |
| IO("T" | DEALOC8+2*! |
| M | LOG~, LOG+2 |
| MSG | TSKSTAT~, TSKSTAT+1 |
| U | G5+7, TSKSTAT+1 |
| >> X | GETNEXT+7* |
| >> ZTDTH | GETNEXT+9*, G3*, G5, G5+2 |
| >> ZTMLOG | GETNEXT+7, G5+11 |
| >> ZTNONEXT | DEALOC8+3* |
| >> ZTPAIR | GETNEXT+3 |
| >> ZTQUEUED | G5+10* |
| >> ZTQUIT | GETNEXT+3* |
| >> ZTSK | G3*, G5*, G5+1, G5+2, G5+4, G5+5, G5+6, G5+7, G5+9, TSKSTAT+1 |