Routine: BDMS9B4

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

BDMS9B4 ; IHS/CMI/LAB - DIABETIC CARE SUMMARY SUPPLEMENT ; 27 Jan 2011 6:58 AM

Source Information

Source file <BDMS9B4.m>

Call Graph

Call Graph Total: 13

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

Caller Graph

Caller Graph Total: 13

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

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Call Graph Total: 13

Caller Graph Total: 13