Routine: BDW1VBLI

Information

BDW1VBLI ;IHS/CMI/LAB - Initialization for DW Visit backloading;

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	6	^%DTC FILE^DICN DT^DICRW ^DIE ^DIK ^DIR
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
IHS VA Utilities	2	^XBFMK ^XBGSAVE
IHS Generic Interface System	1	$$DATE^INHUT
IHS Support HL7 Interfaces	1	$$CHK^BHLBCK

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Data Warehouse Export System	5	BDW1VBL BDW1VBLZ BDWDDR BDWRDR BDWREDO

Entry Points

Name	Comments	DBIA/ICR reference
GETLAST	;
GIS	;EP-- check background jobs for gis
D	;
QERR	;
QUEUE1	;
WRITE()	;EP use XBGSAVE to save the temp global (BDWDATA) to a delimited ; file that is exported to the DW system at 127.0.0.1
RERR	;
GETLOG	;
GENLOG	;
TAXCHK	;EP
QUEUE	;EP
START	;
EERR	;
BASICS	;EP BASIC INITS
DONE	;
LAB	;
ERROR	;
CHKSITE	;EP
VAUDIT	;
TAXS	;
PAGE	;

External References

Name	Field # of Occurrence
^%DTC	WRITE+10
HOME^%ZIS	BASICS+1
^%ZTLOAD	QUEUE1+3
$$CHK^BHLBCK	GIS+5
FILE^DICN	GENLOG+3
DT^DICRW	WRITE+8
^DIE	QUEUE1+7, WRITE+15
^DIK	QUEUE+4, QUEUE1+5
^DIR	VAUDIT+3, D+1, QUEUE+2, DONE+1, PAGE+1
$$DATE^INHUT	WRITE+5
^XBFMK	GENLOG+1, GENLOG+5, GENLOG+7
^XBGSAVE	WRITE+19
$$FMADD^XLFDT	GETLAST+4
$$FMTE^XLFDT	GETLOG+1, GETLOG+9, D+1
$$NOW^XLFDT	WRITE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This routine will generate IHS Data Warehouse HL7 messages" Line Location: START+1
Function Call: WRITE	Prompt: !,"for the purpose of backloading the data warehouse with several years worth",!,"of encounter data.",! Line Location: START+2
Function Call: WRITE	Prompt: !,"Due to the time it takes to process encounters for export it is suggested that",!,"you do the export in increments. For example, you can export 6 months worth",!,"of encounters each day until you are done.",! Line Location: START+3
Function Call: WRITE	Prompt: !,"Encounters from October 1, 2000 through ",$$FMTE^XLFDT($P(^BDWSITE(1,0),U,2))," will be exported",!,"to the Data Warehouse before you can begin the normal data warehouse",!,"export process." Line Location: GETLOG+1
Function Call: WRITE	Prompt: " This site has approximately ",$P(^BDWSITE(1,0),U,5)," encounters to export ",!,"via this special export process." Line Location: GETLOG+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"***ERROR ENCOUNTERED***",!,"The last DW DW never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",! Line Location: EERR+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Data Warehouse Export is currently running!!" Line Location: RERR+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Data Warehouse Export is already queued to run!!" Line Location: QERR+2
Function Call: WRITE	Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",! Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued!!",1:"Request cancelled") Line Location: QUEUE1+4
Function Call: WRITE	Prompt: !,"Okay, you '^'ed out or timed out so I'm deleting the Log entry and quitting.",! Line Location: QUEUE1+5
Function Call: WRITE	Prompt: !!,"In order for the Data Warehouse software to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:" Line Location: TAXCHK+13
Function Call: WRITE	Prompt: !!,"Error generating new log entry." Line Location: GENLOG+5
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Routine Call	%ZIS Line Location: BASICS+1
Routine Call	DIE Line Location: QUEUE1+7 WRITE+15
Routine Call	DIR Line Location: VAUDIT+3 D+1 QUEUE+2 DONE+1 PAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAXCHK+7
^ATXAX("B"	TAXCHK+5, TAXCHK+6
^ATXLAB - [#9002228]	TAXCHK+11
^ATXLAB("B"	TAXCHK+9, TAXCHK+10
^AUTTLOC - [#9999999.06]	BASICS+3, CHKSITE+3, WRITE+12
^AUTTSITE(1	CHKSITE+2, CHKSITE+3, WRITE+12
^BDWBLOG(	GETLOG+8, GETLAST+1, GETLAST+3, GETLAST+4, ERROR+2
^BDWBLOG(0	GETLOG+3, GETLOG+5
^BDWDATA	WRITE+23!, WRITE+26!, WRITE+5*
^BDWSITE(1	GETLOG+1, GETLOG+2, GETLOG+10, D+1, BASICS+4, CHKSITE+4, CHKSITE+5, CHKSITE+6
^INRHD("B"	BASICS+7
^XTMP("BDWBLOG"	CHKSITE+1

Label References

Name	Line Occurrences
@(	ERROR+4
BASICS	START+5
CHKSITE	START+6
D	GETLOG+16
EERR	ERROR+3
ERROR	GETLAST+5
GENLOG	START+11
GETLAST	GETLOG+12
GETLOG	START+8
GIS	START+12
PAGE	TAXCHK+15
QUEUE	START+14
QUEUE1	QUEUE+3
TAXCHK	BASICS+8
VAUDIT	START+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TAXCHK+2~, TAXCHK+3!, TAXCHK+12!
A(	TAXCHK+5, TAXCHK+7, TAXCHK+9, TAXCHK+11, TAXCHK+14, TAXCHK+16
>> APCDOVRR	BASICS+5*
BDW	BASICS+2!
BDW("COUNT"	BASICS+6*
BDW("DEL"	BASICS+6*
BDW("DEMO"	BASICS+6*
BDW("DNS"	BASICS+4*
BDW("LAST LOG	" , GETLAST+1*, GETLAST+2, GETLAST+3, GETLAST+4, ERROR+2
BDW("MFI"	BASICS+6*
BDW("NO CAT"	BASICS+6*
BDW("NO LOC"	BASICS+6*
BDW("NO PAT"	BASICS+6*
BDW("NO TYPE"	, BASICS+6*
BDW("PREV STA	TUS" , ERROR+2*, ERROR+3, ERROR+4
BDW("QFLG"	START+7, START+9, GETLOG+13, ERROR+1, EERR+1, RERR+1, QERR+1, D+2, BASICS+3, CHKSITE+1* , CHKSITE+2, CHKSITE+3, CHKSITE+4, CHKSITE+5, CHKSITE+8, QUEUE+4, QUEUE1+5, GENLOG+5
BDW("REG"	BASICS+6*
BDW("RUN BEGI	N" , GETLAST+2, GETLAST+4, D+1, GENLOG+3
BDW("RUN END"	, D+3*, GENLOG+3
BDW("RUN LOCA	TION" , BASICS+3*
BDW("RUN LOG"	, QUEUE+4, QUEUE1+5, QUEUE1+7, WRITE+13, WRITE+15, GENLOG+6*
BDW("SKIP"	BASICS+6*
BDW("TXS"	BASICS+6*
BDW("VISITS"	BASICS+6*
BDW("VPROC"	BASICS+6*
BDW("ZERO"	BASICS+6*
BDWASU	WRITE+4~, WRITE+12*, WRITE+13
>> BDWBIEN	GETLAST+2*
>> BDWBS	BASICS+1*
BDWE	BASICS+2!
BDWERRC	BASICS+2!, BASICS+6*
BDWGISI	GIS+2~, GIS+3*, GIS+5
BDWGISS	GIS+4~, GIS+5*
>> BDWIEDST	BASICS+7*
BDWJUL	WRITE+4~, WRITE+11*
>> BDWO("QUEUE"	QUEUE1+6*
BDWQUIT	TAXCHK+1!, TAXCHK+14, TAXCHK+15, PAGE+1*
BDWS	BASICS+2!
BDWT	BASICS+2!
BDWV	BASICS+2!
>> BDWVA	VAUDIT+1, VAUDIT+2, VAUDIT+5*
>> BDWVA("COUNT"	BASICS+6, WRITE+5
BDWX	GETLOG+8, GETLOG+9, TAXCHK+2~, TAXCHK+4, TAXCHK+5, TAXCHK+6, TAXCHK+7, TAXCHK+8, TAXCHK+9, TAXCHK+10 , TAXCHK+11, TAXCHK+12!, TAXCHK+14, TAXCHK+16
>> BDWY	GETLOG+8*, GETLOG+9
D0	GENLOG+2!, GENLOG+4!
DA	VAUDIT+3!, D+1!, QUEUE+4!, QUEUE1+5!, QUEUE1+7!, WRITE+14~, WRITE+15!
DD	GENLOG+2!, GENLOG+4!
DIADD	GENLOG+3*, GENLOG+4!
DIC	GENLOG+3*, GENLOG+4!
DIC("DR"	GENLOG+3*
DIC(0	GENLOG+3*
DIE	QUEUE1+7!, WRITE+14~, WRITE+15!
DIK	QUEUE+4!, QUEUE1+5!
DIR	VAUDIT+3!, D+1!, QUEUE+2!, DONE+1!, PAGE+1!
DIR("A"	VAUDIT+3, D+1, QUEUE+2, DONE+1
DIR("B"	VAUDIT+3, QUEUE+2
DIR(0	VAUDIT+3, D+1, QUEUE+2, DONE+1, PAGE+1*
>> DIRUT	VAUDIT+4, D+2, QUEUE+2, QUEUE+4, DONE+1
DLAYGO	GENLOG+3*, GENLOG+4!
DO	GENLOG+2!, GENLOG+4!
DR	QUEUE1+7!, WRITE+14~, WRITE+15!
DT	WRITE+4~, WRITE+8, WRITE+9
>> DTOUT	PAGE+1
>> DUOUT	QUEUE+2, DONE+1
DUZ	GENLOG+3
DUZ(2	BASICS+3, CHKSITE+5, GENLOG+3
I	TAXCHK+2~, TAXCHK+6, TAXCHK+7, TAXCHK+10, TAXCHK+11, TAXCHK+12!
IO	DONE+1, PAGE+1
IO(0	DONE+1, PAGE+1
>> IOBS	BASICS+1
IOSL	TAXCHK+15
IOST	DONE+1, PAGE+1
J	TAXCHK+2~, TAXCHK+4, TAXCHK+8
>> T	GETLOG+8, GETLOG+9, GETLOG+10, TAXCHK+4, TAXCHK+8
U	GETLOG+1, GETLOG+2, GETLOG+9, GETLOG+10, GETLAST+3, GETLAST+4, ERROR+2, D+1, BASICS+3, BASICS+4 , CHKSITE+3, CHKSITE+5, CHKSITE+6, TAXCHK+16, WRITE+12
X	GETLAST+1, WRITE+4~, WRITE+11, GENLOG+3
X1	WRITE+4~, WRITE+9*
X2	WRITE+4~, WRITE+9*
>> XBFLG	WRITE+21, WRITE+25, WRITE+32
>> XBFLG(1	WRITE+26, WRITE+27, WRITE+29
XBFLT	WRITE+3~, WRITE+6*
XBFN	WRITE+3~, WRITE+13*, WRITE+15
XBGL	WRITE+3~, WRITE+6*
XBMED	WRITE+3~, WRITE+6*
XBNAR	WRITE+3~, WRITE+7*
XBQ	WRITE+3~, WRITE+6*
XBQTO	WRITE+3~
>> XBS1	WRITE+18*
XBUF	WRITE+3~
Y	VAUDIT+5, D+3, QUEUE+3, TAXCHK+2~, TAXCHK+4, TAXCHK+5, TAXCHK+7, TAXCHK+8, TAXCHK+9, TAXCHK+11 , TAXCHK+12!, GENLOG+5, GENLOG+6, PAGE+1
Z	TAXCHK+2~, TAXCHK+4, TAXCHK+8, TAXCHK+12!
>> ZTDESC	QUEUE1+2*
>> ZTDTH	QUEUE1+2*
>> ZTIO	QUEUE1+2*
>> ZTQUEUED	GIS+1, BASICS+1, CHKSITE+1, CHKSITE+2, CHKSITE+3, CHKSITE+4, CHKSITE+5, CHKSITE+7, WRITE+22, WRITE+26 , WRITE+27, WRITE+28, WRITE+29
>> ZTRTN	QUEUE1+1*
>> ZTSAVE("APCD*"	QUEUE1+2*
>> ZTSAVE("BDW*"	QUEUE1+2*
ZTSK	QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+8!

Marked Items

Name	Field # of Occurrence
$T(@T+J	TAXCHK+4, TAXCHK+8

Customize PDF page

Package: Data Warehouse Export System

Routine: BDW1VBLI

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items