Routine: INHPSAM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC $$CDATASC^%ZTFDT ^%ZTLOAD
IHS Generic Interface System	3	HEADER^INHMG T^INHMG1 ($$CREDAT,$$DIC,$$GETMTF,$$PROCINT)^INHPSA
Uncategorized	2	($$SOC,ENV)^UTIL $$YN^UTSRD

Package	Total	Caller Graph
IHS Generic Interface System	2	INHPCO INHPSAL

Package

Total

Caller Graph

IHS Generic Interface System

INHPCO INHPSAL

Entry Points

Name	Comments	DBIA/ICR reference
DATACOM	;Description of DATA tag
QUIT	;exit module
EN	;Main entry point to interactively process interfaces
ACTIV	;Activate all production interfaces
PARM(INPAR)	;Obtain user parameters
PROC(INPAR,INVERBOS)	;Process selected actions
ENQUE	; Taskman entry point - Process user actions
COMPSUM(INPAR)	; compile and report the status of all interfaces
SUMALL	;display summary of all production interfaces
APPLAR	;Create array of interface applications
PROCSUM(INTER,INPAR,INPARFND)	; process and report the status of one interface only
ALL(INST)	;Process all production interfaces
DEACT	;Deactivate all production interfaces
SHOWALL	;show all production interfaces
TASKDEV(INPAR,INVERBOS)	; ask for device name and task to process the user action
SHOWONLY	;Main entry point to show only process interfaces ; this entry is called from a menu option
DATA	;Data
INTSEL(INPAR)	;Select an interface

External References

Name	Field # of Occurrence
^%ZIS	TASKDEV+8, TASKDEV+10
^%ZISC	QUIT+1
$$CDATASC^%ZTFDT	COMPSUM+6
^%ZTLOAD	TASKDEV+13
HEADER^INHMG	COMPSUM+12
T^INHMG1	COMPSUM+17, COMPSUM+18, COMPSUM+19, COMPSUM+20, PROCSUM+9, PROCSUM+14, PROCSUM+15, PROCSUM+24, PROCSUM+25, PROCSUM+33
$$CREDAT^INHPSA	PROCSUM+9
$$DIC^INHPSA	PROCSUM+13, PROCSUM+23
$$GETMTF^INHPSA	COMPSUM+6
$$PROCINT^INHPSA	PROC+17
$$SOC^UTIL	PARM+24, INTSEL+8
ENV^UTIL	EN+2, SUMALL+2, SHOWALL+2
$$YN^UTSRD	PARM+29, PARM+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Sorry, unable to find device..." Line Location: TASKDEV+10
Function Call: WRITE	Prompt: ! Line Location: COMPSUM+17
Function Call: WRITE	Prompt: " *PARTIAL means that an interface has both active and inactive transactions." Line Location: COMPSUM+18
Function Call: WRITE	Prompt: " This usually means that the transactions are used by multiple" Line Location: COMPSUM+19
Function Call: WRITE	Prompt: " interfaces." Line Location: COMPSUM+20
Function Call: WRITE	Prompt: "ERROR: "_INTER_" Unable to create data array" Line Location: PROCSUM+9
Function Call: WRITE	Prompt: "ERROR: Wanted background process ",INNAME," but found ",$P(Y,U,2)," (",+Y,")." Line Location: PROCSUM+14
Function Call: WRITE	Prompt: "ERROR: Background Process: ",INNAME," not found." Line Location: PROCSUM+15
Function Call: WRITE	Prompt: "ERROR: Transaction Type: ",INNAME," not found. But found ",$P(Y,U,2)," (",+Y,")." Line Location: PROCSUM+24
Function Call: WRITE	Prompt: "ERROR: Wanted transaction type ",INNAME Line Location: PROCSUM+25
Function Call: WRITE	Prompt: STAT,?11,INTER,?20,$P(INPAR("APPL",INTER),U) Line Location: PROCSUM+33
Function Call: WRITE	Prompt: !! Line Location: PARM+24
Function Call: WRITE	Prompt: !!,"WARNING: Modifying the status of interfaces can have dramatic effects." Line Location: PARM+28
Function Call: WRITE	Prompt: ! Line Location: INTSEL+3
Function Call: WRITE	Prompt: !,?3,%,?13,$P(INPAR("APPL",%),U) Line Location: INTSEL+5
Function Call: WRITE	Prompt: !! Line Location: INTSEL+7
Routine Call	%ZIS Line Location: TASKDEV+8 TASKDEV+10

Name	Line Occurrences (* Changed, ! Killed)
^INRHT - [#4000]	PROCSUM+26
^INTHPC - [#4004]	PROCSUM+16

Name	Line Occurrences
$$INTSEL	PARM+18
$$PARM	EN+4
ALL	SUMALL+3, SHOWALL+3, ACTIV+2, DEACT+2
APPLAR	ALL+4, PARM+16
COMPSUM	PROC+8
EN	SHOWONLY+4
PROC	ENQUE+1
PROCSUM	COMPSUM+14
QUIT	TASKDEV+8, TASKDEV+10, TASKDEV+11, ENQUE+2
TASKDEV	EN+6, ALL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PROC+17, PARM+24, PARM+25, INTSEL+2~, INTSEL+4, INTSEL+5, INTSEL+8*, INTSEL+9, INTSEL+10
%ZIS	TASKDEV+6~, TASKDEV+8, TASKDEV+10
%ZIS("A"	TASKDEV+8*
%ZIS("B"	TASKDEV+8*
ACTIVE	PROCSUM+7~, PROCSUM+8, PROCSUM+16, PROCSUM+26*, PROCSUM+30, PROCSUM+31, PROCSUM+32
DA	PROCSUM+7~, PROCSUM+13, PROCSUM+15, PROCSUM+16, PROCSUM+23, PROCSUM+24, PROCSUM+26
DAT	INTSEL+2~, INTSEL+4, INTSEL+5, INTSEL+6*, INTSEL+8
DIC	PROCSUM+7~, PROCSUM+13, PROCSUM+23
DIC(0	PROCSUM+13, PROCSUM+23
DUOUT	COMPSUM+14, COMPSUM+15, PROCSUM+33, PROC+7~, PROC+13
DUZ	EN+2, SUMALL+2, SHOWALL+2
HDR	COMPSUM+4~
HDR(1	COMPSUM+7*
HDR(2	COMPSUM+8*
HDR(3	COMPSUM+9*
INACTIVE	PROCSUM+7~, PROCSUM+8, PROCSUM+17, PROCSUM+27*, PROCSUM+30, PROCSUM+31, PROCSUM+32
INDAT	PROCSUM+7~, PROCSUM+9
INDAT(	PROCSUM+11, PROCSUM+12, PROCSUM+20, PROCSUM+21, PROCSUM+22
ININT	PROC+9~, PROC+13*, PROC+17
INMTF	COMPSUM+4~, COMPSUM+6*
INNAME	PROCSUM+7~, PROCSUM+12, PROCSUM+14, PROCSUM+15, PROCSUM+22, PROCSUM+24, PROCSUM+25
INNOOUT	PROC+9~, PROC+10*
INPAGE	COMPSUM+4~, COMPSUM+5, PROC+9~, PROC+12
INPAR	TASKDEV~, ENQUE+1, EN+1~, EN+4, EN+6, ALL+2~, ALL+7, COMPSUM~, COMPSUM+14, PROCSUM~ , PROC~, PROC+8, PROC+17, PARM~, PARM+18, INTSEL~, APPLAR+2!
INPAR("ACT"	ALL+5, PROC+8, PROC+10, PARM+22, PARM+25, PARM+26, APPLAR+11
INPAR("APCO"	APPLAR+9*
INPAR("APPL"	PROCSUM+33, INTSEL+5, APPLAR+8*
INPAR("APSEL"	ALL+6, COMPSUM+14, PROC+13, INTSEL+10
INPAR("REPL"	ALL+5, PARM+20, APPLAR+13*
INPARFND	COMPSUM+4~, COMPSUM+14, COMPSUM+16, PROCSUM~, PROCSUM+32*
INREC	PROCSUM+7~, PROCSUM+10, PROCSUM+11, PROCSUM+12, PROCSUM+19, PROCSUM+20, PROCSUM+21, PROCSUM+22
INSHOWME	SHOWONLY+2~, SHOWONLY+3*, PARM+22
INST	ALL~, ALL+5*
INTER	COMPSUM+4~, COMPSUM+13, COMPSUM+14, PROCSUM~, PROCSUM+9, PROCSUM+11, PROCSUM+12, PROCSUM+20, PROCSUM+21, PROCSUM+22 , PROCSUM+33
INTIME	COMPSUM+4~, COMPSUM+6*
INVERBOS	TASKDEV~, ENQUE+1, EN+1~, EN+6, ALL+2~, ALL+7, PROC~
IO	TASKDEV+10, TASKDEV+11
IO("Q"	QUIT+1!
IO(0	TASKDEV+10, TASKDEV+11
IOM	TASKDEV+9, COMPSUM+9
ION	TASKDEV+9
IOP	TASKDEV+8!, TASKDEV+9*, TASKDEV+11, QUIT+1!
IOSL	TASKDEV+9
IOST	TASKDEV+9
L	APPLAR+2~, APPLAR+3*, APPLAR+5, APPLAR+8
L2	APPLAR+2~, APPLAR+5*, APPLAR+7, APPLAR+9
>> LC	APPLAR+3*
NA	APPLAR+2~, APPLAR+5*, APPLAR+7, APPLAR+8, APPLAR+9
POP	TASKDEV+8, TASKDEV+10, QUIT+1!
STAT	PROCSUM+7~, PROCSUM+29, PROCSUM+30, PROCSUM+31, PROCSUM+32, PROCSUM+33
U	PROCSUM+12, PROCSUM+14, PROCSUM+16, PROCSUM+21, PROCSUM+22, PROCSUM+24, PROCSUM+25, PROCSUM+26, PROCSUM+33, PARM+25 , INTSEL+5, INTSEL+9, APPLAR+5
X	TASKDEV+6~, TASKDEV+12, ALL+2~, ALL+6, PROCSUM+7~, PROCSUM+12, PROCSUM+13, PROCSUM+22, PROCSUM+23
Y	PROCSUM+7~, PROCSUM+13, PROCSUM+14, PROCSUM+23, PROCSUM+24, PROCSUM+25
ZTDESC	TASKDEV+6~, TASKDEV+11*
ZTIO	TASKDEV+6~, TASKDEV+11*
ZTRTN	TASKDEV+6~, TASKDEV+11*
ZTSAVE	TASKDEV+6~
ZTSAVE(	TASKDEV+12*

Customize PDF page

Package: IHS Generic Interface System

Routine: INHPSAM

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