Routine: AMHSFR

Package	Total	Call Graph
Mental Health Social Services	8	DISPDG^AMHLE GETPAT^AMHLEA $$INCOMPSF^AMHLESF EP^AMHLESF1 $$ALLOWP^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1 PTSEC^AMHUTIL2 EP^AMHVD
VA Fileman	6	^DDS ^DIC FILE^DICN ^DIE ^DIK ^DIR
Registration	5	NOTICE^DGSEC4 EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
IHS VA Utilities	4	$$VAL^XBDIQ1 ^XBFMK VIEWR^XBLM EN^XBVK
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT DISP^XQORM1
IHS Patient	1	(,$$HRN,KILL)^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	2	AMHGD AMHGSSF

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - called from protocol
ALLOW(S,R)	;EP - CAN THIS USER SEE THIS SUICIDE FORM?
EDITX9	;
HELP	; -- help code
DEFAULT	;
HS	;EP called from protocol to generate hs
BV	;
PAUSE	;EP
DONE	;
HDR	; -- header code
CTR(X,Y)	;EP - Center X in a field Y wide.
DGSECD	;
DGSECE	;
DGSECX	;
INIT	; -- init variables and list array
DEMO	;
CHECK	; check record for completeness
EDITD9	;
EN	;
D	;date range
GETTYPE	;
START	;
ADD	;EP
EOJ	;
ADDSF(AMHPAT)	;EP called from protocol to add a new form
EDIT	;EP - called from protocol
PROV	;
GATHER	;
EXPND	; -- expand code
ADDDS	;screenman call
EXIT	; -- exit code
DEL	;EP - called from protocol
UPI(P,D)	;EP
GETDATE	;EP - GET DATE OF ENCOUNTER
EDITR9	;

External References

Name	Field # of Occurrence
DISPDG^AMHLE	DGSECE+5, DGSECD+5, DGSECX+5
GETPAT^AMHLEA	ADD+3
$$INCOMPSF^AMHLESF	GATHER+10
EP^AMHLESF1	EDITD9+2
$$ALLOWP^AMHUTIL	ALLOW+9, ALLOW+10
$$DEMO^AMHUTIL1	GATHER+8
DEMOCHK^AMHUTIL1	DEMO+1
PTSEC^AMHUTIL2	DGSECE+3, DGSECD+3, DGSECX+3
EP^AMHVD	BV+3
^AUPNPAT	HS+2, ADD+5
$$HRN^AUPNPAT	GATHER+11
KILL^AUPNPAT	DONE+3, EXIT+7, EOJ+7
^DDS	ADDDS+2
NOTICE^DGSEC4	DGSECE+9, DGSECD+9, DGSECX+9
^DIC	DEFAULT+2, PROV+3
FILE^DICN	GETDATE+16
^DIE	EDITR9+1, CHECK+5, CHECK+31
^DIK	EDITX9+4, CHECK+32
^DIR	D+3, D+5, DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+2, GETDATE+8, CHECK+33, PAUSE+1
EN^VALM	EN+3
TERM^VALM0	EXIT+1
CLEAR^VALM1	EN+4, ADD+8, EOJ+5
FULL^VALM1	DEMO+3, EDIT+6, DISP+6, DEL+8, HS+1, ADD+1, ADDSF+1
EN^VALM2	EDIT+1, DISP+1, DEL+3
$$VAL^XBDIQ1	GATHER+12, GATHER+13, GETDATE+7, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+30, CHECK+31
^XBFMK	DONE+2, PROV+1
VIEWR^XBLM	HS+7
EN^XBVK	DONE+1, HS+4, HS+8, EOJ+1
$$FMADD^XLFDT	GATHER+3
$$FMTE^XLFDT	HDR+1
$$NOW^XLFDT	EDITR9+1, GETDATE+14
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Review/Update Suicide Forms by Date",80) Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: D+8
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDIT+3
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: EDIT+5
Function Call: WRITE	Prompt: ! Line Location: DGSECE+6
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DISP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: DGSECD+6
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Suicide Form.",!,"Please see your supervisor or program manager.",! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DEL+4
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: DEL+7
Function Call: WRITE	Prompt: ! Line Location: DGSECX+6
Function Call: WRITE	Prompt: !,"Error in Site Parameter File!",$C(7),$C(7) Line Location: GETTYPE+3
Function Call: WRITE	Prompt: !!,"PCC MENTAL HEALTH HEALTH SUMMARY TYPE IS MISSING!! NOTIFY YOUR SUPERVISOR OR SITE MANAGER.",!! Line Location: DEFAULT+3
Function Call: WRITE	Prompt: !!,"No patient entered..." Line Location: ADD+4
Function Call: WRITE	Prompt: !! Line Location: PROV+3
Function Call: WRITE	Prompt: !,"No Provider Selected." Line Location: PROV+4
Function Call: WRITE	Prompt: !! Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!,"This patient already has a suicide form on file for this Date of Act." Line Location: GETDATE+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Error creating Suicide form!! Deleting form.",! Line Location: GETDATE+17
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADDDS+3
Function Call: WRITE	Prompt: !,$P(^DD(9002011.65,AMHF,0),U)," is a required data element." Line Location: CHECK+2
Function Call: WRITE	Prompt: !,$P(^DD(9002011.65,AMHF,0),U)," is a required data element." Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"Location of Act is OTHER, OTHER description is required." Line Location: CHECK+4
Function Call: WRITE	Prompt: !,"INTERVENTION is a required data element." Line Location: CHECK+6
Function Call: WRITE	Prompt: !,"One of the Methods is OTHER. OTHER description is Required." Line Location: CHECK+9
Function Call: WRITE	Prompt: !,"Method is Overdose, Drug type is Other, Other description is required." Line Location: CHECK+14
Function Call: WRITE	Prompt: !!,"You must enter a METHOD." Line Location: CHECK+16
Function Call: WRITE	Prompt: !!,"You must enter a value for SUBSTANCE Use. None or Unknown are valid values." Line Location: CHECK+18
Function Call: WRITE	Prompt: !,"Substance Involved is Alcohol/Drugs, Drug is Other, Other Description is Required." Line Location: CHECK+22
Function Call: WRITE	Prompt: !,"Contributing Factor is OTHER, OTHER description is required." Line Location: CHECK+26
Function Call: WRITE	Prompt: !!,"You must enter a CONTRIBUTING FACTOR. Unknown is a valid value." Line Location: CHECK+29
Function Call: WRITE	Prompt: !,"Location of Act is OTHER, OTHER description is required." Line Location: CHECK+30
Function Call: WRITE	Prompt: !!,"One or more required data elements are missing.",!! Line Location: CHECK+32
Function Call: WRITE	Prompt: !,"Deleting form..." Line Location: CHECK+32
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: EDITR9+1 CHECK+5 CHECK+31
Routine Call	DDS Line Location: ADDDS+2
Routine Call	DIC Line Location: DEFAULT+2 PROV+3
Routine Call	DIR Line Location: D+3 D+5 DGSECE+6 DGSECD+6 DGSECX+6 EDITX9+1 GETDATE+2 GETDATE+8 CHECK+33 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APCHSCTL - [#9001015]	Classic Fileman Calls
^AMHPSUIC - [#9002011.65]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	GATHER+6, GATHER+9, EDIT+5, DGSECE+1, DGSECE+2, EDITR9+2, DISP+5, DGSECD+1, DGSECD+2, DEL+7 , DGSECX+1, DGSECX+2, GETDATE+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10!, CHECK+11, CHECK+12, CHECK+13 , CHECK+14, CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30 , CHECK+31, ALLOW+5, ALLOW+7, ALLOW+10
^AMHPSUIC("AB"	GATHER+4, GATHER+5
^AMHPSUIC("AC"	GETDATE+5
^AMHSITE - [#9002013]	GETTYPE+1, GETTYPE+2, ALLOW+9
^AMHTSCF - [#9002014.9]	CHECK+26
^AMHTSDRG - [#9002014.7]	CHECK+14
^AMHTSSU - [#9002014.71]	CHECK+22
^APCHSCTL - [#9001015]	GETTYPE+3
^AUTTLOC - [#9999999.06]	UPI+2
^AUTTSITE(1	UPI+2*, UPI+4
^DD(9002011.65	CHECK+2, CHECK+3
^DPT - [#2]	GATHER+6, GATHER+11, HS+6
^VA(200 - [#200]	PROV+3
^XUSEC("AMHZ DELETE RECORD"	DEL+2

Label References

Name	Line Occurrences
$$ALLOW	GATHER+7
$$CTR	START+2
$$UPI	GETDATE+13
ADDDS	EDITR9+3, GETDATE+19, CHECK+32
ADDSF	ADD+7
CHECK	ADDDS+4
D	D+7, DEMO+2
DEFAULT	GETTYPE+1, GETTYPE+2
DONE	START+3
EDITD9	DGSECD+1, DGSECD+4
EDITR9	DGSECE+1, DGSECE+4
EDITX9	DGSECX+1, DGSECX+4
EN	DEMO+3
EXIT	DEMO+3, EDIT+2, EDIT+3, EDIT+5, DGSECE+7, EDITR9+4, DISP+2, DISP+3, DISP+5, DGSECD+7 , EDITD9+3, DEL+2, DEL+4, DEL+5, DEL+7, DGSECX+7, EDITX9+2, EDITX9+3, EDITX9+5, BV+4 , HS+9, ADD+4, ADD+9, PROV+4, GETDATE+3, GETDATE+12, GETDATE+17, GETDATE+20, ADDDS+3, CHECK+32
GATHER	EN+2, INIT+1, EXIT+3
GETTYPE	HS+3
HDR	EXIT+5
PAUSE	EDIT+5, DISP+5, DEL+2, DEL+7, GETDATE+12, GETDATE+17, ADDDS+3, CHECK+32
PROV	GETDATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HS+6*, HS+7, HS+8!, EOJ+4!
AMCHDAYS	HS+8!
AMCHDOB	HS+8!
AMHBD	D+1!, D+3*, D+7, GATHER+4, HDR+1
AMHC	CHECK+1, CHECK+2, CHECK+3, CHECK+4, CHECK+9, CHECK+14, CHECK+16, CHECK+18, CHECK+22, CHECK+26 , CHECK+29, CHECK+30, CHECK+32, EXIT+6!
>> AMHD	GATHER+9*, GATHER+11
>> AMHDATE	GETDATE+2, GETDATE+4, GETDATE+5, GETDATE+13, GETDATE+14
>> AMHDEMO	DEMO+1, DEMO+2, GATHER+8
>> AMHDOB	GATHER+6*, GATHER+11
>> AMHDP	PROV+2*
AMHED	D+1!, D+5*, D+7, GATHER+3, HDR+1
AMHF	CHECK+2, CHECK+3, EXIT+6!
>> AMHIISFE	ADDDS+1*
AMHLINE	GATHER+2, GATHER+10, GATHER+14, INIT+2, EXIT+4, EXIT+6!
AMHPAT	DGSECE+2, DGSECE+3, DGSECE+9, EDITR9+2, DGSECD+2, DGSECD+3, DGSECD+9, DGSECX+2, DGSECX+3, DGSECX+9 , BV+2~, HS+7~, ADD+2*, ADD+4, ADD+5, ADD+6, ADD+7, ADDSF~, GETDATE+5, GETDATE+13 , GETDATE+14, EXIT+6!
>> AMHPROV	PROV+5*, GETDATE+14
>> AMHQUIT	D+3, D+5, ADDDS+3*
AMHRDEL	EDIT+5!, DISP+5!, DEL+7!
AMHRESU	DGSECE+3, DGSECE+8!, DGSECE+9, DGSECD+3, DGSECD+8!, DGSECD+9, DGSECX+3, DGSECX+8!, DGSECX+9, EXIT+6!
AMHRESU(1	DGSECE+4, DGSECD+4, DGSECX+4
>> AMHSD	GATHER+3, GATHER+4, GATHER+5
AMHSF	EDIT+4, EDIT+5!, DGSECE+1, DGSECE+2, EDITR9+1, EDITR9+2, DISP+4, DISP+5!, DGSECD+1, DGSECD+2 , EDITD9+2, DEL+6, DEL+7!, DGSECX+1, DGSECX+2, EDITX9+4, GETDATE+18, ADDDS+2, CHECK+2, CHECK+3 , CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11, CHECK+12, CHECK+13, CHECK+14 , CHECK+17, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31 , CHECK+32, EXIT+6!
AMHSFR	EN+1!, GATHER+1!
AMHSFR(	GATHER+14*
AMHSFR("IDX"	GATHER+14*, EDIT+4, DISP+4, DEL+6
AMHX	GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, EXIT+6!
>> APCHSPAT	HS+5*, HS+6
>> APCHSTYP	HS+4, GETTYPE+2, GETTYPE+3, DEFAULT+1, DEFAULT+4
BALMON	EOJ+6!
D	CHECK+13, CHECK+14, CHECK+21, CHECK+22, CHECK+25*, CHECK+26, UPI~, UPI+4
D0	GETDATE+13!, GETDATE+16!
DA	DGSECE+6!, EDITR9+1, DGSECD+6!, DGSECX+6!, EDITX9+1!, EDITX9+4, DEFAULT+2!, PROV+3!, GETDATE+8!, GETDATE+13! , ADDDS+2, CHECK+5!, CHECK+31!, CHECK+32, CHECK+33!, EOJ+4!
DD	GETDATE+13!
DDS	EOJ+4!
DDSFILE	ADDDS+2*, EOJ+3!
DFN	GATHER+6, GATHER+8, GATHER+11, EDITR9+2, BV+3, HS+2, HS+5, HS+7~, ADD+6*, EXIT+6! , EOJ+2!
DIADD	PROV+3!, GETDATE+13*, GETDATE+16!
DIC	DEFAULT+2!, PROV+3!, GETDATE+13!*, GETDATE+16!, EOJ+4!
DIC("A"	PROV+3*
DIC("B"	PROV+3*
DIC("DR"	GETDATE+14, GETDATE+15
DIC(0	DEFAULT+2, PROV+3, GETDATE+13*
DIE	EDITR9+1, GETDATE+16!, CHECK+5!, CHECK+31*!
>> DIK	EDITX9+4, CHECK+32
DIMSG	ADDDS+3!
DINUM	GETDATE+13!
DIPGM	EOJ+3!
DIR	D+2!, D+4!, DGSECE+6!, DGSECD+6!, DGSECX+6!, EDITX9+1!, GETDATE+2!, GETDATE+8!, CHECK+33!, PAUSE+1!
DIR("A"	D+2, D+4, DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+2, GETDATE+8, CHECK+33, PAUSE+1
DIR("B"	DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+8, CHECK+33
DIR(0	D+2, D+4, DGSECE+6, DGSECD+6, DGSECX+6, EDITX9+1, GETDATE+2, GETDATE+8, CHECK+33, PAUSE+1
>> DIRUT	EDITX9+2, GETDATE+2, GETDATE+3, GETDATE+9, CHECK+34, PAUSE+1
DLAYGO	PROV+3!, GETDATE+13*, GETDATE+16!
DO	GETDATE+13!
DR	EDITR9+1, PROV+3!, GETDATE+13!, GETDATE+16!, ADDDS+2, CHECK+5!, CHECK+31!, EOJ+4!
DT	EDITR9+1, GETDATE+2, GETDATE+14
>> DUOUT	GETDATE+2, PAUSE+1
DUZ	GATHER+7, EDITR9+1, DEL+2, PROV+3, GETDATE+14
DUZ(2	GATHER+11, GETTYPE+1, GETTYPE+2, ALLOW+9
>> G	GETDATE+5, GETDATE+11, CHECK+7, CHECK+8, CHECK+16, CHECK+17, CHECK+18, CHECK+19, CHECK+23, CHECK+24* , CHECK+29
I	EXIT+6!
IOF	START+1, ADDSF+2
IOM	CTR+1
P	UPI~, UPI+1, UPI+4, ALLOW+6~, ALLOW+7*, ALLOW+8, ALLOW+9, ALLOW+10
R	EDIT+3!, EDIT+4, EDIT+5!, DISP+3!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!, ALLOW~ , ALLOW+4, ALLOW+5, ALLOW+7, ALLOW+10
R1	EDIT+5!, DISP+5!, DEL+7!
S	ALLOW~, ALLOW+3, ALLOW+9, ALLOW+10
U	GATHER+6, GATHER+9, GATHER+11, DGSECE+1, DGSECE+2, EDITR9+2, DGSECD+1, DGSECD+2, DGSECX+1, DGSECX+2 , HS+6, GETTYPE+2, PROV+3, GETDATE+5, CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+10, CHECK+11 , CHECK+13, CHECK+14, CHECK+17, CHECK+21, CHECK+22, CHECK+24, CHECK+25, CHECK+26, CHECK+30, CHECK+31 , UPI+2, UPI+4, ALLOW+7, ALLOW+10
VALM	EOJ+6!
VALMAR	EOJ+6!
VALMBCK	EXIT+2*, EOJ+6!
VALMBG	EOJ+6!
VALMCAP	EOJ+6!
VALMCC	EOJ+6!
VALMCNT	INIT+2, EXIT+4, EOJ+6!
VALMCOFF	EOJ+6!
VALMCON	EOJ+6!
VALMEVL	EOJ+6!
VALMHDR	EOJ+6!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMIOXY	EOJ+6!
VALMKEY	EOJ+6!
VALMLFT	EOJ+6!
VALMLST	EOJ+6!
VALMMENU	EOJ+6!
VALMSGR	EOJ+6!
VALMUP	EOJ+6!
VALMVAR	EOJ+6!
VALMWD	EOJ+5, EOJ+6!
VALMY	EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0	EDIT+3, DISP+3, DEL+5
X	GATHER+10, GATHER+11, GATHER+12, GATHER+13, GATHER+14, CTR~, CTR+1, HDR+3, HDR+4, HELP+1* , DEFAULT+2, GETDATE+5, GETDATE+7, GETDATE+13, GETDATE+16!, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHECK+11 , CHECK+12, CHECK+13, CHECK+14, CHECK+20, CHECK+21, CHECK+22, CHECK+23, CHECK+24, CHECK+25, CHECK+26 , EXIT+6!, EOJ+4!
XQORNOD	EDIT+3!, DISP+3!, DEL+5!
XQORNOD(0	EDIT+1, DISP+1, DEL+3
Y	D+3, D+5, CTR~, CTR+1, DGSECE+7, DGSECD+7, DGSECX+7, EDITX9+3, HS+2, DEFAULT+3 , DEFAULT+4, ADD+5, PROV+4, PROV+5, GETDATE+4, GETDATE+5, GETDATE+6, GETDATE+9, GETDATE+10, GETDATE+12 , GETDATE+17, GETDATE+18, CHECK+12, CHECK+13, CHECK+14, CHECK+32, CHECK+34*, EXIT+6!, EOJ+3!, EOJ+4!
Z	CHECK+7, CHECK+23, EXIT+6!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHSFR

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: