Routine: BDWCVAR

Package	Total	Call Graph
VA Fileman	3	^%DTC DT^DICRW ^DIR
Data Warehouse Export System	2	VA^BDW1VBL2 (CHKOLD,CHKVISIT,CONFIRM,CURRUN,GETLOG)^BDWRDRI2
IHS VA Utilities	2	^XBGSAVE EN^XBVK
Kernel	2	HOME^%ZIS $$NOW^XLFDT
IHS Generic Interface System	1	$$DATE^INHUT
IHS Patient	1	(,KILL)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BASICS	;EP - BASIC INITS
PROCESS	;
PROCTX	; process and generate appropriate hl7 message
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
VISIT	;EP
START	;
GENREC	;
EXIT	;
PROCESS3	;
PROCESS2	;

External References

Name	Field # of Occurrence
^%DTC	WRITE+10
HOME^%ZIS	BASICS+3
^AUPNPAT	VISIT+14
KILL^AUPNPAT	PROCESS3+2
VA^BDW1VBL2	PROCTX+1
CHKOLD^BDWRDRI2	START+9
CHKVISIT^BDWRDRI2	START+13
CONFIRM^BDWRDRI2	START+15
CURRUN^BDWRDRI2	START+11
GETLOG^BDWRDRI2	START+7
DT^DICRW	WRITE+8
^DIR	START+19
$$DATE^INHUT	WRITE+5
^XBGSAVE	WRITE+18
EN^XBVK	EXIT+1
$$NOW^XLFDT	WRITE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Audit already running or not completed successfully, cannot continue." Line Location: START+1
Function Call: WRITE	Prompt: !!,"This option is used to create a visit audit report to accompany a data",!,"warehouse export.",!! Line Location: START+2
Function Call: WRITE	Prompt: !,"You need to be logged in as ",$P(^DIC(4,BDW("RUN LOCATION"),0),U)," in order to do this audit report.",! Line Location: BASICS+6
Routine Call	%ZIS Line Location: BASICS+3
Routine Call	DIR Line Location: START+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PROCESS3+3, GENREC+1, VISIT+4
^AUPNVSIT("ADWO"	PROCESS+3, PROCESS2+1, PROCESS3+3!
^AUTTLOC - [#9999999.06]	VISIT+11, WRITE+12
^BDWDATA	START+1, BASICS+1!, WRITE+22!, WRITE+25!, WRITE+5*
^BDWSITE(1	BASICS+5, BASICS+10
^DIC(4 - [#4]	BASICS+6
^DPT - [#2]	VISIT+13, VISIT+15
^INRHD("B"	BASICS+11

Label References

Name	Line Occurrences
$$WRITE	START+18
BASICS	START+4
EXIT	START+8, START+10, START+12, START+14, START+16, START+20
GENREC	PROCESS3+4
PROCESS	START+17
PROCESS2	PROCESS+3
PROCESS3	PROCESS2+1
PROCTX	GENREC+5
VISIT	GENREC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDOVRR	BASICS+7*
BDW	BASICS+4!
BDW("ADDS"	BASICS+9*
BDW("CONTROL	DATE" , PROCESS+2, PROCESS+3, PROCESS2+1, PROCESS3+3
BDW("COUNT"	BASICS+8*
BDW("DEL"	BASICS+8*
BDW("DELS"	BASICS+9*
BDW("DEMO"	BASICS+8*
BDW("MFI"	BASICS+8*
BDW("MODS"	BASICS+9*
BDW("NO CAT"	BASICS+8*
BDW("NO LOC"	BASICS+8*
BDW("NO PAT"	BASICS+8*
BDW("NO TYPE"	, BASICS+8*
BDW("QFLG"	START+3, START+5, START+6, START+8, START+10, START+12, START+14, START+16, PROCESS+3, PROCESS2+1 , BASICS+5, BASICS+6
BDW("REG"	BASICS+8*
BDW("RUN BEGI	N" , PROCESS+2
BDW("RUN END"	, PROCESS+3
BDW("RUN LOCA	TION" , BASICS+5*, BASICS+6
BDW("SKIP"	BASICS+8*
BDW("TXS"	BASICS+8*
BDW("V DFN"	PROCESS2+1*, PROCESS3+3, GENREC+1, VISIT+4
BDW("VISITS"	BASICS+8*
BDW("VPROC"	BASICS+8*
BDW("ZERO"	BASICS+8*
BDWASU	WRITE+4~, WRITE+12*, WRITE+13
>> BDWBS	BASICS+3*
>> BDWCNTR	PROCESS+2, PROCESS3+5
BDWE	PROCESS3+1!, BASICS+4!, GENREC+2!, GENREC+4, GENREC+6!, VISIT+1!, VISIT+17*
BDWERRC	BASICS+4!, BASICS+8*
BDWH	GENREC+6!
>> BDWIEDST	BASICS+11*
BDWJUL	WRITE+4~, WRITE+11*, WRITE+13
BDWS	BASICS+4!
BDWT	PROCESS3+1!, BASICS+4!, GENREC+6!
BDWV	PROCESS3+1!, BASICS+4!
BDWV("IHS LOC	ATION CODE" , VISIT+11*
BDWV("LOC DFN	" , VISIT+9*, VISIT+10, VISIT+11
BDWV("PATIENT	DFN" , VISIT+12, VISIT+13, VISIT+14, VISIT+15, NAME" , VISIT+15, VISIT+16
BDWV("SRV CAT	" , VISIT+7*, VISIT+8
BDWV("TYPE"	VISIT+5*, VISIT+6
BDWV("V REC"	GENREC+1*, VISIT+2, VISIT+3, VISIT+4, VISIT+5, VISIT+7, VISIT+9, VISIT+12
>> BDWVA	BASICS+10*
>> BDWVA("COUNT"	BASICS+2, BASICS+8, WRITE+5*
DA	START+19!
DIR	START+19!
DIR("A"	START+19*
DIR(0	START+19*
DT	WRITE+4~, WRITE+8, WRITE+9
DUZ(2	BASICS+6, WRITE+12
>> IOBS	BASICS+3
U	BASICS+5, BASICS+6, BASICS+10, VISIT+2, VISIT+3, VISIT+4, VISIT+5, VISIT+7, VISIT+9, VISIT+11 , VISIT+12, VISIT+15, WRITE+12
X	START+18*, WRITE+4~, WRITE+11
X1	WRITE+4~, WRITE+9*
X2	WRITE+4~, WRITE+9*
>> XBFLG	WRITE+20, WRITE+24, WRITE+30
>> XBFLG(1	WRITE+25, WRITE+26, WRITE+28
XBFLT	WRITE+3~, WRITE+6*
XBFN	WRITE+3~, WRITE+13*
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+16*
XBUF	WRITE+3~
>> Y	VISIT+14*
>> ZTQUEUED	START+19, PROCESS+1, BASICS+3, WRITE+21, WRITE+25, WRITE+26, WRITE+27, WRITE+28

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWCVAR

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: