Routine: BDWRDRI2

Information

BDWRDRI2 ; IHS/CMI/LAB - INIT FOR DW EXPORT ;

Source Information

Source file <BDWRDRI2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMADD^XLFDT
MailMan	1	^XMB

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Data Warehouse Export System	4	BDWCVAR BDWRDR BDWRDRI BDWRED1

Entry Points

Name	Comments	DBIA/ICR reference
ERRBULL1
GENLOG	; GENERATE NEW LOG ENTRY
QERR	;
CONFIRM	;EP SEE IF THEY REALLY WANT TO DO THIS
CHKVISIT	;EP CHECK VISIT "ADWO" XREF
RERR	;
GETLOG	;EP GET LAST LOG ENTRY
DISPLOG	; DISPLAY LAST LOG DATA
ERRBULL	;ENTRY POINT - ERROR BULLETIN
START	;
EERR	;
FERR	;
CURRUN	;EP - COMPUTE DATES FOR CURRENT RUN
CFLP
ERROR	;
CHKOLD	;EP - CHECK FOR DATA LEFT BY OLD RUN
INFORM	;EP - INFORM OPERATOR WHAT IS GOING TO HAPPEN
FIRSTRUN	; FIRST RUN EVER (NO LOG ENTRY)

External References

Name	Field # of Occurrence
DD^%DT	CURRUN+2, ERRBULL+5, ERRBULL1
C^%DTC	CURRUN+2
^DIC	GENLOG+4
^DIR	CFLP+1
^XBFMK	GENLOG+1, GENLOG+5, GENLOG+7
$$FMADD^XLFDT	CURRUN+5, FIRSTRUN+4
^XMB	ERRBULL1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"***ERROR ENCOUNTERED***",!,"The last Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",! Line Location: EERR+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Data Warehouse Transmission is currently running!!" Line Location: RERR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Data Warehouse Transmission is already queued to run!!" Line Location: QERR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The last DATA WAREHOUSE Export failed and has never been reset.",!,"See your site manager for assistence",! Line Location: FERR+4
Function Call: WRITE	Prompt: !!,"Last run was for ",BDW("LAST BEGIN")," through ",BDW("LAST END"),"." Line Location: DISPLOG+3
Function Call: WRITE	Prompt: !,"The location for this run is ",$P(^DIC(4,DUZ(2),0),U),".",! Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !!,"This routine will generate IHS Data Warehouse HL7 messages" 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
Routine Call	DIC Line Location: GENLOG+4
Routine Call	DIR Line Location: CFLP+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BDWXLOG - [#90213]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("ADWO"	CHKVISIT+2, CHKVISIT+3, CHKVISIT+7, FIRSTRUN+3
^BDWERRC - [#90212.2]	ERRBULL+1
^BDWERRC("B"	ERRBULL+1
^BDWSITE(1	FIRSTRUN+4
^BDWXLOG - [#90213]	GETLOG+1, GETLOG+4, ERROR+2, DISPLOG+1, CURRUN+2
^DD("DD"	DISPLOG+1, GENLOG+3, CURRUN+8, CURRUN+9
^DIC(4 - [#4]	CONFIRM+2
^XTMP("BDWDR"	CHKOLD+1
^XTMP("BDWREDO"	CHKOLD+2

Label References

Name	Line Occurrences
@(	ERROR+4
CHKOLD	START+4
CHKVISIT	START+8
CONFIRM	START+10
CURRUN	START+6
DISPLOG	GETLOG+3
EERR	ERROR+3
ERRBULL1	ERRBULL+4
ERROR	GETLOG+5
FIRSTRUN	CURRUN+3
GENLOG	START+12
GETLOG	START+2
INFORM	START+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CURRUN+11!
%H	CURRUN+11!
%I	CURRUN+11!
>> BDW("DATE"	CURRUN+11!
>> BDW("FIRST RU	N" , FIRSTRUN+5*
>> BDW("LAST BEG	IN" , DISPLOG+1*, DISPLOG+3, CURRUN+11!
>> BDW("LAST END	" , DISPLOG+1*, DISPLOG+3
>> BDW("LAST LOG	" , GETLOG+1*, GETLOG+2, GETLOG+4, ERROR+2, DISPLOG+1, CURRUN+2, CURRUN+11!
>> BDW("PREV STA	TUS" , ERROR+2*, ERROR+3, ERROR+4
>> BDW("QFLG DES	" , ERRBULL+1*, ERRBULL+2, ERRBULL1+2!
>> BDW("QFLG"	START+3, START+5, START+7, START+9, START+11, CHKOLD+1, CHKOLD+2, ERROR+1, EERR+1, RERR+1* , QERR+1, FERR+1, CHKVISIT+4, CFLP+2, GENLOG+5, CURRUN+4, CURRUN+6, FIRSTRUN+1*, ERRBULL+1, ERRBULL+2
>> BDW("QFLG1"	ERRBULL+1*, ERRBULL1+2!
>> BDW("RDFN"	CURRUN+11!
>> BDW("RUN BEGI	N" , CHKVISIT+4, CHKVISIT+6, GENLOG+3, CURRUN+1, CURRUN+2, CURRUN+3, CURRUN+6, CURRUN+8, FIRSTRUN+3* , FIRSTRUN+4*, ERRBULL+4, ERRBULL+5
>> BDW("RUN END"	, GENLOG+3, CURRUN+7*, CURRUN+9
>> BDW("RUN LOG"	, GENLOG+6*, 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
>> BDWV("V DATE"	, CHKVISIT+1, CHKVISIT+2, CHKVISIT+3, CHKVISIT+4, CHKVISIT+6, CHKVISIT+7*
DA	CFLP+1!
DIADD	GENLOG+1!, GENLOG+3*, GENLOG+4!
DIC	GENLOG+3*, GENLOG+4!
DIC("DR"	GENLOG+3*
DIC(0	GENLOG+3*
DIR	CFLP+1!
DIR("A"	CFLP+1*
DIR("B"	CFLP+1*
DIR(0	CFLP+1*
DLAYGO	GENLOG+3*, GENLOG+4!
DR	GENLOG+4!
DT	CURRUN+5, ERRBULL1
DUZ	GENLOG+3
DUZ(2	CONFIRM+2, GENLOG+3
U	GETLOG+1, GETLOG+4, ERROR+2, DISPLOG+1, CONFIRM+2, CURRUN+2, FIRSTRUN+4, ERRBULL+1
>> X	GETLOG+1, GENLOG+3, CURRUN+2
>> X1	CURRUN+2*
>> X2	CURRUN+2*
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	DISPLOG+1, CFLP+2, GENLOG+3, GENLOG+5, GENLOG+6, CURRUN+2, CURRUN+5, CURRUN+6, CURRUN+7, CURRUN+8* , CURRUN+9, ERRBULL+5, ERRBULL1*
>> ZTQUEUED	CHKOLD+1, CHKOLD+2, EERR+3, RERR+3, QERR+3, FERR+3, DISPLOG+2, CHKVISIT+4, CONFIRM+1, GENLOG+2 , INFORM+1, CURRUN+6, CURRUN+10, FIRSTRUN+1

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWRDRI2

Call Graph Total: 7

Caller Graph Total: 4