Routine: AMHEYDI3

Information

AMHEYDI3 ; IHS/CMI/LAB - initialization part III AUGUST 14, 1992 ;

Package	Total	Call Graph
VA Fileman	3	(,DD)^%DT C^%DTC ^DIR
MailMan	1	^XMB

Package	Total	Caller Graph
Mental Health Social Services	3	AMHEYD AMHEYDI2 AMHEYRE

Name	Comments	DBIA/ICR reference
FIRSTRUN	; FIRST RUN EVER (NO LOG ENTRY)
DATECHK	;
FRLP	;
INFORM	;EP - INFORM OPERATOR WHAT IS GOING TO HAPPEN
CURRUN	;EP - COMPUTE DATES FOR CURRENT RUN
ERRBULL1
ERRBULL	;ENTRY POINT - ERROR BULLETIN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will generate BH transactions to be sent to HQ.",!,"The transactions are for records posted since the last time you did an",!,"export up until yesterday.",!,"Both BH visit records and Suicide forms will be exported.",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"You may ""^"" out at any prompt and will be",!,"ask to confirm your entries prior to generating transactions." Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"No log entry. First run ever assumed.",! Line Location: FIRSTRUN+2
Function Call: WRITE	Prompt: !!,$S(Y>DT!(Y=DT):" Current or future date not allowed!",1:" Invalid date!"),$C(7) Line Location: DATECHK+3
Routine Call	DIR Line Location: FRLP+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHDTER - [#9002014.5]	ERRBULL+1
^AMHDTER("B"	ERRBULL+1
^AMHXLOG - [#9002014]	CURRUN+2
^DD("DD"	CURRUN+8, CURRUN+9

Name	Field # of Occurrence
%	CURRUN+11!
>> %DT	DATECHK+2*
%H	CURRUN+11!
%I	CURRUN+11!
>> AMH("DATE"	CURRUN+11!
>> AMH("FIRST RU	N" , FRLP+6*
>> AMH("LAST BEG	IN" , CURRUN+11!
>> AMH("LAST LOG	" , CURRUN+2, CURRUN+11!
>> AMH("QFLG DES	" , ERRBULL+1*, ERRBULL+2, ERRBULL1+2!
>> AMH("QFLG"	CURRUN+4, CURRUN+6, FIRSTRUN+1, FRLP+2, FRLP+4, DATECHK+1, ERRBULL+1, ERRBULL+2
>> AMH("QFLG1"	ERRBULL+1*, ERRBULL1+2!
>> AMH("RDFN"	CURRUN+11!
>> AMH("RUN BEGI	N" , CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FRLP+5*, ERRBULL+4, ERRBULL+5
>> AMH("RUN END"	, CURRUN+7*, CURRUN+9
>> AMH("RUN LOG"	, ERRBULL+3
>> AMH("X"	CURRUN+8, CURRUN+10, CURRUN+11!, FRLP+3, DATECHK+1, DATECHK+2
>> AMH("Y"	CURRUN+9*, CURRUN+10, CURRUN+11!
>> AMH("Z"	CURRUN+11!
>> AMHO("SCHEDULED"	FIRSTRUN+1
DA	FRLP+1!
DIR	FRLP+1!
DIR("A"	FRLP+1*
DIR(0	FRLP+1*
>> DIRUT	FRLP+2
DT	CURRUN+5, DATECHK+3, ERRBULL1
U	CURRUN+2, ERRBULL+1
>> X	CURRUN+2, CURRUN+5, DATECHK+2*
>> X1	CURRUN+2, CURRUN+5
>> X2	CURRUN+2, CURRUN+5
XM1	ERRBULL1+2!
XMA	ERRBULL1+2!
XMB	ERRBULL1*, ERRBULL1+2!
XMB(1	ERRBULL1*
XMB(2	ERRBULL+2*
XMB(3	ERRBULL+2*
XMB(4	ERRBULL+3*
XMB(5	ERRBULL+4, ERRBULL+5
XMDT	ERRBULL1+2!
XMDUZ	ERRBULL1+1*, ERRBULL1+2!
XMM	ERRBULL1+2!
>> Y	CURRUN+2, CURRUN+5, CURRUN+6, CURRUN+7, CURRUN+8, CURRUN+9, FRLP+2, FRLP+3, FRLP+4, FRLP+5 , DATECHK+2, DATECHK+3, ERRBULL+5, ERRBULL1
>> ZTQUEUED	INFORM+1, CURRUN+6, CURRUN+10, FIRSTRUN+1