Routine: AMHUTIL1

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL (HLP,REQ)^DDSUTL ($$GET,PUT)^DDSVAL $$GET1^DIQ ^DIR
DRG Grouper	3	$$ICDDX^ICDCODE ($$ICDDX,ICDDX)^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$VERSION^XPDUTL
Mental Health Social Services	1	$$IMP^AMHUTIL2
Patient Care Component Reports	1	($$PATIENT,$$VD)^APCLV
Toolkit	1	EDITPAR^XPAREDIT

Package	Total	Caller Graph
Mental Health Social Services	79	AMHDPEE AMHEGR1 AMHEHR AMHFC AMHFC1 AMHGAFS AMHGDGP AMHGT AMHGU AMHGUA AMHLEE AMHLEFP2 AMHLETP1 AMHLETR AMHLETR1 AMHLETR2 AMHLETR3 AMHPHQM AMHRAS1 AMHRAS2 AMHRAS3 AMHRAS31 AMHRAS4 AMHRAS5 AMHRC1 AMHRC2 AMHRC3 AMHRC4 AMHRC5 AMHRDE1 AMHRDE2 AMHRDE3 AMHRDE31 AMHRDE4 AMHRDE5 AMHRDV1 AMHRDV2 AMHRDV3 AMHRDV31 AMHRDV4 AMHRDV5 AMHRE1 AMHRGADM AMHRL AMHRL1 AMHRNOAT AMHRNS AMHRNSIG AMHRNSM AMHRP2 AMHRP21 AMHRP3 AMHRP31 AMHRP4 AMHRP7 AMHRP8 AMHRP9 AMHRPEC AMHRPPA AMHRPPD AMHRPS AMHRPS1 AMHRPSU1 AMHRPSU2 AMHRPSU3 AMHRPT AMHRPT4 AMHRSB1 AMHRSR1 AMHRSR2 AMHRSR3 AMHRSR31 AMHRSR4 AMHRSR5 AMHRSU5 AMHSFR AMHUTIL3 AMHVDSG AMHVDSG1

Package

Total

Caller Graph

Mental Health Social Services

AMHDPEE  AMHEGR1  AMHEHR  AMHFC  AMHFC1  AMHGAFS  AMHGDGP  AMHGT
AMHGU  AMHGUA  AMHLEE  AMHLEFP2  AMHLETP1  AMHLETR  AMHLETR1  AMHLETR2
AMHLETR3  AMHPHQM  AMHRAS1  AMHRAS2  AMHRAS3  AMHRAS31  AMHRAS4  AMHRAS5
AMHRC1  AMHRC2  AMHRC3  AMHRC4  AMHRC5  AMHRDE1  AMHRDE2  AMHRDE3
AMHRDE31  AMHRDE4  AMHRDE5  AMHRDV1  AMHRDV2  AMHRDV3  AMHRDV31  AMHRDV4
AMHRDV5  AMHRE1  AMHRGADM  AMHRL  AMHRL1  AMHRNOAT  AMHRNS  AMHRNSIG
AMHRNSM  AMHRP2  AMHRP21  AMHRP3  AMHRP31  AMHRP4  AMHRP7  AMHRP8
AMHRP9  AMHRPEC  AMHRPPA  AMHRPPD  AMHRPS  AMHRPS1  AMHRPSU1  AMHRPSU2
AMHRPSU3  AMHRPT  AMHRPT4  AMHRSB1  AMHRSR1  AMHRSR2  AMHRSR3  AMHRSR31
AMHRSR4  AMHRSR5  AMHRSU5  AMHSFR  AMHUTIL3  AMHVDSG  AMHVDSG1

Entry Points

Name	Comments	DBIA/ICR reference
SECPOV(V,N,F)	;EP
UID(AMHA)	;EP-Given DFN return unique patient record id. ; AMHA can be DFN, but is not required if DFN or DA exists.
CHKICD(Y,D,R,A,E)	;EP
HL1	;
CHKCPT(Y,D)	;EP
ED1	;
DEMO(P,T)	;EP - called to exclude demo patients
OPEN	;
PRIMPOV(V,F)	;EP - primary provider in many different formats
TAR1(R)	;EP
CPT(Y,D)	;EP - screen on CPT
20
EDITTIUT	;EP - called from option
POV	;EP
PX	;;AMHBH TIU TITLES 9002011-1108
DEMOCHK(R)	;EP - check demo pat
CHKD(Y,D)	;EP check dsm with Date
1	;
DSMCS(S,D)	;EP - called to get coding system
3	;
2	;
5	;
4	;
7
6
9
ADMDX	;EP
IX	;;AMHBH TIU TITLES INTAKE-.09
C	;EP
B	;
E	;
D	;EP
DSMVDT(S)	;
I	;
POVICD9D(Y,D)	;
GX	;;AMHBH TIU TITLES GROUP-.17
J	;
N	;
P	;
S	;stage
DATEEDIT	;EP
TX	;;AMHBH TIU TITLES TP .21
LZERO(V,L)	;EP - left zero fill
ADMIT	;
11
10
13
12
15
14
17
16
19
18
POVICD9(Y,D,R,A,E)	;EP
UIDV(VISIT)	;EP - generate unique ID for visit
NRD	;
TARGET(R)	;EP
CLOSED	;
DAYSBACK	;EP - called from option
EDITHLD	;EP - called from option

External References

Name	Field # of Occurrence
$$IMP^AMHUTIL2	CHKD+14, POVICD9+17
$$PATIENT^APCLV	4+1
$$VD^APCLV	1+1, 2+1
EN^DDIOL	OPEN+8, OPEN+9, OPEN+13, OPEN+14, OPEN+18, OPEN+19, ADMIT+8, ADMIT+9, ADMIT+13, ADMIT+14 , NRD+8, NRD+9, CLOSED+8, CLOSED+9, CLOSED+13, CLOSED+14
HLP^DDSUTL	DATEEDIT+1
REQ^DDSUTL	TARGET+4, TAR1+2, TAR1+3
$$GET^DDSVAL	OPEN+2, OPEN+3, OPEN+4, OPEN+5, ADMIT+2, ADMIT+3, ADMIT+4, ADMIT+5, NRD+2, NRD+3 , NRD+4, NRD+5, CLOSED+2, CLOSED+3, CLOSED+4, CLOSED+5
PUT^DDSVAL	OPEN+10, OPEN+15, OPEN+20, ADMIT+10, ADMIT+15, NRD+10, CLOSED+10, CLOSED+15, TARGET+3
$$GET1^DIQ	N+1, UID+19, UIDV+4
^DIR	DEMOCHK+4, ED1+3
$$ICDDX^ICDCODE	POVICD9D+3, POVICD9D+6
$$ICDDX^ICDEX	POVICD9D+4, POVICD9D+7
ICDDX^ICDEX	POVICD9D+3, POVICD9D+4, POVICD9D+6, POVICD9D+7
$$CPT^ICPTCOD	CHKCPT+2
$$VAL^XBDIQ1	10, 13, 16, 17, 18, 20
$$VALI^XBDIQ1	19
EDITPAR^XPAREDIT	DAYSBACK+4, ED1+8, HL1+1
$$VERSION^XPDUTL	POVICD9D+3, POVICD9D+4, CHKCPT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option is used to edit the parameter definition for the " Line Location: DAYSBACK+1
Function Call: WRITE	Prompt: !,"Number of days back the BH-EHR should look for displaying visits" Line Location: DAYSBACK+2
Function Call: WRITE	Prompt: !,"to the user.",!! Line Location: DAYSBACK+3
Function Call: WRITE	Prompt: !!,"This option is used to edit the parameters for the list" Line Location: EDITTIUT+1
Function Call: WRITE	Prompt: !,"of preferred TIU Note Titles that the BH-EHR should display" Line Location: EDITTIUT+2
Function Call: WRITE	Prompt: !,"to the user when they select a TIU title for the following:" Line Location: EDITTIUT+3
Function Call: WRITE	Prompt: !?5," - Behavioral Health record Progress Note/SOAP" Line Location: EDITTIUT+4
Function Call: WRITE	Prompt: !?5," - Treatment Plan Narrative" Line Location: EDITTIUT+5
Function Call: WRITE	Prompt: !?5," - Group Note Narrative" Line Location: EDITTIUT+6
Function Call: WRITE	Prompt: !?5," - Intake Document Narrative" Line Location: EDITTIUT+7
Function Call: WRITE	Prompt: !! Line Location: EDITTIUT+8
Function Call: WRITE	Prompt: !!,"This option is used to edit the default hospital locations" Line Location: EDITHLD+1
Function Call: WRITE	Prompt: !,"do be displayed to the user when creating a TIU Note." Line Location: EDITHLD+2
Function Call: WRITE	Prompt: !! Line Location: EDITHLD+3
Routine Call	DIR Line Location: DEMOCHK+4 ED1+3

FileNo	Call Tags
^AMHREC - [#9002011]	PUT^DDSVAL
^AMHRPRO - [#9002011.01]	GET1^DIQ
^AMHPCASE - [#9002011.58]	GET^DDSVAL
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	CHKD+3, CHKD+6, CHKD+8, CHKD+10, CHKD+15, CHKD+17, CHKD+18, CHKD+19, CHKD+20, CHKD+21 , CHKICD+6, POVICD9+16, POVICD9+20, POVICD9+23, POVICD9+24, POVICD9+26, POVICD9+32, POVICD9+38, POVICD9+39, POVICD9+40 , POVICD9+41, POVICD9+42, PRIMPOV+7, SECPOV+8, ADMDX+8, B+1, E+1, C+1, J+1
^AMHREC - [#9002011]	POVICD9+17, POVICD9+28, POVICD9+35, POVICD9+46, POVICD9+47, PRIMPOV+2, SECPOV+2, ADMDX+2
^AMHRPA("AD"	TARGET+1, TAR1+2
^AMHRPRO - [#9002011.01]	POVICD9+47, PRIMPOV+5, SECPOV+6, POV+2, D+1, J+1, P+1, S+1, 1+1, 2+1 , 3+1, 4+1, 15
^AMHRPRO("AD"	PRIMPOV+5, SECPOV+6, POV+2
^AMHSITE - [#9002013]	DSMCS+6, DSMCS+8, DSMVDT+4, DSMVDT+6
^AUPNPAT - [#9000001]	UID+17
^AUPNVINP - [#9000010.02]	ADMDX+6
^AUPNVINP("AD"	ADMDX+4
^AUTTSITE(1	UID+19, UIDV+4
^DIBT(	DEMO+11, DEMO+17
^DIBT("B"	DEMO+9, DEMO+15
^DPT - [#2]	DEMO+7, DEMO+13
^ICD9 - [#80]	POVICD9D+9
^ICPT - [#81]	CPT+3, CHKCPT+5

Name	Line Occurrences
$$CHKCPT	CPT+2
$$DSMCS	CHKD+5, POVICD9+22
$$LZERO	UIDV+5
$$POVICD9	CHKICD+5
$$POVICD9D	CHKD+22, POVICD9+45, POVICD9+46, POVICD9+47, POVICD9+48
@(	PRIMPOV+9, SECPOV+10, POV+4, POV+6, POV+7, ADMDX+10
C	7
D	9
E	6
ED1	ED1+9
J	11
N	14
P	12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DEMO+8~, DEMO+9, DEMO+10, DEMO+11, DEMO+14~, DEMO+15, DEMO+16, DEMO+17, PRIMPOV+3~, PRIMPOV+9* , PRIMPOV+10, SECPOV+4~, SECPOV+10, SECPOV+11, POV+1~, POV+4, POV+6, POV+7, ADMDX+3~, ADMDX+4* , ADMDX+5, ADMDX+10, ADMDX+11, B+1, I+1, E+1, C+1, D+1, J+1, P+1 , N+1, S+1, 1+1, 2+1, 3+1, 4+1, 5+1, 10, 13, 15 , 16, 17, 18, 19, 20, LZERO+1~, LZERO+2, CHKCPT+1~, CHKCPT+2*, CHKCPT+3 , CHKCPT+4
A	CHKICD~, CHKICD+3, CHKICD+5, POVICD9~, POVICD9+10, POVICD9+47, POVICD9D+1~, POVICD9D+9, POVICD9D+11, CHKCPT+1~ , CHKCPT+5, OPEN+1~, OPEN+3, OPEN+7, ADMIT+1~, ADMIT+3, ADMIT+6, ADMIT+7, ADMIT+12, NRD+1~ , NRD+3, CLOSED+1~, CLOSED+3, CLOSED+12
AMHA	UID~, UID+13, UID+14, UID+16, UID+17, UID+19
>> AMHPAR	ED1+7*, ED1+8
>> AMHR	TARGET+3
>> AMHY	ED1+6*
>> APCLV(	POV+2, POV+4, POV+6, POV+7
C	DSMCS+7~, DSMCS+8, DSMCS+9, DSMCS+10, DSMVDT+5~, DSMVDT+6, DSMVDT+7, PRIMPOV+3~, PRIMPOV+4, SECPOV+4~ , SECPOV+5, SECPOV+6, POV+1~, POV+2, POV+4, POV+6, POV+7, OPEN+1~, OPEN+4, OPEN+12 , ADMIT+1~, ADMIT+4, ADMIT+12, NRD+1~, NRD+4, CLOSED+1~, CLOSED+4, CLOSED+6, CLOSED+7, CLOSED+12
CS	CHKD+6, POVICD9+13~, POVICD9+23
D	CHKD~, CHKD+1, CHKD+5, CHKD+12, CHKD+13, CHKD+14, CHKD+22, CHKICD~, CHKICD+1, CHKICD+5 , DSMCS~, DSMCS+5, DSMCS+10, POVICD9~, POVICD9+9, POVICD9+22, POVICD9+28, POVICD9+29, POVICD9+30, POVICD9+31 , POVICD9+35, POVICD9+36, POVICD9+45, POVICD9+46, POVICD9+47, POVICD9D~, POVICD9D+2, POVICD9D+3, POVICD9D+4, POVICD9D+6 , POVICD9D+7, POVICD9D+10, POVICD9D+11, CPT~, CPT+1*, CPT+2, CHKCPT~, CHKCPT+2, CHKCPT+7
DA	DEMOCHK+1~, DEMOCHK+4!, UID+14, ED1+3!, OPEN+2, OPEN+3, OPEN+4, OPEN+5, OPEN+10, OPEN+15 , OPEN+20, ADMIT+2, ADMIT+3, ADMIT+4, ADMIT+5, ADMIT+10, ADMIT+15, NRD+2, NRD+3, NRD+4 , NRD+5, NRD+10, CLOSED+2, CLOSED+3, CLOSED+4, CLOSED+5, CLOSED+10, CLOSED+15
DCS	POVICD9+13~
>> DDSBR	OPEN+11, OPEN+16, OPEN+21, ADMIT+11, ADMIT+16, NRD+11, CLOSED+11, CLOSED+16
>> DDSERROR	DATEEDIT+1*
>> DDSOLD	OPEN+10, OPEN+15, OPEN+20, ADMIT+10, ADMIT+15, NRD+10, CLOSED+10, CLOSED+15
>> DFN	UID+13
>> DIC	UID+14
>> DIE	OPEN+10, OPEN+15, OPEN+20, ADMIT+10, ADMIT+15, NRD+10, CLOSED+10, CLOSED+15
DIR	DEMOCHK+1~, DEMOCHK+4!, ED1+1!, ED1+3!
DIR("A"	DEMOCHK+3, ED1+3
DIR("B"	DEMOCHK+3*
DIR(0	DEMOCHK+3, ED1+2
>> DIRUT	DEMOCHK+5, ED1+4
DLAYGO	TAR1+1!
>> DSC	CHKD+5, CHKD+6, POVICD9+22, POVICD9+23
DT	CHKD+14, DSMCS+5, POVICD9+17, POVICD9+29, POVICD9+37
DUZ(2	CHKD+5, DSMCS+4, DSMVDT+3, POVICD9+22
E	CHKICD~, CHKICD+4*, CHKICD+5, POVICD9~, POVICD9+7, POVICD9+16, TARGET+2~, TARGET+3
F	PRIMPOV~, PRIMPOV+8, PRIMPOV+9, SECPOV~, SECPOV+9, SECPOV+10, POV+3, POV+5, POV+6, POV+7 , ADMDX+9*, ADMDX+10
I	CHKD+15~, CHKD+19, CHKD+20, CHKD+21, CHKD+22, DSMCS+7~, DSMVDT+5~, POVICD9+13~, POVICD9+40, POVICD9+41* , POVICD9+42, POVICD9+45, POVICD9+46, POVICD9+47, POVICD9+48, POVICD9D+1~, POVICD9D+9, POVICD9D+10, POV+1~, POV+4 , POV+6, POV+7, LZERO+1~, LZERO+2, CHKCPT+1~, CHKCPT+5, CHKCPT+7
IMP	CHKD+14~, CHKD+17, CHKD+18, CHKD+19, CHKD+20, POVICD9+13~, POVICD9+17, POVICD9+38, POVICD9+39, POVICD9+40 , POVICD9+41
J	CHKD+7~, CHKD+10, CHKD+11, CHKD+12, POVICD9+13~, POVICD9+26, POVICD9+27, POVICD9+30, POVICD9+32, POVICD9+33 , POVICD9+36, POVICD9+37, POV+1~, POV+6
K	POVICD9+13~
L	LZERO~, LZERO+2
M	CHKD+7~, CHKD+8, POVICD9+13~, POVICD9+24
N	SECPOV~, SECPOV+3, SECPOV+6, OPEN+1~, OPEN+5, OPEN+17, ADMIT+1~, ADMIT+5, NRD+1~, NRD+5* , NRD+6, NRD+7, CLOSED+1~, CLOSED+5*
O	OPEN+1~, OPEN+2, OPEN+6, OPEN+7, OPEN+12, OPEN+17, ADMIT+1~, ADMIT+2, ADMIT+7, NRD+1~ , NRD+2, NRD+7, CLOSED+1~, CLOSED+2, CLOSED+7
P	DEMO~, DEMO+1, DEMO+7, DEMO+11, DEMO+13, DEMO+17, PRIMPOV+3~, PRIMPOV+4, PRIMPOV+5, PRIMPOV+6 , PRIMPOV+7, SECPOV+4~, SECPOV+5, SECPOV+6, SECPOV+7, SECPOV+8, POV+2, ADMDX+6, ADMDX+7, ADMDX+8 , B+1, I+1, E+1, C+1
R	DEMO+4~, DEMO+5, DEMO+6, DEMO+7, DEMO+10, DEMO+11, DEMO+12, DEMO+13, DEMO+16, DEMO+17* , DEMO+18, DEMOCHK~, DEMOCHK+2, DEMOCHK+5, DEMOCHK+6, CHKICD~, CHKICD+2, CHKICD+5, POVICD9~, POVICD9+8 , POVICD9+17, POVICD9+28, POVICD9+35, POVICD9+46, TARGET~, TARGET+1, TAR1~, TAR1+2
S	DSMCS~, DSMCS+4, DSMCS+6, DSMCS+8, DSMVDT~, DSMVDT+3, DSMVDT+4, DSMVDT+6, POV+1~, POV+4*
T	DEMO~, DEMO+2*, DEMO+3, DEMO+6, DEMO+12
U	DEMO+7, DEMO+13, CHKD+6, CHKD+8, CHKD+10, CHKD+15, CHKD+17, CHKD+18, CHKD+19, CHKD+20 , CHKD+21, DSMCS+8, DSMVDT+6, POVICD9+16, POVICD9+17, POVICD9+23, POVICD9+24, POVICD9+26, POVICD9+28, POVICD9+32 , POVICD9+35, POVICD9+38, POVICD9+39, POVICD9+40, POVICD9+41, POVICD9+42, POVICD9+46, POVICD9+47, POVICD9D+3, POVICD9D+4 , POVICD9D+6, POVICD9D+7, POVICD9D+9, PRIMPOV+5, SECPOV+6, POV+2, POV+4, POV+6, POV+7, ADMDX+6 , B+1, E+1, C+1, D+1, J+1, P+1, S+1, 1+1, 2+1, 3+1 , 4+1, 15, UID+19, UIDV+4, CHKCPT+4, CHKCPT+5
V	POVICD9+13~, POVICD9+47, PRIMPOV~, PRIMPOV+1, PRIMPOV+2, PRIMPOV+5, SECPOV~, SECPOV+1, SECPOV+2, SECPOV+6 , POV+2, ADMDX+1, ADMDX+2, ADMDX+4, LZERO~, LZERO+2, LZERO+3
VISIT	UIDV~, UIDV+1, UIDV+5
X	DATEEDIT+1, UIDV+2~, UIDV+4*, UIDV+5
Y	DEMOCHK+6, CHKD~, CHKD+2, CHKD+3, CHKD+6, CHKD+8, CHKD+10, CHKD+15, CHKD+17, CHKD+18 , CHKD+19, CHKD+20, CHKD+21, CHKICD~, CHKICD+5, CHKICD+6, POVICD9~, POVICD9+11, POVICD9+12, POVICD9+16 , POVICD9+20, POVICD9+23, POVICD9+24, POVICD9+26, POVICD9+32, POVICD9+38, POVICD9+39, POVICD9+40, POVICD9+41, POVICD9+42 , POVICD9D~, POVICD9D+3, POVICD9D+4, POVICD9D+6, POVICD9D+7, POVICD9D+8, POVICD9D+9, PRIMPOV+3~, PRIMPOV+4, PRIMPOV+5* , SECPOV+4~, SECPOV+5, SECPOV+6, POV+2*, ADMDX+3~, 1+1, 2+1, 3+1, 4+1, 5+1 , 10, 13, 15, 16, 17, 18, 19, 20, ED1+5, ED1+6 , CPT~, CPT+2, CPT+3, CHKCPT~, CHKCPT+2, CHKCPT+5
Z	CHKD+7~, CHKD+8, CHKD+9, CHKD+11, CHKD+12, CHKD+13, POVICD9+13~, POVICD9+24, POVICD9+25, POVICD9+27 , POVICD9+30, POVICD9+31, POVICD9+33, POVICD9+34, POVICD9+36, POVICD9+37, PRIMPOV+3~, PRIMPOV+4, PRIMPOV+5, SECPOV+4~ , SECPOV+5, SECPOV+6, POV+1~, POV+2, ADMDX+3~, ADMDX+4, ADMDX+5, ADMDX+6, D+1, J+1 , P+1, N+1, S+1, LZERO+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHUTIL1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 79

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@AMHY	ED1+7
$T(@I	POV+4
$T(ICDDX^ICDEX	POVICD9D+3, POVICD9D+4, POVICD9D+6, POVICD9D+7