Routine: APCDPG1

Information

APCDPG1 ; IHS/CMI/LAB - GOAL list update from list manager ;

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
VA Fileman	6	EN^DDIOL ^DIC FILE^DICN ^DIE (EN,GETS)^DIQ ^DIR
Patient Care Component	3	STP^APCDAGOL ($$DATE,GATHER,HDR)^APCDPG (MN1,NO1,RNO1)^APCDPG2
IHS VA Utilities	2	^XBFMK (DIQ,VIEWR)^XBLM
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Registration	2	TERM^VALM0 ($$SETSTR,CLEAR,FULL)^VALM1
IHS Patient	1	^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
FS	;EP -called from protcol to display face sheet
DIE	;
DD	;EP - called from protocol to display (DIQ) a GOAL in detail
REV	;
DEL	;EP - called from protocol to delete a GOAL on GOAL list
SET	;set array
IG1	;
REVE	;
FM12	;
KDIE	;kill all vars used by DIE
FM13	;
HS	;EP - called from protocol to display health summary
PAUSE	;EP
BUILD1	;
GETGOAL	;get record
REVE1
AN	;EP - add a step, called from protocol
ADD	;EP - called from protocol to add a GOAL to GOAL list
BUILD	; build array
GETNUM(P)	;EP - get GOAL number given ien of GOAL entry
FMD	;
FME	;
IG	;EP - called from protocol to display health summary
FMA	;
RNO	;EP - called from protocol to remove a step
GOAL	;
EDIT	;EP - called from protocol to modify a GOAL on GOAL list
MN	;EP - called from protocol to modify a step
EXIT	;

External References

Name	Field # of Occurrence
STP^APCDAGOL	ADD+20
$$DATE^APCDPG	REV+7
GATHER^APCDPG	EXIT+3
HDR^APCDPG	EXIT+5
MN1^APCDPG2	MN+4
NO1^APCDPG2	AN+4
RNO1^APCDPG2	RNO+12
^AUPNPAT	HS+10
EN^DDIOL	REV+4, FM12+1, FME+1, FMD+1
^DIC	HS+5
FILE^DICN	ADD+13
^DIE	DIE+1, ADD+17, EDIT+11, DEL+20, REVE+7, REVE+16, FME+9, FMD+9, FMA+14
EN^DIQ	DEL+14
GETS^DIQ	GOAL+1
^DIR	GETGOAL+2, ADD+8, DEL+6, DEL+16, RNO+6, PAUSE+1, REVE+10, FM12+4, FME+3, FMD+3 , FMA+5, FMA+9
TERM^VALM0	EXIT+1
$$SETSTR^VALM1	BUILD1+1
CLEAR^VALM1	IG+5
FULL^VALM1	GETGOAL+7, ADD+1, DEL+1, RNO+1, HS+1, FS+1, IG+1
^XBFMK	DEL+21
DIQ^XBLM	DD+4
VIEWR^XBLM	HS+9, FS+3, IG+4
$$FMTE^XLFDT	FMA+5, FMA+14
$$REPEAT^XLFSTR	REV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No GOAL Seleted" Line Location: GETGOAL+3
Function Call: WRITE	Prompt: !,"Not a valid GOAL." Line Location: GETGOAL+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: ADD+6
Function Call: WRITE	Prompt: !,"Adding a new GOAL for ",$P(^DPT(APCDPGPT,0),U),".",!! Line Location: ADD+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Goal record not created.",! Line Location: ADD+14
Function Call: WRITE	Prompt: !!,"error creating goal.." Line Location: ADD+18
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: EDIT+9
Function Call: WRITE	Prompt: !,"Editing GOAL ... " Line Location: EDIT+9
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: Goals should only be deleted if they were entered in error." Line Location: DEL+2
Function Call: WRITE	Prompt: !,"If you want to mark the goal as completed or if you want to change this goal," Line Location: DEL+3
Function Call: WRITE	Prompt: !,"use the RV action to mark the goal as Met if it is complete or Stopped if" Line Location: DEL+4
Function Call: WRITE	Prompt: !,"this goal is being replaced with another goal.",!! Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"Deleting the following GOAL from ",$P($P(^DPT(APCDPGPT,0),U),",",2)," ",$P($P(^(0),U),","),"'s GOAL List.",! Line Location: DEL+13
Function Call: WRITE	Prompt: ! Line Location: DEL+16
Function Call: WRITE	Prompt: !,"okay, not deleted." Line Location: DEL+17
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: DEL+18
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: Steps should only be deleted if they were entered in error." Line Location: RNO+2
Function Call: WRITE	Prompt: !,"If you want to mark the step as completed or if you want to change this step," Line Location: RNO+3
Function Call: WRITE	Prompt: !,"use the ES (Edit Step) action to mark the step as Met if it is complete or " Line Location: RNO+4
Function Call: WRITE	Prompt: !,"Stopped if this step is being replaced with another step.",!! Line Location: RNO+5
Function Call: WRITE	Prompt: !!?3,"Review/Progress Notes currently on file for this goal:" Line Location: REV+1
Function Call: WRITE	Prompt: " None recorded" Line Location: REV+3
Function Call: WRITE	Prompt: APCDSTR,! Line Location: SET+1
Routine Call	DIE Line Location: DIE+1 ADD+17 EDIT+11 DEL+20 REVE+7 REVE+16 FME+9 FMD+9 FMA+14
Routine Call	DIC Line Location: HS+5
Routine Call	DIR Line Location: GETGOAL+2 ADD+8 DEL+6 DEL+16 RNO+6 PAUSE+1 REVE+10 FM12+4 FME+3 FMD+3 FMA+5 FMA+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNGOAL - [#9000093]	Classic Fileman Calls, GETS^DIQ
^APCHSCTL - [#9001015]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	HS+2
^APCHSCTL - [#9001015]	HS+2, HS+3
^AUPNGOAL - [#9000093]	GETGOAL+6, ADD+20, EDIT+7, GETNUM+4, GETNUM+5, GETNUM+6, REVE+8, REVE+9, REV+3, REV+5 , REV+7, IG1+5, GOAL+22, GOAL+31
^AUPNGOAL("AA"	IG1+3, IG1+4, IG1+5
^AUTTLOC - [#9999999.06]	GETNUM+6
^DD(	GOAL+5, GOAL+17, GOAL+27, GOAL+36
^DD(9000093	FME+7, FMD+7
^DD(9000093.01	GOAL+13
^DISV(	HS+3
^DPT - [#2]	ADD+6, DEL+13, HS+8, FS+2, IG+3, BUILD+5

Label References

Name	Line Occurrences
@(	FM12+8
BUILD	IG1+11
BUILD1	BUILD+5, GOAL+7, GOAL+15, GOAL+19, GOAL+29, GOAL+38
DIE	EDIT+10
EXIT	ADD+9, ADD+14, ADD+21, EDIT+3, EDIT+13, DEL+7, DEL+8, DEL+11, DEL+17, DEL+18 , DEL+21, AN+3, AN+5, MN+3, MN+5, RNO+7, RNO+8, RNO+11, RNO+13, HS+6 , HS+12, DD+3, DD+5, FS+5, REVE+3, REVE+11, REVE1+1, IG+6
FM12	REV+3
FM13	FM12+5, FM12+6
GETGOAL	EDIT+2, DEL+10, AN+2, MN+2, RNO+10, DD+2, REVE+2
KDIE	ADD+17, ADD+18, ADD+19, EXIT+7, FME+10, FMD+10
PAUSE	ADD+14, EDIT+3, DEL+11, DEL+17, DEL+18, DEL+21, AN+3, MN+3, MN+5, RNO+11 , RNO+13, HS+6, DD+3, REVE+3
REV	EDIT+12, REVE1, FM12+9
REVE1	REVE+9, REVE+13
SET	IG1+10, BUILD+6, GOAL+22, GOAL+25, GOAL+31, GOAL+34, GOAL+39, BUILD1+2

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	HS+3
^(0	DEL+13, 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!
APCDAR	BUILD+1~, BUILD+3!
APCDAR(	GOAL+3, GOAL+6, GOAL+11, GOAL+12, GOAL+14, GOAL+16, GOAL+18, GOAL+24, GOAL+26, GOAL+28 , GOAL+33, GOAL+35, GOAL+37
APCDC	REV+2, REV+6, REV+7, FM12+3, FM13+1!, FME+3, FMD+3
APCDCM	REV+2!, FM13+1!
APCDCM(	REV+6*, FME+6, FMD+6
APCDCTR	BUILD+1~, BUILD+4*
>> APCDDATE	ADD+5, EDIT+6, REVE+6*
>> APCDDONE	FM12+6*
APCDF	EXIT+6!, IG1+2~, IG1+3, IG1+4, IG1+5, BUILD+1~, GOAL+3, GOAL+4, GOAL+5, GOAL+6 , GOAL+11, GOAL+12, GOAL+13, GOAL+14, GOAL+16, GOAL+17, GOAL+18, GOAL+24, GOAL+26, GOAL+27 , GOAL+28, GOAL+33, GOAL+35*, GOAL+36, GOAL+37
APCDF1	BUILD+1~
>> APCDGOAL	ADD+20*
APCDH	BUILD+1~, BUILD+5, GOAL+5, GOAL+13, GOAL+17, GOAL+27, GOAL+36, BUILD1+1
APCDHDR	HS+8, HS+9, HS+11!, FS+2, FS+3, FS+4!, IG+3*, IG+4
APCDI	BUILD+1~, GOAL+2*, GOAL+3, GOAL+6, GOAL+16, GOAL+18
>> APCDIGS	ADD+7, ADD+10, ADD+12, ADD+17
APCDII	BUILD+1~, GOAL+10, GOAL+11, GOAL+12, GOAL+14, GOAL+23, GOAL+24, GOAL+26, GOAL+28, GOAL+32* , GOAL+33*, GOAL+35, GOAL+37
APCDJ	BUILD+1~
>> APCDLINE	EXIT+4
>> APCDLOC	ADD+4, EDIT+5, REVE+5*
APCDNARR	BUILD+1~
>> APCDNDT	ADD+5, EDIT+6, REVE+6
APCDP	GETGOAL+4*, GETGOAL+5, GETGOAL+6!, EXIT+6!
APCDP0	EXIT+6!, IG1+5*, IG1+6, IG1+7, IG1+8, IG1+9, BUILD+5
APCDPAT	ADD+3, EDIT+1~, EDIT+4, DEL+9~, REVE+1~, REVE+4*
>> APCDPG("IDX"	GETGOAL+5
>> APCDPGI	IG1+4*, IG1+5
>> APCDPGPT	ADD+2, ADD+3, ADD+6, EDIT+4, DEL+13, HS+7, HS+8, HS+10, FS+2, REVE+4 , IG+3, IG1+3, IG1+4, IG1+5
APCDPIEN	DIE+1, GETGOAL+1, GETGOAL+5, GETGOAL+6, ADD+16, ADD+17, ADD+20, EDIT+1~, EDIT+3, EDIT+7 , EDIT+11, DEL+9~, DEL+11, DEL+14, DEL+20, AN+1~, AN+3, MN+1~, MN+3, RNO+9~ , RNO+11, DD+1~, DD+3, DD+4, EXIT+6!, REVE+1~, REVE+3, REVE+7, REVE+8, REVE+9 , REVE+15, REV+3, REV+5, REV+7, FME+6, FME+7, FMD+6, FMD+7, FMA+14, IG1+5* , GOAL+1, GOAL+2, GOAL+22, GOAL+31
APCDPRB	EXIT+6!
APCDPRMT	EXIT+6!
>> APCDRCNT	GETGOAL+2
>> APCDREVD	FMA+4, FMA+7, FMA+14
>> APCDREVT	FMA+8, FMA+12
>> APCDSS	REVE+8, REVE+10, REVE+12, REVE+13, REVE+14
APCDSTR	IG1+10, SET+1, BUILD+1~, BUILD+4, BUILD+6, GOAL+22, GOAL+25, GOAL+31, GOAL+34, GOAL+39 , BUILD1+1*
APCDTEMP	DIE+1, EDIT+8*, EXIT+6!
APCDV	BUILD+1~, BUILD+5, GOAL+6, GOAL+14, GOAL+18, GOAL+28, GOAL+37, BUILD1+1
APCDVDG	BUILD+1~
APCDVFC	BUILD+1~
APCDVFLE	BUILD+1~
APCDVI	BUILD+1~
APCDVIGR	BUILD+1~
APCDVNM	BUILD+1~
APCDVREC	BUILD+1~
APCDX	IG1+2~
APCDY	IG1+2~
APCHSMTY	HS+11!
APCHSPAT	HS+7*, HS+11!
APCHSTAT	HS+11!
APCHSTYP	HS+7*, HS+11!
D0	KDIE+1!, ADD+13!, HS+5!
D1	HS+5!
DA	DIE+1, KDIE+1!, GETGOAL+2!, ADD+8!, ADD+17, EDIT+11, DEL+6!, DEL+14, DEL+20!, RNO+6! , HS+5!, REVE+7, REVE+10!, REVE+15, REVE+17!, FM12+4!, FME+3!, FME+5!, FME+6, FMD+3! , FMD+5!, FMD+6, FMA+5!, FMA+9!, FMA+14!, FMA+15!
DA(1	FME+6, FMD+6
DD	ADD+13!, HS+5!
>> DFN	HS+10*
DI	KDIE+1!
DIADD	KDIE+1!, ADD+12*, ADD+13!
DIC	ADD+12!, ADD+13!, DEL+14, HS+5!*, FME+5!, FMD+5!, FMA+15!
DIC("B"	HS+5*
DIC("P"	FME+7, FMD+7
DIC(0	ADD+12, HS+5
DIE	DIE+1, KDIE+1!, ADD+13!, ADD+17, EDIT+11, DEL+20!, REVE+7, REVE+15, REVE+17!, FME+7* , FMD+7, FMA+14!
DIE("NO^"	ADD+17, DEL+20
DIR	GETGOAL+2!, ADD+8!, DEL+6!, DEL+16!, RNO+6!, PAUSE+1!, REVE+10!, FM12+2!, FM12+4!, FME+2! , FME+3!, FMD+2!, FMD+3!, FMA+5!, FMA+9!
DIR("A"	GETGOAL+2, ADD+8, DEL+6, DEL+16, RNO+6, PAUSE+1, REVE+10, FM12+4, FME+3, FMD+3 , FMA+5, FMA+9
DIR("B"	DEL+6, DEL+16, RNO+6, REVE+10, FM12+4, FMA+5
DIR(0	GETGOAL+2, ADD+8, DEL+6, DEL+16, RNO+6, PAUSE+1, REVE+10, FM12+3, FME+3, FMD+3 , FMA+5, FMA+9
>> DIRUT	GETGOAL+3, ADD+9, DEL+7, DEL+16, DEL+17, RNO+7, PAUSE+1, REVE+11, FM12+5, FME+4 , FMD+4, FMA+6, FMA+10
DIU	KDIE+1!
DIV	KDIE+1!
DIW	KDIE+1!
DIY	KDIE+1!
DLAYGO	KDIE+1!, ADD+12*, ADD+13!, ADD+21!
DO	KDIE+1!, ADD+13!
DQ	KDIE+1!, HS+5!
DR	DIE+1, KDIE+1!, ADD+13!, ADD+17, EDIT+11, DEL+20!, HS+5!, REVE+7, REVE+14, REVE+17! , FME+5!, FME+8, FMD+5!, FMD+8, FMA+14*!, FMA+15!
DR(2	FMA+14*
DT	FMA+5
>> DUOUT	DEL+16, PAUSE+1
DUZ	HS+3
DUZ(2	ADD+4, EDIT+5, HS+2, REVE+5
F	GETNUM+1~, GETNUM+5, GETNUM+6, BUILD+2~, GOAL+3, GOAL+5, GOAL+6, GOAL+10, GOAL+11, GOAL+12 , GOAL+14, GOAL+16, GOAL+17, GOAL+18, GOAL+23, GOAL+24, GOAL+26, GOAL+27, GOAL+28, GOAL+32 , GOAL+33, GOAL+35, GOAL+36, GOAL+37
F1	BUILD+2~
H	BUILD+2~
IOF	ADD+6, EDIT+9, DEL+12
N	GETNUM+1~, GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+6, GETNUM+7
P	GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6
U	ADD+6, ADD+20, EDIT+7, DEL+13, HS+2, HS+3, HS+8, FS+2, GETNUM+5, GETNUM+6 , REVE+8, REVE+9, REV+7, FME+7, FMD+7, IG+3, IG1+6, IG1+7, IG1+8, IG1+9 , BUILD+5, GOAL+5, GOAL+13, GOAL+17, GOAL+27, GOAL+36
>> VALMBCK	EXIT+2*
>> VALMCNT	EXIT+4*
X	GETGOAL+5, ADD+12, ADD+13!, EDIT+7, EDIT+8, HS+2, HS+3, HS+4, HS+5, REV+5* , REV+6, REV+7, FMA+15!, BUILD+2~
Y	GETGOAL+4, GETGOAL+5, ADD+10, ADD+14, ADD+16, ADD+18, DEL+8, DEL+18, RNO+8, HS+3 , HS+6, HS+7, HS+10, REVE+12, FM12+6, FM12+7, FM12+8, FM13+1!, FME+6, FMD+6 , FMA+7, FMA+11, FMA+12, FMA+15!

Customize PDF page

Package: Patient Care Component

Routine: APCDPG1

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: