Routine: BHSAAP2

Package	Total	Call Graph
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Patient Care Component	2	$$DPCP^APCHPWH1 ($$GREEN,$$PBPF,$$YELLOW)^APCHSAST
Health Summary	1	CKP^GMTSUP
IHS Patient	1	($$AGE,$$DOB)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Health Summary Components	1	BHSAAP1

Name	Comments	DBIA/ICR reference
LAST1YRC	;EP
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
AAP	;
YELLOW(V,F)	;
PRINT	;EP
DISPMEDS	;EP
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
LAST1YRR	;EP
GREEN(V,F)	;
MEDS	;
CTR(X,Y)	;EP - Center X in a field Y wide.
REDH(V)	;
HEAD	;
RED(V,D,F)	;
RELMEDS	;
HEAD1	;
SR	;
EC(L,I)	;
EXIT	;
PHARM(L,I)	;
SC	;
CONTMEDS	;

Name	Field # of Occurrence
$$DPCP^APCHPWH1	PRINT+9
$$GREEN^APCHSAST	AAP+85
$$PBPF^APCHSAST	AAP+4
$$YELLOW^APCHSAST	AAP+53
$$AGE^AUPNPAT	PRINT+7, HEAD1+5
$$DOB^AUPNPAT	PRINT+6, HEAD1+4
^DIWP	AAP+38, AAP+64
CKP^GMTSUP	PRINT+3, AAP+2, AAP+8, AAP+15, AAP+19, AAP+23, AAP+28, AAP+33, AAP+42, AAP+47 , AAP+51, AAP+56, AAP+60, AAP+68, AAP+74, AAP+78, AAP+83, AAP+87, AAP+91, DISPMEDS+20
$$VAL^XBDIQ1	PRINT+9, PRINT+10, PRINT+11, PHARM+4, EC+3, EC+6
$$VALI^XBDIQ1	PRINT+11
$$FMADD^XLFDT	DISPMEDS+12, LAST1YRR+9, LAST1YRC+9
$$FMDIFF^XLFDT	DISPMEDS+11
$$FMTE^XLFDT	PRINT+4, PRINT+22, AAP+21, HEAD1+2, DISPMEDS+6, DISPMEDS+12, DISPMEDS+14
$$REPEAT^XLFSTR	PRINT+8, PRINT+14, AAP+25, AAP+49, AAP+81, HEAD1+6
$$STRIP^XLFSTR	AAP+11, AAP+13, AAP+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^DIC(4,DUZ(2),0),U),?53,"Today's Date: ",$$FMTE^XLFDT(DT),! Line Location: PRINT+4
Function Call: WRITE	Prompt: "Patient Name: ",$P(^DPT(DFN,0),U) Line Location: PRINT+5
Function Call: WRITE	Prompt: ?45,"Birth Date: ",$$DOB^AUPNPAT(DFN,"E") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?71,"Age: ",$$AGE^AUPNPAT(DFN),! Line Location: PRINT+7
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),! Line Location: PRINT+8
Function Call: WRITE	Prompt: "My Doctor: " Line Location: PRINT+9
Function Call: WRITE	Prompt: $P(^VA(200,X,0),U) Condition for execution: X Line Location: PRINT+9
Function Call: WRITE	Prompt: " Phone number: ",$$VAL^XBDIQ1(9999999.06,DUZ(2),.13),! Line Location: PRINT+9
Function Call: WRITE	Prompt: " Address: ",$$VAL^XBDIQ1(9999999.06,DUZ(2),.14)_" "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.15)_$S($$VAL^XBDIQ1(9999999.06,DUZ(2),.15)]"":", ",1:" ") Line Location: PRINT+10
Function Call: WRITE	Prompt: $P(^DIC(5,$$VALI^XBDIQ1(9999999.06,DUZ(2),.16),0),U,2) Condition for execution: $P(^AUTTLOC(DUZ(2),0),U,14) Line Location: PRINT+11
Function Call: WRITE	Prompt: " "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.17),! Line Location: PRINT+11
Function Call: WRITE	Prompt: "My Pharmacy: ",$$PHARM(DUZ(2),"N")," Phone number: ",$$PHARM(DUZ(2),"P"),! Line Location: PRINT+12
Function Call: WRITE	Prompt: "My Contact person: ",$$EC(DFN,"N")," Phone number: ",$$EC(DFN,"P"),! Line Location: PRINT+13
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),!! Line Location: PRINT+14
Function Call: WRITE	Prompt: "Asthma Triggers",! Line Location: PRINT+15
Function Call: WRITE	Prompt: ?5,X,! Line Location: PRINT+22
Function Call: WRITE	Prompt: "No Triggers identified.",! Line Location: PRINT+23
Function Call: WRITE	Prompt: !,"ASTHMA ACTION PLAN",!! Line Location: AAP+3
Function Call: WRITE	Prompt: ?3,"Your Personal Best Peak Flow: None documented; please discuss with your",!,"provider at your next clinic visit.",! Line Location: AAP+20
Function Call: WRITE	Prompt: ?3,"Your Personal Best Peak Flow: ",$P(BHSB,U,2)," liters/minute on ",$$FMTE^XLFDT($P(BHSB,U,1)),! Line Location: AAP+21
Function Call: WRITE	Prompt: !,"Follow these steps to control your asthma.",! Line Location: AAP+24
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+25
Function Call: WRITE	Prompt: !,"RED ZONE "_$S($P(BHSB,U)]"":"[49-0%]",1:"")_" - Need Medical Help!! ",! Line Location: AAP+26
Function Call: WRITE	Prompt: "Peak Flow less than ",$$RED($P(BHSB,U,2),.50,2)," liters/minute",!," OR",! Line Location: AAP+29
Function Call: WRITE	Prompt: "You are coughing, short of breath, and wheezing.",! Line Location: AAP+30
Function Call: WRITE	Prompt: "You have trouble walking or talking.",! Line Location: AAP+31
Function Call: WRITE	Prompt: "Your rescue medicine doesn't work.",! Line Location: AAP+34
Function Call: WRITE	Prompt: !,"________________________________________________________________",! Line Location: AAP+35
Function Call: WRITE	Prompt: !,"Ask someone to bring you to the Emergency Room, call 911, or call your doctor.",! Line Location: AAP+48
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+49
Function Call: WRITE	Prompt: "YELLOW ZONE "_$S($P(BHSB,U)]"":"[50-79%]",1:""),"- Asthma is Getting Worse ",! Line Location: AAP+52
Function Call: WRITE	Prompt: "Peak Flow is ",$$YELLOW^APCHSAST($P(BHSB,U,2))," liters/minute",!," OR",! Line Location: AAP+53
Function Call: WRITE	Prompt: "You are coughing or wheezing.",! Line Location: AAP+54
Function Call: WRITE	Prompt: "You are waking at night from your asthma.",! Line Location: AAP+57
Function Call: WRITE	Prompt: "You have some trouble doing usual activities.",! Line Location: AAP+58
Function Call: WRITE	Prompt: !,"________________________________________________________________",! Line Location: AAP+61
Function Call: WRITE	Prompt: !,"Keep taking your green zone medications. Check your peak flow readings ",!,"every few hours.",! Line Location: AAP+72
Function Call: WRITE	Prompt: !,"CALL YOUR DOCTOR or care provider IF:",! Line Location: AAP+75
Function Call: WRITE	Prompt: "1. You are in your yellow zone for more than 24-48 hours.",! Line Location: AAP+76
Function Call: WRITE	Prompt: "2. OR You need to use your reliever medication more than every 4 hours.",! Line Location: AAP+79
Function Call: WRITE	Prompt: "3. OR Your symptoms are getting worse.",! Line Location: AAP+80
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+81
Function Call: WRITE	Prompt: !,"GREEN ZONE "_$S($P(BHSB,U)]"":"[100-80%]",1:"")_" - You Are Doing Well ",! Line Location: AAP+84
Function Call: WRITE	Prompt: "Peak Flow is ",$$GREEN^APCHSAST($P(BHSB,U,2)),!," OR",! Line Location: AAP+85
Function Call: WRITE	Prompt: "You have no coughing, wheezing, or chest tightness during the day or night.",! Line Location: AAP+88
Function Call: WRITE	Prompt: "You sleep through the night without coughing, wheezing, or chest tightness.",! Line Location: AAP+89
Function Call: WRITE	Prompt: "You can do usual activities.",! Line Location: AAP+92
Function Call: WRITE	Prompt: !,"Take your long-term control medication every day.",! Line Location: AAP+93
Function Call: WRITE	Prompt: !!,"Active Controller Medications",! Line Location: CONTMEDS+1
Function Call: WRITE	Prompt: !,"Active Reliever Medications",! Line Location: CONTMEDS+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^DIC(4,DUZ(2),0),U),?53,"Today's Date: ",$$FMTE^XLFDT(DT),! Line Location: HEAD1+2
Function Call: WRITE	Prompt: "Patient Name: ",$P(^DPT(DFN,0),U) Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?45,"Birth Date: ",$$DOB^AUPNPAT(DFN,"E") Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?71,"Age: ",$$AGE^AUPNPAT(DFN),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),!! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"None documented; please discuss with your provider at your next",!,"clinic visit.",! Line Location: DISPMEDS+3
Function Call: WRITE	Prompt: ?1,X,! Line Location: DISPMEDS+21
Function Call: WRITE	Prompt: X,! Line Location: DISPMEDS+22
Function Call: WRITE	Prompt: X,! Line Location: DISPMEDS+23

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LAST1YRR+22, LAST1YRR+23, LAST1YRR+24, LAST1YRR+27, LAST1YRR+28, LAST1YRR+30, LAST1YRC+22, LAST1YRC+23, LAST1YRC+24, LAST1YRC+27 , LAST1YRC+28, LAST1YRC+29
^ATXAX("B"	LAST1YRR+3, LAST1YRR+4, LAST1YRR+5, LAST1YRR+6, LAST1YRR+7, LAST1YRR+8, LAST1YRC+3, LAST1YRC+4, LAST1YRC+5, LAST1YRC+6 , LAST1YRC+7, LAST1YRC+8
^AUPNVHF("AA"	PRINT+20, PRINT+21
^AUPNVMED - [#9000010.14]	DISPMEDS+5, DISPMEDS+15, LAST1YRR+12, LAST1YRR+13, LAST1YRR+16, LAST1YRC+12, LAST1YRC+13, LAST1YRC+16
^AUPNVMED("AA"	LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
^AUPNVSIT - [#9000010]	DISPMEDS+6, DISPMEDS+10
^AUTTHF - [#9999999.64]	PRINT+22
^AUTTHF("AC"	PRINT+19
^AUTTHF("B"	PRINT+17
^AUTTLOC - [#9999999.06]	PRINT+11
^DIC(4 - [#4]	PRINT+4, HEAD1+2, PHARM+3
^DIC(5 - [#5]	PRINT+11
^DPT - [#2]	PRINT+5, HEAD1+3
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	DISPMEDS+8
^PS(59 - [#59]	PHARM+2, PHARM+5, PHARM+6
^PSDRUG - [#50]	DISPMEDS+13, LAST1YRR+25, LAST1YRR+29, LAST1YRC+25
^PSRX - [#52]	REF+2, LAST1YRR+19, LAST1YRC+19
^PSRX("APCC"	DISPMEDS+7, LAST1YRR+17, LAST1YRC+17
^UTILITY($J	AAP+38!, AAP+40, AAP+44!, AAP+64!, AAP+66, AAP+70!
^VA(200 - [#200]	PRINT+9

Name	Line Occurrences
$$EC	PRINT+13
$$GREEN	AAP+16
$$PHARM	PRINT+12
$$RED	AAP+29
$$REDH	AAP+10
$$YELLOW	AAP+12
AAP	PRINT+18
DISPMEDS	CONTMEDS+4, CONTMEDS+8
LAST1YRC	RELMEDS+3
LAST1YRR	RELMEDS+2
REF	DISPMEDS+18
SC	LAST1YRC+22, LAST1YRC+23, LAST1YRC+24, LAST1YRC+27, LAST1YRC+28, LAST1YRC+29
SIG	DISPMEDS+17
SR	LAST1YRR+22, LAST1YRR+23, LAST1YRR+24, LAST1YRR+27, LAST1YRR+28, LAST1YRR+30

Name	Field # of Occurrence
^(	DISPMEDS+7
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PHARM+1~, PHARM+2, PHARM+3, PHARM+4, PHARM+5, PHARM+6, EC+1~, EC+3, EC+4
APCHSX	PRINT+16!
BHSB	PRINT+1~, AAP+4*, AAP+5, AAP+10, AAP+12, AAP+16, AAP+20, AAP+21, AAP+26, AAP+29 , AAP+52, AAP+53, AAP+84, AAP+85
BHSC	PRINT+1~, PRINT+17*, PRINT+18, PRINT+19
BHSCONT	RELMEDS+1!, CONTMEDS+3, LAST1YRC+2, SC+1
BHSCONT(	SC+1*
BHSCRN	PRINT+1~, DISPMEDS+1~, DISPMEDS+8*
BHSD	PRINT+1~, DISPMEDS+6*, DISPMEDS+21
BHSDC	PRINT+1~, DISPMEDS+1~, DISPMEDS+7*, DISPMEDS+14, DISPMEDS+16
BHSDTM	PRINT+1~, DISPMEDS+1~, DISPMEDS+10*, DISPMEDS+11, DISPMEDS+12
BHSDYS	PRINT+1~, DISPMEDS+1~, DISPMEDS+7*, DISPMEDS+12, DISPMEDS+21
BHSEX	DISPMEDS+1~
BHSEXP	PRINT+1~, DISPMEDS+10, DISPMEDS+12, DISPMEDS+14, DISPMEDS+16, DISPMEDS+21
BHSF	PRINT+1~, PRINT+19*, PRINT+20, PRINT+21, PRINT+22
BHSG	PRINT+1~, PRINT+16, PRINT+22, PRINT+23
BHSL	RELMEDS+1!, CONTMEDS+2!, CONTMEDS+3, CONTMEDS+6!, CONTMEDS+7
BHSL(	DISPMEDS+4, DISPMEDS+5
BHSL(0	DISPMEDS+3
BHSMED	DISPMEDS+1~, DISPMEDS+13*, DISPMEDS+21
BHSMFX	DISPMEDS+1~, DISPMEDS+7*, DISPMEDS+13
BHSORTS	DISPMEDS+2~, DISPMEDS+15*, DISPMEDS+16
BHSQ	PRINT+1~, PRINT+2*
BHSQTY	DISPMEDS+1~, DISPMEDS+9*, DISPMEDS+21
BHSREF	PRINT+1~, DISPMEDS+18, REF+1, REF+2, REF+3*
BHSREL	RELMEDS+1!, CONTMEDS+7, LAST1YRR+2, SR+1
BHSREL(	SR+1*
>> BHSRELM	AAP+35, AAP+36, AAP+38
>> BHSRESM	AAP+61, AAP+62, AAP+64
BHSRFL	DISPMEDS+2~, REF+2*, REF+3
BHSRX	DISPMEDS+2~, DISPMEDS+7*, DISPMEDS+8, REF+1, REF+2
BHSRXN	PRINT+1~, LAST1YRR+17, LAST1YRR+18, LAST1YRR+19, LAST1YRC+17, LAST1YRC+18, LAST1YRC+19
BHSSIG	PRINT+1~, DISPMEDS+1~, DISPMEDS+9, DISPMEDS+17, DISPMEDS+18*, DISPMEDS+22, DISPMEDS+23, SIG+1, SIG+2
BHSSP	PRINT+1~, SIG+1*, SIG+2
BHSSSGY	PRINT+1~, DISPMEDS+17, SIG+1, SIG+3
BHSSTAT	DISPMEDS+2~, LAST1YRR+19, LAST1YRR+20, LAST1YRC+19, LAST1YRC+20
C	LAST1YRR+1~, LAST1YRR+29*, LAST1YRR+30, LAST1YRC+1~
D	PRINT+21, PRINT+22, RED~, RED+3, RED+4, DISPMEDS+1~, DISPMEDS+4, DISPMEDS+5, LAST1YRR+1~, LAST1YRR+10 , LAST1YRR+11, SR+1, LAST1YRC+1~, LAST1YRC+10*, LAST1YRC+11, SC+1
>> DFN	PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+13, PRINT+20, PRINT+21, AAP+4, HEAD1+3, HEAD1+4 , HEAD1+5, DISPMEDS+8, LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
>> DIWL	AAP+38, AAP+64
>> DIWR	AAP+38, AAP+64
DT	PRINT+4, HEAD1+2, DISPMEDS+11, LAST1YRR+9, LAST1YRR+16, LAST1YRC+9, LAST1YRC+16
DUZ(2	PRINT+4, PRINT+9, PRINT+10, PRINT+11, PRINT+12, HEAD1+2
E	DISPMEDS+1~, DISPMEDS+5, DISPMEDS+7, DISPMEDS+15, LAST1YRR+1~, LAST1YRR+9, LAST1YRR+10, LAST1YRC+1~, LAST1YRC+9*, LAST1YRC+10
F	AAP+40, AAP+66, EC+2, EC+3, EC+5, EC+6, GREEN~, GREEN+4, YELLOW~, YELLOW+6 , YELLOW+7, RED~, RED+6
G	AAP+9~, AAP+16, AAP+17, LAST1YRR+1~, LAST1YRR+18, LAST1YRR+20, LAST1YRR+21, LAST1YRC+1~, LAST1YRC+18, LAST1YRC+20* , LAST1YRC+21
>> GMTSQIT	PRINT+3, AAP+2, AAP+8, AAP+15, AAP+19, AAP+23, AAP+28, AAP+33, AAP+36, AAP+40 , AAP+42, AAP+47, AAP+51, AAP+56, AAP+60, AAP+62, AAP+66, AAP+68, AAP+74, AAP+78 , AAP+83, AAP+87, AAP+91, DISPMEDS+20
I	PHARM~, PHARM+3, PHARM+4, PHARM+5, PHARM+6, EC~, EC+2, EC+5
IOF	HEAD1+1
IOM	CTR+1
L	PHARM~, PHARM+2, PHARM+3, PHARM+4, EC~, EC+3, EC+6
M	LAST1YRR+1~, LAST1YRR+11, LAST1YRR+12, LAST1YRR+13, LAST1YRR+16, LAST1YRR+17, SR+1, LAST1YRC+1~, LAST1YRC+11, LAST1YRC+12 , LAST1YRC+13, LAST1YRC+16, LAST1YRC+17, SC+1
N	DISPMEDS+1~, DISPMEDS+5, DISPMEDS+6, DISPMEDS+7, DISPMEDS+9, DISPMEDS+10, DISPMEDS+13, LAST1YRR+1~, LAST1YRR+25, LAST1YRR+26 , LAST1YRR+27, LAST1YRR+28, LAST1YRC+1~, LAST1YRC+25*, LAST1YRC+26, LAST1YRC+27, LAST1YRC+28, LAST1YRC+29
P	GREEN+1~, GREEN+3, GREEN+4, GREEN+5, YELLOW+1~, YELLOW+3, YELLOW+4, YELLOW+6, YELLOW+7, RED+1~ , RED+4, RED+5, RED+6, RED+7, REDH+1~, REDH+2, REDH+3
P1	GREEN+1~, GREEN+3, YELLOW+1~, YELLOW+5, YELLOW+6, YELLOW+7, RED+1~
R	AAP+9~, AAP+10*, AAP+11
T	LAST1YRR+1~, LAST1YRC+1~
T(1	LAST1YRR+3, LAST1YRR+22, LAST1YRC+3, LAST1YRC+22
T(2	LAST1YRR+4, LAST1YRR+27, LAST1YRC+4, LAST1YRC+27
T(3	LAST1YRR+5, LAST1YRR+23, LAST1YRC+5, LAST1YRC+23
T(4	LAST1YRR+6, LAST1YRR+28, LAST1YRC+6, LAST1YRC+28
T(5	LAST1YRR+7, LAST1YRR+24, LAST1YRC+7, LAST1YRC+24
T(6	LAST1YRR+8, LAST1YRR+30, LAST1YRC+8, LAST1YRC+29
U	PRINT+4, PRINT+5, PRINT+9, PRINT+11, PRINT+22, AAP+5, AAP+10, AAP+12, AAP+16, AAP+20 , AAP+21, AAP+26, AAP+29, AAP+52, AAP+53, AAP+84, AAP+85, HEAD1+2, HEAD1+3, PHARM+3 , PHARM+5, PHARM+6, DISPMEDS+6, DISPMEDS+7, DISPMEDS+9, DISPMEDS+10, DISPMEDS+13, REF+2, LAST1YRR+13, LAST1YRR+16 , LAST1YRR+19, LAST1YRR+25, LAST1YRR+29, LAST1YRC+13, LAST1YRC+16, LAST1YRC+19, LAST1YRC+25
V	GREEN~, GREEN+2, GREEN+3, GREEN+4, GREEN+5, YELLOW~, YELLOW+2, YELLOW+3, YELLOW+5, RED~ , RED+2, RED+4, REDH~, REDH+2
X	PRINT+9, PRINT+22, AAP+38, AAP+40, AAP+43, AAP+64, AAP+66, AAP+69, CTR~, CTR+1 , DISPMEDS+1~, DISPMEDS+11, DISPMEDS+12, DISPMEDS+21, DISPMEDS+22, DISPMEDS+23, SIG+1, SIG+2, SIG+3
Y	AAP+9~, AAP+12, AAP+13, CTR~, CTR+1, DISPMEDS+12, DISPMEDS+14, DISPMEDS+16, SIG+2, LAST1YRR+1~ , LAST1YRR+13, LAST1YRR+14, LAST1YRR+22, LAST1YRR+23, LAST1YRR+24, LAST1YRR+25, LAST1YRR+29, LAST1YRC+1~, LAST1YRC+13, LAST1YRC+14 , LAST1YRC+22, LAST1YRC+23, LAST1YRC+24, LAST1YRC+25

Customize PDF page

Package: Health Summary Components

Routine: BHSAAP2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: