Routine: AMHLCD

Package	Total	Call Graph
VA Fileman	6	^DDS ^DIC FILE^DICN ^DIE ^DIK ^DIR
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS Patient	1	(,KILL)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Mental Health Social Services	1	PAUSE^AMHLEA

Package	Total	Caller Graph
Mental Health Social Services	12	AMHDPEE AMHGD AMHHS AMHLEA AMHLEP2 AMHLETR3 AMHRC1 AMHRC2 AMHRC4 AMHRLU AMHRP4 AMHRPEC

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
DEL	;EP - called from protocol entry
EN	; -- main entry point for AMH UPDATE PATIENT CASE DATA
EXPND	; -- expand code
HDR	; -- header code
ALLOWCD(S,R)	;EP - CAN THIS USER SEE THIS CASE FORM?
EDIT	;
GATHER	;
GETPAT	;
START	;update case data
INIT	; -- init variables and list array
EXIT	; -- exit code
EP1(DFN)	;EP - CALLED FROM PROTOCOL
EOJ	;
DATE(D)	;
OPEN	;EP called from protocol to open a new case
EP	;EP CALLED FROM DATA ENTRY
DP	;
GETDATE	;

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	OPEN+8, EDIT+6, DEL+2, DEL+8, DEL+12
^AUPNPAT	EP+3
KILL^AUPNPAT	EOJ+6
^DDS	OPEN+10, EDIT+8
^DIC	GETPAT+5
FILE^DICN	OPEN+7
^DIE	DP+11, DP+12, DP+13, DP+14, DP+15, DP+16, DP+17, DP+18
^DIK	DEL+13
^DIR	GETDATE+2, DEL+11
EN^VALM	EN+1
TERM^VALM0	EXIT+2
CLEAR^VALM1	EOJ+4
FULL^VALM1	EP1+5, START+3, OPEN+1, EDIT+7, DEL+1, DEL+9
EN^VALM2	EDIT+2, DEL+4
$$VAL^XBDIQ1	GATHER+6, GATHER+7, GATHER+9
$$FMTE^XLFDT	GETPAT+8, GATHER+6, GATHER+14
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: START+2
Function Call: WRITE	Prompt: !!,"* Update Patient Case Data *",!! Line Location: START+2
Function Call: WRITE	Prompt: !!!!!!!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB" Line Location: GETPAT+3
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT+8
Function Call: WRITE	Prompt: !! Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!!!,"Opening a Case for ",$P(^DPT(DFN,0),U),!! Line Location: OPEN+3
Function Call: WRITE	Prompt: !,"Creating new case..." Line Location: OPEN+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Case Record failed !! Deleting Record.",! Line Location: OPEN+8
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: OPEN+11
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDIT+3
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDIT+4
Function Call: WRITE	Prompt: !,"Not a valid BH CASE RECORD." Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: EDIT+9
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Case.",!,"Please see your supervisor or program manager.",! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DEL+6
Function Call: WRITE	Prompt: !,"Not a valid BH CASE RECORD." Line Location: DEL+8
Function Call: WRITE	Prompt: !!,"Case not deleted." Line Location: DEL+12
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: DP+11 DP+12 DP+13 DP+14 DP+15 DP+16 DP+17 DP+18
Routine Call	DDS Line Location: OPEN+10 EDIT+8
Routine Call	DIC Line Location: GETPAT+5
Routine Call	DIR Line Location: GETDATE+2 DEL+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHPATR - [#9002011.55]	Classic Fileman Calls
^AMHPCASE - [#9002011.58]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	DP+7, DP+11, DP+12, DP+13, DP+14, DP+15, DP+16, DP+17, DP+18
^AMHPCASE - [#9002011.58]	GATHER+5, ALLOWCD+4, ALLOWCD+6, ALLOWCD+10, EDIT+6, EDIT+11, DP+5, DP+6, DP+9, DEL+8
^AMHPCASE("AA"	GATHER+2, GATHER+3
^AMHPROB - [#9002012.2]	GATHER+11
^AMHSITE - [#9002013]	ALLOWCD+9
^AUPNPAT - [#9000001]	HDR+2
^DPT - [#2]	EP1+2, EP1+3, HDR+2, OPEN+3
^XUSEC("AMHZ DELETE RECORD"	DEL+2

Label References

Name	Line Occurrences
$$ALLOWCD	GATHER+4
$$DATE	HDR+2
DP	OPEN+13, EDIT+12
EN	EP1+4, EP+4, START+3
EOJ	START+4
EXIT	START+3, OPEN+14, EDIT+3, EDIT+4, EDIT+6, EDIT+11, EDIT+13, DEL+2, DEL+5, DEL+6 , DEL+8, DEL+12, DEL+16
GATHER	INIT+2, EXIT+4
GETDATE	OPEN+4
GETPAT	START+3
HDR	EXIT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GATHER+5*, GATHER+6, GATHER+10, GATHER+11, GATHER+14, EOJ+2!
AMHA	DP+8~, DP+9*, DP+12, DP+14, DP+16, DP+17
AMHB	DP+8~
AMHCASE	START+1!, EN+2!, EXIT+1!, EOJ+3!
AMHCASE(	GATHER+8, GATHER+9, GATHER+11, GATHER+14
AMHCASE("IDX"	GATHER+8, GATHER+9, GATHER+12, GATHER+14, EDIT+5, DEL+7
AMHCDATE	EN+2!, GETDATE+2, GETDATE+4, OPEN+5, OPEN+6, EOJ+3!
AMHD	EN+2!, GATHER+2*, GATHER+3, EOJ+3!
AMHLINE	EN+2!, INIT+3, GATHER+1, GATHER+5, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+13* , GATHER+14, EXIT+5, EOJ+3!
>> AMHPAT	EP+1, EP+2, EP+3
AMHPC	OPEN+9, OPEN+10, EDIT+1, EDIT+5, EDIT+6, EDIT+8, EDIT+11, EXIT+1!, DEL+3, DEL+7* , DEL+8, DEL+13
>> AMHQUIT	OPEN+11, EDIT+9
AMHR	EDIT+6!, DEL+8!
AMHR1	EDIT+4!, EDIT+5, EXIT+1!, DEL+6!, DEL+7
AMHRCNT	EN+2!, GATHER+1, GATHER+5, GATHER+8, GATHER+9, GATHER+12, GATHER+14, EOJ+3!
AMHX	START+1!, EN+2!, GATHER+3*, GATHER+4, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+9, EXIT+1! , EOJ+3!
>> AUPNDOD	GETPAT+8
BALMON	EOJ+5!
D	DATE~, DATE+1
D0	OPEN+6!, OPEN+7!
DA	OPEN+6!, OPEN+10, EDIT+8, DP+4, DP+5, DP+6, DP+9, DP+10!, DP+11!, DP+12! , DP+13!, DP+14!, DP+15!, DP+16!, DP+17!, DP+18!, EOJ+2!, DEL+11!, DEL+13*, DEL+14!
DD	OPEN+6!
DDS	EOJ+2!
DDSFILE	OPEN+10, EDIT+8, EOJ+1!
DFN	EP1~, EP1+1, EP1+2, EP1+3, EP+2, START+3, HDR+2, GETPAT+1, GETPAT+4, GETPAT+7* , GATHER+2, GATHER+3, OPEN+3, OPEN+6, DP+7, DP+11, DP+12, DP+13, DP+14, DP+15 , DP+16, DP+17, DP+18
DIADD	OPEN+6*, OPEN+7!
DIC	GETPAT+5!, OPEN+6!, OPEN+7!, EOJ+2!
DIC("A"	GETPAT+3*
DIC("DR"	OPEN+6*
DIC(0	GETPAT+5, OPEN+6
DIE	OPEN+7!, DP+10!, DP+11!, DP+12!, DP+13!, DP+14!, DP+15!, DP+16!, DP+17!, DP+18!
DIK	DEL+13*, DEL+14!
DIMSG	OPEN+11!, EDIT+9!
DINUM	OPEN+6!
DIPGM	EOJ+1!
DIR	GETDATE+2!, DEL+11!
DIR("A"	GETDATE+2, DEL+11
DIR("B"	DEL+11*
DIR(0	GETDATE+2, DEL+11
>> DIRUT	GETDATE+2*, GETDATE+3
DLAYGO	OPEN+6*, OPEN+7!
DO	OPEN+6!
DR	OPEN+6!, OPEN+7!, OPEN+10, EDIT+8, DP+10!, DP+11!, DP+12!, DP+13!, DP+14!, DP+15! , DP+16!, DP+17!, DP+18!, EOJ+2!
DT	GETDATE+2
>> DUOUT	GETDATE+2
DUZ	GATHER+4, DP+11, DP+13, DP+15, DP+18, DEL+2
DUZ(2	HDR+2, ALLOWCD+9
I	EXIT+7!
IOF	START+2, GETPAT+2, OPEN+2
P	ALLOWCD+5~, ALLOWCD+6*, ALLOWCD+8
R	ALLOWCD~, ALLOWCD+3, ALLOWCD+4, ALLOWCD+6, ALLOWCD+10
S	ALLOWCD~, ALLOWCD+2, ALLOWCD+9, ALLOWCD+10
U	EP1+3, HDR+2, GATHER+6, GATHER+10, GATHER+11, GATHER+14, ALLOWCD+6, ALLOWCD+10, OPEN+3, DP+6 , DP+9, DP+11, DP+12, DP+13, DP+14, DP+15, DP+16, DP+17, DP+18
VALM	EOJ+5!
VALMAR	EOJ+5!
VALMBCK	EXIT+3*, EOJ+5!
VALMBG	EOJ+5!
VALMCAP	EOJ+5!
VALMCC	EOJ+5!
VALMCNT	INIT+3, EXIT+5, EOJ+5!
VALMCOFF	EOJ+5!
VALMCON	EOJ+5!
VALMEVL	EOJ+5!
VALMHDR	EP1+6!, EOJ+5!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMHDR(5	HDR+5*
VALMIOXY	EOJ+5!
VALMKEY	EOJ+5!
VALMLFT	EOJ+5!
VALMLST	EOJ+5!
VALMMENU	EOJ+5!
>> VALMSG	INIT+1*
VALMSGR	EOJ+5!
VALMUP	EOJ+5!
VALMVAR	EOJ+5!
VALMWD	EOJ+4, EOJ+5!
VALMY	EDIT+3, EDIT+4!, DEL+5, DEL+6!
VALMY(0	EDIT+4, DEL+6
X	OPEN+6, OPEN+7!, EDIT+5, HELP+1, EXIT+7!, EOJ+2!, DEL+7
XQORNOD	EDIT+4!, DEL+6!
XQORNOD(0	EDIT+2, DEL+4
Y	EP+3, GETPAT+6, GETPAT+7, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GETDATE+4, OPEN+8, OPEN+9 , EDIT+5, EXIT+7!, EOJ+1!, EOJ+2!, DEL+7, DEL+12
Z	EXIT+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLCD

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: