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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: INHPSAR

Package: IHS Generic Interface System

Routine: INHPSAR


Information

INHPSAR ;WOM JPD; 29 Mar 96 11:31;Message Replication Application

Source Information

Source file <INHPSAR.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Generic Interface System 2 $$DIC^INHSYS05  $$CENTER^INHUTIL  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 $$YN^%ZTF  

Entry Points

Name Comments DBIA/ICR reference
EN
DEL(DA) ; Makes child a parent
; Input: DA - IEN of child entry in INTERFACE TRANSACTION FILE
; to delete parent field
BS(INPT,INPTY0) ;Get Base (REP)
; Input:
; INPT - Transaction Type
; INPTY0 - Zero node of Transacion Type
PT(Y) ;Get parent TT
CREAT(INPT,INPTY0,INBS,INBSY0) ; Create entry in REPLICATION FILE for each child of
ASS(INPT,INPTY0,INBS,INBSY0) ;Associate children of TT w/replicants
; Input:
; INPT - Transaction Type ien
; INPTY0 - Zero node of Transacion Type
; INBS - Base Transaction Type ien
; INBSY0 - Zero Node of Base Transaction Type
CRE(INCH,INBS) ; Create entry in REPLICATION FILE
; Input: INCH - IEN of entry in INTERFACE TRANSACTION FILE
; and .01 field
; INBS - ORIGINATING TRANSACTION field
; Output: NONE
SBT(DA,PTT) ;Stuff Base transaction into parent
; Input:
; DA - ien of Base
; PTT - Name of Parent Transaction Type to stuff into Base .06 field
ACTVAT(INPT,INPTY0) ; Set parent to ACTIVE
; Input:
; INPT - Transaction Type
; INPTY0 - Zero node of Transacion Type

External References

Name Field # of Occurrence
$$YN^%ZTF ASS+19
^DIC PT+4, BS+8
^DIE ACTVAT+6, DEL+5, CRE+12, SBT+6, SBT+8
$$DIC^INHSYS05 CRE+8
$$CENTER^INHUTIL EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Not an entry point"
  • Line Location: INHPSAR+12
Function Call: WRITE
  • Prompt: @IOF,!,$$CENTER^INHUTIL("Message Replication Application",80),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"You are about to associate all children of",!,"Interface Transaction Type ",$P(INPTY0,U),!,"with ",$P(INBSY0,U)," as replicants",!,"These are:",!
  • Line Location: ASS+7
Function Call: WRITE
  • Prompt: !,"Note - Child of Parent same as Base Transaction - will not be processed"
  • Line Location: ASS+12
Function Call: WRITE
  • Prompt: !,"No children found. Exiting!"
  • Line Location: ASS+16
Function Call: WRITE
  • Prompt: !,"Aborting!"
  • Line Location: ASS+19
Function Call: WRITE
  • Prompt: !,"Unable to Activate Parent Transaction ",$P(INPTY0,U)
  • Line Location: ACTVAT+7
Function Call: WRITE
  • Prompt: !!!!,"The Parent INTERFACE TRANSACTION TYPE ",$P(INPTY0,U),!," no longer has the children listed above"
  • Line Location: CREAT+12
Function Call: WRITE
  • Prompt: !!,"These former Children Transaction Types are Replicants with the",!,"ORIGINATING TRANSACTION TYPE of ",$P(INBSY0,U),!
  • Line Location: CREAT+13
Function Call: WRITE
  • Prompt: !,"Unable to delete child from parent ",DIE,DA
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,"Unable to replicate a child ",X
  • Line Location: CRE+9
Function Call: WRITE
  • Prompt: !,"NO DATA FILED for replicant ",DIE,INBS
  • Line Location: CRE+13
Function Call: WRITE
  • Prompt: !,"Unable to stuff Parent into Base"
  • Line Location: SBT+9
Routine Call
  • DIE
  • Line Location:
    • ACTVAT+6
    • DEL+5
    • CRE+12
    • SBT+6
    • SBT+8
Routine Call
  • DIC
  • Line Location:
    • PT+4
    • BS+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INRHT - [#4000] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^INRHT - [#4000] ASS+10
^INRHT("AC" ASS+9
^UTILITY("INHPSAR" EN+1!, EN+5!, ASS+14*, ASS+16, CREAT+9, CREAT+10*

Label References

Name Line Occurrences
$$PT EN+4
ACTVAT ASS+21
ASS BS+9
BS EN+4
CRE CREAT+10
CREAT ASS+22
DEL CREAT+10
SBT ASS+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ACTVAT+5*, DEL~, DEL+6, CRE+5~, CRE+8*, CRE+9, SBT~
DIC PT+1~, PT+2*, BS+4~, BS+5*, CRE+5~, CRE+6*, CRE+8
DIC("A" PT+3*, BS+5*
DIC("S" PT+2*, BS+7*
DIC(0 PT+2*, BS+5*, CRE+6*, CRE+8
DIE ACTVAT+4~, ACTVAT+5*, DEL+3~, DEL+4*, DEL+6, CRE+5~, CRE+6*, CRE+13, SBT+4~, SBT+5*
DR ACTVAT+4~, ACTVAT+5*, DEL+3~, DEL+4*, CRE+5~, CRE+11*, SBT+4~, SBT+5*, SBT+7*
INBS EN~, BS+4~, ASS~, ASS+12, ASS+22, ASS+23, CREAT~, CREAT+10, CRE~, CRE+11
, CRE+13
INBS0 BS+4~
INBSY0 EN~, ASS~, ASS+7, ASS+22, CREAT~, CREAT+13
INCH ASS+6~, ASS+9*, ASS+10, ASS+12, ASS+14, CREAT+7~, CREAT+9*, CREAT+10, CRE~, CRE+6
INPT EN~, BS~, BS+9, ASS~, ASS+9, ASS+21, ASS+22, ACTVAT~, ACTVAT+5, CREAT~
INPTY0 EN~, BS~, BS+9, ASS~, ASS+7, ASS+21, ASS+22, ASS+23, ACTVAT~, ACTVAT+7
, CREAT~, CREAT+12
INY ASS+6~, ACTVAT+4~, ACTVAT+7, DEL+3~, DEL+6, CRE+5~, CRE+13, SBT+4~, SBT+9
IOF EN+2
PTT SBT~
U ASS+7, ASS+10, ASS+23, ACTVAT+7, CREAT+12, CREAT+13
X CRE+5~, CRE+6*, CRE+8, CRE+9
Y EN~, EN+4, PT~, PT+5, BS+4~, BS+8, BS+9, CRE+5~
Y(0 EN+4, BS+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All