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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHRSR31

Package: Mental Health Social Services

Routine: AMHRSR31


Information

AMHRSR31 ; IHS/CMI/LAB - list SUICIDE RISK ASSESSMENT screenings ;

Source Information

Source file <AMHRSR31.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Mental Health Social Services 2 ($$ALLOWP,$$ALLOWPCC,$$ALLOWVI,XTMP)^AMHUTIL  $$DEMO^AMHUTIL1  
IHS Patient 1 $$AGE^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMADD^XLFDT  
Patient Care Component Reports 1 $$PRIMPROV^APCLV  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PPV(V) ;
CTR(X,Y) ;EP - Center X in a field Y wide.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
REF ;now go through refusals in pcc
GATHER ;gather up all exams, refusals and bh in time period for patient in DFN
BH ;now go through BH
GETSCR ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
GETSCR1 ;
SPRV(E) ;
BHPPNAME(R) ;EP primary provider internal # from 200
PCC ;
PROC ;
PRVREF(R) ;
BHPPIN(R) ;

External References

Name Field # of Occurrence
$$ALLOWP^AMHUTIL PROC+9
$$ALLOWPCC^AMHUTIL PCC+7
$$ALLOWVI^AMHUTIL BH+7
XTMP^AMHUTIL PROC+4
$$DEMO^AMHUTIL1 PROC+10
$$PRIMPROV^APCLV PCC+25, PPV+2
$$AGE^AUPNPAT BH+10, PCC+12, REF+10, GETSCR1+18, GETSCR1+43, GETSCR1+63
^DIR EOP+7
$$VAL^XBDIQ1 BH+16, PCC+18, REF+13, GETSCR1+10, GETSCR1+18, GETSCR1+19, GETSCR1+21, GETSCR1+22, GETSCR1+36, GETSCR1+43
, GETSCR1+44, GETSCR1+47, GETSCR1+61, GETSCR1+63, GETSCR1+65, SPRV+1, PRVREF+1
$$FMADD^XLFDT BH+1, GETSCR1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIR
  • Line Location:
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATR - [#9002011.55] PROC+12, PROC+13, PROC+14
^AMHREC - [#9002011] BH+5, BH+6, BH+14, BH+29, GETSCR1+5, GETSCR1+6
^AMHREC("AF" BH+2, BH+3, GETSCR1+2, GETSCR1+3
^AMHRPROV - [#9002011.02] BHPPIN+2, BHPPNAME+2
^AMHRPROV("AD" BHPPIN+2, BHPPNAME+2
^AUPNPAT - [#9000001] PROC+6
^AUPNPREF - [#9000022] REF+3, REF+4, REF+5, REF+6, REF+16, GETSCR1+51, GETSCR1+52, GETSCR1+53, GETSCR1+54, GETSCR1+58
, GETSCR1+59, PRVREF+1
^AUPNPREF("AC" REF+2, GETSCR1+50
^AUPNVSIT - [#9000010] PCC+8, PCC+16, GETSCR1+30
^AUPNVXAM - [#9000010.13] PCC+3, PCC+4, PCC+5, PCC+29, GETSCR1+26, GETSCR1+27, GETSCR1+28, SPRV+1
^AUPNVXAM("AC" PCC+2, GETSCR1+25
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+7, PROC+8, PROC+11
^VA(200 - [#200] BHPPNAME+2, USR+1
^XTMP("AMHRSR3" PROC+3!, BH+33*, BH+34, PCC+33*, REF+1, REF+20*, GETSCR+1!, GETSCR+2, GETSCR1+18*, GETSCR1+19*
, GETSCR1+20*, GETSCR1+21*, GETSCR1+22*, GETSCR1+34, GETSCR1+43*, GETSCR1+44*, GETSCR1+45*, GETSCR1+46*, GETSCR1+47*, GETSCR1+48*
, GETSCR1+60, GETSCR1+63*, GETSCR1+64*, GETSCR1+65*, GETSCR1+66*

Label References

Name Line Occurrences
$$BHPPIN BH+25
$$BHPPNAME GETSCR1+18
$$PPV GETSCR1+43
$$PRVREF GETSCR1+64
$$SPRV GETSCR1+46
GATHER PROC+15
GETSCR PROC+17
GETSCR1 GETSCR+2

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BHPPIN+1~, BHPPIN+2*, BHPPNAME+1~, BHPPNAME+2*, PPV+1~, PPV+2*, PPV+3
%1 BHPPIN+1~, BHPPIN+2*, BHPPIN+3, BHPPNAME+1~, BHPPNAME+2*, BHPPNAME+3
>> AMHDEMO PROC+10
>> AMHRAGET BH+11, BH+12, PCC+13, PCC+14, REF+11, REF+12
>> AMHRBD BH+1, BH+9, PCC+11, REF+9, GETSCR1+1, GETSCR1+8, GETSCR1+33, GETSCR1+57
>> AMHRBIEN BH+3*, BH+5, BH+6, BH+7, BH+14, BH+16, BH+25, BH+29, GETSCR1+3*, GETSCR1+5
, GETSCR1+6, GETSCR1+10, GETSCR1+18, GETSCR1+19, GETSCR1+20, GETSCR1+21
>> AMHRCDP PROC+14
>> AMHRCLNT BH+14, PCC+16
>> AMHRCLNT( BH+14, PCC+16
>> AMHRCNT PROC+1*, GETSCR1+9*, GETSCR1+18, GETSCR1+19, GETSCR1+20, GETSCR1+21, GETSCR1+22, GETSCR1+35*, GETSCR1+43, GETSCR1+44
, GETSCR1+45, GETSCR1+46, GETSCR1+47, GETSCR1+48, GETSCR1+62*, GETSCR1+63, GETSCR1+64, GETSCR1+65, GETSCR1+66
>> AMHRDATE BH+4*, BH+8, BH+9, BH+10, PCC+8*, PCC+9, PCC+10, PCC+11, PCC+12, REF+6*
, REF+7, REF+8, REF+9, REF+10, GETSCR1+4*, GETSCR1+7, GETSCR1+8, GETSCR1+18, GETSCR1+30*, GETSCR1+31
, GETSCR1+32, GETSCR1+33, GETSCR1+34, GETSCR1+43, GETSCR1+48, GETSCR1+54*, GETSCR1+55, GETSCR1+56, GETSCR1+57, GETSCR1+60
, GETSCR1+63, GETSCR1+66
>> AMHRDESP PROC+12
>> AMHRED BH+2, BH+8, PCC+10, REF+8, GETSCR1+2, GETSCR1+7, GETSCR1+32, GETSCR1+56
>> AMHREIEN PCC+2*, PCC+3, PCC+4, PCC+5, PCC+18, PCC+29, GETSCR1+25*, GETSCR1+26, GETSCR1+27, GETSCR1+28
, GETSCR1+36, GETSCR1+43, GETSCR1+46
>> AMHREXC PCC+4, REF+5, GETSCR1+27, GETSCR1+53
>> AMHREXPC PCC+1, GETSCR1+23
>> AMHRH PROC+2*, PROC+3, BH+33, BH+34, PCC+33, REF+1, REF+20, GETSCR+1, GETSCR+2, GETSCR1+18
, GETSCR1+19, GETSCR1+20, GETSCR1+21, GETSCR1+22, GETSCR1+34, GETSCR1+43, GETSCR1+44, GETSCR1+45, GETSCR1+46, GETSCR1+47
, GETSCR1+48, GETSCR1+60, GETSCR1+63, GETSCR1+64, GETSCR1+65, GETSCR1+66
>> AMHRJ PROC+2*, PROC+3, BH+33, BH+34, PCC+33, REF+1, REF+20, GETSCR+1, GETSCR+2, GETSCR1+18
, GETSCR1+19, GETSCR1+20, GETSCR1+21, GETSCR1+22, GETSCR1+34, GETSCR1+43, GETSCR1+44, GETSCR1+45, GETSCR1+46, GETSCR1+47
, GETSCR1+48, GETSCR1+60, GETSCR1+63, GETSCR1+64, GETSCR1+65, GETSCR1+66
>> AMHRPPUN BH+28, PCC+28
>> AMHRPROV BH+26, BH+27, PCC+26, PCC+27
>> AMHRPROV( BH+27, PCC+27
>> AMHRRES BH+16*, BH+17, BH+18, BH+19, BH+20, BH+21, BH+22, BH+23, PCC+18*, PCC+19
, PCC+20, PCC+21, PCC+22, PCC+23, REF+13*, REF+14, REF+15, GETSCR1+10*, GETSCR1+11, GETSCR1+12
, GETSCR1+13, GETSCR1+14, GETSCR1+15, GETSCR1+16, GETSCR1+17, GETSCR1+18, GETSCR1+36*, GETSCR1+37, GETSCR1+38, GETSCR1+39
, GETSCR1+40, GETSCR1+41, GETSCR1+42, GETSCR1+43, GETSCR1+61*, GETSCR1+63
>> AMHRREST(1 BH+17, PCC+19, GETSCR1+11, GETSCR1+38
>> AMHRREST(2 BH+18, PCC+20, GETSCR1+12, GETSCR1+39
>> AMHRREST(3 BH+19, PCC+21, GETSCR1+13, GETSCR1+40
>> AMHRREST(4 BH+20, REF+14, GETSCR1+14, GETSCR1+58
>> AMHRREST(5 BH+21, REF+15, GETSCR1+15, GETSCR1+59
>> AMHRREST(6 BH+22, PCC+22, GETSCR1+16, GETSCR1+41
>> AMHRREST(7 BH+23, PCC+23, GETSCR1+17, GETSCR1+37, GETSCR1+42
>> AMHRRIEN REF+2*, REF+3, REF+4, REF+5, REF+6, REF+13, REF+16, GETSCR1+50*, GETSCR1+51, GETSCR1+52
, GETSCR1+53, GETSCR1+54, GETSCR1+58, GETSCR1+59, GETSCR1+61, GETSCR1+63, GETSCR1+64
>> AMHRSD BH+1*, BH+2*, BH+3, BH+4, GETSCR1+1*, GETSCR1+2*, GETSCR1+3, GETSCR1+4
>> AMHRSEX PROC+11
>> AMHRSPRV BH+30, BH+31, PCC+30, PCC+31, REF+17, REF+18
>> AMHRSPRV( BH+31, PCC+31, REF+18
>> AMHRSPUN BH+32, PCC+32, REF+19
>> AMHRSSP PROC+13
>> AMHRVIEN PCC+5*, PCC+6, PCC+7, PCC+8, PCC+16, PCC+25, GETSCR1+28*, GETSCR1+29, GETSCR1+30, GETSCR1+43
, GETSCR1+44, GETSCR1+45
>> DFN PROC+6*, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, BH+2
, BH+3, BH+10, BH+33, BH+34, PCC+2, PCC+12, PCC+33, REF+1, REF+2, REF+10
, REF+20, GETSCR+2*, GETSCR1+2, GETSCR1+3, GETSCR1+18, GETSCR1+22, GETSCR1+25, GETSCR1+34, GETSCR1+43, GETSCR1+47
, GETSCR1+48, GETSCR1+50, GETSCR1+60, GETSCR1+63, GETSCR1+65, GETSCR1+66
DFOUT EOP+5!
DIR EOP+4~
DIR("A" EOP+7*
DIR(0 EOP+7*
DIRUT EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ PROC+9, BH+7, PCC+7, USR+1
DUZ(2 LOC+1
E SPRV~, SPRV+1
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
R BHPPIN~, BHPPIN+2, BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
U PROC+8, PROC+11, PROC+12, PROC+13, PROC+14, BH+6, BH+14, BH+29, PCC+4, PCC+5
, PCC+8, PCC+16, PCC+29, REF+4, REF+5, REF+6, REF+16, GETSCR1+6, GETSCR1+18, GETSCR1+19
, GETSCR1+20, GETSCR1+21, GETSCR1+22, GETSCR1+27, GETSCR1+28, GETSCR1+30, GETSCR1+43, GETSCR1+44, GETSCR1+45, GETSCR1+46
, GETSCR1+47, GETSCR1+52, GETSCR1+53, GETSCR1+54, GETSCR1+58, GETSCR1+59, GETSCR1+63, GETSCR1+64, GETSCR1+65, BHPPIN+2
, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V PPV~, PPV+2
X BH+10*, BH+11, BH+12, BH+14*, BH+25*, BH+26, BH+27, BH+28, BH+29*, BH+30
, BH+31, BH+32, PCC+12*, PCC+13, PCC+14, PCC+16*, PCC+25*, PCC+26, PCC+27, PCC+28
, PCC+29*, PCC+30, PCC+31, PCC+32, REF+10*, REF+11, REF+12, REF+16*, REF+17, REF+18
, REF+19, CTR~, CTR+1
Y CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All