Routine: AMHEHR1

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 EN^XBVK
Kernel	2	$$FMADD^XLFDT SETUP^XQALERT
Mental Health Social Services	2	PAUSE^AMHLEA $$PPINT^AMHUTIL
Text Integration Utility	2	$$CANDO^TIULP EXTRACT^TIULQ
IHS Patient	1	$$HRN^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	1	AMHEHR

Entry Points

Name	Comments	DBIA/ICR reference
TIUDSP	;EP
RSUI	;SUICIDE RISK
SCRREF	;EP - ANY REFUSALS FOR SCREENINGS FOR THIS PATIENT/DATE?
S1	;
EEPC	;EP - called from option
S(Y,F,C,T)	;EP - set up array
RDEP	;DEPRESSION
EXIT	;
SETARRAY	;EP
EHRALERT	;EP - called from option/scheduled
RALC	;ALCOHOL
GETDSM	;EP

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	EEPC+8
$$PPINT^AMHUTIL	EHRALERT+10
$$HRN^AUPNPAT	EHRALERT+29
^DIC	EEPC+13
^DIE	EEPC+22, SCRREF+4, SCRREF+6, SCRREF+8, SCRREF+10, SCRREF+24, RALC+9, RDEP+9, RSUI+8
^DIR	EEPC+20
$$CANDO^TIULP	TIUDSP+2, TIUDSP+20
EXTRACT^TIULQ	TIUDSP+6, TIUDSP+24
$$VAL^XBDIQ1	EEPC+10, EEPC+11, EEPC+15, EEPC+19, EEPC+21, EHRALERT+29, SCRREF+24, RALC+9, RDEP+9, RSUI+8
$$VALI^XBDIQ1	SCRREF+16, SCRREF+22, SCRREF+24, RALC+1, RALC+7, RALC+9, RDEP+1, RDEP+7, RDEP+9, RSUI+6 , RSUI+8
EN^XBVK	EXIT+1
$$FMADD^XLFDT	EHRALERT+5
SETUP^XQALERT	EHRALERT+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to loop through all MHSS PROBLEM/DX table " Line Location: EEPC+1
Function Call: WRITE	Prompt: !,"entries created by EHR users to change the grouping from the " Line Location: EEPC+2
Function Call: WRITE	Prompt: !,"generic 99.9 OTHER EHR CLINICAL grouping to a more specific" Line Location: EEPC+3
Function Call: WRITE	Prompt: !,"MHSS PROBLEM CODE grouping.",!! Line Location: EEPC+4
Function Call: WRITE	Prompt: !!,"Problem code 99.9 is not in the file.",! Line Location: EEPC+7
Function Call: WRITE	Prompt: !!,"There are no newly created entries in the MHSS Problem/DX table.",!,"No action is needed at this time.",!! Line Location: EEPC+8
Function Call: WRITE	Prompt: !,"nothing changed for CODE: ",$$VAL^XBDIQ1(9002012.2,AMHX,.01) Line Location: EEPC+15
Function Call: WRITE	Prompt: !,"nothing changed for CODE: ",$$VAL^XBDIQ1(9002012.2,AMHX,.01) Line Location: EEPC+21
Routine Call	DIE Line Location: EEPC+22 SCRREF+4 SCRREF+6 SCRREF+8 SCRREF+10 SCRREF+24 RALC+9 RDEP+9 RSUI+8
Routine Call	DIC Line Location: EEPC+13
Routine Call	DIR Line Location: EEPC+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHPROB - [#9002012.2]	Classic Fileman Calls
^AMHPROBC - [#9002012.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	GETDSM+5, GETDSM+6, GETDSM+14
^AMHPROB("AC"	EEPC+8, EEPC+9
^AMHPROB("B"	GETDSM+4
^AMHPROBC("B"	EEPC+5
^AMHREC - [#9002011]	EHRALERT+8, EHRALERT+9, EHRALERT+14, EHRALERT+15, EHRALERT+29, EHRALERT+30, EHRALERT+32, EHRALERT+34, EHRALERT+35, GETDSM+2 , SCRREF+3, SCRREF+5, SCRREF+7, SCRREF+9, SCRREF+13
^AMHREC("AD"	EHRALERT+11
^AMHREC("ALM"	EHRALERT+6, EHRALERT+7
^AMHRPROV - [#9002011.02]	EHRALERT+11
^AUPNPREF("AA"	SCRREF+18, SCRREF+20, RALC+3, RALC+5, RDEP+3, RDEP+5, RSUI+2, RSUI+4
^AUPNVSIT - [#9000010]	SETARRAY+27
^AUTTEXAM("C"	SCRREF+17, RALC+2, RDEP+2, RSUI+1
^TIU(8925 - [#8925]	TIUDSP+18, TIUDSP+19
^TMP("AMHOENPS"	TIUDSP+4, TIUDSP+7, TIUDSP+8!, TIUDSP+21, TIUDSP+25, TIUDSP+26!

Label References

Name	Line Occurrences
EXIT	EEPC+7, EEPC+8
RALC	SCRREF+16
RDEP	RALC+1
RSUI	RDEP+1
S	TIUDSP+1, TIUDSP+9, TIUDSP+10, TIUDSP+11, TIUDSP+12, TIUDSP+13, TIUDSP+15, TIUDSP+16, TIUDSP+18, TIUDSP+27 , TIUDSP+28, TIUDSP+29, TIUDSP+30, TIUDSP+31, TIUDSP+32, TIUDSP+34, TIUDSP+35
S1	S+4, S+6, S+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EHRALERT+4~, EHRALERT+11, S+7, S+8*
>> AMH02	SETARRAY+3
>> AMH04	SETARRAY+4
>> AMH05	SETARRAY+5
>> AMH06	SETARRAY+6
>> AMH07	SETARRAY+7
>> AMH09	SETARRAY+8
>> AMH11	SETARRAY+9
>> AMH1108	SETARRAY+13
>> AMH1117	SETARRAY+14
>> AMH12	SETARRAY+10
>> AMH1401	SETARRAY+15
>> AMH1402	SETARRAY+16
>> AMH1403	SETARRAY+17
>> AMH1404	SETARRAY+18
>> AMH1405	SETARRAY+19
>> AMH1406	SETARRAY+20
>> AMH1407	SETARRAY+24
>> AMH1408	SETARRAY+25
>> AMH1501	SETARRAY+21
>> AMH1601	SETARRAY+22
>> AMH1701	SETARRAY+23
>> AMH1901	SETARRAY+26
>> AMH25	SETARRAY+11
>> AMH26	SETARRAY+12
>> AMH45	GETDSM+6
>> AMHC	S1+1*, S1+2
>> AMHCODE	GETDSM+4
AMHD	EHRALERT+4~, EHRALERT+5, EHRALERT+6, EHRALERT+7, SCRREF+12~, SCRREF+13*, SCRREF+19, RALC+4, RDEP+4, RSUI+3
>> AMHDOC	TIUDSP+2, TIUDSP+6, TIUDSP+7, TIUDSP+18, TIUDSP+19
>> AMHDSM	GETDSM+10, GETDSM+15, GETDSM+16*
>> AMHEPC	EEPC+5*, EEPC+7, EEPC+8, EEPC+9
AMHERR	TIUDSP+6, TIUDSP+24, SETARRAY+1~
>> AMHFDA(9002011	SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12 , SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22 , SETARRAY+23, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27*
>> AMHGBL	TIUDSP+4, TIUDSP+5, TIUDSP+6, TIUDSP+21, TIUDSP+22, TIUDSP+24
>> AMHHLF	TIUDSP+4*
>> AMHIENS	SETARRAY+2*, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11 , SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21 , SETARRAY+22, SETARRAY+23, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27
AMHP	EHRALERT+4~, EHRALERT+10, EHRALERT+11, EHRALERT+12, EHRALERT+15, EHRALERT+19, EHRALERT+34
>> AMHPAT	SCRREF+18, SCRREF+20, RALC+3, RALC+5, RDEP+3, RDEP+5, RSUI+2, RSUI+4
>> AMHPCG	EEPC+12, EEPC+16, EEPC+19, EEPC+22
>> AMHQ	EEPC+6, EEPC+9, EEPC+14
AMHR	EHRALERT+4~, EHRALERT+7*, EHRALERT+8, EHRALERT+9, EHRALERT+10, EHRALERT+11, EHRALERT+14, EHRALERT+15, EHRALERT+29, EHRALERT+30 , EHRALERT+32, EHRALERT+34, EHRALERT+35, GETDSM+2, SETARRAY+2, SCRREF+3, SCRREF+4, SCRREF+5, SCRREF+6, SCRREF+7 , SCRREF+8, SCRREF+9, SCRREF+10, SCRREF+13, SCRREF+16, SCRREF+24, RALC+1, RALC+9, RDEP+1, RDEP+9 , RSUI+8
>> AMHSTR	TIUDSP+1, TIUDSP+9, TIUDSP+10, TIUDSP+11, TIUDSP+12, TIUDSP+13, TIUDSP+15, TIUDSP+16, TIUDSP+18, TIUDSP+27 , TIUDSP+28, TIUDSP+29, TIUDSP+30, TIUDSP+31, TIUDSP+32, TIUDSP+34, TIUDSP+35*
>> AMHTEXT(1	EHRALERT+23*
>> AMHTEXT(2	EHRALERT+24*
>> AMHTEXT(3	EHRALERT+25*
>> AMHTEXT(4	EHRALERT+26*
>> AMHTEXT(5	EHRALERT+27*
AMHTIU	TIUDSP+7, TIUDSP+23!, TIUDSP+25
AMHTIU(	TIUDSP+9, TIUDSP+11, TIUDSP+28, TIUDSP+30
AMHTIU("TEXT"	TIUDSP+13, TIUDSP+32
AMHTIU(1202	TIUDSP+10, TIUDSP+29
AMHTIU(1205	TIUDSP+12, TIUDSP+31
AMHTIU(1501	TIUDSP+14, TIUDSP+16, TIUDSP+33, TIUDSP+35
AMHTIU(1502	TIUDSP+11, TIUDSP+30
AMHTIU(1503	TIUDSP+15, TIUDSP+34
>> AMHTIUD(	S1+2*
>> AMHVSIT	SETARRAY+27
AMHX	EEPC+9, EEPC+10, EEPC+11, EEPC+15, EEPC+21, EEPC+22, TIUDSP+13, TIUDSP+32, SCRREF+12~, SCRREF+18 , SCRREF+19, SCRREF+20, RALC+3, RALC+4, RALC+5, RDEP+3, RDEP+4, RDEP+5, RSUI+2*, RSUI+3 , RSUI+4
>> AMHX1	TIUDSP+19*, TIUDSP+20, TIUDSP+24, TIUDSP+25
AMHY	SCRREF+12~, SCRREF+20, SCRREF+22, SCRREF+24, RALC+5, RALC+7, RALC+9, RDEP+5, RDEP+7, RDEP+9 , RSUI+4, RSUI+6, RSUI+8
AMHZ	SCRREF+12~, SCRREF+17, SCRREF+18, SCRREF+20, RALC+2, RALC+3, RALC+5, RDEP+2, RDEP+3, RDEP+5 , RSUI+1, RSUI+2, RSUI+4
C	S~, S+6, GETDSM+1~, GETDSM+4, GETDSM+7, GETDSM+10, GETDSM+11
D	GETDSM+1~, GETDSM+2*, GETDSM+5
DA	EEPC+20!, EEPC+22!, SCRREF+4!, SCRREF+6!, SCRREF+8!, SCRREF+10!, SCRREF+24!, RALC+9!, RDEP+9!, RSUI+8*!
DIC	EEPC+12!*, EEPC+15!, EEPC+17!, EEPC+21!
DIC("A"	EEPC+12*
DIC("S"	EEPC+12*
DIC(0	EEPC+12*
DIE	EEPC+22!, SCRREF+4!, SCRREF+6!, SCRREF+8!, SCRREF+10!, SCRREF+24!, RALC+9!, RDEP+9!, RSUI+8*!
DIR	EEPC+17!, EEPC+20!
DIR("A"	EEPC+19*
DIR("B"	EEPC+20*
DIR(0	EEPC+20*
DIU	EEPC+22!
DIV	EEPC+22!
DIW	EEPC+22!
DR	EEPC+22!, SCRREF+4!, SCRREF+6!, SCRREF+8!, SCRREF+10!, SCRREF+24!, RALC+9!, RDEP+9!, RSUI+8*!
DT	EHRALERT+5, EHRALERT+34
DUZ	TIUDSP+2, TIUDSP+20
DUZ(2	EHRALERT+29
F	S~, S+1, S+4
G	EHRALERT+14, EHRALERT+16, EHRALERT+17, EHRALERT+32, EHRALERT+33, EHRALERT+34, EHRALERT+35, GETDSM+1~, GETDSM+13, GETDSM+14 , GETDSM+15
IOM	TIUDSP+4
>> L	S+6*
>> R	SCRREF+16, SCRREF+22, SCRREF+23, SCRREF+24, RALC+1, RALC+7, RALC+8, RALC+9, RDEP+1, RDEP+7 , RDEP+8, RDEP+9, RSUI+6*, RSUI+7, RSUI+8
T	S~, S+2, S+6, S+7, S+8
U	EHRALERT+8, EHRALERT+9, EHRALERT+11, EHRALERT+15, EHRALERT+29, EHRALERT+30, GETDSM+2, GETDSM+5, GETDSM+6, GETDSM+14 , SETARRAY+27, SCRREF+3, SCRREF+5, SCRREF+7, SCRREF+9, SCRREF+13
X	EEPC+14, EHRALERT+14, EHRALERT+15, EHRALERT+32, S+4, S+5, S+7, S+8, S1+2, GETDSM+1~ , GETDSM+4, GETDSM+5, GETDSM+6, GETDSM+8, GETDSM+13, GETDSM+14
>> XQA(	EHRALERT+19*
>> XQAFLG	EHRALERT+22*
>> XQAID	EHRALERT+30*
>> XQAMSG	EHRALERT+29*
>> XQAOPT	EHRALERT+20*
>> XQAROU	EHRALERT+21*
>> XQATEXT	EHRALERT+28*
Y	EEPC+15!, EEPC+16, EEPC+21!, S~, S+5, S+6, S+8, GETDSM+1~
Y(	GETDSM+8*, GETDSM+13
Y(0	GETDSM+10, GETDSM+16

Customize PDF page

Package: Mental Health Social Services

Routine: AMHEHR1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: