Routine: BGP8DPE1

Package	Total	Call Graph
IHS GPRA Information System	3	(5,6,7)^BGP8DPE2 XTMP^BGP8UTL ($$ICD,$$ICDDX)^BGP8UTL2
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	($$AGE,$$BEN,$$DOD)^AUPNPAT
IHS VA %Utilities	1	$$NOJOURN^ZIBGCHAR
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF

Package	Total	Caller Graph
IHS GPRA Information System	3	BGP8DPE BGP8DPE2 BGP8GPED

Name	Comments	DBIA/ICR reference
ICDMAP(Y,T)	;EP - CAN THIS ICD CODE BE MAPPED TO A CATEGORY, IF YES, RETURN CATEGORY
S3
SET31	;
SET32	;
SET33	;
PROCCY	;current time period
ACTUP(P,BDATE,EDATE,T,B)	;EP - is this patient in user pop?
PROCBY	;
EDUALLOW(Y,T)	;EP - is this a valid topic?
1	;
3	;
2	;
5	;
4	;
7	;
6	;
SET23	;
SET22	;
SET21	;
SMIN(R,G,N,P,V,J)	;
SET41	;
SET43	;
SET42	;
N
CAT(C)	;
SETLIST	;
SMAX(R,G,N,P,V,J)	;
CALCIND	;
JRNL	;
PROCPY	;
LASTVD(P,BDATE,EDATE)	;
PROC	;EP
S(R,G,N,P,V,J)	;

Name	Field # of Occurrence
$$START1^APCLDF	1+7, 2+6, 3+6, 4+6, LASTVD+3
$$AGE^AUPNPAT	PROCCY+11, PROCCY+12, PROCPY+12, PROCPY+13, PROCBY+11, PROCBY+12
$$BEN^AUPNPAT	ACTUP+1, ACTUP+2
$$DOD^AUPNPAT	ACTUP+3
5^BGP8DPE2	5+1
6^BGP8DPE2	6+1
7^BGP8DPE2	7+1
XTMP^BGP8UTL	PROC+4
$$ICD^BGP8UTL2	ICDMAP+11
$$ICDDX^BGP8UTL2	EDUALLOW+6, ICDMAP+5
$$CPT^ICPTCOD	EDUALLOW+7
$$FMADD^XLFDT	PROC+6, PROC+7, PROC+8
$$FMTE^XLFDT	1+7, 2+6, 3+6, 4+6, LASTVD+3
$$NOJOURN^ZIBGCHAR	JRNL+1, JRNL+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDEDCV - [#9001002.5]	CAT+5
^APCDEDCV("C"	CAT+3
^ATXAX - [#9002226]	ACTUP+5
^ATXAX("B"	ICDMAP+10, ICDMAP+11
^AUPNPAT - [#9000001]	PROC+10, ACTUP+4, ACTUP+5, SETLIST+3, SETLIST+5
^AUPNVPED - [#9000010.16]	1+10, 2+10, 2+17, 2+18, 2+19, 2+26, 3+10, 4+10
^AUPNVPED("AC"	1+3, 2+1, 3+1, 4+1
^AUPNVPRV("AD"	LASTVD+9
^AUPNVSIT - [#9000010]	LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11, LASTVD+12
^AUPNVSIT("AC"	LASTVD+1
^AUTTEDT - [#9999999.09]	1+12, 1+13, 2+12, 2+13, 3+12, 3+13, 4+12, 4+13
^BGPCTRL - [#90241.01]	EDUALLOW+3, ICDMAP+7, ICDMAP+8, ICDMAP+11, 3+17, 3+20, 4+17, 4+20
^BGPCTRL("B"	1+5, 2+4, 3+4, 4+4
^BGPPEDBR - [#90560.14]	SET23+1, SET23+2, SET23+3, SET23+4, SET23+5, SET23+6, SET23+7, SET33+1, SET33+2, SET33+3 , SET33+4, SET33+5, SET33+6, SET43+1, SET43+2, SET43+3, SET43+4, SET43+5, SET43+6
^BGPPEDCR - [#90560.12]	SET21+1, SET21+2, SET21+3, SET21+4, SET21+5, SET21+6, SET21+7, SET31+1, SET31+2, SET31+3 , SET31+4, SET31+5, SET31+6, SET41+1, SET41+2, SET41+3, SET41+4, SET41+5, SET41+6
^BGPPEDPR - [#90560.13]	SET22+1, SET22+2, SET22+3, SET22+4, SET22+5, SET22+6, SET22+7, SET32+1, SET32+2, SET32+3 , SET32+4, SET32+5, SET32+6, SET42+1, SET42+2, SET42+3, SET42+4, SET42+5, SET42+6
^DIBT(	PROC+15, N+1
^DIBT("B"	PROC+15
^DIC(7 - [#7]	2+22, 2+30
^DPT - [#2]	PROC+11, PROC+13, PROCCY+3, PROCCY+4, PROCCY+5, PROCCY+13, PROCPY+3, PROCPY+4, PROCPY+5, PROCPY+14 , PROCBY+3, PROCBY+4, PROCBY+5, PROCBY+13, SETLIST+5
^TMP($J	PROCCY+1!, PROCCY+15!, PROCPY+1!, PROCPY+16!, PROCBY+1!, PROCBY+15!, LASTVD+2!, LASTVD+4, LASTVD+5
^VA(200 - [#200]	2+20
^XTMP("BGP8PE"	SETLIST+5*

Name	Line Occurrences
$$ACTUP	PROCCY+8, PROCPY+9, PROCBY+8
$$CAT	4+21
$$EDUALLOW	1+15, 2+15, 3+15, 4+15
$$ICDMAP	3+21
$$LASTVD	ACTUP+6
@(	CALCIND+1
CALCIND	PROCCY+14, PROCPY+15, PROCBY+14
JRNL	PROC+2
N	PROC+12
PROCBY	N+2
PROCCY	N+2
PROCPY	N+2
S	1+1, 1+18, 2+25, 2+29, S3, 4+22
S3	3+20
SET21	2+31
SET22	2+32
SET23	2+33
SET31	S3+1
SET32	S3+2
SET33	S3+3
SET41	4+23
SET42	4+24
SET43	4+25
SETLIST	1+18, 2+39, S3+9, 4+31
SMAX	2+28
SMIN	2+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	JRNL+1, JRNL+2, 1+9, 2+8, 3+8, 4+8
>> A	LASTVD+3*
B	ACTUP~, ACTUP+1, ACTUP+2, LASTVD+3*
BDATE	ACTUP~, ACTUP+6, LASTVD~, LASTVD+3
>> BGP365	PROCCY+7, PROCPY+7, PROCBY+7*
>> BGP3YE	PROC+6*, PROCCY+8
>> BGPACTCL	PROCCY+2, PROCPY+2, PROCBY+2*
>> BGPACTUP	PROCCY+2, PROCCY+8, PROCCY+9, PROCCY+10, PROCPY+2, PROCPY+9, PROCPY+10, PROCPY+11, PROCBY+2, PROCBY+8 , PROCBY+9*, PROCBY+10
>> BGPAGEB	PROCCY+11, PROCPY+12, PROCBY+11*, SETLIST+5
>> BGPAGEE	PROCCY+12, PROCPY+13, PROCBY+12*
BGPALLED	1+4!, 2+2!, 3+2!, 4+2!
BGPALLED(	1+9, 1+10, 2+8, 2+9, 2+10, 3+8, 3+9, 3+10, 4+8, 4+9 , 4+10
BGPALLED(1	1+8, 2+7, 3+7, 4+7
>> BGPB3YE	PROC+8*, PROCBY+8
>> BGPBBD	PROCBY+6
>> BGPBD	PROCCY+6
>> BGPBDATE	PROCCY+6, PROCCY+7, PROCCY+11, PROCPY+6, PROCPY+7, PROCPY+12, PROCBY+6*, PROCBY+7, PROCBY+11, 1+7 , 2+6, 3+6, 4+6
>> BGPBED	PROC+8, PROCBY+6
>> BGPBEN	PROCCY+8, PROCPY+9, PROCBY+8
>> BGPBT	PROC+1*
>> BGPED	PROC+6, PROCCY+6
>> BGPEDATE	PROCCY+6, PROCCY+8, PROCCY+12, PROCPY+6, PROCPY+9, PROCPY+13, PROCBY+6*, PROCBY+8, PROCBY+12, 1+7 , 2+6, 3+6, 4+6
>> BGPET	N+3*
>> BGPFYCT	1+5, 1+15, 2+4, 2+15, 3+4, 3+15, 3+17, 3+20, 3+21, 4+4 , 4+15, 4+17, 4+20
>> BGPGBL	PROCCY+6, PROCPY+6, PROCBY+6*, 1+1, 1+18, 2+25, 2+27, 2+28, 2+29, S3 , 4+22
>> BGPH	PROC+3*, SETLIST+5
>> BGPIC	CALCIND+1*, SETLIST+1, SETLIST+4, SETLIST+5
>> BGPIND(	CALCIND+1
>> BGPJ	PROC+3*, SETLIST+5
>> BGPLIST	SETLIST+3
>> BGPLIST(	SETLIST+1, SETLIST+4*
>> BGPLPRV	SETLIST+3
>> BGPP3YE	PROC+7*, PROCPY+9
>> BGPPBD	PROCPY+6
>> BGPPED	PROC+7, PROCPY+6
>> BGPPEUP	1+2*
>> BGPPEUPW	1+2*
BGPPROVS	2+3!, 2+36, 3+3!, S3+6, 4+3!, 4+28
BGPPROVS(	2+35, 2+38, S3+5, S3+8, 4+27*, 4+30
>> BGPRPT	1+1, 1+18, 2+25, 2+27, 2+28, 2+29, SET21+1, SET21+2, SET21+3, SET21+4 , SET21+5, SET21+6, SET21+7, SET22+1, SET22+2, SET22+3, SET22+4, SET22+5, SET22+6, SET22+7 , SET23+1, SET23+2, SET23+3, SET23+4, SET23+5, SET23+6, SET23+7, S3, SET31+1, SET31+2 , SET31+3, SET31+4, SET31+5, SET31+6, SET32+1, SET32+2, SET32+3, SET32+4, SET32+5, SET32+6 , SET33+1, SET33+2, SET33+3, SET33+4, SET33+5, SET33+6, 4+22, SET41+1, SET41+2, SET41+3 , SET41+4, SET41+5, SET41+6, SET42+1, SET42+2, SET42+3, SET42+4, SET42+5, SET42+6, SET43+1 , SET43+2, SET43+3, SET43+4, SET43+5, SET43+6
>> BGPS	3+17, 3+20, 4+17, 4+20, 4+21
>> BGPSEAT	PROC+12, N+1, PROCCY+8, PROCCY+9, PROCPY+9, PROCPY+10, PROCBY+8, PROCBY+9
>> BGPSEX	PROCCY+13, PROCPY+14, PROCBY+13*
>> BGPT	3+19, 3+21, 3+23, SET31+2, SET31+5, SET31+6, SET32+2, SET32+5, SET32+6, SET33+2 , SET33+5, SET33+6, 4+19, 4+21, SET41+2, SET41+5, SET41+6, SET42+2, SET42+5, SET42+6 , SET43+2, SET43+5, SET43+6
>> BGPT1	3+20, 3+21, 3+22, S3+5, SET31+5, SET32+5, SET33+5, 4+20, 4+21*, 4+27 , SET41+5, SET42+5, SET43+5
>> BGPTAXI	PROCCY+8, PROCPY+9, PROCBY+8
>> BGPTIME	PROCCY+6, PROCPY+6, PROCBY+6*, 2+31, 2+32, 2+33, S3+1, S3+2, S3+3, 4+23 , 4+24, 4+25, SETLIST+2
>> BGPVALUE	1+18, 2+2, 2+37, 2+38, 3+2, S3+7, S3+8, 4+2, 4+29, 4+30 , SETLIST+5
C	ICDMAP+3~, ICDMAP+5*, ICDMAP+6, ICDMAP+11, CAT~, CAT+2, CAT+3, CAT+4
D	EDUALLOW+4~, EDUALLOW+5, EDUALLOW+6, EDUALLOW+7, 1+9, 2+8, 2+20, 2+21, 2+22, 2+23 , 2+30, SET21+3, SET21+6, SET21+7, SET22+3, SET22+6, SET22+7, SET23+3, SET23+6, SET23+7 , 3+8, 4+8*
>> DFN	PROC+10*, PROC+11, PROC+13, PROC+15, N+1, PROCCY+3, PROCCY+4, PROCCY+5, PROCCY+8, PROCCY+11 , PROCCY+12, PROCCY+13, PROCPY+3, PROCPY+4, PROCPY+5, PROCPY+9, PROCPY+12, PROCPY+13, PROCPY+14, PROCBY+3 , PROCBY+4, PROCBY+5, PROCBY+8, PROCBY+11, PROCBY+12, PROCBY+13, 1+3, 1+7, 2+1, 2+6 , 3+1, 3+6, 4+1, 4+6, SETLIST+3, SETLIST+5
>> DOD	ACTUP+3*
DT	JRNL+1
E	ICDMAP+3~, 1+7, 2+6, 2+30, 3+6, 4+6, LASTVD+3
EDATE	ACTUP~, ACTUP+3, ACTUP+6, LASTVD~, LASTVD+3
F	ICDMAP+3~
G	ICDMAP+3~, ICDMAP+4, ICDMAP+7, ICDMAP+11, ICDMAP+13, 1+9, 1+17, 1+18, 2+8, 3+8 , 4+8, S~, S+2, S+3, SMIN~, SMIN+2, SMIN+3, SMAX~, SMAX+2, LASTVD+5* , LASTVD+13*, LASTVD+15
J	3+21*, S~, S+2, SMIN~, SMAX~
L	ICDMAP+3~
>> M	2+26*, 2+27, 2+28, 2+29, 2+35, SET21+4, SET21+6, SET22+4, SET22+6, SET23+4 , SET23+6
N	1+1, 1+18, 2+30*, 2+35, SET21+6, SET22+6, SET23+6, S~, S+2, S+3 , SMIN~, SMIN+2, SMIN+3, SMAX~, SMAX+2
P	1+1, 1+18, 2+19*, 2+20, ACTUP~, ACTUP+1, ACTUP+2, ACTUP+3, ACTUP+4, ACTUP+5 , ACTUP+6, S~, S+2, S+3, SMIN~, SMIN+2, SMIN+3, SMAX~, SMAX+2, LASTVD~ , LASTVD+1, LASTVD+3
R	S~, S+2, S+3, SMIN~, SMIN+2, SMIN+3, SMAX~, SMAX+2
S	ICDMAP+3~
T	EDUALLOW~, EDUALLOW+1, EDUALLOW+3, EDUALLOW+5, ICDMAP~, ICDMAP+1, ICDMAP+5, 1+9, 1+10, 1+11 , 1+12, 1+13, 1+14, 1+15, 2+8, 2+10, 2+11, 2+12, 2+13, 2+14 , 2+15, 3+8, 3+10, 3+11, 3+12, 3+13, 3+14, 3+15, 3+17, 3+19 , 3+22, 3+23, 4+8, 4+10, 4+11, 4+12, 4+13, 4+14, 4+15, 4+17 , 4+19, ACTUP~, ACTUP+5
U	PROC+13, EDUALLOW+6, EDUALLOW+7, ICDMAP+5, ICDMAP+8, ICDMAP+11, CAT+5, JRNL+1, PROCCY+4, PROCCY+5 , PROCCY+13, PROCPY+4, PROCPY+5, PROCPY+14, PROCBY+4, PROCBY+5, PROCBY+13, 1+10, 1+13, 2+9 , 2+10, 2+13, 2+17, 2+18, 2+19, 2+20, 2+22, 2+26, 2+30, SET21+1 , SET21+4, SET21+5, SET21+6, SET22+1, SET22+4, SET22+5, SET22+6, SET23+1, SET23+4, SET23+5 , SET23+6, 3+9, 3+10, 3+13, 3+20, 3+21, SET31+3, SET31+4, SET31+5, SET32+3 , SET32+4, SET32+5, SET33+3, SET33+4, SET33+5, 4+9, 4+10, 4+13, 4+20, SET41+3 , SET41+4, SET41+5, SET42+3, SET42+4, SET42+5, SET43+3, SET43+4, SET43+5, ACTUP+4, ACTUP+5 , S+2, S+3, SMIN+2, SMIN+3, SMAX+2, SETLIST+3, SETLIST+5, LASTVD+5, LASTVD+7, LASTVD+8 , LASTVD+10, LASTVD+11, LASTVD+12
V	S~, S+1, S+2, S+3, SMIN~, SMIN+1, SMIN+2, SMIN+3, SMAX~, SMAX+1 , SMAX+2, LASTVD+5*, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, LASTVD+10, LASTVD+11, LASTVD+12
X	PROC+15, ICDMAP+3~, ICDMAP+4, ICDMAP+7, ICDMAP+8, ICDMAP+11, CAT+1~, CAT+3, CAT+4, CAT+5 , 1+7, 1+9, 1+10, 2+6, 2+8, 2+9, 2+10, 2+38, 3+6, 3+8* , 3+9, 3+10, S3+8, 4+6, 4+8, 4+9, 4+10, 4+30, ACTUP+4, ACTUP+6 , ACTUP+7, LASTVD+5*
Y	EDUALLOW~, EDUALLOW+2, EDUALLOW+3, ICDMAP~, ICDMAP+2, ICDMAP+7, ICDMAP+8, ICDMAP+11, 1+6, 1+7 , 2+5, 2+6, 2+9, 2+17, 2+18, 2+19, 2+26, 3+5, 3+6, 3+9* , 4+5, 4+6, 4+9
Z	ICDMAP+3~, ICDMAP+8, ICDMAP+9, ICDMAP+10, ICDMAP+11, SET21+3, SET21+4, SET21+5, SET21+6, SET21+7 , SET22+3, SET22+4, SET22+5, SET22+6, SET22+7, SET23+3, SET23+4, SET23+5, SET23+6, SET23+7 , SET31+2, SET31+3, SET31+4, SET31+5, SET31+6, SET32+2, SET32+3, SET32+4, SET32+5, SET32+6 , SET33+2, SET33+3, SET33+4, SET33+5, SET33+6, SET41+2, SET41+3, SET41+4, SET41+5, SET41+6 , SET42+2, SET42+3, SET42+4, SET42+5, SET42+6, SET43+2, SET43+3, SET43+4*, SET43+5, SET43+6
>> ZTQUEUED	JRNL+1

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DPE1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: