©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
INHUT8 ;JPD, GD ; 13 Feb 97 11:34; ZIS AND DEVICE HELP FOR GIS
Source file <INHUT8.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | ^%ZIS $$DISPDEV^%ZIS2 ^%ZISC ^%ZTLOAD |
| IHS Generic Interface System | 1 | MSG^INTSUT2 |
| Uncategorized | 1 | (,$$MESS1)^UTSRD |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 2 | INTSTRT INTSTRT1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZIS2(INDEV,INOUT,DWPNT) | ;Lookup for device
|
|
| HDASK() | ;-- Writes the Question prompt to ask for Output Device
; INCHOICE -- User choice for device type ; INQUIT -- Var set if user '^', or timed out ; 0 = normal exit ; 1,2,3 user responded by '^', or was too slow in choice |
|
| HELP | ; This is help for the 'Device: ' prompt field.
; Local variables ; INDEVTYP -- Used for determining whether user wants to see a list ; all devices or just printers. Returned from HDASK^ ; 0 = none, 1 - for printers only, 2 - for all devices |
|
| OPENIT | ; Internal routine to open device
|
|
| ZIS(INRTN,INVARS,INLIM,HDR,INIOM,INIOP) | ;Main entry point
; Input: ; INRTN - routine/subroutine that does report output ; INVARS-=Names of variables to pass ZTRTN. Separate names ; with "^". Example: "INTS^INDA(^INTYPE". Or can be array by ; ref. like the ZTSAVE taskman array. ; INLIM - 0 - Allow Queing but not forced 1 - don't allow queing ; 2 - Force queing ; INIOM - Width - Default=80 ; INIOP - Force Device selection - See Birp for IOP format |
|
| DISPDEV(XPARNAM,XX,XY,XD,XW,INPOS) | ;old entry point for device help
|
|
| WRITE | ;output a line
|
|
| HEADER | ;output header in local array HDR(x)
|
|
| PRNTLST(INDTYPE) | ; Output list of printer devices
; Input: ; INDTYPE --- Filter var used to determine list type. ; Local variables: ; INDONE -- Flag to test when done looping ; INNOPRT -- Flag used to ensure non-printer devices are not ; shown in list of devices. ; INPRDEV -- Used to get data piece to determine if a printer device. ; INDEVNAM -- Name of device as listed in %ZIS cross-ref, 'B'. ; INDEVNUM -- The number of the device as listed in ^%ZIS(1,DEVNUM. ; INYLINE -- Keeps track of Y-cordinate. ; INNODE -- Temp variable to hold node - less disk hits ; INRESULT -- Var to check if user wants to ^ out. |
|
| CLOSE | ;exit module
|
|
| ZTSAVE |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | PRNTLST+17, PRNTLST+19, PRNTLST+22, PRNTLST+25, PRNTLST+29, PRNTLST+33 |
| ^%ZIS(2 - [#3.2] | PRNTLST+26, PRNTLST+27 |
| Name | Line Occurrences |
|---|---|
| $$HDASK | HELP+7 |
| @( | ZIS+32 |
| CLOSE | ZIS+21, ZIS+29, ZIS+31, ZIS+33 |
| HEADER | WRITE+1 |
| OPENIT | ZIS+31 |
| PRNTLST | HELP+11 |
| ZTSAVE | ZIS+27 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PRNTLST+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ZIS+16*, ZIS+17*, ZIS+18, ZTSAVE+2* |
| %ZIS | ZIS+11~, ZIS+20*, ZIS+21*, CLOSE+2*, OPENIT+1*, ZIS2+7~, ZIS2+8!* |
| %ZIS("B" | ZIS+20* |
| A | ZIS+11~, HEADER+1~, HEADER+2*, HEADER+4* |
| COUNT | ZIS+11~ |
| DATA | ZIS+11~, WRITE+3 |
| DIC | ZIS+12~ |
| >> DIJC("IOSL" | PRNTLST+38 |
| DTIME | HEADER+2 |
| DTOUT | ZIS+21! |
| DWPNT | ZIS2~, ZIS2+20* |
| EXIT | ZIS+11~, HEADER+2*, WRITE+2 |
| HDR | ZIS~, ZIS+11~ |
| HDR( | HEADER+4 |
| I | ZTSAVE~, ZTSAVE+2*, ZTSAVE+3* |
| INCHOICE | HDASK+6~, HDASK+9*, HDASK+13 |
| INDEV | ZIS2~, ZIS2+9*, ZIS2+10, ZIS2+12*, ZIS2+13, ZIS2+14, ZIS2+16 |
| INDEVNAM | PRNTLST+14~, PRNTLST+15*, PRNTLST+17*, PRNTLST+18, PRNTLST+19 |
| INDEVNUM | PRNTLST+14~, PRNTLST+19*, PRNTLST+22, PRNTLST+25, PRNTLST+29, PRNTLST+33 |
| INDEVTYP | HELP+6~, HELP+7*, HELP+8, HELP+9, HELP+11 |
| INDONE | PRNTLST+14~, PRNTLST+15*, PRNTLST+16, PRNTLST+18*, PRNTLST+41* |
| INDTYPE | PRNTLST~, PRNTLST+24 |
| INIOM | ZIS~, ZIS+13*, ZIS+14*, ZIS+18, ZIS+23 |
| INIOP | ZIS~, ZIS+15, ZIS+16 |
| INLIM | ZIS~, ZIS+13*, ZIS+26, ZIS+30 |
| INLIST | ZIS2+7~ |
| INNODE | PRNTLST+14~, PRNTLST+29*, PRNTLST+31, PRNTLST+35 |
| INNOPRT | PRNTLST+14~, PRNTLST+23*, PRNTLST+24, PRNTLST+26*, PRNTLST+27* |
| INOUT | ZIS2~, ZIS2+9*, ZIS2+12*, ZIS2+15*, ZIS2+16*, ZIS2+17, ZIS2+19* |
| INPOS | DISPDEV~, DISPDEV+1 |
| INPRDEV | PRNTLST+14~, PRNTLST+25*, PRNTLST+26, PRNTLST+27 |
| INQUIT | HDASK+6~, HDASK+11 |
| INRESULT | PRNTLST+14~, PRNTLST+39*, PRNTLST+41 |
| INRTN | ZIS~, ZIS+13 |
| INVARS | ZIS~, ZTSAVE+1*, ZTSAVE+2 |
| INVARS( | ZTSAVE+3 |
| INYLINE | PRNTLST+14~, PRNTLST+15*, PRNTLST+37*, PRNTLST+38, PRNTLST+42* |
| IO | ZIS+26, HEADER+2, HEADER+4, CLOSE+2, OPENIT+3 |
| IO("Q" | ZIS+26, ZIS+30, HEADER+2, CLOSE+2! |
| IO(0 | ZIS+26, HEADER+2 |
| IOF | HEADER+3 |
| IOM | ZIS+23*, ZIS+24, ZIS2+15 |
| ION | ZIS+24, ZIS2+7~, ZIS2+15 |
| IOP | ZIS+11~, ZIS+16*, ZIS+17, ZIS+18*, ZIS+21*, ZIS+24*, ZIS+26, CLOSE+2*!, OPENIT+2*, ZIS2+7~ , ZIS2+14* |
| IOSL | ZIS+24, WRITE+1, ZIS2+15 |
| IOST | ZIS+24, HEADER+2, ZIS2+15 |
| LOOP | ZIS+11~ |
| PAGE | ZIS+11~, HEADER+2, HEADER+3*, WRITE+1 |
| POP | ZIS+21, ZIS+31, CLOSE+2!, OPENIT+1*, OPENIT+2, ZIS2+7~, ZIS2+15 |
| U | HEADER+2, ZTSAVE+2 |
| X | ZIS+11~, HDASK+9 |
| XD | DISPDEV~, DISPDEV+1 |
| XPARNAM | DISPDEV~, DISPDEV+1 |
| XW | DISPDEV~, DISPDEV+1 |
| XX | DISPDEV~, DISPDEV+1 |
| XY | DISPDEV~, DISPDEV+1 |
| Y | ZIS+12~ |
| ZTDESC | ZIS+11~, ZIS+24!, ZIS+26* |
| ZTIO | ZIS+11~, ZIS+24!, ZIS+26* |
| ZTRTN | ZIS+11~, ZIS+13*, ZIS+32 |
| ZTSAVE | ZIS+11~, ZTSAVE! |
| ZTSAVE( | ZTSAVE+2*, ZTSAVE+3* |
| ZTSK | ZIS+24! |
| ZTUCI | ZIS+24! |