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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLD613

Package: Patient Care Component Reports

Routine: APCLD613


Information

APCLD613 ; IHS/CMI/LAB - 2006 DIABETES AUDIT ;

Source Information

Source file <APCLD613.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Patient Care Component Reports 5 $$CPT^APCLD612  $$LASTHT^APCLD613  $$REFUSAL^APCLD617  $$START1^APCLDF  $$CLINIC^APCLV  
DRG Grouper 1 $$ICDDX^ICDCODE  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Patient Care Component Reports 5 APCLD610  APCLD613  APCLD614  APCLD615  APCLD616  

Entry Points

Name Comments DBIA/ICR reference
PLDMDOO(P,F) ;EP
BI() ;
CMSFDX(P,R,T) ;EP - return date/dx of dm in register
INCHES ;
PNEU(P,EDATE) ;EP
BPS(P,BDATE,EDATE,F) ;EP ;
LASTFLUO ;
LASTFLUN ;
PLDMDXS(P) ;EP - get all DM dxs from problem list
LASTPNO ;
LASTHT(P,EDATE,F) ;PEP - return last ht and date
LASTPNN ;
FLU(P,BDATE,EDATE) ;EP
DATE(D) ;EP
LASTDMDX(P,D) ;EP - last pcc dm dx
FRSTDMDX(P,F) ;EP return date of first dm dx
LASTWT(P,EDATE,F) ;PEP - return last wt
HTNDX(P,EDATE) ;EP - is HTN on problem list

External References

Name Field # of Occurrence
^%DT FLU+2, FLU+28, FLU+29, PNEU+3, PNEU+26, LASTHT+5, LASTWT+4
$$CPT^APCLD612 FLU+31, PNEU+11
$$LASTHT^APCLD613 INCHES+2
$$REFUSAL^APCLD617 FLU+37, FLU+40, FLU+43, FLU+46, PNEU+16, PNEU+20, PNEU+23
$$START1^APCLDF FLU+11, FLU+15, FLU+19, FLU+23, BPS+5, HTNDX+5, HTNDX+8, LASTHT+7, LASTWT+7, FRSTDMDX+5
, LASTDMDX+4, LASTDMDX+6
$$CLINIC^APCLV BPS+7
$$ICD^ATXCHK PLDMDOO+7, PLDMDXS+7
$$DOB^AUPNPAT PNEU+4, PNEU+16, PNEU+20, PNEU+23, HTNDX+8, LASTDMDX+4, LASTDMDX+6
$$ICDDX^ICDCODE PLDMDXS+7
$$VAL^XBDIQ1 CMSFDX+6
$$FMADD^XLFDT FLU+3, LASTWT+5
$$FMTE^XLFDT FLU+3, BPS+9, HTNDX+8, CMSFDX+5, PLDMDOO+11, FRSTDMDX+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(44 - [#9002244] CMSFDX+4, CMSFDX+5
^ATXAX("B" FLU+30, PNEU+10, PLDMDOO+3, PLDMDXS+2
^AUPNPROB - [#9000011] PLDMDOO+6, PLDMDOO+8, PLDMDXS+5
^AUPNPROB("AC" PLDMDOO+5, PLDMDXS+4
^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
^AUPNVPOV - [#9000010.07] LASTWT+12
^AUPNVPOV("AD" LASTWT+10, LASTWT+11
^AUPNVSIT - [#9000010] LASTFLUN+6, LASTFLUO+5, LASTPNN+6, LASTPNO+5
^AUPNVSIT("AC" LASTHT+3
^AUTTIMM - [#9999999.14] LASTFLUN+3, LASTFLUN+4, LASTFLUO+3, LASTPNN+3, LASTPNN+4, LASTPNO+3
^AUTTIMM("C" FLU+37, FLU+40, FLU+43, FLU+46, FLU+49, PNEU+16, PNEU+20, PNEU+23, PNEU+27
^AUTTIMM(0 BI+1
^BICONT - [#9002084.81] FLU+52, FLU+53, PNEU+30, PNEU+31
^BIPC - [#9002084.11] FLU+50, FLU+54, FLU+56, FLU+57, PNEU+28, PNEU+32, PNEU+34
^BIPC("AC" FLU+49, PNEU+27
^DPT - [#2] HTNDX+2, LASTHT+6
^ICD9("BA" LASTWT+6

Label References

Name Line Occurrences
$$BI FLU+7, FLU+8, FLU+37, PNEU+5, PNEU+6, PNEU+16, PNEU+19
$$DATE FLU+35, PNEU+15, LASTHT+11, LASTWT+10, LASTWT+12
LASTFLUN FLU+7
LASTFLUO FLU+8
LASTPNN PNEU+6
LASTPNO PNEU+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FLU+1~, FLU+11*, FLU+15*, FLU+19*, FLU+23*, HTNDX+3~, HTNDX+5*, LASTHT+4~, LASTHT+7*, LASTWT+3~
%DT FLU+1~, FLU+2*, FLU+28*, FLU+29*, PNEU+1~, PNEU+3*, PNEU+26*, LASTHT+5*, LASTWT+4*
APCL FLU+1~, FLU+11!, FLU+15!, FLU+19!, FLU+23!, FLU+31!, FLU+32!, PNEU+1~, BPS+2~, BPS+4!
, HTNDX+3~, HTNDX+4!, HTNDX+7!, LASTWT+3~, LASTWT+7!, FRSTDMDX+3~, LASTDMDX+2~, LASTDMDX+6!
APCL( BPS+6, BPS+7, BPS+9, LASTWT+8, LASTWT+9, LASTWT+10, LASTWT+12
APCL(1 FLU+12, FLU+13, FLU+14, FLU+16, FLU+17, FLU+18, FLU+20, FLU+21, FLU+22, FLU+24
, FLU+25, FLU+26, FLU+31*, FLU+32, FLU+33, FLU+34, HTNDX+6, FRSTDMDX+5, LASTDMDX+5, LASTDMDX+7
APCL(3 HTNDX+8
APCLARRY LASTHT+4~, LASTWT+3~
APCLARRY(1 LASTHT+7, LASTHT+11
>> APCLBP BPS+6*, BPS+9, BPS+10
APCLD LASTWT+3~, LASTWT+11*, LASTWT+12
APCLL BPS+2~, BPS+6*, BPS+7, BPS+9
APCLLL BPS+2~, BPS+3*, BPS+6, BPS+8*, BPS+9, BPS+10
APCLN LASTWT+3~, LASTWT+8*, LASTWT+9, LASTWT+10, LASTWT+12
>> APCLPD INCHES+2
>> APCLRED INCHES+2
APCLV BPS+2~, BPS+3*, BPS+9*, BPS+10*, BPS+11
APCLV221 LASTWT+6~*, LASTWT+12
APCLW LASTWT+3~, LASTWT+7*, LASTWT+8, LASTWT+10*, LASTWT+11, LASTWT+12*, LASTWT+14
APCLX LASTWT+3~, LASTWT+7*
APCLZ LASTWT+3~, LASTWT+9*, LASTWT+10, LASTWT+11
B FLU+1~, FLU+3*, PNEU+1~, PNEU+4*, PNEU+11, LASTFLUN+7, LASTFLUO+6, LASTPNN+7, LASTPNO+6
BD FLU+1~, FLU+2*, FLU+3*, FLU+11, FLU+15, FLU+19, FLU+23, FLU+29*, FLU+31, FLU+37
, FLU+40, FLU+43, FLU+46, FLU+56
BDATE FLU~, BPS~, BPS+5, LASTHT+4~, LASTHT+6*, LASTHT+7, LASTWT+5*, LASTWT+7
C FLU+1~, PNEU+1~, PNEU+11!*, PNEU+12, PNEU+13, PNEU+14
D FLU+1~, FLU+54*, FLU+55, PNEU+1~, PNEU+32*, PNEU+33, 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, CMSFDX+4~*, CMSFDX+5*, CMSFDX+8, CMSFDX+11*, CMSFDX+12, PLDMDOO+5~*, PLDMDOO+11*, PLDMDXS+4~*, PLDMDXS+7*
, PLDMDXS+9, LASTDMDX~, LASTDMDX+4, LASTDMDX+6, DATE~, DATE+1, DATE+2
D( PLDMDOO+8*
D(0 PLDMDOO+11
D1 CMSFDX+4~, CMSFDX+5*, CMSFDX+7*, CMSFDX+8, CMSFDX+11*, CMSFDX+12
E FLU+1~, FLU+2*, FLU+11*, FLU+15*, FLU+19*, FLU+23*, PNEU+1~, PNEU+3*, PNEU+11, PNEU+26*
, LASTFLUN+8, LASTFLUO+7, LASTPNN+8, LASTPNO+7, BPS+2~, BPS+5*, HTNDX+3~, HTNDX+5*, HTNDX+8*, LASTHT+4~
, LASTHT+7*, LASTWT+3~, LASTWT+7*, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*
>> ED FLU+28*, FLU+31, FLU+57, PNEU+34
EDATE FLU~, FLU+2, FLU+11, FLU+15, FLU+19, FLU+23, FLU+28, FLU+37, FLU+40, FLU+43
, FLU+46, PNEU~, PNEU+3, PNEU+16, PNEU+20, PNEU+23, PNEU+26, BPS~, BPS+5, HTNDX~
, HTNDX+8, LASTHT~, LASTHT+5*, LASTHT+7, LASTWT~, LASTWT+4*, LASTWT+5, LASTWT+7
F BPS~, BPS+1*, BPS+9, BPS+10, LASTHT~, LASTHT+2*, LASTHT+9, LASTWT~, LASTWT+2*, LASTWT+14
, PLDMDOO~, PLDMDOO+2*, PLDMDOO+11, FRSTDMDX~, FRSTDMDX+2*, FRSTDMDX+6, INCHES+1~, INCHES+5*, INCHES+6
FI INCHES+1~, INCHES+6*, INCHES+7
G FLU+1~, FLU+37~*, FLU+38, FLU+39, FLU+40*, FLU+41, FLU+42, FLU+43*, FLU+44, FLU+45
, FLU+46*, FLU+47, FLU+48, FLU+49*, FLU+58*, FLU+59, PNEU+1~, PNEU+16*, PNEU+17, PNEU+18
, PNEU+20*, PNEU+21, PNEU+22, PNEU+23*, PNEU+24, PNEU+25, PNEU+27*, PNEU+35*, PNEU+36, CMSFDX+4~
, CMSFDX+10*, CMSFDX+11
G( CMSFDX+10, CMSFDX+11
G(0 CMSFDX+9
G(9999999 CMSFDX+8*
H LASTHT+4~, LASTHT+7*, LASTHT+8, LASTHT+9, LASTHT+10*, LASTHT+11, LASTWT+3~
I PLDMDOO+5~, PLDMDOO+6*, PLDMDOO+7, PLDMDXS+4~, PLDMDXS+5*, PLDMDXS+7
LFLU FLU+1~, FLU+6*, FLU+9*, FLU+10*, FLU+13, FLU+14*, FLU+17, FLU+18*, FLU+21, FLU+22*
, FLU+25, FLU+26*, FLU+33, FLU+34*, FLU+35
LPN PNEU+1~, PNEU+7*, PNEU+8*, PNEU+13, PNEU+14*, PNEU+15
P FLU~, FLU+11, FLU+15, FLU+19, FLU+23, FLU+31, FLU+37, FLU+40, FLU+43, FLU+46
, FLU+49, PNEU~, PNEU+4, PNEU+11, PNEU+16, PNEU+20, PNEU+23, PNEU+27, 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+7, LASTWT~, LASTWT+1, LASTWT+7, 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
R FLU+50*, FLU+51, FLU+52, FLU+53, PNEU+28*, PNEU+29, PNEU+30, PNEU+31, CMSFDX~, CMSFDX+2
, CMSFDX+4
T FLU+1~, FLU+30*, FLU+31, PNEU+1~, PNEU+10*, PNEU+11, CMSFDX~, CMSFDX+3, CMSFDX+12, PLDMDOO+3~*
, PLDMDOO+4, PLDMDOO+7, PLDMDXS+2~*, PLDMDXS+3, PLDMDXS+7
TFLU FLU+1~, FLU+6!
TFLU(0 FLU+9
TFLU(9999999 LASTFLUN+9*, LASTFLUN+10*, LASTFLUN+11*, LASTFLUN+12*, LASTFLUO+8*
TPN PNEU+1~, PNEU+2!
TPN(0 PNEU+7
TPN(9999999 LASTPNN+9*, LASTPNN+10*, LASTPNN+11*, LASTPNO+8*
U FLU+13, FLU+14, FLU+17, FLU+18, FLU+21, FLU+22, FLU+25, FLU+26, FLU+33, FLU+34
, FLU+38, FLU+41, FLU+44, FLU+47, FLU+50, FLU+53, FLU+54, FLU+56, FLU+57, PNEU+13
, PNEU+14, PNEU+17, PNEU+21, PNEU+24, PNEU+28, PNEU+31, PNEU+32, PNEU+34, 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+9, LASTHT+6, LASTHT+7, LASTHT+11
, LASTWT+9, LASTWT+10, LASTWT+12, CMSFDX+4, CMSFDX+5, CMSFDX+11, PLDMDOO+6, PLDMDOO+8, PLDMDXS+5, PLDMDXS+7
, FRSTDMDX+5
W LASTHT+4~, LASTWT+3~
X FLU+1~, FLU+2*, FLU+28*, FLU+29*, FLU+49*, FLU+50, FLU+54, FLU+56, FLU+57, PNEU+1~
, PNEU+3*, PNEU+26*, PNEU+27*, PNEU+28, PNEU+32, PNEU+34, 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*, LASTHT+7~, LASTWT+3~, LASTWT+4*, CMSFDX+4~*, CMSFDX+5, CMSFDX+6, PLDMDOO+5~*
, PLDMDOO+6, PLDMDOO+8, PLDMDXS+4~*, PLDMDXS+5, FRSTDMDX+3~, FRSTDMDX+5*, LASTDMDX+2~, LASTDMDX+4*, LASTDMDX+6*, INCHES+2*
, INCHES+3, INCHES+4*, INCHES+5, INCHES+7*, INCHES+8*
Y FLU+1~, FLU+2, FLU+28, FLU+29, FLU+49*, PNEU+1~, PNEU+3, PNEU+26, PNEU+27*, 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, LASTHT+5, LASTWT+4
, 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
Z FLU+1~, FLU+49*, PNEU+1~, PNEU+27*, INCHES+1~, INCHES+2*, INCHES+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All