Routine: %ZISUTL

Information

%ZISUTL ;ISD/HGW - Device Handler Utility routine ;05/22/12 10:22

Source file <ZISUTL.m>

Package	Total	Call Graph
Kernel	7	^%ZIS $$UP^%ZIS1 1^%ZIS5 ^%ZISC ($$FINDEV,$$LNPRTIEN,$$LNPRTNAM,GETDEV)^%ZISUTL $$VERSION^%ZOSV $$CRC32^XLFCRC

Package	Total	Caller Graph
Kernel	16	%ZIS %ZIS1 %ZIS2 %ZISUTL %ZTLOAD1 XLFNSLK XUSBSE2 XUSC1 ZISHGTM ZISHGUX ZISHMNT ZISHMSM ZISHMSU ZISHONT ZISHPW ZISHVXD
RPC Broker	9	XWB2HL7 XWBCAGNT XWBCSAV XWBM2MC XWBRL XWBRPC XWBTCPC XWBTCPM XWBVLL
Lab Service	3	LRBARCFA LRLABLIO LRLABXT
Outpatient Pharmacy	3	PSOQ0595 PSOQRART PSOQUAP2
CIA Utilities	1	CIAUHFS
Consult Request Tracking	1	GMRCART
GUI Generic Tools	1	BGUTCPH
Health Level Seven	1	HLCSAC
IHS Changes To Lab	1	BLRAG05A
VistALink	1	XOBVSKT

Name	Comments	DBIA/ICR reference
USE(X1)	;Restore IO* variables pertaining to the device.	ICR #2119 Status: Active Usage: Supported
SYMBOL(MODE,ROOT)	;0=Save, 1=Restore, K=Kill IO variables
FIND(IOP)	;e.f. Get the IEN of a device
LINEPORT()	;Return device name for line port.
ENDOFILE()	;p599 Set Cache end-of-file to work like DSM
RMALLDEV()	;Remove saved IO variables for all devices saved in table.
NEXTDEV(NM)	;Return next available device.
RMDEV(X)	;Remove saved IO variables.	ICR #2119 Status: Active Usage: Supported
FINDEV(NM)	;Find Device name and return IEN.
GETDEV(X)	;Return IO variables ; ZEXCEPT: POP
NOQ(IOP)	;e.f. Return queueing status
LNPRTADR(X)	;Returns Line/Port name of a fixed device.
OPEN(HNDL,IOP,%ZIS)	;Open extrinsic function	ICR #2119 Status: Active Usage: Supported
UNIQUE(ZISNA)	;Build a unique number to add to a device name
SAVDEV(NM)	;Save IO variables	ICR #2119 Status: Active Usage: Supported
LNPRTSUB()	;Return line port subtype pointer.
LNPRTNAM()	;Return Line port name
LNPRTIEN(X)	;Return internal entry number of Line/port
CLOSE(X1)	;Close extrinsic function	ICR #2119 Status: Active Usage: Supported

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	LNPRTADR+3, NOQ+3
^%ZIS(3.23 - [#3.23]	LINEPORT+3, LNPRTSUB+3, LNPRTIEN+2, LNPRTADR+4, LNPRTADR+5
^%ZOSF("OS"	LNPRTNAM+2
^%ZOSF("VOL"	FIND+2
^TMP("XUDEVICE"	GETDEV+2, GETDEV+6, SAVDEV+5, RMDEV+4!, RMALLDEV+1!, FINDEV+1, NEXTDEV+2, NEXTDEV+3*
^TMP("ZISUTL"	UNIQUE+3

Name	Field # of Occurrence
^(0	LNPRTADR+5

Name	Field # of Occurrence
%	GETDEV+4~, SAVDEV+2~, SYMBOL+1~, SYMBOL+5, SYMBOL+6, SYMBOL+7, SYMBOL+8, OPEN+5~, CLOSE+2~, USE+3~ , LINEPORT+1~, LINEPORT+2, LINEPORT+3, LNPRTSUB+1~, LNPRTSUB+2, LNPRTSUB+3, LNPRTNAM+1~, LNPRTNAM+2, LNPRTNAM+3, LNPRTNAM+5 , LNPRTADR+1~, LNPRTADR+3, LNPRTADR+4, LNPRTADR+5, UNIQUE+2~, UNIQUE+4, UNIQUE+5, UNIQUE+6, UNIQUE+7, UNIQUE+8 , ENDOFILE+2~, ENDOFILE+5
%1	UNIQUE+2~, UNIQUE+6*, UNIQUE+7
%2	UNIQUE+2~, UNIQUE+3*, UNIQUE+4
%X	NOQ+2~*, NOQ+3
%XX	FIND+1~, FIND+2*
%Y	NOQ+2~, NOQ+3*, NOQ+4
%YY	FIND+1~, FIND+3
%ZIS	OPEN~, FIND+1~
%ZISV	FIND+1~, FIND+2*
HNDL	OPEN~, OPEN+7
IO	SAVDEV+3, SYMBOL+3, SYMBOL+4*, USE+7
IO("CLOSE"	USE+8!
IO("S"	GETDEV+4!
IO(0	USE+7
IO(1	USE+7
IOP	OPEN~, OPEN+6!, FIND~, FIND+2, NOQ~, NOQ+2
>> IOT	USE+7
MODE	SYMBOL~, SYMBOL+3, SYMBOL+4, SYMBOL+6, SYMBOL+7, SYMBOL+8
NM	SAVDEV~, SAVDEV+4, SAVDEV+6, FINDEV~, FINDEV+1, NEXTDEV~, NEXTDEV+3
>> POP	GETDEV+2*, OPEN+7
R	SAVDEV+2~, SAVDEV+5*, SAVDEV+6, SAVDEV+7
ROOT	SYMBOL~, SYMBOL+3, SYMBOL+4, SYMBOL+6, SYMBOL+7
U	NOQ+3
X	GETDEV~, GETDEV+2, GETDEV+6, RMDEV~, RMDEV+2, RMDEV+4, LNPRTIEN~, LNPRTIEN+1, LNPRTIEN+2, LNPRTADR~ , LNPRTADR+3
X1	CLOSE~, CLOSE+3, CLOSE+6, USE~, USE+4
Y	SAVDEV+2~, SAVDEV+4, SAVDEV+5, RMDEV+1~, RMDEV+2, RMDEV+3, RMDEV+4, NEXTDEV+1~, NEXTDEV+2, NEXTDEV+3 , NEXTDEV+4, CLOSE+2~, CLOSE+3, CLOSE+4, CLOSE+5, USE+3~, USE+4, USE+5, USE+6, LNPRTNAM+1~ , LNPRTNAM+2, LNPRTNAM+4, LNPRTNAM+6, LNPRTADR+1~, LNPRTADR+2, LNPRTADR+5*, LNPRTADR+6
ZISNA	UNIQUE~, UNIQUE+5, UNIQUE+6, UNIQUE+7