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: APCDPG2

Package: Patient Care Component

Routine: APCDPG2


Information

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

Source Information

Source file <APCDPG2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Patient Care Component 1 ($$DATE,$$SS)^APCDPG  
Registration 1 $$SETSTR^VALM1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDPG1  

Entry Points

Name Comments DBIA/ICR reference
RNO1 ;EP - called from APCDPG1 - remove a step
DISPGOAL ;
RNO1X ;xit
MN1 ;EP - called to modify a step
RSURE ;
NUM ;
NOX ;
MNO1X ;
SSD
SFD
MSURE ;
NO1 ;EP

External References

Name Field # of Occurrence
$$DATE^APCDPG NO1+13, NO1+14, RNO1+13, RNO1+14, MN1+13, MN1+14, DISPGOAL+9, DISPGOAL+10
$$SS^APCDPG NO1+13, RNO1+13, MN1+13
^DIC NUM+3, NUM+8
^DIE NUM+10, SFD+7, RSURE+5, RSURE+8, MSURE+3, MSURE+11
^DIR NO1+15, SSD+1, SFD+1, RNO1+16, RSURE+1, MN1+16, MSURE+5
$$SETSTR^VALM1 DISPGOAL+5, DISPGOAL+6, DISPGOAL+7
$$VAL^XBDIQ1 DISPGOAL+7, DISPGOAL+13, DISPGOAL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You cannot add a step to a goal that was Not Set.",!!
  • Line Location: NO1+3
Function Call: WRITE
  • Prompt: !!,"Adding a Step to the following GOAL on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s GOAL List.",!
  • Line Location: NO1+4
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,$P(^AUPNGOAL(APCDPIEN,21,APCDL,0),U),0),U)
  • Line Location: NO1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NO1+15
Function Call: WRITE
  • Prompt: $C(7),$C(7),"ERROR UPDATING STEP LOCATION MULTIPLE"
  • Line Location: NUM+4
Function Call: WRITE
  • Prompt: !!,"Adding ",$P(^DIC(4,APCDLOC,0),U)," Step"
  • Line Location: NUM+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"ERROR when updating step number multiple",!
  • Line Location: NUM+9
Function Call: WRITE
  • Prompt: ?10
  • Line Location: NUM+10
Function Call: WRITE
  • Prompt: !!,"value is required"
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: !!,"value is required"
  • Line Location: SFD+2
Function Call: WRITE
  • Prompt: !!,"followup date cannot be less than the start date"
  • Line Location: SFD+4
Function Call: WRITE
  • Prompt: !!,"You cannot REMOVE a step from a goal that was Not Set.",!!
  • Line Location: RNO1+3
Function Call: WRITE
  • Prompt: !!,"Removing a Step from the following GOAL on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s GOAL List.",!
  • Line Location: RNO1+4
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,$P(^AUPNGOAL(APCDPIEN,21,APCDL,0),U),0),U)
  • Line Location: RNO1+8
Function Call: WRITE
  • Prompt: !?8,"No step on file for this GOAL"
  • Line Location: RNO1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: RNO1+16
Function Call: WRITE
  • Prompt: !,"Okay, bye."
  • Line Location: RNO1+17
Function Call: WRITE
  • Prompt: !,"No Step selected"
  • Line Location: RNO1+18
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+9
Function Call: WRITE
  • Prompt: !!,"You cannot EDIT a step on a goal that was Not Set.",!!
  • Line Location: MN1+3
Function Call: WRITE
  • Prompt: !!,"Editing a Step on the following GOAL on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s GOAL List.",!
  • Line Location: MN1+4
Function Call: WRITE
  • Prompt: !?3,$P(^DIC(4,$P(^AUPNGOAL(APCDPIEN,21,APCDL,0),U),0),U)
  • Line Location: MN1+8
Function Call: WRITE
  • Prompt: !?8,"No step on file for this GOAL"
  • Line Location: MN1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: MN1+16
Function Call: WRITE
  • Prompt: !,"Okay, bye."
  • Line Location: MN1+17
Function Call: WRITE
  • Prompt: !,"No Step selected"
  • Line Location: MN1+18
Function Call: WRITE
  • Prompt: !,APCDX
  • Line Location: DISPGOAL+8
Function Call: WRITE
  • Prompt: !,APCDX
  • Line Location: DISPGOAL+11
Function Call: WRITE
  • Prompt: !?2,APCDX
  • Line Location: DISPGOAL+14
Function Call: WRITE
  • Prompt: !?2,APCDX
  • Line Location: DISPGOAL+16
Routine Call
  • DIE
  • Line Location:
    • NUM+10
    • SFD+7
    • RSURE+5
    • RSURE+8
    • MSURE+3
    • MSURE+11
Routine Call
  • DIC
  • Line Location:
    • NUM+3
    • NUM+8
Routine Call
  • DIR
  • Line Location:
    • NO1+15
    • SSD+1
    • SFD+1
    • RNO1+16
    • RSURE+1
    • MN1+16
    • MSURE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNGOAL - [#9000093] NO1+3, NO1+6, NO1+8, NO1+9, NO1+10, NO1+12, NO1+13, NO1+14, NUM+2, NUM+3
, NUM+5, RNO1+3, RNO1+7, RNO1+8, RNO1+9, RNO1+10, RNO1+12, RNO1+13, RNO1+14, RSURE+6
, MN1+3, MN1+7, MN1+8, MN1+9, MN1+10, MN1+12, MN1+13, MN1+14, MSURE+4, DISPGOAL+2
, DISPGOAL+9, DISPGOAL+10
^AUTTLOC - [#9999999.06] DISPGOAL+6
^DD(9000093 NUM+3
^DD(9000093.21 NUM+8, SFD+5, RSURE+4, RSURE+7, MSURE+1, MSURE+9
^DIC(4 - [#4] NO1+8, NUM+7, RNO1+8, MN1+8
^DPT - [#2] NO1+4, RNO1+4, MN1+4

Label References

Name Line Occurrences
DISPGOAL NO1+5, RNO1+5, MN1+5
MNO1X MN1+15, MN1+17, MN1+18, MSURE+6
NO1 SFD+9
NOX NO1+3, NO1+16, NO1+17, NUM+4, NUM+9, MN1+3
RNO1X RNO1+3, RNO1+15, RNO1+17, RNO1+18, RSURE+2, RSURE+3
SFD SFD+2
SSD SSD+2, SFD+4

Naked Globals

Name Field # of Occurrence
^(0 NO1+4, RNO1+4, MN1+4, DISPGOAL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NUM+10*
APCDC NO1+7*, NO1+11*, NO1+12, NOX+1!, RNO1+2!, RNO1+6*, RNO1+11*, RNO1+12, RNO1+15, RNO1+16
, MN1+2!, MN1+6*, MN1+11*, MN1+12, MN1+15, MN1+16
>> APCDDA NUM+10*, SFD+6
>> APCDDATE NUM+10
APCDF DISPGOAL+1~, DISPGOAL+3*, DISPGOAL+6
APCDFUD NO1+2~, SFD*, SFD+3*, SFD+4
APCDL NO1+8*, NO1+9, NO1+10, NO1+12, NO1+13, NO1+14, NOX+1!, RNO1+2!, RNO1+8*, RNO1+9
, RNO1+10, RNO1+11, RNO1+12, RNO1+13, RNO1+14, RNO1X+1!, MN1+2!, MN1+8*, MN1+9, MN1+10
, MN1+11, MN1+12, MN1+13, MN1+14, MNO1X+1!
>> APCDLOC NUM+2, NUM+3, NUM+7
APCDN NOX+1!, RNO1+2!, RNO1X+1!, MN1+2!, MNO1X+1!
APCDN( RNO1+11*, RSURE+4, RSURE+5, RSURE+6, RSURE+7, RSURE+8, MN1+11*, MSURE+1, MSURE+2, MSURE+4
, MSURE+9, MSURE+10
APCDNIEN NUM+2*, NUM+3*, NUM+4, NUM+5, NUM+8, SFD+5, NOX+1!
APCDNUM NUM+6*, NUM+8, NOX+1!
APCDP0 DISPGOAL+1~, DISPGOAL+2*, DISPGOAL+3, DISPGOAL+6, DISPGOAL+7, DISPGOAL+9, DISPGOAL+10
APCDPIEN NO1+3, NO1+6, NO1+8, NO1+9, NO1+10, NO1+12, NO1+13, NO1+14, NUM+2, NUM+3
, NUM+5, NUM+8, SFD+5, NOX+1!, RNO1+3, RNO1+7, RNO1+8, RNO1+9, RNO1+10, RNO1+12
, RNO1+13, RNO1+14, RSURE+4, RSURE+6, RSURE+7, RNO1X+1!, MN1+3, MN1+7, MN1+8, MN1+9
, MN1+10, MN1+12, MN1+13, MN1+14, MSURE+1, MSURE+4, MSURE+9, MNO1X+1!, DISPGOAL+2, DISPGOAL+7
, DISPGOAL+9, DISPGOAL+10, DISPGOAL+13, DISPGOAL+15
APCDSD NO1+2~, SSD*, SSD+3*, SFD+4
APCDSS MSURE+4*, MSURE+5, MSURE+7*, MSURE+8, MNO1X+1!
APCDX NO1+9*, NO1+10, NO1+12, NO1+13, NO1+14, RNO1+2!, RNO1+9*, RNO1+10, RNO1+11, RNO1+12
, RNO1+13, RNO1+14, RNO1X+1!, MN1+2!, MN1+9*, MN1+10, MN1+11, MN1+12, MN1+13, MN1+14
, MNO1X+1!, DISPGOAL+1~, DISPGOAL+4*, DISPGOAL+5*, DISPGOAL+6*, DISPGOAL+7*, DISPGOAL+8, DISPGOAL+9*, DISPGOAL+10*, DISPGOAL+11
, DISPGOAL+13*, DISPGOAL+14, DISPGOAL+15*, DISPGOAL+16
APCDY RNO1+19*, RSURE+4, RSURE+5, RSURE+6, RSURE+7, RSURE+8, RNO1X+1!, MN1+19*, MSURE+1, MSURE+2
, MSURE+4, MSURE+9, MSURE+10, MNO1X+1!
DA NO1+15!, NUM+3!, NUM+8!, NUM+10*!, SSD+1!, SFD+1!, SFD+6*, SFD+8!, NOX+1!, RSURE+5*!
, RSURE+8*!, MSURE+2*, MSURE+3!, MSURE+5!, MSURE+10*, MSURE+12!
DA(1 NUM+3*, NUM+8*, RSURE+4*, RSURE+7*, MSURE+1*, MSURE+9*
DA(2 NUM+8*, RSURE+4*, RSURE+7*, MSURE+1*, MSURE+9*
DD NOX+1!
>> DFN NO1+4, RNO1+4, MN1+4
DIADD NOX+1!
DIC NUM+3*!, NUM+8!*, NUM+10!, NOX+1!
DIC("P" NUM+3*, NUM+8*, SFD+5*, RSURE+4*, RSURE+7*, MSURE+1*, MSURE+9*
DIC(0 NUM+3*, NUM+8*
DIE NUM+10*!, SFD+5*, SFD+8!, RSURE+4*, RSURE+5!, RSURE+7*, RSURE+8!, MSURE+1*, MSURE+3!, MSURE+9*
, MSURE+12!
DIE("NO^" RSURE+5*, RSURE+8*
DIR NO1+15!, SSD+1!, SFD+1!, RNO1+16!, RSURE+1!, MN1+16!, MSURE+5!
DIR("A" NO1+15*, SSD+1*, SFD+1*, RNO1+16*, RSURE+1*, MN1+16*, MSURE+5*
DIR("B" NO1+15*, RSURE+1*, MSURE+5*
DIR(0 NO1+15*, SSD+1*, SFD+1*, RNO1+16*, RSURE+1*, MN1+16*, MSURE+5*
>> DIRUT NO1+16, SSD+2, SFD+2, RNO1+16*, RNO1+17, RSURE+1*, RSURE+2, MN1+16*, MN1+17, MSURE+6
DR NUM+3!, NUM+8!, NUM+10*!, SFD+6*, SFD+8!, NOX+1!, RSURE+5*!, RSURE+8*!, MSURE+3*!, MSURE+8*
, MSURE+12!
DT NUM+10
>> DUOUT RNO1+16, RSURE+1, MN1+16
IOF NO1+1, RNO1+1, MN1+1
L NOX+1!
U NO1+3, NO1+4, NO1+8, NO1+10, NO1+12, NO1+13, NO1+14, NUM+3, NUM+7, NUM+8
, SFD+5, RNO1+3, RNO1+4, RNO1+8, RNO1+10, RNO1+11, RNO1+12, RNO1+13, RNO1+14, RSURE+4
, RSURE+5, RSURE+6, RSURE+7, RSURE+8, MN1+3, MN1+4, MN1+8, MN1+10, MN1+11, MN1+12
, MN1+13, MN1+14, MSURE+1, MSURE+2, MSURE+4, MSURE+9, MSURE+10, DISPGOAL+3, DISPGOAL+6, DISPGOAL+7
, DISPGOAL+9, DISPGOAL+10
X NUM+3*!, NUM+5*, NUM+6, NUM+8*, NOX+1!, DISPGOAL+6*, DISPGOAL+7*
Y NO1+17, NUM+3!, NUM+5*!, NUM+9, NUM+10!, SSD+3, SFD+3, NOX+1!, RNO1+18, RNO1+19
, RSURE+3, RSURE+5!, RSURE+8!, MN1+18, MN1+19, MSURE+3!, MSURE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All