Routine: AMHBPL1

Package	Total	Call Graph
Mental Health Social Services	6	PLUDE^AMHAPRB (GATHER,HDR)^AMHBPL (MN1,NO1,RNO1)^AMHBPL2 $$GETNUM^AMHLETN $$PRIMPROV^AMHUTIL $$DATE^AMHVRL
VA Fileman	6	^DIC FILE^DICN ^DIE ^DIK EN^DIQ ^DIR
IHS VA Utilities	3	($$VAL,$$VALI,ENP)^XBDIQ1 ^XBFMK VIEWR^XBLM
Registration	2	TERM^VALM0 FULL^VALM1
IHS Patient	1	^AUPNPAT
Kernel	1	($$FMADD,$$NOW)^XLFDT

Package	Total	Caller Graph
Mental Health Social Services	2	AMHBPL2 AMHBPL3

Entry Points

Name	Comments	DBIA/ICR reference
STAT	;get status value
FS	;EP -called from protcol to display face sheet
ADD1	;
DIE	;
DD	;EP - called from protocol to display (DIQ) a problem in detail
DEL	;EP - called from protocol to delete a problem on problem list
ACT	;EP - called from protocol to activate an inactive problem
NO	;
DD1	;
KDIE	;kill all vars used by DIE
LBLK(V,L)	;left blank fill
HS	;EP - called from protocol to display health summary
INACT	;EP - called from protocol to inactivate an active problem
PAUSE	;EP
DELMOD	;
AN	;EP - add a note, called from protocol
ADD	;EP - called from protocol to add a problem to problem list
DDN	;EP
GETNUM(P)	;EP - get problem number given ien of problem entry
DELADD	;
RNO	;EP - called from protocol to remove a note
EDIT	;EP - called from protocol to modify a problem on problem list
MN	;EP - called from protocol to modify a note
DSPN	; DISPLAY SINGLE NOTE
GETPROB	;EP - get record
EXIT	;EP

External References

Name	Field # of Occurrence
PLUDE^AMHAPRB	NO+3, NO+4, EDIT+20, DEL+19, ACT+10, INACT+10
GATHER^AMHBPL	EXIT+3
HDR^AMHBPL	EXIT+5
MN1^AMHBPL2	MN+4
NO1^AMHBPL2	AN+4
RNO1^AMHBPL2	RNO+4
$$GETNUM^AMHLETN	NO+5
$$PRIMPROV^AMHUTIL	NO+3, NO+4, EDIT+20, DELMOD+7, DEL+13, DEL+19, ACT+10, INACT+10
$$DATE^AMHVRL	DSPN+4
^AUPNPAT	HS+11
^DIC	HS+6
FILE^DICN	ADD1+8, NO+8
^DIE	DIE+2, ADD1+13, STAT+5, NO+13, EDIT+13, EDIT+16, DELMOD+4, DELMOD+5, DELMOD+8, DELMOD+10 , DEL+16
^DIK	STAT+2
EN^DIQ	DEL+6
^DIR	GETPROB+3, ADD+22, ADD+28, STAT+1, NO+2, DELADD+3, EDIT+9, DELMOD+3, DELMOD+7, DEL+9 , DEL+13, PAUSE+1
TERM^VALM0	EXIT+1
FULL^VALM1	GETPROB+8, ADD+1, HS+2, FS+1
$$VAL^XBDIQ1	ADD+11, ADD+13, ADD+14, DELMOD+4, DELMOD+5, DELMOD+8, DSPN+5, DSPN+6, DSPN+8
$$VALI^XBDIQ1	ADD+13
ENP^XBDIQ1	DD1+2
^XBFMK	DEL+20, AN+5, MN+5
VIEWR^XBLM	HS+10, DD+4, FS+3
$$FMADD^XLFDT	ADD+10
$$NOW^XLFDT	ADD1+7, EDIT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No problems to select" Line Location: GETPROB+2
Function Call: WRITE	Prompt: !!,"No Problem Selected" Line Location: GETPROB+4
Function Call: WRITE	Prompt: !,"Not a valid BEHAVIORAL HEALTH PROBLEM." Line Location: GETPROB+7
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: ADD+2
Function Call: WRITE	Prompt: !!!,"Adding a new BH Problem for ",$P(^DPT(AMHBPLPT,0),U),".",!! Line Location: ADD+2
Function Call: WRITE	Prompt: "Purpose of Visit Diagnoses assigned to this patient in the past 90 days:",! Line Location: ADD+3
Function Call: WRITE	Prompt: $$LBLK(AMHC,3),") ","Any Other Diagnosis",! Line Location: ADD+21
Function Call: WRITE	Prompt: !!,"No diagnosis selected. " Line Location: ADD+23
Function Call: WRITE	Prompt: !! Line Location: ADD+27
Function Call: WRITE	Prompt: !!,"No diagnosis selected. " Line Location: ADD+29
Function Call: WRITE	Prompt: !!,"error generating problem entry" Line Location: ADD1+9
Function Call: WRITE	Prompt: !!,"This is a required response, must be A or I, ""^"" to exit and delete the problem." Line Location: STAT+3
Function Call: WRITE	Prompt: !! Line Location: NO+1
Function Call: WRITE	Prompt: ! Line Location: NO+6
Function Call: WRITE	Prompt: !,"error creating note entry" Line Location: NO+10
Function Call: WRITE	Prompt: ! Line Location: NO+11
Function Call: WRITE	Prompt: !!,"Problem list entry is incomplete, it will be deleted." Line Location: DELADD+2
Function Call: WRITE	Prompt: ! Line Location: DELADD+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: EDIT+7
Function Call: WRITE	Prompt: !,"Editing Problem ... ",!! Line Location: EDIT+7
Function Call: WRITE	Prompt: !!,"^ing out...no editing logged." Line Location: EDIT+10
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to delete a BH Problem without",!,"entering a reason for the deletion." Line Location: DELMOD+2
Function Call: WRITE	Prompt: ! Line Location: DELMOD+3
Function Call: WRITE	Prompt: !,"okay, not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12) Line Location: DELMOD+4
Function Call: WRITE	Prompt: !,"okay, not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12) Line Location: DELMOD+5
Function Call: WRITE	Prompt: !!,"This is required." Line Location: DELMOD+8
Function Call: WRITE	Prompt: !," Problem not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12) Line Location: DELMOD+8
Function Call: WRITE	Prompt: ! Line Location: DELMOD+11
Function Call: WRITE	Prompt: !!,"Deleting the following BH Problem from ",$P($P(^DPT(AMHPAT,0),U),",",2)," ",$P($P(^(0),U),","),"'s BH Problem List.",! Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to delete a BH Problem without",!,"entering a reason for the deletion." Line Location: DEL+8
Function Call: WRITE	Prompt: ! Line Location: DEL+9
Function Call: WRITE	Prompt: !,"okay, not deleted." Line Location: DEL+10
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: DEL+11
Function Call: WRITE	Prompt: !!,"This is required." Line Location: DEL+14
Function Call: WRITE	Prompt: ! Line Location: DEL+17
Function Call: WRITE	Prompt: !!,"That problem is already ACTIVE!!" Line Location: ACT+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: ACT+7
Function Call: WRITE	Prompt: !,"Activating BH Problem ... " Line Location: ACT+7
Function Call: WRITE	Prompt: !!,"That BH Problem is already INACTIVE!!",! Line Location: INACT+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: INACT+7
Function Call: WRITE	Prompt: !,"Inactivating BH Problem ... " Line Location: INACT+7
Function Call: WRITE	Prompt: !,"Notes: " Line Location: DDN+4
Function Call: WRITE	Prompt: !!?3,AMHC,")",?7,"Date Added: ",AMHTDOI,?30,"Author: "_AMHAUTH Line Location: DSPN+7
Function Call: WRITE	Prompt: !?3,"Note Narrative: "_$$VAL^XBDIQ1(9002011.53,X,.04) Line Location: DSPN+8
Function Call: WRITE	Prompt: !?3,AMHTTPT_" TERM TREATMENT" Line Location: DSPN+9
Routine Call	DIE Line Location: DIE+2 ADD1+13 STAT+5 NO+13 EDIT+13 EDIT+16 DELMOD+4 DELMOD+5 DELMOD+8 DELMOD+10 DEL+16
Routine Call	DIC Line Location: HS+6
Routine Call	DIR Line Location: GETPROB+3 ADD+22 ADD+28 STAT+1 NO+2 DELADD+3 EDIT+9 DELMOD+3 DELMOD+7 DEL+9 DEL+13 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCHSCTL - [#9001015]	Classic Fileman Calls
^AMHPPROB - [#9002011.51]	Classic Fileman Calls
^AMHPTP - [#9002011.53]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPROB - [#9002011.51]	GETPROB+7, EDIT+4, EDIT+5, EDIT+12, EDIT+16, EDIT+18, ACT+5, INACT+5, GETNUM+4, GETNUM+5 , GETNUM+6
^AMHPPROB("AA"	ADD1+2
^AMHPROB - [#9002012.2]	ADD1+11, EDIT+9, EDIT+16
^AMHPTP - [#9002011.53]	DSPN+3
^AMHPTP("AE"	DDN+3, DDN+5, DSPN+1
^AMHREC - [#9002011]	ADD+9
^AMHRPRO - [#9002011.01]	ADD+7, ADD+8, ADD+12
^AMHRPRO("AC"	ADD+6
^APCCCTRL - [#9001000]	HS+3
^APCHSCTL - [#9001015]	HS+3, HS+4
^AUTTLOC - [#9999999.06]	GETNUM+6
^DD(9002011.51	DD1+4
^DISV(	HS+4
^DPT - [#2]	ADD+2, DEL+5, HS+9, FS+2

Label References

Name	Line Occurrences
$$LBLK	ADD+18, ADD+21
ADD1	ADD+25
DELADD	STAT+2
DELMOD	EDIT+18
DIE	EDIT+17, ACT+8, INACT+8
DSPN	DDN+5
EXIT	ADD+23, ADD+29, ADD1+9, STAT+2, NO+3, NO+4, NO+10, EDIT+3, EDIT+10, EDIT+21 , DEL+3, DEL+10, DEL+11, DEL+14, DEL+20, AN+3, AN+5, MN+3, MN+5, RNO+3 , RNO+5, ACT+4, ACT+5, ACT+11, INACT+4, INACT+5, INACT+11, HS+7, HS+13, DD+3 , DD+5, FS+5
GETPROB	EDIT+2, DEL+2, AN+2, MN+2, RNO+2, ACT+3, INACT+3, DD+2
KDIE	ADD1+13, STAT+5, EXIT+7
NO	NO+14
PAUSE	ADD+23, ADD+29, ADD1+9, STAT+2, NO+10, EDIT+3, EDIT+10, DELMOD+4, DELMOD+5, DELMOD+8 , DEL+3, DEL+10, DEL+11, DEL+14, DEL+20, AN+3, MN+3, MN+5, RNO+3, RNO+5 , ACT+4, ACT+5, INACT+4, INACT+5, HS+7, DD+3
STAT	STAT+2, STAT+3

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	HS+4
^(0	DEL+5, HS+3, HS+4, GETNUM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KDIE+1!, LBLK+1~, LBLK+2*
AGDENT	FS+4!
AGMVDF	FS+4!
AGOPT	FS+4!
AMCHDAYS	HS+12!
AMCHDOB	HS+12!
AMHAF	EXIT+6!
AMHANS	ADD+4~, ADD+24, ADD+25, STAT+4, STAT+5
AMHAPIEN	ADD+4~, ADD1+10*, ADD1+13, STAT+2, STAT+5, NO+3, NO+4, NO+5, NO+7
AMHAR	DD1+2~
AMHAR(	DD1+3, DD1+5
AMHAUTH	DD+1~, DSPN+6*, DSPN+7
>> AMHBHPL("IDX"	GETPROB+6
>> AMHBPLPT	ADD+2, HS+9
AMHC	ADD+4~, ADD+5, ADD+17, ADD+18, ADD+19, ADD+20, ADD+21, ADD+22, DDN+2, DSPN+2* , DSPN+7, DSPN+10
AMHCODE	ADD+4~, ADD+25, ADD+26, ADD+30*, ADD1+6, ADD1+11
>> AMHDATE	ACT+2, INACT+2
>> AMHDEL	STAT+2, DELADD+1, DELADD+6
AMHF	EXIT+6!
AMHH	DD1+2~, DD1+4*, DD1+6
AMHHDR	HS+1~, HS+9, HS+10, HS+12!, FS+2, FS+3, FS+4!
>> AMHLINE	EXIT+4
AMHNARR	ADD+4~, ADD1+11*, ADD1+13
AMHNDT	ACT+1~, ACT+2, INACT+1~, INACT+2
AMHNEWC	EDIT+1~, EDIT+11, EDIT+12, EDIT+13
AMHNIEN	ADD+4~, NO+12*, NO+13
AMHNNUM	ADD+4~, NO+5*, NO+7
AMHNOTES	DDN+1!
AMHNOTES(	DSPN+10*
AMHNUM	ADD+4~, ADD1+2, ADD1+3, ADD1+4, ADD1+5, ADD1+7
AMHOLDD	EDIT+1~, EDIT+5*, EDIT+9, EDIT+16
AMHOLDS	EDIT+1~, EDIT+4*, DELMOD+4, DELMOD+5, DELMOD+8
AMHOTH	ADD+4~, ADD+20*, ADD+25
>> AMHOVRR	ADD1+12*
AMHP	GETPROB+5*, GETPROB+6, GETPROB+7!, EXIT+6!
AMHP0	EXIT+6!
>> AMHPAT	ADD+6, ADD1+2, ADD1+7, NO+3, NO+4, NO+7, EDIT+20, DEL+5, DEL+19, ACT+10 , INACT+10, HS+8, HS+11, FS+2
AMHPIEN	DIE+2, GETPROB+1, GETPROB+6, GETPROB+7*, EDIT+1~, EDIT+3, EDIT+4, EDIT+5, EDIT+12, EDIT+13 , EDIT+16, EDIT+18, EDIT+19, EDIT+20, DELMOD+4, DELMOD+5, DELMOD+8, DELMOD+10, DEL+1~, DEL+3 , DEL+6, DEL+16, DEL+18, DEL+19, AN+1~, AN+3, MN+1~, MN+3, RNO+1~, RNO+3 , ACT+1~, ACT+4, ACT+5, ACT+9, ACT+10, INACT+1~, INACT+4, INACT+5, INACT+9, INACT+10 , DD+1~, DD+3, DD1+2, DDN+3, DDN+5, DSPN+1, EXIT+6!
AMHPOVS	ADD+4~
AMHPOVS(	ADD+15*, ADD+16, ADD+18, ADD+19
AMHPOVS1	ADD+4~
AMHPOVS1(	ADD+19*, ADD+25
AMHPRB	EXIT+6!
>> AMHPRCNT	GETPROB+2, GETPROB+3
AMHPRMT	EXIT+6!
>> AMHPRV	DELMOD+9, DEL+15
>> AMHR	NO+3, NO+4, EDIT+20, DELMOD+7, DEL+13, DEL+19, ACT+10, INACT+10
AMHTDOI	DD+1~, DSPN+4*, DSPN+7
AMHTEMP	DIE+2, EDIT+1~, EDIT+6, ACT+6, INACT+6*, EXIT+6!
AMHTN	DD+1~, DSPN+3*, DSPN+4
AMHTNDF	DD+1~, DDN+5*, DSPN+1
AMHTNRQ	DD+1~
>> AMHTQ	DDN+5*
AMHTTPT	DD+1~, DSPN+5*, DSPN+9
AMHTY	ADD+4~, ADD1+2*, ADD1+3
AMHZ	DD1+2~, DD1+5*, DD1+6
ANHPRV	DEL+1~
>> APCDOVRR	ADD1+12*
APCHSMTY	HS+12!
APCHSPAT	HS+8*, HS+12!
APCHSTAT	HS+12!
APCHSTYP	HS+8*, HS+12!
D	ADD+4~, ADD+8, ADD+9, ADD+10
D0	KDIE+1!, ADD1+1!, ADD1+8!, HS+6!
D1	HS+6!
DA	DIE+2, KDIE+1!, GETPROB+3!, ADD+22!, ADD+28!, ADD1+1!, ADD1+13, STAT+1!, STAT+2!, STAT+5 , NO+2!, NO+9!, NO+13!, EDIT+9!, EDIT+13!, EDIT+16!, EDIT+19, DELMOD+4!, DELMOD+5!, DELMOD+7! , DELMOD+8!, DELMOD+10!, DEL+6, DEL+13!, DEL+16!, DEL+18, ACT+9, INACT+9*, HS+6!
DD	ADD1+1!, HS+6!
>> DFN	HS+11*
DI	KDIE+1!
DIADD	ADD1+1!, ADD1+6, ADD1+8!, NO+7, NO+9!
DIC	ADD1+1!, ADD1+6, ADD1+8!, NO+7, NO+9!, DEL+6, HS+6!
DIC("B"	HS+6*
DIC("DR"	ADD1+7, NO+7
DIC(0	ADD1+6, NO+7, HS+6*
DIE	DIE+2, KDIE+1!, ADD1+8!, ADD1+13, STAT+5, NO+13!, EDIT+13!, EDIT+16!, DELMOD+4!, DELMOD+5! , DELMOD+8!, DELMOD+10!, DEL+16*!
DIE("NO^"	DIE+1, ADD1+13, EDIT+13*
DIK	STAT+2*!
DINUM	ADD1+1!
DIR	GETPROB+3!, ADD+22!, ADD+28!, STAT+1!, NO+2!, DELADD+3!, EDIT+9!, DELMOD+3!, DELMOD+7!, DEL+9! , DEL+13!, PAUSE+1!
DIR("A"	GETPROB+3, ADD+22, ADD+28, STAT+1, NO+2, DELADD+3, EDIT+9, DELMOD+3, DELMOD+6, DEL+9 , DEL+12, PAUSE+1
DIR("B"	ADD+22, STAT+1, NO+2, DELADD+3, EDIT+9, DELMOD+3, DELMOD+7, DEL+9, DEL+13*
DIR(0	GETPROB+3, ADD+22, ADD+28, STAT+1, NO+2, DELADD+3, EDIT+9, DELMOD+3, DELMOD+6, DEL+9 , DEL+12, PAUSE+1
>> DIRUT	GETPROB+4, ADD+23, ADD+29, STAT+2, NO+3, DELADD+3, DELADD+4, EDIT+10, DELMOD+3, DELMOD+4 , DELMOD+8, DEL+9, DEL+10, DEL+14, PAUSE+1
DIU	KDIE+1!
DIV	KDIE+1!
DIW	KDIE+1!
DIY	KDIE+1!
DLAYGO	KDIE+1!, ADD1+6, ADD1+8!, NO+7, NO+9!
DO	KDIE+1!, ADD1+1!
DQ	KDIE+1!, HS+6!
DR	DIE+2, KDIE+1!, ADD1+1!, ADD1+8!, ADD1+13, STAT+5, NO+13!, EDIT+13!, EDIT+16!, DELMOD+4!* , DELMOD+5!, DELMOD+8!, DELMOD+10!, DEL+16!, HS+6!
DT	ADD+10, NO+7
>> DUOUT	DELADD+3, DELMOD+3, DEL+9, PAUSE+1
DUZ	ADD1+7, HS+4
DUZ(2	ADD1+7, HS+3
F	DD1+2~, DD1+3, DD1+4, DD1+5, GETNUM+1~, GETNUM+5, GETNUM+6
I	ADD+12, ADD+15, LBLK+1~, LBLK+2
IOF	ADD+2, EDIT+7, DEL+4, ACT+7, INACT+7
L	LBLK~, LBLK+2
N	ADD+4~, ADD+13, ADD+15, GETNUM+1~, GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+6*, GETNUM+7
P	ADD+4~, ADD+14*, ADD+15, GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6
U	ADD+2, ADD+8, ADD+9, ADD+12, ADD+15, ADD+18, ADD+25, ADD1+11, EDIT+4, EDIT+5 , EDIT+9, EDIT+12, EDIT+16, EDIT+18, DEL+5, ACT+5, INACT+5, HS+3, HS+4, HS+9 , DD1+4, DSPN+4, FS+2, GETNUM+5, GETNUM+6
V	LBLK~, LBLK+2*, LBLK+3
>> VALMBCK	EXIT+2*
>> VALMCNT	EXIT+4*
X	GETPROB+6, ADD+4~, ADD+6, ADD+7, ADD+8, ADD+11, ADD+12, ADD+13, ADD+14, ADD1+6* , ADD1+8!, NO+7, HS+3, HS+4, HS+5, HS+6, DSPN+1*, DSPN+3, DSPN+5, DSPN+6 , DSPN+8, DSPN+10
Y	GETPROB+5, GETPROB+6, ADD+4~, ADD+11, ADD+15, ADD+16, ADD+18, ADD+19, ADD+24, ADD+30 , ADD1+9, ADD1+10, STAT+3, STAT+4, NO+4, NO+10, NO+12, DELADD+5, EDIT+11, DELMOD+5 , DELMOD+9, DEL+11, DEL+15, HS+4, HS+7, HS+8, HS+11*
>> Z	LBLK+2*

Customize PDF page

Package: Mental Health Social Services

Routine: AMHBPL1

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: