Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCDPL2

Package: Patient Care Component

Routine: APCDPL2


Information

APCDPL2 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

Source Information

Source file <APCDPL2.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 1

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All