Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDMDC13

Package: Diabetes Registry

Routine: BDMDC13


Information

BDMDC13 ; IHS/CMI/LAB - 2015 DIABETES AUDIT ;

Source Information

Source file <BDMDC13.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Diabetes Registry 7 $$PLTAX^BDMDC12  $$LASTHT^BDMDC13  $$REFUSAL^BDMDC17  $$CPTREFT^BDMDCDU  $$DATE^BDMS9B1  ($$LASTPNEU,$$PNEUCONT)^BDMS9B4  ($$ANCONT,$$ICD,$$ICDDX,$$IMMREF,GETIMMS)^BDMUTL  
Patient Care Component Reports 3 ($$LASTCPTT,$$LASTDXT,$$LASTITEM)^APCLAPIU  $$START1^APCLDF  ($$CLINIC,$$VD,$$VDTM)^APCLV  
DRG Grouper 1 $$CPT^ICPTCOD  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Diabetes Registry 8 BDMDC10  BDMDC13  BDMDC14  BDMDC15  BDMDC16  BDMDE14  BDMDF14  BDMDG14  

Entry Points

Name Comments DBIA/ICR reference
PLDMDOO(P,F) ;EP
BI() ;
PNEU(P,EDATE,R,F) ;EP
E ;
INCHES ;
CMSFDX(P,R,T) ;EP - return date/dx of dm in register
HEP(P,EDATE,S,F) ;EP
BPS(P,BDATE,EDATE,F) ;EP ;
LASTWT(P,BDATE,EDATE,F) ;PEP - return last wt
PLDMDXS(P) ;EP - get all DM dxs from problem list
HEPCONT(P,C,BD,ED) ;EP
LASTHT(P,EDATE,F) ;PEP - return last ht and date
FLU(P,BDATE,EDATE,R,F) ;EP
LASTFLU(BDMPDFN,BDMBD,BDMED,BDMFORM) ;PEP - date of last FLU
; Return the last recorded FLU:
I
DATE(D) ;EP
LASTDMDX(P,D) ;EP - last pcc dm dx
FRSTDMDX(P,F) ;EP return date of first dm dx
HTNDX(P,EDATE) ;EP - is HTN on problem list

External References

Name Field # of Occurrence
^%DT LASTHT+5
$$LASTCPTT^APCLAPIU LASTFLU+17
$$LASTDXT^APCLAPIU LASTFLU+19
$$LASTITEM^APCLAPIU LASTFLU+15
$$START1^APCLDF BPS+5, HTNDX+16, LASTWT+4, FRSTDMDX+5, LASTDMDX+4, LASTDMDX+6, I+8
$$CLINIC^APCLV BPS+9
$$VD^APCLV LASTHT+14
$$VDTM^APCLV BPS+11
$$DOB^AUPNPAT LASTFLU+4, PNEU+9, PNEU+21, HTNDX+16, LASTDMDX+4, LASTDMDX+6, HEP+10, I+6, I+8, I+17
, I+20
$$PLTAX^BDMDC12 I+10
$$LASTHT^BDMDC13 INCHES+2
$$REFUSAL^BDMDC17 FLU+15, PNEU+9
$$CPTREFT^BDMDCDU I+17
$$DATE^BDMS9B1 PNEU+20
$$LASTPNEU^BDMS9B4 PNEU+5
$$PNEUCONT^BDMS9B4 PNEU+21
$$ANCONT^BDMUTL I+22
$$ICD^BDMUTL HTNDX+11, LASTWT+17, PLDMDOO+9, PLDMDXS+8, HEP+16, HEP+18
$$ICDDX^BDMUTL LASTWT+12, LASTWT+13, PLDMDXS+8
$$IMMREF^BDMUTL I+20
GETIMMS^BDMUTL HEP+6
$$CPT^ICPTCOD HEP+16, HEP+18
$$VAL^XBDIQ1 CMSFDX+6
$$VALI^XBDIQ1 BPS+10
$$FMADD^XLFDT FLU+4, I+12
$$FMDIFF^XLFDT HEP+22
$$FMTE^XLFDT FLU+6, FLU+16, FLU+17, FLU+29, PNEU+6, BPS+18, HTNDX+16, HTNDX+17, LASTHT+18, LASTWT+9
, LASTWT+24, CMSFDX+5, PLDMDOO+13, FRSTDMDX+6, I+18

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 2,1:3)_"
  • Variable: Q $S(BDMNMI
  • Line Location: I+16
Function Call: READ
  • Timeout: $P(R,U,3)="N"
  • Variable: S
  • Line Location: I+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(44 - [#9002244] CMSFDX+4, CMSFDX+5
^ATXAX - [#9002226] LASTFLU+10, FLU+11, FLU+13, HTNDX+11, LASTWT+17, PLDMDOO+9, PLDMDXS+8, HEP+16, HEP+18
^ATXAX("B" LASTFLU+9, FLU+10, FLU+12, HTNDX+4, LASTWT+16, PLDMDOO+3, PLDMDXS+2, HEP+11, I+17
^AUPNPREF - [#9000022] I+15
^AUPNPREF("AA" I+15
^AUPNPROB - [#9000011] HTNDX+6, HTNDX+7, HTNDX+8, HTNDX+9, HTNDX+10, PLDMDOO+6, PLDMDOO+7, PLDMDOO+10, PLDMDXS+5, PLDMDXS+6
^AUPNPROB("AC" HTNDX+5, PLDMDOO+5, PLDMDXS+4
^AUPNVCPT - [#9000010.18] HEP+16
^AUPNVCPT("AD" HEP+15
^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+12, LASTWT+13
^AUPNVPOV("AD" LASTWT+9, LASTWT+10
^AUPNVSIT - [#9000010] HEP+14
^AUPNVSIT("AA" HEP+12, HEP+13
^AUPNVSIT("AC" LASTHT+3
^AUPNVTC - [#9000010.33] HEP+18
^AUPNVTC("AD" HEP+17
^AUTTIMM("C" FLU+15, FLU+19, PNEU+9, PNEU+12, I+14, HEPCONT+2
^AUTTIMM(0 BI+1
^AUTTMSR("B" LASTHT+7
^BICONT - [#9002084.81] FLU+22, FLU+23, PNEU+15, PNEU+16, HEPCONT+5, HEPCONT+8
^BIPC - [#9002084.11] FLU+20, FLU+24, FLU+26, FLU+27, PNEU+13, PNEU+17, HEPCONT+3, HEPCONT+6, HEPCONT+7
^BIPC("AC" FLU+19, PNEU+12, HEPCONT+2
^DPT - [#2] HTNDX+2, LASTHT+6

Label References

Name Line Occurrences
$$HEPCONT I+6
$$LASTFLU FLU+5
E LASTFLU+16, LASTFLU+18, LASTFLU+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FLU+1~, HTNDX+3~, LASTHT+4~, LASTWT+3~, I+1, I+2*, I+3*, I+8*
%DT FLU+1~, PNEU+1~, LASTHT+5*
A FLU+1~, FLU+14*, FLU+15
B FLU+1~, PNEU+1~, I+12*, I+15
BD FLU+1~, HEP+10*, HEP+12, HEPCONT~
BDATE FLU~, FLU+4*, FLU+5, FLU+15, FLU+26, BPS~, BPS+5, LASTHT+4~, LASTHT+6*, LASTWT~
, LASTWT+4
BDM FLU+1~, PNEU+1~, BPS+2~, BPS+4!, HTNDX+3~, HTNDX+15!, LASTWT+3~, LASTWT+4!, FRSTDMDX+3~, LASTDMDX+2~
, LASTDMDX+6!
BDM( BPS+6, BPS+7, BPS+9, BPS+11, BPS+12, LASTWT+5, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+24
BDM(1 HTNDX+17, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7
BDM(2 HTNDX+17
BDM(3 HTNDX+17
BDM10743 HEP+1~, HEP+12*, HEP+16*, HEP+18*, I
BDMARRY LASTHT+4~, LASTWT+3~
BDMARRY(1 LASTHT+14*, LASTHT+18
BDMBD LASTFLU~, LASTFLU+4*, LASTFLU+15, LASTFLU+17, LASTFLU+19
BDMBDT BPS+2~, BPS+4!
BDMBDT( BPS+12*, BPS+13, BPS+14, BPS+15, BPS+17, BPS+18
>> BDMBP BPS+17*, BPS+18, BPS+19
BDMC HEP+1~
BDMD LASTWT+3~, LASTWT+10*, LASTWT+12, LASTWT+13
BDMED LASTFLU~, LASTFLU+5*, LASTFLU+15, LASTFLU+17, LASTFLU+19
BDMF LASTFLU+7~
BDMFORM LASTFLU~, LASTFLU+6*, LASTFLU+21
BDMG HEP+1~, I+8!
BDMG(1 I+9
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+6*, I+13*, I+14, I+20*
BDML BPS+2~, BPS+6*, BPS+7, BPS+9, BPS+11, BPS+12
BDMLAST LASTFLU+7~, LASTFLU+8*, LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, LASTFLU+22, E+1*
BDMLL BPS+2~, BPS+3*, BPS+13, BPS+14, BPS+15, BPS+16*, BPS+18, BPS+19
BDMN LASTWT+3~, LASTWT+5*, LASTWT+6, LASTWT+8, LASTWT+9, LASTWT+24
>> BDMNMI I+12*, I+15*, I+16, I+18*
>> BDMPD INCHES+2
BDMPDFN LASTFLU~, LASTFLU+3, LASTFLU+4, LASTFLU+15, LASTFLU+17, LASTFLU+19
>> BDMRED INCHES+2
BDMV BPS+2~, BPS+3*, BPS+18*, BPS+19*, BPS+20
BDMVAL LASTFLU+7~, LASTFLU+15*, LASTFLU+17*, LASTFLU+19*, E+1
BDMVF BPS+2~, BPS+7*, BPS+8, BPS+10, BPS+12, LASTWT+3~, LASTWT+6*, LASTWT+7
BDMW LASTWT+3~, LASTWT+4*, LASTWT+5, LASTWT+9*, LASTWT+24*, LASTWT+26
BDMX LASTFLU+7~, LASTWT+3~, LASTWT+4*, HEP+1~, HEP+6
BDMX( HEP+8
BDMY LASTFLU+7~
BDMZ LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+10, HEP+1~, I+22*
C FLU+1~, PNEU+1~, HEP+1~, HEP+5*, HEP+6, HEP+20*, HEP+21, HEPCONT~, HEPCONT+2
D LASTFLU+7~, FLU+1~, FLU+24*, FLU+25, FLU+28, FLU+29, PNEU+1~, PNEU+17*, PNEU+18, PNEU+19
, BPS+2~, BPS+10*, BPS+11*, BPS+12, BPS+13*, BPS+14, BPS+15, BPS+17, BPS+18, LASTHT+4~
, LASTHT+9*, LASTHT+10, CMSFDX+4~*, CMSFDX+5*, CMSFDX+8, CMSFDX+11*, CMSFDX+12, PLDMDOO+5~*, PLDMDOO+13*, PLDMDXS+4~*
, PLDMDXS+8*, PLDMDXS+10, LASTDMDX~, LASTDMDX+4, LASTDMDX+6, DATE~, DATE+1, DATE+2, I+15*, HEPCONT+1~
, HEPCONT+6*
D( PLDMDOO+10*
D(0 PLDMDOO+13
D1 CMSFDX+4~, CMSFDX+5*, CMSFDX+7*, CMSFDX+8, CMSFDX+11*, CMSFDX+12
DT LASTFLU+5, PNEU+9, PNEU+21
E LASTFLU+7~, FLU+1~, PNEU+1~, BPS+2~, BPS+5*, BPS+14*, BPS+15, BPS+17, BPS+18, HTNDX+3~
, HTNDX+16*, LASTHT+4~, LASTHT+7*, LASTHT+9, LASTHT+10, LASTWT+3~, LASTWT+4*, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~
, LASTDMDX+4*, LASTDMDX+6*, I+8*, I+12*, I+15
ED HEP+1~, HEP+10*, HEP+12*, HEP+13, HEP+16, HEP+18, HEPCONT~, HEPCONT+7
EDATE FLU~, FLU+4, FLU+5, FLU+15, FLU+27, PNEU~, PNEU+5, BPS~, BPS+5, HTNDX~
, HTNDX+7, HTNDX+16, LASTHT~, LASTHT+5*, LASTWT~, LASTWT+4, HEP~, HEP+6, HEP+10, I+6
, I+8, I+12, I+17, I+20, I+22
F FLU~, FLU+2*, FLU+6, PNEU~, PNEU+3*, PNEU+6, BPS~, BPS+1*, BPS+18, BPS+19
, LASTHT~, LASTHT+2*, LASTHT+16, LASTWT~, LASTWT+2*, LASTWT+26, PLDMDOO~, PLDMDOO+2*, PLDMDOO+13, FRSTDMDX~
, FRSTDMDX+2*, FRSTDMDX+6, INCHES+1~, INCHES+5*, INCHES+6, HEP~, HEP+3*
FI INCHES+1~, INCHES+6*, INCHES+7
G LASTFLU+7~, FLU+1~, FLU+15*, FLU+16, FLU+17, FLU+19*, FLU+28*, FLU+29, PNEU+1~, PNEU+8*
, PNEU+9*, PNEU+10, PNEU+12*, PNEU+19*, PNEU+20, PNEU+21*, PNEU+22, HTNDX+3~, HTNDX+5*, HTNDX+12*
, HTNDX+14, LASTWT+10*, LASTWT+17*, LASTWT+24, CMSFDX+4~, CMSFDX+10*, CMSFDX+11, HEP+1~, HEP+10*, HEPCONT+1~
, HEPCONT+2*, HEPCONT+8*, HEPCONT+9
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 BPS+2~, BPS+15*, BPS+17, BPS+18, PLDMDOO+5~, PLDMDOO+7*, PLDMDOO+9, PLDMDXS+4~, PLDMDXS+6*, PLDMDXS+8
, HEP+1~, I+14*, I+15
>> ICD LASTWT+13*
ICDI LASTWT+11~, LASTWT+12*, LASTWT+17
J FLU+1~, FLU+14*, FLU+16*, FLU+17*, FLU+18
LFLU FLU+1~, FLU+5*, FLU+6
LPN PNEU+1~, PNEU+5*, PNEU+6
P FLU~, FLU+5, FLU+15, FLU+19, PNEU~, PNEU+5, PNEU+9, PNEU+12, PNEU+21, BPS~
, BPS+5, HTNDX~, HTNDX+1, HTNDX+2, HTNDX+5, HTNDX+16, 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+6, I+8, I+10, I+15
, I+17, I+20, I+22, HEPCONT~, HEPCONT+2
R LASTFLU+7~, LASTFLU+14*, LASTFLU+15, FLU~, FLU+3*, FLU+8, FLU+20*, FLU+21, FLU+22, FLU+23
, PNEU~, PNEU+4*, PNEU+7, PNEU+8*, PNEU+9, PNEU+13*, PNEU+14, PNEU+15, PNEU+16, CMSFDX~
, CMSFDX+2, CMSFDX+4, HEP+1~, I+6*, I+7, I+12*, I+15*, I+16, I+17*, I+18
, I+20*, I+21, HEPCONT+1~, HEPCONT+3*, HEPCONT+4, HEPCONT+5, HEPCONT+8
S LASTFLU+7~, LASTFLU+8*, FLU+1~, FLU+9!, HEP~, HEP+4*, I+1
S( LASTFLU+10*, LASTFLU+14, FLU+11*, FLU+13*, FLU+14, FLU+19
T LASTFLU+7~, LASTFLU+9*, LASTFLU+10, FLU+1~, FLU+10*, FLU+11, FLU+12*, FLU+13, PNEU+1~, HTNDX+3~
, HTNDX+4*, HTNDX+11, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~*, PLDMDOO+4, PLDMDOO+9, PLDMDXS+2~*, PLDMDXS+3
, PLDMDXS+8, HEP+1~, HEP+11*, HEP+16, HEP+18
TAX LASTWT+15~, LASTWT+16*, LASTWT+17
TFLU FLU+1~
TPN PNEU+1~, PNEU+2!
U LASTFLU+15, LASTFLU+17, LASTFLU+19, LASTFLU+21, E+1, FLU+16, FLU+17, FLU+20, FLU+23, FLU+24
, FLU+26, FLU+27, FLU+28, FLU+29, PNEU+10, PNEU+13, PNEU+16, PNEU+17, PNEU+19, PNEU+20
, BPS+7, BPS+8, BPS+9, BPS+11, BPS+17, BPS+18, HTNDX+7, HTNDX+8, HTNDX+9, HTNDX+10
, HTNDX+11, HTNDX+17, LASTHT+6, LASTHT+12, LASTHT+13, LASTHT+14, LASTHT+18, LASTWT+6, LASTWT+7, LASTWT+8
, LASTWT+9, LASTWT+12, LASTWT+13, LASTWT+17, LASTWT+24, CMSFDX+4, CMSFDX+5, CMSFDX+11, PLDMDOO+6, PLDMDOO+7
, PLDMDOO+9, PLDMDOO+10, PLDMDXS+5, PLDMDXS+6, PLDMDXS+8, FRSTDMDX+5, HEP+16, HEP+18, I+15, I+18
, HEPCONT+3, HEPCONT+6, HEPCONT+7, HEPCONT+8
V LASTFLU+7~, 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+7~, LASTFLU+10*, FLU+1~, FLU+11*, FLU+13*, FLU+19*, FLU+20, FLU+24, FLU+26, FLU+27
, PNEU+1~, PNEU+12*, PNEU+13, PNEU+17, BPS+2~, BPS+5*, HTNDX+3~, HTNDX+5*, HTNDX+6, HTNDX+7
, HTNDX+8, HTNDX+9, HTNDX+10, HTNDX+16*, LASTHT+5*, LASTWT+3~, CMSFDX+4~*, CMSFDX+5, CMSFDX+6, PLDMDOO+5~*
, PLDMDOO+6, PLDMDOO+7, PLDMDOO+10, 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+15*, I+22*
, I+23, HEPCONT+1~, HEPCONT+2*, HEPCONT+3, HEPCONT+6, HEPCONT+7
Y LASTFLU+7~, FLU+1~, FLU+19*, PNEU+1~, PNEU+12*, HTNDX+3~, HTNDX+8*, HTNDX+11, HTNDX+17*, 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+15*, HEPCONT+1~, HEPCONT+2*
Z LASTFLU+7~, FLU+1~, FLU+19*, PNEU+1~, PNEU+12*, PNEU+21*, INCHES+1~, INCHES+2*, INCHES+7, HEP+1~
, HEP+16*, HEP+18*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All