Routine: BDWDWPX

Package	Total	Call Graph
Data Warehouse Export System	2	$$UID^BDWAID $$WRITE^BDWDWPX1
VA Fileman	2	$$GET1^DIQ ^DIR
DRG Grouper	1	$$ICDDX^ICDCODE
IHS Generic Interface System	1	$$DATE^INHUT
IHS Patient Registration	1	QNTCVT^AGTX1
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Data Warehouse Export System	1	BDW1BLR

Entry Points

Name	Comments	DBIA/ICR reference
PI	; Create p5 record - private eligibility
P1REC	; this routine creates the P1 record ; P1^Unique ID^Modication Date^Unique Reg ID^DOB^Date of Death ; ^Cause of Death^Gender^SSN^SSN Verification Code^Father ; ^Mother^Creation Date
PROCESS	; this routine simply acts as the driver for gathering the ; needed information - regardless of a full or partial run
SAVE2	; save the p3, p4 and p5 array entries (which may be multiples) ; to the temp global
RAIL	; Create p5 record - railroad eligibility
P2REC	;this subroutine creates the P2 record ; P2^Unique ID^Modification Date^Patient^Address^City^State ; ^Zip^Community of Residence^Date Moved^Eligibility ; ^Veteran^Classification^Tribe^Blood Quantum^Rec Status
P5REC	; write the eligibility data to the p5 record in the array ; P5^Unique ID^Modification Date^Category^Coverage Type ; ^Begin Date^Policy Number^Medicaid State^Plan^Insurer ; ^End Date^Insurer EIN^Prefix/Suffix^Policy Holder ; ^Relationship^Last Updated
INCREP	;EP IHS/SD/lwj 4/20/04 gather information for patients ; whose records have been modified since the last ; update export. This entry point is called from the ; DW menu and needs to be run PRIOR to the export.
CAID	; Create p5 record - medicaid eligibility
FULLEP()	;EP IHS/SD/lwj 4/20/04 gather information for all patients ; This entry point is called from the BDW1BLR routine, which ; is a full patient export for the data warehouse.
P3REC	;this subroutine creates the P3 record - Alias ; P3^Unique ID^Modification Date^Alais
P4REC	;this subroutine creates the P4 record - facility/chart info ; P4^Unique ID^Modification Date^Facility^Chart^Chart Status
SAVE	; save the p1 and p2 array entries to the temp global
CARE	; Create p5 record - medicare eligibility

External References

Name	Field # of Occurrence
QNTCVT^AGTX1	P2REC+22
$$UID^BDWAID	P1REC+6
$$WRITE^BDWDWPX1	INCREP+32, FULLEP+16
$$GET1^DIQ	P1REC+17
^DIR	INCREP+12
$$ICDDX^ICDCODE	P1REC+14
$$DATE^INHUT	INCREP+16, FULLEP+3, P1REC+8, P1REC+10, P1REC+11, P1REC+20, P2REC+7, P2REC+16, P3REC+4, P4REC+5 , CARE+8, CARE+17, CARE+23, CARE+24, RAIL+8, RAIL+21, RAIL+25, RAIL+26, CAID+9, CAID+18 , CAID+24, CAID+25, PI+11, PI+13, PI+24
$$NOW^XLFDT	INCREP+16, FULLEP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to create a registration audit file prior" Line Location: INCREP+5
Function Call: WRITE	Prompt: !,"to generate transactions to send to the data warehouse (GDW option)." Line Location: INCREP+6
Function Call: WRITE	Prompt: !!,"This option should only be run immediately prior to using the GDW" Line Location: INCREP+7
Function Call: WRITE	Prompt: !,"option." Line Location: INCREP+8
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: INCREP+10
Function Call: WRITE	Prompt: !!,"Now creating the update DW Patient Audit file...." Line Location: INCREP+20
Function Call: WRITE	Prompt: "." Line Location: INCREP+30
Function Call: WRITE	Prompt: !!!,"**** DW INCREMENTAL FILE EMPTY - " Line Location: INCREP+34
Function Call: WRITE	Prompt: " AUDIT FILE NOT CREATED ****",!!! Line Location: INCREP+35
Function Call: WRITE	Prompt: !!,"Now creating the full DW Patient Audit file...." Line Location: FULLEP+7
Routine Call	DIR Line Location: INCREP+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	P4REC+8
^AUPN3PPH - [#9000003.1]	PI+16
^AUPNDWAF - [#9000003.3]	INCREP+21, P1REC+8, P2REC+7, P3REC+4, P4REC+5, CARE+8, RAIL+8, CAID+9, PI+11
^AUPNMCD - [#9000004]	CAID+11, CAID+13, CAID+14, CAID+15, CAID+16, CAID+18, CAID+19, CAID+20, CAID+22, CAID+23 , CAID+24, CAID+25
^AUPNMCD("B"	CAID+7
^AUPNMCR - [#9000003]	CARE+4, CARE+10, CARE+11, CARE+14, CARE+15, CARE+17, CARE+18, CARE+19, CARE+21, CARE+22 , CARE+23, CARE+24
^AUPNPAT - [#9000001]	INCREP+22, INCREP+26, FULLEP+11, P1REC+12, P2REC+14, P2REC+16, P2REC+17, P2REC+19, P2REC+20, P2REC+21 , P4REC+7, P4REC+10
^AUPNPRVT - [#9000006]	PI+5, PI+7, PI+8, PI+13, PI+14, PI+23, PI+24, PI+25, PI+27
^AUPNRRE - [#9000005]	RAIL+5, RAIL+10, RAIL+13, RAIL+16, RAIL+17, RAIL+21, RAIL+23, RAIL+24, RAIL+25, RAIL+26
^AUTNINS - [#9999999.18]	CARE+14, CARE+18, RAIL+15, RAIL+16, CAID+14, CAID+15, CAID+16, PI+23, PI+25
^AUTTBEN - [#9999999.25]	P2REC+19
^AUTTCOM - [#9999999.05]	P2REC+15
^AUTTLOC - [#9999999.06]	P4REC+9
^AUTTMCS - [#9999999.32]	CARE+19
^AUTTPIC - [#9999999.65]	PI+20
^AUTTRLSH - [#9999999.36]	CAID+20, PI+27
^AUTTRRP - [#9999999.33]	RAIL+17
^AUTTTRI - [#9999999.03]	P2REC+20
^BDWDWPX($J	INCREP+15!, INCREP+16, FULLEP+3!, SAVE+4, SAVE2+7
^BDWSITE(1	INCREP+9
^DIC(4 - [#4]	INCREP+10
^DIC(5 - [#5]	P2REC+12, CAID+13
^DPT - [#2]	INCREP+23, INCREP+27, FULLEP+8, FULLEP+9, FULLEP+12, P1REC+11, P1REC+18, P1REC+19, P2REC+9, P2REC+10 , P2REC+12, P2REC+13, P2REC+18, P2REC+24, P3REC+6, P3REC+7, CARE+15, CAID+19

Label References

Name	Line Occurrences
CAID	PROCESS+11
CARE	PROCESS+9
P1REC	PROCESS+3
P2REC	PROCESS+4
P3REC	PROCESS+8
P4REC	PROCESS+5
P5REC	CARE+25, RAIL+27, CAID+26, PI+29
PI	PROCESS+12
PROCESS	INCREP+28, FULLEP+13
RAIL	PROCESS+10
SAVE	PROCESS+7
SAVE2	PROCESS+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	INCREP+17~, FULLEP+4~
AG(	PROCESS+6!, PROCESS+14!, P1REC+21, P1REC+22, P1REC+23, P1REC+24, P2REC+25, P2REC+26, P2REC+27, P3REC+8 , P4REC+13, P5REC+5, P5REC+6, P5REC+7, P5REC+8*, SAVE+4, SAVE+5!, SAVE2+6, SAVE2+7, SAVE2+8!
AGALS	P3REC+2~, P3REC+7*, P3REC+8
AGAUPN	INCREP+17~, INCREP+26, FULLEP+4~, FULLEP+11, P1REC+20
AGBEG	CARE+1~, CARE+23, RAIL+1~, RAIL+25, CAID+1~, CAID+24, PI+1~, PI+13, P5REC+5
AGBLD	P2REC+5~, P2REC+23*, P2REC+27
AGCAT	CARE+1~, CARE+9, RAIL+1~, RAIL+9, CAID+1~, CAID+10, PI+1~, PI+12, P5REC+5, P5REC+6 , P5REC+7, P5REC+8
AGCCHK	PROCESS+2~, PROCESS+6, P4REC+3, P4REC+14
AGCFAC	P4REC+2~, P4REC+9*, P4REC+13
AGCHRT	P4REC+2~, P4REC+11*, P4REC+13
AGCHRTS	P4REC+2~, P4REC+12*, P4REC+13
AGCITY	P2REC+4~, P2REC+10*, P2REC+25
AGCLS	P2REC+4~, P2REC+19*, P2REC+27
AGCNT	CARE+2~, CARE+6, RAIL+2~, RAIL+4, CAID+2~, CAID+4, PI+2~, PI+4, P5REC+5, P5REC+6 , P5REC+7, P5REC+8, P5REC+9*
AGCOD	P1REC+4~, P1REC+12, P1REC+14, P1REC+22
AGCOM	P2REC+4~, P2REC+14, P2REC+15, P2REC+26
AGCOV	CARE+1~, CARE+22, RAIL+1~, RAIL+24, CAID+1~, CAID+23, PI+1~, PI+9, PI+19, PI+20 , P5REC+5
AGCRTDT	P1REC+5~, P1REC+20*, P1REC+24
AGD0	P3REC+2~, P3REC+5, P3REC+6, P3REC+7, P3REC+8, P4REC+2~, P4REC+6, P4REC+7, P4REC+8, P4REC+9 , P4REC+10, P4REC+13
AGD1	CARE+3~, CARE+20, CARE+21, CARE+22, CARE+23, CARE+24, RAIL+3~, RAIL+22, RAIL+23, RAIL+24 , RAIL+25, RAIL+26, CAID+3~, CAID+21, CAID+22, CAID+23, CAID+24, CAID+25, PI+3~, PI+6* , PI+7*, PI+8, PI+10, PI+13, PI+14, PI+23, PI+24, PI+25, PI+27, P5REC+5 , P5REC+6, P5REC+7, P5REC+8
AGDOB	P1REC+4~, P1REC+10*, P1REC+22
AGDOD	P1REC+4~, P1REC+11*, P1REC+14, P1REC+22
AGDPT	INCREP+17~, INCREP+23, INCREP+24, INCREP+25, FULLEP+4~, FULLEP+9, FULLEP+10, P1REC+10, P1REC+15, P1REC+16 , P2REC+8
AGDTM	P2REC+4~, P2REC+16, P2REC+26, CARE+1~, CARE+8, RAIL+1~, RAIL+8, CAID+1~, CAID+5, CAID+9* , PI+1~, PI+9, PI+11, P5REC+5
AGEIN	CARE+2~, CARE+14, RAIL+2~, RAIL+16, CAID+2~, CAID+16, PI+2~, PI+25, P5REC+7
AGELIG	P2REC+5~, P2REC+17*, P2REC+26
AGEND	CARE+2~, CARE+24, RAIL+2~, RAIL+26, CAID+2~, CAID+25, PI+2~, PI+24, P5REC+7
AGFLAG	INCREP+17~, INCREP+32, FULLEP+4~, FULLEP+16, FULLEP+17
AGFTHR	P1REC+5~, P1REC+18*, P1REC+23
AGIEN	CAID+3~, CAID+6, CAID+7, CAID+8, CAID+11, CAID+13, CAID+14, CAID+15, CAID+16, CAID+18 , CAID+19, CAID+20, CAID+22, CAID+23, CAID+24, CAID+25
AGINS	CARE+2~, CARE+18, RAIL+2~, RAIL+13, RAIL+14, RAIL+15, CAID+2~, CAID+15, PI+2~, PI+23* , P5REC+7
AGLID	CARE+1~, CARE+5, RAIL+1~, RAIL+6, CAID+1~, CAID+8, PI+1~, PI+10
AGMCDPLN	CARE+1~, CARE+13, RAIL+1~, RAIL+12, CAID+1~, CAID+14, PI+1~, PI+22, P5REC+6
AGMCDST	CARE+1~, CARE+12, RAIL+1~, RAIL+11, CAID+1~, CAID+12, CAID+13, PI+1~, PI+21*, P5REC+6
AGMDT	P1REC+5~, P1REC+7, P1REC+8, P1REC+21, P2REC+5~, P2REC+6, P2REC+7, P2REC+25, P3REC+2~, P3REC+3* , P3REC+4, P3REC+8, P4REC+2~, P4REC+4, P4REC+5, P4REC+13, CARE+3~, CARE+7, RAIL+3~, RAIL+7*
AGMTHR	P1REC+5~, P1REC+19*, P1REC+24
AGNAME	INCREP+17~, INCREP+27, FULLEP+4~, FULLEP+12
AGPAT	P2REC+4~, P2REC+8*, P2REC+25
AGPAT41	P4REC+2~, P4REC+10*, P4REC+11, P4REC+12
AGPOL	CARE+2~, CARE+15, RAIL+2~, RAIL+19, CAID+2~, CAID+19, PI+2~, PI+9, PI+17*, P5REC+8
AGPOL0	PI+3~, PI+16*, PI+17, PI+18, PI+19
AGPOLI	PI+3~, PI+14*, PI+15, PI+16
AGPOLN	CARE+1~, CARE+10, RAIL+1~, RAIL+10, CAID+1~, CAID+11, PI+1~, PI+9, PI+18*, P5REC+6
AGPRE	CARE+2~, CARE+11, CARE+19, RAIL+2~, RAIL+17, RAIL+18, CAID+2~, CAID+17, PI+2~, PI+26 , P5REC+8
AGRCNT	INCREP+17~, INCREP+19, INCREP+29, INCREP+30, INCREP+32, INCREP+33, FULLEP+4~, FULLEP+6, FULLEP+14, FULLEP+15
AGRECS	P2REC+5~, P2REC+24*, P2REC+27
AGREL	CARE+2~, CARE+16, RAIL+2~, RAIL+20, CAID+2~, CAID+20, PI+2~, PI+27, P5REC+8
AGSEX	P1REC+4~, P1REC+15*, P1REC+22
AGSSN	P1REC+4~, P1REC+16*, P1REC+23
AGSSNV	P1REC+4~, P1REC+17*, P1REC+23
AGST	P2REC+4~, P2REC+12*, P2REC+25
AGSTR	P2REC+4~, P2REC+9*, P2REC+25
AGTMP	SAVE+1~, SAVE+2, SAVE+3, SAVE+4, SAVE+5
AGTMP1	SAVE+1~, SAVE2+2~, SAVE2+3, SAVE2+4, SAVE2+6, SAVE2+7
AGTMP2	SAVE+1~, SAVE2+2~, SAVE2+3, SAVE2+5, SAVE2+6*, SAVE2+7
AGTRIBE	P2REC+5~, P2REC+20*, P2REC+27
AGUID	PROCESS+2~, P1REC+6*, P1REC+21, P2REC+25, P3REC+8, P4REC+13, P5REC+5
AGUPDT	CARE+2~, CARE+17, RAIL+2~, RAIL+21, CAID+2~, CAID+18, PI+2~, PI+28, P5REC+8
AGURID	P1REC+5~, P1REC+9*, P1REC+21
AGVAL	P2REC+5~, P2REC+21*
AGVET	P2REC+4~, P2REC+18*, P2REC+26
AGZIP	P2REC+4~, P2REC+13*, P2REC+25
BDW	INCREP+10!
BDW("RUN LOCA	TION" , INCREP+9*, INCREP+10
DA	INCREP+12!
DFN	INCREP+17~, INCREP+19, INCREP+21, INCREP+22, INCREP+23, INCREP+26, INCREP+27, FULLEP+4~, FULLEP+6, FULLEP+8 , FULLEP+9, FULLEP+11, FULLEP+12, PROCESS+6, PROCESS+14, P1REC+6, P1REC+8, P1REC+9, P1REC+11, P1REC+12 , P1REC+17, P1REC+18, P1REC+19, P1REC+21, P1REC+22, P1REC+23, P1REC+24, P2REC+7, P2REC+9, P2REC+10 , P2REC+12, P2REC+13, P2REC+14, P2REC+16, P2REC+17, P2REC+18, P2REC+19, P2REC+20, P2REC+21, P2REC+24 , P2REC+25, P2REC+26, P2REC+27, P3REC+4, P3REC+6, P3REC+7, P3REC+8, P4REC+5, P4REC+7, P4REC+10 , P4REC+13, CARE+4, CARE+5, CARE+8, CARE+10, CARE+11, CARE+14, CARE+15, CARE+17, CARE+18 , CARE+19, CARE+21, CARE+22, CARE+23, CARE+24, RAIL+5, RAIL+6, RAIL+8, RAIL+10, RAIL+13 , RAIL+16, RAIL+17, RAIL+21, RAIL+23, RAIL+24, RAIL+25, RAIL+26, CAID+7, CAID+9, PI+5 , PI+7, PI+8, PI+11, PI+13, PI+14, PI+23, PI+24, PI+25, PI+27, P5REC+5 , P5REC+6, P5REC+7, P5REC+8, SAVE+4, SAVE+5, SAVE2+6, SAVE2+7, SAVE2+8
DIR	INCREP+11!, INCREP+12!
DIR("A"	INCREP+12*
DIR("B"	INCREP+12*
DIR(0	INCREP+12*
>> DIRUT	INCREP+13
DUZ(2	INCREP+10
IOF	INCREP+4
U	INCREP+9, INCREP+10, INCREP+18, INCREP+25, INCREP+27, FULLEP+5, FULLEP+10, FULLEP+12, P1REC+8, P1REC+10 , P1REC+11, P1REC+12, P1REC+15, P1REC+16, P1REC+18, P1REC+19, P1REC+20, P2REC+7, P2REC+8, P2REC+9 , P2REC+10, P2REC+12, P2REC+13, P2REC+14, P2REC+15, P2REC+16, P2REC+17, P2REC+18, P2REC+19, P2REC+20 , P2REC+21, P2REC+24, P3REC+4, P3REC+7, P4REC+5, P4REC+9, P4REC+11, P4REC+12, CARE+8, CARE+10 , CARE+11, CARE+14, CARE+15, CARE+17, CARE+18, CARE+19, CARE+22, CARE+23, CARE+24, RAIL+8 , RAIL+10, RAIL+13, RAIL+15, RAIL+16, RAIL+17, RAIL+21, RAIL+24, RAIL+25, RAIL+26, CAID+9 , CAID+13, CAID+14, CAID+15, CAID+16, CAID+18, CAID+19, CAID+20, CAID+23, CAID+24, CAID+25 , PI+8, PI+11, PI+13, PI+14, PI+17, PI+18, PI+19, PI+20, PI+23, PI+24 , PI+25, PI+27
>> Y	INCREP+14, P2REC+23

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWDWPX

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: