Routine: INHSYSE

Package	Total	Call Graph
IHS Generic Interface System	10	EN^INHSGZ (LN,NEWR,NTRNL)^INHSYS04 ($$DIC,STUFF)^INHSYS05 CMP^INHSYS07 START^INHSYS09 (GETMSGDT,GETMSGF,GETMSGS)^INHSYSU1 (HEAD,MSG,PG)^INHSYSUT ORDER^INHUT3 $$NEW^INHUTC1 SAVEROU^INZTTC
Kernel	4	^%ZIST $$READ^%ZTF $$CDATASC^%ZTFDT ($$CLOSESEQ,$$OPENSEQ)^%ZTFS1
Uncategorized	4	^@( ENV^UTIL $$CR^UTSRD FN^ZCMSLD1
VA Fileman	1	^DIK

Package	Total	Caller Graph
IHS Generic Interface System	1	INTSTRT

Entry Points

Name	Comments	DBIA/ICR reference
UPKG(FNAME)	;replace routine into environment from flat file ; Input: ; FNAME - Flat file name. Should end with .TT extention
EN	;Entry point for single element mover
PKG(CLASS,RTN)	;Create package of routines in VMS flat file ; Input: ; CLASS - name of flat file that stores saved routines ; RTN - Name of beginning routine name to store in sequence ; in the flat file.
ERR	;if error occurs on save or restore
RSFRFLT(INAME)	;Restore from flat file
READ(INX)	;read 4 characters
SV2FLT(INAME,INDONE)	;Save utility stuff to flat file ; Input: ; INAME - Name of flat file ; Output: INDONE 0 did not finish 1 finished
CHECK()	;check validity of 4 characters
COMP(INMSG)	;Compile Script Generator Messages ; Input: INMSG - Array of Script Generator Fields and Segments ; format - INMSG(4010,ien) ; INMSG(4012,ien)
RESTORE(%DRVR)	;Restore data from any element
RTNBFR(%TT,INROU)	;routine buffer/builder machine
INST(%DRVR,%PASS,INREPRT,INFLD,INMSG)	;installation utility entry pnt

External References

Name	Field # of Occurrence
^%ZIST	RESTORE+3
$$READ^%ZTF	READ+4
$$CDATASC^%ZTFDT	SV2FLT+11
$$CLOSESEQ^%ZTFS1	SV2FLT+18, RSFRFLT+15, ERR+1
$$OPENSEQ^%ZTFS1	SV2FLT+8, RSFRFLT+5
^@(	RESTORE+6, INST+20
^DIK	INST+51
EN^INHSGZ	COMP+18
LN^INHSYS04	RTNBFR+25, RTNBFR+26, RTNBFR+28
NEWR^INHSYS04	RTNBFR+24
NTRNL^INHSYS04	EN+8
$$DIC^INHSYS05	INST+37, INST+53
STUFF^INHSYS05	INST+61
CMP^INHSYS07	INST+60
START^INHSYS09	EN+5
GETMSGDT^INHSYSU1	COMP+7
GETMSGF^INHSYSU1	COMP+12
GETMSGS^INHSYSU1	COMP+14
HEAD^INHSYSUT	INST+21
MSG^INHSYSUT	INST+37, INST+50
PG^INHSYSUT	INST+48, INST+62, INST+63
ORDER^INHUT3	PKG+8
$$NEW^INHUTC1	INST+42
SAVEROU^INZTTC	PKG+9
ENV^UTIL	RESTORE+3, INST+17, PKG+6
$$CR^UTSRD	INST+64
FN^ZCMSLD1	UPKG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X_" filed." Line Location: RTNBFR+28
Function Call: WRITE	Prompt: !,"You must enter EXACTLY 4 characters",! Line Location: CHECK+5
Function Call: WRITE	Prompt: !,"Name cannot have spaces",! Line Location: CHECK+9
Function Call: WRITE	Prompt: !!,"File transfer completed." Line Location: RESTORE+11
Function Call: WRITE	Prompt: !,"Note .. DD file "_%FNUM_" is missing." Line Location: INST+26
Function Call: WRITE	Prompt: !,"ERROR - UNABLE TO CREATE NEW CRITERIA" Line Location: INST+43
Function Call: WRITE	Prompt: !,%FNUM,?14,$P($G(^DIC(%FNUM,0)),U),?42 Line Location: INST+48
Function Call: WRITE	Prompt: ! Line Location: INST+58
Function Call: WRITE	Prompt: ?42,".01" Line Location: INST+59
Function Call: WRITE	Prompt: !,"*** Denotes ommitted, and not filed in system." Line Location: INST+62
Function Call: WRITE	Prompt: !!,"Pass "_%PASS_" Done! " Line Location: INST+63
Function Call: WRITE	Prompt: !,"Unable to open file" Line Location: SV2FLT+9
Function Call: WRITE	Prompt: $P(INDATE,"@")_" "_$P(INDATE,"@",2),!,"Interactive Test Utility Save" Line Location: SV2FLT+12
Function Call: WRITE	Prompt: !,"END",!,"END" Line Location: SV2FLT+17
Function Call: WRITE	Prompt: !,"Unable to open file" Line Location: RSFRFLT+6
Function Call: READ	Timeout: 0 Variable: %ODD Line Location: RSFRFLT+10
Function Call: WRITE	Prompt: !,"An error has ocurred" Line Location: ERR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("ROU"	RTNBFR+18
^DIC - [#1]	INST+25, INST+48
^INRHT("ID"	CHECK+6
^INTHU("C"	INST+35
^UTILITY("INHSYS"	RESTORE+5!, RESTORE+7, RESTORE+10!, INST+23, INST+29, INST+31, RSFRFLT+3!
^UTILITY("INHSYSUT"	RESTORE+5!, RESTORE+10!
^UTILITY($J	EN+1!, EN+6, RTNBFR+17!, RTNBFR+27, RTNBFR+29!, RTNBFR+30!, RESTORE+5!, RESTORE+10!, PKG+5!, SV2FLT+6

Label References

Name	Line Occurrences
$$CHECK	READ+3
$$READ	EN+3
COMP	RESTORE+8
INST	RESTORE+7
RTNBFR	EN+7

Naked Globals

Name	Field # of Occurrence
^("OS"	RTNBFR+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%CC	RTNBFR+16~, RTNBFR+19*, RTNBFR+24, RTNBFR+25, RTNBFR+26, RTNBFR+28
%DATA	RTNBFR+16~, RTNBFR+23, RTNBFR+24, RTNBFR+26, SV2FLT+4~, SV2FLT+14, SV2FLT+16
%DATIM	RSFRFLT+2~, RSFRFLT+8*
%DIC0	INST+16~, INST+25, INST+27, INST+37, INST+53
%DRVR	RESTORE~, RESTORE+6, RESTORE+7, INST~, INST+20
%EVEN	RTNBFR+16~, RSFRFLT+2~, RSFRFLT+11*, RSFRFLT+12, RSFRFLT+14
%FILES	INST+15~, INST+16~
%FLDS	INST+15~
%FNUM	INST+15~, INST+23*, INST+25, INST+26, INST+29, INST+31, INST+35, INST+37, INST+39, INST+45 , INST+47, INST+48, INST+50, INST+53, INST+60, INST+61
%GLB	INST+16~
%HEAD	RSFRFLT+2~, RSFRFLT+8*, RSFRFLT+9
%LC	RTNBFR+16~, RTNBFR+19*, RTNBFR+25, RTNBFR+26, RTNBFR+28
%LFILES	RESTORE+2~
%MSG	INST+16~, INST+18*, INST+37, INST+50
%MSG2	INST+16~, INST+18*, INST+61, INST+62
%NODE	RTNBFR+16~, RTNBFR+19, RTNBFR+22, RTNBFR+23, RTNBFR+24, RTNBFR+25, SV2FLT+4~, SV2FLT+7, SV2FLT+13, SV2FLT+14 , SV2FLT+15
%ODD	RTNBFR+16~, RSFRFLT+2~, RSFRFLT+10*, RSFRFLT+13
%OIEN	INST+15~, INST+29*, INST+31, INST+60, INST+61
%OMT	INST+16~
%PASS	RESTORE+2~, RESTORE+7, INST~, INST+18, INST+20, INST+21, INST+27, INST+37, INST+45, INST+48 , INST+50, INST+56, INST+57, INST+58, INST+59, INST+60, INST+61, INST+62, INST+63, INST+64
%RC	RTNBFR+16~, RTNBFR+19*, RTNBFR+28
%ROOT	INST+15~, INST+25*, INST+26, INST+37, INST+51, INST+53, INST+58, INST+60, INST+61
%RQ	INST+16~
%RTN	RTNBFR+16~, RTNBFR+20, RTNBFR+28, PKG+5~, PKG+7
%RTNBFR	RTNBFR+16~, RTNBFR+21, RSFRFLT+2~, RSFRFLT+4, RSFRFLT+13
%SAV	RESTORE+2~, INST+15~
%T	RTNBFR+16~
%TT	RTNBFR~, RTNBFR+20
%UNQ	INST+15~
%XNODE	INST+15~, INST+31*, INST+32, INST+35, INST+37, INST+50, INST+53
AA	RESTORE+2~, INST+15~
B	INST+15~
CLASS	PKG~, PKG+9
DA	INST+15~, INST+30~, INST+51, INST+54, INST+58, INST+61
DFN	RESTORE+2~, INST+45*
DIC	INST+16~
>> DIK	INST+51*
DINUM	INST+30~, INST+51*, INST+53
>> DIPA("DA"	INST+42*
DLAYGO	INST+16~
FNAME	UPKG~, UPKG+3
I	INST+16~
INAME	SV2FLT~, SV2FLT+8, SV2FLT+9, SV2FLT+10, SV2FLT+18, RSFRFLT~, RSFRFLT+5, RSFRFLT+6, RSFRFLT+7, RSFRFLT+15 , ERR+1
>> INCR	INST+18*, INST+64
INDATE	SV2FLT+4~, SV2FLT+11*, SV2FLT+12
INDONE	SV2FLT~, SV2FLT+5, SV2FLT+19
INFL	COMP+5~, COMP+9*, COMP+10, COMP+12, COMP+14, COMP+16
INFLD	RESTORE+7, INST~, INST+16~
>> INFLG	INST+19*
INGALL	COMP+5~, COMP+18*
INIEN	COMP+5~, COMP+10*, COMP+12, COMP+14, COMP+16
INLN	CHECK+1~, CHECK+4*, CHECK+5
INMAX	RTNBFR+16~, RTNBFR+18*, RTNBFR+19, RTNBFR+24
INMS	COMP+5~, COMP+7, COMP+12, COMP+14, COMP+18*
INMS(	COMP+16*, COMP+18
INMSG	RESTORE+2~, RESTORE+7, RESTORE+8, INST~, COMP~, COMP+7, COMP+12, COMP+14
INMSG(	INST+47*, COMP+7, COMP+9, COMP+10
INOPT	INST+40~, INST+42
INOPT("TYPE"	INST+41*
INOS	RTNBFR+16~, RTNBFR+18*
INPOP	EN+1~, EN+2, INST+16~, INST+18
INREPRT	RESTORE+4, RESTORE+7, INST~, INST+18, INST+21, INST+48, INST+55, INST+59, INST+61, INST+62 , INST+63, INST+64
INROU	EN+1~, EN+7, EN+8, RTNBFR~
INROU(	RTNBFR+28*
INROU(""	EN+8
INRTN	EN+1~, EN+3, EN+4, EN+7, READ+4, READ+5, CHECK+2*, CHECK+3, CHECK+4, CHECK+6 , CHECK+9
INX	READ~, READ+1, READ+2, READ+4
INZI	RTNBFR+16~, RTNBFR+18*, RTNBFR+28
IO	INST+21
IOSL	INST+64
IOST	INST+64
N	RSFRFLT+2~
QT	INST+16~, INST+22*, INST+61
RTN	PKG~, PKG+7, PKG+8
U	INST+35, INST+37, INST+47, INST+48, INST+53, INST+57
X	RTNBFR+28, INST+16~, RSFRFLT+2~, RSFRFLT+13, RSFRFLT+14, RSFRFLT+15, ERR+1
Y	INST+15~, INST+33, INST+35, INST+37, INST+42, INST+43, INST+45, INST+47, INST+48, INST+50 , INST+51, INST+53, INST+54, INST+55, INST+57, INST+59, INST+60, INST+61, COMP+5~, COMP+18

Customize PDF page

Package: IHS Generic Interface System

Routine: INHSYSE

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: