Routine: BGP5UTL1

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

Package	Total	Caller Graph
IHS GPRA Information System	50	BGP5ALG1 BGP5CON1 BGP5CU BGP5CU1 BGP5D2 BGP5D21 BGP5D211 BGP5D22 BGP5D23 BGP5D25 BGP5D27 BGP5D3 BGP5D31 BGP5D34 BGP5D35 BGP5D36 BGP5D37 BGP5D38 BGP5D3A BGP5D3B BGP5D4 BGP5D42 BGP5D5 BGP5D52 BGP5D55 BGP5D6 BGP5D61 BGP5D62 BGP5D63 BGP5D64 BGP5D7 BGP5D71 BGP5D72 BGP5D721 BGP5D724 BGP5D731 BGP5D74 BGP5D75 BGP5D8 BGP5D83 BGP5D84 BGP5D87 BGP5D88 BGP5D9 BGP5DHE1 BGP5DPA2 BGP5DPA4 BGP5EL2 BGP5EL3 BGP5EL4

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
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
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^BGP5UTL2	LASTDXI+9, LASTPRCI+7
$$ICD^BGP5UTL2	SETPRC+13, LASTDX+16, LASTPRC+14, FIRSTPRC+12, FIRSTCPT+7, RADREF+10, LASTECOD+14, CPTREFT+10, PRCREFT+9
$$ICDDX^BGP5UTL2	LASTDX+17, LASTDXI+21, LASTECOD+14
$$ICDOP^BGP5UTL2	SETPRC+14, LASTPRC+15, LASTPRCI+16, FIRSTPRC+18, PRCREFT+10
$$VAL^XBDIQ1	FIRSTCPT+17
$$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
^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

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
>> 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, STI16A+2, 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
>> 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*
>> BGPINDK	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	STI16A+3, STI16B+3
>> BGPN9	STI16A+2, 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
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
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
RT	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	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	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	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: BGP5UTL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 50

Entry Points

External References

Global Variables Directly Accessed

Local Variables

Legend: