Routine: INHSYSUL

Package	Total	Call Graph
Kernel	2	($$YN,ET)^%ZTF $$CDATASC^%ZTFDT
Uncategorized	2	^DWL ENV^UTIL
VA Fileman	2	^DIC IX1^DIK

Package	Total	Caller Graph
IHS Generic Interface System	3	INHPCO INHPOST INHPRE

Entry Points

Name	Comments	DBIA/ICR reference
BACKUP(QN,H,INQF)	;Backup utility ; Backup all GIS Control Globals before install into ^UTILITY. ; This function is not called directly by the GIS TRANSACTION MOVER but ; should be used by installation software prior to calls to EN5^INHSYS.
GLE(FN)	;return global name from file number or "" for error
ERR	; Error trap for tag RESTORE
DIC()	;Returns IEN of FILEMAN lookup or "B" x-ref
RESTORAL(QN,H,INQF)	; Restore entire ^UTILITY to GIS control files
LIST(INCOMP)	; ListMan front end for RESTORALL and RESTORE ; Input: INCOMP - 0 for restoration of site specific data only ; - 1 for restoration of all GIS control files ; - else ERROR ; Output: Returns 1 for success, 0 failure
RESTORE(QN,H,INQF)	; Restore fields from ^UTILITY built by tag BACKUP

External References

Name	Field # of Occurrence
$$YN^%ZTF	LIST+18
ET^%ZTF	ERR+3
$$CDATASC^%ZTFDT	LIST+12
^DIC	DIC+4
IX1^DIK	RESTORE+36
^DWL	LIST+16
ENV^UTIL	LIST+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BACKUP+25
Function Call: WRITE	Prompt: !," Error detected - file #"_$P(ERD,"^",I)_" not saved for "_INQF Line Location: BACKUP+25
Function Call: WRITE	Prompt: !,"Nothing to process." Line Location: LIST+7
Function Call: WRITE	Prompt: !!,"Nothing selected." Line Location: LIST+16
Function Call: WRITE	Prompt: !!,"You are about to restore ",$S(INCOMP:"all data",1:"site specific fields"),!," from the backup identified by: ",INARRAY(I,J),!,"Ok" Line Location: LIST+17
Function Call: WRITE	Prompt: !,"Restoration aborted!" Line Location: LIST+18
Function Call: WRITE	Prompt: !!,"Restoration in progress. Please wait." Line Location: LIST+19
Function Call: WRITE	Prompt: !!,"Restore of ",$S(INCOMP:"all data",1:"site specific fields")," unsuccessful!!" Line Location: LIST+21
Function Call: WRITE	Prompt: *7,!,"Subscript parameters are invalid - aborting restore." Line Location: RESTORAL+11
Function Call: WRITE	Prompt: *7,!,"Backup global not found - aborting restore." Line Location: RESTORAL+12
Function Call: WRITE	Prompt: ! Line Location: RESTORAL+17
Function Call: WRITE	Prompt: !," Error detected - file #"_$P(ERD,"^",FN)_" not restored for "_INQF Line Location: RESTORAL+17
Function Call: WRITE	Prompt: *7,!,"Subscript parameters are invalid - aborting restore." Line Location: RESTORE+13
Function Call: WRITE	Prompt: *7,!,"Backup global not found - aborting restore." Line Location: RESTORE+14
Function Call: WRITE	Prompt: !,"Entry ",IEN,"=",X," for file #",FN," not found.",!,"This entry will not be restored!!" Line Location: RESTORE+22
Function Call: WRITE	Prompt: !,"Entry # ",IEN,"for file #",FN,"has changed to ",+Y,! Line Location: RESTORE+23
Function Call: WRITE	Prompt: !,"A MUMPS error has occurred during the restoration of",!," site specific GIS fields!",! Line Location: ERR+1
Function Call: WRITE	Prompt: "Please validate that the active GIS Interfaces are configured correctly.",! Line Location: ERR+2
Routine Call	DIC Line Location: DIC+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	RESTORE+10
^DD(	RESTORE+25
^DIC - [#1]	GLE+2, RESTORE+21
^UTILITY(	RESTORAL+12, RESTORAL+13, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27, RESTORE+33, RESTORE+34
^UTILITY("INSAVE"	BACKUP+20!, BACKUP+23*, LIST+7, LIST+11, RESTORAL+15

Label References

Name	Line Occurrences
$$DIC	RESTORE+22
$$GLE	BACKUP+22, RESTORAL+14
$$RESTORAL	LIST+21
$$RESTORE	LIST+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	BACKUP+13~, BACKUP+22, BACKUP+25, RESTORAL+8~, RESTORAL+14, RESTORAL+17, RESTORE+8~, RESTORE+12*
C1	LIST+8~, LIST+11, LIST+12
C2	LIST+8~, LIST+11*, LIST+12
DA	RESTORE+8~, RESTORE+36*
DIC	DIC+2, DIC+3, RESTORE+8~, RESTORE+21*, RESTORE+28, RESTORE+36
DIC(0	RESTORE+21*
DIK	RESTORE+8~, RESTORE+36*
DWL	LIST+8~, LIST+14*
DWLB	LIST+8~, LIST+14*
>> DWLMK	LIST+16
>> DWLMK(	LIST+17
>> DWLMK(""	LIST+17
DWLR	LIST+8~
DWLRF	LIST+8~, LIST+14*
ER	BACKUP+13~, BACKUP+22, BACKUP+24, RESTORAL+8, RESTORAL+14, RESTORAL+16, RESTORE+8~, RESTORE+12, RESTORE+22, RESTORE+37
ERD	BACKUP+13~, BACKUP+22, BACKUP+25, RESTORAL+8~, RESTORAL+14*, RESTORAL+17
FLD	RESTORE+8~, RESTORE+24*, RESTORE+25
FLDS	RESTORE+8~, RESTORE+15!
FLDS(	RESTORE+19, RESTORE+24
FLDS(4000	RESTORE+16*
FLDS(4004	RESTORE+17*
FLDS(4005	RESTORE+18*
FN	GLE~, GLE+2, RESTORAL+8~, RESTORAL+13, RESTORAL+14, RESTORAL+15, RESTORAL+17, RESTORE+8~, RESTORE+19*, RESTORE+20 , RESTORE+21, RESTORE+22, RESTORE+23, RESTORE+24, RESTORE+25, RESTORE+27, RESTORE+33, RESTORE+34
GL	BACKUP+13~, BACKUP+18, BACKUP+19, BACKUP+22, BACKUP+23, GLE+1~, GLE+2, GLE+3, GLE+4, RESTORAL+8~ , RESTORAL+14, RESTORAL+15, RESTORE+8~, RESTORE+25, RESTORE+26*, RESTORE+27, RESTORE+28, RESTORE+33, RESTORE+34
GLBL	RESTORE+8~, RESTORE+28, RESTORE+30, RESTORE+33, RESTORE+34
H	BACKUP~, BACKUP+13, BACKUP+14, BACKUP+17, BACKUP+18, BACKUP+19, BACKUP+20, BACKUP+23, RESTORAL~, RESTORAL+10 , RESTORAL+11, RESTORAL+12, RESTORAL+13, RESTORAL+15, RESTORE~, RESTORE+12*, RESTORE+13, RESTORE+14, RESTORE+20, RESTORE+21 , RESTORE+27, RESTORE+33, RESTORE+34
I	BACKUP+13~, BACKUP+18, BACKUP+21, BACKUP+22, BACKUP+23, BACKUP+25, LIST+8~, LIST+11, LIST+12, LIST+17 , LIST+20, LIST+21, RESTORE+8~, RESTORE+17, RESTORE+18*
IEN	RESTORE+8~, RESTORE+20*, RESTORE+21, RESTORE+22, RESTORE+23, RESTORE+27, RESTORE+33, RESTORE+34, RESTORE+36
IN	RESTORAL+8~, RESTORAL+10, RESTORAL+12, RESTORAL+13, RESTORE+8~, RESTORE+12, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27 , RESTORE+33, RESTORE+34
INARRAY	LIST+8~
INARRAY(	LIST+12*, LIST+17, LIST+20
INCOMP	LIST~, LIST+6*, LIST+17, LIST+21
>> INMUL	RESTORE+25*, RESTORE+32
INQF	BACKUP~, BACKUP+13, BACKUP+14, BACKUP+25, RESTORAL~, RESTORAL+10, RESTORAL+17, RESTORE~, RESTORE+12
J	LIST+8~, LIST+11, LIST+12, LIST+17, LIST+20, LIST+21
J1	LIST+8~, LIST+20*
L	GLE+1~, GLE+2*, GLE+3
PI	RESTORE+8~, RESTORE+26*, RESTORE+27, RESTORE+30, RESTORE+32
QN	BACKUP~, BACKUP+13, BACKUP+14, BACKUP+20, BACKUP+23, RESTORAL~, RESTORAL+10, RESTORAL+12, RESTORAL+13, RESTORAL+15 , RESTORE~, RESTORE+12, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27, RESTORE+33, RESTORE+34
R	RESTORE+8~, RESTORE+27*, RESTORE+30
U	RESTORE+21, RESTORE+25, RESTORE+27, RESTORE+30
X	DIC+1, DIC+2, DIC+3, RESTORE+8~, RESTORE+10, RESTORE+21, RESTORE+22
Y	DIC+1, DIC+2, DIC+3, DIC+4, RESTORE+8~, RESTORE+22, RESTORE+23, RESTORE+28

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSYSUL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: