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

Package: Mental Health Social Services

Routine: AMHPL2


Information

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

Source Information

Source file <AMHPL2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Mental Health Social Services 2 PLUPCC^AMHAPRB  $$PRIMPROV^AMHUTIL  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMHPL1  

Entry Points

Name Comments DBIA/ICR reference
RNO1 ;EP - called from AMHPL1 - 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
PLUPCC^AMHAPRB NUM+14, RSURE+6, MSURE+3
$$PRIMPROV^AMHUTIL NUM+14, RSURE+6, MSURE+3
^DIC NUM+4, NUM+9
^DIE NUM+11, RSURE+5, MSURE+2
^DIR NO1+7, RNO1+10, RSURE+1, MN1+10
^XBFMK NUM+12
$$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,"AMHPL",X,0)
  • Line Location: NO1+3
Function Call: WRITE
  • Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(AMHPIEN,11,L,0),U),0),U)
  • Line Location: NO1+5
Function Call: WRITE
  • Prompt: !?8,"Note#",$P(^AUPNPROB(AMHPIEN,11,L,11,X,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(AMHPIEN,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,"AMHPL",X,0)
  • Line Location: RNO1+4
Function Call: WRITE
  • Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(AMHPIEN,11,AMHL,0),U),0),U)
  • Line Location: RNO1+6
Function Call: WRITE
  • Prompt: !?8,AMHC,") Note#",$P(^AUPNPROB(AMHPIEN,11,AMHL,11,AMHX,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(AMHPIEN,11,AMHL,11,AMHX,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,"AMHPL",X,0)
  • Line Location: MN1+4
Function Call: WRITE
  • Prompt: !?6,$P(^DIC(4,$P(^AUPNPROB(AMHPIEN,11,AMHL,0),U),0),U)
  • Line Location: MN1+6
Function Call: WRITE
  • Prompt: !?8,AMHC,") Note#",$P(^AUPNPROB(AMHPIEN,11,AMHL,11,AMHX,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?30,$P(^AUPNPROB(AMHPIEN,11,AMHL,11,AMHX,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+15
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
AMHC 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
>> AMHDATE NUM+11
AMHL NOX+1!, RNO1+2!, RNO1+6*, RNO1+7, RNO1+8, RNO1X+1!, MN1+2!, MN1+6*, MN1+7, MN1+8
, MNO1X+1!
>> AMHLOC NUM+2, NUM+3, NUM+4
AMHN NOX+1!, RNO1+2!, RNO1X+1!, MN1+2!, MNO1X+1!
AMHN( RNO1+8*, RSURE+4, RSURE+5, MN1+8*, MSURE+1, MSURE+2
AMHNIEN NUM+2*, NUM+3, NUM+4*, NUM+5, NUM+6, NUM+9, NOX+1!
AMHNUM NUM+7*, NUM+9, NOX+1!
AMHPIEN NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+4, NUM+6, NUM+9, NUM+14
, NOX+1!, RNO1+4, RNO1+5, RNO1+6, RNO1+7, RNO1+8, RSURE+4, RSURE+6, RNO1X+1!, MN1+4
, MN1+5, MN1+6, MN1+7, MN1+8, MSURE+1, MSURE+3, MNO1X+1!
>> AMHR NUM+14, RSURE+6, MSURE+3
AMHX RNO1+2!, RNO1+7*, RNO1+8, RNO1X+1!, MN1+2!, MN1+7*, MN1+8, MNO1X+1!
AMHY 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*!, NOX+1!, RSURE+5*!, MSURE+2*!
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+13!, 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