©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGPMUUT3 ; IHS/MSC/MGH - Meaningful use utility calls ;02-Mar-2011 10:38;DU
Source file <BGPMUUT3.m>
| 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
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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* |