©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
%ZTMS2 ;SEA/RDS-TaskMan: Submanager, Part 4 (Unload, Get Device) ;2/19/08 13:38
Source file <ZTMS2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCHNQ | ;DEVICE--if HFS or SPL or TYPE'=C, reschedule task 10 min in future (try later)
|
|
| IONQ | ;DEVICE--put task on Device Waiting List
|
|
| PROCESS | ;SUBMGR--process task and all others waiting for same device
|
|
| NEWH(%H,%Y) | ;Build a new schedule time, Return $H3 time.
|
|
| SYNCQ(FLAG,ZIO,ZTH,ZTSK) | ;Put task on sync flag waiting list
|
|
| SCHSYNC(FLAG,ZIO) | ;put a waiting task in IO queue
|
|
| LOOKUP | ;PROCESS--unload task, switch ucis, and test entry routine
|
|
| REJECT | ;LOOKUP--entry routine isn't here; reject task
|
|
| DEVICE | ;PROCESS--prepare requested device; if can't, make task wait
|
|
| TSKSTAT(CODE,MSG) | ;Record status
|
|
| POST | ;Post INIT cleanup for patch XU*8*167
|
|
| IOQX | ||
| SCHTM(ZTDTH) | ;Set a new schedule time, See that task is updated
|
|
| SYNCFLG(ACT,FLAG,ZIO,STAT) | ;Allocate/deallocate sync flag
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | DEVICE+28 |
| ^%ZISL(14.8 - [#14.8] | SYNCFLG+2, SYNCFLG+3, SYNCFLG+7, SYNCFLG+8*, SYNCFLG+12!, SYNCFLG+13, SYNCFLG+17*, SYNCFLG+20 |
| ^%ZOSF("TEST" | LOOKUP+11 |
| ^%ZOSF("UCI" | REJECT+1 |
| ^%ZTSCH( | SCHTM+1*, POST+2! |
| ^%ZTSCH("DEVTRY" | DEVICE+12, DEVICE+19!, DEVICE+21! |
| ^%ZTSCH("IO" | SCHSYNC+2, SCHSYNC+3* |
| ^%ZTSCH("SYNC" | SYNCFLG+19, SYNCQ+1, SYNCQ+2*, SYNCQ+3, SCHSYNC+1, SCHSYNC+4!, SCHSYNC+6 |
| ^%ZTSCH("TASK" | PROCESS+1 |
| ^%ZTSK - [#14.4] | LOOKUP+3, LOOKUP+4, IONQ+1, SCHNQ+3*, SCHNQ+5*, SCHTM+1*, TSKSTAT+1* |
| ^XUTL("XQ" | DEVICE+13! |
| Name | Line Occurrences |
|---|---|
| $$NEWH | SCHNQ+1 |
| $$SYNCFLG | PROCESS+5 |
| DEVICE | PROCESS+3 |
| IONQ | DEVICE+24 |
| IOQX | IONQ+1 |
| LOOKUP | PROCESS+2 |
| PROCESS | PROCESS+11 |
| REJECT | LOOKUP+11 |
| SCHNQ | DEVICE+25 |
| SCHTM | SCHNQ+4 |
| SYNCQ | PROCESS+6 |
| TSKSTAT | LOOKUP+2, REJECT+2, IONQ+1, IONQ+2, SCHNQ+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOOKUP+3, LOOKUP+4, DEVICE+12*, DEVICE+19!, SCHSYNC+2* |
| ^(0 | SYNCFLG+8*, SYNCFLG+13* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NEWH+1~ |
| %H | NEWH~, NEWH+2*, NEWH+3 |
| %Y | NEWH~, NEWH+3 |
| %ZIS | DEVICE+2!, DEVICE+8* |
| %ZIS("HFSIO" | DEVICE+9* |
| %ZIS("IOPAR" | DEVICE+9*, DEVICE+10* |
| %ZISLOCK | DEVICE+15*, DEVICE+17! |
| %ZISTO | DEVICE+17*! |
| >> %ZTIME | LOOKUP+1, DEVICE+12 |
| %ZTIO | PROCESS+5, PROCESS+6, LOOKUP+1, REJECT+3, DEVICE+11, DEVICE+18, DEVICE+21*, IONQ+3~* |
| ACT | SYNCFLG~, SYNCFLG+4, SYNCFLG+10, SYNCFLG+15, SYNCFLG+19 |
| CODE | TSKSTAT~, TSKSTAT+1 |
| DA | SYNCFLG+1~, SYNCFLG+3*, SYNCFLG+5, SYNCFLG+11, SYNCFLG+12, SYNCFLG+13, SYNCFLG+16, SYNCFLG+17, SYNCFLG+19 |
| DT | LOOKUP+1 |
| DUZ | LOOKUP+5* |
| DUZ(0 | LOOKUP+5* |
| FLAG | SYNCFLG~, SYNCFLG+3, SYNCFLG+19, SYNCQ~, SYNCQ+2, SCHSYNC~, SCHSYNC+1, SCHSYNC+2, SCHSYNC+4 |
| IO | LOOKUP+1, DEVICE+2!, DEVICE+5*, DEVICE+11*, DEVICE+19, DEVICE+21, DEVICE+26, DEVICE+27, IONQ+3 |
| IO("ERROR" | DEVICE+13!, SCHNQ+5 |
| IO(0 | DEVICE+5*, DEVICE+11*, DEVICE+27* |
| IO(1 | DEVICE+21! |
| IOCPU | DEVICE+2! |
| IOF | DEVICE+5* |
| IOHG | DEVICE+2! |
| IOM | DEVICE+5* |
| ION | DEVICE+5* |
| >> IOP | DEVICE+11* |
| IOPAR | DEVICE+2! |
| IOS | DEVICE+2!, DEVICE+5*, DEVICE+28 |
| IOSL | DEVICE+5* |
| IOST | DEVICE+5* |
| >> IOT | DEVICE+5*, DEVICE+26, SCHSYNC+2 |
| IOUPAR | DEVICE+2! |
| MSG | TSKSTAT~, TSKSTAT+1 |
| >> POP | PROCESS+4, DEVICE+5*, DEVICE+19, DEVICE+21, DEVICE+24, DEVICE+25 |
| STAT | SYNCFLG~, SYNCFLG+17 |
| SYNC | SYNCFLG+1~, SYNCFLG+3*, SYNCFLG+8, SYNCFLG+12 |
| T | POST+1~*, POST+2* |
| U | LOOKUP+1, LOOKUP+5, LOOKUP+6, LOOKUP+7, LOOKUP+10, DEVICE+4, DEVICE+8, DEVICE+9, DEVICE+15, DEVICE+28 , IONQ+4, SCHNQ+3, SCHNQ+5, SCHTM+1, TSKSTAT+1 |
| X | LOOKUP+6*, LOOKUP+7*, LOOKUP+9, LOOKUP+10*, LOOKUP+11, SYNCFLG+1~, SYNCFLG+3*, SYNCFLG+5*, SYNCFLG+7*, SYNCFLG+8 , SYNCFLG+9*, SYNCFLG+10*, SYNCFLG+15*, SYNCFLG+19*, SYNCFLG+21 |
| Y | REJECT+1~, REJECT+2 |
| ZIO | SYNCFLG~, SYNCFLG+3, SYNCFLG+19, SYNCQ~, SYNCQ+2, SCHSYNC~, SCHSYNC+1, SCHSYNC+2, SCHSYNC+3, SCHSYNC+4 |
| >> ZTCPU | LOOKUP+1, LOOKUP+7 |
| ZTDEVN | LOOKUP+1, REJECT+3!, DEVICE+18! |
| ZTDTH | PROCESS+6, LOOKUP+1, SCHTM~, SCHTM+1 |
| ZTH | SCHNQ+1*, SCHNQ+4, SYNCQ~, SYNCQ+2, SCHSYNC+1~, SCHSYNC+2*, SCHSYNC+3 |
| >> ZTIO | DEVICE+4*, DEVICE+5, DEVICE+11, DEVICE+12, DEVICE+19 |
| >> ZTIO(1 | IONQ+4* |
| >> ZTIOS | IONQ+4* |
| >> ZTIOT | DEVICE+4*, DEVICE+9, DEVICE+10, DEVICE+24 |
| >> ZTLKTM | LOOKUP+1 |
| >> ZTNODE | LOOKUP+1 |
| >> ZTNONEXT | PROCESS+9, PROCESS+10 |
| >> ZTPAIR | LOOKUP+1 |
| >> ZTPFLG | LOOKUP+1 |
| >> ZTQUEUED | LOOKUP+1 |
| >> ZTQUIT | PROCESS+10 |
| >> ZTREC | LOOKUP+3*, LOOKUP+5, LOOKUP+10 |
| >> ZTREC02 | LOOKUP+3*, LOOKUP+6, LOOKUP+7 |
| >> ZTREC2 | LOOKUP+4*, LOOKUP+5, DEVICE+4, DEVICE+8, DEVICE+9, DEVICE+15, IONQ+4 |
| >> ZTREC21 | LOOKUP+4*, IONQ+4 |
| >> ZTREC25 | LOOKUP+4*, DEVICE+9, DEVICE+10 |
| >> ZTREJECT | PROCESS+2, LOOKUP+11* |
| >> ZTRTN | LOOKUP+10* |
| ZTSK | PROCESS+1, PROCESS+6, LOOKUP+1, LOOKUP+3, LOOKUP+4, IONQ+1, SCHNQ+3, SCHNQ+5, SCHTM+1, SYNCQ~ , SYNCQ+2, SCHSYNC+1~, SCHSYNC+2*, SCHSYNC+3, SCHSYNC+4, TSKSTAT+1 |
| >> ZTSYNCFL | PROCESS+5, PROCESS+6, LOOKUP+5* |
| >> ZTUCI | LOOKUP+1, LOOKUP+9* |
| >> ZTYPE | PROCESS+9, LOOKUP+1, DEVICE+24 |