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

Package: Patient Care Component Reports

Routine: APCLDE5


Information

APCLDE5 ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <APCLDE5.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Patient Care Component Reports 4 ($$BHSCR,$$PCCSCR)^APCLDE2  XTMP^APCLOSUT  ($$CLINIC,$$PRIMPROV)^APCLV  PAUSE^APCLVL01  
VA Fileman 2 ^DIC  ^DIR  
IHS Patient 1 $$AGE^AUPNPAT  
Kernel 1 $$FMADD^XLFDT  

Entry Points

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

External References

Name Field # of Occurrence
$$BHSCR^APCLDE2 PROC+19
$$PCCSCR^APCLDE2 PCC+15
XTMP^APCLOSUT PROC+4
$$CLINIC^APCLV PCC+12
$$PRIMPROV^APCLV PPV+2
PAUSE^APCLVL01 INFORM+26
$$AGE^AUPNPAT PCC+37
^DIC STMP+2
^DIR DATES+3, DATES+5, TALLY+9, EXCL+4, LIST+3, LIST1+5, EOP+7
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PCC+35, PCC+38, PCC+41, PCC+42, PCC+43, PCC+44, SPRV+1, PRVREF+1
^XBFMK XIT+2
EN^XBVK XIT+1
$$FMADD^XLFDT PROC+7, PCC+1

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: !!,"*Please Note: This DEPRESSION report is intended for advanced RPMS users"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"who are experienced in building search templates and using Q-MAN."
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !!,$$CTR("TALLY AND LISTING OF ALL VISITS W/DEPRESSION SCREENING",80)
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,$$CTR("ONLY PATIENTS WHO ARE MEMBERS OF A USER DEFINED SEARCH TEMPLATE",80)
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,$$CTR("ARE INCLUDED IN THIS REPORT",80)
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !!,"This report will tally and optionally list all visits on which DEPRESSION "
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"screening or a refusal was documented in the time frame specified by the"
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !,"user. Depression Screening is defined as any of the following documented:"
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !?5,"- Depression Screening Exam (Exam code 36)"
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !?5,"- Measurements: PHQ2, PHQ9, PHQT"
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !?5,"- Diagnoses V79.0 (there are no ICD10 codes), 14.1 (Behavioral Hlth Code)"
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !?5,"- Education Topics: DEP-SCR"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !?5,"- refusal of exam code 36"
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !,"This report will tally the visits by age, gender, screening result,"
  • Line Location: INFORM+16
Function Call: WRITE
  • Prompt: !,"provider (either exam provider, if available, or primary provider on the "
  • Line Location: INFORM+17
Function Call: WRITE
  • Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider"
  • Line Location: INFORM+18
Function Call: WRITE
  • Prompt: !,"and A/SA Provider."
  • Line Location: INFORM+19
Function Call: WRITE
  • Prompt: !," Notes: "
  • Line Location: INFORM+20
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral"
  • Line Location: INFORM+21
Function Call: WRITE
  • Prompt: !?10," Health databases for evidence of screening/refusal"
  • Line Location: INFORM+22
Function Call: WRITE
  • Prompt: !?10,"- this is a tally of visits with a screening done, if a patient had"
  • Line Location: INFORM+23
Function Call: WRITE
  • Prompt: !?10," multiple screenings during the time period, all will be counted"
  • Line Location: INFORM+24
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+25
Function Call: WRITE
  • Prompt: !!,"Exam code 36 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: !
  • Line Location: STMP+2
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 Screening",?40,"7) Primary Provider on Visit"
  • Line Location: TALLY+4
Function Call: WRITE
  • Prompt: !?3,"2) Gender",?40,"8) Designated Primary Care Provider"
  • Line Location: TALLY+5
Function Call: WRITE
  • Prompt: !?3,"3) Age of Patient"
  • Line Location: TALLY+6
Function Call: WRITE
  • Prompt: !?3,"4) Provider who Screened"
  • Line Location: TALLY+7
Function Call: WRITE
  • Prompt: !?3,"5) Clinic"
  • Line Location: TALLY+8
Function Call: WRITE
  • Prompt: !!,"Would you like to include screenings recorded in the Behavioral Clinics"
  • Line Location: EXCL+2
Function Call: WRITE
  • Prompt: !,"Mental Health (14); DEPRESSION and Substance Abuse (43), Medical Social"
  • Line Location: EXCL+3
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
  • DIC
  • Line Location:
    • STMP+2
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+5
    • TALLY+9
    • EXCL+4
    • LIST+3
    • LIST1+5
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] PROC+11, PROC+15
^AMHREC("AVISIT" PCC+6
^AMHREC("B" PROC+8, PROC+9
^AMHRPROV - [#9002011.02] BHPPNAME+2
^AMHRPROV("AD" BHPPNAME+2
^AUPNPREF - [#9000022] PCC+21, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PRVREF+1
^AUPNVSIT - [#9000010] PCC+5, PCC+10
^AUPNVSIT("B" PCC+2, PCC+3
^AUPNVXAM - [#9000010.13] SPRV+1
^AUTTEXAM("C" INFORM+28
^DIBT( PROC+18, PCC+13, PCC+30
^DIC(4 - [#4] LOC+1
^DPT - [#2] PCC+36
^VA(200 - [#200] BHPPNAME+2, USR+1
^XTMP("APCLDE5" PROC+3!, PROC+22*, PROC+23*, PCC+18*, PCC+19*, PCC+31, PCC+33*, PCC+47*

Label References

Name Line Occurrences
$$CTR INFORM+1, INFORM+5, INFORM+6, INFORM+7
$$LOC INFORM+2
$$USR INFORM+1
DATES DATES+7, STMP+3, TALLY+10, TALLY+11, EXCL+5, LIST+4
LIST LIST1+6
PCC PROC+6
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
>> A TALLY+13*
APCLBD DATES!, DATES+3*, DATES+7, PROC+7, PROC+14, PCC+1, PCC+9, PCC+28
>> APCLBIEN PROC+9*, PROC+11, PROC+15, PROC+19, PCC+3*, PCC+5, PCC+6, PCC+10, PCC+12, PCC+15
>> APCLCNT PROC+1*, PROC+21*, PROC+23, PCC+17*, PCC+19, PCC+32*, PCC+47
>> APCLDATE PROC+10*, PROC+13, PROC+14, PROC+22, PCC+4*, PCC+8, PCC+9, PCC+18, PCC+25*, PCC+26
, PCC+27, PCC+28, PCC+31, PCC+33, PCC+34, PCC+37
APCLED DATES!, DATES+5*, DATES+7, PROC+8, PROC+13, PCC+2, PCC+8, PCC+27
>> APCLEXC INFORM+28*, INFORM+29, PCC+24
>> APCLEXPC EXCL+1*, EXCL+6*, PROC+6, PCC+6, PCC+12
>> APCLH PROC+2*, PROC+3, PROC+22, PROC+23, PCC+18, PCC+19, PCC+31, PCC+33, PCC+47
>> APCLJ PROC+2*, PROC+3, PROC+22, PROC+23, PCC+18, PCC+19, PCC+31, PCC+33, PCC+47
>> APCLLIST LIST+1*, LIST+5*, LIST+6
>> APCLRIEN PCC+21*, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PCC+35, PCC+38
>> APCLSD PROC+7*, PROC+8*, PROC+9, PROC+10, PCC+1*, PCC+2*, PCC+3, PCC+4
>> APCLSEAT STMP+1*, STMP+4*, PROC+18, PCC+13, PCC+30
>> APCLSORT LIST1+1*, LIST1+7*
APCLTALL TALLY+1!, TALLY+12*
APCLTALL( TALLY+13*
>> APCSCR PROC+19*, PROC+20, PROC+23, PCC+15*, PCC+16, PCC+19
>> C TALLY+13*, PCC+12*
DA STMP+2!, TALLY+9!, EXCL+4!, LIST+3!, LIST1+5!
>> DFN PROC+15*, PROC+16, PROC+18, PROC+22, PCC+10*, PCC+11, PCC+13, PCC+18, PCC+29*, PCC+30
, PCC+31, PCC+33, PCC+36, PCC+37, PCC+41, PCC+42, PCC+43, PCC+44, PCC+45
DFOUT EOP+5!
DIC STMP+2*!
DIC("A" STMP+2*
DIC("S" STMP+2*
DIC(0 STMP+2*
DICR STMP+2!
DIR DATES+2!, DATES+4!, TALLY+9!, EXCL+4!, LIST+3!, LIST1+5!, EOP+4~
DIR("A" DATES+2*, DATES+4*, TALLY+9*, EXCL+4*, LIST+3*, LIST1+4*, EOP+7*
DIR("B" TALLY+9*, EXCL+4*, LIST+3*, LIST1+4*
DIR(0 DATES+2*, DATES+4*, TALLY+9*, EXCL+4*, LIST+3*, LIST1+3*, EOP+7*
DIRUT TALLY+10, EXCL+5, LIST+4, LIST1+6, EOP+5!
DLOUT EOP+5!
DR STMP+2!
DTOUT EOP+5!
DUOUT EOP+5!
DUZ 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
>> T PCC+34*, 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
U PROC+15, PCC+10, PCC+23, PCC+24, PCC+25, PCC+29, PCC+35, PCC+36, PCC+37, PCC+38
, PCC+39, PCC+40, PCC+41, PCC+42, PCC+43, PCC+44, PCC+45, PCC+46, BHPPNAME+2, SPRV+1
, PRVREF+1, USR+1, LOC+1
V PPV~, PPV+2
X CTR~, CTR+1
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y DATES+3, DATES+5, STMP+3, STMP+4, TALLY+11, TALLY+12, TALLY+13, EXCL+6, LIST+5, LIST1+7
, 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