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

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

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

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

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: IHS Generic Interface System

Routine: INHPSAR

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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

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