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

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

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

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

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

Customize PDF page

Package: Mental Health Social Services

Routine: AMHBPL2

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: