Routine: INHSYS

Information

INHSYS ;SLT,JPD,WOM; 6 Dec 95 09:31;GIS system configuration compilation/installation utility

Source Information

Source file <INHSYS.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS Generic Interface System	4	$$ID^INHSYS04 ALLSUMER^INHSYS11 ($$LOCKFL,UNLK)^INHSYSUT ($$TR,ORDER,ZIS)^INHUT3
Kernel	3	^%ZIST ($$BREAK,$$ROUTEST,$$SETXY,$$YN)^%ZTF $$DT^%ZTFDT
Uncategorized	2	VAR^DWUTL $$CR^UTSRD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Generic Interface System	2	INHSYSDR INZTTC

Entry Points

Name	Comments	DBIA/ICR reference
BREAK(%)	;Inable/Disable break
RESTORE(%UT,%RT)	; ; Input: ; %UT - global to store routine that is being restored ; %RT - selected node from global
FROUT(%FIND)	;Return 1 if routine found, 0 else
ROUT(%UTILITY)	;Get available routines
COMP(INSELTT,INASK)	;compile Transaction Types into cms elements ; Called by tags EN1 and EN2 above ; Also called by $$COMP^INZTTC ; Input: ; INSELTT - Array of selected Transaction Types ; INSELTT = # Selected ; INSELTT(n) = IEN^0_NODE ; INASK - Option control for ERROR notification ; Values: 0 - Ask if user wants reporting ; If user wants reporting, ask DEVICE ; 1 - Reporting goes to ASCII flat file in the user's ; default directory. The filename is based on the ; UNIQUE IDENTIFIER of the INTERFACE TRANSACTION TYPE ; chosen. This file has a ".GEN" extention to signify ; it came from the GENERATION (export) module. ; DEFAULT is 0 ; Note: When INASK=0, if the user specifies no reporting, INASK ; will be set to 3 and passed to INHUT3 as a signal to not ; open any devices. ; Note: INPOP should be in the data space from the calling routine ; and should be set to 0. This variable is a flag used ; to denote FATAL ERRORS and should be checked by the calling ; routine to determine successful generation. If the value is ; 1, this will denote failure. ; Note to Note: INPOP is not the only failure condition that ; should be checked by the calling program.
Q
QUERY()
EN5(%RT,INCR,INASK,INDELETE,INP0)	; Called by CMS interface and ZPACK programs

External References

Name	Field # of Occurrence
^%ZIST	EN5+34
$$BREAK^%ZTF	BREAK+2, BREAK+3, RESTORE+8, RESTORE+11
$$ROUTEST^%ZTF	FROUT+1
$$SETXY^%ZTF	EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
$$YN^%ZTF	EN5+55, EN5+56, COMP+32, RESTORE+5, RESTORE+6, QUERY+1
$$DT^%ZTFDT	EN5+34, COMP+27
VAR^DWUTL	EN5+34
$$ID^INHSYS04	COMP+31
ALLSUMER^INHSYS11	EN5+64
$$LOCKFL^INHSYSUT	COMP+34
UNLK^INHSYSUT	COMP+36
$$TR^INHUT3	EN5+46, COMP+31
ORDER^INHUT3	ROUT+6
ZIS^INHUT3	EN5+54, EN5+57, EN5+61, COMP+34, RESTORE+4, RESTORE+9
$$CR^UTSRD	EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(7,10),"Cannot require <CR> from user when reporting goes to a flat file!!" Line Location: EN5+39
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INCR or INASK!!" Line Location: EN5+40
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(7,10) Condition for execution: INCR Line Location: EN5+41
Function Call: WRITE	Prompt: "Invalid parameter INDELETE!!" Line Location: EN5+41
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(30,10) Condition for execution: INCR Line Location: EN5+42
Function Call: WRITE	Prompt: "Null Program Name!!" Line Location: EN5+42
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(30,10) Condition for execution: INCR Line Location: EN5+43
Function Call: WRITE	Prompt: "Invalid Program Name!!" Line Location: EN5+43
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(30,10) Condition for execution: INCR Line Location: EN5+44
Function Call: WRITE	Prompt: "Routine ",%RT," not found",!!,*7 Line Location: EN5+44
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(30,10) Condition for execution: INCR Line Location: EN5+45
Function Call: WRITE	Prompt: "Invalid INP0 and INASK combination.",!!,*7 Line Location: EN5+45
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INASK!!" Line Location: COMP+29
Function Call: WRITE	Prompt: @IOF,$$SETXY^%ZTF(25,10),"No TRANSACTION TYPES available!!" Line Location: COMP+30
Function Call: WRITE	Prompt: !!,"Would you like a list of updated files and fields" Line Location: RESTORE+6
Function Call: WRITE	Prompt: !!,"Would you like a report of related files that exist ",!,"and do not exist in the environment" Line Location: QUERY+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("OS" - [#.7]	BREAK+2, BREAK+3, RESTORE+8, RESTORE+11
^UTILITY("INHSYS"	EN5+33!, COMP+26!
^UTILITY("INHSYS_FILERR"	EN5+38!*
^UTILITY("INHSYS_SUMERR"	EN5+38!
^UTILITY($J	EN5+33!, COMP+26!

Label References

Name	Line Occurrences
$$BREAK	EN5+60, EN5+63
$$FROUT	EN5+44
$$QUERY	RESTORE+4

Local Variables

Name	Field # of Occurrence
%	EN5+32~, EN5+33~, BREAK~, BREAK+1, BREAK+2, BREAK+3, BREAK+4
%CNT	EN5+33~, EN5+46*
%FIND	FROUT~, FROUT+1
%RD	EN5+32~
%RMSEL	EN5+32~
%RT	EN5~, EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, EN5+46, RESTORE~
%RTN	EN5+32~
%SRC	EN5+32~
%SYS	EN5+32~
%TT	EN5+33~, EN5+46*
%UCI	EN5+32~
%UT	EN5+33~, RESTORE~
%UT(1	EN5+46*
%UTILITY	EN5+32~, ROUT~, ROUT+7
AA	COMP+26~, COMP+32, COMP+36
>> CENABLE	RESTORE+11
DT	EN5+34~, COMP+27~
DWL	EN5+32~
DWLB	EN5+32~
DWLMK	EN5+32~
DWLMK1	EN5+32~
DWLRF	EN5+32~
EX	BREAK+1~*, BREAK+2, BREAK+3
INASK	EN5~, EN5+36, EN5+38, EN5+39, EN5+40, EN5+45, EN5+46, EN5+53, EN5+54, EN5+56* , EN5+57, EN5+61, COMP~, COMP+27, COMP+29, COMP+30, COMP+31, COMP+32*, COMP+34
INCR	EN5~, EN5+36, EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+28~
INDELETE	EN5~, EN5+36*, EN5+41
INLKFLS	COMP+26~, COMP+34
INLKFLS(	COMP+36
INP0	EN5~, EN5+36*, EN5+45, EN5+53, EN5+54
INPOP	EN5+33~, EN5+36, EN5+54, EN5+55, EN5+58, EN5+66, COMP+34
INREPRT	EN5+33~, EN5+36, EN5+38, EN5+56, COMP+26~, COMP+27, COMP+32, RESTORE+6
INRPTNM	EN5+33~, EN5+46, COMP+26~, COMP+31
INSELTT	COMP~, COMP+30
INSELTT(1	COMP+31
IOF	EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
IOSL	EN5+39, EN5+40, EN5+41, EN5+42, EN5+43, EN5+44, EN5+45, COMP+29, COMP+30
>> NOCENABLE	RESTORE+8
Y	EN5+33~

Marked Items

Name	Field # of Occurrence
$T(@(1)+3^@(1)	EN5+46

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSYS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed