Routine: BDWRDRI3

Package	Total	Call Graph
VA Fileman	2	DD^%DT C^%DTC
MailMan	1	^XMB

Package	Total	Caller Graph
Data Warehouse Export System	1	BDWREDO

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will generate IHS Data Warehouse records" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"for visits posted between a specified range of dates. 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 (excluding date range re-exports).",! Line Location: FIRSTRUN+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("ADWO"	FIRSTRUN+3
^BDWERRC - [#90212.2]	ERRBULL+1
^BDWERRC("B"	ERRBULL+1
^BDWSITE(1	CURRUN+5
^BDWXLOG - [#90213]	CURRUN+2
^DD("DD"	CURRUN+8, CURRUN+9

Name	Line Occurrences
ERRBULL1	ERRBULL+4
FIRSTRUN	CURRUN+3

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