Routine: BGP4DU

Information

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

Call Graph

Call Graph Total: 9

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

Package	Total	Caller Graph
IHS GPRA Information System	68	BGP4AUEX BGP4AUUL BGP4C11 BGP4C13 BGP4CON1 BGP4CU1 BGP4D2 BGP4D21 BGP4D211 BGP4D22 BGP4D24 BGP4D25 BGP4D3 BGP4D31 BGP4D33 BGP4D35 BGP4D37 BGP4D3B BGP4D4 BGP4D42 BGP4D5 BGP4D52 BGP4D53 BGP4D61 BGP4D62 BGP4D63 BGP4D64 BGP4D7 BGP4D71 BGP4D711 BGP4D72 BGP4D721 BGP4D724 BGP4D73 BGP4D731 BGP4D732 BGP4D74 BGP4D75 BGP4D811 BGP4D812 BGP4D82 BGP4D83 BGP4D84 BGP4D861 BGP4D864 BGP4D87 BGP4D88 BGP4D9 BGP4DAP BGP4DCL BGP4DEL BGP4DGPU BGP4DL BGP4DNDB BGP4DNG BGP4DNGP BGP4DNGS BGP4DON BGP4DPA BGP4DPA4 BGP4DPA9 BGP4DPE BGP4DPP BGP4DSI BGP4DSTM BGP4EL2 BGP4EL4 BGP4NPL

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
$$DOB^AUPNPAT	LASTITEM+1
$$CODEN^BGP4UTL2	PLCODE+5
$$ICD^BGP4UTL2	PLTAX+5, CPT+16, RAD+15, TRAN+14
^DIR	PAUSE+2
$$CPT^ICPTCOD	CPT+25, CPT+26, TRAN+23, TRAN+24
$$VAL^XBDIQ1	WH+11, 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

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, CPTI+24
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, TRANI+16, 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: BGP4DU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 68

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items