©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
XBDBQUE ; IHS/ADC/GTH - DOUBLE QUEUING SHELL HANDLER ; 17 Jul 2002 7:47 PM [ 04/28/2003 12:06 PM ]
Source file <XBDBQUE.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | ^%ZIS ^%ZISC $$VERSION^%ZOSV (,KILL)^%ZTLOAD |
| IHS VA Utilities | 1 | $$VALI^XBDIQ1 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END1 | ;EP clean out xb as passed in
|
|
| END0 | ;EP - from compute cycle when XB("RP") EXISTS
|
|
| COMPUTE | ;>do computing | routine
|
|
| ZIS | ;
|
|
| ZISQ | ;
|
|
| NORC | ;used if no XBRC identified
|
|
| SETIOPN | ;EP Set IOP parameters with (N)o open
|
|
| QUE1 | ;
|
|
| START | ;
|
|
| ENDC | ;EP - end computing cycle
|
|
| QUE2 | ;
|
|
| DEQUE2 | ;EP - 2nd Deque | printing
|
|
| END | ;>End | cleanup
|
|
| DEQUE1 | ;EP - > 1st deque From TaskMan.
|
|
| SUB | ;>Subroutines
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | QUE2+9 |
| Name | Line Occurrences |
|---|---|
| @( | COMPUTE+2, QUE2+9, DEQUE2+8, END+2 |
| END | DEQUE2+4, ENDC+1 |
| END0 | ENDC+2 |
| END1 | ZIS+5, ZISQ+17, QUE1+1 |
| ENDC | QUE2+2 |
| SETIOPN | QUE2+7 |
| ZISQ | ZIS+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | ZIS+3*, SETIOPN+5*, SETIOPN+27* |
| >> %ZIS("HFSMODE" | START+24*, DEQUE2+6*, SETIOPN+5*, SETIOPN+24* |
| >> %ZIS("HFSNAME" | START+24*, DEQUE2+6*, SETIOPN+5*, SETIOPN+24* |
| >> %ZIS("IOPAR" | START+20*, SETIOPN+5*, SETIOPN+10* |
| A | SETIOPN+14~, SETIOPN+15*, SETIOPN+16* |
| >> C | SETIOPN+16* |
| DIR | ZISQ+5!, ZISQ+8!, ZISQ+17! |
| DIR("A" | ZISQ+6*, ZISQ+17* |
| DIR("B" | ZISQ+6* |
| DIR(0 | ZISQ+6*, ZISQ+17* |
| I | SETIOPN+14~, SETIOPN+15*, SETIOPN+16*, SETIOPN+19, SETIOPN+21, SETIOPN+23 |
| IO | START+3, ZIS+6, ZISQ+3, QUE1+2, DEQUE2+7 |
| IO("Q" | ZIS+1!, ZISQ+1, ZISQ+10*, QUE1+1! |
| IO(0 | ZISQ+3, QUE1+2 |
| >> IOCPU | ZIS+6 |
| IOM | START+6, ZIS+6 |
| ION | START+6, ZIS+6, DEQUE2+6 |
| IOP | START+3*, START+18*, QUE1+1*, DEQUE2+6*, END1+2*, END1+4!, SETIOPN+2*, SETIOPN+5* |
| IOPAR | START+7, ZIS+6, END1+4! |
| >> IOS | ZISQ+4 |
| IOSL | START+6, ZIS+6 |
| IOST | START+6, ZIS+6 |
| IOUPAR | END1+4! |
| >> POP | ZIS+5 |
| >> X | ZISQ+9 |
| XB | START+1~, END1+5! |
| XB("CPU" | ZIS+6*, QUE1+5 |
| XB("IO" | ZIS+6*, QUE2+4, DEQUE2+6, SETIOPN+5 |
| XB("ION" | ZIS+6*, SETIOPN+4 |
| XB("IOP" | START+17*, ZIS+6*, SETIOPN+1, SETIOPN+2, SETIOPN+5* |
| XB("IOP1" | START+6*, QUE1+1, END1+2 |
| XB("IOPAR" | START+7*, START+20, START+21, START+22, START+23, ZIS+6*, SETIOPN+10, SETIOPN+11, SETIOPN+16, SETIOPN+19 , SETIOPN+21, SETIOPN+23 |
| XB("NS" | START+11*, START+12*, START+15*, QUE1+7, QUE2+6 |
| XB("RC" | START+9*, COMPUTE+2, QUE2+4 |
| XB("RP" | START+9*, QUE2+3, QUE2+4, DEQUE2+4, DEQUE2+8, ENDC+1 |
| XB("RX" | START+9*, END+2 |
| XB("ZTSK" | ZISQ+13!, ZISQ+14*, QUE1+1, DEQUE1+3!, DEQUE1+4*, DEQUE2+1!, DEQUE2+2*, END0+1 |
| XBDBQUE | QUE2+10*, END1+5! |
| XBDTH | START+4*, QUE1+4, QUE1+8!, DEQUE1+2!, END1+5! |
| XBERR | QUE2+9*, END1+5! |
| XBFQ | START+4*, ZISQ+1, ZISQ+2*, QUE1+1, QUE1+8!, DEQUE1+2!, END1+5! |
| >> XBHFSMD | START+23*, START+24, SETIOPN+23*, SETIOPN+24 |
| >> XBHFSNM | START+22*, START+24, SETIOPN+19*, SETIOPN+21*, SETIOPN+24 |
| XBI | START+11*, QUE1+8!, END1+5! |
| XBIOP | START+17, START+18, QUE1+8!, DEQUE1+2!, END1+5! |
| XBNS | START+11, QUE1+8!, DEQUE1+2!, END1+5! |
| XBNS( | START+15 |
| XBNSX | START+11*, START+14*, START+15*, QUE1+6*, QUE1+7*, QUE1+8!, QUE2+5*, QUE2+6*, END1+5! |
| XBPAR | QUE1+8!, DEQUE1+2!, END1+5! |
| XBQUIT | ZISQ+9*, ZISQ+17, END1+5! |
| XBRC | START+5, START+8*, START+9, ZIS+2, QUE1+3, QUE1+8!, DEQUE1+2!, END1+5! |
| XBRP | START+5, START+9, ZIS+2, ZISQ+3, QUE1+2, QUE1+3, QUE1+8!, DEQUE1+2!, END1+5! |
| XBRX | START+9, QUE1+8!, DEQUE1+2!, END1+5! |
| XBTZTSK | END0+1*! |
| >> Y | ZISQ+10 |
| >> ZTCPU | QUE1+5* |
| >> ZTDESC | QUE1+3*, QUE2+4* |
| >> ZTDTH | QUE1+4*, QUE2+4* |
| ZTIO | QUE1+3*, QUE1+9*, QUE2+4*, QUE2+7! |
| >> ZTQUEUED | START+4, ZISQ+2, ZISQ+14, QUE1+2, DEQUE1+4, QUE2+2, DEQUE2+2, DEQUE2+6 |
| >> ZTRTN | QUE1+3*, QUE2+4* |
| >> ZTSAVE( | QUE1+7*, QUE2+6* |
| ZTSK | ZISQ+14, ZISQ+15!, QUE1+1, DEQUE1+4, QUE2+9, DEQUE2+2, END0+1*! |