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

Package: Diabetes Registry

Routine: BDMS9B1


Information

BDMS9B1 ; IHS/CMI/LAB - DIABETIC CARE SUMMARY SUPPLEMENT 12 Jan 2011 12:27 PM ; [ 12 Jan 2011 12:27 PM ]

Source Information

Source file <BDMS9B1.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Diabetes Registry 10 $$AGE^BDMAPIU  $$CESS^BDMDG11  ($$CVD,$$DEPDX,$$DEPSCR)^BDMDG12  ($$STATIN,$$TYPE)^BDMDG16  ($$DENTAL,$$DFE,$$EYE)^BDMDG17  $$TOBACCO^BDMDG1T  ($$LE,MORE)^BDMS9B2  ($$ACE,$$ASPREF,$$CMSFDX,$$CMSFDXR,$$PLDMDOO)^BDMS9B4  
$$LASTHF^BDMSMU  ($$CODEN,$$ICD,$$ICDDX,$$SNOMED)^BDMUTL  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
Kernel 2 $$FMADD^XLFDT  ($$STRIP,$$UP)^XLFSTR  
Patient Care Component Reports 2 $$START1^APCLDF  $$CLINIC^APCLV  
VA Fileman 2 ^%DT  ^DIR  
IHS Designated Provider 1 ALLDP^BDPAPI  
IHS Patient 1 ($$AGE,$$DOB,$$DOD,$$HRN)^AUPNPAT  

Caller Graph

Caller Graph Total: 92

Package Total Caller Graph
Diabetes Registry 89 BDMAPIU  BDMD112  BDMD117  BDMD412  BDMD417  BDMDA12  BDMDA17  BDMDB12  
BDMDB14  BDMDB17  BDMDC12  BDMDC13  BDMDC14  BDMDC16  BDMDC17  BDMDC1B  
BDMDC1Q  BDMDD11  BDMDD12  BDMDD13  BDMDD14  BDMDD16  BDMDD17  BDMDD18  
BDMDD1B  BDMDD1C  BDMDD1H  BDMDD1P  BDMDD1Q  BDMDD1T  BDMDD1U  BDMDE12  
BDMDE13  BDMDE14  BDMDE16  BDMDE17  BDMDE18  BDMDE1B  BDMDE1C  BDMDE1D  
BDMDE1H  BDMDE1P  BDMDE1Q  BDMDE1T  BDMDE1U  BDMDF12  BDMDF13  BDMDF14  
BDMDF16  BDMDF17  BDMDF18  BDMDF1B  BDMDF1C  BDMDF1D  BDMDF1H  BDMDF1P  
BDMDF1Q  BDMDF1T  BDMDF1U  BDMDF1V  BDMDG12  BDMDG13  BDMDG14  BDMDG16  
BDMDG17  BDMDG18  BDMDG1B  BDMDG1C  BDMDG1D  BDMDG1H  BDMDG1P  BDMDG1T  
BDMDG1U  BDMDG1V  BDMDMSP  BDMDR5  BDMDR6  BDMPA17  BDMPB17  BDMPC17  
BDMPD17  BDMPE17  BDMPF17  BDMPG17  BDMS9B2  BDMS9B3  BDMS9B4  BDMS9D2  
BDMSMU  
Health Summary Components 1 BHSDM2  
Patient Care Component 1 APCHS9B1  
iCare 1 BQIRGDMS  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
S1 ;
DMPN(P) ;return problem number of firt encountered DM problem
DPCP(P) ;EP
DATE1(D) ;
SETARRAY ;set up array containing dm care summary
BPX ;
EP2(BDMSDFN) ;PEP - PASS DFN get back array of patient care summary
LASTWC ;
GETHWB(P)
LASTHT ;
BMI ;
LASTWT ;
EP21 ;
NOTREG(P) ;is patient on any Diabetes register 1 if on reg, "" if not
DATE(D) ;EP
S(Y,F,C,T) ;set up array
HEADER ;
DOO(P) ;get earliest date of onset
W ;write out array
EP ;EP - called from xbnew
DEPPL(P,BDATE,EDATE) ;EP
HTNX ;
HEAD1 ;
BP(P) ;last 3 BPs
M12 ;
HTN(P) ;
ASPIRIN(P,D) ;

External References

Name Field # of Occurrence
^%DT DATE1+2, DEPPL+37, DEPPL+38
$$START1^APCLDF HTN+13, LASTHT+4, LASTWT+1, BMI+5, DEPPL+34
$$CLINIC^APCLV BP+10
$$AGE^AUPNPAT BMI+1
$$DOB^AUPNPAT SETARRAY+9, SETARRAY+17, SETARRAY+30, M12+15
$$DOD^AUPNPAT SETARRAY+8
$$HRN^AUPNPAT HEAD1+4, SETARRAY+7, M12+15
$$AGE^BDMAPIU SETARRAY+9
$$CESS^BDMDG11 SETARRAY+26
$$CVD^BDMDG12 SETARRAY+35
$$DEPDX^BDMDG12 M12+8
$$DEPSCR^BDMDG12 M12+10
$$STATIN^BDMDG16 SETARRAY+55
$$TYPE^BDMDG16 SETARRAY+12
$$DENTAL^BDMDG17 M12+6
$$DFE^BDMDG17 M12+4
$$EYE^BDMDG17 M12+5
$$TOBACCO^BDMDG1T SETARRAY+17
$$LE^BDMS9B2 HTN+9, DMPN+8, DEPPL+12
MORE^BDMS9B2 M12+14
$$ACE^BDMS9B4 SETARRAY+41
$$ASPREF^BDMS9B4 SETARRAY+51
$$CMSFDX^BDMS9B4 DOO+2
$$CMSFDXR^BDMS9B4 DOO+3
$$PLDMDOO^BDMS9B4 DOO+4
$$LASTHF^BDMSMU SETARRAY+30
$$CODEN^BDMUTL DEPPL+24
$$ICD^BDMUTL HTN+8, DMPN+7, DEPPL+8, DEPPL+26
$$ICDDX^BDMUTL DEPPL+11, DEPPL+29
$$SNOMED^BDMUTL HTN+9, DMPN+8, DEPPL+12
ALLDP^BDPAPI DPCP+2
^DIR HEADER+1
$$VAL^XBDIQ1 SETARRAY+9, SETARRAY+10, ASPIRIN+15, ASPIRIN+16
EN^XBNEW BDMS9B1+6, EP2+4
$$FMADD^XLFDT SETARRAY+26, SETARRAY+40, SETARRAY+46, SETARRAY+54, M12+2, M12+8, M12+10
$$STRIP^XLFSTR SETARRAY+15, LASTHT+4
$$UP^XLFSTR NOTREG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,BDMSHDR,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,"Diabetes Patient Care Summary - continued"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"Patient: ",$P(^DPT(BDMSPAT,0),U)," HRN: ",$$HRN^AUPNPAT(BDMSPAT,DUZ(2)),!
  • Line Location: HEAD1+4
Routine Call
  • DIR
  • Line Location:
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SETARRAY+5
^ACM(41 - [#9002241] NOTREG+3
^ACM(41.1 - [#9002241.1] NOTREG+4
^AMHPPROB - [#9002011.51] DEPPL+19, DEPPL+27
^AMHPPROB("AC" DEPPL+18
^AMHPROB - [#9002012.2] DEPPL+21, DEPPL+45
^AMHREC - [#9002011] DEPPL+41, DEPPL+42
^AMHREC("AE" DEPPL+40
^AMHRPRO - [#9002011.01] DEPPL+43
^AMHRPRO("AD" DEPPL+43
^ATXAX - [#9002226] ASPIRIN+11, ASPIRIN+12, ASPIRIN+13
^ATXAX("B" HTN+2, DMPN+2, ASPIRIN+5, ASPIRIN+6, ASPIRIN+7, DEPPL+5, DEPPL+17
^AUPNPAT - [#9000001] DPCP+4
^AUPNPROB - [#9000011] HTN+5, HTN+6, HTN+7, HTN+8, HTN+9, DMPN+5, DMPN+6, DMPN+8, DMPN+11, DMPN+12
, DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+12
^AUPNPROB("AC" HTN+4, DMPN+4, DEPPL+6
^AUPNVMED - [#9000010.14] ASPIRIN+10, ASPIRIN+15, ASPIRIN+16
^AUPNVMED("AA" ASPIRIN+9, ASPIRIN+10
^AUPNVMSR - [#9000010.01] BP+8, BP+11, BP+12
^AUPNVMSR("AA" BP+6, BP+7
^AUPNVMSR("AC" LASTHT+2
^AUPNVSIT - [#9000010] BP+9, ASPIRIN+15, ASPIRIN+16
^AUPNVSIT("AC" LASTHT+1
^AUTTLOC - [#9999999.06] DMPN+12
^AUTTMSR("B" BP+5
^DPT - [#2] HEAD1+4, SETARRAY+7, M12+15
^TMP("APCHS" BDMS9B1+7!, W+4, W+6, W+9!, EP2+2!, EP2+3*, S1+1*, S1+2*
^VA(200 - [#200] DPCP+3, DPCP+4

Label References

Name Line Occurrences
$$ASPIRIN SETARRAY+47
$$BP SETARRAY+36
$$DATE DATE1+4, SETARRAY+6, SETARRAY+8, SETARRAY+9, SETARRAY+19, SETARRAY+32, SETARRAY+37, SETARRAY+38, SETARRAY+39, LASTHT+4
, LASTWT+1, ASPIRIN+15, ASPIRIN+16, DOO+7
$$DATE1 DATE+2
$$DOO SETARRAY+11
$$DPCP SETARRAY+10
$$HTN SETARRAY+34
$$NOTREG SETARRAY+13
EOJ W+10
EP2 EP+1
GETHWB SETARRAY+14
HEADER W+5
HTNX HTN+13
S SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+15, SETARRAY+16, SETARRAY+18
, SETARRAY+19, SETARRAY+20, SETARRAY+29, SETARRAY+31, SETARRAY+32, SETARRAY+33, SETARRAY+34, SETARRAY+35, SETARRAY+37, SETARRAY+38
, SETARRAY+39, SETARRAY+43, SETARRAY+44, SETARRAY+49, SETARRAY+50, SETARRAY+51, SETARRAY+57, SETARRAY+58, SETARRAY+59, M12+3
, M12+4, M12+5, M12+6, M12+12, M12+13, M12+15
S1 S+5, S+7, S+10
SETARRAY EP21+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!, DATE1+1~, DATE1+2*, SETARRAY+41*, SETARRAY+43, SETARRAY+44, S+3~, S+8*, S+9*, S1+1*
, S1+2, LASTHT+4*, LASTWT+1*, BMI+5*, BMI+7*, BMI+9*, BMI+10, ASPIRIN+3~, ASPIRIN+4*, ASPIRIN+9
, ASPIRIN+10, ASPIRIN+11*, ASPIRIN+12*, ASPIRIN+13*, ASPIRIN+14, ASPIRIN+15*, ASPIRIN+16*
%DT DATE1+1~, DATE1+2*, DEPPL+37*, DEPPL+38*
>> APCHSHDR BDMS9B1+5
>> APCHSPAT BDMS9B1+3, BDMS9B1+4
>> APCHSQIT W+8*
B EOJ+2!, SETARRAY+36*
>> BD DEPPL+37*
BDATE DEPPL~, DEPPL+34, DEPPL+37, DEPPL+40
BDM DEPPL+1~, DEPPL+2!, DEPPL+36*, DEPPL+40, DEPPL+43, DEPPL+46*, DEPPL+47*, DEPPL+48*, DEPPL+49*, DEPPL+50*
, DEPPL+51*, DEPPL+52*, DEPPL+53*, DEPPL+54*, DEPPL+55*, DEPPL+57
BDM(1 DEPPL+36
BDM(2 DEPPL+35
>> BDMBTH SETARRAY+2*
BDMC BP+2~, BP+4*, BP+6, BP+7, BP+12*, BPX+1!
BDMD BP+2~, BP+4*, BP+6*, BP+7, BP+12, BPX+1!
>> BDMDEPP M12+8*, M12+9*, M12+12, M12+13
>> BDMDEPS M12+10*, M12+11*, M12+13
>> BDMJOB SETARRAY+2*
>> BDMP DEPPL+43*, DEPPL+44, DEPPL+45*, DEPPL+46, DEPPL+47, DEPPL+48, DEPPL+49, DEPPL+50, DEPPL+51, DEPPL+52
, DEPPL+53, DEPPL+54, DEPPL+55
BDMQUIT W+2!, W+4, W+5, W+8, EOJ+1!, HEADER+1*
BDMSBEG EOJ+1!, SETARRAY+40*, SETARRAY+41, SETARRAY+46*, SETARRAY+47, SETARRAY+54*, SETARRAY+55, M12+2*, M12+4, M12+5
, M12+6
>> BDMSCVD SETARRAY+4*
BDMSDAT M12+7!
BDMSDFN EOJ+1!, EP2~, EP21+1, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13
, SETARRAY+14, SETARRAY+17, SETARRAY+26, SETARRAY+30, SETARRAY+34, SETARRAY+35, SETARRAY+36, SETARRAY+41, SETARRAY+47, SETARRAY+51
, SETARRAY+55, M12+4, M12+5, M12+6, M12+8, M12+10, M12+15
BDMSED EOJ+1!
>> BDMSHDR BDMS9B1+5*, HEAD1+2
BDMSPAT BDMS9B1+4*, BDMS9B1+8!, EP+1, HEAD1+4, EP21+1*
BDMSTEX EOJ+1!, M12+7!
BDMSTOB EOJ+1!
BDMSUPI EOJ+1!
BDMSX SETARRAY+45!, SETARRAY+47*, SETARRAY+49, SETARRAY+50, SETARRAY+51
BDMTOB EOJ+1!
>> BDMTOBC SETARRAY+17*
BDMTOBN EOJ+1!
>> BDMTOBS SETARRAY+17*, SETARRAY+19, SETARRAY+20, SETARRAY+25
>> BDMV DEPPL+36*, DEPPL+42
BDMWV GETHWB+2~, LASTWT+1*
BDMX W+4*, W+6, EOJ+1!, M12+7!, HTN+11~, HTN+12*, HTN+13*, HTN+14*, HTNX+1, BP+3!
, BP+4*, BPX+2, GETHWB+1!
BDMX( BP+12*
BDMX("BMI" SETARRAY+15, GETHWB+3*, BMI+10*
BDMX("HT" SETARRAY+15, GETHWB+3*, LASTHT+4*, BMI+2, BMI+9
BDMX("HTD" SETARRAY+15, GETHWB+3*, LASTHT+4*, BMI+1
BDMX("WC" GETHWB+3*
BDMX("WCD" GETHWB+3*
BDMX("WT" SETARRAY+16, GETHWB+3*, LASTWT+1*, BMI+2, BMI+9
BDMX("WTD" SETARRAY+16, GETHWB+3*, LASTWT+1*, BMI+1, BMI+5
BDMX(1 SETARRAY+37, BP+15*
BDMX(2 SETARRAY+38
BDMX(3 SETARRAY+39, HTN+13
BDMY EOJ+1!, LASTHT+3~, LASTWT+1!, BMI+5!
BDMY(1 LASTHT+4, LASTWT+1, BMI+6
C EOJ+2!, S~, S+7
D DATE~, DATE+1, DATE+2, DATE+3, DATE1~, DATE1+2, DMPN+4~*, DMPN+7*, DMPN+8*, DMPN+9
, DMPN+10, ASPIRIN~, ASPIRIN+2*, ASPIRIN+9, DEPPL+40*
DIR HEADER+1!
DIR(0 HEADER+1*
DOO DOO+1~, DOO+4*
DOO( DOO+3*, DOO+5*, DOO+7
DOO(0 DOO+6, DOO+7
DT SETARRAY+6, SETARRAY+9, SETARRAY+12, SETARRAY+17, SETARRAY+26, SETARRAY+30, SETARRAY+35, SETARRAY+40, SETARRAY+46, SETARRAY+54
, SETARRAY+55, M12+2, M12+4, M12+5, M12+6, M12+8, M12+10
>> DTOUT HEADER+1
DUZ(2 HEAD1+4, SETARRAY+7, M12+15
E EOJ+2!, HTN+13*, LASTHT+4*, LASTWT+1*, BMI+5*, DEPPL+34*, DEPPL+40*
>> ED DEPPL+38*
EDATE DEPPL~, DEPPL+34, DEPPL+38, DEPPL+40
F EOJ+2!, S~, S+1*, S+5*
>> G ASPIRIN+10*, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, DEPPL+3*, DEPPL+6, DEPPL+11*, DEPPL+12*, DEPPL+14, DEPPL+15*
, DEPPL+18, DEPPL+29*, DEPPL+31
H EOJ+2!, BMI+9*
I HTN+4~*, HTN+8*, HTN+9*, HTN+10, DMPN+4~, DMPN+5*, DMPN+7, ASPIRIN+3~, ASPIRIN+9*, ASPIRIN+10
, DEPPL+3*, DEPPL+7*, DEPPL+8, DEPPL+11, DEPPL+15*, DEPPL+19*, DEPPL+20, DEPPL+21*, DEPPL+22, DEPPL+24*
, DEPPL+25, DEPPL+26, DEPPL+29
IO HEADER+1
IO(0 HEADER+1
IOF W+1, HEAD1+1
IOSL W+5
IOST HEADER+1
L EOJ+2!, S+3~, S+7*, DMPN+11~*, DMPN+12
>> M BP+7*, BP+8, BP+11, BP+12
N EOJ+2!, NOTREG+4*, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8
P EOJ+2!, DPCP~, DPCP+2, DPCP+4, HTN~, HTN+4, HTN+13, DMPN~, DMPN+1, DMPN+4
, BP~, BP+6, BP+7, GETHWB~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, BMI+1, BMI+5
, ASPIRIN~, ASPIRIN+1, ASPIRIN+9, ASPIRIN+10, DOO~, DOO+2, DOO+3, DOO+4, NOTREG~, NOTREG+1
, NOTREG+3, DEPPL~, DEPPL+6, DEPPL+18, DEPPL+34, DEPPL+40
R DPCP+1~, DPCP+2, DPCP+4*, DPCP+5*, DPCP+6
R("DESIGNATED PRIMARY PROVIDER" , DPCP+3
T EOJ+2!, S~, S+2*, S+7*, S+8, S+9, HTN+2~*, HTN+3, DMPN+2~*, DMPN+3
, BP+5*, BP+6, BP+7, ASPIRIN+5~*, ASPIRIN+8, ASPIRIN+11, DEPPL+5*, DEPPL+17*, DEPPL+26
T1 ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+13
T2 ASPIRIN+5~, ASPIRIN+7*, ASPIRIN+12
U HEAD1+4, SETARRAY+7, SETARRAY+19, SETARRAY+20, SETARRAY+32, SETARRAY+33, SETARRAY+37, SETARRAY+38, SETARRAY+39, M12+15
, DPCP+3, DPCP+4, S1+1, HTN+6, HTN+7, HTN+8, HTN+9, DMPN+5, DMPN+6, DMPN+8
, DMPN+11, DMPN+12, BP+8, BP+11, BP+12, LASTHT+4, LASTWT+1, ASPIRIN+10, ASPIRIN+15, ASPIRIN+16
, NOTREG+4, DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+11, DEPPL+12, DEPPL+19, DEPPL+21, DEPPL+27, DEPPL+29
, DEPPL+36, DEPPL+42, DEPPL+43, DEPPL+45
V BP+8*, BP+9, BP+10, ASPIRIN+3~, ASPIRIN+10*, ASPIRIN+11, ASPIRIN+12, ASPIRIN+13, DEPPL+40*, DEPPL+41
, DEPPL+42, DEPPL+43
W EOJ+2!, BMI+9*
X EOJ+2!, DATE1+1~, DATE1+2*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*, SETARRAY+10*, SETARRAY+11*
, SETARRAY+12*, SETARRAY+13*, SETARRAY+15*, SETARRAY+16*, SETARRAY+19*, SETARRAY+20*, SETARRAY+24*, SETARRAY+25*, SETARRAY+27*, SETARRAY+28*
, SETARRAY+29, SETARRAY+30*, SETARRAY+32, SETARRAY+33, SETARRAY+34*, SETARRAY+35*, SETARRAY+37*, SETARRAY+38*, SETARRAY+39*, SETARRAY+42*
, SETARRAY+43*, SETARRAY+44*, SETARRAY+48*, SETARRAY+49*, SETARRAY+50*, SETARRAY+51*, SETARRAY+53*, SETARRAY+56*, SETARRAY+57*, SETARRAY+58*
, SETARRAY+59*, M12+3*, M12+4*, M12+5*, M12+6*, M12+12*, M12+13*, M12+15*, S+3~, S+5*
, S+6*, S+8*, S+9*, S1+2, HTN+4~*, HTN+5, HTN+6, HTN+7, HTN+8, HTN+9
, HTN+13*, DMPN+4~*, DMPN+5, DMPN+6, DMPN+7, DMPN+8, DMPN+10*, DMPN+11, DMPN+12, LASTHT+4~
, LASTWT+1~, BMI+5~, DOO+1~, DOO+2*, DOO+3, DOO+4*, DOO+5, DOO+7*, NOTREG+2~, NOTREG+3*
, NOTREG+4, DEPPL+1~, DEPPL+3*, DEPPL+6*, DEPPL+7, DEPPL+9, DEPPL+10, DEPPL+12, DEPPL+15*, DEPPL+18*
, DEPPL+19, DEPPL+27, DEPPL+34*, DEPPL+37*, DEPPL+38*, DEPPL+43*
Y EOJ+2!, HEADER+1, DATE1+1~, DATE1+3, DATE1+4, SETARRAY+26*, SETARRAY+27, SETARRAY+28, SETARRAY+32*, SETARRAY+33*
, SETARRAY+55*, SETARRAY+57, SETARRAY+58, SETARRAY+59, S~, S+6, S+7, S+9, HTN+4~*, HTN+8*
, DMPN+12~*, DMPN+13, NOTREG+2~, NOTREG+3*, NOTREG+5*, NOTREG+6*, NOTREG+7*, NOTREG+8*, NOTREG+10, DEPPL+33*
, DEPPL+34, DEPPL+37, DEPPL+38
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All