Routine: BGPMUUT3

Information

BGPMUUT3 ; IHS/MSC/MGH - Meaningful use utility calls ;02-Mar-2011 10:38;DU

Source Information

Source file <BGPMUUT3.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$FMADD^XLFDT
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 40

Package	Total	Caller Graph
IHS GPRA Information System	40	BGPMUA02 BGPMUA03 BGPMUA04 BGPMUA06 BGPMUA07 BGPMUA08 BGPMUA09 BGPMUA12 BGPMUD04 BGPMUD05 BGPMUD06 BGPMUD07 BGPMUD08 BGPMUF01 BGPMUF04 BGPMUF05 BGPMUF06 BGPMUF07 BGPMUF09 BGPMUG01 BGPMUG05 BGPMUG06 BGPMUG08 BGPMUG09 BGPMUH03 BGPMUH04 BGPMUH05 BGPMUH06 BGPMUH07 BGPMUH08 BGPMUH10 BGPMUH11 BGPMUH12 BGPMUH13 BGPMUH14 BGPMUH15 BGPMUUT2 BGPMUUT4 BGPMUUT8 BGPMUW01

Entry Points

Name	Comments	DBIA/ICR reference
VSTPOVA(DFN,VIEN,TAX)	;EP Check to see if the patient had an ICD on a particular visit ; ALSO checks that the PRIMARY/SECONDARY flag is active ; AND that the MODIFIER field is NOT C,D,M,O,P, or S
DTECPT(DFN,VIEN,TAX,ADMIT,ENDDT)	;EP - return ien of CPT entry if patient had this CPT entered in the time frame
PLSTART(DFN,TAX,STAT,ADMIT)	;EP - is DX on problem list on day of admission or following day
PALICD0(DFN,VIEN,TAX,ADMIT)	;EP Check to see if the patient had an ICD0 in the first 24hrs after admission
VSTPOVB(DFN,VIEN,TAX)	;EP Check to see if the patient had an ICD on a particular visit ; ALSO checks that the MODIFIER field is NOT C,D,M,O,P, or S
DTEICD0(DFN,VIEN,TAX,ADMIT,ENDDT)	;EP Check to see if the patient had an ICD0 stored in the dates selected
VSTICD0(DFN,VIEN,TAX)	;EP Check to see if the patient had an ICD on a particular visit
COMFORT(DFN,VIEN,TAX,ADMIT,CMF)	;EP Check to see if the patient had this code in the first 24hrs of admisssion ; CMF = check modifier flag
VSTPOV(DFN,VIEN,TAX)	;EP Check to see if the patient had an ICD on a particular visit
PALCPT(DFN,VIEN,TAX,ADMIT)	;EP - return ien of CPT entry if patient had this CPT in the first 24hrs after admission
MEDTAX(DFN,NDC,TAX)	;EP Check to see if the NDC code is in a taxonomy

External References

Name	Field # of Occurrence
$$ICD^ATXCHK	VSTPOV+10, VSTICD0+10, VSTPOVA+13, VSTPOVB+12, COMFORT+15, PLSTART+19, PALCPT+15, PALICD0+14, DTECPT+14, DTEICD0+13
$$GET1^DIQ	VSTPOVA+20, VSTPOVA+21, VSTPOVB+22, COMFORT+20, PLSTART+20, PLSTART+21, PLSTART+22
$$FMADD^XLFDT	COMFORT+13, PLSTART+17, PALCPT+13, PALICD0+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	MEDTAX+12
^ATXAX("B"	VSTPOV+6, VSTICD0+6, VSTPOVA+9, VSTPOVB+8, MEDTAX+6, COMFORT+7, PLSTART+9, PALCPT+7, PALICD0+6, DTECPT+7 , DTEICD0+6
^AUPNPROB - [#9000011]	PLSTART+14, PLSTART+15
^AUPNPROB("AC"	PLSTART+13
^AUPNVCPT - [#9000010.18]	PALCPT+11, PALCPT+15, PALCPT+18, PALICD0+10, DTECPT+11, DTECPT+14, DTECPT+17, DTEICD0+10
^AUPNVCPT("AD"	PALCPT+9, PALCPT+10, DTECPT+9, DTECPT+10
^AUPNVPOV - [#9000010.07]	VSTPOV+10, VSTPOV+14, VSTPOV+15, VSTPOVA+13, VSTPOVA+17, VSTPOVA+18, VSTPOVA+19, VSTPOVB+12, VSTPOVB+16, VSTPOVB+17 , VSTPOVB+18, COMFORT+11, COMFORT+15, COMFORT+18, COMFORT+19, COMFORT+24
^AUPNVPOV("AD"	VSTPOV+8, VSTPOV+9, VSTPOVA+11, VSTPOVA+12, VSTPOVB+10, VSTPOVB+11, COMFORT+9, COMFORT+10
^AUPNVPRC - [#9000010.08]	VSTICD0+10, VSTICD0+14, VSTICD0+15, PALICD0+14, PALICD0+17, DTEICD0+13, DTEICD0+16
^AUPNVPRC("AD"	VSTICD0+8, VSTICD0+9, PALICD0+8, PALICD0+9, DTEICD0+8, DTEICD0+9
^AUPNVPV(	VSTPOVB+21
^AUPNVSIT - [#9000010]	VSTPOV+7, VSTICD0+7, VSTPOVA+10, VSTPOVB+9, COMFORT+8, PALCPT+8, PALICD0+7, DTECPT+8, DTEICD0+7
^ICD0 - [#80.1]	VSTICD0+15, PALICD0+17, DTEICD0+16
^ICD9 - [#80]	VSTPOV+14, VSTPOVA+17, VSTPOVB+16, COMFORT+18, COMFORT+24
^ICPT - [#81]	PALCPT+18, DTECPT+17

Local Variables

Name	Field # of Occurrence
ADMIT	COMFORT~, COMFORT+13, COMFORT+14, PLSTART~, PLSTART+17, PLSTART+18, PALCPT~, PALCPT+5, PALCPT+13, PALCPT+14 , PALICD0~, PALICD0+12, PALICD0+13, DTECPT~, DTECPT+5, DTECPT+13, DTEICD0~, DTEICD0+12
ATXBEG	MEDTAX+1~, MEDTAX+7*
ATXEND	MEDTAX+1~, MEDTAX+12*, MEDTAX+13
ATXFLG	MEDTAX+1~, MEDTAX+2*
BD	DTECPT+1~
CMF	COMFORT~, COMFORT+17, COMFORT+23
CPT	PALCPT+1~, PALCPT+18, DTECPT+1~, DTECPT+17
CPTT	PALCPT+1~, PALCPT+18, PALCPT+19, DTECPT+1~, DTECPT+17, DTECPT+18
DFN	VSTPOV~, VSTPOV+3, VSTICD0~, VSTICD0+3, VSTPOVA~, VSTPOVA+6, VSTPOVB~, VSTPOVB+5, MEDTAX~, MEDTAX+3 , COMFORT~, COMFORT+4, PLSTART~, PLSTART+5, PLSTART+13, PALCPT~, PALCPT+2, PALICD0~, PALICD0+3, DTECPT~ , DTECPT+2, DTEICD0~, DTEICD0+3
>> DONSET	VSTPOVB+18*, VSTPOVB+20
ED	DTECPT+1~
EDT	PLSTART+8~, PLSTART+15*, PLSTART+16, PLSTART+18
ENDDT	DTECPT~, DTECPT+13, DTEICD0~, DTEICD0+12
ENT	COMFORT+2~, COMFORT+11, COMFORT+12, COMFORT+14, PALCPT+1~, PALCPT+11, PALCPT+12, PALCPT+14, PALICD0+1~, PALICD0+10* , PALICD0+11, PALICD0+13, DTECPT+11, DTECPT+12, DTECPT+13, DTEICD0+1~, DTEICD0+10, DTEICD0+11, DTEICD0+12
EVDT	VSTPOV+1~, VSTPOV+15, VSTPOV+16, VSTICD0+1~, VSTICD0+14, VSTICD0+16, VSTPOVA+3~, VSTPOVA+18, VSTPOVA+23, VSTPOVB+2~ , VSTPOVB+17, VSTPOVB+20, VSTPOVB+24, COMFORT+19, COMFORT+22
FIRST	COMFORT+2~, COMFORT+13, COMFORT+14, PLSTART+8~, PLSTART+17, PLSTART+18, PALCPT+1~, PALCPT+13, PALCPT+14, PALICD0+1~ , PALICD0+12, PALICD0+13, DTEICD0+1~
G	VSTPOV+1~, VSTPOV+2, VSTPOV+9, VSTPOV+10, VSTPOV+12, VSTPOV+13, VSTPOV+14, VSTPOV+15, VSTPOV+16, VSTPOV+17 , VSTICD0+1~, VSTICD0+2, VSTICD0+9, VSTICD0+10, VSTICD0+12, VSTICD0+13, VSTICD0+14, VSTICD0+15, VSTICD0+16, VSTICD0+17 , VSTPOVA+3~, VSTPOVA+5, VSTPOVA+12, VSTPOVA+13, VSTPOVA+15, VSTPOVA+16, VSTPOVA+17, VSTPOVA+18, VSTPOVA+19, VSTPOVA+20 , VSTPOVA+21, VSTPOVA+22, VSTPOVA+23, VSTPOVA+24, VSTPOVB+2~, VSTPOVB+4, VSTPOVB+11, VSTPOVB+12, VSTPOVB+14, VSTPOVB+15 , VSTPOVB+16, VSTPOVB+17, VSTPOVB+18, VSTPOVB+21, VSTPOVB+22, VSTPOVB+23, VSTPOVB+24, VSTPOVB+25, MEDTAX+1~, MEDTAX+2* , MEDTAX+13, MEDTAX+14, COMFORT+2~, COMFORT+3, COMFORT+10, COMFORT+15, COMFORT+16, COMFORT+17, COMFORT+18, COMFORT+19 , COMFORT+20, COMFORT+21, COMFORT+22, COMFORT+23, COMFORT+24, COMFORT+25, COMFORT+26, PALCPT+1~, PALCPT+6, PALCPT+10 , PALCPT+15, PALCPT+16, PALCPT+17, PALCPT+18, PALCPT+19, PALCPT+20, PALICD0+1~, PALICD0+2, PALICD0+9, PALICD0+14* , PALICD0+15, PALICD0+16, PALICD0+17, PALICD0+18, PALICD0+19, DTECPT+1~, DTECPT+6, DTECPT+10, DTECPT+14, DTECPT+15 , DTECPT+16, DTECPT+17, DTECPT+18, DTECPT+19, DTEICD0+1~, DTEICD0+2, DTEICD0+9, DTEICD0+13, DTEICD0+14, DTEICD0+15 , DTEICD0+16, DTEICD0+17*, DTEICD0+18
I	PLSTART+11~, PLSTART+12, PLSTART+13, PLSTART+20, PLSTART+21, PLSTART+22, PLSTART+23
ICD	VSTPOV+1~, VSTPOV+14, VSTICD0+1~, VSTICD0+15, VSTPOVA+3~, VSTPOVA+17, VSTPOVB+2~, VSTPOVB+16, MEDTAX+1~, COMFORT+2~ , COMFORT+18, COMFORT+24, PLSTART+12, PLSTART+14, PLSTART+19, PLSTART+20, PLSTART+21, PLSTART+22, PALICD0+1~, PALICD0+17* , DTEICD0+1~, DTEICD0+16*
ICDT	VSTPOV+1~, VSTPOV+14, VSTPOV+16, VSTICD0+1~, VSTICD0+15, VSTICD0+16, VSTPOVA+3~, VSTPOVA+17, VSTPOVA+23, VSTPOVB+2~ , VSTPOVB+16, VSTPOVB+24, MEDTAX+1~, COMFORT+2~, COMFORT+18, COMFORT+22, COMFORT+24, COMFORT+25, PALICD0+1~, PALICD0+17* , PALICD0+18, DTEICD0+1~, DTEICD0+16*, DTEICD0+17
ICE	PLSTART+11~
INPT	VSTPOVA+3~, VSTPOVA+19, VSTPOVA+23, VSTPOVB+2~, VSTPOVB+3, VSTPOVB+21*, VSTPOVB+24
>> MODFLG	VSTPOVA+21, VSTPOVA+23, VSTPOVB+22, VSTPOVB+24, COMFORT+20*, COMFORT+22
NDC	MEDTAX~, MEDTAX+5, MEDTAX+12, MEDTAX+13
PLSTAT	PLSTART+8~, PLSTART+14*, PLSTART+21, PLSTART+22
PROB	PLSTART+11~, PLSTART+12, PLSTART+13, PLSTART+14, PLSTART+15
PSFLG	VSTPOVA+3~, VSTPOVA+4, VSTPOVA+20, VSTPOVA+23, VSTPOVB+3*
STAT	PLSTART~, PLSTART+7*, PLSTART+20, PLSTART+21, PLSTART+22
TAX	VSTPOV~, VSTPOV+4, VSTPOV+6, VSTICD0~, VSTICD0+4, VSTICD0+6, VSTPOVA~, VSTPOVA+7, VSTPOVA+9, VSTPOVB~ , VSTPOVB+6, VSTPOVB+8, MEDTAX~, MEDTAX+4, MEDTAX+6, COMFORT~, COMFORT+5, COMFORT+7, PLSTART~, PLSTART+6 , PLSTART+9, PALCPT~, PALCPT+3, PALCPT+7, PALICD0~, PALICD0+4, PALICD0+6, DTECPT~, DTECPT+3, DTECPT+7 , DTEICD0~, DTEICD0+4, DTEICD0+6
TIEN	VSTPOV+1~, VSTPOV+6, VSTPOV+10, VSTICD0+1~, VSTICD0+6, VSTICD0+10, VSTPOVA+3~, VSTPOVA+9, VSTPOVA+13, VSTPOVB+2~ , VSTPOVB+8, VSTPOVB+12, MEDTAX+1~, MEDTAX+6, MEDTAX+12, COMFORT+2~, COMFORT+7, COMFORT+15, PLSTART+8~, PLSTART+9* , PLSTART+10, PLSTART+19, PALCPT+1~, PALCPT+7, PALCPT+15, PALICD0+1~, PALICD0+6, PALICD0+14, DTECPT+1~, DTECPT+7* , DTECPT+14, DTEICD0+1~, DTEICD0+6*, DTEICD0+13
U	VSTPOV+10, VSTPOV+14, VSTPOV+15, VSTPOV+16, VSTICD0+10, VSTICD0+14, VSTICD0+15, VSTICD0+16, VSTPOVA+13, VSTPOVA+17 , VSTPOVA+18, VSTPOVA+19, VSTPOVA+23, VSTPOVB+12, VSTPOVB+16, VSTPOVB+17, VSTPOVB+18, VSTPOVB+21, VSTPOVB+24, MEDTAX+13 , COMFORT+11, COMFORT+15, COMFORT+18, COMFORT+19, COMFORT+22, COMFORT+24, COMFORT+25, PLSTART+14, PLSTART+15, PLSTART+20 , PLSTART+21, PLSTART+22, PALCPT+11, PALCPT+15, PALCPT+18, PALCPT+19, PALICD0+10, PALICD0+14, PALICD0+17, PALICD0+18 , DTECPT+11, DTECPT+14, DTECPT+17, DTECPT+18, DTEICD0+10, DTEICD0+13, DTEICD0+16, DTEICD0+17
VIEN	VSTPOV~, VSTPOV+5, VSTPOV+7, VSTPOV+8, VSTPOV+9, VSTICD0~, VSTICD0+5, VSTICD0+7, VSTICD0+8, VSTICD0+9 , VSTPOVA~, VSTPOVA+8, VSTPOVA+10, VSTPOVA+11, VSTPOVA+12, VSTPOVB~, VSTPOVB+7, VSTPOVB+9, VSTPOVB+10, VSTPOVB+11 , COMFORT~, COMFORT+6, COMFORT+8, COMFORT+9, COMFORT+10, PALCPT~, PALCPT+4, PALCPT+8, PALCPT+9, PALCPT+10 , PALICD0~, PALICD0+5, PALICD0+7, PALICD0+8, PALICD0+9, DTECPT~, DTECPT+4, DTECPT+8, DTECPT+9, DTECPT+10 , DTEICD0~, DTEICD0+5, DTEICD0+7, DTEICD0+8, DTEICD0+9
X	VSTPOV+1~, VSTPOV+9, VSTPOV+10, VSTICD0+1~, VSTICD0+9, VSTICD0+10, VSTPOVA+3~, VSTPOVA+12, VSTPOVA+13, VSTPOVB+2~ , VSTPOVB+11, VSTPOVB+12, MEDTAX+1~, COMFORT+2~, COMFORT+10, COMFORT+11, COMFORT+15, PALCPT+10, PALCPT+11, PALCPT+15 , PALICD0+1~, PALICD0+9, PALICD0+10, PALICD0+14, DTECPT+10, DTECPT+11, DTECPT+14, DTEICD0+1~, DTEICD0+9*, DTEICD0+10 , DTEICD0+13
Y	PLSTART+11~, PLSTART+20, PLSTART+21, PLSTART+22*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUUT3

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 40

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed