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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSPMH3

Package: Health Summary Components

Routine: BHSPMH3


Information

BHSPMH3 ;IHS/MSC/MGH - Health Summary for Patient wellness handout ;30-Nov-2015 10:27;DU

Source Information

Source file <BHSPMH3.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Health Summary Components 2 MEDBLD^BHSPMH1A  $$LAB^BHSPMH2  
Kernel 2 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  $$LOW^XLFSTR  
Patient Care Component Reports 2 $$START1^APCLDF  $$PRIMPROV^APCLV  
IHS Patient 1 ($$AGE,$$HRN,$$SEX)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Immunization Tracking 1 IMMFORC^BIRPC  
Patient Care Component 1 (EN,PROBA)^APCHPALG  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^DIWP  

Entry Points

Name Comments DBIA/ICR reference
GETHWBBP(P) ;get last height, height date, weight, weight date, BMI and BP for patient P, return in BHSX("HT"),BHSX("HTD"),BHSX("WT"),BHSX("WTD"),BHSX("BMI")
ALLERG ;
MEAS ;
IMMUN ;
BMI ;
RXSTAT ; EP gets status of rx ... TAKEN FROM PSOFUNC ROUTINE
CKD ;Does patient have chronic kidney disease (CKD)?
LASTWC ;
S1 ;
LASTWT ;
S(Y,F,C,T) ;set up array
LASTBP ;
MEDS ;
CKDP ;
SETARRAY ;set up array containing dm care summary
DMX ;
DMDX(P) ;
HOLD ;Now get meds in Pharmacy yet to be completed
LASTHT ;
EP(BHSDFN) ;PEP - PASS DFN get back array of patient care summary
DATE(D) ;EP - convert to slashed date

External References

Name Field # of Occurrence
EN^APCHPALG ALLERG+7
PROBA^APCHPALG ALLERG+30
$$START1^APCLDF LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, DMDX+10
$$PRIMPROV^APCLV SETARRAY+5
$$ICD^ATXCHK DMDX+6
$$AGE^AUPNPAT MEAS+28, MEAS+29, MEAS+31, MEAS+32, BMI+1
$$HRN^AUPNPAT SETARRAY+4
$$SEX^AUPNPAT SETARRAY+9, CKD+5, CKD+6
MEDBLD^BHSPMH1A MEDS+15
$$LAB^BHSPMH2 CKD+4, CKD+8, CKD+11, CKD+14
IMMFORC^BIRPC IMMUN+4
^DIWP MEDS+21
$$VAL^XBDIQ1 SETARRAY+6, SETARRAY+7, SETARRAY+8
$$FMADD^XLFDT MEDS+14
$$FMDIFF^XLFDT MEAS+11, MEAS+28, MEAS+29
$$FMTE^XLFDT MEAS+10, MEAS+17, MEAS+27
$$LOW^XLFSTR SETARRAY+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SETARRAY+2
^APCCCTRL - [#9001000] SETARRAY+4, SETARRAY+10
^ATXAX("B" DMDX+3
^ATXLAB("B" CKD+4, CKD+8, CKD+11, CKD+14
^AUPNPROB - [#9000011] DMDX+6
^AUPNPROB("AC" DMDX+5
^AUPNVMED("AA" MEDS+15
^AUPNVMSR("AC" LASTHT+2
^AUPNVSIT("AC" SETARRAY+5, LASTHT+1
^AUTTLOC - [#9999999.06] SETARRAY+7
^DIC(4 - [#4] SETARRAY+4, SETARRAY+10
^DPT - [#2] SETARRAY+4, SETARRAY+9
^PS(52.5 - [#52.5] RXSTAT+4
^PS(55 - [#55] HOLD+4, HOLD+5
^PSDRUG - [#50] HOLD+7
^PSRX - [#52] RXSTAT+1, HOLD+6, HOLD+7
^TMP("BHSPHS" EP+2!, EP+3*, S1+1*, S1+2*
^UTILITY($J MEDS+21!, MEDS+22, MEDS+23, MEDS+24!

Label References

Name Line Occurrences
$$DMDX CKDP+6
CKD CKDP+2
DMX DMDX+10
GETHWBBP MEAS+3
HOLD MEDS+26
S SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, IMMUN+2, IMMUN+3
, IMMUN+5, IMMUN+14, IMMUN+15, MEAS+2, MEAS+6, MEAS+8, MEAS+9, MEAS+10, MEAS+11, MEAS+13
, MEAS+14, MEAS+17, MEAS+19, MEAS+21, MEAS+22, MEAS+23, MEAS+26, MEAS+27, MEAS+28, MEAS+29
, MEAS+31, MEAS+32, CKDP+8, CKDP+10, CKDP+11, CKDP+12, CKDP+13, ALLERG+1, ALLERG+2, ALLERG+3
, ALLERG+4, ALLERG+9, ALLERG+14, ALLERG+20, ALLERG+26, ALLERG+31, ALLERG+36, ALLERG+38, MEDS+3, MEDS+4
, MEDS+5, MEDS+6, MEDS+7, MEDS+8, MEDS+9, MEDS+10, MEDS+11, MEDS+16, MEDS+19, MEDS+22
, MEDS+23, MEDS+28, MEDS+29, MEDS+32
S1 S+5, S+7, S+10
SETARRAY EP+5

Naked Globals

Name Field # of Occurrence
^("P" RXSTAT+4
^(0 RXSTAT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% S+3~, S+8*, S+9*, S1+1*, S1+2, LASTHT+4*, LASTWT+1*, LASTBP+1*, LASTWC+1*, BMI+3*
, BMI+4*, BMI+5
APCHALG ALLERG+5~
APCHCKD CKDP+7, CKD+1~, CKD+2*, CKD+5*, CKD+6*, CKD+8, CKD+9*, CKD+11, CKD+12*, CKD+14
, CKD+15*
APCHDBP MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7
APCHENT ALLERG+5~, ALLERG+9
APCHENT("A" ALLERG+10, ALLERG+12, ALLERG+14, ALLERG+26
APCHENT("P" ALLERG+16, ALLERG+18, ALLERG+20
APCHENT("U" ALLERG+22, ALLERG+24
APCHFEET MEAS+1~, MEAS+5*, MEAS+6
APCHHBP MEAS+1~, CKDP+3*, CKDP+5*, CKDP+6*, CKDP+7*, CKDP+8, CKDP+9
APCHHM MEDS+2~, MEDS+27
APCHHM( MEDS+31, HOLD+8*
APCHHMED MEDS+2~, MEDS+30*, MEDS+31*, MEDS+32, HOLD+7*, HOLD+8
APCHI IMMUN+1~, IMMUN+10
APCHI( IMMUN+8*, IMMUN+11, IMMUN+12, IMMUN+15
APCHICTR IMMUN+1~, IMMUN+10*, IMMUN+11*, IMMUN+12, IMMUN+13
APCHIMDU IMMUN+1~, IMMUN+13*, IMMUN+14, IMMUN+15
APCHIMM IMMUN+1~, IMMUN+4, IMMUN+5, IMMUN+6
APCHIMMN IMMUN+1~, IMMUN+6*, IMMUN+8
APCHIMMT IMMUN+1~, IMMUN+6*, IMMUN+7*, IMMUN+8
APCHINCH MEAS+1~, MEAS+5*, MEAS+6
APCHLACD CKD+1~, CKD+11*
APCHLACV CKD+1~, CKD+11*, CKD+12
APCHLCRD CKD+1~, CKD+4*
APCHLCRV CKD+1~, CKD+4*, CKD+5, CKD+6
APCHLEGD CKD+1~, CKD+14*
APCHLEGV CKD+1~, CKD+14*, CKD+15
APCHLUPD MEDS+2~, CKD+8*
APCHLUPV CKD+1~, CKD+8*, CKD+9
APCHMFX MEDS+2~
APCHNMED HOLD+2~, HOLD+5*, HOLD+6, HOLD+7, HOLD+8
APCHSALD ALLERG+5~, ALLERG+6*, ALLERG+10*, ALLERG+11, ALLERG+12, ALLERG+14, ALLERG+16*, ALLERG+17, ALLERG+18, ALLERG+20
, ALLERG+22*, ALLERG+23, ALLERG+24, ALLERG+26, ALLERG+29*, ALLERG+32*
APCHSALG ALLERG+5~, ALLERG+6*, ALLERG+13*, ALLERG+19*, ALLERG+25*, ALLERG+38
APCHSALP ALLERG+5~, ALLERG+6*, ALLERG+12*, ALLERG+14, ALLERG+18*, ALLERG+20, ALLERG+24*, ALLERG+26, ALLERG+29*, ALLERG+33*
, ALLERG+34, ALLERG+36
APCHSAPR ALLERG+5~, ALLERG+29*, ALLERG+35*, ALLERG+38
APCHSBP MEAS+1~, MEAS+26*, MEAS+27, CKDP+4, CKDP+5, CKDP+6, CKDP+7
APCHSDLM MEDS+1~, MEDS+14*, MEDS+15
APCHSDT HOLD+2~, HOLD+3*, HOLD+4*, HOLD+5
APCHSIG MEDS+1~, MEDS+21*
APCHSIVD MEDS+1~, MEDS+15*
APCHSM MEDS+1~
APCHSM( MEDS+18, MEDS+21
APCHSMCT MEDS+1~, MEDS+15*, MEDS+16
APCHSMED MEDS+1~, MEDS+17*, MEDS+18*, MEDS+19, MEDS+21
APCHSMFX MEDS+2~
APCHSMX MEDS+1~, MEDS+15*
APCHSP ALLERG+5~
APCHSPT ALLERG+5~, ALLERG+31, ALLERG+32
APCHSPT( ALLERG+32, ALLERG+33, ALLERG+36
APCHSQ MEDS+1~, MEDS+15*
>> APCHSRXP RXSTAT+1, RXSTAT+2, RXSTAT+3
APCHSSGY MEDS+1~
BHSDFN EP~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, IMMUN+4, MEAS+3, MEAS+28
, MEAS+29, MEAS+31, MEAS+32, CKDP+6, MEDS+15, CKD+4, CKD+5, CKD+6, CKD+8, CKD+11
, CKD+14, HOLD+1, HOLD+4, HOLD+5
BHSPROV EP+4~, SETARRAY+5*, SETARRAY+6
BHSVSIT EP+4~, SETARRAY+5
BHSX MEAS+1~, GETHWBBP+1!, DMDX+8~, DMDX+9*, DMDX+10*, DMDX+11*, DMX+1
BHSX("BMI" MEAS+12, MEAS+13, MEAS+16, MEAS+17, MEAS+19, MEAS+20, GETHWBBP+2*, BMI+5*
BHSX("BP" MEAS+26, MEAS+27, MEAS+31, MEAS+32, CKDP+3, LASTBP+1*
BHSX("BPD" MEAS+27, MEAS+28, MEAS+29, LASTBP+1*
BHSX("HT" MEAS+5, MEAS+6, MEAS+9, GETHWBBP+2*, LASTHT+4*, LASTHT+5*, BMI+2, BMI+4
BHSX("HTD" GETHWBBP+2*, LASTHT+4*, BMI+1
BHSX("WC" GETHWBBP+2*, LASTWC+1*
BHSX("WCD" GETHWBBP+2*, LASTWC+1*
BHSX("WT" MEAS+8, MEAS+10, MEAS+11, GETHWBBP+2*, LASTWT+1*, BMI+2, BMI+4
BHSX("WTD" MEAS+10, MEAS+11, MEAS+12, MEAS+16, MEAS+17, GETHWBBP+2*, LASTWT+1*, BMI+1
BHSX(3 DMDX+10
BHSY LASTHT+3~, LASTWT+1!, LASTBP+1!, LASTWC+1!
BHSY(1 LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1
C S~, S+7
D DATE~, DATE+1, DATE+2
>> DIWL MEDS+21*
>> DIWR MEDS+21*
DT MEAS+11, MEAS+12, MEAS+16, MEAS+28, MEAS+29, MEDS+14, RXSTAT+5, HOLD+3
DUZ(2 SETARRAY+4, SETARRAY+7, SETARRAY+10
E MEAS+1~, LASTHT+4*, LASTWT+1*, LASTBP+1*, LASTWC+1*, DMDX+10*
F S~, S+1*, S+5*
>> GMTSDTM SETARRAY+3
H MEAS+1~, BMI+4*
I IMMUN+15*, MEDS+23*, DMDX+5~*, DMDX+6*, DMDX+7
J MEDS+2~, RXSTAT+3*, RXSTAT+4
L S+3~, S+7*
P GETHWBBP~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTBP+1, LASTWC+1, BMI+1, DMDX~, DMDX+5
, DMDX+10
>> RX0 RXSTAT+4, RXSTAT+6*
>> RX2 RXSTAT+5
>> ST RXSTAT+6*
>> ST0 RXSTAT+4*, RXSTAT+5*, RXSTAT+6
T CKD+4*, CKD+8*, CKD+11*, CKD+14*, S~, S+2*, S+7*, S+8, S+9, DMDX+2~
, DMDX+3*, DMDX+4, DMDX+6
U SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+10, IMMUN+6, MEDS+21, HOLD+7, S1+1, LASTHT+4, LASTWT+1
, LASTBP+1, LASTWC+1, DMDX+6
W MEAS+1~, BMI+4*
X EP+4~, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*, SETARRAY+10*, SETARRAY+11*
, IMMUN+1~, IMMUN+2*, IMMUN+3*, IMMUN+5*, IMMUN+14*, IMMUN+15*, MEAS+1~, MEAS+2*, MEAS+6*, MEAS+8*
, MEAS+9*, MEAS+10*, MEAS+11*, MEAS+13*, MEAS+14*, MEAS+17*, MEAS+19*, MEAS+21*, MEAS+22*, MEAS+23*
, MEAS+26*, MEAS+27*, MEAS+28*, MEAS+29*, MEAS+31*, MEAS+32*, CKDP+8*, CKDP+10*, CKDP+11*, CKDP+12*
, CKDP+13*, ALLERG+1*, ALLERG+2*, ALLERG+3*, ALLERG+4*, ALLERG+9*, ALLERG+14*, ALLERG+20*, ALLERG+26*, ALLERG+31*
, ALLERG+36*, ALLERG+38*, MEDS+1~, MEDS+3*, MEDS+4*, MEDS+5*, MEDS+6*, MEDS+7*, MEDS+8*, MEDS+9*
, MEDS+10*, MEDS+11*, MEDS+16*, MEDS+19*, MEDS+21*, MEDS+22*, MEDS+23*, MEDS+28*, MEDS+29*, MEDS+32*
, S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, LASTHT+4~, LASTWT+1~, LASTBP+1~, LASTWC+1~
, DMDX+5~*, DMDX+6, DMDX+10*
Y EP+4~, SETARRAY+7*, S~, S+6, S+7, S+9, DMDX+5~*, DMDX+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All