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

Package: Mental Health Social Services

Routine: AMHRAS2


Information

AMHRAS2 ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <AMHRAS2.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBVK  
Mental Health Social Services 4 PAUSE^AMHLEA  ($$BHRT,$$PCCV)^AMHRAS1  ($$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  
Taxonomy 1 $$ICD^ATXCHK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHRAS1  AMHRAS5  

Entry Points

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

External References

Name Field # of Occurrence
PAUSE^AMHLEA INFORM+24
$$BHRT^AMHRAS1 BHSCR+7, BHSCR+11, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+32
$$PCCV^AMHRAS1 PCCSCR+10, PCCSCR+17, PCCSCR+24, PCCSCR+31, PCCSCR+38, PCCSCR+45
$$ALLOWP^AMHUTIL PROC+16, PCC+13, PCC+30
$$ALLOWPCC^AMHUTIL PCC+8
$$ALLOWVI^AMHUTIL PROC+11
DBHUSR^AMHUTIL INFORM+24
XTMP^AMHUTIL PROC+4
$$DEMO^AMHUTIL1 PROC+17, PCC+14, PCC+31
DEMOCHK^AMHUTIL1 DEMO+1
$$PRIMPROV^APCLV PPV+2
$$ICD^ATXCHK BHSCR+31, PCCSCR+43
$$AGE^AUPNPAT PCC+38
^DIR DATES+3, DATES+5, TALLY+9, EXCL+3, LIST+3, LIST1+5, EOP+7
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PCC+36, PCC+39, PCC+42, PCC+43, PCC+44, PCC+45, BHSCR+6, BHSCR+11, BHSCR+16, BHSCR+20
, BHSCR+25, BHSCR+32, PCCSCR+7, PCCSCR+9, PCCSCR+14, PCCSCR+16, PCCSCR+23, PCCSCR+28, PCCSCR+35, SPRV+1
, PRVREF+1
$$VALI^XBDIQ1 BHSCR+7, BHSCR+15, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+30, PCCSCR+21, PCCSCR+42
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT PROC+6, PCC+2

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/ALCOHOL SCREENING",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will tally and optionally list all visits on which ALCOHOL"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"screening or a refusal was documented in the time frame specified by the"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"user. Alcohol Screening is defined as any of the following documented:"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !?5,"- Alcohol Screening Exam (Exam code 35)"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !?5,"- Measurements: AUDC, AUDT, CRFT"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !?5,"- Health Factor with Alcohol/Drug Category (CAGE)"
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !?5,"- Diagnoses V79.1, 29.1"
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !?5,"- Education Topics: AOD-SCR, CD-SCR"
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !?5,"- CPT Codes: 99408, 99409, G0396, G0397, H0049"
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !?5,"- refusal of exam code 35"
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !,"This report will tally the visits by age, gender, screening result,"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !,"provider (either exam provider, if available, or primary provider on the "
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider"
  • Line Location: INFORM+16
Function Call: WRITE
  • Prompt: !,"and A/SA Provider."
  • Line Location: INFORM+17
Function Call: WRITE
  • Prompt: !," Notes: "
  • Line Location: INFORM+18
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral"
  • Line Location: INFORM+19
Function Call: WRITE
  • Prompt: !?10," Health databases for evidence of screening/refusal"
  • Line Location: INFORM+20
Function Call: WRITE
  • Prompt: !?10,"- this is a tally of visits with a screening done, if a patient had"
  • Line Location: INFORM+21
Function Call: WRITE
  • Prompt: !?10," multiple screenings during the time period, all will be counted"
  • Line Location: INFORM+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+23
Function Call: WRITE
  • Prompt: !!,"Exam code 35 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+27
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) Type/Result of Screening",?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 ALCOHOL Screenings documented in the PCC clinical"
  • 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
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROC+10, PROC+14, BHSCR+4, BHSCR+10, BHSCR+11
^AMHREC("AVISIT" PCC+7
^AMHREC("B" PROC+7, PROC+8
^AMHREDU - [#9002011.05] BHSCR+26
^AMHREDU("AD" BHSCR+24
^AMHRHF - [#9002011.08] BHSCR+16
^AMHRHF("AD" BHSCR+14
^AMHRMSR - [#9002011.12] BHSCR+7
^AMHRMSR("AD" BHSCR+5
^AMHRPRO("AD" BHSCR+19
^AMHRPROC("AD" BHSCR+29
^AMHRPROV - [#9002011.02] BHPPNAME+2
^AMHRPROV("AD" BHPPNAME+2
^ATXAX("B" BHSCR+31, PCCSCR+43
^AUPNPREF - [#9000022] PCC+21, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PRVREF+1
^AUPNVCPT("AD" PCCSCR+41
^AUPNVHF("AD" PCCSCR+20
^AUPNVMSR("AD" PCCSCR+6
^AUPNVPED("AD" PCCSCR+34
^AUPNVPOV("AD" PCCSCR+27
^AUPNVSIT - [#9000010] PCC+6, PCC+11, PCCSCR+4, PCCSCR+5
^AUPNVSIT("B" PCC+3, PCC+4
^AUPNVXAM - [#9000010.13] SPRV+1
^AUPNVXAM("AD" PCCSCR+13
^AUTTEXAM("C" INFORM+26
^AUTTHF - [#9999999.64] BHSCR+16, PCCSCR+22
^DIC(4 - [#4] LOC+1
^DPT - [#2] PCC+37
^VA(200 - [#200] BHPPNAME+2, USR+1
^XTMP("AMHRAS2" PROC+3!, PROC+21*, PROC+22*, PCC+18*, PCC+19*, PCC+32, PCC+34*, PCC+48*

Label References

Name Line Occurrences
$$BHSCR PROC+18
$$CTR INFORM+1, INFORM+3
$$LOC INFORM+2
$$PCCSCR PCC+15
$$USR INFORM+1
DATES DATES+7, TALLY+10, TALLY+11, EXCL+4, LIST+4
DEMO LIST+6
LIST LIST1+6, DEMO+2
XIT INFORM+25, INFORM+27, ZIS+3

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, PCC+14, PCC+31
AMHRBD DATES!, DATES+3*, DATES+7, PROC+6, PROC+13, PCC+2, PCC+10, PCC+28
>> AMHRBIEN PROC+8*, PROC+10, PROC+11, PROC+14, PROC+18, PCC+4*, PCC+6, PCC+7, PCC+8, PCC+11
, PCC+15
>> AMHRCNT PROC+1*, PROC+20*, PROC+22, PCC+17*, PCC+19, PCC+33*, PCC+48
>> AMHRDATE PROC+9*, PROC+12, PROC+13, PROC+21, PCC+5*, PCC+9, PCC+10, PCC+18, PCC+25*, PCC+26
, PCC+27, PCC+28, PCC+32, PCC+34, PCC+35, PCC+38
AMHRED DATES!, DATES+5*, DATES+7, PROC+7, PROC+12, PCC+3, PCC+9, PCC+27
>> AMHREXC INFORM+26*, INFORM+27, PCC+24
>> AMHREXPC EXCL+1*, EXCL+5*, PCC+1
>> AMHRH PROC+2*, PROC+3, PROC+21, PROC+22, PCC+18, PCC+19, PCC+32, PCC+34, PCC+48
>> AMHRJ PROC+2*, PROC+3, PROC+21, PROC+22, PCC+18, PCC+19, PCC+32, PCC+34, PCC+48
>> AMHRLIST LIST+1*, LIST+5*, LIST+6
>> AMHRRIEN PCC+21*, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PCC+36, PCC+39
>> AMHRSD PROC+6*, PROC+7*, PROC+8, PROC+9, PCC+2*, PCC+3*, PCC+4, PCC+5
>> AMHRSORT LIST1+1*, LIST1+7*
AMHRTALL TALLY+1!, TALLY+12*
AMHRTALL( TALLY+13*
>> AMHSCR PROC+18*, PROC+19, PROC+22, PCC+15*, PCC+16, PCC+19
>> C TALLY+13*
>> D PCCSCR+5*, PCCSCR+9, PCCSCR+16, PCCSCR+23, PCCSCR+30, PCCSCR+37, PCCSCR+44
DA TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!
>> DFN PROC+14*, PROC+15, PROC+16, PROC+17, PROC+21, PCC+11*, PCC+12, PCC+13, PCC+14, PCC+18
, PCC+29*, PCC+30, PCC+31, PCC+32, PCC+34, PCC+37, PCC+38, PCC+42, PCC+43, PCC+44
, PCC+45, PCC+46
DFOUT EOP+5!
DIR DATES+2!, DATES+4!, TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, EOP+4~
DIR("A" DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*, EOP+7*
DIR("B" TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*
DIR(0 DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+3*, EOP+7*
DIRUT TALLY+10, EXCL+4, LIST+4, LIST1+6, EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ PROC+11, PROC+16, PCC+8, PCC+13, PCC+30, USR+1
DUZ(2 LOC+1
E BHSCR+2~, BHSCR+10*, BHSCR+11, PCCSCR+2~, 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
M BHSCR+2~, BHSCR+6*, BHSCR+7, BHSCR+15*, BHSCR+16, BHSCR+20*, BHSCR+21, BHSCR+25*, BHSCR+26, BHSCR+30*
, BHSCR+31, PCCSCR+2~, PCCSCR+7*, PCCSCR+8, PCCSCR+9, PCCSCR+14*, PCCSCR+15, PCCSCR+16, PCCSCR+21*, PCCSCR+22
, PCCSCR+28*, PCCSCR+29, PCCSCR+30, PCCSCR+35*, PCCSCR+36, PCCSCR+37, PCCSCR+42*, PCCSCR+43, PCCSCR+44
P BHSCR+2~, BHSCR+4*, BHSCR+7, BHSCR+11, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+32, PCCSCR+2~, PCCSCR+4*
, PCCSCR+10, PCCSCR+17, PCCSCR+24, PCCSCR+31, PCCSCR+38, PCCSCR+45
R BHSCR+2~, BHSCR+3*, BHSCR+7*, BHSCR+8, BHSCR+11*, BHSCR+12, BHSCR+16*, BHSCR+17, BHSCR+21*, BHSCR+22
, BHSCR+26*, BHSCR+27, BHSCR+32*, BHSCR+33, BHSCR+34, PCCSCR+2~, PCCSCR+3*, PCCSCR+10*, PCCSCR+11, PCCSCR+17*
, PCCSCR+18, PCCSCR+24*, PCCSCR+25, PCCSCR+31*, PCCSCR+32, PCCSCR+38*, PCCSCR+39, PCCSCR+45*, PCCSCR+46, PCCSCR+47
, BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
>> T PCC+35*, PCC+36*, PCC+37*, PCC+38*, PCC+39*, PCC+40*, PCC+41*, PCC+42*, PCC+43*, PCC+44*
, PCC+45*, PCC+46*, PCC+47*, PCC+48, PCCSCR+9*, PCCSCR+10, PCCSCR+16*, PCCSCR+17, PCCSCR+23*, PCCSCR+24
, PCCSCR+30*, PCCSCR+31, PCCSCR+37*, PCCSCR+38, PCCSCR+44*, PCCSCR+45
U PROC+14, PCC+11, PCC+23, PCC+24, PCC+25, PCC+29, PCC+36, PCC+37, PCC+38, PCC+39
, PCC+40, PCC+41, PCC+42, PCC+43, PCC+44, PCC+45, PCC+46, PCC+47, BHSCR+4, BHSCR+7
, BHSCR+10, BHSCR+11, BHSCR+16, BHSCR+26, PCCSCR+4, PCCSCR+5, PCCSCR+9, PCCSCR+16, PCCSCR+22, PCCSCR+23
, PCCSCR+30, PCCSCR+37, PCCSCR+44, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V BHSCR~, BHSCR+4, BHSCR+5, BHSCR+7, BHSCR+10, BHSCR+11, BHSCR+14, BHSCR+16, BHSCR+19, BHSCR+21
, BHSCR+24, BHSCR+26, BHSCR+29, BHSCR+32, PCCSCR~, PCCSCR+4, PCCSCR+5, PCCSCR+6, PCCSCR+9, PCCSCR+13
, PCCSCR+16, PCCSCR+20, PCCSCR+23, PCCSCR+27, PCCSCR+30, PCCSCR+34, PCCSCR+37, PCCSCR+41, PCCSCR+44, PPV~
, PPV+2
X BHSCR+2~, BHSCR+5*, BHSCR+6, BHSCR+7, BHSCR+14*, BHSCR+15, BHSCR+16, BHSCR+19*, BHSCR+20, BHSCR+21
, BHSCR+24*, BHSCR+25, BHSCR+26, BHSCR+29*, BHSCR+30, BHSCR+32, PCCSCR+2~, PCCSCR+6*, PCCSCR+7, PCCSCR+9
, PCCSCR+13*, PCCSCR+14, PCCSCR+16, PCCSCR+20*, PCCSCR+21, PCCSCR+23, PCCSCR+27*, PCCSCR+28, PCCSCR+30, PCCSCR+34*
, PCCSCR+35, PCCSCR+37, PCCSCR+41*, PCCSCR+42, PCCSCR+44, CTR~, CTR+1
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y DATES+3, DATES+5, TALLY+11, TALLY+12, TALLY+13, EXCL+5, LIST+5, LIST1+7, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All