Routine: BDWDDR

Package	Total	Call Graph
Data Warehouse Export System	7	VA^BDW1VBL2 GIS^BDW1VBLI $$UIDV^BDWAID RUNTIME^BDWRDR ^BDWRDR2 (BASICS,CHKSITE)^BDWRDRI ^BDWRERR
VA Fileman	6	(,C,COMMA,NOW)^%DTC ^DIC DT^DICRW ^DIE (,IX1)^DIK ^DIR
IHS VA Utilities	4	$$VAL^XBDIQ1 ^XBFMK ^XBGSAVE EN^XBVK
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
IHS Patient	2	KILL^AUPNPAT $$UID^AUPNVSIT
IHS Generic Interface System	1	$$DATE^INHUT
IHS Support HL7 Interfaces	1	($$DW1HDR,$$DW1TRLR)^BHLEVENT

Package

Total

Call Graph

Data Warehouse Export System

VA^BDW1VBL2 GIS^BDW1VBLI $$UIDV^BDWAID RUNTIME^BDWRDR ^BDWRDR2 (BASICS,CHKSITE)^BDWRDRI ^BDWRERR

VA Fileman

(,C,COMMA,NOW)^%DTC ^DIC DT^DICRW ^DIE (,IX1)^DIK ^DIR

IHS VA Utilities

$$VAL^XBDIQ1 ^XBFMK ^XBGSAVE EN^XBVK

Kernel

HOME^%ZIS ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT

IHS Patient

KILL^AUPNPAT $$UID^AUPNVSIT

IHS Generic Interface System

$$DATE^INHUT

IHS Support HL7 Interfaces

($$DW1HDR,$$DW1TRLR)^BHLEVENT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
CONT	;continue or not
LOG	;
GENLOG	;generate new log entry
NLOG()	;get next log
QUEUE	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
SET
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
WRITE()	; use XBGSAVE to save the temp global (BDWDATA) to a delimited ; file that is exported to the DW system at 127.0.0.1
TR	;trailer report
V1	;go through each visit on this date
SETV	;set 1106
INTRO	;introductory text
VAUDIT	;
CHECK	;
DATE(D)	;EP ;IHS/CMI/LAB - new date format - format date in YYYYMMDD format
QUEUE1	;
ED	;
START	;Begin processing backload
S	;
XIT	;exit, eoj cleanup
C(X,X2,X3)	;
V	; Run by visit date
PROCESS	;EP - process new run
GETDATES	;
PROC	;

External References

Name	Field # of Occurrence
^%DTC	WRITE+10
C^%DTC	ED+5
COMMA^%DTC	C+2
NOW^%DTC	PROCESS+8, LOG+3
HOME^%ZIS	CONT+5
^%ZTLOAD	QUEUE1+3
KILL^AUPNPAT	XIT+4
$$UID^AUPNVSIT	PROC+3
VA^BDW1VBL2	SET+4
GIS^BDW1VBLI	PROCESS+1
$$UIDV^BDWAID	PROC+4
RUNTIME^BDWRDR	V+4
^BDWRDR2	PROC+12
BASICS^BDWRDRI	PROCESS+6
CHKSITE^BDWRDRI	START+11
^BDWRERR	PROC+10
$$DW1HDR^BHLEVENT	PROCESS+10
$$DW1TRLR^BHLEVENT	TR+36
^DIC	GENLOG+4
DT^DICRW	WRITE+8
^DIE	PROCESS+12, SETV+3, PROC+3, PROC+4, LOG+4, LOG+6, LOG+9, TR+38, QUEUE1+7, WRITE+15
^DIK	QUEUE+4, QUEUE1+5
IX1^DIK	LOG+10, TR+34
^DIR	BD+1, ED+1, VAUDIT+2, CONT+1, QUEUE+2, EOP+5
$$DATE^INHUT	WRITE+5
$$VAL^XBDIQ1	TR+2, TR+5, TR+6, TR+7
^XBFMK	START+1, V+3, SETV+3, PROC+3, PROC+4, LOG+11, TR+35, GENLOG+1, GENLOG+5, GENLOG+7 , XIT+2
^XBGSAVE	WRITE+20
EN^XBVK	START+1, XIT+3
$$FMTE^XLFDT	ED+7, TR+3, TR+27, GENLOG+3
$$NOW^XLFDT	WRITE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC(),80),! Line Location: START+4
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: START+5
Function Call: WRITE	Prompt: !,X Line Location: START+6
Function Call: WRITE	Prompt: !,"Please enter the date range for which the Data Warehouse HL7 messages",!,"should be generated.",! Line Location: GETDATES+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"Log entry ",$$NLOG," will be created and messages generated for visit",!,"date range ",$$FMTE^XLFDT(BDWBD)," to ",$$FMTE^XLFDT(BDWED),".",! Line Location: ED+7
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"Goodbye" Line Location: CONT+3
Function Call: WRITE	Prompt: !!,"Goodbye, no processing will occur.",! Line Location: CONT+9
Function Call: WRITE	Prompt: !,"Updating visit entries with export date....(" Line Location: SETV+2
Function Call: WRITE	Prompt: !!,"RPMS Site file not SET UP" Line Location: CHECK+1
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: !!,$C(7),$C(7),"Error creating log entry." Line Location: GENLOG+5
Routine Call	%ZIS Line Location: CONT+5
Routine Call	DIE Line Location: PROCESS+12 SETV+3 PROC+3 PROC+4 LOG+4 LOG+6 LOG+9 TR+38 QUEUE1+7 WRITE+15
Routine Call	DIC Line Location: GENLOG+4
Routine Call	DIR Line Location: BD+1 ED+1 VAUDIT+2 CONT+1 QUEUE+2 EOP+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	V1+1, PROC+1, PROC+3, PROC+4, PROC+8, PROC+9
^AUPNVSIT("B"	V+1, V1+1
^AUTTLOC - [#9999999.06]	TR+12, WRITE+12
^AUTTSITE(1	CHECK+1, GENLOG+3, WRITE+12
^BDWDATA	WRITE+24!, WRITE+27!, WRITE+5*
^BDWSITE(1	CHECK+2
^BDWTMP(	PROCESS+11, TR+37
^BDWXLOG - [#90213]	SET, SET+1, SET+2, TR+3, TR+4, TR+33, S+2*, NLOG+1
^DIC(4 - [#4]	LOC+1
^TMP($J	PROCESS+4!, SETV+3, PROC+5*, TR+10, TR+16, TR+17, TR+18, TR+25, TR+26, TR+27
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$C	TR+17, TR+18, TR+27
$$CTR	START+4, START+5
$$LOC	START+4
$$NLOG	ED+7
$$WRITE	V+6
CHECK	START+10
ED	ED+3
EOP	XIT+1
GENLOG	CONT+6
GETDATES	VAUDIT+3
LOG	V+5
PROC	V1+1
QUEUE	CONT+8
QUEUE1	QUEUE+3
S	TR+2, TR+3, TR+4, TR+5, TR+6, TR+7, TR+8, TR+9, TR+12, TR+13 , TR+14, TR+15, TR+19, TR+20, TR+21, TR+22, TR+23, TR+24, TR+27, TR+30 , TR+31
SET	PROC+9
V1	V+1
XIT	START+12, START+13, BD+2, ED+2, CONT+2, CONT+3, CONT+7, CONT+9, CONT+10, SETV+4

Name	Field # of Occurrence
^(0	V1+1, SET+2*, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PROCESS+8!, LOG+3
%H	PROCESS+8!
%I	PROCESS+8!
AUPNCPT	XIT+5!
BDW	PROCESS+5!
BDW("BT"	PROCESS+9*
BDW("COUNT"	LOG+1*, LOG+4
BDW("DEL"	LOG+8
BDW("DEMO"	LOG+8
BDW("MAIN TX	DATE" , PROCESS+8*, SETV+3
BDW("MFI"	LOG+8
BDW("NO CAT"	LOG+8
BDW("NO LOC"	LOG+8
BDW("NO PAT"	LOG+8
BDW("NO TYPE"	, LOG+8
BDW("QFLG"	START+2, START+12, LOG+4, LOG+6, LOG+9
BDW("REG"	LOG+6
BDW("RUN LOG"	, PROCESS+7, SET, SET+1, SET+2, LOG+4, LOG+6, LOG+8, LOG+10, TR+2 , TR+3, TR+4, TR+5, TR+6, TR+7, TR+33, TR+34, TR+36, TR+38, S+2 , GENLOG+6, WRITE+13, WRITE+15
BDW("RUN STAR	T" , PROCESS+8*, PROCESS+12
BDW("RUN STOP	" , LOG+3*, LOG+4
BDW("SKIP"	LOG+4
BDW("V DFN"	SETV+3, V1+1, PROC+1, PROC+3, PROC+4, PROC+5, PROC+8, PROC+9, SET+1, SET+2
BDW("VISITS"	LOG+1, LOG+6
BDW("VPROC"	PROC+6*, LOG+4
BDW("ZERO"	LOG+8
BDWASU	WRITE+4~, WRITE+12*, WRITE+13
>> BDWBD	BD+3*, ED+3, ED+5, ED+7, GENLOG+3
>> BDWBS	CONT+5*
>> BDWCNT	PROCESS+13*, SETV+3, PROC+7
>> BDWCNT1	PROCESS+13*
>> BDWCNT2	PROCESS+13*
>> BDWDATE	TR+1, TR+26, TR+27
>> BDWDDR	PROCESS+2*
BDWE	PROCESS+5!, SET+4
BDWE("ERROR"	PROC+10*
>> BDWED	ED+4*, ED+7, V+1, GENLOG+3
>> BDWERR	START+9, START+13, ED+6, CONT+4, CONT+7, CONT+9, CHECK+1, CHECK+2, QUEUE+4, QUEUE1+5* , GENLOG+5*
BDWERRC	PROCESS+5!
>> BDWIEDST	PROCESS+11, TR+37
BDWJUL	WRITE+4~, WRITE+11*
>> BDWLC	TR+1, TR+11, TR+33, S+1*, S+2
>> BDWLOC	TR+1, TR+10, TR+12, TR+16, TR+17, TR+18, TR+25, TR+26, TR+27
>> BDWLOCC	TR+1, TR+11, TR+12
>> BDWLOG	PROCESS+7, PROCESS+10, PROCESS+12, QUEUE+4, QUEUE1+5, QUEUE1+7, GENLOG+6*
>> BDWMODE	TR+1*
>> BDWMSGH	PROCESS+10*, PROCESS+11, PROCESS+12, LOG+6
>> BDWMSGT	TR+36*, TR+37, TR+38
>> BDWQUE	CONT+10, QUEUE1+6*
>> BDWRUN	CONT+4*, TR+38, QUEUE+4, QUEUE1+5
>> BDWSD	ED+5, PROCESS+15, V+1*, V1+1
>> BDWTOTV	PROCESS+3, SETV+1
>> BDWTYPE	TR+1, TR+16, TR+17, TR+18, TR+25*, TR+26, TR+27
>> BDWV("TX GENE	RATED" , PROC+5*, SET+1
>> BDWV("V DATE"	, PROC+11*
>> BDWV("V REC"	PROC+8*, PROC+9, PROC+11
>> BDWVA	VAUDIT+1, VAUDIT+4, SET+4
>> BDWVA("COUNT"	WRITE+5*
BDWVMSG	PROC+12!, SET+1
>> BDWVREC	V1+1*
D	DATE~, DATE+1, DATE+2
DA	ED+1!, VAUDIT+2!, CONT+1!, PROCESS+12!, SETV+3, PROC+3, PROC+4, LOG+4, LOG+5!, LOG+6 , LOG+7!, LOG+8, LOG+10!, TR+34!, TR+38, QUEUE+4!, QUEUE1+5!, QUEUE1+7!, WRITE+14~, WRITE+15!
DFOUT	EOP+4!
DIADD	START+1!, GENLOG+1!, GENLOG+3*, GENLOG+4!
DIC	SET+3!, GENLOG+3*, GENLOG+4!
DIC("DR"	GENLOG+3*
DIC(0	GENLOG+3*
DIE	PROCESS+12!, SETV+3, PROC+3, PROC+4, SET+3!, LOG+4, LOG+5!, LOG+6, LOG+7!, LOG+8* , TR+38, QUEUE1+7!, WRITE+14~, WRITE+15*!
DIK	LOG+10!, TR+34!, QUEUE+4!, QUEUE1+5!
DIR	BD+1!, ED+1!, VAUDIT+2!, CONT+1!, QUEUE+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, VAUDIT+2, CONT+1, QUEUE+2, EOP+5
DIR("B"	VAUDIT+2, CONT+1, QUEUE+2*
DIR(0	BD+1, ED+1, VAUDIT+2, CONT+1, QUEUE+2, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, VAUDIT+3, CONT+2, QUEUE+2*, QUEUE+4, EOP+4!
DIU	LOG+7!
DIV	LOG+7!
DLAYGO	START+1!, GENLOG+1!, GENLOG+3*, GENLOG+4!
DLOUT	EOP+4!
DR	PROCESS+12!, SETV+3, PROC+3, PROC+4, SET+3!, LOG+4, LOG+5!, LOG+6, LOG+7!, LOG+8* , TR+38, QUEUE1+7!, GENLOG+4!, WRITE+14~, WRITE+15*!
DT	TR+33, WRITE+4~, WRITE+8, WRITE+9
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, QUEUE+2, EOP+4!
DUZ	GENLOG+3, USR+1
DUZ(2	LOC+1
IO("S"	EOP+2
>> IOBS	CONT+5
IOF	START+3
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	START+6*, START+7!
L	NLOG+1~*, NLOG+2
T	START+6*, START+7!
U	PROC+1, PROC+3, PROC+4, PROC+9, SET+1, SET+2, TR+3, TR+4, TR+12, CHECK+1 , CHECK+2, GENLOG+3, WRITE+12, USR+1, LOC+1
X	START+5, START+6, START+7!, ED+5, V+6, TR+2, TR+3, TR+4, TR+5, TR+6 , TR+7, TR+8, TR+9, TR+12, TR+13, TR+14, TR+15, TR+17, TR+18, TR+20 , TR+21, TR+22, TR+23, TR+24, TR+27, TR+30, TR+31, C~, C+1, C+3 , S+2, S+3!, GENLOG+3, WRITE+4~, WRITE+11, CTR~, CTR+1, NLOG+1~*
X1	ED+5, WRITE+4~, WRITE+9
X2	ED+5, C~, WRITE+4~, WRITE+9
X3	C~
>> XBFLG	WRITE+22, WRITE+26, WRITE+32
>> XBFLG(1	WRITE+27, WRITE+28, WRITE+30
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	BD+3, ED+3, ED+4, VAUDIT+4, CONT+3, LOG+4, LOG+6, LOG+9, QUEUE+3, GENLOG+5 , GENLOG+6, CTR~, CTR+1
>> ZTDESC	QUEUE1+2*
>> ZTDTH	QUEUE1+2*
>> ZTIO	QUEUE1+2*
>> ZTQUEUED	CONT+5, PROCESS+13, PROCESS+14, SETV+2, LOG+1, LOG+2, CHECK+2, GENLOG+2, WRITE+23, WRITE+27 , WRITE+28, WRITE+29, WRITE+30, EOP+2
>> ZTRTN	QUEUE1+1*
>> ZTSAVE("BDW*"	QUEUE1+2*
ZTSK	QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+8!

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWDDR

Information

Source Information

Call Graph

Call Graph Total: 24