Routine: BGP8DU

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	$$ICD^BGP8UTL2
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Taxonomy	1	BLDTAX^ATXAPI
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS GPRA Information System	107	BGP8AUEX BGP8AUUL BGP8C12 BGP8C13 BGP8C3X BGP8CON1 BGP8CP2 BGP8CP4 BGP8CU1 BGP8CU2 BGP8CU3 BGP8CU4 BGP8D2 BGP8D21 BGP8D211 BGP8D212 BGP8D213 BGP8D214 BGP8D21A BGP8D22 BGP8D25 BGP8D27 BGP8D3 BGP8D31 BGP8D33 BGP8D35 BGP8D36 BGP8D37 BGP8D3A BGP8D3B BGP8D3C BGP8D4 BGP8D52 BGP8D53 BGP8D54 BGP8D55 BGP8D61 BGP8D62 BGP8D63 BGP8D7 BGP8D71 BGP8D711 BGP8D714 BGP8D72 BGP8D721 BGP8D722 BGP8D724 BGP8D73 BGP8D731 BGP8D732 BGP8D74 BGP8D75 BGP8D811 BGP8D812 BGP8D82 BGP8D83 BGP8D84 BGP8D841 BGP8D861 BGP8D864 BGP8D87 BGP8D88 BGP8D9 BGP8DAP BGP8DCL BGP8DEL BGP8DGPU BGP8DHE1 BGP8DHE2 BGP8DL BGP8DNDB BGP8DNG BGP8DNGP BGP8DNGS BGP8DON BGP8DPA BGP8DPA4 BGP8DPE BGP8DPP BGP8DSI BGP8DSTM BGP8EL2 BGP8EO1 BGP8EO11 BGP8NPL BGP8PC1 BGP8PC10 BGP8PC11 BGP8PC12 BGP8PC13 BGP8PC14 BGP8PC15 BGP8PC16 BGP8PC2 BGP8PC4 BGP8PC6 BGP8PC62 BGP8PC64 BGP8PC65 BGP8PC67 BGP8PC68 BGP8PC69 BGP8PC7 BGP8PC8 BGP8PC9 BGP8PCD BGP8UTL2

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
COLOCPTS	;;
TEXT	;
IPLSNOND(P,T,E,Z)	;EP - any problem list entry with a SNOMED in T
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PLTAXND(P,A,E,Z)
ALLCPT(P,BD,ED,T,A)	;EP - ALL CPTS IN A DATE RANGE IN TAXONOMY T
PRINT
BANNER	;EP
SIGCPTS	;;
PLTAXID(P,A,B,E,Z)
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
CHK
SITE
S
TRANI(P,BDATE,EDATE,CPTI)	;EP
XIT	;
V	; GET VERSION
IPLSNOID(P,T,B,E,Z)	;EP - any problem list entry with a SNOMED in T
BECPTS	;;
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
BLDTAX^ATXAPI	ALLCPT+11
$$DOB^AUPNPAT	LASTITEM+1
$$ICD^BGP8UTL2	PLTAXND+18, 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+21, 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 - [#9002226]	ALLCPT+11
^ATXAX("B"	PLTAXND+7, PLTAXID+8
^AUPNPROB - [#9000011]	PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19, PLTAXND+20, IPLSNOND+8, IPLSNOND+9 , IPLSNOND+10, IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17 , PLTAXID+18, PLTAXID+19, IPLSNOID+9, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14, IPLSNOID+15
^AUPNPROB("AC"	PLTAXND+11, PLTAXID+12
^AUPNPROB("APCT"	IPLSNOND+6, IPLSNOND+7, IPLSNOID+7, IPLSNOID+8
^AUPNVCPT - [#9000010.18]	ALLCPT+18, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, CPTI+14
^AUPNVCPT("AA"	ALLCPT+15, ALLCPT+16, 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+11, IPLSNOID+10

Name	Line Occurrences
CHK	PLTAXID+21, PLTAXID+22, PLTAXID+23
PRINT	V+2
S	IPLSNOID+17, IPLSNOID+18, IPLSNOID+19
XIT	SITE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LASTITEM+5~*
A	PLTAXND~, PLTAXND+4, PLTAXND+7, PLTAXID~, PLTAXID+4, PLTAXID+8, ALLCPT~, ALLCPT+18
B	PLTAXID~, PLTAXID+6, PLTAXID+21, PLTAXID+22, PLTAXID+23, IPLSNOID~, IPLSNOID+3, IPLSNOID+17, IPLSNOID+18, IPLSNOID+19 , ALLCPT+9~, ALLCPT+14*, ALLCPT+15
BD	ALLCPT~, ALLCPT+14, 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!
BGPC	ALLCPT+9~, ALLCPT+12, ALLCPT+17, ALLCPT+18
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
CPTTAX	ALLCPT+9~
CPTTAX(	ALLCPT+13, ALLCPT+18
D	WH+7~, WH+12, WH+13, WH+14, WH+15, WH+16, WH+21, WH+22, PLTAXND+9~, PLTAXND+19 , PLTAXND+20, PLTAXND+21, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, PLTAXID+10~, PLTAXID+19, PLTAXID+20, PLTAXID+21, IPLSNOID+15* , IPLSNOID+16, IPLSNOID+17, ALLCPT+9~, ALLCPT+15*, ALLCPT+16, ALLCPT+18, 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+16, PLTAXND+17, IPLSNOND~, IPLSNOND+4, IPLSNOND+12, IPLSNOND+13, PLTAXID~, PLTAXID+5* , PLTAXID+20, PLTAXID+21, PLTAXID+22, PLTAXID+23, IPLSNOID~, IPLSNOID+4, IPLSNOID+16, IPLSNOID+17, IPLSNOID+18, IPLSNOID+19 , ALLCPT+9~, ALLCPT+14, ALLCPT+15, LASTITEM+5~*
ED	ALLCPT~, ALLCPT+14, 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+6, IPLSNOND+7, IPLSNOND+16, IPLSNOND+17, IPLSNOID+2~, IPLSNOID+6, IPLSNOID+7, IPLSNOID+8, S+1, S+2 , ALLCPT+9~, ALLCPT+15, 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, PLTAXND+9~, PLTAXND+10, PLTAXND+11, PLTAXND+21, PLTAXND+23, PLTAXID+10~, PLTAXID+11, PLTAXID+12 , CHK+2, CHK+4, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17, CPTI+18, CPTI+24
IOF	PRINT
J	ALLCPT+9~, ALLCPT+13, ALLCPT+15, ALLCPT+16, ALLCPT+18, CPTI+10~, CPTI+20, CPTI+22*
K	CPTI+10~, CPTI+20, CPTI+22
M	PLTAXID+10~, PLTAXID+18, PLTAXID+23, CHK+2, IPLSNOID+2~, IPLSNOID+14, IPLSNOID+19, S+1, CPTI+10~, CPTI+17* , CPTI+20
M1	CPTI+10~, CPTI+18*, CPTI+22
O	WH+7~, PLTAXID+10~, PLTAXID+17, PLTAXID+22, CHK+2, IPLSNOID+2~, IPLSNOID+13, IPLSNOID+18, S+1
P	WH~, WH+1, WH+8, PLTAXND~, PLTAXND+3, PLTAXND+11, IPLSNOND~, IPLSNOND+6, IPLSNOND+7, PLTAXID~ , PLTAXID+3, PLTAXID+12, IPLSNOID~, IPLSNOID+7, IPLSNOID+8, ALLCPT~, ALLCPT+15, ALLCPT+16, 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, PLTAXND+7~, PLTAXND+8, PLTAXND+18, IPLSNOND~, IPLSNOND+11, PLTAXID+8~, PLTAXID+9 , CHK+1, IPLSNOID~, IPLSNOID+10, ALLCPT~, ALLCPT+7*, ALLCPT+8, ALLCPT+11, 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, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17, PLTAXND+19 , PLTAXND+20, PLTAXND+21, IPLSNOND+9, IPLSNOND+10, IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, IPLSNOND+16, PLTAXID+14 , PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18, PLTAXID+19, CHK+2, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14 , IPLSNOID+15, S+1, ALLCPT+11, ALLCPT+18, 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, ALLCPT+9~, 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~, PLTAXND+9~, PLTAXND+10, PLTAXND+11, PLTAXND+12, PLTAXND+13, PLTAXND+14, PLTAXND+15, PLTAXND+16, PLTAXND+17 , PLTAXND+19, PLTAXND+20, PLTAXND+21, IPLSNOND+2~, IPLSNOND+3, IPLSNOND+6, IPLSNOND+7, IPLSNOND+11, IPLSNOND+16, PLTAXID+10~ , PLTAXID+11, PLTAXID+12, PLTAXID+13, PLTAXID+14, PLTAXID+15, PLTAXID+16, PLTAXID+17, PLTAXID+18, PLTAXID+19, CHK+2 , IPLSNOID+2~, IPLSNOID+6, IPLSNOID+7, IPLSNOID+8, IPLSNOID+10, S+1, ALLCPT+9~, ALLCPT+16, ALLCPT+18, 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~, PLTAXND+9~, PLTAXND+10, PLTAXND+15, PLTAXND+18, IPLSNOND+2~, IPLSNOND+7, IPLSNOND+8, IPLSNOND+9, IPLSNOND+10 , IPLSNOND+12, IPLSNOND+13, IPLSNOND+14, IPLSNOND+15, PLTAXID+10~, PLTAXID+11, PLTAXID+16, CHK+1, IPLSNOID+2~, IPLSNOID+8 , IPLSNOID+9, IPLSNOID+11, IPLSNOID+12, IPLSNOID+13, IPLSNOID+14, IPLSNOID+15, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~ , LASTITEM+5~
Z	PLTAXND~, PLTAXND+6, PLTAXND+14, IPLSNOND~, IPLSNOND+5, IPLSNOND+10, PLTAXID~, PLTAXID+7, PLTAXID+20, IPLSNOID~ , IPLSNOID+5, IPLSNOID+16, CPTI+10~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 107

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items