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

Package: Mental Health Social Services

Routine: AMHRDV3


Information

AMHRDV3 ; IHS/CMI/LAB - list IPV/DV screenings ;

Source Information

Source file <AMHRDV3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
Mental Health Social Services 3 ^AMHRSTMP  DBHUSR^AMHUTIL  DEMOCHK^AMHUTIL1  
VA Fileman 3 ^DIC  MIX^DIC1  ^DIR  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
DATES
DEMO ;
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
^AMHRSTMP TEMP+6
DBHUSR^AMHUTIL INFORM+9
DEMOCHK^AMHUTIL1 DEMO+1
PEP^AMQQGTX0 CLINIC1+2
^DIC CLINIC1+1, PRV1+2
MIX^DIC1 PRV1+1, SCRPRV1+1, DESPRV1+1, SSPRV1+1, CDPRV1+1
^DIR DATES+3, DATES+5, EXCL+3, SEX+2, AGE+4, AGER+2, RESULT+16, 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("LISTING OF PATIENTS RECEIVING IPV SCREENING,INCLUDING REFUSALS",80)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will list all patients you select who have had IPV screening "
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"or a refusal documented in a specified time frame."
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"You will select the patients based on age, gender, result, provider,"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"or clinic where the screening was done."
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !!,"Exam code 34 is missing from the EXAM table. Cannot run report.",!
  • Line Location: INFORM+12
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 documented in non-behavioral health"
  • Line Location: EXCL+2
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: !,"Present enter 2 to get all patients who have had a screening result of"
  • Line Location: RESULT+5
Function Call: WRITE
  • Prompt: !,"Past or Present, 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) Present"
  • Line Location: RESULT+8
Function Call: WRITE
  • Prompt: !?3,"3) Past"
  • Line Location: RESULT+9
Function Call: WRITE
  • Prompt: !?3,"4) Present and Past"
  • Line Location: RESULT+10
Function Call: WRITE
  • Prompt: !?3,"5) Refused"
  • Line Location: RESULT+11
Function Call: WRITE
  • Prompt: !?3,"6) Unable to Screen"
  • Line Location: RESULT+12
Function Call: WRITE
  • Prompt: !?3,"8) Screenings done with no result entered"
  • Line Location: RESULT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: RESULT+15
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+3
    • SEX+2
    • AGE+4
    • AGER+2
    • RESULT+16
    • 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+11
^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+17, RESULT+18
AGER AGER+4
CDPRV SSPRV+5, CDPRV1+2
CLINIC CLINIC1+3
DATES DATES+7, EXCL+4
DEMO TEMP+6
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, DEMO+2
XIT INFORM+10, INFORM+12, CLINIC1+1, PRIMPRV+5, PRVSCR+5, 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
>> A RESULT+20*
>> AMHDEMO DEMO+1, DEMO+2
AMHRAGE AGE+1!
AMHRAGET AGE+1!, AGER+5*
AMHRBD DATES!, DATES+3*, DATES+7
>> AMHRCDP CDPRV+1*, CDPRV+5*, CDPRV1+3*
AMHRCLNT CLINIC+1!, CLINIC1+3, CLINIC1+4!
AMHRCLNT("*" CLINIC1+4
>> AMHRDESP DESPRV+1*, DESPRV+5*, DESPRV1+3*
>> AMHRDISC PRIMPRV+1*
>> AMHRDP DP+1*, DP+5*
AMHRED DATES!, DATES+5*, DATES+7
>> AMHREXC INFORM+11*, INFORM+12
>> AMHREXPC EXCL+1*, EXCL+5*
>> AMHRPPUN PRIMPRV+1*, PRIMPRV+8*
AMHRPROV PRIMPRV+1!, PRIMPRV+7!, PRV1+4*
>> AMHRPSRT PRIMPRV+1*, PRIMPRV+6*
AMHRREST RESULT+1!, RESULT+19*
AMHRREST( RESULT+20*
>> AMHRSEX SEX+1*, SEX+4*, SEX+5*
>> AMHRSORT LIST1+1*, LIST1+7*
AMHRSPRV PRVSCR+1!, PRVSCR+7!, SCRPRV1+3*
>> AMHRSPUN PRVSCR+1*, PRVSCR+8*
>> AMHRSSP SSPRV+1*, SSPRV+5*, SSPRV1+3*
>> AMHRSSRT PRVSCR+1*, PRVSCR+6*
>> AMHRSTMP TEMP+1*, TEMP+6
>> AMHRTMPL TEMP+1*, TEMP+5*, TEMP+6
>> C RESULT+20*
D PRV1+1*!, SCRPRV1+1*!, DESPRV1+1*!, SSPRV1+1*!, CDPRV1+1*!
DA EXCL+3!, SEX+2!, RESULT+16!, 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+3!, SEX+2!, AGE+4!, RESULT+16!, 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+3*, SEX+2*, AGE+2*, AGER+2*, RESULT+16*, CLINIC+2*, PRIMPRV+3*, PRVSCR+3*
, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+4*, DP+3*, EOP+7*
DIR("B" EXCL+3*, SEX+2*, AGE+2*, RESULT+16*, CLINIC+2*, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+4*
, DP+3*
DIR(0 DATES+2*, DATES+4*, EXCL+3*, SEX+2*, AGE+2*, AGER+2*, RESULT+16*, CLINIC+2*, PRIMPRV+2*, PRVSCR+2*
, DESPRV+3*, SSPRV+3*, CDPRV+3*, TEMP+2*, LIST1+3*, DP+3*, EOP+7*
DIRUT EXCL+4, SEX+3, AGE+5, RESULT+17, 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+20*
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+5, SEX+4, AGE+6, AGER+3, AGER+4, AGER+5, RESULT+18, RESULT+19
, RESULT+20, 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