Routine: BGP7DU

Package	Total	Call Graph
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
DRG Grouper	1	$$CPT^ICPTCOD
IHS GPRA Information System	1	($$CODEN,$$ICD)^BGP7UTL2
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS GPRA Information System	79	BGP7AUEX BGP7AUUL BGP7C1 BGP7C12 BGP7C13 BGP7C3 BGP7CON1 BGP7CU1 BGP7D2 BGP7D21 BGP7D211 BGP7D212 BGP7D213 BGP7D214 BGP7D21A BGP7D22 BGP7D25 BGP7D27 BGP7D3 BGP7D31 BGP7D33 BGP7D35 BGP7D37 BGP7D3A BGP7D3B BGP7D4 BGP7D52 BGP7D53 BGP7D54 BGP7D55 BGP7D61 BGP7D62 BGP7D63 BGP7D64 BGP7D7 BGP7D71 BGP7D711 BGP7D714 BGP7D72 BGP7D721 BGP7D722 BGP7D724 BGP7D73 BGP7D731 BGP7D732 BGP7D74 BGP7D75 BGP7D811 BGP7D812 BGP7D82 BGP7D83 BGP7D84 BGP7D841 BGP7D861 BGP7D864 BGP7D87 BGP7D88 BGP7D9 BGP7DAP BGP7DCL BGP7DEL BGP7DGPU BGP7DHE1 BGP7DHE2 BGP7DL BGP7DNDB BGP7DNG BGP7DNGP BGP7DNGS BGP7DON BGP7DPA BGP7DPA4 BGP7DPE BGP7DPP BGP7DSI BGP7DSTM BGP7EL2 BGP7NPL BGP7UTL2
iCare	1	BQICMUT2

Name	Comments	DBIA/ICR reference
TRAN(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT IN A TRAN CODE
PLTAX(P,A)	;EP - is DX on problem list 1 or 0
TEXT	;
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PLTAXND(P,A,E)
PRINT
BANNER	;EP
SIGCPTS	;;
IPLSNOND(P,T,E)	;EP - any problem list entry with a SNOMED in T
CPT(P,BDATE,EDATE,T,F,SCEX)	;EP - return ien of CPT entry if patient had this CPT
PAUSE	;EP - pause
WH(P,BDATE,EDATE,T,F)	;EP
COLOCPTS	;;
CHK
SITE
IPLSNOID(P,T,B,E)	;EP - any problem list entry with a SNOMED in T
S
TRANI(P,BDATE,EDATE,CPTI)	;EP
XIT	;
V	; GET VERSION
PLTAXID(P,A,B,E)
BECPTS	;;
PLCODE(P,A)	;EP
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
LASTITEM(P,BD,ED,BGPT,BGPV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF

Name	Field # of Occurrence
$$START1^APCLDF	LASTITEM+5
$$CLINIC^APCLV	CPTI+16
$$DOB^AUPNPAT	LASTITEM+1
$$CODEN^BGP7UTL2	PLCODE+5
$$ICD^BGP7UTL2	PLTAX+5, PLTAXND+16, CHK+1, CPT+16, RAD+15, TRAN+14
^DIR	PAUSE+2
$$CPT^ICPTCOD	CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1	WH+11, PLTAXND+19, CHK+2, CPTI+17, CPTI+18
$$VALI^XBDIQ1	CPTI+24, TRANI+16
$$FMADD^XLFDT	WH+5, CPT+6, RAD+5, TRAN+5
$$FMTE^XLFDT	WH+22, CPT+24, RAD+23, TRAN+22
$$UP^XLFSTR	WH+11

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(BGPX)\2,BGPX Line Location: PRINT+1
Function Call: WRITE	Prompt: !?80-(8+$L(BGP("VERSION")))/2,"Version ",BGP("VERSION") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?80-$L(BGP("SITE"))\2,BGP("SITE") Line Location: SITE+0
Routine Call	DIR Line Location: PAUSE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLTAX+3, PLTAXND+6, PLTAXID+7
^AUPNPROB - [#9000011]	PLCODE+7, PLTAX+5, PLTAXND+11, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+17, PLTAXND+18, IPLSNOND+6 , IPLSNOND+7, IPLSNOND+9, IPLSNOND+10, IPLSNOND+11, IPLSNOND+12, PLTAXID+12, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16 , PLTAXID+17, PLTAXID+18, IPLSNOID+8, IPLSNOID+10, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14
^AUPNPROB("AC"	PLCODE+7, PLTAX+5, PLTAXND+10, PLTAXID+11
^AUPNPROB("APCT"	IPLSNOND+4, IPLSNOND+5, IPLSNOID+6, IPLSNOID+7
^AUPNVCPT - [#9000010.18]	CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, CPTI+14
^AUPNVCPT("AA"	CPTI+9, CPTI+12, CPTI+13
^AUPNVCPT("AD"	CPT+13, CPT+15
^AUPNVRAD - [#9000010.22]	RAD+14, RAD+22, RAD+23, RAD+24, RAD+25
^AUPNVRAD("AD"	RAD+12, RAD+13
^AUPNVSIT - [#9000010]	CPT+12, CPT+14, CPT+23, CPT+24, CPT+25, CPT+26, RAD+11, RAD+22, RAD+23, RAD+24 , RAD+25, CPTI+15, TRANI+13, TRAN+11, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVSIT("AA"	CPT+10, CPT+11, RAD+9, RAD+10, TRAN+9, TRAN+10
^AUPNVTC - [#9000010.33]	TRANI+10, TRANI+12, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVTC("AC"	TRANI+6, TRANI+9
^AUPNVTC("AD"	TRAN+12, TRAN+13
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+12, WH+21, WH+22
^BWPCD("C"	WH+8
^DIC(4 - [#4]	SITE
^ICPT - [#81]	CPTI+8, TRANI+5
^RAMIS(71 - [#71]	RAD+14, RAD+24, RAD+25
^XTMP("BGPSNOMEDSUBSET"	IPLSNOND+8, IPLSNOID+9

Name	Line Occurrences
CHK	PLTAXID+19, PLTAXID+20, PLTAXID+21
PRINT	V+2
S	IPLSNOID+15, IPLSNOID+16, IPLSNOID+17
XIT	SITE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LASTITEM+5~*
A	PLCODE~, PLCODE+2, PLCODE+5, PLTAX~, PLTAX+2, PLTAX+3, PLTAXND~, PLTAXND+4, PLTAXND+6, PLTAXID~ , PLTAXID+4, PLTAXID+7
B	PLTAXID~, PLTAXID+6, PLTAXID+19, PLTAXID+20, PLTAXID+21, IPLSNOID~, IPLSNOID+3, IPLSNOID+15, IPLSNOID+16, IPLSNOID+17
BD	CPT+8~, CPT+9, CPT+10, RAD+7~, RAD+8, RAD+9, CPTI+10~, CPTI+11, CPTI+12, TRAN+7~ , TRAN+8, TRAN+9, LASTITEM~, LASTITEM+1*, LASTITEM+5
BDATE	WH~, WH+5, WH+13, CPT~, CPT+6, CPT+9, RAD~, RAD+5, RAD+8, CPTI~ , CPTI+3, CPTI+11, TRANI~, TRANI+3, TRANI+14, TRAN~, TRAN+5, TRAN+8
>> BGP("SITE"	SITE*, XIT+1!
>> BGP("VERSION"	V+1*, PRINT+2, XIT+1!
BGPJ	V+3, PRINT+1, XIT+1!
BGPLINE	V+2, V+3, PRINT+1, XIT+1!
BGPR	LASTITEM+5~
BGPR(1	LASTITEM+6, LASTITEM+7
BGPT	LASTITEM~, LASTITEM+3, LASTITEM+5
BGPTEXT	V+2*, XIT+1!
BGPV	LASTITEM~, LASTITEM+4, LASTITEM+5
BGPX	V+3, PRINT+1!, XIT+1!
C	RAD+7~, RAD+14, RAD+15, TRANI+7~, TRANI+10, TRANI+11
CPTI	CPTI~, CPTI+2, CPTI+8, CPTI+12, CPTI+13, TRANI~, TRANI+5, TRANI+11
D	WH+7~, WH+12, WH+13, WH+14, WH+15, WH+16, WH+21, WH+22, PLTAXND+8~, PLTAXND+17 , PLTAXND+18, PLTAXND+19, IPLSNOND+11, IPLSNOND+12, IPLSNOND+13, PLTAXID+9~, PLTAXID+18, PLTAXID+19, IPLSNOID+14*, IPLSNOID+15 , CPT+8~, RAD+7~, CPTI+10~, TRAN+7~
DFOUT	PAUSE+1!
DIR	PAUSE+1!, PAUSE+2!
DIR("A"	PAUSE+2*
DIR(0	PAUSE+2*
DIRUT	PAUSE+1!
DLOUT	PAUSE+1!
DT	LASTITEM+2
DTOUT	PAUSE+1!
DUOUT	PAUSE+1!
DUZ(2	SITE
E	PLTAXND~, PLTAXND+5, PLTAXND+14, PLTAXND+15, IPLSNOND~, IPLSNOND+9, IPLSNOND+10, PLTAXID~, PLTAXID+5, PLTAXID+19 , PLTAXID+20, PLTAXID+21, IPLSNOID~, IPLSNOID+4, IPLSNOID+15, IPLSNOID+16, IPLSNOID+17, LASTITEM+5~
ED	CPT+8~, CPT+9, CPT+10, CPT+11, RAD+7~, RAD+8, RAD+9, RAD+10, CPTI+10~, CPTI+11* , CPTI+12, CPTI+13, CPTI+24, TRAN+7~, TRAN+8, TRAN+9, TRAN+10, LASTITEM~, LASTITEM+2, LASTITEM+5
EDATE	WH~, WH+4, WH+5, WH+14, CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4 , RAD+5, RAD+8, CPTI~, CPTI+4, CPTI+11, TRANI~, TRANI+4, TRANI+15, TRAN~, TRAN+4 , TRAN+5, TRAN+8
F	WH~, WH+3, WH+19, WH+20, WH+21, WH+22, CPT~, CPT+3, CPT+21, CPT+22 , CPT+23, CPT+24, CPT+25, CPT+26, RAD~, RAD+3, RAD+20, RAD+21, RAD+22, RAD+23 , RAD+24, RAD+25, TRAN~, TRAN+3, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24
G	WH+7~, WH+8, WH+16, WH+18, WH+19, WH+20, WH+21, WH+22, IPLSNOND+2~, IPLSNOND+3* , IPLSNOND+4, IPLSNOND+5, IPLSNOND+13, IPLSNOND+14, IPLSNOID+2~, IPLSNOID+5, IPLSNOID+6, IPLSNOID+7, S+1, S+2 , CPT+8~, CPT+9, CPT+10, CPT+11, CPT+15, CPT+16, CPT+20, CPT+21, CPT+22, CPT+23 , CPT+24, CPT+25, CPT+26, RAD+7~, RAD+8, RAD+9, RAD+10, RAD+13, RAD+15, RAD+19 , RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+10~, CPTI+11, CPTI+12, CPTI+13 , CPTI+24, CPTI+25, TRANI+7~, TRANI+8, TRANI+16, TRANI+17, TRAN+7~, TRAN+8, TRAN+9, TRAN+10 , TRAN+13, TRAN+14*, TRAN+18, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24
G(	WH+16*
G(0	WH+15
I	WH+8, WH+15, PLCODE+7~, PLCODE+8, PLTAX+5~, PLTAX+6, PLTAXND+8~, PLTAXND+9, PLTAXND+10, PLTAXND+19 , PLTAXND+21, PLTAXID+9~, PLTAXID+10, PLTAXID+11, CHK+2, CHK+4, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17 , CPTI+18, CPTI+24
IOF	PRINT
J	CPTI+10~, CPTI+20, CPTI+22
K	CPTI+10~, CPTI+20, CPTI+22
M	PLTAXID+9~, PLTAXID+17, PLTAXID+21, CHK+2, IPLSNOID+2~, IPLSNOID+13, IPLSNOID+17, S+1, CPTI+10~, CPTI+17* , CPTI+20
M1	CPTI+10~, CPTI+18*, CPTI+22
O	WH+7~, PLTAXID+9~, PLTAXID+16, PLTAXID+20, CHK+2, IPLSNOID+2~, IPLSNOID+12, IPLSNOID+16, S+1
P	WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, PLTAXND~ , PLTAXND+3, PLTAXND+10, IPLSNOND~, IPLSNOND+4, IPLSNOND+5, PLTAXID~, PLTAXID+3, PLTAXID+11, IPLSNOID~, IPLSNOID+6 , IPLSNOID+7, CPT~, CPT+1, CPT+10, CPT+11, RAD~, RAD+1, RAD+9, RAD+10, CPTI~ , CPTI+1, CPTI+9, CPTI+12, CPTI+13, TRANI~, TRANI+1, TRANI+6, TRANI+9, TRAN~, TRAN+1 , TRAN+9, TRAN+10, LASTITEM~, LASTITEM+1, LASTITEM+5
Q	CPTI+10~, CPTI+19, CPTI+20, CPTI+21, CPTI+22*, CPTI+23
R	LASTITEM+5!
SCEX	CPT~, CPT+4, CPT+14, CPTI~, CPTI+5, CPTI+15
SCLN	CPTI~, CPTI+6*, CPTI+16
SMOD	CPTI~, CPTI+7*, CPTI+20, CPTI+22
T	WH~, WH+2, WH+10, PLCODE+3~, PLCODE+5, PLCODE+6, PLCODE+7, PLTAX+3~, PLTAX+4, PLTAX+5 , PLTAXND+6~, PLTAXND+7, PLTAXND+16, IPLSNOND~, IPLSNOND+8, PLTAXID+7~, PLTAXID+8, CHK+1, IPLSNOID~, IPLSNOID+9 , CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~, TRAN+2, TRAN+14
>> TRANI	TRANI+2
U	WH+10, WH+12, WH+21, WH+22, PLCODE+7, PLTAX+5, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15 , PLTAXND+17, PLTAXND+18, PLTAXND+19, IPLSNOND+7, IPLSNOND+9, IPLSNOND+10, IPLSNOND+11, IPLSNOND+12, IPLSNOND+13, PLTAXID+13 , PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18, CHK+2, IPLSNOID+10, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13 , IPLSNOID+14, S+1, CPT+14, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, RAD+14, RAD+22 , RAD+23, RAD+24, RAD+25, CPTI+14, CPTI+15, TRANI+10, TRANI+12, TRANI+13, TRAN+14, TRAN+21 , TRAN+22, TRAN+23, TRAN+24, LASTITEM+7
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+12, WH+16, CPT+8~, CPT+11, CPT+12 , CPT+13, CPT+14, CPT+15, CPT+23, CPT+24, CPT+25, CPT+26, RAD+7~, RAD+10, RAD+11 , RAD+12, RAD+13, RAD+22, RAD+23, RAD+24, RAD+25, CPTI+10~, CPTI+14, CPTI+15, CPTI+16 , TRANI+7~, TRANI+12, TRANI+13, TRANI+14, TRANI+15, TRANI+16, TRAN+7~, TRAN+10, TRAN+11, TRAN+12 , TRAN+13, TRAN+21, TRAN+22, TRAN+23, TRAN+24*
X	WH+7~, PLCODE+7~, PLTAX+5~, PLTAXND+8~, PLTAXND+9, PLTAXND+10, PLTAXND+11, PLTAXND+12, PLTAXND+13, PLTAXND+14 , PLTAXND+15, PLTAXND+17, PLTAXND+18, PLTAXND+19, IPLSNOND+2~, IPLSNOND+3, IPLSNOND+4, IPLSNOND+5, IPLSNOND+8, IPLSNOND+13 , PLTAXID+9~, PLTAXID+10, PLTAXID+11, PLTAXID+12, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18 , CHK+2, IPLSNOID+2~, IPLSNOID+5, IPLSNOID+6, IPLSNOID+7, IPLSNOID+9, S+1, CPT+8~, CPT+15, CPT+16 , RAD+7~, RAD+13, RAD+14, RAD+15, CPTI+10~, TRANI+7~, TRANI+9, TRANI+10, TRANI+12, TRANI+16 , TRAN+7~, TRAN+13, TRAN+14
Y	WH+7~, PLCODE+7~, PLTAX+5~, PLTAXND+8~, PLTAXND+9, PLTAXND+13, PLTAXND+16, IPLSNOND+2~, IPLSNOND+5, IPLSNOND+6 , IPLSNOND+7, IPLSNOND+9, IPLSNOND+10, IPLSNOND+11, IPLSNOND+12, PLTAXID+9~, PLTAXID+10, PLTAXID+15, CHK+1, IPLSNOID+2~ , IPLSNOID+7, IPLSNOID+8, IPLSNOID+10, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14, CPT+8~, RAD+7~, CPTI+10~ , TRAN+7~, LASTITEM+5~
Z	CPTI+10~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7DU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 80

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items