Routine: APCHAAP2

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

Package	Total	Caller Graph
Patient Care Component	1	APCHAAP1

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+7
$$GREEN^APCHSAST	AAP+69
$$PBPF^APCHSAST	AAP+3
$$YELLOW^APCHSAST	AAP+43
$$AGE^AUPNPAT	PRINT+5, HEAD1+5
$$DOB^AUPNPAT	PRINT+4, HEAD1+4
^DIR	HEAD+1
^DIWP	AAP+31, AAP+52
$$VAL^XBDIQ1	PRINT+7, PRINT+8, PRINT+9, PHARM+4, EC+3, EC+6
$$VALI^XBDIQ1	PRINT+9
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	DISPMEDS+10, LAST1YRR+9, LAST1YRC+9
$$FMDIFF^XLFDT	DISPMEDS+9
$$FMTE^XLFDT	PRINT+2, PRINT+20, AAP+17, HEAD1+2, DISPMEDS+4, DISPMEDS+10, DISPMEDS+12
$$REPEAT^XLFSTR	PRINT+6, PRINT+12, AAP+20, AAP+40, AAP+66, HEAD1+6
$$STRIP^XLFSTR	AAP+9, AAP+11, AAP+14

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+2
Function Call: WRITE	Prompt: "Patient Name: ",$P(^DPT(DFN,0),U) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?45,"Birth Date: ",$$DOB^AUPNPAT(DFN,"E") Line Location: PRINT+4
Function Call: WRITE	Prompt: ?71,"Age: ",$$AGE^AUPNPAT(DFN),! Line Location: PRINT+5
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),! Line Location: PRINT+6
Function Call: WRITE	Prompt: "My Doctor: " Line Location: PRINT+7
Function Call: WRITE	Prompt: $P(^VA(200,X,0),U) Condition for execution: X Line Location: PRINT+7
Function Call: WRITE	Prompt: " Phone number: ",$$VAL^XBDIQ1(9999999.06,DUZ(2),.13),! Line Location: PRINT+7
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+8
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+9
Function Call: WRITE	Prompt: " "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.17),! Line Location: PRINT+9
Function Call: WRITE	Prompt: "My Pharmacy: ",$$PHARM(DUZ(2),"N")," Phone number: ",$$PHARM(DUZ(2),"P"),! Line Location: PRINT+10
Function Call: WRITE	Prompt: "My Contact person: ",$$EC(DFN,"N")," Phone number: ",$$EC(DFN,"P"),! Line Location: PRINT+11
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),!! Line Location: PRINT+12
Function Call: WRITE	Prompt: "Asthma Triggers",! Line Location: PRINT+13
Function Call: WRITE	Prompt: ?5,X,! Line Location: PRINT+20
Function Call: WRITE	Prompt: "No Triggers identified.",! Line Location: PRINT+21
Function Call: WRITE	Prompt: !,"ASTHMA ACTION PLAN",!! Line Location: AAP+2
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+16
Function Call: WRITE	Prompt: ?3,"Your Personal Best Peak Flow: ",$P(APCHB,U,2)," liters/minute on ",$$FMTE^XLFDT($P(APCHB,U,1)),! Line Location: AAP+17
Function Call: WRITE	Prompt: !,"Follow these steps to control your asthma.",! Line Location: AAP+19
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+20
Function Call: WRITE	Prompt: !,"RED ZONE "_$S($P(APCHB,U)]"":"[49-0%]",1:"")_" - Need Medical Help!! ",! Line Location: AAP+21
Function Call: WRITE	Prompt: "Peak Flow less than ",$$RED($P(APCHB,U,2),.50,2)," liters/minute",!," OR",! Line Location: AAP+23
Function Call: WRITE	Prompt: "You are coughing, short of breath, and wheezing.",! Line Location: AAP+24
Function Call: WRITE	Prompt: "You have trouble walking or talking.",! Line Location: AAP+25
Function Call: WRITE	Prompt: "Your rescue medicine doesn't work.",! Line Location: AAP+27
Function Call: WRITE	Prompt: !,"________________________________________________________________",! Line Location: AAP+28
Function Call: WRITE	Prompt: !,"Ask someone to bring you to the Emergency Room, call 911, or call your doctor.",! Line Location: AAP+39
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+40
Function Call: WRITE	Prompt: "YELLOW ZONE "_$S($P(APCHB,U)]"":"[50-79%]",1:""),"- Asthma is Getting Worse ",! Line Location: AAP+42
Function Call: WRITE	Prompt: "Peak Flow is ",$$YELLOW^APCHSAST($P(APCHB,U,2))," liters/minute",!," OR",! Line Location: AAP+43
Function Call: WRITE	Prompt: "You are coughing or wheezing.",! Line Location: AAP+44
Function Call: WRITE	Prompt: "You are waking at night from your asthma.",! Line Location: AAP+46
Function Call: WRITE	Prompt: "You have some trouble doing usual activities.",! Line Location: AAP+47
Function Call: WRITE	Prompt: !,"________________________________________________________________",! Line Location: AAP+49
Function Call: WRITE	Prompt: !,"Keep taking your green zone medications. Check your peak flow readings ",!,"every few hours.",! Line Location: AAP+59
Function Call: WRITE	Prompt: !,"CALL YOUR DOCTOR or care provider IF:",! Line Location: AAP+61
Function Call: WRITE	Prompt: "1. You are in your yellow zone for more than 24-48 hours.",! Line Location: AAP+62
Function Call: WRITE	Prompt: "2. OR You need to use your reliever medication more than every 4 hours.",! Line Location: AAP+64
Function Call: WRITE	Prompt: "3. OR Your symptoms are getting worse.",! Line Location: AAP+65
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79),! Line Location: AAP+66
Function Call: WRITE	Prompt: !,"GREEN ZONE "_$S($P(APCHB,U)]"":"[100-80%]",1:"")_" - You Are Doing Well ",! Line Location: AAP+68
Function Call: WRITE	Prompt: "Peak Flow is ",$$GREEN^APCHSAST($P(APCHB,U,2)),!," OR",! Line Location: AAP+69
Function Call: WRITE	Prompt: "You have no coughing, wheezing, or chest tightness during the day or night.",! Line Location: AAP+71
Function Call: WRITE	Prompt: "You sleep through the night without coughing, wheezing, or chest tightness.",! Line Location: AAP+72
Function Call: WRITE	Prompt: "You can do usual activities.",! Line Location: AAP+74
Function Call: WRITE	Prompt: !,"Take your long-term control medication every day.",! Line Location: AAP+75
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+1
Function Call: WRITE	Prompt: ?1,X,! Line Location: DISPMEDS+18
Function Call: WRITE	Prompt: X,! Line Location: DISPMEDS+19
Function Call: WRITE	Prompt: X,! Line Location: DISPMEDS+20
Routine Call	DIR Line Location: HEAD+1

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+18, PRINT+19
^AUPNVMED - [#9000010.14]	DISPMEDS+3, DISPMEDS+13, 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+4, DISPMEDS+8
^AUTTHF - [#9999999.64]	PRINT+20
^AUTTHF("AC"	PRINT+17
^AUTTHF("B"	PRINT+15
^AUTTLOC - [#9999999.06]	PRINT+9
^DIC(4 - [#4]	PRINT+2, HEAD1+2, PHARM+3
^DIC(5 - [#5]	PRINT+9
^DPT - [#2]	PRINT+3, HEAD1+3
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	DISPMEDS+6
^PS(59 - [#59]	PHARM+2, PHARM+5, PHARM+6
^PSDRUG - [#50]	DISPMEDS+11, LAST1YRR+25, LAST1YRR+29, LAST1YRC+25
^PSRX - [#52]	REF+2, LAST1YRR+19, LAST1YRC+19
^PSRX("APCC"	DISPMEDS+5, LAST1YRR+17, LAST1YRC+17
^UTILITY($J	AAP+31!, AAP+33, AAP+36!, AAP+52!, AAP+54, AAP+57!
^VA(200 - [#200]	PRINT+7

Name	Line Occurrences
$$EC	PRINT+11
$$GREEN	AAP+13
$$PHARM	PRINT+10
$$RED	AAP+23
$$REDH	AAP+8
$$YELLOW	AAP+10
AAP	PRINT+16
DISPMEDS	CONTMEDS+4, CONTMEDS+8
HEAD	AAP+1, AAP+6, AAP+12, AAP+15, AAP+18, AAP+22, AAP+26, AAP+34, AAP+38, AAP+41 , AAP+45, AAP+48, AAP+55, AAP+60, AAP+63, AAP+67, AAP+70, AAP+73, DISPMEDS+17
LAST1YRC	RELMEDS+3
LAST1YRR	RELMEDS+2
REF	DISPMEDS+16
SC	LAST1YRC+22, LAST1YRC+23, LAST1YRC+24, LAST1YRC+27, LAST1YRC+28, LAST1YRC+29
SIG	DISPMEDS+15
SR	LAST1YRR+22, LAST1YRR+23, LAST1YRR+24, LAST1YRR+27, LAST1YRR+28, LAST1YRR+30

Name	Field # of Occurrence
^(	DISPMEDS+5
^(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
>> APCHB	AAP+3*, AAP+4, AAP+8, AAP+10, AAP+13, AAP+16, AAP+17, AAP+21, AAP+23, AAP+42 , AAP+43, AAP+68, AAP+69
>> APCHC	PRINT+15*, PRINT+16, PRINT+17
APCHCONT	RELMEDS+1!, CONTMEDS+3, LAST1YRC+2, SC+1
APCHCONT(	SC+1*
>> APCHCRN	DISPMEDS+6*
>> APCHD	DISPMEDS+4*, DISPMEDS+18
>> APCHDC	DISPMEDS+5*, DISPMEDS+12, DISPMEDS+14
>> APCHDTM	DISPMEDS+8*, DISPMEDS+9, DISPMEDS+10
>> APCHDYS	DISPMEDS+5*, DISPMEDS+10, DISPMEDS+18
>> APCHEXP	DISPMEDS+8, DISPMEDS+10, DISPMEDS+12, DISPMEDS+14, DISPMEDS+18
>> APCHF	PRINT+17*, PRINT+18, PRINT+19, PRINT+20
>> APCHG	PRINT+14, PRINT+20, PRINT+21
APCHL	RELMEDS+1!, CONTMEDS+2!, CONTMEDS+3, CONTMEDS+6!, CONTMEDS+7
APCHL(	DISPMEDS+2, DISPMEDS+3
APCHL(0	DISPMEDS+1
>> APCHMED	DISPMEDS+11*, DISPMEDS+18
>> APCHMFX	DISPMEDS+5*, DISPMEDS+11
>> APCHORTS	DISPMEDS+13*, DISPMEDS+14
>> APCHQ	PRINT+1, AAP+1, AAP+6, AAP+12, AAP+15, AAP+18, AAP+22, AAP+26, AAP+29, AAP+33 , AAP+34, AAP+38, AAP+41, AAP+45, AAP+48, AAP+50, AAP+54, AAP+55, AAP+60, AAP+63 , AAP+67, AAP+70, AAP+73, HEAD+1, DISPMEDS+17
>> APCHQTY	DISPMEDS+7*, DISPMEDS+18
>> APCHREF	DISPMEDS+16, REF+1, REF+2, REF+3*
APCHREL	RELMEDS+1!, CONTMEDS+7, LAST1YRR+2, SR+1
APCHREL(	SR+1*
>> APCHRELM	AAP+28, AAP+29, AAP+31
>> APCHRESM	AAP+49, AAP+50, AAP+52
>> APCHRFL	REF+2*, REF+3
>> APCHRX	DISPMEDS+5*, DISPMEDS+6, REF+1, REF+2
>> APCHRXN	LAST1YRR+17, LAST1YRR+18, LAST1YRR+19, LAST1YRC+17, LAST1YRC+18, LAST1YRC+19
>> APCHSIG	DISPMEDS+7, DISPMEDS+15, DISPMEDS+16*, DISPMEDS+19, DISPMEDS+20, SIG+1, SIG+2
>> APCHSP	SIG+1*, SIG+2
>> APCHSSGY	DISPMEDS+15, SIG+1, SIG+3
>> APCHSTAT	LAST1YRR+19, LAST1YRR+20, LAST1YRC+19, LAST1YRC+20
APCHSX	PRINT+14!
C	LAST1YRR+1~, LAST1YRR+29*, LAST1YRR+30, LAST1YRC+1~
D	PRINT+19, PRINT+20, RED~, RED+3, RED+4, DISPMEDS+2, DISPMEDS+3, LAST1YRR+1~, LAST1YRR+10, LAST1YRR+11 , SR+1, LAST1YRC+1~, LAST1YRC+10*, LAST1YRC+11, SC+1
>> DFN	PRINT+3, PRINT+4, PRINT+5, PRINT+7, PRINT+11, PRINT+18, PRINT+19, AAP+3, HEAD1+3, HEAD1+4 , HEAD1+5, DISPMEDS+6, LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DIWL	AAP+31, AAP+52
>> DIWR	AAP+31, AAP+52
DT	PRINT+2, HEAD1+2, DISPMEDS+9, LAST1YRR+9, LAST1YRR+16, LAST1YRC+9, LAST1YRC+16
>> DTOUT	HEAD+1
DUZ(2	PRINT+2, PRINT+7, PRINT+8, PRINT+9, PRINT+10, HEAD1+2
E	DISPMEDS+3, DISPMEDS+5, DISPMEDS+13, LAST1YRR+1~, LAST1YRR+9, LAST1YRR+10, LAST1YRC+1~, LAST1YRC+9*, LAST1YRC+10
F	AAP+33, AAP+54, EC+2, EC+3, EC+5, EC+6, GREEN~, GREEN+4, YELLOW~, YELLOW+6 , YELLOW+7, RED~, RED+6
G	AAP+7~, AAP+13, AAP+14, LAST1YRR+1~, LAST1YRR+18, LAST1YRR+20, LAST1YRR+21, LAST1YRC+1~, LAST1YRC+18, LAST1YRC+20* , LAST1YRC+21
I	PHARM~, PHARM+3, PHARM+4, PHARM+5, PHARM+6, EC~, EC+2, EC+5
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	AAP+1, AAP+6, AAP+12, AAP+15, AAP+18, AAP+22, AAP+26, AAP+34, AAP+38, AAP+41 , AAP+45, AAP+48, AAP+55, AAP+60, AAP+63, AAP+67, AAP+70, AAP+73, DISPMEDS+17
IOST	HEAD+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+3, DISPMEDS+4, DISPMEDS+5, DISPMEDS+7, DISPMEDS+8, DISPMEDS+11, 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+7~, AAP+8*, AAP+9
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+2, PRINT+3, PRINT+7, PRINT+9, PRINT+20, AAP+4, AAP+8, AAP+10, AAP+13, AAP+16 , AAP+17, AAP+21, AAP+23, AAP+42, AAP+43, AAP+68, AAP+69, HEAD1+2, HEAD1+3, PHARM+3 , PHARM+5, PHARM+6, DISPMEDS+4, DISPMEDS+5, DISPMEDS+7, DISPMEDS+8, DISPMEDS+11, 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+7, PRINT+20, AAP+31, AAP+33, AAP+35, AAP+52, AAP+54, AAP+56, CTR~, CTR+1 , DISPMEDS+9, DISPMEDS+10, DISPMEDS+18, DISPMEDS+19, DISPMEDS+20, SIG+1, SIG+2, SIG+3
Y	AAP+7~, AAP+10, AAP+11, HEAD+1, CTR~, CTR+1, DISPMEDS+10, DISPMEDS+12, DISPMEDS+14, 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: Patient Care Component

Routine: APCHAAP2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: