Routine: AMHPL1

Package	Total	Call Graph
Mental Health Social Services	4	(NAPPCC,PLRPCC,PLUPCC)^AMHAPRB (MN1,NO1,RNO1)^AMHPL2 $$PRIMPROV^AMHUTIL $$IMP^AMHUTIL2
VA Fileman	3	^DIC ^DIE ^DIR
DRG Grouper	2	$$CODEN^ICDCODE ($$CODEN,ICDDX)^ICDEX
IHS VA Utilities	2	^XBFMK (DIQ,VIEWR)^XBLM
Registration	2	TERM^VALM0 FULL^VALM1
IHS Patient	1	^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
ANYACTP(P,EDATE)	;EP - does this patient have any active problems IN PCC?
PLRDE1	;EP - called from xbnew
FS	;EP -called from protcol to display face sheet
HS	;EP - called from protocol to display health summary
DD	;EP - called from protocol to display (DIQ) a problem in detail
NAP	;EP - called from protocol to DOCUMENT NO ACTIVE PROBLEMS IN PCC
DEL	;EP - called from protocol to delete a problem on problem list
ANYACTBP(P,EDATE)	;EP - does this patient have any active problems IN BH?
ACT	;EP - called from protocol to activate an inactive problem
KDIE	;kill all vars used by DIE
DIE	;
INACT	;EP - called from protocol to inactivate an active problem
PAUSE	;EP
AN	;EP - add a note, called from protocol
ADD	;EP - called from protocol to add a problem to problem list
NAPDE1	;EP - called from xbnew
GETNUM(P)	;EP - get problem number given ien of problem entry
NAPDE1P	;GET PROVIDER
PLRDE1P	;GET PROVIDER
RNO	;EP - called from protocol to remove a note
PLR	;EP - called from protocol to DOCUMENT NO ACTIVE PROBLEMS IN PCC
EDIT	;EP - called from protocol to modify a problem on problem list
MN	;EP - called from protocol to modify a note
GETPROB	;get record
EXIT	;

External References

Name	Field # of Occurrence
NAPPCC^AMHAPRB	NAPDE1P+5
PLRPCC^AMHAPRB	PLRDE1P+5
PLUPCC^AMHAPRB	ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8
MN1^AMHPL2	MN+4
NO1^AMHPL2	AN+4
RNO1^AMHPL2	RNO+4
$$PRIMPROV^AMHUTIL	ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8, NAPDE1P+2, PLRDE1P+2
$$IMP^AMHUTIL2	ADD+10
^AUPNPAT	HS+10
^DIC	ADD+7, HS+5
^DIE	DIE+1, ADD+17, DEL+11
^DIR	GETPROB+3, DEL+8, PAUSE+1, NAP+11, NAPDE1+1, NAPDE1+6, NAPDE1P+2, PLRDE1+1, PLRDE1+6, PLRDE1P+2
$$CODEN^ICDCODE	ADD+11
$$CODEN^ICDEX	ADD+12
ICDDX^ICDEX	ADD+11, ADD+12
TERM^VALM0	EXIT+4
FULL^VALM1	GETPROB+8, ADD+1, DEL+1, HS+1, FS+1, NAP+1, PLR+1
^XBFMK	DEL+14
DIQ^XBLM	DD+4
VIEWR^XBLM	HS+9, FS+3
$$FMTE^XLFDT	NAPDE1+5, PLRDE1+5

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 PCC PROBLEM." Line Location: GETPROB+7
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: ADD+6
Function Call: WRITE	Prompt: !,"Adding a new problem for ",$P(^DPT(AMHPLPT,0),U),".",!! Line Location: ADD+6
Function Call: WRITE	Prompt: !!,"No diagnosis code selected." Line Location: ADD+8
Function Call: WRITE	Prompt: !!,"no icd code mapped to that code." Line Location: ADD+13
Function Call: WRITE	Prompt: ! Line Location: ADD+18
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: EDIT+6
Function Call: WRITE	Prompt: !,"Editing Problem ... " Line Location: EDIT+6
Function Call: WRITE	Prompt: ! Line Location: EDIT+8
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to delete a PCC problem without",!,"entering a reason for the deletion." Line Location: DEL+7
Function Call: WRITE	Prompt: ! Line Location: DEL+8
Function Call: WRITE	Prompt: !,"okay, not deleted." Line Location: DEL+9
Function Call: WRITE	Prompt: !,"Okay, not deleted." Line Location: DEL+10
Function Call: WRITE	Prompt: ! Line Location: DEL+12
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 Problem ... " Line Location: ACT+7
Function Call: WRITE	Prompt: !!,"That problem is already INACTIVE!!",! Line Location: INACT+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: INACT+6
Function Call: WRITE	Prompt: !,"Inactivating Problem ... " Line Location: INACT+6
Function Call: WRITE	Prompt: !,"No action taken." Line Location: NAPDE1+2
Function Call: WRITE	Prompt: !,"No action taken." Line Location: NAPDE1+3
Function Call: WRITE	Prompt: !!,"This is required." Line Location: NAPDE1+7
Function Call: WRITE	Prompt: !!,"Future Dates not allowed.",! Line Location: NAPDE1+8
Function Call: WRITE	Prompt: !!,"This is required." Line Location: NAPDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(AMHRET,U,2) Line Location: NAPDE1P+7
Function Call: WRITE	Prompt: !,"No action taken." Line Location: PLRDE1+2
Function Call: WRITE	Prompt: !,"No action taken." Line Location: PLRDE1+3
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLRDE1+7
Function Call: WRITE	Prompt: !!,"Future Dates not allowed.",! Line Location: PLRDE1+8
Function Call: WRITE	Prompt: !!,"This is required." Line Location: PLRDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(AMHRET,U,2) Line Location: PLRDE1P+7
Routine Call	DIE Line Location: DIE+1 ADD+17 DEL+11
Routine Call	DIC Line Location: ADD+7 HS+5
Routine Call	DIR Line Location: GETPROB+3 DEL+8 PAUSE+1 NAP+11 NAPDE1+1 NAPDE1+6 NAPDE1P+2 PLRDE1+1 PLRDE1+6 PLRDE1P+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPPROB - [#9002011.51]	ANYACTBP+6, ANYACTBP+7, ANYACTBP+8
^AMHPPROB("AC"	ANYACTBP+5
^AMHPROB - [#9002012.2]	ADD+10
^APCCCTRL - [#9001000]	HS+2
^APCHSCTL - [#9001015]	HS+2, HS+3
^AUPNPROB - [#9000011]	GETPROB+7, ACT+5, INACT+4, GETNUM+4, GETNUM+5, GETNUM+6, ANYACTP+6, ANYACTP+7, ANYACTP+8
^AUPNPROB("AC"	ANYACTP+5
^AUTTLOC - [#9999999.06]	GETNUM+6
^DISV(	HS+3
^DPT - [#2]	ADD+6, HS+8, FS+2
^TMP($J	GETPROB+6

Label References

Name	Line Occurrences
$$ANYACTBP	NAP+7
$$ANYACTP	NAP+3
DIE	EDIT+7, ACT+8, INACT+7
EXIT	GETPROB+4, ADD+8, ADD+13, ADD+20, EDIT+3, EDIT+10, DEL+4, DEL+9, DEL+10, DEL+14 , AN+3, AN+5, MN+3, MN+5, RNO+3, RNO+5, ACT+4, ACT+5, ACT+10, INACT+3 , INACT+4, INACT+9, HS+6, HS+12, DD+3, DD+5, FS+5, NAP+6, NAP+7, NAPDE1+2 , NAPDE1+3, NAPDE1P+8, PLRDE1+2, PLRDE1+3, PLRDE1P+8
GETPROB	EDIT+2, DEL+3, AN+2, MN+2, RNO+2, ACT+3, INACT+2, DD+2
KDIE	ADD+17, EXIT+10
NAPDE1	NAPDE1+7, NAPDE1+8, PLRDE1+7, PLRDE1+8
NAPDE1P	NAPDE1P+3, PLRDE1P+3
PAUSE	GETPROB+4, ADD+8, ADD+13, EDIT+3, DEL+4, DEL+9, DEL+10, DEL+14, AN+3, MN+3 , MN+5, RNO+3, RNO+5, ACT+4, ACT+5, INACT+3, INACT+4, HS+6, DD+3, NAP+6 , NAP+7, NAPDE1+2, NAPDE1+3, NAPDE1P+8, PLRDE1+2, PLRDE1+3, PLRDE1P+8

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KDIE+1!
AGDENT	FS+4!
AGMVDF	FS+4!
AGOPT	FS+4!
AMCHDAYS	HS+11!
AMCHDOB	HS+11!
AMHAF	EXIT+9!
>> AMHDATE	ADD+5*, ADD+10, ACT+2, NAPDE1+5, PLRDE1+5
AMHDD	NAP+2~, NAPDE1+9, NAPDE1P+5, PLR+2~, PLRDE1+9, PLRDE1P+5
AMHF	EXIT+9!
AMHHDR	HS+8, HS+9, HS+11!, FS+2, FS+3, FS+4!
>> AMHLOC	ADD+4*
AMHNDT	ACT+1~, ACT+2*, INACT+1~
AMHNOGO	NAP+2~, NAP+7, NAP+9, NAP+12, NAP+13*, PLR+2~
AMHP	GETPROB+5*, GETPROB+6, GETPROB+7!, EXIT+9!
AMHP0	EXIT+9!
>> AMHPAT	ADD+3*, NAP+3, NAP+7
AMHPIEN	DIE+1, GETPROB+1, GETPROB+6, GETPROB+7*, ADD+9~, ADD+19, EDIT+1~, EDIT+3, EDIT+4, EDIT+9 , DEL+2~, DEL+4, DEL+5, DEL+11, DEL+13, AN+1~, AN+3, MN+1~, MN+3, RNO+1~ , RNO+3, ACT+1~, ACT+4, ACT+5, ACT+9, INACT+1~, INACT+3, INACT+4, INACT+8, DD+1~ , DD+3, DD+4, EXIT+9!
>> AMHPLPT	ADD+2, ADD+3, ADD+6, ADD+17, HS+7, HS+8, HS+10, FS+2
AMHPPTR	ADD+9~, ADD+10*, EXIT+9!
AMHPRB	EXIT+9!
AMHPRMT	EXIT+9!
>> AMHPRV	NAPDE1P+4, NAPDE1P+5, PLRDE1P+4, PLRDE1P+5
>> AMHR	ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8, NAPDE1P+2, NAPDE1P+5, PLRDE1P+2, PLRDE1P+5
>> AMHRCNT	GETPROB+2, GETPROB+3
AMHTEMP	DIE+1, EDIT+5, ACT+6, INACT+5*, EXIT+9!
APCDLOOK	ADD+9~, ADD+10, ADD+11, ADD+12, ADD+13, ADD+14, EXIT+9!
APCDOVRR	ADD+15*, EXIT+1!
APCDPIEN	EDIT+4, EDIT+7!, DEL+5, EXIT+3!
APCHSMTY	HS+11!
APCHSPAT	HS+7*, HS+11!
APCHSTAT	HS+11!
APCHSTYP	HS+7*, HS+11!
D0	KDIE+1!, HS+5!
D1	HS+5!
DA	DIE+1, KDIE+1!, GETPROB+3!, ADD+17, DEL+11*!, HS+5!, NAP+11!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2! , PLRDE1+1!, PLRDE1+6!, PLRDE1P+2!
DD	HS+5!
>> DFN	HS+10*
DI	KDIE+1!
DIC	ADD+7, HS+5!
DIC("A"	ADD+7*
DIC("B"	HS+5*
DIC(0	ADD+7, HS+5
DIE	DIE+1, KDIE+1!, ADD+17, DEL+11*!
DIE("NO^"	ADD+17*
DIR	GETPROB+3!, DEL+8!, PAUSE+1!, NAP+10!, NAP+11!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2!, PLRDE1+1!, PLRDE1+6! , PLRDE1P+2!
DIR("?"	NAPDE1+5, PLRDE1+5
DIR("A"	GETPROB+3, DEL+8, PAUSE+1, NAP+11, NAPDE1+1, NAPDE1+4, NAPDE1P+1, PLRDE1+1, PLRDE1+4, PLRDE1P+1
DIR("B"	DEL+8, NAP+11, NAPDE1+1, NAPDE1+5, NAPDE1P+2, PLRDE1+1, PLRDE1+5, PLRDE1P+2
DIR(0	GETPROB+3, DEL+8, PAUSE+1, NAP+11, NAPDE1+1, NAPDE1+4, NAPDE1P+1, PLRDE1+1, PLRDE1+4, PLRDE1P+1
>> DIRUT	GETPROB+4, DEL+8, DEL+9, PAUSE+1, NAP+12, NAPDE1+2, NAPDE1+7, NAPDE1P+3, PLRDE1+2, PLRDE1+7 , PLRDE1P+3
DIU	KDIE+1!
DIV	KDIE+1!
DIW	KDIE+1!
DIY	KDIE+1!
DLAYGO	KDIE+1!, ADD+17*, ADD+20!, EXIT+2!
DO	KDIE+1!
DQ	KDIE+1!, HS+5!
DR	DIE+1, KDIE+1!, ADD+17, DEL+11*!, HS+5!
DT	ADD+5, NAP+3, NAP+7, NAPDE1+5, NAPDE1+8, PLRDE1+5, PLRDE1+8
>> DUOUT	DEL+8, PAUSE+1
DUZ	HS+3
DUZ(2	ADD+4, HS+2
EDATE	ANYACTP~, ANYACTP+2, ANYACTP+8, ANYACTBP~, ANYACTBP+2, ANYACTBP+8
F	GETNUM+1~, GETNUM+5*, GETNUM+6
IOF	ADD+6, EDIT+6, ACT+7, INACT+6
N	GETNUM+1~, GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+6, GETNUM+7
P	GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6, ANYACTP~, ANYACTP+1, ANYACTP+5, ANYACTBP~, ANYACTBP+1 , ANYACTBP+5
U	ADD+6, ADD+10, ACT+5, INACT+4, HS+2, HS+3, HS+8, FS+2, GETNUM+5, GETNUM+6 , ANYACTP+7, ANYACTP+8, ANYACTBP+7, ANYACTBP+8
>> VALMBCK	EXIT+5*
X	GETPROB+6, HS+2, HS+3, HS+4, HS+5, ANYACTP+3~, ANYACTP+5, ANYACTP+6, ANYACTP+7, ANYACTP+8 , ANYACTBP+3~, ANYACTBP+5, ANYACTBP+6, ANYACTBP+7, ANYACTBP+8
Y	GETPROB+5, GETPROB+6, ADD+8, ADD+10, DEL+10, HS+3, HS+6, HS+7, HS+10*, NAP+13 , NAPDE1+3, NAPDE1+8, NAPDE1+9, NAPDE1P+4, ANYACTP+3~, ANYACTBP+3~, PLRDE1+3, PLRDE1+8, PLRDE1+9, PLRDE1P+4
Z	ANYACTP+3~, ANYACTP+4, ANYACTP+5, ANYACTP+9, ANYACTP+11, ANYACTBP+3~, ANYACTBP+4, ANYACTBP+5, ANYACTBP+9, ANYACTBP+11

Customize PDF page

Package: Mental Health Social Services

Routine: AMHPL1

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items