Routine: AMHLEIV

Information

AMHLEIV ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 16-JAN-1997 14 Sep 2009 12:21 PM ;

Source Information

Source file <AMHLEIV.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
VA Fileman	5	FILE^DICN ^DIE ^DIK EN^DIQ ^DIR
Mental Health Social Services	4	($$ESIGINT,ESIGGFII)^AMHESIG PAUSE^AMHLEA PRINT^AMHLEIV3 $$PRIMPROV^AMHUTIL
Registration	4	EN^VALM TERM^VALM0 ($$FTIME,FULL)^VALM1 EN^VALM2
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 $$EXTSET^XBFUNC
IHS Patient	1	^AUPNPAT
Kernel	1	DISP^XQORM1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Mental Health Social Services	5	AMHGDINT AMHLEA AMHLEIV3 AMHLEIVP AMHLEP2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
HELP	; -- help code
EXPND	; -- expand code
DEL	;EP - called from protocol entry
D(D)	;EP
PRINT	;
SIGNINT1
HDR	;EP -- header code
ALLOWINT(P,I)	;EP
UPD1	;
DEL1	;are you sure??
INIT	; -- init variables and list array
EP1(AMHR,P)	;EP - CALLED FROM PROTOCOL FROM THE OTHER INFORMATION MENU AFTER VISIT ENTRY
EN	; -- main entry point for AMH UPDATE PATIENT CASE DATA
SIGNINT(AMHRX)	;sign intake
UPD	;
ADD	;
UPDE	;
EP	;EP CALLED FROM DATA ENTRY
ADDUPD	;
EDIT	;
GATHER	;EP
EXIT	;EP -- exit code

External References

Name	Field # of Occurrence
$$ESIGINT^AMHESIG	SIGNINT1+1
ESIGGFII^AMHESIG	SIGNINT1+9
PAUSE^AMHLEA	EP1+1, ADD+13, ADD+14, ADD+20, ADD+27, EDIT+6, EDIT+7, EDIT+9, EDIT+12, EDIT+20 , PRINT+6, PRINT+9, DEL+3, DEL+9, DEL1+17, DEL1+20, DISP+1, DISP+4, DISP+8, UPD+7 , UPD1+14, UPDE+1, UPDE+4, UPDE+10, ADDUPD+8, ADDUPD+9
PRINT^AMHLEIV3	PRINT+8
$$PRIMPROV^AMHUTIL	ADD+23, ADDUPD+18
^AUPNPAT	EP+4
FILE^DICN	ADD+18, ADDUPD+13
^DIE	ADD+24, ADD+25, SIGNINT1+8, EDIT+14, UPDE+6, ADDUPD+19, ADDUPD+20
^DIK	DISP+5
EN^DIQ	DISP+2
^DIR	ADD+12, SIGNINT1+5, DEL1+11, DISP+3, UPD1+12, ADDUPD+7
EN^VALM	EN+2
TERM^VALM0	EXIT+2
$$FTIME^VALM1	HDR+2
FULL^VALM1	EP1+1, EP1+7, ADD+2, EDIT+8, PRINT+7, DEL+2, UPD+9, ADDUPD+1
EN^VALM2	EDIT+2, PRINT+2, DEL+5, UPD+3
$$VAL^XBDIQ1	GATHER+14, GATHER+15, GATHER+21, ADD+11, DEL1+9, UPD1+10, ADDUPD+6, ADDUPD+11
$$VALI^XBDIQ1	EDIT+12, DEL1+9, UPD1+10, UPDE+4
$$EXTSET^XBFUNC	HDR+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You must first select a visit." Line Location: EP1+1
Function Call: WRITE	Prompt: !!,"There is already an Initial Intake on this visit.",! Line Location: ADD+10
Function Call: WRITE	Prompt: !,"Adding Intake for ",$$VAL^XBDIQ1(2,AMHPAT,.01) Line Location: ADD+11
Function Call: WRITE	Prompt: !!,"error creating Initial Intake document...." Line Location: ADD+20
Function Call: WRITE	Prompt: !!,"Initial Intake document created..." Line Location: ADD+26
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 INTAKE." Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"This is not an Initial Intake. Use option U to edit an Update to",!,"an Intake document." Line Location: EDIT+7
Function Call: WRITE	Prompt: !!,"This Initial Intake document has been signed. You cannot edit it." Line Location: EDIT+9
Function Call: WRITE	Prompt: !!,"Initial Intake document updated...." Line Location: EDIT+20
Function Call: WRITE	Prompt: !,"No records selected." Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"No record selected." Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Not a valid BH INTAKE." Line Location: PRINT+6
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete an Intake document.",!,"Please see your supervisor or program manager.",! Line Location: DEL+3
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DEL+6
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DEL+7
Function Call: WRITE	Prompt: !,"Not a valid BH INTAKE." Line Location: DEL+9
Function Call: WRITE	Prompt: !!,"You can now select which Intake or Update document to delete. Initial Intake ",!,"documents that have Updates associated with them cannot be deleted.",! Line Location: DEL1+5
Function Call: WRITE	Prompt: !?5,"0",?10,"Quit/Exit" Line Location: DEL1+6
Function Call: WRITE	Prompt: !?5,AMHC,?10,"Date: ",$$D($$VALI^XBDIQ1(9002011.13,AMHX,.01))," Provider: ",$E($$VAL^XBDIQ1(9002011.13,AMHX,.04),1,15),?51,$E($$VAL^XBDIQ1(9002011.13,AMHX,.05),1,13),?65,$$VAL^XBDIQ1(9002011.13,AMHX,.09) Line Location: DEL1+9
Function Call: WRITE	Prompt: ! Line Location: DEL1+10
Function Call: WRITE	Prompt: !!,"This Initial Intake has Updates associated with it, it cannot be deleted." Line Location: DISP+1
Function Call: WRITE	Prompt: !!,$S(AMHRIU="I":"Initial Intake",1:"Update")_" document not deleted." Line Location: DISP+4
Function Call: WRITE	Prompt: !!,$S(AMHRIU="I":"Initial Intake",1:"Update")_" document deleted." Line Location: DISP+8
Function Call: WRITE	Prompt: !,"No records selected." Line Location: UPD+4
Function Call: WRITE	Prompt: !,"No record selected." Line Location: UPD+5
Function Call: WRITE	Prompt: !,"Not a valid BH INTAKE." Line Location: UPD+7
Function Call: WRITE	Prompt: !!,"This is not an Initial Intake. Use option U to edit an update to",!,"an intake document." Line Location: UPD+8
Function Call: WRITE	Prompt: !!,"This intake document has been signed. You cannot edit it." Line Location: UPD+10
Function Call: WRITE	Prompt: !!,"You can either add a new Update to this Intake document or edit an " Line Location: UPD1+4
Function Call: WRITE	Prompt: !,"existing, unsigned one on which you are the provider. Please select an Update" Line Location: UPD1+5
Function Call: WRITE	Prompt: !,"to edit or choose ",AMHA," to add a new one or 0 to quit.",! Line Location: UPD1+6
Function Call: WRITE	Prompt: !?5,"0",?10,"Quit/Exit Update" Line Location: UPD1+7
Function Call: WRITE	Prompt: !?5,AMHA,?10,"Add new Update document",! Line Location: UPD1+11
Function Call: WRITE	Prompt: !!,"This Intake Update document has been signed. You cannot edit it." Line Location: UPDE+1
Function Call: WRITE	Prompt: !!,"Intake Update document updated...." Line Location: UPDE+10
Function Call: WRITE	Prompt: !,"Adding Intake Update for ",$$VAL^XBDIQ1(2,AMHPAT,.01) Line Location: ADDUPD+6
Function Call: WRITE	Prompt: !!,"Error creating Update to the Intake document...." Line Location: ADDUPD+15
Function Call: WRITE	Prompt: !!,"Intake Update document created..." Line Location: ADDUPD+21
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: ADD+24 ADD+25 SIGNINT1+8 EDIT+14 UPDE+6 ADDUPD+19 ADDUPD+20
Routine Call	DIR Line Location: ADD+12 SIGNINT1+5 DEL1+11 DISP+3 UPD1+12 ADDUPD+7

FileNo	Call Tags
^AMHRINTK - [#9002011.13]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	EP1+5, EP+3, EP+5, ADD+4, ADDUPD+3
^AMHRINTK - [#9002011.13]	GATHER+7, GATHER+8, GATHER+9, GATHER+13, GATHER+19, GATHER+20, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10 , ALLOWINT+12, ALLOWINT+13, ALLOWINT+14, EDIT+6, EDIT+7, EDIT+9, PRINT+6, DEL+9, DEL1+2, DEL1+8 , DEL1+15, DEL1+17, DEL1+19, DISP+1, UPD+7, UPDE+1, UPDE+4
^AMHRINTK("AC"	GATHER+3
^AMHRINTK("AI"	GATHER+17, ALLOWINT+11, EDIT+14, DEL1+4, DISP+1, UPD1+2
^AMHSITE - [#9002013]	ALLOWINT+6, DEL+3, DEL1+16
^AUPNPAT - [#9000001]	HDR+2
^DPT - [#2]	HDR+2
^VA(200 - [#200]	ADD+23, ADDUPD+18
^XUSEC("AMHZ DELETE RECORD"	DEL+3
^XUSEC("AMHZ DELETE SIGNED NOTE"	DEL1+19

Label References

Name	Line Occurrences
$$ALLOWINT	GATHER+6
$$D	GATHER+13, GATHER+20, DEL1+9, UPD1+10
ADDUPD	UPD1+14
DEL1	DEL1+17, DEL1+19, DISP+1, DISP+4, DISP+9
DISP	DEL1+16
EN	EP1+6, EP+6
EXIT	ADD+13, ADD+14, ADD+20, ADD+28, EDIT+3, EDIT+4, EDIT+6, EDIT+7, EDIT+9, EDIT+12 , EDIT+21, PRINT+3, PRINT+4, PRINT+6, PRINT+10, DEL+3, DEL+6, DEL+7, DEL+9, DEL1+2 , DEL1+12, DEL1+13, UPD+4, UPD+5, UPD+7, UPD1+13, UPD1+15, ADDUPD+8, ADDUPD+9
GATHER	INIT+2, EXIT+4
HDR	EXIT+6
SIGNINT	ADD+26, EDIT+20, UPDE+10, ADDUPD+21
SIGNINT1	SIGNINT1+2
UPD1	UPD1+14, UPDE+1, UPDE+4, UPDE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHA	UPD+1~, UPD1+3*, UPD1+6, UPD1+11, UPD1+12, UPD1+14
>> AMHANS	SIGNINT1+2, SIGNINT1+7*
AMHBROW	EP1+2~
AMHC	DEL+1~, DEL1+3, DEL1+4, DEL1+7, DEL1+9, UPD+1~, UPD1+2, UPD1+3, UPD1+8*, UPD1+10
AMHC1	DEL+1~, DEL1+9*, DEL1+11
AMHD	EP1+2~, EN+1~
AMHDA	EP1+2~
>> AMHDATE	ADD+5, ADDUPD+4
AMHFILE	EP1+2~
AMHFIRST	EP1+2~
>> AMHIDAT	ADD+3, ADD+4, ADD+5, ADD+6, ADD+16, ADDUPD+2, ADDUPD+3, ADDUPD+4, ADDUPD+5, ADDUPD+11
AMHINTI	EP1+2~
AMHINTK	EP1+2~, EN+1~, EXIT+1!
AMHINTK(	GATHER+16, GATHER+22
AMHINTK("IDX"	GATHER+16, GATHER+22, EDIT+5, PRINT+5, DEL+8, UPD+6
>> AMHINTR	DEL1+8*
AMHL	EP1+2~, GATHER+13, GATHER+14, GATHER+15, GATHER+16, GATHER+18, GATHER+19, GATHER+20, GATHER+21*, GATHER+22
AMHLINE	EP1+2~, EN+1~, INIT+3, GATHER+1, GATHER+10, GATHER+16, GATHER+22, EXIT+5
AMHNODE	EP1+2~
AMHPAT	EP1+3~, EP1+4, EP+2~, EP+3, EP+4, GATHER+3, ADD+11, ADD+16, ADDUPD+6, ADDUPD+11
AMHPC	EP1+2~, EXIT+1!
AMHPCNT	EP1+2~
AMHPRNM	EP1+2~
AMHPRNT	EP1+2~
AMHPROGT	EP1+2~, EP1+5, EP+2~, EP+5, HDR+1, GATHER+7, ADD+16
>> AMHPROVN	ADD+23, ADD+24, ADDUPD+18, ADDUPD+19
AMHQUIT	EP1+2~
AMHR	EP1~, EP1+1, EP1+5, EP+1, EP+3, EP+5, ADD+4, ADD+23, ADDUPD+3, ADDUPD+18
AMHR1	EP1+2~, EDIT+4!, EDIT+5, PRINT+4!, PRINT+5, EXIT+1!, DEL+7!, DEL+8, UPD+1~, UPD+5! , UPD+6
AMHRCNT	EP1+2~, EN+1~, GATHER+1, GATHER+10, GATHER+13*, GATHER+16, GATHER+22
AMHRINT	DEL+1~, DEL1+14*, DEL1+15, DEL1+17, DEL1+19, DISP+1, DISP+2, DISP+5
AMHRINTI	ADD+21, ADD+24, ADD+25, ADD+26, EDIT+1, EDIT+5, EDIT+6, EDIT+7, EDIT+9, EDIT+12 , EDIT+14, EDIT+20, PRINT+1, PRINT+5, PRINT+6, DEL+1~, DEL+4, DEL+8, DEL+9, DEL1+2 , DEL1+3, DEL1+4, UPD+1~, UPD+2, UPD+6*, UPD+7, UPD1+2, ADDUPD+11
AMHRINTU	UPD+1~, UPD1+16, UPDE+1, UPDE+4, UPDE+6, UPDE+10, ADDUPD+16, ADDUPD+19, ADDUPD+20, ADDUPD+21
AMHRIU	DEL+1~, DEL1+15*, DEL1+18, DEL1+20, DISP+3, DISP+4, DISP+8
AMHRX	SIGNINT~, SIGNINT1+1, SIGNINT1+8, SIGNINT1+9
AMHV	EP1+3~, GATHER+2!
AMHV(	GATHER+11, GATHER+12
AMHV(9999999	GATHER+9*
AMHX	EP1+3~, EN+1~, GATHER+3, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+12, GATHER+13, GATHER+14 , GATHER+15, GATHER+16, GATHER+17, GATHER+22, EXIT+1!, DEL+1~, DEL1+4, DEL1+7, DEL1+8, DEL1+9 , UPD+1~, UPD1+2, UPD1+8, UPD1+10
AMHXX	SIGNINT1!, SIGNINT1+1*, SIGNINT1+2, SIGNINT1+3, SIGNINT1+4, SIGNINT1+9
AMHY	GATHER+17*, GATHER+19, GATHER+20, GATHER+21, DEL+1~, DEL1+1!, UPD+1~, UPD1+1!
AMHY(	DEL1+4, DEL1+7, DEL1+14, UPD1+2, UPD1+8, UPD1+16
AMHY(1	DEL1+3*
AMHZ	DEL+1~
D	EP1+3~, D~, D+1, D+2, GATHER+10, GATHER+11, GATHER+12
D0	EP1+3~, ADD+17!, ADDUPD+12!
DA	EP1+3~, ADD+12!, ADD+24!, ADD+25!, SIGNINT1+5!, SIGNINT1+8!, EDIT+14!, DEL1+11!, DISP+2, DISP+3! , DISP+5, DISP+6!, UPD1+12!, UPDE+6!, ADDUPD+7!, ADDUPD+19!, ADDUPD+20*!
DD	EP1+3~, ADD+17!, ADDUPD+12!
DFN	EP1+3~, EP1+4, EP+2~, EP+3, HDR+2
DIADD	EP1+3~, ADD+16, ADD+19!, ADDUPD+11, ADDUPD+14!
DIC	EP1+3~, ADD+16, ADD+19!, DISP+2, ADDUPD+11*, ADDUPD+14!
DIC("DR"	ADD+16, ADDUPD+11
DIC(0	ADD+16, ADDUPD+11
DIE	EP1+3~, ADD+24!, ADD+25!, SIGNINT1+8!, EDIT+14!, UPDE+6!, ADDUPD+19!, ADDUPD+20*!
DIE("NO^"	ADD+24, ADD+25, ADDUPD+19, ADDUPD+20
DIK	EP1+3~, DISP+5*, DISP+6!
DIR	EP1+3~, ADD+12!, SIGNINT1+5!, DEL1+11!, DISP+3!, UPD1+12!, ADDUPD+7!
DIR("A"	ADD+12, SIGNINT1+5, DEL1+11, DISP+3, UPD1+12, ADDUPD+7
DIR("B"	ADD+12, SIGNINT1+5, DEL1+11, DISP+3, UPD1+12, ADDUPD+7
DIR(0	ADD+12, SIGNINT1+5, DEL1+11, DISP+3, UPD1+12, ADDUPD+7
DIRUT	EP1+3~, ADD+13, SIGNINT1+6, DEL1+12, UPD1+13, ADDUPD+8
DLAYGO	EP1+3~, ADD+16, ADD+19!, ADDUPD+11, ADDUPD+14!
DO	EP1+3~, ADD+17!, ADDUPD+12!
DR	EP1+3~, ADD+24, ADD+25!, SIGNINT1+8!, EDIT+14!, UPDE+6!, ADDUPD+19, ADDUPD+20*!
DT	ADD+6, ADD+16, UPDE+6, ADDUPD+5, ADDUPD+11
DUZ	GATHER+6, ADD+16, ADD+23, ADD+25, EDIT+12, DEL+3, DEL1+16, DEL1+17, DEL1+19, UPDE+4 , ADDUPD+11, ADDUPD+18, ADDUPD+20
DUZ(2	HDR+2, ALLOWINT+6, DEL+3, DEL1+16
G	ALLOWINT+5~, ALLOWINT+11, ALLOWINT+12, ALLOWINT+13, ALLOWINT+14, ALLOWINT+15
I	ALLOWINT~, ALLOWINT+4, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10, ALLOWINT+11, EXIT+7!
>> IOINORM	HDR+2
>> IORVON	HDR+2
P	EP1~, EP1+4, ALLOWINT~, ALLOWINT+3, ALLOWINT+6, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+12, ALLOWINT+13 , ALLOWINT+14
R	ALLOWINT+5~, ALLOWINT+11*, ALLOWINT+12, ALLOWINT+13, ALLOWINT+14
U	EP1+5, EP+3, EP+5, HDR+2, GATHER+7, GATHER+8, GATHER+9, GATHER+13, GATHER+19, GATHER+20 , ADD+4, ADD+23, SIGNINT1+2, SIGNINT1+3, SIGNINT1+4, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10, ALLOWINT+12 , ALLOWINT+13, ALLOWINT+14, EDIT+7, EDIT+9, DEL1+8, DEL1+15, DEL1+17, DEL1+19, DISP+1, UPDE+1 , UPDE+4, ADDUPD+3, ADDUPD+18
>> VALMBCK	EXIT+3*
>> VALMCNT	INIT+3, EXIT+5
VALMHDR	EP1+8!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+4*
VALMHDR(4	HDR+6*
>> VALMSG	INIT+1*
VALMY	EDIT+3, EDIT+4!, PRINT+3, PRINT+4!, DEL+6, DEL+7!, UPD+4, UPD+5!
VALMY(0	EDIT+4, PRINT+4, DEL+7, UPD+5
X	HDR+3, HDR+4, HDR+5, HDR+6, ADD+7~, ADD+16, EDIT+5, PRINT+5, HELP+1, EXIT+7! , DEL+8, DEL1+7, UPD+1~, UPD+6, UPD1+8, ADDUPD+11*
XQORNOD	EDIT+4!, PRINT+4!, DEL+7!, UPD+5!
XQORNOD(0	EDIT+2, PRINT+2, DEL+5, UPD+3
Y	EP+4, ADD+7~, ADD+8, ADD+14, ADD+20, ADD+21, SIGNINT1+7, EDIT+5, PRINT+5, EXIT+7! , DEL+8, DEL1+13, DEL1+14, DISP+4, UPD+6, UPD1+14, UPD1+15, UPD1+16, ADDUPD+9, ADDUPD+15 , ADDUPD+16
Z	ADD+7~, EXIT+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEIV

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: