Routine: INHPSA4

Package	Total	Call Graph
IHS Generic Interface System	2	T^INHMG1 ($$TTEDT,$$TTPAR)^INHPSA
Kernel	1	$$UPCASE^%ZTF

Package	Total	Caller Graph
IHS Generic Interface System	1	INHPSA

Entry Points

Name	Comments	DBIA/ICR reference
WRITE(INHIER,INST)	; write the transaction type, parent, base and child
TTBASE(DA,INST,INHIER)	; $$ function - Deactivate/activate one base (and associated ; parent) transaction type based on replicant transaction type (DA).
DISCREP(ININT,INDAT)	;report this disrepancies ; Input: ; ININT - interface application to activate ; INDAT = data array of control file records fo application
GACT(DA,INST)	; returns the verbos status of the transaction

External References

Name	Field # of Occurrence
$$UPCASE^%ZTF	DISCREP+22
T^INHMG1	TTBASE+27, TTBASE+28, TTBASE+29, TTBASE+32, TTBASE+33, TTBASE+34, TTBASE+44, TTBASE+45, WRITE+17, WRITE+18 , WRITE+19, WRITE+23, WRITE+25, WRITE+27, DISCREP+15, DISCREP+19, DISCREP+21, DISCREP+23, DISCREP+29, DISCREP+32 , DISCREP+33, DISCREP+47, DISCREP+49, DISCREP+50, DISCREP+51, DISCREP+56, DISCREP+57
$$TTEDT^INHPSA	TTBASE+54
$$TTPAR^INHPSA	TTBASE+57

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "ERROR: Replicant Transaction Type, "_$P($G(^INRHT(+DA,0)),U) Line Location: TTBASE+27
Function Call: WRITE	Prompt: " not found in INTERFACE MESSAGE REPLICATION file - B Xef missing." Line Location: TTBASE+28
Function Call: WRITE	Prompt: ! Line Location: TTBASE+29
Function Call: WRITE	Prompt: "ERROR: Base Transaction Type not found in INTERFACE MESSAGE REPLICATION" Line Location: TTBASE+32
Function Call: WRITE	Prompt: " file for Replicant Transaction Type, "_$P($G(^INRHT(+DA,0)),U)_"." Line Location: TTBASE+33
Function Call: WRITE	Prompt: ! Line Location: TTBASE+34
Function Call: WRITE	Prompt: "WARNING: Transaction type ",$P(^INRHT(REPTT,0),U)," was active. " Line Location: TTBASE+44
Function Call: WRITE	Prompt: " Messages will now be generated for this transaction type." Line Location: TTBASE+45
Function Call: WRITE	Prompt: "Parent: ",$P($G(^INRHT(+P,0)),U),?68,$$GACT(+P,INST) Line Location: WRITE+17
Function Call: WRITE	Prompt: ?INMRG,"Base: ",$P($G(^INRHT(+B,0)),U),?68,$$GACT(+B,INST) Line Location: WRITE+18
Function Call: WRITE	Prompt: ?INMRG,"Rep - TT: " Line Location: WRITE+20
Function Call: WRITE	Prompt: ?INMRG,$S(P:"Child: ",1:"Trans: ") Line Location: WRITE+21
Function Call: WRITE	Prompt: ?22,"Destination: ",$P($G(^INRHD(+$P($G(^INRHT(+C,0)),U,2),0)),U) Line Location: WRITE+23
Function Call: WRITE	Prompt: ! Line Location: WRITE+27
Function Call: WRITE	Prompt: ?(IOM-$L(X))\2,X Line Location: DISCREP+17
Function Call: WRITE	Prompt: ?(IOM-$L(X))\2,Y Line Location: DISCREP+20
Function Call: WRITE	Prompt: "ERROR: No destination found in "_ININT Line Location: DISCREP+21
Function Call: WRITE	Prompt: "ERROR: "_INNAME_" not found in interface destination file" Line Location: DISCREP+23
Function Call: WRITE	Prompt: "ERROR: "_TTNAM_" not found in Interface Transaction file" Line Location: DISCREP+29
Function Call: WRITE	Prompt: "WARNING: "_TTNAM_" has destination " Line Location: DISCREP+32
Function Call: WRITE	Prompt: " "_$P($G(^INRHD(+$P($G(^INRHT(INTTIEN,0)),U,2),0)),U) Line Location: DISCREP+33
Function Call: WRITE	Prompt: " Interface Destination file is not "_INNAME Line Location: DISCREP+34
Function Call: WRITE	Prompt: ! Line Location: DISCREP+47
Function Call: WRITE	Prompt: ! Line Location: DISCREP+49
Function Call: WRITE	Prompt: "List of transactions that point to destination: "_INNAME_"." Line Location: DISCREP+50
Function Call: WRITE	Prompt: "But, are not activated/deactivated in EN^INHPSAM" Line Location: DISCREP+51
Function Call: WRITE	Prompt: ?4,TTNAM Line Location: DISCREP+56
Function Call: WRITE	Prompt: " ** No transaction found ***" Line Location: DISCREP+57

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^INRHD - [#4005]	WRITE+23, DISCREP+33
^INRHD("B"	DISCREP+22
^INRHR(	TTBASE+30, TTBASE+41, TTBASE+51
^INRHR("AC"	TTBASE+41, TTBASE+51
^INRHR("B"	TTBASE+24, TTBASE+25
^INRHT - [#4000]	TTBASE+27, TTBASE+31, TTBASE+33, TTBASE+36, TTBASE+43, TTBASE+44, TTBASE+51, WRITE+15, WRITE+17, WRITE+18 , WRITE+22, WRITE+23, WRITE+26, GACT+11, DISCREP+30, DISCREP+31, DISCREP+33, DISCREP+39, DISCREP+40, DISCREP+41 , DISCREP+42
^INRHT("B"	DISCREP+28

Label References

Name	Line Occurrences
$$GACT	WRITE+17, WRITE+18, WRITE+22, WRITE+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	WRITE+11~, WRITE+13*, WRITE+18, WRITE+20
C	WRITE+11~, WRITE+14*, WRITE+15, WRITE+22, WRITE+23, WRITE+26
DA	TTBASE~, TTBASE+24, TTBASE+25, TTBASE+27, TTBASE+33, TTBASE+43, TTBASE+51, GACT~, GACT+10, GACT+11
>> DUOUT	WRITE+17, WRITE+18, WRITE+19, WRITE+23, WRITE+25, WRITE+27, DISCREP+15, DISCREP+19, DISCREP+21, DISCREP+23 , DISCREP+25, DISCREP+36, DISCREP+47, DISCREP+49, DISCREP+50, DISCREP+51, DISCREP+54
FOUND	DISCREP+13~, DISCREP+48, DISCREP+52, DISCREP+56*, DISCREP+57
INARR	DISCREP+13~
INARR(	DISCREP+35, DISCREP+43, DISCREP+54, DISCREP+55
INBASEDA	TTBASE+23~, TTBASE+30*, TTBASE+31, TTBASE+36, TTBASE+41, TTBASE+51, TTBASE+54, TTBASE+57
INCUSTAT	TTBASE+23~, TTBASE+36*, TTBASE+39, TTBASE+48
INDAT	DISCREP~
INDAT(	DISCREP+14, DISCREP+25, DISCREP+26
>> INDES	DISCREP+22*, DISCREP+23, DISCREP+31, DISCREP+41
INHIER	TTBASE~, TTBASE+54, TTBASE+57, WRITE~
INHIER("BASE"	WRITE+13
INHIER("CHILD"	WRITE+14
INHIER("PARENT"	WRITE+12
ININT	DISCREP~, DISCREP+14, DISCREP+21, DISCREP+25, DISCREP+26
INMRG	WRITE+11~, WRITE+16, WRITE+17, WRITE+18*, WRITE+20, WRITE+21
INNAME	DISCREP+12~, DISCREP+14*, DISCREP+16, DISCREP+21, DISCREP+22, DISCREP+23, DISCREP+50
INREC	DISCREP+13~, DISCREP+24, DISCREP+25, DISCREP+26
INRHRDA	TTBASE+23~, TTBASE+25*, TTBASE+26, TTBASE+30
INST	TTBASE~, TTBASE+39, TTBASE+48, TTBASE+54, TTBASE+57, WRITE~, WRITE+17, WRITE+18, WRITE+22, WRITE+26 , GACT~, GACT+12
INSTMSG	GACT+9~, GACT+12, GACT+13, GACT+14
>> INTTIEN	DISCREP+28, DISCREP+29, DISCREP+30, DISCREP+31, DISCREP+33, DISCREP+35, DISCREP+38, DISCREP+39*, DISCREP+40, DISCREP+41 , DISCREP+42, DISCREP+43
IOM	DISCREP+17, DISCREP+20
ISACT	GACT+9~, GACT+11*, GACT+12, GACT+13
OK	TTBASE+23~, TTBASE+48, TTBASE+51
P	WRITE+11~, WRITE+12*, WRITE+17, WRITE+20, WRITE+21
REPTT	TTBASE+23~, TTBASE+41, TTBASE+43, TTBASE+44, TTBASE+51
RHRTT	TTBASE+23~, TTBASE+41, TTBASE+51
>> TTNAM	DISCREP+26, DISCREP+27, DISCREP+28, DISCREP+29, DISCREP+32, DISCREP+35, DISCREP+42, DISCREP+43, DISCREP+53, DISCREP+54 , DISCREP+55, DISCREP+56
TTNMA	DISCREP+13~
U	TTBASE+27, TTBASE+30, TTBASE+33, TTBASE+36, TTBASE+41, TTBASE+43, TTBASE+44, TTBASE+51, WRITE+15, WRITE+17 , WRITE+18, WRITE+22, WRITE+23, WRITE+26, GACT+11, DISCREP+26, DISCREP+30, DISCREP+31, DISCREP+33, DISCREP+40 , DISCREP+41, DISCREP+42
X	DISCREP+13~, DISCREP+16*, DISCREP+17, DISCREP+18, DISCREP+20
>> Y	DISCREP+18*, DISCREP+20

Customize PDF page

Package: IHS Generic Interface System

Routine: INHPSA4

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: