Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: INHPSA4

Package: IHS Generic Interface System

Routine: INHPSA4


Information

INHPSA4 ; KAC ; 21 Jun 99 13:19; Interface Control Program (continued)

Source Information

Source file <INHPSA4.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All