Routine: BGPMUUT1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
FileMan Files Accessed Via FileMan Db Call
Global Variables Directly Accessed
Local Variables

Information

BGPMUUT1 ; IHS/MSC/MGH - Meaningful use utility calls ;01-Mar-2011 15:35;MGH

Source Information

Source file <BGPMUUT1.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 53

Package	Total	Caller Graph
IHS GPRA Information System	53	BGPMUA01 BGPMUA02 BGPMUA03 BGPMUA04 BGPMUA05 BGPMUA06 BGPMUA07 BGPMUA08 BGPMUA09 BGPMUA10 BGPMUA11 BGPMUA12 BGPMUA13 BGPMUC01 BGPMUD01 BGPMUD02 BGPMUD03 BGPMUD04 BGPMUD05 BGPMUD06 BGPMUD07 BGPMUD08 BGPMUD09 BGPMUD10 BGPMUF01 BGPMUF04 BGPMUF05 BGPMUF06 BGPMUF07 BGPMUF08 BGPMUF09 BGPMUG01 BGPMUG02 BGPMUG03 BGPMUG04 BGPMUG05 BGPMUG06 BGPMUG07 BGPMUG08 BGPMUG09 BGPMUH03 BGPMUH04 BGPMUH05 BGPMUH07 BGPMUH08 BGPMUH09 BGPMUH10 BGPMUH11 BGPMUH12 BGPMUH13 BGPMUH14 BGPMUH15 BGPMUW01

Entry Points

Name	Comments	DBIA/ICR reference
VSTCPT(DFN,VIEN,TAX)	;EP Check to see if the patient had a CPT on a particular visit
WH(P,BDATE,EDATE,T,F)	;EP
CPTI(DFN,BDATE,EDATE,CPTI,SCEX,SCLN,SMOD)	;EP - did patient have this cpt (ien) in date range
PLCODE(P,A)	;EP
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
CPT(DFN,BDATE,EDATE,TAX)	;EP - return ien of CPT entry if patient had this CPT
PRVOLD(VISIT,PROV)	;Is this provider a provider for this visit - NO PRIMARY/SECONDARY CHECK
PRV(VISIT,PROV)	;EP - Is this provider a provider for this visit
LASTITEM(P,BD,ED,BGPT,BGPV)	;PEP - return last item APCLV OF TYPE APCLT DURING BD TO ED IN FORM APCLF
PLTAX(DFN,TAX,STAT,CDATE)	;EP - is DX on problem list 1 or 0

External References

Name	Field # of Occurrence
$$START1^APCLDF	LASTITEM+5
$$CLINIC^APCLV	CPTI+16
$$ICD^ATXCHK	PLTAX+20, CPT+15, VSTCPT+10, RAD+18
$$DOB^AUPNPAT	LASTITEM+1
$$GET1^DIQ	PLTAX+25, PLTAX+26, PLTAX+27
$$CODEN^ICDCODE	PLCODE+5
$$VAL^XBDIQ1	CPTI+17, CPTI+18
$$FMADD^XLFDT	WH+3, CPT+6, RAD+3
$$FMTE^XLFDT	WH+21, RAD+26

FileNo	Call Tags
^ICD9 - [#80]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLTAX+10, CPT+5, VSTCPT+6, RAD+8
^AUPNPROB - [#9000011]	PLCODE+7, PLTAX+15, PLTAX+16, PLTAX+17, PLTAX+21, PLTAX+22
^AUPNPROB("AC"	PLCODE+7, PLTAX+14
^AUPNVCPT - [#9000010.18]	CPT+15, CPT+22, CPT+23, CPT+24, VSTCPT+10, VSTCPT+14, VSTCPT+15, CPTI+14
^AUPNVCPT("AA"	CPTI+9, CPTI+12, CPTI+13
^AUPNVCPT("AD"	CPT+13, CPT+14, VSTCPT+8, VSTCPT+9
^AUPNVPRV - [#9000010.06]	PRV+5, PRVOLD+4
^AUPNVPRV("AD"	PRV+4, PRVOLD+3
^AUPNVRAD - [#9000010.22]	RAD+15, RAD+17, RAD+25, RAD+26, RAD+27, RAD+28, RAD+29
^AUPNVRAD("AD"	RAD+13, RAD+14
^AUPNVSIT - [#9000010]	CPT+12, CPT+24, VSTCPT+7, RAD+12, RAD+25, RAD+26, RAD+27, RAD+28, CPTI+15
^AUPNVSIT("AA"	CPT+10, CPT+11, RAD+10, RAD+11
^BWPCD - [#9002086.1]	WH+9, WH+10, WH+11, WH+20, WH+21
^BWPCD("C"	WH+8
^ICPT - [#81]	CPT+22, VSTCPT+15, CPTI+8
^RAMIS(71 - [#71]	RAD+17, RAD+27, RAD+28, RAD+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LASTITEM+5~*
A	PLCODE~, PLCODE+2, PLCODE+5
BD	CPT+1~, CPT+8~, CPT+9, CPT+10, RAD+7~, RAD+9, RAD+10, CPTI+10~, CPTI+11, CPTI+12 , LASTITEM~, LASTITEM+1, LASTITEM+5
BDATE	WH~, WH+3, WH+12, CPT~, CPT+6, CPT+9, RAD~, RAD+3*, RAD+9, RAD+16 , CPTI~, CPTI+3, CPTI+11
BGPR	LASTITEM+5~
BGPR(1	LASTITEM+6, LASTITEM+7
BGPT	LASTITEM~, LASTITEM+3, LASTITEM+5
BGPV	LASTITEM~, LASTITEM+4, LASTITEM+5
C	RAD+7~, RAD+17*, RAD+18
CDATE	PLTAX~, PLTAX+6*, PLTAX+19
CPT	CPT+22, VSTCPT+1~, VSTCPT+15
CPTDATE	CPT+1~, CPT+23*, CPT+25
CPTI	CPTI~, CPTI+2, CPTI+8, CPTI+12, CPTI+13
CPTT	CPT+1~, CPT+22, CPT+25, VSTCPT+1~, VSTCPT+15, VSTCPT+16
D	WH+7~, WH+11, WH+12, WH+13, WH+14, WH+15, WH+20, WH+21*, CPT+8~, RAD+7~ , CPTI+10~
DFN	PLTAX~, PLTAX+7, PLTAX+14, CPT~, CPT+2, CPT+10, CPT+11, VSTCPT~, VSTCPT+3, CPTI~
DT	LASTITEM+2
E	LASTITEM+5~*
ED	CPT+1~, CPT+8~, CPT+9, CPT+10, CPT+11, RAD+7~, RAD+9, RAD+10, RAD+11, CPTI+10~ , CPTI+11, CPTI+12, CPTI+13, CPTI+24, LASTITEM~, LASTITEM+2*, LASTITEM+5
EDATE	WH~, WH+2, WH+3, WH+13, CPT~, CPT+4, CPT+6, CPT+9, RAD~, RAD+2 , RAD+3, RAD+9, RAD+16, CPTI~, CPTI+4, CPTI+11
EDT	PLTAX+12~, PLTAX+16, PLTAX+18, PLTAX+19
EDTE	PLTAX+12~, PLTAX+22*, PLTAX+24
>> EVDATE	RAD+15*, RAD+16
EVDT	VSTCPT+1~, VSTCPT+14*, VSTCPT+16
F	WH~, WH+5, WH+18, WH+19, WH+20, WH+21, RAD~, RAD+5, RAD+23, RAD+24 , RAD+25, RAD+26, RAD+27, RAD+28, RAD+29
G	WH+7~, WH+8, WH+15, WH+17, WH+18, WH+19, WH+20, WH+21, CPT+1~, CPT+8~ , CPT+9, CPT+10, CPT+11, CPT+14, CPT+15, CPT+19, CPT+20, CPT+22, CPT+23, CPT+24 , CPT+25, CPT+26, VSTCPT+1~, VSTCPT+2, VSTCPT+9, VSTCPT+10, VSTCPT+12, VSTCPT+13, VSTCPT+14, VSTCPT+15 , VSTCPT+16, VSTCPT+17, RAD+7~, RAD+9, RAD+10, RAD+11, RAD+14, RAD+18, RAD+22, RAD+23 , RAD+24, RAD+25, RAD+26, RAD+27, RAD+28, RAD+29, CPTI+10~, CPTI+11, CPTI+12, CPTI+13 , CPTI+24, CPTI+25
G(	WH+15*
G(0	WH+14
I	WH+8, WH+14, PLCODE+7~, PLCODE+8, PLTAX+12~, PLTAX+13, PLTAX+14, PLTAX+25, PLTAX+26, PLTAX+27* , PLTAX+28, CPTI+10~, CPTI+13, CPTI+14, CPTI+17, CPTI+18, PRV+2~, PRV+3, PRV+4, PRV+6* , PRV+7, PRVOLD+1~, PRVOLD+2, PRVOLD+3, PRVOLD+4, PRVOLD+5
ICD	PLTAX+12~, PLTAX+13, PLTAX+15, PLTAX+20, PLTAX+25, PLTAX+26, PLTAX+27
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, RAD~, RAD+1, RAD+10, RAD+11 , CPTI+1, CPTI+9, CPTI+12, CPTI+13, LASTITEM~, LASTITEM+1, LASTITEM+5
PDTE	PLTAX+12~, PLTAX+23, PLTAX+24, PLTAX+25, PLTAX+26, PLTAX+27
PLSTAT	PLTAX+10~, PLTAX+15*, PLTAX+26, PLTAX+27
PROB	PLTAX+12~, PLTAX+13, PLTAX+14, PLTAX+15, PLTAX+16, PLTAX+17, PLTAX+21, PLTAX+22, PLTAX+25, PLTAX+26 , PLTAX+27
PROV	PRV~, PRV+6, PRVOLD~, PRVOLD+4
PRVDATA	PRV+2~, PRV+5*, PRV+6
PRVIEN	PRV+2~, PRV+4, PRV+5, PRVOLD+1~, PRVOLD+3, PRVOLD+4
Q	CPTI+10~, CPTI+19, CPTI+20, CPTI+21, CPTI+22*, CPTI+23
R	LASTITEM+5!
SCEX	CPTI~, CPTI+5*, CPTI+15
SCLN	CPTI~, CPTI+6*, CPTI+16
SDTE	PLTAX+12~, PLTAX+17, PLTAX+18, PLTAX+21, PLTAX+23
SMOD	CPTI~, CPTI+7*, CPTI+20, CPTI+22
STAT	PLTAX~, PLTAX+9*, PLTAX+25, PLTAX+26, PLTAX+27
T	WH~, WH+4, WH+10, PLCODE+3~, PLCODE+5*, PLCODE+6, PLCODE+7, RAD~, RAD+4, RAD+8
TAX	PLTAX~, PLTAX+8, PLTAX+10, CPT~, CPT+3, CPT+5, VSTCPT~, VSTCPT+4, VSTCPT+6
TIEN	PLTAX+10~, PLTAX+11, PLTAX+20, CPT+1~, CPT+5, CPT+15, VSTCPT+1~, VSTCPT+6, VSTCPT+10, RAD+7~ , RAD+8, RAD+18
U	WH+10, WH+11, WH+20, WH+21, PLCODE+7, PLTAX+15, PLTAX+16, PLTAX+17, PLTAX+21, PLTAX+22 , PLTAX+25, PLTAX+26, PLTAX+27, CPT+15, CPT+22, CPT+23, CPT+24, CPT+25, VSTCPT+10, VSTCPT+14 , VSTCPT+15, VSTCPT+16, RAD+15, RAD+17, RAD+25, RAD+26, RAD+27, RAD+28, RAD+29, CPTI+14 , CPTI+15, LASTITEM+7, PRV+6, PRVOLD+4
V	WH+7~, WH+8, WH+9, WH+10, WH+11, WH+15, CPT+8~, CPT+11, CPT+12, CPT+13 , CPT+14, RAD+7~, RAD+11, RAD+12, RAD+13, RAD+14, RAD+25, RAD+26, RAD+27, RAD+28* , RAD+29, CPTI+10~, CPTI+14, CPTI+15, CPTI+16
VDATE	CPT+1~, CPT+21, CPT+24, CPT+25
VIEN	VSTCPT~, VSTCPT+5, VSTCPT+7, VSTCPT+8, VSTCPT+9
VISIT	PRV~, PRV+4, PRVOLD~, PRVOLD+3
VST	CPT+1~, CPT+24*, CPT+25
X	WH+7~, PLCODE+7~, CPT+8~, CPT+14, CPT+15, VSTCPT+1~, VSTCPT+9, VSTCPT+10, RAD+7~, RAD+14 , RAD+15, RAD+17, RAD+18, CPTI+10~
Y	WH+7~, PLCODE+7~, PLTAX+25, PLTAX+26, PLTAX+27, CPT+8~, RAD+7~, CPTI+10~, LASTITEM+5~
Z	CPTI+10~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUUT1

Call Graph Total: 8

Caller Graph Total: 53