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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLDE3

Package: Patient Care Component Reports

Routine: APCLDE3


Information

APCLDE3 ; IHS/CMI/LAB - list DEPRESSION screenings ;

Source Information

Source file <APCLDE3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 3 ^DIC  MIX^DIC1  ^DIR  
Patient Care Component Reports 2 ^APCLSTMP  PAUSE^APCLVL01  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
DATES
PRVSCR ;
LIST1 ;
AGER ;Age Screening
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
SSPRV ;
DP ;
PRV1 ;
TEMP ;TEMPLATE OR LIST
CTR(X,Y) ;EP - Center X in a field Y wide.
CDPRV1 ;
SEX ;
INFORM ;
SCRPRV1 ;
PRIMPRV ;
AGE ;Age Screening
ZIS ;
CLINIC1 ;
DESPRV ;
CLINIC ;
XIT ;
RESULT ;result screenig
EXCL ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
SSPRV1 ;
DESPRV1 ;
CDPRV ;

External References

Name Field # of Occurrence
PEP^AMQQGTX0 CLINIC1+2
^APCLSTMP TEMP+6
PAUSE^APCLVL01 INFORM+24, INFORM+28
^DIC CLINIC1+1, PRV1+2
MIX^DIC1 PRV1+1, SCRPRV1+1, DESPRV1+1, SSPRV1+1, CDPRV1+1
^DIR DATES+3, DATES+5, EXCL+4, SEX+2, AGE+4, AGER+2, RESULT+13, CLINIC+2, PRIMPRV+4, PRVSCR+4
, DESPRV+3, SSPRV+3, CDPRV+3, TEMP+3, LIST1+5, DP+3, EOP+7
^XBDBQUE ZIS+2
^XBFMK XIT+2
EN^XBVK XIT+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: !!,$$CTR("TALLY AND LISTING OF PATIENTS RECEIVING DEPRESSION 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: !,"DEPRESSION screening or a refusal documented in the time frame specified by "
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"the user. Depression Screening is defined as any of the following documented:"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !?5,"- Depression Screening Exam (Exam code 36)"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !?5,"- Measurements: PHQ2, PHQ9, PHQT"
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !?5,"- Diagnoses V79.0 (there are no ICD10 codes), 14.1 (Behavioral Hlth Code)"
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !?5,"- Education Topics: DEP-SCR"
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: !?5,"- refusal of exam code 36"
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: !,"This report will tally the patients by age, gender, screening exam result,"
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !,"provider (either exam provider, if available, or primary provider on the "
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider"
  • Line Location: INFORM+14
Function Call: WRITE
  • Prompt: !,"and A/SA Provider."
  • Line Location: INFORM+15
Function Call: WRITE
  • Prompt: !," Notes: "
  • Line Location: INFORM+16
Function Call: WRITE
  • Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient"
  • Line Location: INFORM+17
Function Call: WRITE
  • Prompt: !?10," was screened more than once in the time period, only the latest"
  • Line Location: INFORM+18
Function Call: WRITE
  • Prompt: !?10," is used in this report."
  • Line Location: INFORM+19
Function Call: WRITE
  • Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral"
  • Line Location: INFORM+20
Function Call: WRITE
  • Prompt: !?10," Health databases for evidence of screening/refusal"
  • Line Location: INFORM+21
Function Call: WRITE
  • Prompt: !?10,"- this is a tally of Patients, not visits or screenings"
  • Line Location: INFORM+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+23
Function Call: WRITE
  • Prompt: !!,"You will be able to choose the patients by age, gender, clinic, primary"
  • Line Location: INFORM+25
Function Call: WRITE
  • Prompt: !,"provider or result of the screening."
  • Line Location: INFORM+26
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+27
Function Call: WRITE
  • Prompt: !!,"Exam code 36 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+31
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: !!,"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: AGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AGER+1
Function Call: WRITE
  • Prompt: !!,"No age range entered."
  • Line Location: AGER+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."
  • Line Location: AGER+4
Function Call: WRITE
  • Prompt: !!,"You can limit the list to only patients who have had a screening"
  • Line Location: RESULT+2
Function Call: WRITE
  • Prompt: !,"in the time period on which the result was any combination of the"
  • Line Location: RESULT+3
Function Call: WRITE
  • Prompt: !,"following: (e.g. to get only those patients who have had a result of "
  • Line Location: RESULT+4
Function Call: WRITE
  • Prompt: !,"Positive enter 2 to get all patients who have had a screening result of"
  • Line Location: RESULT+5
Function Call: WRITE
  • Prompt: !,"Positive or Refused, enter 2,3)",!
  • Line Location: RESULT+6
Function Call: WRITE
  • Prompt: !?3,"1) Normal/Negative"
  • Line Location: RESULT+7
Function Call: WRITE
  • Prompt: !?3,"2) Positive"
  • Line Location: RESULT+8
Function Call: WRITE
  • Prompt: !?3,"3) Refused"
  • Line Location: RESULT+9
Function Call: WRITE
  • Prompt: !?3,"4) Unable to Screen"
  • Line Location: RESULT+10
Function Call: WRITE
  • Prompt: !?3,"5) Screenings done with no result entered"
  • Line Location: RESULT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RESULT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: CLINIC1+1
Function Call: WRITE
  • Prompt: !!,"Would you like to limit the list to just patients who have"
  • Line Location: DESPRV+2
Function Call: WRITE
  • Prompt: !!,"Would you like to limit the list to just patients who have"
  • Line Location: SSPRV+2
Function Call: WRITE
  • Prompt: !!,"Would you like to limit the list to just patients who have"
  • Line Location: CDPRV+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
  • DIC
  • Line Location:
    • CLINIC1+1
    • PRV1+2
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+5
    • EXCL+4
    • SEX+2
    • AGE+4
    • AGER+2
    • RESULT+13
    • CLINIC+2
    • PRIMPRV+4
    • PRVSCR+4
    • DESPRV+3
    • SSPRV+3
    • CDPRV+3
    • TEMP+3
    • LIST1+5
    • DP+3
    • EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(6 - [#6] Classic Fileman Calls
^AMQQ(5 - [#9009075] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTEXAM("C" INFORM+30
^DD(9000010.06 PRV1+1, PRV1+2
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR INFORM+1, INFORM+3
$$LOC INFORM+2
$$USR INFORM+1
AGE AGER+3, RESULT+14, RESULT+15
AGER AGER+4
CDPRV SSPRV+5, CDPRV1+2
CLINIC CLINIC1+3
DATES DATES+7, EXCL+5
DESPRV PRVSCR+7, PRVSCR+8, DESPRV1+2, SSPRV+4, TEMP+4
EXCL SEX+3
LIST1 DP+4
PRIMPRV CLINIC+4, PRV1+3, DESPRV+4, LIST1+6
PRVSCR PRIMPRV+7, PRIMPRV+8, SCRPRV1+2
RESULT AGE+6, CLINIC+3
SEX AGE+5
SSPRV DESPRV+5, SSPRV1+2, CDPRV+4
TEMP CDPRV+5, TEMP+6
XIT INFORM+29, INFORM+31, CLINIC1+1, PRIMPRV+5, PRVSCR+5, ZIS+3
ZIS TEMP+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
>> A RESULT+17*
APCLAGE AGE+1!
APCLAGET AGE+1!, AGER+5*
APCLBD DATES!, DATES+3*, DATES+7
>> APCLCDP CDPRV+1*, CDPRV+5*, CDPRV1+3*
APCLCLNT CLINIC+1!, CLINIC1+3, CLINIC1+4!
APCLCLNT("*" CLINIC1+4
>> APCLDESP DESPRV+1*, DESPRV+5*, DESPRV1+3*
>> APCLDISC PRIMPRV+1*
>> APCLDP DP+1*, DP+5*
APCLED DATES!, DATES+5*, DATES+7
>> APCLEXC INFORM+30*, INFORM+31
>> APCLEXPC EXCL+1*, EXCL+6*
>> APCLPPUN PRIMPRV+1*, PRIMPRV+8*
APCLPROV PRIMPRV+1!, PRIMPRV+7!, PRV1+4*
>> APCLPSRT PRIMPRV+1*, PRIMPRV+6*
APCLREST RESULT+1!, RESULT+16*
APCLREST( RESULT+17*
>> APCLSEX SEX+1*, SEX+4*, SEX+5*
>> APCLSORT LIST1+1*, LIST1+7*
APCLSPRV PRVSCR+1!, PRVSCR+7!, SCRPRV1+3*
>> APCLSPUN PRVSCR+1*, PRVSCR+8*
>> APCLSSP SSPRV+1*, SSPRV+5*, SSPRV1+3*
>> APCLSSRT PRVSCR+1*, PRVSCR+6*
>> APCLSTMP TEMP+1*, TEMP+6
>> APCLTMPL TEMP+1*, TEMP+5*, TEMP+6
>> C RESULT+17*
D PRV1+1*!, SCRPRV1+1*!, DESPRV1+1*!, SSPRV1+1*!, CDPRV1+1*!
DA EXCL+4!, SEX+2!, RESULT+13!, CLINIC1+1!, DESPRV+3!, SSPRV+3!, CDPRV+3!, LIST1+5!, DP+3!
DFOUT EOP+5!
DIC CLINIC1+1*!, PRV1+1*!, PRV1+2*!, SCRPRV1+1*!, DESPRV1+1*!, SSPRV1+1*!, CDPRV1+1*!
DIC("A" PRV1+1*, PRV1+2*, SCRPRV1+1*, DESPRV1+1*, SSPRV1+1*, CDPRV1+1*
DIC("S" CLINIC1+1*
DIC(0 CLINIC1+1*, PRV1+1*, PRV1+2*, SCRPRV1+1*, DESPRV1+1*, SSPRV1+1*, CDPRV1+1*
DIR DATES+2!, DATES+4!, EXCL+4!, SEX+2!, AGE+4!, RESULT+13!, CLINIC+2!, PRIMPRV+4!, PRVSCR+4!, DESPRV+3!
, SSPRV+3!, CDPRV+3!, TEMP+3!, LIST1+5!, DP+3!, EOP+4~
DIR("?" AGE+3*, PRIMPRV+4*, PRVSCR+4*
DIR("A" DATES+2*, DATES+4*, EXCL+4*, SEX+2*, AGE+2*, AGER+2*, RESULT+13*, CLINIC+2*, PRIMPRV+3*, PRVSCR+3*
, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+4*, DP+3*, EOP+7*
DIR("B" EXCL+4*, SEX+2*, AGE+2*, RESULT+13*, CLINIC+2*, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+4*
, DP+3*
DIR(0 DATES+2*, DATES+4*, EXCL+4*, SEX+2*, AGE+2*, AGER+2*, RESULT+13*, CLINIC+2*, PRIMPRV+2*, PRVSCR+2*
, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+3*, DP+3*, EOP+7*
DIRUT EXCL+5, SEX+3, AGE+5, RESULT+14, CLINIC+2*, CLINIC+3, PRIMPRV+5, PRVSCR+5, DESPRV+4, SSPRV+4
, CDPRV+4, TEMP+4, LIST1+6, DP+4, EOP+5!
DLOUT EOP+5!
DTOUT PRV1+3, SCRPRV1+2, DESPRV1+2, SSPRV1+2, CDPRV1+2, EOP+5!
DUOUT CLINIC+2, EOP+5!
DUZ USR+1
DUZ(2 LOC+1
>> I RESULT+17*
IO EOP+2
IO("S" EOP+3
IO(0 EOP+2
IOM CTR+1
IOST EOP+1
>> IOT EOP+3
U PRV1+1, PRV1+2, USR+1, LOC+1
X CLINIC1+1*, CTR~, CTR+1
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y DATES+3, DATES+5, EXCL+6, SEX+4, AGE+6, AGER+3, AGER+4, AGER+5, RESULT+15, RESULT+16
, RESULT+17, CLINIC+4, CLINIC1+1, CLINIC1+2, PRIMPRV+6, PRIMPRV+7, PRIMPRV+8, PRV1+3, PRV1+4, PRVSCR+6
, PRVSCR+7, PRVSCR+8, SCRPRV1+2, SCRPRV1+3, DESPRV+5, DESPRV1+2, DESPRV1+3, SSPRV+5, SSPRV1+2, SSPRV1+3
, CDPRV+5, CDPRV1+2, CDPRV1+3, TEMP+5, LIST1+7, DP+5, CTR~, CTR+1
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All