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

Package: Health Summary Components

Routine: BHSDMPRE


Information

BHSDMPRE ;IHS/CIA/MGH - Health Summary for Pre-Diabetic Supplement ;30-Nov-2015 10:25;DU

Source Information

Source file <BHSDMPRE.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Diabetes Registry 3 EDUC^BDMS9B2  ($$DIETV,TOBACCO)^BDMS9B3  ($$ACE,$$ASPREF)^BDMS9B5  
Health Summary Components 3 EDUCREF^BHSDM3  MORE^BHSDMPR1  ($$LASTITEM,$$PLCODE,$$PLTAX)^BHSMU  
Patient Care Component Reports 2 $$START1^APCLDF  $$CLINIC^APCLV  
Health Summary 1 CKP^GMTSUP  
IHS Patient 1 ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Taxonomy 1 $$ICD^ATXAPI  

Entry Points

Name Comments DBIA/ICR reference
MS(P) ;
EOJ ;
S1 ;
IGT(P) ;
EP2(BHSDFN) ;PEP - PASS DFN get back array of patient care summary
SETARRAY ;set up array containing dm care summary
BPX ;
LASTWC ;
LASTHT ;
BMI ;
CMSMAN(P,F) ;EP - return date/dx of dm in register
LASTWT ;
GETHWB(P,EDATE) ;get last height, height date, weight, weight date and BMI for patient P, return in APCHX("HT"),APCHX("HTD"),APCHX("WT"),APCHX("WTD"),APCHX("BMI")
S(Y,F,C,T) ;set up array
W ;write out array
EP ;EP - called from component
HTNX ;
BP(P) ;last 3 BPs - NON ER
IFG(P) ;
M12 ;
HTN(P) ;
ASPIRIN(P,D) ;

External References

Name Field # of Occurrence
$$START1^APCLDF MS+6, IGT+6, IFG+6, HTN+10, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1
$$CLINIC^APCLV BP+10
$$ICD^ATXAPI HTN+6
$$AGE^AUPNPAT SETARRAY+5
$$DOB^AUPNPAT SETARRAY+5, M12+3
$$HRN^AUPNPAT SETARRAY+4, M12+3
$$SEX^AUPNPAT SETARRAY+5
EDUC^BDMS9B2 SETARRAY+39
$$DIETV^BDMS9B3 SETARRAY+37
TOBACCO^BDMS9B3 SETARRAY+33
$$ACE^BDMS9B5 SETARRAY+47
$$ASPREF^BDMS9B5 SETARRAY+50
EDUCREF^BHSDM3 SETARRAY+42
MORE^BHSDMPR1 M12+2
$$LASTITEM^BHSMU EP+5
$$PLCODE^BHSMU MS+2, IGT+2, IFG+2
$$PLTAX^BHSMU EP+4
CKP^GMTSUP EP+7, W+4
$$VAL^XBDIQ1 SETARRAY+15, ASPIRIN+13, ASPIRIN+14
$$FMADD^XLFDT EP+6, SETARRAY+38, SETARRAY+46, SETARRAY+49
$$FMTE^XLFDT SETARRAY+3, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, LASTHT+5, LASTHT+7
, LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, BMI+2, BMI+3, BMI+4
, ASPIRIN+13, ASPIRIN+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SETARRAY+2
^ACM(41 - [#9002241] CMSMAN+4, CMSMAN+5
^ACM(41.1 - [#9002241.1] CMSMAN+3
^ATXAX - [#9002226] ASPIRIN+10, ASPIRIN+11
^ATXAX("B" HTN+2, ASPIRIN+5, ASPIRIN+6
^AUPNPROB - [#9000011] MS+3, MS+4, IGT+3, IGT+4, IFG+3, IFG+4, HTN+6
^AUPNPROB("AC" HTN+4
^AUPNVMED - [#9000010.14] ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
^AUPNVMED("AA" ASPIRIN+8, ASPIRIN+9
^AUPNVMSR - [#9000010.01] BP+7, BP+9, BP+11
^AUPNVMSR("AA" BP+5, BP+6
^AUPNVMSR("AC" LASTHT+2
^AUPNVSIT - [#9000010] BP+8, ASPIRIN+13, ASPIRIN+14
^AUPNVSIT("AC" LASTHT+1
^AUTTMSR("B" BP+4
^DPT - [#2] SETARRAY+4, M12+3
^TMP("BHS" W+3, W+5, EP2+2!, EP2+3*, S1+1*, S1+2*
^VA(200 - [#200] CMSMAN+5

Label References

Name Line Occurrences
$$ASPIRIN SETARRAY+49
$$BP SETARRAY+23
$$CMSMAN SETARRAY+14
$$HTN SETARRAY+45
$$IFG SETARRAY+7
$$IGT SETARRAY+9
$$MS SETARRAY+11
EOJ W+8
EP2 EP+8
GETHWB SETARRAY+17
HTNX HTN+10
S SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15
, SETARRAY+16, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+25, SETARRAY+27, SETARRAY+29, SETARRAY+34
, SETARRAY+35, SETARRAY+36, SETARRAY+37, SETARRAY+40, SETARRAY+42, SETARRAY+43, SETARRAY+45, SETARRAY+48, SETARRAY+49, SETARRAY+50
, M12+3
S1 S+4, S+6, S+9
SETARRAY EP2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!, SETARRAY+40*, SETARRAY+41!, SETARRAY+43*, SETARRAY+44!, SETARRAY+47*, SETARRAY+48, S+3~, S+7*, S+8*
, S1+1*, S1+2, MS+1~, MS+6*, IGT+1~, IGT+6*, IFG+1~, IFG+6*, LASTHT+4*, LASTWT+1*
, LASTWC+1*, BMI+1*, ASPIRIN+3~, ASPIRIN+4*, ASPIRIN+8, ASPIRIN+9, ASPIRIN+10*, ASPIRIN+11*, ASPIRIN+12, ASPIRIN+13*
, ASPIRIN+14*
APCHC BP+1~, BP+3*, BP+5, BP+6, BP+11*, BPX+1!
APCHD BP+1~, BP+3*, BP+5*, BP+6, BP+11, BPX+1!
APCHHT EOJ+1!
APCHIEN EOJ+1!
APCHQUIT W+2!, W+3, W+7, EOJ+1!
APCHTOB EOJ+1!
APCHTOBN EOJ+1!
APCHX W+3*, W+5, EOJ+1!, SETARRAY+39!, SETARRAY+41!, SETARRAY+42, SETARRAY+44!, HTN+8~, HTN+9*, HTN+10*
, HTN+11*, HTNX+1, BP+2!, BP+3*, BPX+2, GETHWB+1!
APCHX( SETARRAY+40, SETARRAY+43, BP+11*, GETHWB+2*
APCHX(1 SETARRAY+18, SETARRAY+19, SETARRAY+22, SETARRAY+24, BP+14*, LASTHT+5*, LASTHT+6*, LASTWT+2*, LASTWC+2*, BMI+2*
APCHX(2 SETARRAY+20, SETARRAY+26, LASTHT+7*, LASTHT+8*, LASTWT+3*, LASTWC+3*, BMI+3*
APCHX(3 SETARRAY+21, SETARRAY+28, HTN+10, LASTHT+9*, LASTHT+10*, LASTWT+4*, LASTWC+4*, BMI+4*
APCHY EOJ+1!, SETARRAY+41!, SETARRAY+44!, MS+1~, MS+6!, IGT+1~, IGT+6!, IFG+1~, IFG+6!, LASTHT+3~
, LASTWT+1!, LASTWC+1!, BMI+1!
APCHY(1 MS+7, IGT+7, IFG+7, LASTHT+5, LASTWT+2, LASTWC+2, BMI+2
APCHY(2 LASTHT+7, LASTWT+3, LASTWC+3, BMI+3
APCHY(3 LASTHT+9, LASTWT+4, LASTWC+4, BMI+4
B EOJ+2!, SETARRAY+23*
BDMSBEG SETARRAY+31~, SETARRAY+38*
BDMSDFN EOJ+1!, SETARRAY+31~, SETARRAY+32*
BDMTOBC SETARRAY+31~, SETARRAY+35
BDMTOBS SETARRAY+31~, SETARRAY+34
BHSBEG EOJ+1!, SETARRAY+38*, SETARRAY+46*, SETARRAY+47, SETARRAY+49*
BHSDD EOJ+1!
BHSDFN EOJ+1!, EP2~, SETARRAY+4, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+14, SETARRAY+15, SETARRAY+17
, SETARRAY+23, SETARRAY+32, SETARRAY+37, SETARRAY+45, SETARRAY+47, SETARRAY+49, SETARRAY+50, M12+3
BHSED EOJ+1!
BHSINT EOJ+1!
BHSPAT EP+1~, EP+2*, EP+3, EP+4, EP+5, EP+8
BHSTEX EOJ+1!
BHSTOB EOJ+1!
BHSUPI EOJ+1!
BHSWD EOJ+1!
BHSX SETARRAY+49!
BSMSBEG EOJ+1!
C EOJ+2!, S~, S+6
D CMSMAN+3~*, CMSMAN+4*, CMSMAN+5*, CMSMAN+6, MS+3*, MS+4*, MS+5, IGT+3*, IGT+4*, IGT+5
, IFG+3*, IFG+4*, IFG+5, ASPIRIN~, ASPIRIN+2*, ASPIRIN+8
D1 CMSMAN+3~
>> DFN EP+2
DT EP+6, SETARRAY+3, SETARRAY+17, SETARRAY+38, SETARRAY+46, SETARRAY+49
DUZ(2 SETARRAY+4, M12+3
E EOJ+2!, MS+6*, IGT+6*, IFG+6*, HTN+10*, LASTHT+4*, LASTWT+1*, LASTWC+1*, BMI+1*
EDATE GETHWB~
F EOJ+2!, S~, S+1*, S+4*, CMSMAN~, CMSMAN+1*
G CMSMAN+3~, CMSMAN+4*, ASPIRIN+9*, ASPIRIN+10, ASPIRIN+11
>> GMTSQIT EP+7, W+4, W+7*
H EOJ+2!
I MS+1~, IGT+1~, IFG+1~, HTN+4~*, HTN+6*, HTN+7, ASPIRIN+3~, ASPIRIN+8*, ASPIRIN+9
IOF W+1
L EOJ+2!, S+6*
M EOJ+2!, BP+6*, BP+7, BP+9, BP+11
N EOJ+2!, CMSMAN+3~*
P EOJ+2!, CMSMAN~, CMSMAN+2, CMSMAN+4, MS~, MS+2, MS+6, IGT~, IGT+2, IGT+6
, IFG~, IFG+2, IFG+6, HTN~, HTN+4, HTN+10, BP~, BP+5, BP+6, GETHWB~
, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1, ASPIRIN~, ASPIRIN+1, ASPIRIN+8, ASPIRIN+9
R CMSMAN+3~*, CMSMAN+4
T EOJ+2!, S~, S+2*, S+6*, S+7, S+8, HTN+1~, HTN+2*, HTN+3, HTN+6
, BP+4*, BP+5, BP+6, ASPIRIN+5~*, ASPIRIN+7, ASPIRIN+10
T1 ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+11
U SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, SETARRAY+34, SETARRAY+35, M12+3
, S1+1, CMSMAN+4, CMSMAN+5, MS+3, MS+4, MS+5, MS+7, IGT+3, IGT+4, IGT+5
, IGT+7, IFG+3, IFG+4, IFG+5, IFG+7, HTN+6, BP+7, BP+9, BP+11, LASTHT+5
, LASTHT+7, LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, BMI+2, BMI+3
, BMI+4, ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
V BP+7*, BP+8, BP+10, ASPIRIN+3~, ASPIRIN+9*, ASPIRIN+10, ASPIRIN+11
W EOJ+2!
X EP+5*, EP+6, EOJ+2!, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8
, SETARRAY+9*, SETARRAY+10, SETARRAY+11*, SETARRAY+12, SETARRAY+13*, SETARRAY+14*, SETARRAY+15*, SETARRAY+16*, SETARRAY+18*, SETARRAY+19*
, SETARRAY+20*, SETARRAY+21*, SETARRAY+22*, SETARRAY+24*, SETARRAY+25, SETARRAY+26*, SETARRAY+27, SETARRAY+28*, SETARRAY+29, SETARRAY+34*
, SETARRAY+35*, SETARRAY+36*, SETARRAY+37*, SETARRAY+40*, SETARRAY+42*, SETARRAY+43*, SETARRAY+45*, SETARRAY+48*, SETARRAY+49*, SETARRAY+50*
, M12+3*, S+3~, S+4*, S+5*, S+7*, S+8*, S1+2, CMSMAN+3~, CMSMAN+4*, CMSMAN+5
, MS+1~, MS+2*, MS+3, MS+4, IGT+1~, IGT+2*, IGT+3, IGT+4, IFG+1~, IFG+2*
, IFG+3, IFG+4, HTN+4~*, HTN+6, HTN+10*, GETHWB+2*, LASTHT+4~, LASTWT+1~, LASTWC+1~, BMI+1~
Y EOJ+2!, SETARRAY+7*, SETARRAY+9*, SETARRAY+11*, S~, S+5, S+6, S+8, CMSMAN+3~, CMSMAN+4*
, MS+1~, MS+2, MS+3*, MS+4*, MS+5*, IGT+1~, IGT+2, IGT+3*, IGT+4*, IGT+5*
, IFG+1~, IFG+2, IFG+3*, IFG+4*, IFG+5*, HTN+4~*, HTN+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All