Routine: BDMS9B4

Package	Total	Call Graph
Diabetes Registry	6	$$REFUSAL^BDMDG17 $$DATE^BDMS9B1 $$LE^BDMS9B2 $$TYPEREF^BDMSMU GETMEDS^BDMSMU1 ($$ICD,$$SNOMED)^BDMUTL
Patient Care Component Reports	4	$$LASTPAP^APCLAPI1 ($$LASTCPTT,$$LASTITEM)^APCLAPIU $$START1^APCLDF $$PRIMPOV^APCLV
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Diabetes Registry	10	BDMDC13 BDMDD13 BDMDE13 BDMDF13 BDMDG13 BDMS9B1 BDMS9B2 BDMS9B3 BDMS9B5 BDMS9D1
Health Summary Components	2	BHSDM1 BHSDM2
iCare	1	BQIRGDMS

Name	Comments	DBIA/ICR reference
PLDMDOO(P,F)	;EP get first dm dx from case management
LASTPNEU(BDMPDFN,BDMBD,BDMED,BDMFORM)	;PEP - date of last PNEUMOVAX ;
CMSFDXR(P,F)	;EP - return date/dx of dm in register
PPDS(P)	;EP
E	;
GETALLLE(P,RETURN)	;
DNKA(V)	;EP is this a DNKA visit?
ACE(P,D)	;EP - return date of last ACE iNHIBITOR
FRSTDMDX(P,F)	;EP return date of first dm dx
ASPREF(P)	;EP - CHECK FOR ASPIRIN NMI OR REFUSAL
PNEU(P)	;EP
PPDSPL	;CHECK PL
PNEUCONT(P,C,BD,ED)	;EP
PAP(P)	;EP
BI()	;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB
PPD(P)	;EP
MAMREF(P,LMAM)	;EP
CMSFDX(P,F)	;EP - return date/dx of dm in register

Name	Field # of Occurrence
$$LASTPAP^APCLAPI1	PAP+1
$$LASTCPTT^APCLAPIU	LASTPNEU+20
$$LASTITEM^APCLAPIU	LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18
$$START1^APCLDF	FRSTDMDX+5, PPD+3, PPD+6, PPDS+5, PPDSPL+6
$$PRIMPOV^APCLV	DNKA+2, DNKA+4
$$DOB^AUPNPAT	PNEU+6, PNEU+18, PPD+11, LASTPNEU+3
$$REFUSAL^BDMDG17	PNEU+6, PPD+11
$$DATE^BDMS9B1	FRSTDMDX+6, CMSFDX+6, PLDMDOO+14, ACE+14, ACE+15, ASPREF+12, PNEU+4, PNEU+17, PNEUCONT+8, PPD+10 , PPDSPL+7, MAMREF+9, MAMREF+16, MAMREF+24
$$LE^BDMS9B2	PLDMDOO+10
$$TYPEREF^BDMSMU	ASPREF+12
GETMEDS^BDMSMU1	ACE+7
$$ICD^BDMUTL	PLDMDOO+8, PPDSPL+3, MAMREF+6, MAMREF+13
$$SNOMED^BDMUTL	PLDMDOO+10
$$VAL^XBDIQ1	ACE+14, ACE+15, ASPREF+12, PPD+4, PPD+7
$$FMADD^XLFDT	PNEU+3

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41.1 - [#9002241.1]	CMSFDX+3, CMSFDXR+3
^ACM(44 - [#9002244]	CMSFDX+4, CMSFDX+5, CMSFDXR+4, CMSFDXR+5
^ATXAX - [#9002226]	ASPREF+7
^ATXAX("B"	PLDMDOO+3, ASPREF+4, MAMREF+6, MAMREF+13
^AUPNPREF("AA"	ASPREF+6, ASPREF+8, ASPREF+9, MAMREF+3, MAMREF+7, MAMREF+11, MAMREF+14, MAMREF+18, MAMREF+22
^AUPNPROB - [#9000011]	PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDOO+10, PLDMDOO+11, PPDSPL+3
^AUPNPROB("AC"	PLDMDOO+5, PPDSPL+3
^AUPNVLAB - [#9000010.09]	PPD+7
^AUPNVMED - [#9000010.14]	ACE+14, ACE+15
^AUPNVSIT - [#9000010]	ACE+14, ACE+15
^AUPNVSK - [#9000010.12]	PPD+4
^AUTTIMM("C"	PNEU+6, PNEU+9, PNEUCONT+2
^AUTTIMM(0	BI+1
^AUTTSK("B"	PPD+11
^BICONT - [#9002084.81]	PNEU+12, PNEU+13, PNEUCONT+5, PNEUCONT+8
^BIPC - [#9002084.11]	PNEU+10, PNEU+14, PNEUCONT+3, PNEUCONT+6, PNEUCONT+7
^BIPC("AC"	PNEU+9, PNEUCONT+2
^ICD0 - [#80.1]	MAMREF+20
^RAMIS(71 - [#71]	MAMREF+4

Name	Line Occurrences
$$LASTPNEU	PNEU+2, PNEU+3
$$PNEUCONT	PNEU+18
E	LASTPNEU+9, LASTPNEU+11, LASTPNEU+13, LASTPNEU+15, LASTPNEU+17, LASTPNEU+19, LASTPNEU+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACE+9~, ACE+12, ACE+14, ACE+15, PNEU+1~, PPD+1~, PPD+3
BD	PNEUCONT~
BDMBD	LASTPNEU~, LASTPNEU+3*, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20
BDMED	LASTPNEU~, LASTPNEU+4*, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20
BDMF	LASTPNEU+6~
BDMFORM	LASTPNEU~, LASTPNEU+5*, LASTPNEU+22
BDMLAST	LASTPNEU+6~, LASTPNEU+7, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20, LASTPNEU+22 , LASTPNEU+23, E+1
BDMPDFN	LASTPNEU~, LASTPNEU+2, LASTPNEU+3, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20
BDMS	FRSTDMDX+3~, PPDS+3~, PPDS+4!, PPDS+6, PPDSPL+6!
BDMS(1	FRSTDMDX+5, PPDSPL+7
BDMSMED	ACE+9~
BDMSMEDS	ACE+5~, ACE+6!, ACE+7, ACE+10
BDMSMEDS(	ACE+11, ACE+12, ACE+13
BDMV	PPD+1~, PPD+2, PPD+4, PPD+7*, PPD+10
BDMVAL	LASTPNEU+6~, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20*, E+1
BDMX	LASTPNEU+6~
BDMY	PNEU+1~, PPD+1~, PPD+5!, LASTPNEU+6~, MAMREF+1~
BDMY(1	PPD+4, PPD+7
C	ACE+9~, ACE+11, ACE+12, ACE+13, PNEUCONT~, PNEUCONT+2, MAMREF+1~, MAMREF+4, MAMREF+5, MAMREF+6 , MAMREF+9, MAMREF+12, MAMREF+13, MAMREF+16, MAMREF+19, MAMREF+20*, MAMREF+21, MAMREF+24
D	CMSFDX+3~, CMSFDX+5, CMSFDX+6, CMSFDX+7, CMSFDXR+3~, CMSFDXR+5, CMSFDXR+6, CMSFDXR+7, PLDMDOO+5~, PLDMDOO+12 , PLDMDOO+13, PLDMDOO+14, DNKA+2~, DNKA+3, DNKA+5, DNKA+6, DNKA+7, ACE~, ACE+4, ACE+7 , ASPREF+2~, ASPREF+6, ASPREF+7, ASPREF+8, ASPREF+9, ASPREF+10, PNEU+14, PNEU+15, PNEU+16, PNEUCONT+1~ , PNEUCONT+6, PNEUCONT+8, MAMREF+1~, MAMREF+7, MAMREF+8, MAMREF+9, MAMREF+14, MAMREF+15, MAMREF+16, MAMREF+22 , MAMREF+23*, MAMREF+24
D(	CMSFDX+5, CMSFDXR+5, CMSFDXR+6, PLDMDOO+9, PLDMDOO+11
D(0	CMSFDX+6, CMSFDXR+6, PLDMDOO+12
D1	CMSFDX+3~, CMSFDXR+3~
DATE	ASPREF+2~, ASPREF+10*, ASPREF+12
DRUG	ASPREF+2~, ASPREF+10*, ASPREF+12
DT	PNEU+6, PNEU+18, PPD+11, LASTPNEU+4
E	FRSTDMDX+3~, FRSTDMDX+5, PPD+1~, PPD+3, PPD+4, PPD+6, PPDS+3~, PPDS+5, PPDSPL+6, LASTPNEU+6~
ED	PNEUCONT~, PNEUCONT+7
F	FRSTDMDX~, FRSTDMDX+1, FRSTDMDX+6, CMSFDX~, CMSFDX+1, CMSFDX+6, CMSFDXR~, CMSFDXR+1, PLDMDOO~, PLDMDOO+2 , PLDMDOO+14
G	CMSFDX+3~, CMSFDX+4, CMSFDXR+3~, CMSFDXR+4, ASPREF+6, ASPREF+10, ASPREF+11, PNEU+1~, PNEU+5, PNEU+6 , PNEU+7, PNEU+9, PNEU+16, PNEU+17, PNEU+18, PNEU+19, PNEUCONT+1~, PNEUCONT+2, PNEUCONT+8, PNEUCONT+9 , PPD+11, PPD+12, LASTPNEU+6~, MAMREF+1~, MAMREF+2*
I	PLDMDOO+5~, PLDMDOO+7, PLDMDOO+8, PPDSPL+3~, PPDSPL+4, MAMREF+1~, MAMREF+3, MAMREF+4, MAMREF+7, MAMREF+11 , MAMREF+12, MAMREF+14, MAMREF+18*, MAMREF+19, MAMREF+22
IEN	ASPREF+2~, ASPREF+10*, ASPREF+12
LAST	MAMREF+1~, MAMREF+2, MAMREF+9, MAMREF+16, MAMREF+24, MAMREF+25
LMAM	MAMREF~
N	CMSFDX+3~, CMSFDXR+3~, CMSFDXR+5, DNKA+2~, DNKA+4, DNKA+5, DNKA+6, DNKA+7, ASPREF+2~, ASPREF+9 , ASPREF+10
P	GETALLLE~, FRSTDMDX~, FRSTDMDX+2, FRSTDMDX+5, CMSFDX~, CMSFDX+2, CMSFDX+4, CMSFDXR~, CMSFDXR+2, CMSFDXR+4 , PLDMDOO~, PLDMDOO+1, PLDMDOO+5, ACE~, ACE+3, ACE+7, ASPREF~, ASPREF+1, ASPREF+6, ASPREF+8 , ASPREF+9, PNEU~, PNEU+2, PNEU+3, PNEU+6, PNEU+9, PNEU+18, PNEUCONT~, PNEUCONT+2, PPD~ , PPD+3, PPD+6, PPD+11, PPDS~, PPDS+5, PPDSPL+3, PPDSPL+6, MAMREF~, MAMREF+3, MAMREF+7 , MAMREF+11, MAMREF+14, MAMREF+18, MAMREF+22, PAP~, PAP+1
PNEU	PNEU+1~
PNEU1	PNEU+1~, PNEU+2*, PNEU+3, PNEU+4
PNEU2	PNEU+1~, PNEU+3*, PNEU+4
R	CMSFDX+3~, CMSFDX+4, CMSFDXR+3~, CMSFDXR+4, PNEU+1~, PNEU+5, PNEU+6, PNEU+10, PNEU+11, PNEU+12 , PNEU+13, PNEUCONT+1~, PNEUCONT+3*, PNEUCONT+4, PNEUCONT+5, PNEUCONT+8, LASTPNEU+6~
RETURN	GETALLLE~
T	PLDMDOO+3~, PLDMDOO+4, ASPREF+4, ASPREF+5, ASPREF+7, PPDSPL+1~*, PPDSPL+2, PPDSPL+3, LASTPNEU+6~
U	FRSTDMDX+5, CMSFDX+4, CMSFDX+5, CMSFDXR+4, CMSFDXR+5, PLDMDOO+6, PLDMDOO+7, PLDMDOO+9, PLDMDOO+10, PLDMDOO+11 , ACE+12, ACE+13, ACE+14, ACE+15, PNEU+3, PNEU+4, PNEU+7, PNEU+10, PNEU+13, PNEU+14 , PNEU+16, PNEU+17, PNEUCONT+3, PNEUCONT+6, PNEUCONT+7, PNEUCONT+8, PPD+4, PPD+7, PPD+10, PPDSPL+3 , PPDSPL+7, LASTPNEU+8, LASTPNEU+10, LASTPNEU+12, LASTPNEU+14, LASTPNEU+16, LASTPNEU+18, LASTPNEU+20, LASTPNEU+22, E+1 , MAMREF+4, MAMREF+9, MAMREF+16, MAMREF+20, MAMREF+24
V	DNKA~, DNKA+1, DNKA+2, DNKA+4, ACE+9~, ACE+13*, LASTPNEU+6~
X	FRSTDMDX+3~, FRSTDMDX+5, CMSFDX+3~, CMSFDX+4, CMSFDX+5, CMSFDXR+3~, CMSFDXR+4, CMSFDXR+5, PLDMDOO+5~, PLDMDOO+6 , PLDMDOO+7, PLDMDOO+9, PLDMDOO+10, PLDMDOO+11, ACE+9~, ACE+11, ASPREF+2~, ASPREF+3!, ASPREF+8, ASPREF+9 , ASPREF+10, PNEU+1~, PNEU+9, PNEU+10, PNEU+14, PNEUCONT+1~, PNEUCONT+2, PNEUCONT+3, PNEUCONT+6, PNEUCONT+7 , PPD+1~, PPD+6, PPDS+3~, PPDS+5, PPDSPL+3~, PPDSPL+6, LASTPNEU+6~, MAMREF+1~
Y	FRSTDMDX+3~, FRSTDMDX+4, FRSTDMDX+5, FRSTDMDX+6, CMSFDX+3~, CMSFDX+4, CMSFDXR+3~, CMSFDXR+4, PNEU+1~, PNEU+9* , PNEUCONT+1~, PNEUCONT+2, PPD+1~, PPDSPL+3~, LASTPNEU+6~
Z	ACE+9~, ASPREF+2~, PNEU+1~, PNEU+9, PNEU+18

Customize PDF page

Package: Diabetes Registry

Routine: BDMS9B4

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: