Routine: AMHEXDI3

Information

AMHEXDI3 ; 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	4	AMHEXD AMHEXDI2 AMHEXERR AMHEXRE

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.",! 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)
^AMHDTEC(	ERRBULL+1
^AMHDTEC("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