Routine: BCHEXDI3

Information

BCHEXDI3 ; IHS/CMI/LAB - initialization part III ;

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

Package	Total	Caller Graph
IHS RPMS CHR System	4	BCHEXD BCHEXDI2 BCHEXERR BCHEXRE

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 CHR records to be sent to HQ.",!,"The data transmitted will include everything entered since the last time",!,"data was exported 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: ! Line Location: FRLP+1
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)
^BCHDTER - [#90002.93]	ERRBULL+2
^BCHDTER("B"	ERRBULL+2
^BCHXLOG - [#90002.91]	CURRUN+2
^DD("DD"	CURRUN+8, CURRUN+9

Name	Field # of Occurrence
%	CURRUN+11!
>> %DT	DATECHK+2*
%H	CURRUN+11!
%I	CURRUN+11!
>> BCH("DATE"	CURRUN+11!
>> BCH("FIRST RU	N" , FIRSTRUN+1, FRLP+7
>> BCH("LAST BEG	IN" , CURRUN+11!
>> BCH("LAST LOG	" , CURRUN+2, CURRUN+11!
>> BCH("QFLG DES	" , ERRBULL+2*, ERRBULL+3, ERRBULL1+2!
>> BCH("QFLG"	CURRUN+4, CURRUN+6, FRLP+2, FRLP+3, FRLP+5, DATECHK+1, ERRBULL+1, ERRBULL+2, ERRBULL+3
>> BCH("QFLG1"	ERRBULL+2*, ERRBULL1+2!
>> BCH("RDFN"	CURRUN+11!
>> BCH("RUN BEGI	N" , CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FIRSTRUN+1, FRLP+6, ERRBULL+5, ERRBULL+6
>> BCH("RUN END"	, CURRUN+7*, CURRUN+9
>> BCH("RUN LOG"	, ERRBULL+4
>> BCH("X"	CURRUN+8, CURRUN+10, CURRUN+11!, FRLP+4, DATECHK+1, DATECHK+2
>> BCH("Y"	CURRUN+9*, CURRUN+10, CURRUN+11!
>> BCH("Z"	CURRUN+11!
>> BCHO("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+2
>> 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+3*
XMB(3	ERRBULL+3*
XMB(4	ERRBULL+4*
XMB(5	ERRBULL+5, ERRBULL+6
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+3, FRLP+4, FRLP+5, FRLP+6 , DATECHK+2, DATECHK+3, ERRBULL+6, ERRBULL1
>> ZTQUEUED	INFORM+1, CURRUN+6, CURRUN+10, FIRSTRUN+1