Routine: INHSZ51

Information

INHSZ51 ;JSH; 3 Feb 92 08:28;Interface - INHSZ5 continued ; 11 Nov 91 6:42 AM

Source file <INHSZ51.m>

Package	Total	Call Graph
IHS Generic Interface System	4	($$SYNTAX,ERROR)^INHSZ0 (DOWN,L,UP)^INHSZ1 DOIT^INHSZ5 (ROUTINE,TEMPLATE)^INHSZ7
Uncategorized	1	($$LBTB,$$REPLACE)^UTIL

Package	Total	Caller Graph
IHS Generic Interface System	4	INHSZ5 INHSZ7 INHSZ71 INHSZ72

Name	Comments	DBIA/ICR reference
REPEAT	;Initiate a REPEAT block
VEXP(V,Q)	;Return expanded variable reference using SLVL levels
LAYGO	;Create new entry
ENDREPEA	;End a REPEAT section
L
RLB	;Build repeating loop
RDIPA	;Set the DIPA array for all script variables defined for this REPEAT value
TEMPLATE	;Invoke an input template
ROUTINE	;Call a routine
DIPA	;Set DIPA array when not in a loop state
SAVE	;Save entry number into a script variable

Name	Field # of Occurrence
$$SYNTAX^INHSZ0	REPEAT+2, SAVE+3
ERROR^INHSZ0	REPEAT+1, REPEAT+5, REPEAT+6, ENDREPEA+1, TEMPLATE+1, TEMPLATE+2, ROUTINE+1, ROUTINE+2
DOWN^INHSZ1	LAYGO+1, RLB+3
L^INHSZ1	L
UP^INHSZ1	LAYGO+7, ENDREPEA+2
DOIT^INHSZ5	SAVE+4
ROUTINE^INHSZ7	ROUTINE+3
TEMPLATE^INHSZ7	TEMPLATE+3
$$LBTB^UTIL	REPEAT+4, SAVE+2
$$REPLACE^UTIL	LAYGO+3

Name	Line Occurrences
$$VEXP	RLB+2, RDIPA+1
L	LAYGO+2, LAYGO+3, LAYGO+4, LAYGO+7, REPEAT+7, RLB+3, RLB+4, DIPA+1, RDIPA+1, SAVE+5

Name	Field # of Occurrence
%2	SAVE+1~, SAVE+2*, SAVE+3, SAVE+5
>> A	LAYGO+2, LAYGO+3, LAYGO+4, LAYGO+5, LAYGO+6, REPEAT+7, RLB+3, RLB+4, DIPA+1, RDIPA+1 , SAVE+5*
>> COMM	REPEAT+2, REPEAT+4, SAVE+2
>> DICOMPX(	REPEAT+5, SAVE+5*
>> FILE	LAYGO+3
I	VEXP+2~, VEXP+3*
>> IDENT	RLB+5*
>> LINE	REPEAT+2, REPEAT+4, REPEAT+7, SAVE+2
>> LOOKUP	TEMPLATE+2, ROUTINE+2
>> LPARAM	RLB+4*
>> LVARS(	REPEAT+6
>> MCNT	RLB+4*
>> MULT	LAYGO+3, LAYGO+4, LAYGO+6
>> MULT0	LAYGO+3, LAYGO+4, LAYGO+6
Q	VEXP~, VEXP+3
>> REPEAT	REPEAT+1, RLB+5, ENDREPEA+1, ENDREPEA+2, TEMPLATE+1, ROUTINE+1
>> REPEAT1	RLB+5*
>> SLVL	RLB+1, RLB+3, RLB+4, VEXP+3, ENDREPEA+2
U	LAYGO+3
V	REPEAT+3~, REPEAT+4*, REPEAT+5, REPEAT+6, RLB+2, VEXP~, VEXP+3
V1	RLB+2~*, RLB+3, RLB+4
X	VEXP+2~, VEXP+3, VEXP+4, VEXP+5