Routine: INHUTC2

Information

INHUTC2 ;bar; 29 May 97 14:50; Interface Criteria Internal Utilities (DD)

Package	Total	Call Graph
IHS Generic Interface System	4	($$LOCK,$$RUN)^INHUTC $$WORKREC^INHUTC1 $$RELDT^INHUTC2 $$RELDT^INHUTC21

Package	Total	Caller Graph
IHS Generic Interface System	5	INHP INHUTC INHUTC2 INHUTC6 INHUTC7

Name	Comments	DBIA/ICR reference
RDTGET	; update a WindowMan Screen while editing, PART 1 ; assumes being called from WindowMan and those variables are defined ; Called before RDTSET to setup the proper values
TYPE(INTYPE,INSRCH)	; validate CRITERIA TYPE field ; called from input transform file 4001.1, field .05 ; also used in criteria mgmt functions
TASK	; this tag is the entry point when called thru taskman ; input: INOPT array as described at the top of INHUTC, required.
RELDT(INSTR,INFMT,INPMT)	; convert a relative date text string to FM
SPACEBAR(X)	; return x for spacebar in lookup ; called from PRELK node for file 4001.1, also used in criteria mgmt ; functions. INOPT array must be defined in env.
AUSER(INDA,INDUZ,INTYPE,INCTRL,INAPP,INFUNC,INDEL)	; manage AUSER x-ref
RDTSET	; update a WindowMan Screen while editing, PART 2 ; assumes being called from WindowMan and those variables are defined ; RDTGET must be called first and on a separate line in a POST field
RELDATE(INCRITDA)	; update relative date for start and end date
CLRLK(INOPT,INDA)	; clear all accumulated locks

Name	Field # of Occurrence
$$LOCK^INHUTC	CLRLK+11
$$RUN^INHUTC	TASK+2
$$WORKREC^INHUTC1	SPACEBAR+8
$$RELDT^INHUTC2	RDTSET+4, RDTSET+5, RDTSET+6, RDTSET+7, RELDATE+6, RELDATE+7, RELDATE+9, RELDATE+10
$$RELDT^INHUTC21	RELDT+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"K ^DIZ(4001.1,""AUSER"","_INDUZ_","_INTYPE_","_INCTRL_","_INAPP_","_INFUNC_","_INDA_")" Line Location: AUSER+24
Function Call: WRITE	Prompt: !,"S ^DIZ(4001.1,""AUSER"","_INDUZ_","_INTYPE_","_INCTRL_","_INAPP_","_INFUNC_","_INDA_")=""""" Line Location: AUSER+29

Name	Line Occurrences (* Changed, ! Killed)
^DIZ(4001.1 - [#4001.1]	AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, AUSER+23!, AUSER+28, RELDATE+5, RELDATE+6, RELDATE+7* , RELDATE+9, RELDATE+10

Name	Line Occurrences
AUSER	AUSER+27

Name	Field # of Occurrence
>> %	CLRLK+11, TASK+2
>> DIC("S"	SPACEBAR+10*
>> DIPA("AUENDTR"	RDTSET+7
>> DIPA("AUSTDTR"	RDTSET+6
>> DIPA("ENDTR"	RDTSET+5
>> DIPA("STDTR"	RDTSET+4
>> DWDIPA(	RDTGET+5, RDTGET+7
>> DWSFLD(	RDTSET+5, RDTSET+6, RDTSET+7*
>> DWSFLD(1	RDTSET+4*
H	CLRLK+6~, CLRLK+8, CLRLK+9, CLRLK+11
I	CLRLK+6~, CLRLK+11*
INAE	RELDATE+3~, RELDATE+5*, RELDATE+10
INAPP	AUSER~, AUSER+18*, AUSER+23, AUSER+27, AUSER+28
INAS	RELDATE+3~, RELDATE+5*, RELDATE+9
INCRITDA	RELDATE~, RELDATE+2, RELDATE+5, RELDATE+6, RELDATE+7, RELDATE+9, RELDATE+10
INCTRL	AUSER~, AUSER+16*, AUSER+23, AUSER+27, AUSER+28
INDA	CLRLK~, CLRLK+9, AUSER~, AUSER+10, AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, AUSER+23 , AUSER+27, AUSER+28
INDEL	AUSER~, AUSER+22
INDUZ	AUSER~, AUSER+12*, AUSER+23, AUSER+27, AUSER+28
INE	RELDATE+3~, RELDATE+5*, RELDATE+7
INFMT	RELDT~, RELDT+5, RELDT+7, RELDT+9*, RELDT+10
INFUNC	AUSER~, AUSER+20*, AUSER+23, AUSER+27, AUSER+28
INNULL	AUSER+11~, AUSER+13, AUSER+15, AUSER+17, AUSER+19, AUSER+21, AUSER+26~
INOPT	CLRLK~, TASK+2, SPACEBAR+7, SPACEBAR+8
INOPT("LOCK"	CLRLK+7, CLRLK+8, CLRLK+9*, CLRLK+10!
INPMT	RELDT~, RELDT+10
INS	RELDATE+3~, RELDATE+5*, RELDATE+6
INSRCH	TYPE~, TYPE+10
INSTR	RELDT~, RELDT+10
INTYPE	AUSER~, AUSER+14*, AUSER+23, AUSER+27, AUSER+28, TYPE~, TYPE+9, TYPE+10, TYPE+11
INY	SPACEBAR+8~, SPACEBAR+10
U	AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, TYPE+10, TYPE+11, RELDATE+5, RELDATE+9, RELDATE+10
X	SPACEBAR~, SPACEBAR+7, SPACEBAR+11
Y	CLRLK+6~, CLRLK+7*, CLRLK+8, CLRLK+9, CLRLK+10, CLRLK+11