Routine: AMHLEP2

Information

AMHLEP2 ; IHS/CMI/LAB - ADD NEW BH ACTIVITY RECORDS 06 Nov 2009 9:21 AM ;

Source Information

Source file <AMHLEP2.m>

Call Graph

Call Graph Total: 33

Package	Total	Call Graph
Mental Health Social Services	19	START^AMHBPL ($$ESIG,ESIGGFI)^AMHESIG EP^AMHLCD GETDATE^AMHLE PCCLINK^AMHLE2 PHX^AMHLE3 (CHECK,SUIC)^AMHLEA ($$IINTAKE,EN)^AMHLEDEL ^AMHLEFP EP2^AMHLEFP2 (,$$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC)^AMHLEIN EP1^AMHLEIV EN^AMHLESF EP1^AMHLETP ^AMHPEDIT EN^AMHRLKUP $$PPINT^AMHUTIL $$HL^AMHUTIL2 APPT^AMHVRL2
VA Fileman	6	^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	3	($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBNEW
MailMan	2	XMZ^XMA2 (ENL,ENT1)^XMD
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Registration	1	($$FTIME,FULL)^VALM1

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Mental Health Social Services	10	AMHEGS AMHLEA AMHLEE AMHLEI2 AMHLEIC AMHLENS AMHLENS1 AMHLEP1 AMHLEP4 AMHNAVR

Entry Points

Name	Comments	DBIA/ICR reference
6	;print encounter form
FS	;
ADD1	;
CDST	;EP
DEL	;EP
GETPAT1
PCCLINK	;EP -PCC LINK
RMENU	;EP
CDST1
1	;
3	;
PRIMPROB(R)	;
5	;treatment Plan
OTHER1	;
7	;intake
MAILMSG	;
9	;
8	;suicide forms
PL	;EP - called from PDE Problem list protocol
4	;scheduling system
PAUSE	;EP
CHK	; S AMHOKAY=0 D RECCHECK^AMHLE2 I AMHOKAY W !!,"Incomplete record!! Deleting record!!" D DEL,EXIT Q
GETPAT	;EP
HEADER	;
ADD	;EP
OTHER	;EP - collect other data if patient related
CASE(P,R,T)	;return 1 if case already opened
2	;
OTHERX
GETPROV	;EP - get providers
GETLIST	;
REGULAR	;EP
EXIT	;CLEAN UP AND EXIT
CDSTDEL	;
GETLIST1	;

External References

Name	Field # of Occurrence
START^AMHBPL	9+2, PL+14
$$ESIG^AMHESIG	OTHER+2
ESIGGFI^AMHESIG	OTHER+10
EP^AMHLCD	2+1
GETDATE^AMHLE	PL+9
PCCLINK^AMHLE2	PCCLINK+1
PHX^AMHLE3	3+1
CHECK^AMHLEA	CHK+1
SUIC^AMHLEA	CHK+13
$$IINTAKE^AMHLEDEL	DEL+1
EN^AMHLEDEL	DEL+4
^AMHLEFP	6+2
EP2^AMHLEFP2	MAILMSG+5
^AMHLEIN	PL+7
$$GETAWI^AMHLEIN	ADD+18
$$GETCLN^AMHLEIN	ADD+17
$$GETCOMM^AMHLEIN	ADD+15
$$GETLOC^AMHLEIN	ADD+15
$$GETTOC^AMHLEIN	ADD+18
EP1^AMHLEIV	7+1
EN^AMHLESF	8+1
EP1^AMHLETP	5+1
^AMHPEDIT	GETPAT1+5
EN^AMHRLKUP	PL+12
$$PPINT^AMHUTIL	ADD+21, CASE+5
$$HL^AMHUTIL2	ADD+15, ADD1+8
APPT^AMHVRL2	4+1
$$HRN^AUPNPAT	MAILMSG+12, MAILMSG+14
^DDS	ADD1+1, CDST1+3, 1+2
^DIC	GETLIST1+1, GETPAT1+2, 1+1
FILE^DICN	ADD+9, CDST+5, GETPROV+4
YN^DICN	GETPAT1+7
^DIE	ADD+13, ADD+19, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+28, CDST1+1, OTHER+9
^DIK	CDSTDEL+5
^DIR	REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1, PAUSE+1
$$FTIME^VALM1	HEADER+3
FULL^VALM1	ADD+2, OTHERX, 2+2, PL+1
$$VAL^XBDIQ1	MAILMSG+16
$$VALI^XBDIQ1	ADD1+8
^XBFMK	REGULAR+12, MAILMSG+2, MAILMSG+4, CDST+5, CDST1, GETPAT+1, 1+1
EN^XBNEW	6+1
$$FMTE^XLFDT	GETPAT1+6
XMZ^XMA2	MAILMSG+21
ENL^XMD	MAILMSG+26
ENT1^XMD	MAILMSG+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date not entered." Line Location: ADD+3
Function Call: WRITE	Prompt: !!,"No patient identified." Line Location: ADD+4
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: ADD+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: ADD+10
Function Call: WRITE	Prompt: !!,"Error updating record......" Line Location: ADD+19
Function Call: WRITE	Prompt: !,"No PRIMARY PROVIDER entered!! - Required element" Line Location: ADD+21
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADD1+6
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: CHK+0
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!! Line Location: CHK+4
Function Call: WRITE	Prompt: ?28,$P(^VA(200,X,0),U),! Line Location: REGULAR+8
Function Call: WRITE	Prompt: !,"Enter the text of your note.",! Line Location: REGULAR+11
Function Call: WRITE	Prompt: !,"Sending Mailman message to distribution list" Line Location: MAILMSG+25
Function Call: WRITE	Prompt: !,"Message Sent " Line Location: MAILMSG+34
Function Call: WRITE	Prompt: !!,"There is already a initial/discharge entry for this visit.",!,"Editing existing data...." Line Location: CDST+3
Function Call: WRITE	Prompt: !!,"Creating Initial Chemical Dependency data record..." Line Location: CDST+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.." Line Location: CDST+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Notify supervisor....error in creating Initial Staging record.." Line Location: CDST1+2
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: CDST1+4
Function Call: WRITE	Prompt: !!,"There is a staging tool entry for this visit and this visit",!,"is not an INITIAL, REOPEN, TRAN/DISC/CLOSE or FOLLOW UP.",! Line Location: CDSTDEL+1
Function Call: WRITE	Prompt: @IOF,!!!?20,"***** OTHER INFORMATION *****",!! Line Location: OTHERX+1
Function Call: WRITE	Prompt: ! Line Location: OTHER1+2
Function Call: WRITE	Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7) Line Location: GETPROV+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF)&(AMHC=0) Line Location: GETPAT1+0
Function Call: WRITE	Prompt: !!!!!!!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB" Line Location: GETPAT1+0
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT1+6
Function Call: WRITE	Prompt: !!,"This visit has an Initial Intake with Updates, it can not be deleted",!,"until the update documents have been deleted." Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Record deleted." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Update, add or append any of the following data" Line Location: RMENU+2
Function Call: WRITE	Prompt: !!,?5,"1). Update any of the following information:" Line Location: RMENU+3
Function Call: WRITE	Prompt: !,?10,"Designated Providers, Patient Flag" Line Location: RMENU+4
Function Call: WRITE	Prompt: !,?5,"2). Patient Case Open/Admit/Closed Data" Line Location: RMENU+5
Function Call: WRITE	Prompt: !,?5,"3). Personal History Information" Line Location: RMENU+6
Function Call: WRITE	Prompt: !?5,"4). Appointments (Scheduling System)" Line Location: RMENU+7
Function Call: WRITE	Prompt: !?5,"5). Treatment Plan Update" Line Location: RMENU+8
Function Call: WRITE	Prompt: !?5,"6). Print an Encounter Form" Line Location: RMENU+9
Function Call: WRITE	Prompt: !?5,"7). Add/Update/Print Intake Document" Line Location: RMENU+10
Function Call: WRITE	Prompt: !?5,"8). Add/Update Suicide Forms" Line Location: RMENU+11
Function Call: WRITE	Prompt: !?5,"9). Problem List Update" Line Location: RMENU+12
Function Call: WRITE	Prompt: !,?5,"10). None of the Above (Quit)" Line Location: RMENU+13
Function Call: WRITE	Prompt: !,AMHDASH Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"Date of Service: ",$$FTIME^VALM1(AMHDATE),!,AMHDASH Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"FAILED TO ADD PATIENT TO BH PATIENT DATA FILE" Line Location: 1+1
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: 1+3
Function Call: WRITE	Prompt: !!,"Visit not identified." Line Location: 9+1
Function Call: WRITE	Prompt: !,"Problem List updates must be attached to a visit. If you are updating the " Line Location: PL+2
Function Call: WRITE	Prompt: !,"Problem List in the context of a patient visit select the appropriate existing" Line Location: PL+3
Function Call: WRITE	Prompt: !,"visit and then update the Problem List. If you are updating the Problem List " Line Location: PL+4
Function Call: WRITE	Prompt: !,"outside of the context of a patient visit, first create a chart review visit " Line Location: PL+5
Function Call: WRITE	Prompt: !,"and then update the Problem List." Line Location: PL+6
Function Call: WRITE	Prompt: !!,"No visits to select on that date." Line Location: PL+13
Routine Call	DIE Line Location: ADD+13 ADD+19 ADD1+8 REGULAR+13 MAILMSG+4 MAILMSG+28 CDST1+1 OTHER+9
Routine Call	DDS Line Location: ADD1+1 CDST1+3 1+2
Routine Call	DIC Line Location: GETLIST1+1 GETPAT1+2 1+1
Routine Call	DIR Line Location: REGULAR+3 REGULAR+9 REGULAR+14 FS+2 CDSTDEL+2 OTHER+6 OTHERX+3 GETPROV+1 PAUSE+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls
^AMHRCDST - [#9002011.06]	Classic Fileman Calls
^AMHPATR - [#9002011.55]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	1+1
^AMHPCASE - [#9002011.58]	CASE+5
^AMHPCASE("AA"	CASE+5
^AMHRCDST("B"	CDST+3, CDSTDEL+5
^AMHREC - [#9002011]	REGULAR+13, CASE+5, MAILMSG+4, MAILMSG+17, CDST+2, CDST1+1, DEL+2
^AMHRPRO - [#9002011.01]	PRIMPROB+4
^AMHRPRO("AD"	PRIMPROB+2
^AMHSITE - [#9002013]	REGULAR+2
^AUPNPAT - [#9000001]	MAILMSG+14
^DPT - [#2]	MAILMSG+15
^TMP("AMHMSG"	MAILMSG+1!, MAILMSG+15, MAILMSG+16, MAILMSG+17, MAILMSG+18
^TMP("AMHS"	MAILMSG+1!, MAILMSG+6, MAILMSG+7, MAILMSG+8, MAILMSG+9, MAILMSG+10, MAILMSG+18, MAILMSG+30!
^VA(200 - [#200]	REGULAR+8, MAILMSG+20, MAILMSG+23, GETPROV+1

Label References

Name	Line Occurrences
$$PRIMPROB	CDST1+1
@(	OTHER1+3
ADD1	CHK+3
CDST1	CDST+3
DEL	ADD+21
EXIT	ADD+21, CHK+2, CHK+15, PL+10, PL+13, PL+15
GETLIST	REGULAR+6
GETLIST1	GETLIST1+4
GETPAT	OTHER1+1
GETPAT1	GETPAT1+5
GETPROV	ADD+21
MAILMSG	FS+5
OTHER	CHK+13, OTHER+3, OTHERX+7
OTHER1	OTHERX+6
OTHERX	OTHER+1
PAUSE	ADD+10, MAILMSG+35, CDST+6, CDST1+2, OTHER+5, DEL+1, DEL+5, PL+13
PCCLINK	CHK+14
REGULAR	CHK+6, REGULAR+7, REGULAR+10, REGULAR+16
RMENU	OTHERX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAILMSG+14, GETPAT1+7, 6+1*
>> %1	6+1*
>> AMHACTN	ADD+6*, RMENU+1
>> AMHADPTV	ADD+5*
>> AMHANS	OTHER+3, OTHER+8*
AMHC	MAILMSG+11, MAILMSG+15, MAILMSG+16, MAILMSG+17, MAILMSG+18, GETPAT+2, GETPAT1, GETPAT1+3!, GETPAT1+5*, GETPAT1+7! , GETPAT1+8!
>> AMHCDR	CDST+3, CDST+7, CDST1+1, CDST1+3
>> AMHDASH	HEADER+2, HEADER+3
>> AMHDATE	ADD+3, ADD+8, HEADER+3, PL+10
>> AMHDET	GETPAT1
AMHDR	EXIT+6!
AMHEFT	REGULAR+15!, FS+1, FS+3!, FS+4, MAILMSG+33!
AMHERROR	EXIT+6!
AMHF	EXIT+6!
>> AMHLOC	PL+11*
AMHNAME	EXIT+6!
>> AMHNAVR	CHK+11
AMHNONE	EXIT+6!
AMHOKAY	EXIT+6!
AMHOTH	EXIT+6!
>> AMHPAT	ADD+4, MAILMSG+12, MAILMSG+14, MAILMSG+15, MAILMSG+16, CDST1+1, OTHER1+1, GETPROV+4, GETPAT1+1, GETPAT1+4* , GETPAT1+5, GETPAT1+7, 1+1, 1+2, 6+1, 4+1, 5+1, 7+1, PL+11
>> AMHPATCE	PL+8*
AMHPTSV	EXIT+6!
>> AMHPTYPE	ADD+8, ADD+15, ADD+17
AMHQUIT	ADD+6, ADD1+6, CDST1+4, EXIT+6!, 1+3
AMHR	ADD+12*, ADD+13, ADD+14, ADD+21, ADD1+1, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+5, MAILMSG+17 , CDST+2, CDST+3, CDST+5, CDST1+1, CDSTDEL+5, OTHER+2, OTHER+9, OTHER+10, GETPROV+4, DEL+1 , DEL+2, DEL+3, EXIT+6!, 6+1, 7+1, 8+1, 9+1, 9+2, PL+13, PL+14
AMHR0	EXIT+6!
AMHRDEL	DEL+3*, EXIT+6!
>> AMHSELE	OTHERX+6*, OTHER1+3
AMHSHIGH	EXIT+6!
AMHV	EXIT+6!
AMHVDLT	DEL+2*, EXIT+6!
>> AMHVTYPE	ADD+8, ADD1+1, CHK+6
AMHX	MAILMSG+3*, MAILMSG+4, MAILMSG+33!, EXIT+6!
AMHXMZ	MAILMSG+22*, MAILMSG+27, MAILMSG+33!
>> AMHXX	OTHER+2*, OTHER+3, OTHER+4, OTHER+5, OTHER+10
>> AMHZDEL	CHK+2
>> AMHZDO	OTHER+1
>> AMHZED	CHK+3
>> APCDOVRR	ADD+1*
APCDPKG	EXIT+6!
APCDV	EXIT+6!
>> AUPNDOD	GETPAT1+6
>> C	MAILMSG+6, MAILMSG+7, MAILMSG+8, MAILMSG+9, MAILMSG+10, MAILMSG+14
D0	ADD+7!, ADD+9!, GETLIST1+1!, GETPROV+4!
DA	ADD+7!, ADD+13!, ADD+14, ADD+20!, ADD1+1, ADD1+8!, REGULAR+3!, REGULAR+9!, REGULAR+13, REGULAR+14! , FS+2!, MAILMSG+4, MAILMSG+28!, MAILMSG+33!, CDST1+1, CDST1+3, CDSTDEL+2!, CDSTDEL+5, OTHER+6!, OTHER+9! , GETPROV+1!, GETPROV+4!, GETPAT1+2!, 1+2
DD	ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4!
>> DDSFILE	ADD1+1, CDST1+3, 1+2*
>> DFN	PL+11
DG	GETPROV+4!
DH	GETPROV+4!
DI	GETPROV+4!
DIADD	ADD+8, ADD+9!, CDST+5!, CDST1!, GETPROV+4*!, GETPAT1+2!
DIC	ADD+7!, ADD+8, ADD+9!, GETLIST1+1!, CDST+5!, GETPROV+1!, GETPROV+4!, GETPAT1+2!, 1+1
DIC("A"	GETLIST1+1, GETPAT1
DIC("DR"	ADD+8, GETPROV+4
DIC(0	ADD+8, GETLIST1+1, CDST+5, GETPROV+4, GETPAT1+2, 1+1
DIE	ADD+9!, ADD+13!, ADD+14, ADD+20!, ADD1+8!, REGULAR+13, MAILMSG+4, MAILMSG+28!, MAILMSG+33!, CDST1+1* , OTHER+9*!, GETPROV+4!
>> DIK	CDSTDEL+5*
DIMSG	ADD1+6!, CDST1+4!, 1+3!
DINUM	ADD+7!
DIR	REGULAR+3!, REGULAR+9!, REGULAR+14!, FS+2!, CDSTDEL+2!, OTHER+6!, OTHERX+3!, GETPROV+1!, PAUSE+1!
DIR("A"	REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1, PAUSE+1*
DIR("B"	REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1
DIR(0	REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1, PAUSE+1*
DIRUT	REGULAR+4, REGULAR+10, REGULAR+15, FS+3, CDSTDEL+3, OTHER+7, OTHERX+3, OTHERX+4, GETPROV+1!, GETPROV+2 , PAUSE+1*
DIU	GETPROV+4!
DIW	GETPROV+4!
DLAYGO	ADD+8, ADD+9!, CDST+5!, CDST1!, GETPROV+4!, GETPAT1+2!, 1+1
DO	ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4!
DQ	GETPROV+4!
DR	ADD+7!, ADD+9!, ADD+13!, ADD+15, ADD+17, ADD+18, ADD+20!, ADD1+1, ADD1+8!, REGULAR+13* , GETLIST1+1!, MAILMSG+4, MAILMSG+28!, MAILMSG+33!, CDST1+1, CDST1+3, OTHER+9!, GETPAT1+2!, 1+2
DR(2	ADD+13*
DT	CDST1+1
DTOUT	GETPROV+1!
DUOUT	OTHERX+3, GETPROV+1!, PAUSE+1
DUZ	ADD+8, REGULAR+2, MAILMSG+20, MAILMSG+23, CDST1+1, GETPROV+1
DUZ(2	ADD+15, ADD+17, ADD+18, REGULAR+2, MAILMSG+12, MAILMSG+14
H	CASE+5~, CASE+6, MAILMSG+12, MAILMSG+13, MAILMSG+14, MAILMSG+15
I	EXIT+7!
IOF	OTHERX+1, GETPAT1, HEADER+1
P	CASE~, CASE+2, CASE+5
R	CASE~, CASE+3, CASE+5, PRIMPROB~, PRIMPROB+1, PRIMPROB+2
T	CASE~, CASE+4, CASE+5
U	REGULAR+8, CASE+1*, CASE+5, MAILMSG+15, MAILMSG+20, MAILMSG+23, PRIMPROB+4, CDST+2, CDST1+1, OTHER+3 , OTHER+4, OTHER+5, GETPROV+1, DEL+2
>> VALMBCK	EXIT+2*
X	ADD+8, ADD+9!, REGULAR+8, CASE+5~, MAILMSG+6, MAILMSG+17, MAILMSG+18, PRIMPROB+2~, PRIMPROB+3, PRIMPROB+4 , CDST+5, GETPROV+1!, GETPROV+4, GETPAT1+5, EXIT+7!, 1+1*
XMDUZ	REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+20, MAILMSG+23, MAILMSG+33!
XMSUB	REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+19*, MAILMSG+33!
XMTEXT	REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+24*
XMY	REGULAR+6!, REGULAR+7, REGULAR+15!, REGULAR+16!, FS+3!, GETLIST+1!, MAILMSG+33!
XMY(	REGULAR+8, GETLIST1+3*, MAILMSG+3
XMZ	REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+22, MAILMSG+27*, MAILMSG+28, MAILMSG+33!
Y	ADD+10, ADD+12, ADD+19, REGULAR+5, REGULAR+12, REGULAR+16, FS+4, GETLIST1+2, GETLIST1+3, CDST+6 , CDST+7, CDST1+2, CDSTDEL+4, OTHER+8, OTHERX+5, OTHERX+6, GETPROV+1!, GETPROV+3, GETPROV+4, GETPROV+5 , GETPAT1+3, GETPAT1+4, EXIT+7!, 1+1
Z	EXIT+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEP2

Information

Source Information

Call Graph

Call Graph Total: 33

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: