Routine: XU8P585

Information

XU8P585 ;ISF/CJM- Patch XU-585 Post init ;09/11/2012

Source file <XU8P585.m>

Package	Total	Call Graph
Kernel	9	$$CHKNM^%ZISF (CLOSE,OPEN)^%ZISH ($$OS,$$PRI)^%ZOSV ($$DT,$$FMADD,$$NOW)^XLFDT $$REPLACE^XLFSTR BMES^XPDUTL $$PROD^XUPROD UPD^ZISFM PATCH^ZTMGRSET
Health Level Seven	1	($$ADD,$$UPD)^HLOASUB1

Name	Comments	DBIA/ICR reference
CNVRT	;convert HFS type devices that call NVSPRTU to PQ type devices
LFDELETE(FILE)	;
FEXIST(FILE)	;
CHECKDIR()	;tests if the print_queues directory has been created properly
UNDO	;undo the changes made by CNVRT conversion routine
VFEXIST(FILE)	;
DIR()	;get directory for printer queues, a subdirectory of host file directory
ENVIR	;Environment check for XU8.0585
LFEXIST(FILE)	;
POST	;
VFDELETE(FILE)	;
REPLACE(STRING,SUB1,SUB2)	;
FDELETE(FILE)	;

Name	Field # of Occurrence
$$CHKNM^%ZISF	DIR+3
CLOSE^%ZISH	CHECKDIR+16
OPEN^%ZISH	CHECKDIR+14
$$OS^%ZOSV	POST+3, CHECKDIR+5, DIR+4, FEXIST+3, FDELETE+2
$$PRI^%ZOSV	DIR+2
$$ADD^HLOASUB1	POST+17
$$UPD^HLOASUB1	POST+15
$$DT^XLFDT	CNVRT+2
$$FMADD^XLFDT	POST+12, CNVRT+7
$$NOW^XLFDT	POST+12
$$REPLACE^XLFSTR	REPLACE+4
BMES^XPDUTL	POST+5, POST+8, POST+15, POST+17
$$PROD^XUPROD	CHECKDIR+4
UPD^ZISFM	CNVRT+17, UNDO+6
PATCH^ZTMGRSET	POST+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	CNVRT+8, CNVRT+9, CNVRT+11
^%ZIS(2 - [#3.2]	CNVRT+13
^DIC(19 - [#19]	POST+7
^DIC(19.2 - [#19.2]	POST+10
^XTMP("%ZIS HFS TO PQ"	CNVRT+7, CNVRT+16, UNDO+3
^XTV(8989.3 - [#8989.3]	DIR+3

Name	Field # of Occurrence
CMD	VFEXIST+2~, VFEXIST+3, VFEXIST+4, VFEXIST+5, LFEXIST+2~, LFEXIST+3, LFEXIST+4, VFDELETE+2~, VFDELETE+4, VFDELETE+5 , LFDELETE+2~, LFDELETE+3*, LFDELETE+4
CODE	DIR+1~, DIR+2*, DIR+3
DATA	POST+6~, POST+15, POST+17, CNVRT+14~, CNVRT+17, UNDO+4~, UNDO+6
DATA(	POST+11*
DATA(2	POST+12, CNVRT+15, UNDO+5*
DATA(6	POST+13*
DEVICE	CNVRT+1~, CNVRT+3, CNVRT+8, CNVRT+9, CNVRT+11, CNVRT+16, CNVRT+17, UNDO+1~, UNDO+2, UNDO+3 , UNDO+6
DIR	CHECKDIR+8~, CHECKDIR+9, CHECKDIR+13, CHECKDIR+14, CHECKDIR+17, DIR+1~, DIR+3, DIR+5, DIR+7, DIR+8
ERROR	POST+1~, POST+5
FILE	CHECKDIR+8~, CHECKDIR+10, CHECKDIR+13, CHECKDIR+14, CHECKDIR+17, FEXIST~, FEXIST+4, FEXIST+5, VFEXIST~, VFEXIST+3 , LFEXIST~, LFEXIST+3, FDELETE~, FDELETE+3, FDELETE+4, VFDELETE~, VFDELETE+3, VFDELETE+4, LFDELETE~, LFDELETE+3
HANDLE	CHECKDIR+8~, CHECKDIR+11*, CHECKDIR+14, CHECKDIR+16
IEN	POST+6~, POST+10*, POST+14, POST+15
IO	CHECKDIR+8~
NOW	CNVRT+1~, CNVRT+2*, CNVRT+7
OPTION	POST+6~, POST+7*, POST+8, POST+9, POST+10, POST+11
OS	POST+1~, POST+3, POST+4, CHECKDIR+3~, CHECKDIR+5, CHECKDIR+6, FEXIST+3~, FEXIST+4, FEXIST+5, FDELETE+2~ , FDELETE+3, FDELETE+4
POP	CHECKDIR+8~, CHECKDIR+15
REPLACE	REPLACE+2~, REPLACE+4
REPLACE(	REPLACE+3*
RET	VFEXIST+2~, VFEXIST+6*, VFEXIST+8
STRING	REPLACE~, REPLACE+4
SUB1	REPLACE~, REPLACE+3
SUB2	REPLACE~, REPLACE+3
SUBTYPE	CNVRT+10~, CNVRT+11*, CNVRT+12, CNVRT+13
>> XPDQUIT	ENVIR+2*