Routine: BGPDU

Package	Total	Call Graph
DRG Grouper	2	$$CODEN^ICDCODE $$CPT^ICPTCOD
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK

Package

Total

Call Graph

DRG Grouper

$$CODEN^ICDCODE $$CPT^ICPTCOD

Kernel

($$FMADD,$$FMTE)^XLFDT

Taxonomy

$$ICD^ATXCHK

Package	Total	Caller Graph
IHS GPRA Information System	6	BGP5DHE1 BGPD24 BGPD4 BGPD6 BGPD7 BGPDB

Package

Total

Caller Graph

IHS GPRA Information System

BGP5DHE1 BGPD24 BGPD4 BGPD6 BGPD7 BGPDB

Entry Points

Name	Comments	DBIA/ICR reference
PLTAX(P,A)	;EP - is DX on problem list 1 or 0
CPTI(P,BDATE,EDATE,CPTI)	;EP - did patient have this cpt (ien) in date range
WH(P,BDATE,EDATE,T,F)	;EP
COLOCPTS	;;
SIGCPTS	;;
TEXT	;
SITE
BECPTS	;;
PLCODE(P,A)	;EP
CPT(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
XIT	;
V	; GET VERSION
PRINT
BANNER	;EP

Name	Field # of Occurrence
$$ICD^ATXCHK	PLCODE+7, PLTAX+5, CPT+14, RAD+15
$$CODEN^ICDCODE	PLCODE+5
$$CPT^ICPTCOD	CPT+23, CPT+24
$$FMADD^XLFDT	WH+5, CPT+5, RAD+5
$$FMTE^XLFDT	WH+20, CPT+22, RAD+23

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLTAX+3
^AUPNPROB - [#9000011]	PLCODE+7, PLTAX+5
^AUPNPROB("AC"	PLCODE+7, PLTAX+5
^AUPNVCPT - [#9000010.18]	CPT+14, CPT+21, CPT+22, CPT+23, CPT+24
^AUPNVCPT("AA"	CPTI+6, CPTI+9
^AUPNVCPT("AD"	CPT+12, CPT+13
^AUPNVRAD - [#9000010.22]	RAD+14, RAD+22, RAD+23, RAD+24
^AUPNVRAD("AD"	RAD+12, RAD+13
^AUPNVSIT - [#9000010]	CPT+11, CPT+21, CPT+22, CPT+23, CPT+24, RAD+11, RAD+22, RAD+23, RAD+24
^AUPNVSIT("AA"	CPT+9, CPT+10, RAD+9, RAD+10
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+11, WH+19, WH+20
^BWPCD("C"	WH+8
^DIC(4 - [#4]	SITE
^ICPT - [#81]	CPTI+5
^RAMIS(71 - [#71]	RAD+14, RAD+24

Name	Line Occurrences
PRINT	V+2
XIT	SITE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PLCODE~, PLCODE+2, PLCODE+5, PLTAX~, PLTAX+2, PLTAX+3
BD	CPT+7~, CPT+8, CPT+9, RAD+7~, RAD+8, RAD+9, CPTI+7~, CPTI+8*, CPTI+9
BDATE	WH~, WH+5, WH+12, CPT~, CPT+5, CPT+8, RAD~, RAD+5*, RAD+8, CPTI~ , CPTI+3, CPTI+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!
BGPTEXT	V+2*, XIT+1!
BGPX	V+3, PRINT+1!, XIT+1!
C	RAD+7~, RAD+14*, RAD+15
CPTI	CPTI~, CPTI+2, CPTI+5, CPTI+9
D	WH+7~, WH+11, WH+12, WH+13, WH+19, WH+20*, CPT+7~, RAD+7~, CPTI+7~
DUZ(2	SITE
ED	CPT+7~, CPT+8, CPT+9, CPT+10, RAD+7~, RAD+8, RAD+9, RAD+10, CPTI+7~, CPTI+8* , CPTI+9*
EDATE	WH~, WH+4, WH+5, WH+13, CPT~, CPT+4, CPT+5, CPT+8, RAD~, RAD+4 , RAD+5, RAD+8, CPTI~, CPTI+4, CPTI+8
F	WH~, WH+3, WH+17, WH+18, WH+19, WH+20, CPT~, CPT+3, CPT+19, CPT+20 , CPT+21, CPT+22, CPT+23, CPT+24, RAD~, RAD+3*, RAD+20, RAD+21, RAD+22, RAD+23 , RAD+24
G	WH+7~, WH+8, WH+14, WH+16, WH+17, WH+18, WH+19, WH+20, CPT+7~, CPT+8* , CPT+9, CPT+10, CPT+13, CPT+14, CPT+18, CPT+19, CPT+20, CPT+21, CPT+22, CPT+23 , CPT+24, RAD+7~, RAD+8, RAD+9, RAD+10, RAD+13, RAD+15, RAD+19, RAD+20, RAD+21 , RAD+22, RAD+23, RAD+24, CPTI+7~, CPTI+8, CPTI+9*, CPTI+10
I	PLCODE+7~, PLCODE+8, PLTAX+5~, PLTAX+6
IOF	PRINT
P	WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, CPT~ , CPT+1, CPT+9, CPT+10, RAD~, RAD+1, RAD+9, RAD+10, CPTI~, CPTI+1, CPTI+6 , CPTI+9
T	WH~, WH+2, WH+10, PLCODE+3~, PLCODE+5, PLCODE+6, PLCODE+7, PLTAX+3~, PLTAX+4, PLTAX+5 , CPT~, CPT+2, CPT+14, RAD~, RAD+2, RAD+15
U	WH+10, WH+11, WH+19, WH+20, PLCODE+7, PLTAX+5, CPT+14, CPT+21, CPT+22, CPT+23 , CPT+24, RAD+14, RAD+22, RAD+23, RAD+24
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+14, CPT+7~, CPT+10, CPT+11, CPT+12 , CPT+13, CPT+21, CPT+22, CPT+23, CPT+24, RAD+7~, RAD+10, RAD+11, RAD+12, RAD+13 , RAD+22, RAD+23, RAD+24, CPTI+7~
X	WH+7~, PLCODE+7~, PLTAX+5~, CPT+7~, CPT+13, CPT+14, RAD+7~, RAD+13, RAD+14, RAD+15 , CPTI+7~
Y	WH+7~, PLCODE+7~, PLTAX+5~, CPT+7~, RAD+7~, CPTI+7~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPDU

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items