Routine: INHVA1

Information

INHVA1 ;FRW ; 6 Feb 92 12:20; SACI-Care/VA data element mapping utilities

Source file <INHVA1.m>

Package	Total	Call Graph
IHS Generic Interface System	2	ERROR^INHS $$MAP^INHVA2
Uncategorized	1	MESS^DWD

Package	Total	Caller Graph
IHS Generic Interface System	15	IS00005E IS00010A IS00010B IS00016J IS00017J IS00018J IS00021J IS00022J IS00025 IS00025A IS00026 IS00026A IS00026B IS00027A IS00027C

Name	Comments	DBIA/ICR reference
AD1	;non-looping
ADDR(SUBSCR,ITER)	;Transform addresses with no state
DEL	;Verify if entry can be deleted
CONF	;Consistency check for the .01 field on file #4090.2
TEST	;
KILL(%V,%D,%I)	;kill segment %V

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"The function ",X," already exists." Line Location: CONF+9
Function Call: WRITE	Prompt: !!,"X => ",X Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"X => ",X,!,"INV(17.6) => ",INV("ZPD17.6") Line Location: TEST+3

Name	Line Occurrences (* Changed, ! Killed)
^INVD(4090.1 - [#4090.1]	DEL+7
^INVD(4090.2 - [#4090.2]	CONF+9

Name	Line Occurrences
AD1	ADDR+13
ADDR	TEST+2, TEST+3

Name	Field # of Occurrence
>> %	CONF+9, DEL+10
%D	KILL~, KILL+6, KILL+10
%I	KILL~, KILL+4
%I(	KILL+7, KILL+10
%V	KILL~, KILL+3*, KILL+5, KILL+6, KILL+9, KILL+10
>> DA	CONF+9, DEL+7
DTIME	DEL+10
>> DWD	DEL+8
I	KILL+3~, KILL+7, KILL+10
>> INMODE	TEST+1*
INV	TEST+2!, TEST+3!, KILL+5, KILL+8, KILL+9
INV("ZPD17.4"	TEST+2*
INV("ZPD17.5"	TEST+2, TEST+3
INV("ZPD17.6"	TEST+3
ITER	ADDR~, ADDR+13
>> SUBDELIM	TEST+1*
SUBSCR	ADDR~, ADDR+11*, ADDR+14, ADDR+15, AD1+1, AD1+2
X	CONF+9!, ADDR+14, ADDR+15!, AD1+1, AD1+2!, TEST+2, TEST+3, KILL+3~, KILL+5, KILL+9*
Y	KILL+3~, KILL+7*, KILL+9
Z	KILL+3~, KILL+8, KILL+9, KILL+10, KILL+11