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: BDMDA13

Package: Diabetes Registry

Routine: BDMDA13


Information

BDMDA13 ; IHS/CMI/LAB - 2013 DIABETES AUDIT ;

Source Information

Source file <BDMDA13.m>

Call Graph

Call Graph Total: 16

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  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Diabetes Registry 5 BDMDA10  BDMDA13  BDMDA14  BDMDA15  BDMDA16  

Entry Points

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

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$BI PNEU+8, PNEU+11
$$LASTFLU FLU+5
E LASTFLU+18, LASTFLU+20, LASTFLU+22

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All