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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHBPL2

Package: Mental Health Social Services

Routine: AMHBPL2


Information

AMHBPL2 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ; 08 Sep 2011 12:17 PM

Source Information

Source file <AMHBPL2.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health Social Services 6 PLUDE^AMHAPRB  (DDN,EXIT,GETPROB,PAUSE)^AMHBPL1  $$GETNUM^AMHLETN  EN^AMHPL  ^AMHPROB  $$PRIMPROV^AMHUTIL  
VA Fileman 4 FILE^DICN  (,CHK)^DIE  EN^DIQ  ^DIR  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
IHS Patient 1 ^AUPNPAT  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHBPL1  AMHGBPL  AMHGSBPL  

Entry Points

Name Comments DBIA/ICR reference
STATUS ;
DOO ;
DTE ;
RNO1X ;xit
DX ;DX CHK
PCC ;EP
MNO1X ;
MSURE ;
RSURE ;
HASPROB(P,D) ;EP
NARR ;
BHPX ;
NUM ;
FAC ;
ADDPROB(AMHDX,AMHP,AMHDLM,AMHCLS,AMHN,AMHFAC,AMHDTE,AMHSTAT,AMHDOO,AMHCLAS,AMHEBU,AMHEC1,AMHEC2,AMHEC3) ;PEP called to non-interactively add a problem to the pcc problem list
CLASS ;
RNO1 ;EP - called from AMHBPL1 - remove a note
MN1 ;EP - called to modify a note
DLM ;
P
CHKNARR(D) ;
CLS ;
AP ;EP
FILE ;
NO12
DELPROB(P,REASON,OTHER) ;PEP called to delete a problem from the PCC Problem list
NO1 ;EP
NMBR ;calculate new number
NOX ;
BHP ;EP - called from protocol

External References

Name Field # of Occurrence
PLUDE^AMHAPRB NOX+1, RSURE+5, MSURE+2
DDN^AMHBPL1 NO12+4, RNO1+6, MN1+6
EXIT^AMHBPL1 BHPX+1, PCC+6, PCC+7, PCC+11
GETPROB^AMHBPL1 BHP+5
PAUSE^AMHBPL1 NUM+6, BHP+6, BHP+11
$$GETNUM^AMHLETN NUM+1
EN^AMHPL PCC+10
^AMHPROB BHP+12
$$PRIMPROV^AMHUTIL NOX+1, RSURE+5, MSURE+2
^AUPNPAT P+4
FILE^DICN NUM+4, FILE+5
^DIE NUM+9, NOX+1, RSURE+4, RSURE+5, MSURE+1, MSURE+2, BHP+25, DELPROB+13
CHK^DIE DX+2, DLM+2, CLS+3, DTE+2, STATUS+2, DOO+2, CLASS+3, CLASS+5, CLASS+7
EN^DIQ NO12+3, RNO1+5, MN1+5
^DIR NO12+6, RNO1+9, RSURE+1, MN1+9, BHP+18, PCC+5
FULL^VALM1 BHP+1, PCC+1
$$VAL^XBDIQ1 HASPROB+5
EN^XBNEW ADDPROB+31
$$FMTE^XLFDT DLM+1, DTE+1
$$NOW^XLFDT NOX+1, RSURE+5, MSURE+2

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 BH Problem List.",!
  • Line Location: NO12+1
Function Call: WRITE
  • Prompt: !,AMHBHPL(X,0)
  • Line Location: NO12+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NO12+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NUM+2
Function Call: WRITE
  • Prompt: !,"error creating note entry"
  • Line Location: NUM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NUM+7
Function Call: WRITE
  • Prompt: !!,"Editing a Note on the following problem on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s BH Problem List.",!
  • Line Location: RNO1+4
Function Call: WRITE
  • Prompt: !?8,"No notes on file for this problem"
  • Line Location: RNO1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RNO1+9
Function Call: WRITE
  • Prompt: !,"Okay, bye."
  • Line Location: RNO1+10
Function Call: WRITE
  • Prompt: !,"No Note selected"
  • Line Location: RNO1+11
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+4
Function Call: WRITE
  • Prompt: !!,"Editing a Note on the following problem on ",$P($P(^DPT(DFN,0),U),",",2)," ",$P($P(^(0),U),","),"'s BH Problem List.",!
  • Line Location: MN1+4
Function Call: WRITE
  • Prompt: !?8,"No notes on file for this problem"
  • Line Location: MN1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MN1+9
Function Call: WRITE
  • Prompt: !,"Okay, bye."
  • Line Location: MN1+10
Function Call: WRITE
  • Prompt: !,"No Note selected"
  • Line Location: MN1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MSURE+1
Function Call: WRITE
  • Prompt: !!,"You do not have security access to the PCC Problem List. Please see your",!,"supervisor or program manager. The security Key is AMHZ PCC PROBLEM LIST.",!
  • Line Location: BHP+2
Function Call: WRITE
  • Prompt: !!,"Please select the problem entry to add to the PCC Problem List."
  • Line Location: BHP+3
Function Call: WRITE
  • Prompt: !!,"This code is administrative in nature and cannot be added to the PCC ",!,"Problem List.",!
  • Line Location: BHP+11
Function Call: WRITE
  • Prompt: !!,AMHDSM9," is already on this patient's PCC Problem List."
  • Line Location: BHP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: BHP+18
Function Call: WRITE
  • Prompt: !,"okay, not added."
  • Line Location: BHP+19
Function Call: WRITE
  • Prompt: !,"Okay, not added."
  • Line Location: BHP+20
Function Call: WRITE
  • Prompt: !,"Error updating PCC Problem List...Notify Help Desk."
  • Line Location: BHP+22
Function Call: WRITE
  • Prompt: !,"This is the only narrative the rest of the medical community will see",!,"on the Health Summary for this problem. You may change it now if desired.",!
  • Line Location: BHP+24
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to the PCC Problem List. Please see your",!,"supervisor or program manager. The security Key is AMHZ PCC PROBLEM LIST.",!
  • Line Location: PCC+2
Function Call: WRITE
  • Prompt: !!,"You are now leaving the Behavioral Health Problem List and will be taken"
  • Line Location: PCC+3
Function Call: WRITE
  • Prompt: !,"into the PCC Problem List for viewing.",!!
  • Line Location: PCC+4
Routine Call
  • DIE
  • Line Location:
    • NUM+9
    • NOX+1
    • RSURE+4
    • RSURE+5
    • MSURE+1
    • MSURE+2
    • BHP+25
    • DELPROB+13
Routine Call
  • DIE
  • Line Location:
    • DX+2
    • DLM+2
    • CLS+3
    • DTE+2
    • STATUS+2
    • DOO+2
    • CLASS+3
    • CLASS+5
    • CLASS+7
Routine Call
  • DIR
  • Line Location:
    • NO12+6
    • RNO1+9
    • RSURE+1
    • MN1+9
    • BHP+18
    • PCC+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPROB - [#9000011] Classic Fileman Calls,  CHK^DIE
^AMHPPROB - [#9002011.51] Classic Fileman Calls
^AMHPTP - [#9002011.53] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPPROB - [#9002011.51] BHP+7, BHP+13, BHP+16, BHP+21
^AMHPROB - [#9002012.2] BHP+8, BHP+9, BHP+10, BHP+14, BHP+15
^AUPNPAT - [#9000001] P+3
^AUPNPROB - [#9000011] HASPROB+4, DELPROB+7
^AUPNPROB("AA" NMBR+1
^AUPNPROB("AC" HASPROB+3
^AUTNPOV - [#9999999.27] CHKNARR+4
^AUTTLOC - [#9999999.06] FAC+2
^DD(9999999.27 CHKNARR+7
^DPT - [#2] NO12+1, RNO1+4, MN1+4, P+1, P+2

Label References

Name Line Occurrences
$$ADDPROB BHP+21
$$CHKNARR NARR+2
$$HASPROB BHP+17
BHPX BHP+6, BHP+11, BHP+19, BHP+20, BHP+22
CLASS DOO+1
DOO STATUS+1
NO12 NUM+11
NOX NO12+7, NO12+8, NUM+6
RNO1X RNO1+8, RNO1+10, RNO1+11, RSURE+2, RSURE+3, MN1+8, MN1+10, MN1+11

Naked Globals

Name Field # of Occurrence
^(0 NO12+1, RNO1+4, MN1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AP+1~, DX+2, DX+3, DLM+2, CLS+3, DTE+2, STATUS+2, DOO+2, CLASS+3, CLASS+5
, CLASS+7, CHKNARR+1~
%FDA AP+1~
>> AMHALVR FILE+1*
AMHAUTH NO1+1~, RNO1+1~, MN1+1~
AMHC NOX+2!, RNO1+3!, RNO1+9, MN1+3!, MN1+9
AMHCLAS ADDPROB~, CLASS+1*, FILE+3
AMHCLS ADDPROB~, CLS+1*, CLS+2, CLS+3, FILE+3
AMHDLM ADDPROB~, DLM+1*, DLM+2, FILE+3
AMHDOO ADDPROB~, DOO+1*, DOO+2, FILE+3
>> AMHDSM0 BHP+10*, BHP+11
AMHDSM9 BHP+4~, BHP+9*, BHP+11, BHP+15*, BHP+17, BHP+21
AMHDSME BHP+4~, BHP+8*, BHP+14*, BHP+18
AMHDSMI BHP+4~, BHP+7*, BHP+8, BHP+9, BHP+10, BHP+13*, BHP+14, BHP+15
AMHDTE ADDPROB~, DTE+1*, DTE+2, FILE+3
AMHDX ADDPROB~, DX+1, DX+2, DX+3*, FILE+2
AMHEBU ADDPROB~, FILE+3
AMHEC1 ADDPROB~, CLASS+2*, CLASS+3, FILE+4
AMHEC2 ADDPROB~, CLASS+4*, CLASS+5, FILE+4
AMHEC3 ADDPROB~, CLASS+6*, CLASS+7, FILE+4
AMHERR ADDPROB+29~, ADDPROB+30*, ADDPROB+32, P*, P+1*, P+2*, P+3*, DX+1*, DX+2*, DLM+2*
, CLS+2, CLS+3*, NARR+1*, NARR+2*, FAC+2*, DTE+2*, STATUS+2*, DOO+2*, CLASS+3*, CLASS+5*
, CLASS+7*, FILE+6*
AMHFAC ADDPROB~, FAC+1*, FAC+2, NMBR+1, FILE+3
AMHL NOX+2!, RNO1+3!, RNO1X+1!, MN1+3!, MNO1X+1!
AMHN NOX+2!, RNO1+3!, RNO1X+1!, MN1+3!, MNO1X+1!, BHP+4~, BHP+16*, BHP+21, ADDPROB~, NARR+1
, NARR+2, FILE+3
AMHNIEN NUM+8*, NUM+9, NOX+2!
>> AMHNMBR NMBR+2*, FILE+3
AMHNNUM NO1+1~, NUM+1*, NUM+3, NOX+2!, RNO1+1~, MN1+1~
AMHNOTES NO1+1~, RNO1+1~, RNO1+8, MN1+1~, MN1+8, MNO1X+1!
AMHNOTES( RNO1+12, MSURE+1
>> AMHOVRR FILE+1*
AMHP ADDPROB~, P, P+1, P+2, P+3, P+4, NMBR+1, FILE+3
>> AMHPAT NUM+3, NOX+1, RSURE+5, MSURE+2, BHP+17, BHP+21, PCC+9
AMHPIEN NO12+3, NUM+1, NUM+3, NOX+1, RNO1+5, RSURE+5, RNO1X+1!, MN1+5, MSURE+2, MNO1X+1!
, BHP+4~, BHP+6, BHP+7, BHP+13, BHP+16, BHP+21
AMHPLI BHP+4~, BHP+23*, BHP+25, ADDPROB+32, FILE+7*
>> AMHR NOX+1, RSURE+5, MSURE+2
AMHRN RNO1+1~, RNO1+12*, RSURE+4
AMHSTAT ADDPROB~, STATUS+1*, STATUS+2, FILE+3
AMHTDOI NO1+1~, RNO1+1~, MN1+1~
AMHTEMP BHP+4~
AMHTN NO1+1~, RNO1+1~, MN1+1~
AMHTNDF NO1+1~, RNO1+1~, MN1+1~
AMHTQ NO1+1~, RNO1+1~, MN1+1~
AMHTTPT NO1+1~, RNO1+1~, MN1+1~
AMHUPV NO1+1~, NO1+2*, NUM+10*, NOX+1
AMHX RNO1+3!, RNO1X+1!, MN1+3!, MNO1X+1!
AMHY RNO1X+1!, MN1+12*, MNO1X+1!
D HASPROB~, HASPROB+5, CHKNARR~, CHKNARR+3*, CHKNARR+4, CHKNARR+7
DA NO12+3*, NO12+6!, NUM+5!, NUM+9*!, NOX+1*!, NOX+2!, RNO1+5*, RSURE+4*!, RSURE+5*!, MN1+5*
, MSURE+1*!, MSURE+2*!, BHP+25*!, DELPROB+5~, DELPROB+10*, DELPROB+13!, PCC+5!
DD NOX+2!, FILE+5!
>> DFN NO12+1, RNO1+4, MN1+4, PCC+9*
DIADD NUM+3*, NUM+5!, NOX+2!, FILE+2*, FILE+5!
DIC NO12+3*, NUM+3*, NUM+5!, NOX+2!, RNO1+5*, MN1+5*, FILE+2*, FILE+5!
DIC("DR" NUM+3*, FILE+3*, FILE+4*
DIC(0 NUM+3*, FILE+2*
DIE NUM+9*!, NOX+1*!, RSURE+4*!, RSURE+5*!, MSURE+1*!, MSURE+2*!, BHP+25*!, DELPROB+5~, DELPROB+11*, DELPROB+13!
DIR NO12+6!, RNO1+9!, RSURE+1!, MN1+9!, BHP+18!, PCC+5!
DIR("A" NO12+6*, RNO1+9*, RSURE+1*, MN1+9*, BHP+18*, PCC+5*
DIR("B" NO12+6*, RSURE+1*, BHP+18*, PCC+5*
DIR(0 NO12+6*, RNO1+9*, RSURE+1*, MN1+9*, BHP+18*, PCC+5*
>> DIRUT NO12+7, RNO1+9*, RNO1+10, RSURE+1*, RSURE+2, MN1+9*, MN1+10, BHP+18*, BHP+19, PCC+6
DLAYGO NUM+3*, NUM+5!, FILE+2*, FILE+5!
DO FILE+5!
DR NUM+9*!, NOX+1*!, NOX+2!, RSURE+4*!, RSURE+5*!, MSURE+1*!, MSURE+2*!, BHP+25*!, FILE+5!, DELPROB+5~
, DELPROB+12*, DELPROB+13!
DT NUM+3, DLM+1, DTE+1
>> DUOUT RNO1+9, RSURE+1, MN1+9, BHP+18
DUZ NOX+1, RSURE+5, MSURE+2, FILE+3, DELPROB+12
DUZ(2 FAC+1
F AP+1~, CHKNARR+1~, CHKNARR+2*, CHKNARR+3, CHKNARR+4*, CHKNARR+8*, CHKNARR+9
G HASPROB+1~, HASPROB+2*, HASPROB+5*, HASPROB+6
IEN AP+1~
IOF NO12, RNO1+2, MN1+2
L NOX+2!
OTHER DELPROB~, DELPROB+9*, DELPROB+12
P HASPROB~, HASPROB+3, DELPROB~, DELPROB+6, DELPROB+7, DELPROB+10
REASON DELPROB~, DELPROB+8*, DELPROB+12
U NO12+1, RNO1+4, MN1+4, BHP+7, BHP+8, BHP+9, BHP+10, BHP+13, BHP+14, BHP+15
, BHP+16, BHP+21, BHP+23, HASPROB+4, ADDPROB+32, P+2, CHKNARR+7
X NO1+1~, NUM+3*, NOX+2!, RNO1+1~, MN1+1~, BHP+21*, BHP+22, BHP+23, HASPROB+1~, HASPROB+3*
, HASPROB+4, HASPROB+5, NMBR+1~*, NMBR+2, FILE+2*, CHKNARR+7*, CHKNARR+8
Y NO1+1~, NO12+8, NUM+6, NUM+8, NOX+2!, RNO1+1~, RNO1+11, RNO1+12, RSURE+3, RSURE+4!
, MN1+1~, MN1+11, MN1+12, MSURE+1!, BHP+20, P+4*, NMBR+1~*!, FILE+6, FILE+7, DELPROB+14
, PCC+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All