Routine: APCDPL1

Information

APCDPL1 ; IHS/CMI/LAB - problem list update ;

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Patient Care Component	8	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 ($$ANYACTP,CPS,PLUDE)^APCDAPRB DEDT^APCDEA2 (GATHER,HDR)^APCDPL $$GETNUM^APCDPL1 (MN1,NO1,RNO1)^APCDPL2
VA Fileman	4	^DIC ^DIE ($$GET1,EN)^DIQ ^DIR
IHS VA Utilities	2	^XBFMK (DIQ,VIEWR)^XBLM
Registration	2	TERM^VALM0 FULL^VALM1
IHS Changes To Scheduling	1	^BSDAPI4
IHS Patient	1	^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$PRIMPROV,$$VD)^APCLV

Package	Total	Caller Graph
Mental Health Social Services	3	AMHAPRB AMHGSBPL AMHPCCL1
Patient Care Component	2	APCDFH1 APCDPL1

Entry Points

Name	Comments	DBIA/ICR reference
DIE	;
PLRDE1	;EP - called from xbnew
FS	;EP -FACE SHEET
NAPADD(APCDV,APCDP,APCDD,APCDPRV,RETVAL)	;PEP - called to update Problem list update fields
ACT1	;D DIE
DD	;EP - called from protocol detail
NAP	;EP - called from protocol
RESOLVE	;EP - called from protocol
DEL	;EP - delete prob
ACT	;EP - called from protocol
NAPDE1P	;GET PROVIDER
NAPV	;have a visit so create a v updated/reviewed for provider APCDPRV if one does
GETDX	;
PLRADD(APCDV,APCDP,APCDD,APCDPRV,RETVAL)	;PEP - called to update Problem list update fields
KDIE	;
HS	;EP - health summary
BSD	;
INACT	;EP - called from protocol to inactivate an active problem
PAUSE	;EP
AN	;EP - add a note
ADD	;EP - add prob
NAPDE1	;EP - called from xbnew
GETNUM(P)	;EP - get problem number
PLRDE1P	;GET PROVIDER
PLRV	;have a visit so create a v updated/reviewed for provider APCDPRV if one does
RNO	;EP - remove a note
PLR	;EP - called from protocol
EDIT	;EP - edit prob
MN	;EP - modify a note
EVSIT	;EP - get/create event visit
GETPROB	;get record
EXIT	;
ACTE	;

External References

Name	Field # of Occurrence
^APCDALV	EVSIT+11
^APCDALVR	NAPV+22, PLRV+21
GETVISIT^APCDAPI4	BSD+13
$$ANYACTP^APCDAPRB	NAP+3
CPS^APCDAPRB	ACT1+2
PLUDE^APCDAPRB	EDIT+20, DEL+18, ACT1+11, INACT+14, RESOLVE+13
DEDT^APCDEA2	BSD+18, EVSIT+13
GATHER^APCDPL	EXIT+3
HDR^APCDPL	EXIT+5
$$GETNUM^APCDPL1	EDIT+8
MN1^APCDPL2	MN+4
NO1^APCDPL2	AN+4
RNO1^APCDPL2	RNO+4
$$PRIMPROV^APCLV	NAPDE1P+2, PLRDE1P+2
$$VD^APCLV	NAPDE1+5, PLRDE1+5
^AUPNPAT	HS+10
^BSDAPI4	EVSIT+1
^DIC	HS+5
^DIE	DIE+1, ADD+7, EDIT+16, DEL+12, ACT1+4
$$GET1^DIQ	EDIT+13, EDIT+15, GETDX+2, GETDX+3
EN^DIQ	DEL+6
^DIR	GETPROB+2, EDIT+13, GETDX+3, DEL+9, PAUSE+1, NAPDE1+1, NAPDE1+6, NAPDE1P+2, PLRDE1+1, PLRDE1+6 , PLRDE1P+2
TERM^VALM0	EXIT+1
FULL^VALM1	GETPROB+7, ADD+1, HS+1, FS+1, NAP+1, PLR+3
^XBFMK	DEL+19
DIQ^XBLM	DD+4
VIEWR^XBLM	HS+9, FS+3
$$FMTE^XLFDT	NAPDE1+5, PLRDE1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Problem Seleted" Line Location: GETPROB+3
Function Call: WRITE	Prompt: !,"Not a valid PCC PROBLEM." Line Location: GETPROB+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: ADD+6
Function Call: WRITE	Prompt: !,"Adding a new problem for ",$P(^DPT(APCDPLPT,0),U),".",!! Line Location: ADD+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: EDIT+8
Function Call: WRITE	Prompt: !!,"Editing Problem Number: ",$$GETNUM^APCDPL1(APCDPIEN),! Line Location: EDIT+8
Function Call: WRITE	Prompt: !!,"Deleting the following Problem from ",$P($P(^DPT(APCDPLPT,0),U),",",2)," ",$P($P(^(0),U),","),"'s Problem List.",! Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to delete a problem without",!,"entering a reason for the deletion." Line Location: DEL+8
Function Call: WRITE	Prompt: ! Line Location: DEL+9
Function Call: WRITE	Prompt: !,"okay, not deleted." Line Location: DEL+10
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: DEL+11
Function Call: WRITE	Prompt: ! Line Location: DEL+15
Function Call: WRITE	Prompt: !!,"That problem is already INACTIVE!!",! Line Location: INACT+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: INACT+7
Function Call: WRITE	Prompt: !,"Inactivating Problem ... " Line Location: INACT+7
Function Call: WRITE	Prompt: !,"No action taken." Line Location: NAPDE1+2
Function Call: WRITE	Prompt: !,"No action taken." Line Location: NAPDE1+3
Function Call: WRITE	Prompt: !!,"This is required." Line Location: NAPDE1+7
Function Call: WRITE	Prompt: !!,"Future Dates not allowed.",! Line Location: NAPDE1+8
Function Call: WRITE	Prompt: !!,"This is required." Line Location: NAPDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(APCDRET,U,2) Line Location: NAPDE1P+6
Function Call: WRITE	Prompt: !,"No action taken." Line Location: PLRDE1+2
Function Call: WRITE	Prompt: !,"No action taken." Line Location: PLRDE1+3
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLRDE1+7
Function Call: WRITE	Prompt: !!,"Future Dates not allowed.",! Line Location: PLRDE1+8
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLRDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(APCDRET,U,2) Line Location: PLRDE1P+6
Function Call: WRITE	Prompt: !!,"That problem is already RESOLVED!!",! Line Location: RESOLVE+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: RESOLVE+7
Function Call: WRITE	Prompt: !,"Resolving Problem ... " Line Location: RESOLVE+7
Routine Call	DIE Line Location: DIE+1 ADD+7 EDIT+16 DEL+12 ACT1+4
Routine Call	DIC Line Location: HS+5
Routine Call	DIR Line Location: GETPROB+2 EDIT+13 GETDX+3 DEL+9 PAUSE+1 NAPDE1+1 NAPDE1+6 NAPDE1P+2 PLRDE1+1 PLRDE1+6 PLRDE1P+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls, GET1^DIQ
^APCHSCTL - [#9001015]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	HS+2, BSD+6, EVSIT+9
^APCHSCTL - [#9001015]	HS+2, HS+3
^AUPNPAT - [#9000001]	NAPADD+20, PLRADD+20
^AUPNPROB - [#9000011]	GETPROB+6, EDIT+9, ACT1+1, ACT1+5, INACT+5, GETNUM+4, GETNUM+5, GETNUM+6, RESOLVE+5
^AUPNVRUP - [#9000010.54]	NAPV+8, NAPV+9, NAPV+10, PLRV+8, PLRV+9, PLRV+10
^AUPNVRUP("AD"	NAPV+6, PLRV+6
^AUTTCRA("C"	NAPV+3, PLRV+3
^AUTTLOC - [#9999999.06]	GETNUM+6
^DISV(	HS+3
^DPT - [#2]	ADD+6, DEL+5, HS+8, FS+2
^TMP($J	GETPROB+5

Label References

Name	Line Occurrences
ACT1	EDIT+9
ACTE	ACT1+5
BSD	EVSIT+2
DIE	EDIT+17, INACT+8, RESOLVE+8
EVSIT	NAPADD+29, PLRADD+29
EXIT	ADD+8, EDIT+3, EDIT+14, EDIT+21, DEL+3, DEL+10, DEL+11, DEL+19, AN+3, AN+5 , MN+3, MN+5, RNO+3, RNO+5, ACT+4, ACTE+3, INACT+4, INACT+5, INACT+15, HS+6 , HS+12, DD+3, DD+5, FS+5, NAP+6, NAPDE1+2, NAPDE1+3, NAPDE1P+7, PLRDE1+2, PLRDE1+3 , PLRDE1P+7, RESOLVE+4, RESOLVE+5, RESOLVE+14
GETPROB	EDIT+2, DEL+2, AN+2, MN+2, RNO+2, ACT+3, INACT+3, DD+2, RESOLVE+3
KDIE	ADD+7, EXIT+7
NAPADD	NAPDE1P+5
NAPDE1	NAPDE1+7, NAPDE1+8
NAPDE1P	NAPDE1P+3
NAPV	NAPADD+27, NAPADD+29
PAUSE	EDIT+3, DEL+3, DEL+10, DEL+11, DEL+19, AN+3, MN+3, MN+5, RNO+3, RNO+5 , ACT+4, INACT+4, INACT+5, HS+6, DD+3, NAP+6, NAPDE1+2, NAPDE1+3, NAPDE1P+7, PLRDE1+2 , PLRDE1+3, PLRDE1P+7, RESOLVE+4, RESOLVE+5
PLRADD	PLRDE1P+5
PLRDE1	PLRDE1+7, PLRDE1+8
PLRDE1P	PLRDE1P+3
PLRV	NAPV+25, PLRADD+27, PLRADD+29

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	HS+3
^(0	DEL+5, HS+2, HS+3, GETNUM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KDIE+1!
AGDENT	FS+4!
AGMVDF	FS+4!
AGOPT	FS+4!
AMCHDAYS	HS+11!
AMCHDOB	HS+11!
APCDAF	EXIT+6!
APCDALVR	NAPV+15~, NAPV+24!, BSD+10!, EVSIT+4!, EVSIT+14!, PLRV+14~, PLRV+23!
APCDALVR("APCDAFLG"	NAPV+23, PLRV+22
APCDALVR("APCDATMP"	NAPV+18, PLRV+17
APCDALVR("APCDAUTO"	EVSIT+5*
APCDALVR("APCDCAT"	EVSIT+7*
APCDALVR("APCDDATE"	EVSIT+10*
APCDALVR("APCDLOC"	EVSIT+8*
APCDALVR("APCDPAT"	NAPV+16, EVSIT+6, PLRV+15*
APCDALVR("APCDTCDT"	NAPV+20, PLRV+19
APCDALVR("APCDTCLA"	NAPV+19, PLRV+18
APCDALVR("APCDTEPR"	NAPV+21, PLRV+20
APCDALVR("APCDTYPE"	EVSIT+9*
APCDALVR("APCDVSIT"	NAPV+17, EVSIT+12, EVSIT+13, PLRV+16
APCDBSDV	BSD+1~, BSD+11!, BSD+13
APCDBSDV(	BSD+18
APCDBSDV(0	BSD+15, BSD+17
APCDD	NAPDE1+9, NAPDE1P+5, NAPADD~, NAPADD+21, NAPADD+22, NAPV+20, BSD+4, EVSIT+10, PLRDE1+9, PLRDE1P+5 , PLRADD~, PLRADD+21, PLRADD+22, PLRV+19
APCDDATE	ADD+5, EDIT+6, DEL+14, ACT+2, ACT1+8, INACT+2, INACT+11, NAP+9, NAPDE1+5, BSD+12~ , PLR+2, PLR+7, PLRDE1+5, RESOLVE+2, RESOLVE+10
APCDF	EXIT+6!
APCDHDR	HS+8, HS+9, HS+11!, FS+2, FS+3, FS+4!
APCDIAEP	EDIT+11*, ACT1+4, ACT1+5, ACTE+2!
APCDIAIEP	EDIT+1~
APCDIN	BSD+1~, BSD+2!, BSD+13
APCDIN("PAT"	BSD+3*
APCDIN("SITE"	BSD+5*
APCDIN("SRV C	AT" , BSD+7*
APCDIN("TIME	RANGE" , BSD+8*
APCDIN("USR"	BSD+9*
APCDIN("VISIT	DATE" , BSD+4, TYPE" , BSD+6
>> APCDLINE	EXIT+4
>> APCDLOC	ADD+4, EDIT+5, ACT1+7, NAP+8, PLR+6*
APCDNDT	ADD+5, EDIT+6, DEL+14, ACT+1~, ACT+2, ACT1+8, INACT+1~, INACT+2, INACT+11, NAP+9 , PLR+1~, PLR+2, PLR+7, RESOLVE+1~, RESOLVE+2, RESOLVE+10
APCDP	GETPROB+4, GETPROB+5, GETPROB+6!, EXIT+6!, NAPADD~, NAPADD+18, NAPADD+19, NAPADD+20, NAPV+16, BSD+3 , EVSIT+6, PLRADD~, PLRADD+18*, PLRADD+19, PLRADD+20, PLRV+15
APCDP0	EXIT+6!
APCDPAT	ADD+3, EDIT+1~, EDIT+4, DEL+1~, DEL+13, ACT+1~, ACT1+6, INACT+1~, INACT+9, NAP+7 , NAPDE1P+5, BSD+12~, PLR+1~, PLR+5, PLRDE1P+5, RESOLVE+1~, RESOLVE+9
APCDPIEN	DIE+1, GETPROB+1, GETPROB+5, GETPROB+6, EDIT+1~, EDIT+3, EDIT+8, EDIT+9, EDIT+13, EDIT+15 , EDIT+16, EDIT+18, DEL+1~, DEL+3, DEL+6, DEL+12, DEL+17, AN+1~, AN+3, MN+1~ , MN+3, RNO+1~, RNO+3, ACT+1~, ACT+4, ACT1+1, ACT1+4, ACT1+5, ACT1+10, INACT+1~ , INACT+4, INACT+5, INACT+13, DD+1~, DD+3, DD+4, EXIT+6!, NAPADD+16, PLR+1~, PLRADD+16* , RESOLVE+1~, RESOLVE+4, RESOLVE+5, RESOLVE+12
>> APCDPLPT	ADD+2, ADD+3, ADD+6, ADD+7, EDIT+4, DEL+5, DEL+13, ACT1+6, INACT+9, HS+7 , HS+8, HS+10, FS+2, NAP+2, NAP+3, NAP+7, PLR+4, PLR+5, RESOLVE+9
>> APCDPLV	EDIT+19, DEL+16, ACT1+9, INACT+12, NAPDE1+5, NAPDE1P+2, NAPDE1P+5, PLRDE1+5, PLRDE1P+2, PLRDE1P+5 , RESOLVE+11
APCDPRB	EXIT+6!
APCDPRMT	EXIT+6!
APCDPRV	NAPDE1P+4, NAPDE1P+5, NAPADD~, NAPADD+23, NAPADD+24, NAPV+10, NAPV+21, PLRDE1P+4, PLRDE1P+5, PLRADD~ , PLRADD+23, PLRADD+24, PLRV+10, PLRV+20
>> APCDRCNT	GETPROB+2
>> APCDRET	NAPDE1P+5, NAPDE1P+6, PLRDE1P+5, PLRDE1P+6
>> APCDTDA	GETDX+2, GETDX+3
APCDTEMP	DIE+1, EDIT+7, INACT+6, EXIT+6!, RESOLVE+6*
>> APCDTNDX	GETDX+2, GETDX+5
APCDTOLD	ACT1+1*, ACT1+5, ACTE+2!
APCDV	NAPADD~, NAPADD+17, NAPADD+27, NAPV+6, NAPV+17, BSD+17, BSD+18, EVSIT+12, PLRADD~, PLRADD+17 , PLRADD+27, PLRV+6, PLRV+16
APCDVAL	NAPV+2~, NAPV+3, NAPV+4, NAPV+8, NAPV+19, PLRV+2~, PLRV+3, PLRV+4, PLRV+8, PLRV+18
APCDVD	NAPV+2~, PLRV+2~
APCDVRI	NAPV+2~, NAPV+5, NAPV+6, NAPV+11, NAPV+13, PLRV+2~, PLRV+5, PLRV+6, PLRV+11, PLRV+13
APCDVSIT	EDIT+19, DEL+16, ACT1+9*, INACT+12, EVSIT+3!, EVSIT+13, RESOLVE+11
APCDX	NAPV+2~, NAPV+6, NAPV+8, NAPV+9, NAPV+10, NAPV+11, PLRV+2~, PLRV+6, PLRV+8, PLRV+9 , PLRV+10, PLRV+11
APCHSMTY	HS+11!
APCHSPAT	HS+7*, HS+11!
APCHSTAT	HS+11!
APCHSTYP	HS+7*, HS+11!
AUPNDAYS	BSD+12~
AUPNDOB	BSD+12~
AUPNDOD	BSD+12~
AUPNPAT	BSD+12~
AUPNSEX	BSD+12~
D0	KDIE+1!, HS+5!
D1	HS+5!
DA	DIE+1, KDIE+1!, GETPROB+2!, ADD+7, EDIT+13!, EDIT+16!, EDIT+18, GETDX+1~, GETDX+3!, DEL+6* , DEL+12!, DEL+17, ACT1+1, ACT1+4!, ACT1+10, INACT+13, HS+5!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2! , PLRDE1+1!, PLRDE1+6!, PLRDE1P+2!, RESOLVE+12*
DD	HS+5!
>> DFN	HS+10*
DI	KDIE+1!
DIC	DEL+6, HS+5!
DIC("B"	HS+5*
DIC(0	HS+5*
DIE	DIE+1, KDIE+1!, ADD+7, EDIT+16!, DEL+12!, ACT1+4~*!
DIE("NO^"	ADD+7*
DIR	GETPROB+2!, EDIT+12!, EDIT+13!, GETDX+1~, GETDX+3!, DEL+9!, PAUSE+1!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2! , PLRDE1+1!, PLRDE1+6!, PLRDE1P+2!
DIR("?"	NAPDE1+5, PLRDE1+5
DIR("A"	GETPROB+2, EDIT+13, GETDX+3, DEL+9, PAUSE+1, NAPDE1+1, NAPDE1+4, NAPDE1P+1, PLRDE1+1, PLRDE1+4 , PLRDE1P+1*
DIR("B"	EDIT+13, GETDX+3, DEL+9, NAPDE1+1, NAPDE1+5, NAPDE1P+2, PLRDE1+1, PLRDE1+5, PLRDE1P+2*
DIR(0	GETPROB+2, EDIT+13, GETDX+3, DEL+9, PAUSE+1, NAPDE1+1, NAPDE1+4, NAPDE1P+1, PLRDE1+1, PLRDE1+4 , PLRDE1P+1*
DIRUT	GETPROB+3, EDIT+14, GETDX+1~, GETDX+4, DEL+9, DEL+10, PAUSE+1, NAPDE1+2, NAPDE1+7, NAPDE1P+3 , PLRDE1+2, PLRDE1+7, PLRDE1P+3
DIU	KDIE+1!
DIV	KDIE+1!
DIW	KDIE+1!
DIY	KDIE+1!
DLAYGO	KDIE+1!, ADD+7*, ADD+8!
DO	KDIE+1!
DQ	KDIE+1!, HS+5!
DR	DIE+1, KDIE+1!, ADD+7, EDIT+16!, DEL+12!, ACT1+4*!, HS+5!
DT	NAPDE1+5, NAPDE1+8, PLRDE1+5, PLRDE1+8
>> DUOUT	DEL+9, PAUSE+1
DUZ	HS+3, BSD+9
DUZ(2	ADD+4, EDIT+5, ACT1+7, HS+2, NAP+8, BSD+5, BSD+6, EVSIT+8, EVSIT+9, PLR+6
F	GETNUM+1~, GETNUM+5*, GETNUM+6
IOF	ADD+6, EDIT+8, DEL+4, INACT+7, RESOLVE+7
N	GETNUM+1~, GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+6, GETNUM+7
P	GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6
RETVAL	NAPADD~, NAPADD+19, NAPADD+20, NAPADD+22, NAPADD+24, NAPADD+25, NAPV+4, NAPV+13, NAPV+23, BSD+16* , PLRADD~, PLRADD+19, PLRADD+20, PLRADD+22, PLRADD+24, PLRADD+25, PLRV+4, PLRV+13, PLRV+22
>> T	BSD+15*, BSD+16
U	ADD+6, EDIT+9, DEL+5, ACT1+1, ACT1+5, INACT+5, HS+2, HS+3, HS+8, FS+2 , GETNUM+5, GETNUM+6, NAPDE1P+6, NAPV+8, NAPV+9, NAPV+10, BSD+6, BSD+15, EVSIT+9, PLRDE1P+6 , PLRV+8, PLRV+9, PLRV+10, RESOLVE+5
>> V	BSD+17*, BSD+18
>> VALMBCK	EXIT+2*
>> VALMCNT	EXIT+4*
X	GETPROB+5, GETDX+1~, HS+2, HS+3, HS+4, HS+5
Y	GETPROB+4, GETPROB+5, EDIT+15, EDIT+16, GETDX+1~, GETDX+5, DEL+11, HS+3, HS+6, HS+7 , HS+10*, NAPDE1+3, NAPDE1+8, NAPDE1+9, NAPDE1P+4, BSD+1~, PLRDE1+3, PLRDE1+8, PLRDE1+9, PLRDE1P+4

Marked Items

Name	Field # of Occurrence
$T(^BSDAPI4	EVSIT+1

Customize PDF page

Package: Patient Care Component

Routine: APCDPL1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items