Routine: BGP0DU

Information

BGP0DU ; IHS/CMI/LAB - gpra utility calls ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
DRG Grouper	2	$$CODEN^ICDCODE $$CPT^ICPTCOD
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXCHK

Package	Total	Caller Graph
IHS GPRA Information System	56	BGP0C11 BGP0C12 BGP0C13 BGP0C3X BGP0CON1 BGP0CP2 BGP0CP4 BGP0CU1 BGP0CU2 BGP0CU3 BGP0CU4 BGP0D2 BGP0D21 BGP0D211 BGP0D21A BGP0D22 BGP0D24 BGP0D25 BGP0D3 BGP0D31 BGP0D33 BGP0D35 BGP0D3A BGP0D4 BGP0D42 BGP0D5 BGP0D53 BGP0D61 BGP0D62 BGP0D63 BGP0D64 BGP0D7 BGP0D71 BGP0D711 BGP0D72 BGP0D721 BGP0D73 BGP0D731 BGP0D732 BGP0D75 BGP0D8 BGP0D82 BGP0D83 BGP0D84 BGP0D85 BGP0D861 BGP0D864 BGP0D87 BGP0D9 BGP0DHE1 BGP0DHE2 BGP0DPA4 BGP0EL2 BGP0EL4 BGP0EO1 BGPMUF02

Entry Points

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
SIGCPTS	;;
WH(P,BDATE,EDATE,T,F)	;EP
COLOCPTS	;;
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
TRANI(P,BDATE,EDATE,CPTI)	;EP
SITE
CPTI(P,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PLCODE(P,A)	;EP
CPT(P,BDATE,EDATE,T,F,SCEX)	;EP - return ien of CPT entry if patient had this CPT
XIT	;
TEXT	;
V	; GET VERSION
PRINT
BECPTS	;;
BANNER	;EP
LASTITEM(P,BD,ED,BGPT,BGPV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF

External References

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

Interaction Calls

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+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

Label References

Name	Line Occurrences
PRINT	V+2
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
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*, CPT+8~, RAD+7~ , CPTI+10~, TRAN+7~
DT	LASTITEM+2
DUZ(2	SITE
E	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, 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, CPTI+10~, CPTI+13*, CPTI+14, CPTI+17 , CPTI+18
IOF	PRINT
J	CPTI+10~, CPTI+20, CPTI+22
K	CPTI+10~, CPTI+20, CPTI+22
M	CPTI+10~, CPTI+17*, CPTI+20
M1	CPTI+10~, CPTI+18*, CPTI+22
O	WH+7~
P	WH~, WH+1, WH+8, PLCODE~, PLCODE+1, PLCODE+7, PLTAX~, PLTAX+1, PLTAX+5, 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 , 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, 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~, CPT+8~, CPT+15, CPT+16, RAD+7~, RAD+13, RAD+14, RAD+15 , CPTI+10~, TRANI+7~, TRANI+9, TRANI+10, TRANI+12, TRAN+7~, TRAN+13, TRAN+14
Y	WH+7~, PLCODE+7~, PLTAX+5~, CPT+8~, RAD+7~, CPTI+10~, TRAN+7~, LASTITEM+5~
Z	CPTI+10~

Marked Items

Name	Field # of Occurrence
$T(@BGPTEXT+BGPJ	V+3, PRINT+1

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0DU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 56

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items