Routine: AMHLCD

Information

AMHLCD ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 16-JAN-1997 ;

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

Call Graph

VA Fileman

^DDS ^DIC FILE^DICN ^DIE ^DIK ^DIR

Registration

EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2

Kernel

$$FMTE^XLFDT DISP^XQORM1

IHS Patient

(,KILL)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Mental Health Social Services

PAUSE^AMHLEA

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

Package

Total

Caller Graph

Mental Health Social Services

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

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