BDMDA13 ; IHS/CMI/LAB - 2013 DIABETES AUDIT ;
Source file <BDMDA13.m>
Package | Total | Call Graph |
---|---|---|
Diabetes Registry | 5 | $$PLTAX^BDMDA12 $$LASTHT^BDMDA13 $$REFUSAL^BDMDA17 $$CPTREFT^BDMDADU ($$ANCONT,$$IMMREF,GETIMMS)^BDMUTL |
Patient Care Component Reports | 4 | $$LASTPNEU^APCLAPI4 ($$LASTCPTT,$$LASTDXT,$$LASTITEM)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$VD)^APCLV |
DRG Grouper | 2 | $$ICDDX^ICDCODE $$CPT^ICPTCOD |
IHS Patient | 1 | $$DOB^AUPNPAT |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Kernel | 1 | ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT |
Taxonomy | 1 | $$ICD^ATXCHK |
VA Fileman | 1 | ^%DT |
Name | Comments | DBIA/ICR reference |
---|---|---|
PLDMDOO(P,F) | ;EP
|
|
BPS(P,BDATE,EDATE,F) | ;EP ;
|
|
LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM) | ;PEP - date of last FLU
; Return the last recorded FLU: ; - V Immunization: 15, 16, 88, 111 ; - V CPT [dm audit seasonal flu cpts] ; If APCLFORM is A returns the string: ; date^text of item found^value if appropriate^visit ien^File found in^ien of file found in ; |
|
BI() | ;
|
|
PNEU(P,EDATE,R,F) | ;EP
|
|
CMSFDX(P,R,T) | ;EP - return date/dx of dm in register
|
|
LASTWT(P,BDATE,EDATE,F) | ;PEP - return last wt
|
|
LASTHT(P,EDATE,F) | ;PEP - return last ht and date
|
|
FLU(P,BDATE,EDATE,R,F) | ;EP
|
|
LASTDMDX(P,D) | ;EP - last pcc dm dx
|
|
FRSTDMDX(P,F) | ;EP return date of first dm dx
|
|
DATE(D) | ;EP
|
|
PLDMDXS(P) | ;EP - get all DM dxs from problem list
|
|
E | ;
|
|
INCHES | ;
|
|
I | ||
LASTFLUO | ;
|
|
LASTFLUN | ;
|
|
LASTPNO | ;
|
|
LASTPNN | ;
|
|
HEP(P,EDATE,S,F) | ;EP
|
|
HTNDX(P,EDATE) | ;EP - is HTN on problem list
|
Name | Field # of Occurrence |
---|---|
^%DT | PNEU+18, LASTHT+5 |
$$LASTPNEU^APCLAPI4 | PNEU+5 |
$$LASTCPTT^APCLAPIU | LASTFLU+19 |
$$LASTDXT^APCLAPIU | LASTFLU+21 |
$$LASTITEM^APCLAPIU | LASTFLU+17 |
$$START1^APCLDF | BPS+5, HTNDX+5, HTNDX+8, LASTWT+4, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6, I+5 |
$$CLINIC^APCLV | BPS+9 |
$$VD^APCLV | LASTHT+14 |
$$ICD^ATXCHK | PLDMDOO+8, PLDMDXS+7, HEP+16, HEP+18 |
$$DOB^AUPNPAT | LASTFLU+8, HTNDX+8, LASTDMDX+4, LASTDMDX+6, HEP+10, I+5, I+14, I+17 |
$$PLTAX^BDMDA12 | I+7 |
$$LASTHT^BDMDA13 | INCHES+2 |
$$REFUSAL^BDMDA17 | FLU+14, PNEU+8, PNEU+12, PNEU+15 |
$$CPTREFT^BDMDADU | I+14 |
$$ANCONT^BDMUTL | I+19 |
$$IMMREF^BDMUTL | I+17 |
GETIMMS^BDMUTL | HEP+6 |
$$ICDDX^ICDCODE | LASTWT+11, PLDMDXS+7 |
$$CPT^ICPTCOD | HEP+16, HEP+18 |
$$VAL^XBDIQ1 | CMSFDX+6 |
$$FMADD^XLFDT | FLU+4, PNEU+8, PNEU+12, PNEU+15, I+9 |
$$FMDIFF^XLFDT | HEP+22 |
$$FMTE^XLFDT | FLU+6, FLU+15, FLU+16, FLU+28, PNEU+6, PNEU+8, PNEU+9, PNEU+10, PNEU+12, PNEU+13 , PNEU+14, PNEU+15, PNEU+16, PNEU+17, PNEU+28, BPS+11, HTNDX+8, HTNDX+9, LASTHT+18, LASTWT+9 , LASTWT+17, CMSFDX+5, PLDMDOO+12, FRSTDMDX+6, I+15 |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: READ |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACM(44 - [#9002244] | CMSFDX+4, CMSFDX+5 |
^ATXAX - [#9002226] | LASTFLU+15, FLU+12 |
^ATXAX("B" | LASTFLU+13, FLU+10, PLDMDOO+3, PLDMDXS+2, HEP+11, I+14 |
^AUPNPREF - [#9000022] | I+12 |
^AUPNPREF("AA" | I+12 |
^AUPNPROB - [#9000011] | PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDXS+5, PLDMDXS+6 |
^AUPNPROB("AC" | PLDMDOO+5, PLDMDXS+4 |
^AUPNVCPT - [#9000010.18] | HEP+16 |
^AUPNVCPT("AD" | HEP+15 |
^AUPNVIMM - [#9000010.11] | LASTFLUN+2, LASTFLUN+5, LASTFLUO+2, LASTFLUO+4, LASTPNN+2, LASTPNN+5, LASTPNO+2, LASTPNO+4 |
^AUPNVIMM("AC" | LASTFLUN+1, LASTFLUO+1, LASTPNN+1, LASTPNO+1 |
^AUPNVMSR - [#9000010.01] | BPS+8, LASTHT+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+7 |
^AUPNVMSR("AA" | LASTHT+9, LASTHT+10 |
^AUPNVPOV - [#9000010.07] | LASTWT+11 |
^AUPNVPOV("AD" | LASTWT+9, LASTWT+10 |
^AUPNVSIT - [#9000010] | LASTFLUN+6, LASTFLUO+5, LASTPNN+6, LASTPNO+5, HEP+14 |
^AUPNVSIT("AA" | HEP+12, HEP+13 |
^AUPNVSIT("AC" | LASTHT+3 |
^AUPNVTC - [#9000010.33] | HEP+18 |
^AUPNVTC("AD" | HEP+17 |
^AUTTIMM - [#9999999.14] | LASTFLUN+3, LASTFLUN+4, LASTFLUO+3, LASTPNN+3, LASTPNN+4, LASTPNO+3 |
^AUTTIMM("C" | FLU+14, FLU+18, PNEU+8, PNEU+12, PNEU+15, PNEU+19, I+11 |
^AUTTIMM(0 | BI+1 |
^AUTTMSR("B" | LASTHT+7 |
^BICONT - [#9002084.81] | FLU+21, FLU+22, PNEU+22 |
^BIPC - [#9002084.11] | FLU+19, FLU+23, FLU+25, FLU+26, PNEU+20, PNEU+24, PNEU+26 |
^BIPC("AC" | FLU+18, PNEU+19 |
^DPT - [#2] | HTNDX+2, LASTHT+6 |
Name | Line Occurrences |
---|---|
$$BI | PNEU+8, PNEU+11 |
$$LASTFLU | FLU+5 |
E | LASTFLU+18, LASTFLU+20, LASTFLU+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | FLU+1~, HTNDX+3~, HTNDX+5*, LASTHT+4~, LASTWT+3~, I+1, I+2*, I+3*, I+5* |
%DT | FLU+1~, PNEU+1~, PNEU+18*, LASTHT+5* |
A | FLU+1~, FLU+13*, FLU+14 |
B | FLU+1~, PNEU+1~, LASTFLUN+7, LASTFLUO+6, LASTPNN+7, LASTPNO+6, I+9*, I+12 |
BD | FLU+1~, HEP+10*, HEP+12 |
BDATE | FLU~, FLU+4*, FLU+5, FLU+14, FLU+25, BPS~, BPS+5, LASTHT+4~, LASTHT+6*, LASTWT~ , LASTWT+4 |
BDM | FLU+1~, PNEU+1~, BPS+2~, BPS+4!, HTNDX+3~, HTNDX+4!, HTNDX+7!, LASTWT+3~, LASTWT+4!, FRSTDMDX+3~ , LASTDMDX+2~, LASTDMDX+6! |
BDM( | BPS+6, BPS+7, BPS+9, BPS+11, LASTWT+5, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+17 |
BDM(1 | HTNDX+6, HTNDX+9, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7 |
BDM(2 | HTNDX+9 |
BDM(3 | HTNDX+9 |
BDM10743 | HEP+1~, HEP+12*, HEP+16*, HEP+18*, I |
BDMARRY | LASTHT+4~, LASTWT+3~ |
BDMARRY(1 | LASTHT+14*, LASTHT+18 |
BDMBD | LASTFLU~, LASTFLU+8*, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
>> BDMBP | BPS+6*, BPS+11, BPS+12 |
BDMC | HEP+1~ |
BDMD | LASTWT+3~, LASTWT+10*, LASTWT+11 |
BDMED | LASTFLU~, LASTFLU+9*, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
BDMF | LASTFLU+11~ |
BDMFORM | LASTFLU~, LASTFLU+10*, LASTFLU+23 |
BDMG | HEP+1~, I+5! |
BDMG(1 | I+6 |
BDMHEP | HEP+1~, HEP+25*, HEP+26, I |
BDMHEP( | HEP+8*, HEP+20, HEP+22!, HEP+25, I+3 |
BDMHEP(9999999 | HEP+16*, HEP+18* |
BDMIMM | HEP+1~, I+10*, I+11, I+17* |
BDML | BPS+2~, BPS+6*, BPS+7, BPS+9, BPS+11 |
BDMLAST | LASTFLU+11~, LASTFLU+12*, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, LASTFLU+24, E+1* |
BDMLL | BPS+2~, BPS+3*, BPS+6, BPS+10*, BPS+11, BPS+12 |
BDMN | LASTWT+3~, LASTWT+5*, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+17 |
>> BDMNMI | I+9*, I+12*, I+13, I+15* |
>> BDMPD | INCHES+2 |
BDMPDFN | LASTFLU~, LASTFLU+7, LASTFLU+8, LASTFLU+17, LASTFLU+19, LASTFLU+21 |
>> BDMRED | INCHES+2 |
BDMV | BPS+2~, BPS+3*, BPS+11*, BPS+12*, BPS+13 |
BDMVAL | LASTFLU+11~, LASTFLU+17*, LASTFLU+19*, LASTFLU+21*, E+1 |
BDMVF | BPS+2~, BPS+7*, BPS+8, LASTWT+3~, LASTWT+6*, LASTWT+7 |
BDMW | LASTWT+3~, LASTWT+4*, LASTWT+5, LASTWT+9*, LASTWT+10, LASTWT+17*, LASTWT+19 |
BDMX | LASTFLU+11~, LASTWT+3~, LASTWT+4*, HEP+1~, HEP+6 |
BDMX( | HEP+8 |
BDMY | LASTFLU+11~ |
BDMZ | LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+10, HEP+1~, I+19* |
C | FLU+1~, PNEU+1~, HEP+1~, HEP+5*, HEP+6, HEP+20*, HEP+21 |
D | LASTFLU+11~, FLU+1~, FLU+23*, FLU+24, FLU+27, FLU+28, PNEU+1~, PNEU+24*, PNEU+25, PNEU+27 , PNEU+28, LASTFLUN+5*, LASTFLUN+6*, LASTFLUN+7, LASTFLUN+8, LASTFLUN+9, LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+4* , LASTFLUO+5*, LASTFLUO+6, LASTFLUO+7, LASTFLUO+8, LASTPNN+5*, LASTPNN+6*, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNN+10 , LASTPNN+11, LASTPNO+4*, LASTPNO+5*, LASTPNO+6, LASTPNO+7, LASTPNO+8, LASTHT+4~, LASTHT+9*, LASTHT+10, CMSFDX+4~* , CMSFDX+5*, CMSFDX+8, CMSFDX+11*, CMSFDX+12, PLDMDOO+5~*, PLDMDOO+12*, PLDMDXS+4~*, PLDMDXS+7*, PLDMDXS+9, LASTDMDX~ , LASTDMDX+4, LASTDMDX+6, DATE~, DATE+1, DATE+2, I+12* |
D( | PLDMDOO+9* |
D(0 | PLDMDOO+12 |
D1 | CMSFDX+4~, CMSFDX+5*, CMSFDX+7*, CMSFDX+8, CMSFDX+11*, CMSFDX+12 |
DT | LASTFLU+9 |
E | LASTFLU+11~, LASTFLU+16*, FLU+1~, FLU+13*, FLU+18*, PNEU+1~, PNEU+18*, LASTFLUN+8, LASTFLUO+7, LASTPNN+8 , LASTPNO+7, BPS+2~, BPS+5*, HTNDX+3~, HTNDX+5*, HTNDX+8*, LASTHT+4~, LASTHT+7*, LASTHT+9, LASTHT+10 , LASTWT+3~, LASTWT+4*, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*, I+5*, I+9*, I+12 |
ED | HEP+1~, HEP+10*, HEP+12*, HEP+13, HEP+16, HEP+18 |
EDATE | FLU~, FLU+4, FLU+5, FLU+14, FLU+26, PNEU~, PNEU+5, PNEU+8, PNEU+12, PNEU+15 , PNEU+18, PNEU+26, BPS~, BPS+5, HTNDX~, HTNDX+8, LASTHT~, LASTHT+5*, LASTWT~, LASTWT+4 , HEP~, HEP+6, HEP+10, I+5, I+9, I+14, I+17, I+19 |
F | FLU~, FLU+2*, FLU+6, PNEU~, PNEU+3*, PNEU+6, BPS~, BPS+1*, BPS+11, BPS+12 , LASTHT~, LASTHT+2*, LASTHT+16, LASTWT~, LASTWT+2*, LASTWT+19, PLDMDOO~, PLDMDOO+2*, PLDMDOO+12, FRSTDMDX~ , FRSTDMDX+2*, FRSTDMDX+6, INCHES+1~, INCHES+5*, INCHES+6, HEP~, HEP+3* |
FI | INCHES+1~, INCHES+6*, INCHES+7 |
G | LASTFLU+11~, FLU+1~, FLU+14*, FLU+15, FLU+16, FLU+18*, FLU+27*, FLU+28, PNEU+1~, PNEU+8* , PNEU+9, PNEU+10, PNEU+12*, PNEU+13, PNEU+14, PNEU+15*, PNEU+16, PNEU+17, PNEU+19*, PNEU+27* , PNEU+28, CMSFDX+4~, CMSFDX+10*, CMSFDX+11, HEP+1~, HEP+10* |
G( | CMSFDX+10, CMSFDX+11 |
G(0 | CMSFDX+9 |
G(9999999 | CMSFDX+8* |
H | LASTHT+4~, LASTHT+8*, LASTHT+9, LASTHT+10, LASTHT+13*, LASTHT+15, LASTHT+16, LASTHT+17*, LASTHT+18, LASTWT+3~ |
I | PLDMDOO+5~, PLDMDOO+7*, PLDMDOO+8, PLDMDXS+4~, PLDMDXS+6*, PLDMDXS+7, HEP+1~, I+11*, I+12 |
>> ICD | LASTWT+11*, LASTWT+12, LASTWT+13, LASTWT+14, LASTWT+15, LASTWT+16 |
J | FLU+1~, FLU+13*, FLU+15*, FLU+16*, FLU+17 |
LFLU | FLU+1~, FLU+5*, FLU+6 |
LPN | PNEU+1~, PNEU+5*, PNEU+6 |
P | FLU~, FLU+5, FLU+14, FLU+18, PNEU~, PNEU+5, PNEU+8, PNEU+12, PNEU+15, PNEU+19 , LASTFLUN+1, LASTFLUO+1, LASTPNN+1, LASTPNO+1, BPS~, BPS+5, HTNDX~, HTNDX+1, HTNDX+2, HTNDX+5 , HTNDX+8, LASTHT~, LASTHT+1, LASTHT+3, LASTHT+6, LASTHT+9, LASTHT+10, LASTWT~, LASTWT+1, LASTWT+4 , CMSFDX~, CMSFDX+1, CMSFDX+4, PLDMDOO~, PLDMDOO+1, PLDMDOO+5, PLDMDXS~, PLDMDXS+1, PLDMDXS+4, FRSTDMDX~ , FRSTDMDX+1, FRSTDMDX+5, LASTDMDX~, LASTDMDX+1, LASTDMDX+4, LASTDMDX+6, HEP~, HEP+6, HEP+10, HEP+12 , HEP+13, I+5, I+7, I+12, I+14, I+17, I+19 |
R | LASTFLU+11~, LASTFLU+16*, LASTFLU+17, FLU~, FLU+3*, FLU+8, FLU+19*, FLU+20, FLU+21, FLU+22 , PNEU~, PNEU+4*, PNEU+7, PNEU+20*, PNEU+21, PNEU+22, CMSFDX~, CMSFDX+2, CMSFDX+4, HEP+1~ , I+9*, I+12*, I+13, I+14*, I+15, I+17*, I+18 |
S | LASTFLU+11~, LASTFLU+12*, LASTFLU+14*, LASTFLU+15*, LASTFLU+16, FLU+1~, FLU+9*, FLU+11*, FLU+12*, FLU+13 , FLU+18, HEP~, HEP+4*, I+1 |
T | LASTFLU+11~, LASTFLU+13*, LASTFLU+14, LASTFLU+15, FLU+1~, FLU+10*, FLU+11, FLU+12, PNEU+1~, CMSFDX~ , CMSFDX+3, CMSFDX+12, PLDMDOO+3~*, PLDMDOO+4, PLDMDOO+8, PLDMDXS+2~*, PLDMDXS+3, PLDMDXS+7, HEP+1~, HEP+11* , HEP+16, HEP+18 |
TFLU | FLU+1~ |
TFLU(9999999 | LASTFLUN+9*, LASTFLUN+10*, LASTFLUN+11*, LASTFLUN+12*, LASTFLUO+8* |
TPN | PNEU+1~, PNEU+2! |
TPN(9999999 | LASTPNN+9*, LASTPNN+10*, LASTPNN+11*, LASTPNO+8* |
U | LASTFLU+16, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+23, E+1, FLU+13, FLU+15, FLU+16, FLU+18 , FLU+19, FLU+22, FLU+23, FLU+25, FLU+26, FLU+27, FLU+28, PNEU+9, PNEU+10, PNEU+13 , PNEU+14, PNEU+16, PNEU+17, PNEU+20, PNEU+24, PNEU+26, PNEU+27, PNEU+28, LASTFLUN+2, LASTFLUN+4 , LASTFLUN+5, LASTFLUN+6, LASTFLUO+2, LASTFLUO+3, LASTFLUO+4, LASTFLUO+5, LASTPNN+2, LASTPNN+4, LASTPNN+5, LASTPNN+6 , LASTPNO+2, LASTPNO+3, LASTPNO+4, LASTPNO+5, BPS+6, BPS+7, BPS+8, BPS+9, BPS+11, HTNDX+9 , LASTHT+6, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+18, LASTWT+6, LASTWT+7, LASTWT+8, LASTWT+9, LASTWT+11 , LASTWT+17, CMSFDX+4, CMSFDX+5, CMSFDX+11, PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDXS+5, PLDMDXS+6, PLDMDXS+7 , FRSTDMDX+5, HEP+16, HEP+18, I+12, I+15 |
V | LASTFLU+11~, HEP+1~, HEP+13*, HEP+14, HEP+15, HEP+17 |
W | LASTHT+4~, LASTHT+10*, LASTHT+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+3~ |
X | LASTFLU+11~, LASTFLU+15*, FLU+1~, FLU+12*, FLU+18*, FLU+19, FLU+23, FLU+25, FLU+26, PNEU+1~ , PNEU+18*, PNEU+19*, PNEU+20, PNEU+24, PNEU+26, LASTFLUN+1*, LASTFLUN+2, LASTFLUN+5, LASTFLUO+1*, LASTFLUO+2 , LASTFLUO+4, LASTPNN+1*, LASTPNN+2, LASTPNN+5, LASTPNO+1*, LASTPNO+2, LASTPNO+4, BPS+2~, BPS+5*, HTNDX+3~ , HTNDX+8*, LASTHT+5*, LASTWT+3~, CMSFDX+4~*, CMSFDX+5, CMSFDX+6, PLDMDOO+5~*, PLDMDOO+6, PLDMDOO+7, PLDMDOO+9 , PLDMDXS+4~*, PLDMDXS+5, PLDMDXS+6, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*, INCHES+2*, INCHES+3 , INCHES+4*, INCHES+5, INCHES+7*, HEP+1~, HEP+8*, HEP+15*, HEP+16, HEP+17*, HEP+18, HEP+20* , HEP+21, HEP+22, HEP+23, HEP+25*, I+3*, I+12*, I+19*, I+20 |
Y | LASTFLU+11~, FLU+1~, FLU+18*, PNEU+1~, PNEU+18, PNEU+19*, LASTFLUN+2*, LASTFLUN+3, LASTFLUN+4*, LASTFLUN+9 , LASTFLUN+10, LASTFLUN+11, LASTFLUN+12, LASTFLUO+2*, LASTFLUO+3*, LASTFLUO+8, LASTPNN+2*, LASTPNN+3, LASTPNN+4*, LASTPNN+9 , LASTPNN+10, LASTPNN+11, LASTPNO+2*, LASTPNO+3*, LASTPNO+8, HTNDX+9*, LASTHT+5, CMSFDX+4~*, CMSFDX+6*, CMSFDX+8 , CMSFDX+10*, CMSFDX+11*, CMSFDX+12, FRSTDMDX+3~, FRSTDMDX+4*, FRSTDMDX+5*, FRSTDMDX+6, LASTDMDX+2~, LASTDMDX+3*, LASTDMDX+4 , LASTDMDX+6, HEP+1~, HEP+16*, HEP+18*, HEP+20*, HEP+21*, HEP+22, HEP+23*, I+12* |
Z | LASTFLU+11~, FLU+1~, FLU+18*, PNEU+1~, PNEU+19*, INCHES+1~, INCHES+2*, INCHES+7, HEP+1~, HEP+16* , HEP+18* |