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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AMHUTIL3

Package: Mental Health Social Services

Routine: AMHUTIL3


Information

AMHUTIL3 ; IHS/CMI/LAB - provider functions ;

Source Information

Source file <AMHUTIL3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 3 PUT^DDSVAL  LIST^DIC  $$GET1^DIQ  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
Mental Health Social Services 2 ($$DATE,A,D)^AMHUTIL  C^AMHUTIL1  
Data Warehouse Export System 1 ($$UID,UID)^BDWAID  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Patient Care Component Reports 1 ($$PATIENT,$$VD)^APCLV  

Entry Points

Name Comments DBIA/ICR reference
6
DLMSF(V) ;EP date last modified
SECPA(V,N,F) ;EP
15
CODE10 ;
PRIMPA(V,F) ;EP - primary provider in many different formats
RACESF(PAT) ;
20
TLM(V) ;EP
1 ;
I ;
3 ;
PA ;EP
5 ;
UID(P) ;EP
7
ASUFACLD(R) ;EP - get asufac of logged in facility suicide form
9
ADMDX ;EP
PED(V,N) ;EP - return nth v patient ed on this visit
TLMSF(V) ;
4 ;
A ;
ETHN(P) ;EP
OTHMETH ;EP - called from screenman
E ;
D ;
MSR6(V) ;EP - return first 6 measurements and values
J ;
N ;
HIGH
P ;
S ;stage
8
UIDO ;
2 ;
DLM(V) ;EP date last modified
11
10
13
12
VTIME(V) ;
14
17
16
C ;
18
HF(V,N) ;EP
19

External References

Name Field # of Occurrence
$$DATE^AMHUTIL DLM+5, DLMSF+5
A^AMHUTIL PED+12, HF+12
D^AMHUTIL PED+12, HF+12
C^AMHUTIL1 PED+12, HF+12
$$PATIENT^APCLV 4+1
$$VD^APCLV 1+1, 2+1
$$UID^BDWAID UID+3
UID^BDWAID UID+2
PUT^DDSVAL OTHMETH+3
LIST^DIC RACESF+4
$$GET1^DIQ UIDO+1
$$VAL^XBDIQ1 ASUFACLD+6, MSR6+5, PED+13, 10, 13, 16, 17, 18, 20
$$VALI^XBDIQ1 ASUFACLD+4, 19
$$FMTE^XLFDT TLM+4, VTIME+4, TLMSF+4
$$UP^XLFSTR TLM+5, VTIME+5, TLMSF+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.02 LIST^DIC
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPSUIC - [#9002011.65] ASUFACLD+2, DLMSF+2, DLMSF+5, TLMSF+2
^AMHREC - [#9002011] DLM+2, DLM+5, TLM+2, VTIME+2, MSR6+2, PED+2, HF+2, PRIMPA+2, SECPA+2, ADMDX+2
^AMHREDU - [#9002011.05] PED+6, PED+11, PED+13
^AMHREDU("AD" PED+6
^AMHRHF - [#9002011.08] HF+6, HF+11, HF+13
^AMHRHF("AD" HF+6
^AMHRMSR - [#9002011.12] MSR6+5
^AMHRMSR("AD" MSR6+5
^AMHRPA - [#9002011.09] PRIMPA+5, SECPA+6, PA+2, D+1, J+1, P+1, N+1, S+1, 1+1, 2+1
, 3+1, 4+1, 15
^AMHRPA("AD" PRIMPA+5, SECPA+6, PA+2
^AMHTPA - [#9002014.8] PRIMPA+7, SECPA+8, ADMDX+8, E+1, C+1, J+1, A+2
^AUPNPAT - [#9000001] UID+1
^AUPNVINP - [#9000010.02] ADMDX+6
^AUPNVINP("AD" ADMDX+4
^AUTTEDT - [#9999999.09] PED+8, PED+9
^AUTTHF - [#9999999.64] HF+8, HF+9
^AUTTRCD - [#9999999.08] HIGH+3, HIGH+5
^AUTTRCD("AH" HIGH, HIGH+1, HIGH+2
^AUTTSITE(1 UIDO+1
^DIC(10 - [#10] RACESF+6, RACESF+8
^DIC(10.2 - [#10.2] ETHN+9
^DPT - [#2] ETHN+3, ETHN+6, ETHN+7

Label References

Name Line Occurrences
@( PRIMPA+9, SECPA+10, PA+4, PA+6, PA+7, ADMDX+10
A 8
C 7
CODE10 A+4
D 9
E 6
HIGH A+4, A+6
J 11
N 14
P 12
UIDO UID+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PED+4~, PED+10*, PED+11, PED+12*, HF+4~, HF+10*, HF+11, HF+12*, PRIMPA+3~, PRIMPA+9*
, PRIMPA+10, SECPA+4~, SECPA+10*, SECPA+11, PA+1~, PA+4*, PA+6*, PA+7*, ADMDX+3~, ADMDX+4*
, ADMDX+5, ADMDX+10*, ADMDX+11, I+1*, E+1*, C+1*, D+1*, J+1*, P+1*, N+1*
, S+1*, A+3*, A+8*, HIGH*, HIGH+1*, HIGH+4*, HIGH+5*, 1+1*, 2+1*, 3+1*
, 4+1*, 5+1*, 10*, 13*, 15*, 16*, 17*, 18*, 19*, 20*
A PED+12~*, HF+12~*
>> APCLV( PA+2*, PA+4*, PA+6*, PA+7*
C MSR6+3~, MSR6+4*, MSR6+5*, PED+4~, PED+5*, PED+6*, HF+4~, HF+5*, HF+6*, PRIMPA+3~
, PRIMPA+4*, SECPA+4~, SECPA+5*, SECPA+6*, PA+1~, PA+2*, PA+4, PA+6, PA+7
D PED+12~*, HF+12~*, A+1~, HIGH+1*, HIGH+2, HIGH+3, HIGH+5
>> DA OTHMETH+3
>> DDSOLD OTHMETH+1
>> DIE OTHMETH+3
E ETHN+4~, ETHN+5*, ETHN+6, ETHN+9*, ETHN+11, A+1~, HIGH+2*, HIGH+3
F ETHN+2*, MSR6+3~, MSR6+4*, MSR6+5*, PRIMPA~, PRIMPA+8*, PRIMPA+9, SECPA~, SECPA+9*, SECPA+10
, PA+3, PA+5, PA+6, PA+7, ADMDX+9*, ADMDX+10
H A+1~, HIGH*, HIGH+1, HIGH+2
I RACESF+1~, RACESF+6*, RACESF+7, ETHN+4~, ETHN+5*, ETHN+7*, ETHN+8, ETHN+9, PA+1~, PA+4*
, PA+6*, PA+7*, A+1~, A+2*, A+3, A+4, A+5, A+6*, A+7*, A+8*
, HIGH, CODE10+1, CODE10+2*
J PA+1~, PA+6*
L A+1~, HIGH+3*, HIGH+4
N PED~, PED+3, PED+6, HF~, HF+3, HF+6, SECPA~, SECPA+3, SECPA+6
P ETHN~, ETHN+1, ETHN+3, ETHN+6, ETHN+7, UID~, UID+1, UID+3, UIDO+1, PED+4~
, PED+5*, PED+6*, PED+7, PED+8, PED+9, PED+11*, HF+4~, HF+5*, HF+6*, HF+7
, HF+8, HF+9, HF+11*, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, PRIMPA+6, PRIMPA+7, SECPA+4~, SECPA+5*
, SECPA+6*, SECPA+7, SECPA+8, PA+2*, ADMDX+6*, ADMDX+7, ADMDX+8, I+1, E+1, C+1
, A+2
PAT RACESF~, RACESF+4
R ASUFACLD~, ASUFACLD+1, ASUFACLD+2, ASUFACLD+4, DLM+3~, DLM+4*, DLM+5*, DLM+6, TLM+1~, TLM+2*
, TLM+3, TLM+4*, TLM+5, VTIME+1~, VTIME+2*, VTIME+3, VTIME+4*, VTIME+5, DLMSF+3~, DLMSF+4*
, DLMSF+5*, DLMSF+6, TLMSF+1~, TLMSF+2*, TLMSF+3, TLMSF+4*, TLMSF+5, MSR6+3~, MSR6+4*, MSR6+5*
, MSR6+6, PED+9*, PED+10*, PED+13*, PED+14, HF+9*, HF+10*, HF+13*, HF+14, A+1~
, A+5*, HIGH+4, CODE10+1*
S MSR6+3~, MSR6+4*, MSR6+5*, PA+1~, PA+4*
U RACESF+6, RACESF+8, RACESF+11, ETHN+7, ETHN+9, DLM+5, TLM+2, UIDO+1, VTIME+2, DLMSF+5
, TLMSF+2, MSR6+5, PED+9, PED+10, PED+11, PED+13, HF+9, HF+10, HF+11, HF+13
, PRIMPA+5, SECPA+6, PA+2, PA+4, PA+6, PA+7, ADMDX+6, E+1, C+1, D+1
, J+1, P+1, N+1, S+1, A+2, HIGH+3, HIGH+5, 1+1, 2+1, 3+1
, 4+1, 15
V DLM~, DLM+1, DLM+2, DLM+5, TLM~, TLM+2, VTIME~, VTIME+2, DLMSF~, DLMSF+1
, DLMSF+2, DLMSF+5, TLMSF~, TLMSF+2, MSR6~, MSR6+1, MSR6+2, MSR6+5, PED~, PED+1
, PED+2, PED+6, HF~, HF+1, HF+2, HF+6, PRIMPA~, PRIMPA+1, PRIMPA+2, PRIMPA+5
, SECPA~, SECPA+1, SECPA+2, SECPA+6, PA+2, ADMDX+1, ADMDX+2, ADMDX+4
X RACESF+1~, RACESF+3*, RACESF+11*, RACESF+12, UID+3*, OTHMETH+1, OTHMETH+3
Y RACESF+1~, RACESF+5*, RACESF+6, RACESF+8, MSR6+3~, MSR6+4*, MSR6+5*, PED+4~, PED+5*, PED+6*
, HF+4~, HF+5*, HF+6*, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, SECPA+4~, SECPA+5*, SECPA+6*, PA+2*
, ADMDX+3~, OTHMETH+2, 1+1, 2+1, 3+1, 4+1, 5+1, 10, 13, 15
, 16, 17, 18, 19, 20
Z RACESF+1~, RACESF+2!, RACESF+8*, RACESF+10, RACESF+11, ETHN+4~, ETHN+6*, ETHN+7, ASUFACLD+3~, ASUFACLD+4*
, ASUFACLD+5, ASUFACLD+6, PED+4~, PED+5*, PED+6*, PED+11, PED+13, HF+4~, HF+5*, HF+6*
, HF+11, HF+13, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, SECPA+4~, SECPA+5*, SECPA+6*, PA+1~, PA+2*
, ADMDX+3~, ADMDX+4*, ADMDX+5, ADMDX+6, D+1, J+1, P+1, N+1, S+1
Z("DILIST" RACESF+5, RACESF+6, RACESF+8

Marked Items

Name Field # of Occurrence
$T(@I PA+4
$T(UID^BDWAID UID+2
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All