Routine: BCHEXC

Information

BCHEXC ; IHS/CMI/LAB - MAIN DRIVER FOR CHR EXPORT RECORD CHECK ;

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCH EXPORT CHECK RECORDS

Name	Comments	DBIA/ICR reference
FIRSTRUN	; FIRST RUN EVER (NO LOG ENTRY)
INFORM	;
EOJ	;
FRLP	;
START	;
CURRUN	;EP - COMPUTE DATES FOR CURRENT RUN
ZIS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Ending date cannot be before beginning date!",$C(7) Line Location: CURRUN+6
Function Call: WRITE	Prompt: !!,"This report will review records that were posted between ",BCH("X"),!," and ",BCH("Y"),", inclusive." Line Location: CURRUN+10
Function Call: WRITE	Prompt: !! Line Location: CURRUN+13
Function Call: WRITE	Prompt: !!,"okay, bye." Line Location: CURRUN+15
Function Call: WRITE	Prompt: !!,"This program will review all records that have been posted to the CHR",!,"database since that last export was done. It will review all records that",!,"were posted from the day after the last date of that run up until 2 days ago.",!! Line Location: INFORM+2
Routine Call	DIR Line Location: CURRUN+13 FRLP+1

Name	Line Occurrences (* Changed, ! Killed)
^BCHXLOG - [#90002.91]	CURRUN+2
^DD("DD"	CURRUN+8, CURRUN+9

Name	Field # of Occurrence
%	CURRUN+11!
%H	CURRUN+11!
%I	CURRUN+11!
BCH	EOJ+1!
BCH("DATE"	CURRUN+11!
BCH("FIRST RU	N" , FRLP+4*
BCH("LAST BEG	IN" , CURRUN+11!
BCH("LAST LOG	" , CURRUN+2, CURRUN+11!
BCH("QFLG"	START+2, START+4, CURRUN+4, CURRUN+6, FRLP+2*
BCH("RDFN"	CURRUN+11!
BCH("X"	CURRUN+8*, CURRUN+10, CURRUN+11!
BCH("Y"	CURRUN+9*, CURRUN+10, CURRUN+11!
BCH("Z"	CURRUN+11!
BCH80D	EOJ+1!
BCH80E	EOJ+1!
BCHACT	EOJ+1!
BCHAFF	EOJ+1!
BCHAGE	EOJ+2!
BCHBD	CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FRLP+3*, EOJ+1!
BCHBDD	EOJ+1!
BCHBT	EOJ+1!
BCHBTH	EOJ+1!
BCHC	EOJ+1!
BCHCAT	EOJ+1!
BCHCOM	EOJ+1!
BCHCPOV	EOJ+2!
BCHDATE	EOJ+1!
BCHDISC	EOJ+1!
BCHDUZ2	EOJ+1!
BCHE	EOJ+1!
BCHED	CURRUN+7*, CURRUN+9, EOJ+1!
BCHEDD	EOJ+1!
BCHHRCN	EOJ+1!
BCHINI	EOJ+1!
BCHJOB	EOJ+1!
BCHLENG	EOJ+2!
BCHLOC	EOJ+1!
BCHNAME	EOJ+1!
BCHO	EOJ+1!
BCHODAT	EOJ+1!
BCHPAT	EOJ+1!
BCHPG	EOJ+1!
BCHPOVD	EOJ+2!
BCHPROG	EOJ+1!
BCHQUIT	EOJ+1!
BCHR	EOJ+1!
BCHRCNT	EOJ+1!
BCHREC	EOJ+2!
BCHSD	EOJ+1!
BCHTMP	EOJ+2!
BCHTX	EOJ+2!
BCHX	EOJ+2!
CLS	EOJ+2!
D0	EOJ+3!
DA	EOJ+3!
DFN	EOJ+1!
DIC	EOJ+3!
DIR	CURRUN+13!, FRLP+1!, EOJ+3!
DIR("A"	CURRUN+13, FRLP+1
DIR("B"	CURRUN+13*
DIR(0	CURRUN+13, FRLP+1
>> DIRUT	CURRUN+13, CURRUN+14, FRLP+1, FRLP+2
DT	CURRUN+5
>> DUOUT	CURRUN+13, FRLP+1
IOF	INFORM+1
U	CURRUN+2
X	CURRUN+2, EOJ+2!
>> X1	CURRUN+2*
>> X2	CURRUN+2*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	CURRUN+2, CURRUN+5, CURRUN+6, CURRUN+7, CURRUN+8, CURRUN+9, CURRUN+15, FRLP+3, EOJ+2!
Z	EOJ+2!