Routine: BGP7UTL1

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIWP
IHS GPRA Information System	1	($$CODEN,$$ICD,$$ICDDX,$$ICDOP)^BGP7UTL2
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	$$VD^APCLV

Package	Total	Caller Graph
IHS GPRA Information System	64	BGP7ALG1 BGP7C12 BGP7C2 BGP7CON1 BGP7CU1 BGP7D1 BGP7D10 BGP7D2 BGP7D21 BGP7D211 BGP7D212 BGP7D213 BGP7D22 BGP7D23 BGP7D24A BGP7D25 BGP7D27 BGP7D3 BGP7D31 BGP7D34 BGP7D35 BGP7D37 BGP7D38 BGP7D3A BGP7D3B BGP7D3C BGP7D4 BGP7D5 BGP7D52 BGP7D53 BGP7D55 BGP7D6 BGP7D61 BGP7D62 BGP7D63 BGP7D64 BGP7D7 BGP7D71 BGP7D714 BGP7D72 BGP7D721 BGP7D724 BGP7D731 BGP7D74 BGP7D75 BGP7D83 BGP7D84 BGP7D841 BGP7D87 BGP7D88 BGP7D89 BGP7D9 BGP7DHE1 BGP7DP1C BGP7DP2 BGP7DP3 BGP7DP7 BGP7DPA2 BGP7DPA4 BGP7EL2 BGP7ELL1 BGP7ELP1 BGP7PDL1 BGP7PDL2
iCare	1	BQICMUT2

Name	Comments	DBIA/ICR reference
STI16B()	;EP
CPTREFT(P,BDATE,EDATE,T,RT)	;EP - return ien of CPT entry if patient had this CPT
LASTDX(P,T,BDATE,EDATE)	;EP
LASTDXI(P,T,BDATE,EDATE,SC)	;EP
LASTPRCI(P,T,BDATE,EDATE)	;EP
FIRSTPRC(P,T,BDATE,EDATE)	;EP
LASTPRC(P,T,BDATE,EDATE)	;EP
FIRSTCPT(P,T,BDATE,EDATE)	;EP
I1()	;EP
LABEL(ID,RT,PT,IT,ND)	;EP
STI16A()	;EP
LASTECOD(P,T,BDATE,EDATE)	;EP
RADREF(P,BDATE,EDATE,T)	;EP - return ien of CPT entry if patient had this CPT
I13()	;EP
I12()	;EP
PRCREFT(P,BDATE,EDATE,T)	;EP - return ien of proc
REFUSAL(P,F,I,B,E)	;EP
IA()	;EP
NMIREF(P,F,I,B,E)	;EP
REFTAX(P,F,T,B,E)	;EP - refused an item in a taxonomy
I17()	;EP
SETPRC(P,BDATE,EDATE,T,BGPG)	;EP
LABELE(ID,RT,PT,ND)	;EP
I25()	;EP

Name	Field # of Occurrence
^%DT	NMIREF+6, NMIREF+7, REFUSAL+6, REFUSAL+7, REFTAX+6, REFTAX+7
$$VD^APCLV	SETPRC+14
$$DOB^AUPNPAT	FIRSTCPT+2
$$CODEN^BGP7UTL2	LASTDXI+9, LASTPRCI+7
$$ICD^BGP7UTL2	SETPRC+13, LASTDX+16, LASTPRC+14, FIRSTPRC+12, FIRSTCPT+7, RADREF+10, LASTECOD+14, CPTREFT+10, PRCREFT+9
$$ICDDX^BGP7UTL2	LASTDX+17, LASTDXI+21, LASTECOD+14
$$ICDOP^BGP7UTL2	SETPRC+14, LASTPRC+15, LASTPRCI+16, FIRSTPRC+18, PRCREFT+10
^DIWP	LABEL+41, LABELE+14
$$VAL^XBDIQ1	LABEL+6, LABEL+7, LABEL+8, LABEL+10, LABEL+11, LABEL+12, LABEL+13, LABEL+14, LABEL+15, LABEL+16 , LABEL+17, LABEL+20, LABEL+21, LABEL+22, LABEL+24, LABEL+25, LABEL+26, LABEL+27, LABEL+28, LABEL+29 , LABEL+30, LABEL+31, LABEL+38, LABEL+39, LABEL+40, LABELE+5, LABELE+8, FIRSTCPT+17
$$VALI^XBDIQ1	LABEL+37
$$FMADD^XLFDT	RADREF+4, CPTREFT+5, PRCREFT+4

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	REFTAX+8
^ATXAX("B"	SETPRC+7, LASTDX+7, LASTPRC+6, FIRSTPRC+6, FIRSTCPT+5, LASTECOD+6
^AUPNPREF - [#9000022]	NMIREF+10, NMIREF+11, REFUSAL+8, RADREF+8, RADREF+11, REFTAX+9, CPTREFT+9, CPTREFT+11, CPTREFT+12, PRCREFT+8 , PRCREFT+10
^AUPNPREF("AA"	NMIREF+8, NMIREF+9, REFUSAL+8, RADREF+7, RADREF+8, REFTAX+9, CPTREFT+8, CPTREFT+9, PRCREFT+7, PRCREFT+8
^AUPNVCPT("AA"	FIRSTCPT+6, FIRSTCPT+8, FIRSTCPT+12
^AUPNVPOV - [#9000010.07]	LASTDX+13, LASTDXI+15, LASTDXI+18, LASTECOD+12
^AUPNVPOV("AA"	LASTDX+11, LASTDX+12, LASTDXI+13, LASTDXI+14, LASTECOD+10, LASTECOD+11
^AUPNVPRC - [#9000010.08]	SETPRC+11, SETPRC+14, LASTPRC+12, LASTPRCI+13, FIRSTPRC+10, FIRSTPRC+13
^AUPNVPRC("AA"	LASTPRC+10, LASTPRC+11, LASTPRCI+11, LASTPRCI+12
^AUPNVPRC("AC"	SETPRC+10, FIRSTPRC+9
^AUPNVSIT - [#9000010]	LASTDXI+19, LASTDXI+20, FIRSTPRC+15
^BGPELIIG - [#90559.02]	LABELE+9
^BGPINDGC - [#90558.02]	LABEL+32
^DPT - [#2]	SETPRC+5, LASTDX+5, LASTDXI+6, LASTPRC+4, LASTPRCI+4, FIRSTPRC+4, LASTECOD+4
^ICD9 - [#80]	LASTDX+15
^ICPT - [#81]	RADREF+11, CPTREFT+12
^RAMIS(71 - [#71]	RADREF+9, RADREF+11
^UTILITY($J	LABEL+41!, LABEL+42, LABEL+43!, LABELE+14!, LABELE+15, LABELE+16!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	NMIREF+6~, NMIREF+7, REFUSAL+6~, REFUSAL+7, REFTAX+6~, REFTAX+7
B	NMIREF~, NMIREF+4, NMIREF+6, NMIREF+11, REFUSAL~, REFUSAL+4, REFUSAL+6, REFUSAL+8, REFTAX~, REFTAX+4 , REFTAX+6*, REFTAX+9
BDATE	SETPRC~, SETPRC+5, LASTDX~, LASTDX+5, LASTDX+10, LASTDXI~, LASTDXI+6, LASTDXI+12, LASTPRC~, LASTPRC+4 , LASTPRC+9, LASTPRCI~, LASTPRCI+4, LASTPRCI+10, FIRSTPRC~, FIRSTPRC+4, FIRSTPRC+16, FIRSTCPT~, FIRSTCPT+2, FIRSTCPT+11 , RADREF~, RADREF+4, RADREF+8, LASTECOD~, LASTECOD+4, LASTECOD+9, CPTREFT~, CPTREFT+5, CPTREFT+9, PRCREFT~ , PRCREFT+4*, PRCREFT+8
>> BGPACTCL	STI16A+1
>> BGPACTUP	I12+5, STI16B+1
>> BGPAGEB	I1+2, I1+3
>> BGPD1	I13+3, I13+4, I13+5, IA+10, I17+1, I25+2, STI16A+2
>> BGPD10	IA+10
>> BGPD11	IA+10
>> BGPD2	I13+1, I13+2, I13+5, IA+10
>> BGPD3	I12+3, I12+4, I13+3, I13+4, I13+5, IA+10
>> BGPD4	I12+2, I13+5, IA+10, STI16B+2
>> BGPD5	I13+5, IA+10
>> BGPD6	I13+5, IA+10
>> BGPD7	I12+3, I12+4, I13+5, IA+4, IA+5, IA+6, IA+10
>> BGPD8	I13+5, IA+7, IA+8, IA+9, IA+10
>> BGPD9	I13+5, IA+10
>> BGPDMD2	I25+1
BGPDX1	SETPRC+2~, SETPRC+4, SETPRC+10, SETPRC+11, SETPRC+14, LASTDX+3~, LASTDX+4, LASTDX+11, LASTDX+12, LASTDX+17 , LASTDXI+4~, LASTDXI+5, LASTDXI+13, LASTDXI+14, LASTDXI+21, LASTPRC+3, LASTPRC+10, LASTPRC+11, LASTPRC+15, LASTPRCI+3* , LASTPRCI+11, LASTPRCI+12, LASTPRCI+16, FIRSTPRC+3, LASTECOD+3, LASTECOD+10, LASTECOD+11, LASTECOD+14
BGPDX2	SETPRC+2~, SETPRC+4, LASTDX+3~, LASTDX+4, LASTDX+12, LASTDX+13, LASTDX+17, LASTDXI+4~, LASTDXI+5, LASTDXI+14* , LASTDXI+15, LASTDXI+18, LASTDXI+21, LASTPRC+3, LASTPRC+11, LASTPRC+12, LASTPRC+15, LASTPRCI+3, LASTPRCI+12, LASTPRCI+13 , LASTPRCI+16, FIRSTPRC+3, LASTECOD+3, LASTECOD+11*, LASTECOD+12, LASTECOD+14
BGPDX3	SETPRC+2~, SETPRC+4, SETPRC+11, SETPRC+12, SETPRC+13, SETPRC+14, LASTDX+3~, LASTDX+4, LASTDX+13, LASTDX+14 , LASTDX+15, LASTDX+16, LASTDX+17, LASTDXI+4~, LASTDXI+5, LASTDXI+15, LASTDXI+16, LASTDXI+17, LASTDXI+21, LASTPRC+3* , LASTPRC+12, LASTPRC+13, LASTPRC+14, LASTPRC+15, LASTPRCI+3, LASTPRCI+13, LASTPRCI+14, LASTPRCI+15, LASTPRCI+16, FIRSTPRC+3 , FIRSTPRC+10, FIRSTPRC+11, FIRSTPRC+12, FIRSTPRC+18, LASTECOD+3, LASTECOD+12*, LASTECOD+13, LASTECOD+14
BGPDX4	SETPRC+2~, SETPRC+4, SETPRC+9, SETPRC+14, LASTDX+3~, LASTDX+4, LASTDX+9, LASTDX+11, LASTDX+12, LASTDX+17 , LASTDX+20, LASTDXI+4~, LASTDXI+5, LASTDXI+11, LASTDXI+13, LASTDXI+14, LASTDXI+21, LASTDXI+24, LASTPRC+3, LASTPRC+8* , LASTPRC+10, LASTPRC+11, LASTPRC+15, LASTPRC+18, LASTPRCI+3, LASTPRCI+9, LASTPRCI+11, LASTPRCI+12, LASTPRCI+16, LASTPRCI+19 , FIRSTPRC+3, FIRSTPRC+8, FIRSTPRC+9, FIRSTPRC+18, FIRSTPRC+20, LASTECOD+3, LASTECOD+8, LASTECOD+10, LASTECOD+11, LASTECOD+14 , LASTECOD+17
BGPDX5	LASTDXI+4~
>> BGPDX6	LASTECOD+3, LASTECOD+12
>> BGPDX7	LASTECOD+3*
>> BGPDXBD	LASTDX+10, LASTDX+11, LASTDXI+12, LASTDXI+13, LASTPRC+9, LASTPRC+10, LASTPRCI+10, LASTPRCI+11, LASTECOD+9*, LASTECOD+10
>> BGPDXED	LASTDX+10, LASTDX+11, LASTDXI+12, LASTDXI+13, LASTPRC+9, LASTPRC+10, LASTPRCI+10, LASTPRCI+11, LASTECOD+9*, LASTECOD+10
BGPDXV	LASTDXI+4~, LASTDXI+18*, LASTDXI+19, LASTDXI+20
BGPG	SETPRC~, SETPRC+1!
BGPG(	SETPRC+14*
>> BGPINDG	I1+2, I1+3, I12+1, I12+2, I12+3, I12+4, I13+1, I13+2, I13+3, I13+4 , IA+4, IA+5, IA+6, IA+7, IA+8, IA+9, IA+10, I17+2, I25+1, I25+3
>> BGPN1	IA+3
>> BGPN18	STI16B+3
>> BGPN3	STI16A+2
>> BGPN9	STI16B+2
>> BGPSEX	I17+2, I25+3
BGPT	FIRSTCPT+4~, FIRSTCPT+5*, FIRSTCPT+7
BGPTX5	SETPRC+2~, SETPRC+4, SETPRC+7, SETPRC+8, SETPRC+13, LASTDX+3~, LASTDX+4, LASTDX+7, LASTDX+8, LASTDX+16 , LASTDXI+4~, LASTDXI+5, LASTDXI+9, LASTDXI+10, LASTDXI+17, LASTPRC+3, LASTPRC+6, LASTPRC+7, LASTPRC+14, LASTPRCI+3* , LASTPRCI+7, LASTPRCI+8, LASTPRCI+15, FIRSTPRC+3, FIRSTPRC+6, FIRSTPRC+7, FIRSTPRC+12, LASTECOD+3, LASTECOD+6*, LASTECOD+7 , LASTECOD+14
>> BGPVALUE	I1+1, I1+2, I1+3, I1+4
>> BGPX	FIRSTPRC+9*, FIRSTPRC+10, FIRSTPRC+13, FIRSTPRC+18
C	FIRSTCPT+4~, FIRSTCPT+6, FIRSTCPT+7, FIRSTCPT+8, FIRSTCPT+12, FIRSTCPT+16, FIRSTCPT+17, RADREF+9*, RADREF+10, RADREF+11
D	FIRSTPRC+13, FIRSTPRC+14, FIRSTPRC+15, FIRSTPRC+16, FIRSTPRC+17, FIRSTPRC+18, FIRSTCPT+4~, FIRSTCPT+8, FIRSTCPT+9, FIRSTCPT+12 , FIRSTCPT+16, FIRSTCPT+17, NMIREF+11, REFUSAL+8, RADREF+8, RADREF+11, REFTAX+9, CPTREFT+9, CPTREFT+12, PRCREFT+8 , PRCREFT+10
>> DIWL	LABEL+41, LABELE+14
>> DIWR	LABEL+41, LABELE+14
DT	SETPRC+6, LASTDX+6, LASTDXI+7, LASTPRC+5, LASTPRCI+5, FIRSTPRC+5, FIRSTCPT+3, LASTECOD+5
E	FIRSTCPT+9, FIRSTCPT+10, FIRSTCPT+11, FIRSTCPT+13, NMIREF~, NMIREF+5, NMIREF+7, NMIREF+11, REFUSAL~, REFUSAL+5 , REFUSAL+7, REFUSAL+8, REFTAX~, REFTAX+5, REFTAX+7, REFTAX+9
EDATE	SETPRC~, SETPRC+6, LASTDX~, LASTDX+6, LASTDX+10, LASTDXI~, LASTDXI+7, LASTDXI+12, LASTPRC~, LASTPRC+5 , LASTPRC+9, LASTPRCI~, LASTPRCI+5, LASTPRCI+10, FIRSTPRC~, FIRSTPRC+5, FIRSTPRC+17, FIRSTCPT~, FIRSTCPT+3, FIRSTCPT+10 , RADREF~, RADREF+3, RADREF+4, RADREF+8, LASTECOD~, LASTECOD+5, LASTECOD+9, CPTREFT~, CPTREFT+4, CPTREFT+5 , CPTREFT+9, PRCREFT~, PRCREFT+3, PRCREFT+4, PRCREFT+8
F	NMIREF~, NMIREF+2, NMIREF+8, NMIREF+9, REFUSAL~, REFUSAL+2, REFUSAL+8, REFTAX~, REFTAX+2, REFTAX+9
G	FIRSTCPT+4~, NMIREF+6~, NMIREF+8, NMIREF+11, NMIREF+12, REFUSAL+6~, REFUSAL+8, REFUSAL+9, RADREF+5~, RADREF+6 , RADREF+7, RADREF+8, RADREF+11, RADREF+13, REFTAX+6~, REFTAX+8, REFTAX+9, REFTAX+10, CPTREFT+6~, CPTREFT+7* , CPTREFT+8, CPTREFT+9, CPTREFT+12, CPTREFT+14, PRCREFT+5~, PRCREFT+6, PRCREFT+7, PRCREFT+8, PRCREFT+10*, PRCREFT+12
I	NMIREF~, NMIREF+3, NMIREF+8, NMIREF+9, REFUSAL~, REFUSAL+3, REFUSAL+8, RADREF+5~, RADREF+7, RADREF+8 , RADREF+9, RADREF+11, CPTREFT+6~, CPTREFT+8, CPTREFT+9, CPTREFT+10, CPTREFT+12, PRCREFT+5~, PRCREFT+7*, PRCREFT+8 , PRCREFT+9, PRCREFT+10
ID	LABEL~, LABEL+1, LABEL+6, LABEL+7, LABEL+8, LABEL+10, LABEL+11, LABEL+12, LABEL+13, LABEL+14 , LABEL+15, LABEL+16, LABEL+17, LABEL+20, LABEL+21, LABEL+22, LABEL+24, LABEL+25, LABEL+26, LABEL+27 , LABEL+28, LABEL+29, LABEL+30, LABEL+31, LABEL+32, LABEL+37, LABEL+38, LABEL+39, LABEL+40, LABELE~ , LABELE+1, LABELE+5, LABELE+8, LABELE+9
IT	LABEL~, LABEL+2*, LABEL+10, LABEL+11, LABEL+12, LABEL+13, LABEL+14, LABEL+15, LABEL+24, LABEL+25 , LABEL+26, LABEL+27, LABEL+28, LABEL+29
J	LABEL+35~, LABEL+39, LABEL+40
L	LABEL+3~, LABEL+6, LABEL+7, LABEL+8, LABEL+10, LABEL+11, LABEL+12, LABEL+13, LABEL+14, LABEL+15* , LABEL+16, LABEL+17, LABEL+20, LABEL+21, LABEL+22, LABEL+24, LABEL+25, LABEL+26, LABEL+27, LABEL+28 , LABEL+29, LABEL+30, LABEL+31, LABEL+32, LABEL+34, LABEL+41, LABELE+2~, LABELE+5, LABELE+8*, LABELE+9 , LABELE+11, LABELE+14
ND	LABEL~, LABEL+5, LABEL+19, LABEL+32, LABEL+37, LABELE~, LABELE+4, LABELE+7, LABELE+9
P	SETPRC~, SETPRC+5, SETPRC+10, LASTDX~, LASTDX+1, LASTDX+5, LASTDX+11, LASTDX+12, LASTDXI~, LASTDXI+1 , LASTDXI+6, LASTDXI+13, LASTDXI+14, LASTPRC~, LASTPRC+1, LASTPRC+4, LASTPRC+10, LASTPRC+11, LASTPRCI~, LASTPRCI+1 , LASTPRCI+4, LASTPRCI+11, LASTPRCI+12, FIRSTPRC~, FIRSTPRC+1, FIRSTPRC+4, FIRSTPRC+9, FIRSTCPT~, FIRSTCPT+1, FIRSTCPT+2 , FIRSTCPT+6, FIRSTCPT+8, FIRSTCPT+12, NMIREF~, NMIREF+1, NMIREF+8, NMIREF+9, REFUSAL~, REFUSAL+1, REFUSAL+8 , RADREF~, RADREF+1, RADREF+7, RADREF+8, LASTECOD~, LASTECOD+1, LASTECOD+4, LASTECOD+10, LASTECOD+11, REFTAX~ , REFTAX+1, REFTAX+9, CPTREFT~, CPTREFT+1, CPTREFT+8, CPTREFT+9, PRCREFT~, PRCREFT+1, PRCREFT+7, PRCREFT+8
PT	LABEL~, LABEL+34, LABELE~, LABELE+11
RL	LABEL+35~, LABEL+36, LABEL+37, LABEL+38, LABEL+39, LABEL+40, LABEL+42, LABEL+44, LABELE+12~, LABELE+13 , LABELE+15*, LABELE+17
RT	LABEL~, LABEL+6, LABEL+7, LABEL+8, LABEL+9, LABEL+20, LABEL+21, LABEL+22, LABEL+23, LABELE~ , CPTREFT~, CPTREFT+3*, CPTREFT+11
SC	LASTDXI~, LASTDXI+2*, LASTDXI+20
T	SETPRC~, SETPRC+7, LASTDX~, LASTDX+7, LASTDXI~, LASTDXI+9, LASTPRC~, LASTPRC+6, LASTPRCI~, LASTPRCI+7 , FIRSTPRC~, FIRSTPRC+6, FIRSTCPT~, FIRSTCPT+5, RADREF~, RADREF+2, RADREF+10, LASTECOD~, LASTECOD+6, REFTAX~ , REFTAX+3, REFTAX+8, CPTREFT~, CPTREFT+2, CPTREFT+10, PRCREFT~, PRCREFT+2, PRCREFT+9
T1	REFTAX+6~, REFTAX+8*, REFTAX+9
U	LABEL+32, LABEL+39, LABEL+40, LABEL+42, LABELE+9, LABELE+15, SETPRC+5, SETPRC+11, SETPRC+14, LASTDX+5 , LASTDX+13, LASTDX+17, LASTDXI+6, LASTDXI+15, LASTDXI+18, LASTDXI+20, LASTDXI+21, LASTPRC+4, LASTPRC+12, LASTPRC+15 , LASTPRCI+4, LASTPRCI+13, LASTPRCI+16, FIRSTPRC+4, FIRSTPRC+10, FIRSTPRC+13, FIRSTPRC+15, FIRSTPRC+18, FIRSTCPT+17, NMIREF+10 , NMIREF+11, REFUSAL+8, RADREF+7, RADREF+8, RADREF+9, RADREF+11, LASTECOD+4, LASTECOD+12, LASTECOD+14, REFTAX+9 , CPTREFT+8, CPTREFT+9, CPTREFT+11, CPTREFT+12, PRCREFT+7, PRCREFT+8, PRCREFT+10
X	LABEL+3~, LABEL+41, LABEL+42, LABELE+2~, LABELE+14, LABELE+15, NMIREF+6~, NMIREF+7, NMIREF+8, NMIREF+9 , REFUSAL+6~, REFUSAL+7, REFUSAL+8, RADREF+5~, RADREF+8, IA+2~, IA+3, IA+4, IA+5, IA+7 , IA+8, IA+10, REFTAX+6~, REFTAX+7, REFTAX+9, CPTREFT+6~, CPTREFT+9, PRCREFT+5~, PRCREFT+8*
Y	LABEL+3~, LABELE+2~, FIRSTCPT+4~, FIRSTCPT+12, FIRSTCPT+13, NMIREF+6~, NMIREF+7, NMIREF+9, NMIREF+10, NMIREF+11 , REFUSAL+6~, REFUSAL+7, REFUSAL+8, RADREF+5~, RADREF+8, RADREF+11, REFTAX+6~, REFTAX+7, REFTAX+9, CPTREFT+6~ , CPTREFT+9, CPTREFT+11, CPTREFT+12, PRCREFT+5~, PRCREFT+8*, PRCREFT+10
Y(	FIRSTCPT+13*, FIRSTCPT+16
Y(0	FIRSTCPT+15, FIRSTCPT+16
Z	RADREF+5~, CPTREFT+6~, PRCREFT+5~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7UTL1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 65

Entry Points

External References

Global Variables Directly Accessed

Local Variables

Legend: