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: AMHRSR2

Package: Mental Health Social Services

Routine: AMHRSR2


Information

AMHRSR2 ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <AMHRSR2.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
DATES
CTR(X,Y) ;EP - Center X in a field Y wide.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
LIST1 ;
TALLY ;which items to tally
LIST ;
INFORM ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
XIT ;
SPRV(E) ;
DEMO ;
BHPPNAME(R) ;EP primary provider internal # from 200
EXCL ;
PROC ;
PRVREF(R) ;
PPV(V) ;

External References

Name Field # of Occurrence
$$ALLOWP^AMHUTIL PROC+18, PROC+37, PROC+69
$$ALLOWPCC^AMHUTIL PROC+41
$$ALLOWVI^AMHUTIL PROC+12
DBHUSR^AMHUTIL INFORM+19
XTMP^AMHUTIL PROC+4
$$DEMO^AMHUTIL1 PROC+17, PROC+38, PROC+70
DEMOCHK^AMHUTIL1 DEMO+1
$$PRIMPROV^APCLV PPV+2
$$AGE^AUPNPAT PROC+23, PROC+50, PROC+75
^DIR DATES+3, DATES+5, TALLY+9, EXCL+3, LIST+3, LIST1+5, DEMO+3, EOP+7
^XBDBQUE DEMO+7, BROWSE+2
$$VAL^XBDIQ1 PROC+22, PROC+23, PROC+24, PROC+26, PROC+27, PROC+28, PROC+29, PROC+30, PROC+49, PROC+50
, PROC+51, PROC+54, PROC+55, PROC+56, PROC+57, PROC+74, PROC+75, PROC+78, PROC+79, PROC+80
, PROC+81, SPRV+1, PRVREF+1
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT PROC+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: !,$$LOC()
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,$$CTR("TALLY AND LISTING OF ALL VISITS W/SUICIDE RISK ASSESSMENT",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will tally and optionally list all visits on which "
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"SUICIDE RISK ASSESSMENT or a refusal was documented in the"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"time frame specified by the user. Suicide Risk Assessment is defined as:"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !?10,"- Suicide Risk Assessment (exam code 43)"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !?10,"- refusal of exam code 43"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"This report will tally the visits by age, gender, screening result, provider "
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !,"(either exam provider, if available, or primary provider on the visit), "
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !,"clinic, date of screening, designated PCP, MH Provider, SS Provider"
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !,"and A/SA provider."
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !," Notes: "
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both the Behavioral Health"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !?10," and PCC clinical databases for evidence of screening/refusal"
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !?10,"- this is a tally visits with a screening done, if a patient had"
  • Line Location: INFORM+16
Function Call: WRITE
  • Prompt: !?10," multiple screenings during the time period, all will be counted"
  • Line Location: INFORM+17
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+18
Function Call: WRITE
  • Prompt: !!,"Exam code 43 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+22
Function Call: WRITE
  • Prompt: !,"Please enter the date range during which the screening was done.",!,"To get all screenings ever put in a long date range like 01/01/1980",!,"to the present date.",!
  • Line Location: DATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,"Please select which items you wish to tally on this report:",!
  • Line Location: TALLY+2
Function Call: WRITE
  • Prompt: !?3,"0) Do not include any Tallies",?40,"6) Date of Screening"
  • Line Location: TALLY+3
Function Call: WRITE
  • Prompt: !?3,"1) Result of Assessment",?40,"7) Primary Provider on Visit"
  • Line Location: TALLY+4
Function Call: WRITE
  • Prompt: !?3,"2) Gender",?40,"8) Designated MH Provider"
  • Line Location: TALLY+5
Function Call: WRITE
  • Prompt: !?3,"3) Age of Patient",?40,"9) Designated SS Provider"
  • Line Location: TALLY+6
Function Call: WRITE
  • Prompt: !?3,"4) Provider who Screened",?40,"10) Designated ASA/CD Provider"
  • Line Location: TALLY+7
Function Call: WRITE
  • Prompt: !?3,"5) Clinic",?40,"11) Designated Primary Care Provider"
  • Line Location: TALLY+8
Function Call: WRITE
  • Prompt: !!,"Would you like to include Suicide Risk Assessments documented in the PCC"
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+5
    • TALLY+9
    • EXCL+3
    • LIST+3
    • LIST1+5
    • DEMO+3
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROC+10, PROC+11, PROC+15, PROC+26
^AMHREC("B" PROC+7, PROC+8
^AMHRPROV - [#9002011.02] BHPPNAME+2
^AMHRPROV("AD" BHPPNAME+2
^AUPNPREF - [#9000022] PROC+60, PROC+61, PROC+62, PROC+63, PROC+64, PROC+68, PRVREF+1
^AUPNVSIT - [#9000010] PROC+42
^AUPNVXAM - [#9000010.13] PROC+35, PROC+36, PROC+39, SPRV+1
^AUPNVXAM("B" PROC+34
^AUTTEXAM("C" INFORM+21
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] BHPPNAME+2, USR+1
^XTMP("AMHRSR2" PROC+3!, PROC+21*, PROC+23*, PROC+24*, PROC+25*, PROC+26*, PROC+27*, PROC+28*, PROC+29*, PROC+30*
, PROC+31*, PROC+46, PROC+48*, PROC+50*, PROC+51*, PROC+52*, PROC+53*, PROC+54*, PROC+55*, PROC+56*
, PROC+57*, PROC+58*, PROC+71, PROC+73*, PROC+75*, PROC+76*, PROC+77*, PROC+78*, PROC+79*, PROC+80*
, PROC+81*, PROC+82*

Label References

Name Line Occurrences
$$BHPPNAME PROC+23
$$CTR INFORM+1, INFORM+3
$$LOC INFORM+2
$$PPV PROC+50
$$PRVREF PROC+77
$$SPRV PROC+53
$$USR INFORM+1
BROWSE DEMO+5
DATES DATES+7, TALLY+10, TALLY+11, EXCL+4, LIST+4
DEMO LIST+6
LIST LIST1+6, DEMO+2
XIT INFORM+20, INFORM+22, DEMO+4, DEMO+5, DEMO+8

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BHPPNAME+1~, BHPPNAME+2*, PPV+1~, PPV+2*, PPV+3
%1 BHPPNAME+1~, BHPPNAME+2*, BHPPNAME+3
>> A TALLY+13*
>> AMHDEMO DEMO+1, DEMO+2, PROC+17, PROC+38, PROC+70
AMHRBD DATES!, DATES+3*, DATES+7, PROC+6, PROC+14, PROC+45, PROC+67
>> AMHRBIEN PROC+8*, PROC+10, PROC+11, PROC+12, PROC+15, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26
>> AMHRCNT PROC+1*, PROC+20*, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+29, PROC+30
, PROC+31, PROC+47*, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+55, PROC+56, PROC+57
, PROC+58, PROC+72*, PROC+75, PROC+76, PROC+77, PROC+78, PROC+79, PROC+80, PROC+81, PROC+82
>> AMHRDATE PROC+9*, PROC+13, PROC+14, PROC+21, PROC+23, PROC+42*, PROC+43, PROC+44, PROC+45, PROC+46
, PROC+48, PROC+50, PROC+64*, PROC+65, PROC+66, PROC+67, PROC+71, PROC+73, PROC+75
AMHRED DATES!, DATES+5*, DATES+7, PROC+7, PROC+13, PROC+44, PROC+66
>> AMHREIEN PROC+34*, PROC+35, PROC+36, PROC+39, PROC+49, PROC+50, PROC+53
>> AMHREXC INFORM+21*, INFORM+22, PROC+34, PROC+63
>> AMHREXPC EXCL+1*, EXCL+5*, PROC+33
>> AMHRH PROC+2*, PROC+3, PROC+21, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+29
, PROC+30, PROC+31, PROC+46, PROC+48, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+55
, PROC+56, PROC+57, PROC+58, PROC+71, PROC+73, PROC+75, PROC+76, PROC+77, PROC+78, PROC+79
, PROC+80, PROC+81, PROC+82
>> AMHRJ PROC+2*, PROC+3, PROC+21, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+29
, PROC+30, PROC+31, PROC+46, PROC+48, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+55
, PROC+56, PROC+57, PROC+58, PROC+71, PROC+73, PROC+75, PROC+76, PROC+77, PROC+78, PROC+79
, PROC+80, PROC+81, PROC+82
>> AMHRLIST LIST+1*, LIST+5*, LIST+6
>> AMHRRES PROC+22*, PROC+23, PROC+49*, PROC+50, PROC+74*, PROC+75
>> AMHRRIEN PROC+60*, PROC+61, PROC+62, PROC+63, PROC+64, PROC+68, PROC+74, PROC+75, PROC+77
>> AMHRSD PROC+6*, PROC+7*, PROC+8, PROC+9
>> AMHRSORT LIST1+1*, LIST1+7*
AMHRTALL TALLY+1!, TALLY+12*
AMHRTALL( TALLY+13*
>> AMHRVIEN PROC+39*, PROC+40, PROC+41, PROC+42, PROC+50, PROC+51, PROC+52, PROC+76
>> C TALLY+13*
DA TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DEMO+3!
>> DFN PROC+15*, PROC+16, PROC+17, PROC+18, PROC+21, PROC+23, PROC+27, PROC+28, PROC+29, PROC+30
, PROC+31, PROC+36*, PROC+37, PROC+38, PROC+46, PROC+48, PROC+50, PROC+54, PROC+55, PROC+56
, PROC+57, PROC+58, PROC+68*, PROC+69, PROC+70, PROC+71, PROC+73, PROC+75, PROC+78, PROC+79
, PROC+80, PROC+81, PROC+82
DFOUT EOP+5!
DIR DATES+2!, DATES+4!, TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DEMO+3!, EOP+4~
DIR("A" DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*, DEMO+3*, EOP+7*
DIR("B" TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*, DEMO+3*
DIR(0 DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+3*, DEMO+3*, EOP+7*
DIRUT TALLY+10, EXCL+4, LIST+4, LIST1+6, DEMO+4, EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ PROC+12, PROC+18, PROC+37, PROC+41, PROC+69, USR+1
DUZ(2 LOC+1
E SPRV~, SPRV+1
>> I TALLY+13*
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
R BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
U PROC+11, PROC+15, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+29, PROC+30
, PROC+31, PROC+36, PROC+39, PROC+42, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+55
, PROC+56, PROC+57, PROC+58, PROC+62, PROC+63, PROC+64, PROC+68, PROC+75, PROC+76, PROC+77
, PROC+78, PROC+79, PROC+80, PROC+81, PROC+82, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V PPV~, PPV+2
X CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS DEMO+6*, BROWSE+2*
>> XBRC DEMO+6*, BROWSE+2*
>> XBRP DEMO+6*, BROWSE+1*
>> XBRX DEMO+6*, BROWSE+2*
Y DATES+3, DATES+5, TALLY+11, TALLY+12, TALLY+13, EXCL+5, LIST+5, LIST1+7, DEMO+5, 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