Routine: BDWUTIL

Package	Total	Call Graph
VA Fileman	2	^%DTC $$GET1^DIQ
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	$$CPT^AUPNCPT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$CLINIC,$$PRIMPROV,$$SECPROV)^APCLV

Package	Total	Caller Graph
Data Warehouse Export System	4	BDW1VBL2 BDWBHL BDWBHL1 BDWUTIL1

Name	Comments	DBIA/ICR reference
CLS(P)	;return ihs class code for provider P
VENTYP(V)	;EP return vendor type from VCHS
SSN(P)	;return provider's ssn
LOS(V)	;EP
LABDONE(V,T)	;EP - return Y/N
CHSDT	;
CPT(RETVAL,V)	;EP cpt and quantity
DMNUTR(V)	;EP - was dm nutrition educ done on this visit, Y or N
POVS(RETVAL,BDWV)	;EP
LOINC(X)	;is this a test we want?
LBLK(V,L)	;left blank fill
DSCHTYPE(V)	;EP
LABRES(V,T)	;EP - return result of lab test in taxonomy T
DATE(D)	;EP - return YYYYMMDD from internal fm format
RZERO(V,L)	;ep right zero fill
EXAM(RETVAL,BDWV)	;EP - return nth v exam on this visit
DENTSSN(V)	;EP - if a provider is a 52 get SSN
MEAS(RETVAL,BDWV)	;EP -
PHNAC(V)	;
DISPER(V)	;EP - called to get ER disposition
RBLK(V,L)	;EP right blank fill
LZERO(V,L)	;EP - left zero fill
CHSDD	;
CHSLOS	;
PHN(V)	;
LAB(RETVAL,BDWV)	;EP
DENT(RETVAL,BDWV)	;EP
DENTCOST(V)	;COST OF THIS VISIT
LEVEL(V)	;EP
FACTX(V)	;EP
DSCHDATE(V)	;EP
PED(RETVAL,BDWV)	;EP - return nth v patient ed on this visit

Name	Field # of Occurrence
^%DTC	LOS+7, CHSLOS+2
$$CLINIC^APCLV	PHNAC+4
$$PRIMPROV^APCLV	PHN+4
$$SECPROV^APCLV	PHN+5
$$CPT^AUPNCPT	CPT+2
$$GET1^DIQ	POVS+12, POVS+28, CPT+11, CPT+12, CPT+13, CPT+15, CPT+16, CPT+17, LAB+13
$$ICDDX^ICDEX	POVS+13, POVS+17, POVS+29, POVS+33
$$VAL^XBDIQ1	POVS+19, POVS+35, VENTYP+9, MEAS+7, DENT+9, DENT+11
$$VALI^XBDIQ1	DISPER+4, DSCHTYPE+8, CHSDT+2

FileNo	Call Tags
60.01	GET1^DIQ
^DIC(81.3 - [#81.3]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	DMNUTR+8
^ATXAX("B"	DMNUTR+4
^ATXLAB - [#9002228]	LABDONE+6, LABRES+6, LOINC+3, LOINC+5, LOINC+8, LOINC+10, LOINC+12, LOINC+14, LOINC+16, LOINC+18
^ATXLAB("B"	LABDONE+4, LABRES+4, LOINC+2, LOINC+4, LOINC+7, LOINC+9, LOINC+11, LOINC+13, LOINC+15, LOINC+17
^AUPNVCHS - [#9000010.03]	VENTYP+5, VENTYP+7, CHSDD+2, CHSLOS+2
^AUPNVCHS("AD"	VENTYP+3, CHSDT+1, CHSDD+1, CHSLOS+1
^AUPNVCPT - [#9000010.18]	CPT+9
^AUPNVDEN - [#9000010.05]	DENTCOST+4, DENT+7, DENT+9, DENT+11, DENT+12
^AUPNVDEN("AD"	DENTCOST+4, DENT+6
^AUPNVER("AD"	DISPER+3
^AUPNVINP - [#9000010.02]	DSCHDATE+6, LOS+7, FACTX+4
^AUPNVINP("AD"	DSCHTYPE+6, DSCHDATE+5, LOS+6, FACTX+2
^AUPNVLAB - [#9000010.09]	LABDONE+6, LABRES+6, LAB+8, LAB+9, LAB+11, LAB+19
^AUPNVLAB("AD"	LABDONE+6, LABRES+6, LAB+7
^AUPNVMSR - [#9000010.01]	MEAS+10, MEAS+12
^AUPNVMSR("AD"	MEAS+4, MEAS+6
^AUPNVPED - [#9000010.16]	PED+7, PED+8, PED+13, DMNUTR+8
^AUPNVPED("AD"	PED+6, DMNUTR+3, DMNUTR+8
^AUPNVPHN - [#9000010.32]	LEVEL+5
^AUPNVPHN("AD"	LEVEL+3
^AUPNVPOV - [#9000010.07]	POVS+5, POVS+11, POVS+15, POVS+19, POVS+27, POVS+31, POVS+35
^AUPNVPOV("AD"	POVS+3, POVS+5, POVS+6, POVS+23
^AUPNVPRV - [#9000010.06]	PHN+5, DENTSSN+3
^AUPNVPRV("AD"	PHN+5, DENTSSN+3
^AUPNVSIT - [#9000010]	POVS+5, POVS+6, POVS+8, DISPER+2, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, VENTYP+2, DSCHDATE+2, DSCHDATE+3 , LOS+2, LOS+3, LOS+5, LOS+7, CHSLOS+2, PHNAC+3, MEAS+3, EXAM+3, PED+3, DENT+2 , DENT+9, DENTSSN+2, DMNUTR+2, LAB+4
^AUPNVXAM - [#9000010.13]	EXAM+7, EXAM+8
^AUPNVXAM("AD"	EXAM+6
^AUTTEDT - [#9999999.09]	PED+9, PED+10
^AUTTEXAM - [#9999999.15]	EXAM+9, EXAM+10
^AUTTLOC - [#9999999.06]	FACTX+8, FACTX+9
^AUTTMSR - [#9999999.07]	MEAS+12
^BDWSITE(1	MEAS+2, PED+12, LABDONE+1, LABRES+1, LAB+1
^DD(9000010.02	DSCHTYPE+10, DSCHTYPE+11
^DD(9000010.06	CLS+3, SSN+2, SSN+3
^DG(405.1 - [#405.1]	DSCHTYPE+11
^DIC(16 - [#16]	SSN+3
^DIC(42.2 - [#42.2]	DSCHTYPE+10
^DIC(6 - [#6]	CLS+9, CLS+10
^DIC(7 - [#7]	CLS+7, CLS+12
^ICDS(0	POVS+13, POVS+14, POVS+17, POVS+18, POVS+29, POVS+30, POVS+33, POVS+34
^LAB(60 - [#60]	LAB+10, LAB+19, LOINC+6
^VA(200 - [#200]	CLS+4, CLS+5, SSN+2

Name	Line Occurrences
$$CLS	DENTSSN+4
$$DENTCOST	DENT+13
$$DENTSSN	DENT+10
$$PHN	PHNAC+2, LEVEL+2
$$SSN	DENTSSN+5
CHSDD	DSCHDATE+5
CHSDT	DSCHTYPE+5
CHSLOS	LOS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6* , PHN+3~, PHN+5, PHN+6, CLS+2~, CLS+3, CLS+7, LABDONE+5~, LABDONE+6, LABDONE+7, LABRES+5~ , LABRES+6, LABRES+7, FACTX+1~, FACTX+2, FACTX+3
%1	CLS+5~, CLS+6, CLS+7, CLS+10~, CLS+11, CLS+12
AUPNCPT	CPT+1!, CPT+3
AUPNCPT(	CPT+4, CPT+6, CPT+8, CPT+9
BDWC	POVS+1~, POVS+7, POVS+8, POVS+19, POVS+20, POVS+21, POVS+22, POVS+35, POVS+36, POVS+37 , POVS+38, MEAS+5~, MEAS+6, MEAS+11, MEAS+12, EXAM+4~, EXAM+5, EXAM+11, PED+4~, PED+5* , PED+11, PED+13, DENT+4~, DENT+5, DENT+8, DENT+9, DENT+10, DENT+11, DENT+12, DENT+13 , LAB+5~, LAB+6, LAB+17*, LAB+19
BDWE	EXAM+4~, EXAM+8, EXAM+9, EXAM+10, EXAM+11, PED+4~, PED+8, PED+9, PED+10, PED+11
BDWI	MEAS+5~, MEAS+6, MEAS+7, MEAS+10, MEAS+12, EXAM+4~, EXAM+5, EXAM+6, EXAM+7, EXAM+8 , PED+4~, PED+5, PED+6, PED+7, PED+8, PED+13, DENT+4~, DENT+5, DENT+6, DENT+7 , DENT+9, DENT+11, DENT+12, LAB+5~, LAB+6, LAB+7*, LAB+8, LAB+9, LAB+11, LAB+19
BDWIENS	LAB+5~, LAB+12*, LAB+13
BDWL	LAB+5~, LAB+9*, LAB+10, LAB+12, LAB+19
BDWLNI	LAB+5~
>> BDWLOINC	LAB+13*, LAB+19
BDWM	MEAS+5~, MEAS+7*, MEAS+10
BDWP	POVS+1~, POVS+4, POVS+5, POVS+6*, POVS+8, POVS+9, POVS+11, POVS+12, POVS+15, POVS+19 , POVS+24
BDWS	POVS+1~, POVS+23, POVS+24, POVS+27, POVS+28, POVS+31, POVS+35, LAB+5~, LAB+11, LAB+12 , LAB+13
BDWV	POVS~, POVS+3, POVS+5, POVS+6, POVS+8, POVS+23, MEAS~, MEAS+3, MEAS+4, MEAS+6 , EXAM~, EXAM+2, EXAM+3, EXAM+6, PED~, PED+2, PED+3, PED+6, DENT~, DENT+1 , DENT+2, DENT+6, DENT+9, DENT+10, DENT+13, LAB~, LAB+3, LAB+4, LAB+7
>> BDWVAL	MEAS+10*, MEAS+12
BDWY	POVS+1~, POVS+4, POVS+5
C	CPT+2~, CPT+4, CPT+5, CPT+6, CPT+9, CPT+20, CPT+21, CPT+23, VENTYP+3~, VENTYP+4 , VENTYP+5, VENTYP+7, DENTCOST+2~, DENTCOST+3, DENTCOST+4*, DENTCOST+5
COIP	POVS+10~, POVS+15, POVS+16, POVS+17, POVS+26~, POVS+31, POVS+32, POVS+33
CS	POVS+10~, POVS+13, POVS+14, POVS+20, POVS+26~, POVS+29, POVS+30, POVS+36
CSE	POVS+10~, POVS+17, POVS+18, POVS+21, POVS+26~, POVS+33, POVS+34, POVS+37
D	DATE~, DATE+1, DATE+2, PHN+3~, PHN+5, DENTSSN+4, DENTSSN+5
E	CPT+2~, CPT+9, CPT+11, CPT+12, CPT+15, CPT+16, VENTYP+6~, VENTYP+7, VENTYP+8, VENTYP+9
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
ICDP	POVS+10~, POVS+11, POVS+13, POVS+26~, POVS+27, POVS+29
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2
MOD1	CPT+1!, CPT+10~, CPT+12*, CPT+14
MOD1C	CPT+10~, CPT+13*, CPT+14
MOD1I	CPT+10~, CPT+11*, CPT+13
MOD1STR	CPT+10~, CPT+14*, CPT+19, CPT+20, CPT+21, CPT+22
MOD2	CPT+1!, CPT+10~, CPT+16*, CPT+18
MOD2C	CPT+10~, CPT+17*, CPT+18
MOD2I	CPT+10~, CPT+15*, CPT+17
MOD2STR	CPT+10~, CPT+18*, CPT+21, CPT+23
N	PHN+3~, PHN+5*
P	LEVEL+3~*, LEVEL+4, LEVEL+5, CLS~, CLS+1, CLS+4, CLS+5, CLS+9, CLS+10, SSN~ , SSN+1, SSN+2, SSN+3
PN	POVS+10~, POVS+12, POVS+22, POVS+26~, POVS+28, POVS+38
R	DMNUTR+6~, DMNUTR+7, DMNUTR+8, DMNUTR+9
RETVAL	POVS~, POVS+2!, CPT~, CPT+1!, MEAS~, MEAS+1!, EXAM~, EXAM+1!, PED~, PED+1! , DENT~, DENT+3!, LAB~, LAB+2!
RETVAL(	POVS+8, POVS+19, POVS+20, POVS+21, POVS+22, POVS+35, POVS+36, POVS+37, POVS+38, CPT+6 , CPT+9, CPT+20, CPT+21, CPT+23, MEAS+12, EXAM+11, PED+11, PED+13, DENT+9, DENT+10 , DENT+11, DENT+12, DENT+13, LAB+19
S	DENTSSN+3~, DENTSSN+5, DENTSSN+7
T	VENTYP+6~, VENTYP+9, VENTYP+10, LABDONE~, LABDONE+3, LABDONE+4, LABDONE+6, LABRES~, LABRES+3, LABRES+4* , LABRES+6, LOINC+1~, LOINC+2, LOINC+3, LOINC+4, LOINC+5, LOINC+7, LOINC+8, LOINC+9, LOINC+10 , LOINC+11, LOINC+12, LOINC+13, LOINC+14, LOINC+15, LOINC+16, LOINC+17, LOINC+18
U	POVS+8, POVS+11, POVS+13, POVS+15, POVS+17, POVS+27, POVS+29, POVS+31, POVS+33, MEAS+2 , PED+12, DENTCOST+4, LABDONE+1, LABRES+1, LAB+1, LAB+11, LOINC+6
V	RZERO~, RZERO+2, RZERO+3, LZERO~, LZERO+2, LZERO+3, LBLK~, LBLK+2, LBLK+3, RBLK~ , RBLK+2, RBLK+3, DISPER~, DISPER+1, DISPER+2, DISPER+3, CPT~, CPT+2, DSCHTYPE~, DSCHTYPE+1 , DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6, VENTYP~, VENTYP+1, VENTYP+2, VENTYP+3, CHSDT+1, DSCHDATE~ , DSCHDATE+1, DSCHDATE+2, DSCHDATE+3, DSCHDATE+5, CHSDD+1, LOS~, LOS+1, LOS+2, LOS+3, LOS+5 , LOS+6, CHSLOS+1, PHNAC~, PHNAC+1, PHNAC+2, PHNAC+3, PHNAC+4, PHN~, PHN+2, PHN+4 , PHN+5, LEVEL~, LEVEL+1, LEVEL+2, LEVEL+3, DENTCOST~, DENTCOST+1, DENTCOST+4, DENTSSN~, DENTSSN+1 , DENTSSN+2, DENTSSN+3, DMNUTR~, DMNUTR+1, DMNUTR+2, DMNUTR+3, DMNUTR+8, LABDONE~, LABDONE+2, LABDONE+6 , LABRES~, LABRES+2, LABRES+6, FACTX~, FACTX+2
X	CPT+2~, CPT+4, CPT+6, CPT+8, CPT+9, LOS+4~, LOS+8, LOS+9, CHSLOS+3, CHSLOS+4 , PHN+3~, PHN+5, DENTCOST+2~, DENTCOST+3, DENTCOST+4, DENTSSN+3~, DMNUTR+6~, DMNUTR+8, LABDONE+5~, LABDONE+6* , LABRES+5~, LABRES+6, LOINC~, LOINC+3, LOINC+5, LOINC+6, LOINC+8, LOINC+10, LOINC+12, LOINC+14 , LOINC+16, LOINC+18
X1	LOS+4~, LOS+7, CHSLOS+2
X2	LOS+4~, LOS+7, CHSLOS+2
Y	DISPER+3~, DISPER+4, DSCHTYPE+4~, DSCHTYPE+8, DSCHTYPE+9, DSCHTYPE+10, DSCHTYPE+11, CHSDT+2, CHSDT+3, CHSDT+4 , DSCHDATE+4~, DSCHDATE+6, DSCHDATE+7, DSCHDATE+8, CHSDD+2, CHSDD+3, CHSDD+4, LOS+4~, DENTCOST+2~, DENTSSN+3~* , DENTSSN+4, DENTSSN+5, DMNUTR+4~, DMNUTR+5, DMNUTR+8, LABDONE+5~, LABDONE+6, LABRES+5~, LABRES+6, FACTX+1~ , FACTX+4, FACTX+5, FACTX+6, FACTX+7*, FACTX+8, FACTX+9
Z	RZERO+2, LZERO+2, LBLK+2, RBLK+2, DSCHTYPE+4~, DSCHTYPE+6, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1, CHSDT+2 , DSCHDATE+4~, DSCHDATE+5, DSCHDATE+6, CHSDD+1, CHSDD+2, LOS+4~, LOS+6, LOS+7, CHSLOS+1, CHSLOS+2 , DMNUTR+6~, DMNUTR+8, FACTX+1~, FACTX+2, FACTX+3, FACTX+4

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWUTIL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: