Routine: BGP3DU

Information

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

Call Graph

Call Graph Total: 10

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
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS GPRA Information System	75	BGP3AUEX BGP3AUUL BGP3C11 BGP3C12 BGP3C13 BGP3C3X BGP3CON1 BGP3CP2 BGP3CP4 BGP3CU1 BGP3CU2 BGP3CU3 BGP3CU4 BGP3D2 BGP3D21 BGP3D211 BGP3D22 BGP3D24 BGP3D25 BGP3D3 BGP3D31 BGP3D33 BGP3D35 BGP3D37 BGP3D4 BGP3D42 BGP3D5 BGP3D52 BGP3D53 BGP3D61 BGP3D62 BGP3D63 BGP3D64 BGP3D7 BGP3D71 BGP3D711 BGP3D72 BGP3D721 BGP3D724 BGP3D73 BGP3D731 BGP3D732 BGP3D74 BGP3D75 BGP3D8 BGP3D811 BGP3D82 BGP3D83 BGP3D84 BGP3D861 BGP3D864 BGP3D87 BGP3D88 BGP3D9 BGP3DAP BGP3DCL BGP3DEL BGP3DGPU BGP3DL BGP3DNDB BGP3DNE BGP3DNG BGP3DNGP BGP3DNGS BGP3DON BGP3DPA BGP3DPA4 BGP3DPA9 BGP3DPE BGP3DPP BGP3DSI BGP3DSTM BGP3EL2 BGP3EL4 BGP3NPL

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	;;
PAUSE	;EP - pause
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
^DIR	PAUSE+2
$$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
Routine Call	DIR Line Location: PAUSE+2

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~
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	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: BGP3DU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 75

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items