Routine: APCDPL2

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	PLUDE^APCDAPRB

Package	Total	Caller Graph
Patient Care Component	1	APCDPL1

Entry Points

Name	Comments	DBIA/ICR reference
RNO1	;EP - called from APCDPL1 - remove a note
MN1	;EP - called to modify a note
RNO1X	;xit
NUM	;
RSURE	;
NOX	;
MNO1X	;
MSURE	;
NO1	;EP

External References

Name	Field # of Occurrence
PLUDE^APCDAPRB	NUM+17, RSURE+11, MSURE+8
^DIC	NUM+4, NUM+9
^DIE	NUM+11, RSURE+5, MSURE+2
^DIR	NO1+7, RNO1+10, RSURE+1, MN1+10
^XBFMK	NUM+18
$$FMTE^XLFDT	NO1+6, RNO1+8, MN1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Adding a Note to the following problem on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s Problem List.",! Line Location: NO1+2
Function Call: WRITE	Prompt: !,^TMP($J,"APCDPL",X,0) Line Location: NO1+3
Function Call: WRITE	Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(APCDPIEN,11,L,0),U),0),U) Line Location: NO1+5
Function Call: WRITE	Prompt: !?8,"Note#",$P(^AUPNPROB(APCDPIEN,11,L,11,X,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(APCDPIEN,11,L,11,X,0),U,3) Line Location: NO1+6
Function Call: WRITE	Prompt: ! Line Location: NO1+7
Function Call: WRITE	Prompt: $C(7),$C(7),"ERROR UPDATING NOTE LOCATION MULTIPLE" Line Location: NUM+5
Function Call: WRITE	Prompt: !!,"Adding Note #",X Line Location: NUM+8
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ERROR when updating note number multiple",! Line Location: NUM+10
Function Call: WRITE	Prompt: ?8 Line Location: NUM+11
Function Call: WRITE	Prompt: !! Line Location: NUM+11
Function Call: WRITE	Prompt: !!,"Removing a Note from the following problem on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s Problem List.",! Line Location: RNO1+3
Function Call: WRITE	Prompt: !,^TMP($J,"APCDPL",X,0) Line Location: RNO1+4
Function Call: WRITE	Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(APCDPIEN,11,APCDL,0),U),0),U) Line Location: RNO1+6
Function Call: WRITE	Prompt: !?8,APCDC,") Note#",$P(^AUPNPROB(APCDPIEN,11,APCDL,11,APCDX,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(APCDPIEN,11,APCDL,11,APCDX,0),U,3) Line Location: RNO1+8
Function Call: WRITE	Prompt: !?8,"No note on file for this problem" Line Location: RNO1+9
Function Call: WRITE	Prompt: ! Line Location: RNO1+10
Function Call: WRITE	Prompt: !,"Okay, bye." Line Location: RNO1+11
Function Call: WRITE	Prompt: !,"No Note selected" Line Location: RNO1+12
Function Call: WRITE	Prompt: !! Line Location: RSURE+1
Function Call: WRITE	Prompt: !,"okay, not deleted." Line Location: RSURE+2
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: RSURE+3
Function Call: WRITE	Prompt: !! Line Location: RSURE+5
Function Call: WRITE	Prompt: !!,"Editing a Note on the following problem on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s Problem List.",! Line Location: MN1+3
Function Call: WRITE	Prompt: !,^TMP($J,"APCDPL",X,0) Line Location: MN1+4
Function Call: WRITE	Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(APCDPIEN,11,APCDL,0),U),0),U) Line Location: MN1+6
Function Call: WRITE	Prompt: !?8,APCDC,") Note#",$P(^AUPNPROB(APCDPIEN,11,APCDL,11,APCDX,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(APCDPIEN,11,APCDL,11,APCDX,0),U,3) Line Location: MN1+8
Function Call: WRITE	Prompt: !?8,"No notes on file for this problem" Line Location: MN1+9
Function Call: WRITE	Prompt: ! Line Location: MN1+10
Function Call: WRITE	Prompt: !,"Okay, bye." Line Location: MN1+11
Function Call: WRITE	Prompt: !,"No Note selected" Line Location: MN1+12
Function Call: WRITE	Prompt: !! Line Location: MSURE+2
Routine Call	DIE Line Location: NUM+11 RSURE+5 MSURE+2
Routine Call	DIC Line Location: NUM+4 NUM+9
Routine Call	DIR Line Location: NO1+7 RNO1+10 RSURE+1 MN1+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	NO1+4, NO1+5, NO1+6, NUM+2, NUM+4, NUM+6, RNO1+5, RNO1+6, RNO1+7, RNO1+8 , MN1+5, MN1+6, MN1+7, MN1+8
^DD(9000011	NUM+3
^DD(9000011.11	NUM+9, RSURE+4, MSURE+1
^DIC(4 - [#4]	NO1+5, RNO1+6, MN1+6
^DPT - [#2]	NO1+2, RNO1+3, MN1+3
^TMP($J	NO1+3, RNO1+4, MN1+4

Label References

Name	Line Occurrences
NO1	NUM+20
NOX	NO1+8, NO1+9, NUM+5, NUM+10
RNO1X	RNO1+9, RNO1+11, RNO1+12, RSURE+2, RSURE+3, MN1+9, MN1+11, MN1+12

Naked Globals

Name	Field # of Occurrence
^(0	NO1+2, NO1+6, RNO1+3, RNO1+8, MN1+3, MN1+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDC	NOX+1!, RNO1+2!, RNO1+5, RNO1+6, RNO1+8, RNO1+9, RNO1+10, MN1+2!, MN1+5, MN1+6* , MN1+8*, MN1+9, MN1+10
>> APCDDATE	NUM+11, NUM+14, RSURE+8, MSURE+5*
APCDL	NOX+1!, RNO1+2!, RNO1+6, RNO1+7, RNO1+8, RNO1X+1!, MN1+2!, MN1+6, MN1+7, MN1+8 , MNO1X+1!
>> APCDLOC	NUM+2, NUM+3, NUM+4
APCDN	NOX+1!, RNO1+2!, RNO1X+1!, MN1+2!, MNO1X+1!
APCDN(	RNO1+8, RSURE+4, RSURE+5, MN1+8, MSURE+1, MSURE+2
>> APCDNDT	NUM+14, RSURE+8, MSURE+5
APCDNIEN	NUM+2, NUM+3, NUM+4, NUM+5, NUM+6, NUM+9, NOX+1!
APCDNUM	NUM+7*, NUM+9, NOX+1!
>> APCDPAT	NUM+12, RSURE+6, MSURE+3*
APCDPIEN	NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+4, NUM+6, NUM+9, NUM+16 , NOX+1!, RNO1+4, RNO1+5, RNO1+6, RNO1+7, RNO1+8, RSURE+4, RSURE+10, RNO1X+1!, MN1+4 , MN1+5, MN1+6, MN1+7, MN1+8, MSURE+1, MSURE+7, MNO1X+1!
>> APCDPLPT	NUM+12, RSURE+6, MSURE+3
>> APCDPLV	NUM+15, RSURE+9, MSURE+6
>> APCDVSIT	NUM+15, RSURE+9, MSURE+6*
APCDX	RNO1+2!, RNO1+7, RNO1+8, RNO1X+1!, MN1+2!, MN1+7, MN1+8, MNO1X+1!
APCDY	RNO1+13, RSURE+4, RSURE+5, RNO1X+1!, MN1+13, MSURE+1, MSURE+2, MNO1X+1!
>> D	NO1+3, RNO1+4, MN1+4*
D0	NUM+9!
DA	NO1+7!, NUM+4!, NUM+9!, NUM+11!, NUM+16, NOX+1!, RSURE+5!, RSURE+10, MSURE+2!, MSURE+7
DA(1	NUM+3, NUM+9, RSURE+4, MSURE+1
DA(2	NUM+9, RSURE+4, MSURE+1*
DD	NUM+9!, NOX+1!
>> DFN	NO1+2, RNO1+3, MN1+3
DIADD	NUM+3*, NUM+4!, NUM+9!, NUM+19!, NOX+1!
DIC	NUM+3, NUM+4!, NUM+9!, NUM+11!, NOX+1!
DIC("P"	NUM+3, NUM+9, RSURE+4, MSURE+1
DIC(0	NUM+3, NUM+9
DIE	NUM+11!, RSURE+4, RSURE+5!, MSURE+1*, MSURE+2!
DIR	NO1+7!, RNO1+10!, RSURE+1!, MN1+10!
DIR("A"	NO1+7, RNO1+10, RSURE+1, MN1+10
DIR("B"	NO1+7, RSURE+1
DIR(0	NO1+7, RNO1+10, RSURE+1, MN1+10
>> DIRUT	NO1+8, RNO1+10, RNO1+11, RSURE+1, RSURE+2, MN1+10*, MN1+11
DLAYGO	NUM+9!
DO	NUM+9!
DR	NUM+4!, NUM+9!, NUM+11!, NOX+1!, RSURE+5!, MSURE+2*!
DT	NUM+11
>> DUOUT	RNO1+10, RSURE+1, MN1+10
DUZ(2	NUM+2, NUM+3, NUM+4
IOF	NO1+1, RNO1+1, MN1+1
>> IORVOFF	NO1+5, RNO1+6, MN1+6
>> IORVON	NO1+5, RNO1+6, MN1+6
L	NO1+5*, NO1+6, NOX+1!
U	NO1+2, NO1+5, NO1+6, NUM+3, NUM+9, RNO1+3, RNO1+6, RNO1+8, RSURE+4, RSURE+5 , MN1+3, MN1+6, MN1+8, MSURE+1, MSURE+2
X	NO1+3, NO1+6, NUM+3, NUM+4!, NUM+6, NUM+7, NUM+8, NUM+9, NOX+1!, RNO1+4 , MN1+4*
Y	NO1+3, NO1+9, NUM+4!, NUM+6!, NUM+10, NUM+11!, NOX+1!, RNO1+4, RNO1+12, RNO1+13 , RSURE+3, RSURE+5!, MN1+4, MN1+12, MN1+13, MSURE+2!

Customize PDF page

Package: Patient Care Component

Routine: APCDPL2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: