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

Package: Mental Health Social Services

Routine: AMHRAS1


Information

AMHRAS1 ; IHS/CMI/LAB - list ALCOHOL ;

Source Information

Source file <AMHRAS1.m>

Call Graph

Call Graph Total: 14

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHRAS2  AMHRAS31  AMHRAS4  

Entry Points

Name Comments DBIA/ICR reference
DATES
BHALCS(P,BDATE,EDATE) ;EP - pass back last BH screening
DEMO ;
LIST1 ;
SCRNPCC(T) ;get screening provider based on v file
USR() ;EP - Return name of current user from ^VA(200.
PCCALCS(P,BDATE,EDATE) ;EP - get alcohol screening from pcc
DP ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
TALLY ;which items to tally
BHRT(V,TYPE,RES,PAT,PROVSCRN,COMMENT) ;EP
INFORM ;
SPRV(E) ;
ZIS ;
PPV(V) ;
PCCV(S,PAT) ;EP
XIT ;
EXCL ;
LIST ;
EOP ;EP - End of page.
REFUSAL(PAT,F,I,B,E) ;EP
PRVREF(R) ;
BHPPNAME(R) ;EP primary provider internal # from 200
PROC ;

External References

Name Field # of Occurrence
^%DT REFUSAL+6, REFUSAL+7
PAUSE^AMHLEA INFORM+26
$$PCCSCR^AMHRAS2 PCCALCS+17
$$ALLOWP^AMHUTIL PROC+7, PCCALCS+16
$$ALLOWPCC^AMHUTIL PCCALCS+12
$$ALLOWVI^AMHUTIL BHALCS+11
DBHUSR^AMHUTIL INFORM+26
XTMP^AMHUTIL PROC+4
$$DEMO^AMHUTIL1 PROC+8
DEMOCHK^AMHUTIL1 DEMO+1
$$PRIMPROV^APCLV PPV+2, PCCV+9
$$ICD^ATXCHK BHALCS+35
$$AGE^AUPNPAT BHRT+7, REFUSAL+12, PCCV+6
^DIR DATES+3, DATES+5, TALLY+9, EXCL+3, LIST+3, LIST1+5, DP+3, EOP+7
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 SPRV+1, PRVREF+1, BHALCS+14, BHALCS+19, BHALCS+23, BHALCS+26, BHALCS+30, BHALCS+36, BHRT+9, BHRT+11
, BHRT+12, BHRT+13, BHRT+14, REFUSAL+10, REFUSAL+13, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV+8
, PCCV+10, PCCV+11, PCCV+12, PCCV+13, SCRNPCC+4
$$VALI^XBDIQ1 BHALCS+15, BHALCS+22, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+34
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT BHALCS+7, PCCALCS+8

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 PATIENTS RECEIVING ALCOHOL SCREENING,INCLUDING REFUSALS",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will tally and optionally list all patients who have had "
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"ALCOHOL screening or a refusal documented in the time frame specified by "
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"the 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 patients by age, gender, screening exam 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,"- the last screening/refusal for each patient is used. If a patient"
  • Line Location: INFORM+19
Function Call: WRITE
  • Prompt: !?10," was screened more than once in the time period, only the latest"
  • Line Location: INFORM+20
Function Call: WRITE
  • Prompt: !?10," is used in this report."
  • Line Location: INFORM+21
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral"
  • Line Location: INFORM+22
Function Call: WRITE
  • Prompt: !?10," Health databases for evidence of screening/refusal"
  • Line Location: INFORM+23
Function Call: WRITE
  • Prompt: !?10,"- this is a tally of Patients, not visits or screenings"
  • Line Location: INFORM+24
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+25
Function Call: WRITE
  • Prompt: !!,"Exam code 35 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+29
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: DP+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
    • DP+3
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] BHALCS+10, BHALCS+18, BHALCS+19, BHRT+4
^AMHREC("AE" BHALCS+8, BHALCS+9
^AMHREDU - [#9002011.05] BHALCS+31
^AMHREDU("AD" BHALCS+29
^AMHRHF - [#9002011.08] BHALCS+23
^AMHRHF("AD" BHALCS+21
^AMHRMSR - [#9002011.12] BHALCS+15
^AMHRMSR("AD" BHALCS+13
^AMHRPRO("AD" BHALCS+25
^AMHRPROC("AD" BHALCS+33
^AMHRPROV - [#9002011.02] BHPPNAME+2
^AMHRPROV("AD" BHPPNAME+2
^ATXAX("B" BHALCS+35
^AUPNPAT - [#9000001] PROC+6
^AUPNPREF - [#9000022] PRVREF+1, REFUSAL+8
^AUPNPREF("AA" REFUSAL+8
^AUPNVSIT - [#9000010] PCCALCS+11, PCCALCS+13, PCCALCS+14
^AUPNVSIT("AA" PCCALCS+9, PCCALCS+10
^AUPNVXAM - [#9000010.13] SPRV+1
^AUTTEXAM("C" INFORM+28, PROC+12
^AUTTHF - [#9999999.64] BHALCS+23
^DIC(4 - [#4] LOC+1
^DPT - [#2] BHRT+6, REFUSAL+11, PCCV+5
^VA(200 - [#200] BHPPNAME+2, USR+1, BHRT+8
^XTMP("AMHRAS1" PROC+3!, PROC+15*

Label References

Name Line Occurrences
$$BHALCS PROC+9
$$BHPPNAME BHRT+10
$$BHRT BHALCS+15, BHALCS+19, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+36
$$CTR INFORM+1, INFORM+3
$$LOC INFORM+2
$$PCCALCS PROC+10
$$REFUSAL PROC+12
$$SCRNPCC PCCV+7
$$USR INFORM+1
DATES DATES+7, TALLY+10, TALLY+11, EXCL+4, LIST+4
DP DEMO+2
LIST LIST1+6, DP+4
XIT INFORM+27, INFORM+29, ZIS+3
ZIS LIST+6

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
%DT REFUSAL+6~*, REFUSAL+7*
>> A TALLY+13*
>> AMHALSC PROC+9*, PROC+11*, PROC+13*, PROC+14, PROC+15
>> AMHDEMO DEMO+1, DEMO+2, PROC+8
>> AMHPCALS PROC+10*, PROC+11
>> AMHPFI PROC+9*, PROC+11*, PROC+13*, PROC+15
AMHRBD DATES!, DATES+3*, DATES+7, PROC+9, PROC+10, PROC+12
>> AMHRCNT PROC+1*
AMHRDATE PCCALCS+6~, PCCALCS+13*
>> AMHRDP DP+1*, DP+5*
AMHRED DATES!, DATES+5*, DATES+7, PROC+9, PROC+10, PROC+12
>> AMHREFS PROC+12*, PROC+13
>> AMHREXC INFORM+28*, INFORM+29
>> AMHREXPC EXCL+1*, EXCL+5*, PROC+10, PROC+12
>> AMHRH PROC+2*, PROC+3, PROC+15
>> AMHRJ PROC+2*, PROC+3, PROC+15
>> AMHRLIST LIST+1*, LIST+5*, LIST+6
>> AMHRSORT LIST1+1*, LIST1+7*
AMHRTALL TALLY+1!, TALLY+12*
AMHRTALL( TALLY+13*
B REFUSAL~, REFUSAL+4, REFUSAL+6*, REFUSAL+8
BDATE BHALCS~, BHALCS+2, BHALCS+8, PCCALCS~, PCCALCS+2, PCCALCS+9
>> C TALLY+13*
COMMENT BHRT~, BHRT+2*, BHRT+16
D BHALCS+5~, BHRT+3~, BHRT+4*, BHRT+7, REFUSAL+8*, REFUSAL+9, REFUSAL+12
DA TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DP+3!
>> DFN PROC+6*, PROC+7, PROC+8, PROC+9, PROC+10, PROC+12, PROC+15, PCCALCS+14*, PCCALCS+15, PCCALCS+16
DFOUT EOP+5!
DIR DATES+2!, DATES+4!, TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DP+3!, EOP+4~
DIR("A" DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*, DP+3*, EOP+7*
DIR("B" TALLY+9*, EXCL+3*, LIST+3*, LIST1+4*, DP+3*
DIR(0 DATES+2*, DATES+4*, TALLY+9*, EXCL+3*, LIST+3*, LIST1+3*, DP+3*, EOP+7*
DIRUT TALLY+10, EXCL+4, LIST+4, LIST1+6, DP+4, EOP+5!
DLOUT EOP+5!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ PROC+7, USR+1, BHALCS+11, PCCALCS+12, PCCALCS+16
DUZ(2 LOC+1
E SPRV~, SPRV+1, BHALCS+5~, BHALCS+18*, BHALCS+19, REFUSAL~, REFUSAL+5, REFUSAL+7*, REFUSAL+8
EDATE BHALCS~, BHALCS+3, BHALCS+7, PCCALCS~, PCCALCS+3, PCCALCS+8
F REFUSAL~, REFUSAL+2, REFUSAL+8, SCRNPCC+1~, SCRNPCC+2*, SCRNPCC+3*, SCRNPCC+4
I TALLY+13*, REFUSAL~, REFUSAL+3, REFUSAL+8
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
M BHALCS+5~, BHALCS+14*, BHALCS+15, BHALCS+22*, BHALCS+23, BHALCS+26*, BHALCS+27, BHALCS+30*, BHALCS+31, BHALCS+34*
, BHALCS+35
P BHALCS~, BHALCS+1, BHALCS+8, BHALCS+9, BHALCS+15, BHALCS+19, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+36
, PCCALCS~, PCCALCS+1, PCCALCS+9, PCCALCS+10
PAT BHRT~, BHRT+6, BHRT+7, BHRT+11, BHRT+12, BHRT+13, BHRT+14, BHRT+17, REFUSAL~, REFUSAL+1
, REFUSAL+8, REFUSAL+11, REFUSAL+12, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV~, PCCV+5, PCCV+6
, PCCV+10, PCCV+11, PCCV+12, PCCV+13, PCCV+15
PROVSCRN BHRT~, BHRT+1*, BHRT+8
R BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1, BHALCS+5~, BHALCS+6*, BHALCS+8, BHALCS+9, BHALCS+13, BHALCS+15*
, BHALCS+16, BHALCS+19*, BHALCS+20, BHALCS+21, BHALCS+23*, BHALCS+24, BHALCS+25, BHALCS+27*, BHALCS+28, BHALCS+29
, BHALCS+31*, BHALCS+32, BHALCS+33, BHALCS+36*, BHALCS+37, BHALCS+38, PCCALCS+6~, PCCALCS+7*, PCCALCS+9, PCCALCS+10
, PCCALCS+17*, PCCALCS+18
RES BHRT~, BHRT+5
S PCCV~, PCCV+3, PCCV+4, PCCV+6, PCCV+7, PCCV+8, PCCV+9, PCCV+14, SCRNPCC+1~, SCRNPCC+4*
, SCRNPCC+5
SDATE BHALCS+5~, BHALCS+7*, BHALCS+8*, BHALCS+9, PCCALCS+6~, PCCALCS+8*, PCCALCS+9*, PCCALCS+10
T BHRT+3~, BHRT+4*, BHRT+5*, BHRT+6*, BHRT+7*, BHRT+8*, BHRT+9*, BHRT+10*, BHRT+11*, BHRT+12*
, BHRT+13*, BHRT+14*, BHRT+15*, BHRT+16*, BHRT+17*, BHRT+18*, BHRT+19, PCCALCS+4~, REFUSAL+6~, REFUSAL+8*
, REFUSAL+9*, REFUSAL+10*, REFUSAL+11*, REFUSAL+12*, REFUSAL+13*, REFUSAL+14*, REFUSAL+15*, REFUSAL+16*, REFUSAL+17*, REFUSAL+18*
, REFUSAL+19*, REFUSAL+20, PCCV+1~, PCCV+2*, PCCV+3*, PCCV+4*, PCCV+5*, PCCV+6*, PCCV+7*, PCCV+8*
, PCCV+9*, PCCV+10*, PCCV+11*, PCCV+12*, PCCV+13*, PCCV+14*, PCCV+15*, PCCV+16*, PCCV+17, SCRNPCC~
, SCRNPCC+3, SCRNPCC+4
TYPE BHRT~, BHRT+5
U PROC+11, PROC+13, PROC+15, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1, BHALCS+15, BHALCS+18
, BHALCS+19, BHALCS+23, BHALCS+31, BHRT+4, BHRT+5, BHRT+6, BHRT+7, BHRT+8, BHRT+9, BHRT+10
, BHRT+11, BHRT+12, BHRT+13, BHRT+14, BHRT+15, BHRT+16, BHRT+17, BHRT+18, PCCALCS+13, PCCALCS+14
, REFUSAL+8, REFUSAL+10, REFUSAL+11, REFUSAL+12, REFUSAL+13, REFUSAL+14, REFUSAL+15, REFUSAL+16, REFUSAL+17, REFUSAL+18
, REFUSAL+19, PCCV+3, PCCV+4, PCCV+5, PCCV+6, PCCV+7, PCCV+8, PCCV+9, PCCV+10, PCCV+11
, PCCV+12, PCCV+13, PCCV+14, PCCV+15, PCCV+16, SCRNPCC+3, SCRNPCC+4
V PPV~, PPV+2, BHALCS+5~, BHALCS+9*, BHALCS+10, BHALCS+11, BHALCS+13, BHALCS+15, BHALCS+18, BHALCS+19
, BHALCS+21, BHALCS+23, BHALCS+25, BHALCS+27, BHALCS+29, BHALCS+31, BHALCS+33, BHALCS+36, BHRT~, BHRT+4
, BHRT+9, BHRT+10, BHRT+15, PCCALCS+6~, PCCALCS+10*, PCCALCS+11, PCCALCS+12, PCCALCS+13, PCCALCS+14, PCCALCS+17
X CTR~, CTR+1, BHALCS+5~, BHALCS+13*, BHALCS+14, BHALCS+15, BHALCS+21*, BHALCS+22, BHALCS+23, BHALCS+25*
, BHALCS+26, BHALCS+27, BHALCS+29*, BHALCS+30, BHALCS+31, BHALCS+33*, BHALCS+34, BHALCS+36, REFUSAL+6~*, REFUSAL+7*
, REFUSAL+8*
>> 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, DP+5, CTR~
, CTR+1, REFUSAL+6~, REFUSAL+7, REFUSAL+8*, REFUSAL+10, REFUSAL+13
>> 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