Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AMHUTIL1

Package: Mental Health Social Services

Routine: AMHUTIL1


Information

AMHUTIL1 ; IHS/CMI/LAB - provider functions 06 Aug 2009 11:15 AM ;

Source Information

Source file <AMHUTIL1.m>

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  

Caller Graph

Caller Graph Total: 79

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  

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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*

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All