Routine: APCHAAP1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component	3	^APCDALVR GETVISIT^APCDAPI4 PRINT^APCHAAP2
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$DOB)^AUPNPAT
Patient Care Component Reports	1	($$PRIMPOV,$$PRIMPROV)^APCLV

Package	Total	Caller Graph
iCare	1	BQIAAP

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
EN	;
ZIS	;
HEAD1	;
BROWSE	;
VISIT	;
REDZONE(P)	;EP - get last recorded red zone instructions
VISIT1	;
WRITE	; WRITE VISITS FOR SELECT
CTR(X,Y)	;EP - Center X in a field Y wide.
EXIT	;
VAST	;now create V Asthma entry
RESMED	;
YELZONE(P)	;EP - get last recorded yellow zone instructions
PRINT	;EP
SELPT	;
RELMED	;
SELECT	; SELECT EXISTING VISIT

External References

Name	Field # of Occurrence
^APCDALVR	VAST+10
GETVISIT^APCDAPI4	VISIT1+3
PRINT^APCHAAP2	PRINT+1
$$PRIMPOV^APCLV	WRITE+11
$$PRIMPROV^APCLV	WRITE+9
$$AGE^AUPNPAT	HEAD1+5
$$DOB^AUPNPAT	HEAD1+4
^DIC	SELPT+3
^DIR	RELMED+6, RELMED+13, RESMED+6, RESMED+13, SELECT+5, ZIS+1, HEAD+1
^XBDBQUE	ZIS+6, BROWSE+2
$$VAL^XBDIQ1	WRITE+10
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMTE^XLFDT	SELECT+1, HEAD1+2
$$REPEAT^XLFSTR	HEAD1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Print ASTHMA ACTION PLAN *"),!! Line Location: EN+2
Function Call: WRITE	Prompt: "This option will produce an Asthma Action Plan that",!,"can be given to the patient.",!! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: SELPT+1
Function Call: WRITE	Prompt: !,"Patient's chart number is ",$P(^(0),U,2),! Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0)) Line Location: SELPT+5
Function Call: WRITE	Prompt: ! Line Location: SELPT+5
Function Call: WRITE	Prompt: !!,"Please enter the RED ZONE Plan for this patient, including medication name(s)" Line Location: RELMED+2
Function Call: WRITE	Prompt: !,"and instructions.",! Line Location: RELMED+3
Function Call: WRITE	Prompt: !,"Red Zone Instructions currently recorded:",!?2,APCHRELM,! Line Location: RELMED+4
Function Call: WRITE	Prompt: !!,"Please enter the YELLOW ZONE Plan for this patient, including medication name(s)" Line Location: RESMED+2
Function Call: WRITE	Prompt: !,"and instructions.",! Line Location: RESMED+3
Function Call: WRITE	Prompt: !,"Red Zone Instructions currently recorded:",!?2,APCHRESM,! Line Location: RESMED+4
Function Call: WRITE	Prompt: !!,"These instuctions are already stored for today." Line Location: VISIT+6
Function Call: WRITE	Prompt: !!,"Error creating visit......." Line Location: VISIT1+5
Function Call: WRITE	Prompt: !!,"You must now select a visit to attach these instuctions to. Select the " Line Location: VISIT1+8
Function Call: WRITE	Prompt: !,"appropriate visit or create a new visit.",! Line Location: VISIT1+9
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(DFN,0),U)," has one or more VISITs on ",$$FMTE^XLFDT(DT),".",!,"If one of these is your visit, please select it",! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,APCHC," Create New Visit",! Line Location: SELECT+3
Function Call: WRITE	Prompt: !!,"Error creating V Asthma entry to store instuctions." Line Location: VAST+11
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,APCHC," TIME: ",APCHVLT,"LOC: ",APCHVLOC," TYPE: ",$P(APCHX,U,3)," CAT: ",$P(APCHX,U,7)," CLINIC: ",$S($P(APCHX,U,8)]"":$E($P(^DIC(40.7,$P(APCHX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+6
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(APCHX,U,22),0)),U) Line Location: WRITE+8
Function Call: WRITE	Prompt: !?3,"Provider on Visit: ",APCHTIU Line Location: WRITE+9
Function Call: WRITE	Prompt: !?3,"TIU Note: ",$$VAL^XBDIQ1(9000010.28,APCHTIU,.01)," AUTHOR: ",$$VAL^XBDIQ1(9000010.28,APCHTIU,1202) Line Location: WRITE+10
Function Call: WRITE	Prompt: !?3,"Primary POV: ",APCHTIU," Narrative: ",$E($$PRIMPOV^APCLV(APCHV1,"N"),1,40) Line Location: WRITE+11
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
Routine Call	DIC Line Location: SELPT+3
Routine Call	DIR Line Location: RELMED+6 RELMED+13 RESMED+6 RESMED+13 SELECT+5 ZIS+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	VISIT+12
^AUPNPAT - [#9000001]	SELPT+5
^AUPNVAST - [#9000010.41]	REDZONE+7, YELZONE+6
^AUPNVAST("AA"	REDZONE+5, REDZONE+6, YELZONE+4, YELZONE+5
^AUPNVNOT("AD"	WRITE+10
^AUPNVSIT - [#9000010]	SELECT+2
^AUTTLOC - [#9999999.06]	WRITE+4
^DIC(4 - [#4]	HEAD1+2
^DIC(40.7 - [#40.7]	WRITE+6
^DPT - [#2]	SELECT+1, HEAD1+3
^SC - [#44]	WRITE+8

Label References

Name	Line Occurrences
$$CTR	EN+2
$$REDZONE	RELMED+1, VISIT+4
$$YELZONE	RESMED+1, VISIT+5
BROWSE	ZIS+4
EXIT	SELPT+4, ZIS+2, ZIS+4, ZIS+7
RELMED	RESMED+7, RESMED+8
RESMED	RELMED+10, RELMED+11, RESMED+14, RESMED+15
SELPT	RELMED+7, RELMED+8, RELMED+14, RELMED+15, VISIT1+5, VAST+11
VAST	VISIT1+6
VISIT	RESMED+10, RESMED+11
VISIT1	SELECT+6, SELECT+7
WRITE	SELECT+2
ZIS	VISIT+1, VISIT+6

Naked Globals

Name	Field # of Occurrence
^(0	SELPT+5, WRITE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	VISIT1+1!, SELECT+9!, VAST+2!
APCDALVR("APCDAFLG"	VAST+11
APCDALVR("APCDATMP"	VAST+4*
APCDALVR("APCDPAT"	VAST+7*
APCDALVR("APCDTPRV"	VAST+5*
APCDALVR("APCDTRZ"	VAST+8*
APCDALVR("APCDTYZ"	VAST+9*
APCDALVR("APCDVSIT"	VAST+3*
>> APCDAVLR("APCDTEPR"	VAST+6*
>> APCDVSIT	VISIT1+6, SELECT+8, VAST+3
>> APCHA	SELECT+2*
>> APCHC	SELECT+2, SELECT+3, SELECT+5, SELECT+7, WRITE+1*, WRITE+6
>> APCHERR	VISIT1+4*, VISIT1+5
APCHIN	VISIT+8!, VISIT1+3, SELECT+9!
APCHIN("FORCE	ADD" , SELECT+6, SELECT+7
APCHIN("PAT"	VISIT+9*
APCHIN("SHOW	VISITS" , VISIT+15*
APCHIN("SITE"	VISIT+11*
APCHIN("SRV C	AT" , VISIT+13*
APCHIN("TIME	RANGE" , VISIT+16*
APCHIN("USR"	VISIT+14*
APCHIN("VISIT	DATE" , VISIT+10, TYPE" , VISIT+12
>> APCHOPT	ZIS+3*
>> APCHQ	HEAD+1*
>> APCHRELM	RELMED+1, RELMED+4, RELMED+5, RELMED+10, RELMED+16*, VISIT+4, VAST+8
>> APCHRESM	RESMED+1, RESMED+4, RESMED+5, RESMED+10, RESMED+16*, VISIT+5, VAST+9
>> APCHRZC	RELMED+9*, RELMED+10, RELMED+11, VISIT+1
>> APCHRZY	RESMED+9*, RESMED+10, RESMED+11, VISIT+1
APCHTIU	WRITE+9, WRITE+10, WRITE+11*, WRITE+12!
APCHV	VISIT1+2!, VISIT1+3
APCHV(	VISIT1+6, SELECT+2
APCHV(0	VISIT1+4, VISIT1+6
APCHV1	SELECT+2!*, WRITE+1, WRITE+9, WRITE+10, WRITE+11
APCHVLOC	WRITE+3, WRITE+4, WRITE+5*, WRITE+6, WRITE+12!
APCHVLT	WRITE+2*, WRITE+6, WRITE+12!
>> APCHX	SELECT+2*, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> APCHX1(	SELECT+8, WRITE+1*
>> APCHX11	SELECT+2*, WRITE+7
D	REDZONE+1~, REDZONE+3, REDZONE+5, REDZONE+6, REDZONE+7, YELZONE+1~, YELZONE+3, YELZONE+4, YELZONE+5, YELZONE+6
DA	RELMED+6!, RELMED+13!, RESMED+6!, RESMED+13!, SELECT+5!, ZIS+1!
>> DFN	SELPT+2, SELPT+5, RELMED+1, RESMED+1, VISIT+4, VISIT+5, VISIT+9, SELECT+1, VAST+7, HEAD1+3 , HEAD1+4, HEAD1+5
DIC	SELPT+3!*
DIC("A"	SELPT+3*
DIC(0	SELPT+3*
DIR	RELMED+6!, RELMED+13!, RESMED+6!, RESMED+13!, SELECT+4!, SELECT+5!, ZIS+1!, HEAD+1!
DIR("A"	RELMED+6, RELMED+13, RESMED+6, RESMED+13, SELECT+5, ZIS+1
DIR("B"	ZIS+1*
DIR(0	RELMED+5, RELMED+13, RESMED+5, RESMED+13, SELECT+5, ZIS+1, HEAD+1*
>> DIRUT	RELMED+7, RELMED+15, RESMED+7, RESMED+15, SELECT+6, ZIS+2
DT	VISIT+4, VISIT+5, VISIT+10, SELECT+1, HEAD1+2
>> DTOUT	HEAD+1
DUZ	VISIT+14, VAST+5, VAST+6
DUZ(2	SELPT+5, VISIT+11, VISIT+12, HEAD1+2
I	REDZONE+1~, REDZONE+6, REDZONE+7, YELZONE+1~, YELZONE+5, YELZONE+6
IO	HEAD+1
IO(0	HEAD+1
IOF	EN+1, HEAD1+1
IOM	CTR+1
IOST	HEAD+1
>> O	VISIT+3, VISIT+4, VISIT+6
P	REDZONE~, REDZONE+5, REDZONE+6, YELZONE~, YELZONE+4, YELZONE+5
R	VISIT+4, REDZONE+1~, REDZONE+2, REDZONE+5, REDZONE+7, REDZONE+10, YELZONE+1~, YELZONE+2, YELZONE+4, YELZONE+6* , YELZONE+9
S	REDZONE+1~, REDZONE+4, REDZONE+7, REDZONE+10, YELZONE+3, YELZONE+6, YELZONE+9
>> T	VISIT+3, VISIT+5, VISIT+6
U	SELPT+5, RELMED+1, RESMED+1, VISIT+4, VISIT+5, VISIT+12, VISIT1+4, VISIT1+6, SELECT+1, VAST+8 , VAST+9, WRITE+4, WRITE+6, WRITE+7, WRITE+8, REDZONE+7, REDZONE+10, YELZONE+6, YELZONE+9, HEAD1+2 , HEAD1+3
>> V	VISIT1+6*
X	RELMED+14, RESMED+14, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	SELPT+4, SELPT+5, RELMED+8, RELMED+9, RELMED+16, RESMED+8, RESMED+9, RESMED+16, VISIT+5*, SELECT+7 , SELECT+8, ZIS+3, ZIS+4, HEAD+1, CTR~, CTR+1

Customize PDF page

Package: Patient Care Component

Routine: APCHAAP1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: