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

Package: Mental Health Social Services

Routine: AMHRSR3P


Information

AMHRSR3P ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <AMHRSR3P.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$STRIP^XLFSTR  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
DT(D) ;EP
TOT() ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
PRINT1 ;
G ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
COVPAGE ;EP
PTOT() ;
A
C ;
PAUSE ;
D ;
ENDL() ;
SHOW ;
H ;
N ;
P ;
R ;
T ;
END() ;
HEADER ;EP
LIST ;EP - called from xbdbque
COM(X,X2,X3) ;
HEADER1 ;

External References

Name Field # of Occurrence
COMMA^%DTC COM+1
$$HRN^AUPNPAT LIST+16, H+1, T+1
^DIR HEADER+2, EOP+7, PAUSE+3
$$VAL^XBDIQ1 LIST+22, LIST+27
$$FMTE^XLFDT HEADER1+2, HEADER1+4, SHOW+1
$$STRIP^XLFSTR COM+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No data to report.",!
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !," Total Number of Visits with Screening",?40,$J($$COM(AMHRTOT,0),8)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !," Total Number of Patients Screened",?40,$J($$COM(AMHRPTOT,0),8)
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHRPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("*** SUICIDE RISK ASSESSMENT VISIT LISTING FOR SELECTED PATIENTS ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?44,"RESULT",?61,"CLINIC"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: !?3,"Comment: ",$P(AMHRY,U,4)
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+19
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9000010.07,AMHRS,.01),?17,$E($$VAL^XBDIQ1(9000010.07,AMHRS,.04),1,60)
  • Line Location: LIST+22
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+24
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9002011.01,AMHRS,.01),?17,$E($$VAL^XBDIQ1(9002011.01,AMHRS,.04),1,60)
  • Line Location: LIST+27
Function Call: WRITE
  • Prompt: !?20,"********** SUICIDE RISK ASSESSMENT SCREENING FOR SELECTED PATIENTS **********"
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"The following report contains an SUICIDE RISK ASSESSMENT screening report based on the",!,"following criteria:"
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !!?6,"Patient must have had a screening between ",$$FMTE^XLFDT(AMHRBD)," and ",$$FMTE^XLFDT(AMHRED),!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?6,"Gender: ",$S(AMHRSEX="F":"FEMALES ONLY",AMHRSEX="M":"MALES ONLY",AMHRSEX="MF":"Both MALES and FEMALES",1:"")
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !?6,"Age of Patients included: ",$P(AMHRAGET,"-")," to ",$P(AMHRAGET,"-",2)
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !?6,"All Ages included"
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: !?6,"Patients must have had a screening during the time period with one of ",!?6,"the following screening results:"
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: ?8,"LOW"
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: " ","MODERATE"
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: " ","HIGH"
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: " ","REFUSED"
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: " ","UNABLE TO SCREEN"
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: " ","REFERRAL NEEDED"
  • Line Location: SHOW+13
Function Call: WRITE
  • Prompt: !?8,"SCREENINGS WITH NO RECORDED RESULT"
  • Line Location: SHOW+14
Function Call: WRITE
  • Prompt: !,"Screenings done in the following clinics are included:"
  • Line Location: SHOW+15
Function Call: WRITE
  • Prompt: !?10,$P(^DIC(40.7,X,0),U)," ("_$P(^DIC(40.7,X,0),U,2)_")"
  • Line Location: SHOW+16
Function Call: WRITE
  • Prompt: !,"Screenings done in ALL clinics included"
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: !,"PCC Clinics excluded."
  • Line Location: SHOW+18
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated Mental Health Provider",!?6,$P(^VA(200,AMHRDESP,0),U)," are included"
  • Line Location: SHOW+19
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated Social Services Provider",!?6,$P(^VA(200,AMHRSSP,0),U)," are included"
  • Line Location: SHOW+20
Function Call: WRITE
  • Prompt: !,"Only patients whose Designated ASA/CD Provider",!?6,$P(^VA(200,AMHRCDP,0),U)," are included"
  • Line Location: SHOW+21
Function Call: WRITE
  • Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the primary provider on the visit was UNKNOWN are included."
  • Line Location: SHOW+22
Function Call: WRITE
  • Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the screening provider on the visit was UNKNOWN are included."
  • Line Location: SHOW+23
Function Call: WRITE
  • Prompt: !,"Visits to any Primary Provider are included"
  • Line Location: SHOW+24
Function Call: WRITE
  • Prompt: !,"Visits on which any provider did the screening are included"
  • Line Location: SHOW+25
Function Call: WRITE
  • Prompt: !,"Only screenings on which ",$P(^VA(200,AMHRPROV,0),U)," was the primary provider",!?6,"on the visit are included"
  • Line Location: SHOW+26
Function Call: WRITE
  • Prompt: !,"Only screenings on which ",$P(^VA(200,AMHRSPRV,0),U)," was the primary provider",!?6,"on the visit are included"
  • Line Location: SHOW+27
Routine Call
  • DIR
  • Line Location:
    • HEADER+2
    • EOP+7
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHRPRO("AD" LIST+23, LIST+25
^AUPNVPOV("AD" LIST+18, LIST+20
^DIC(4 - [#4] LOC+1
^DIC(40.7 - [#40.7] SHOW+16
^DPT - [#2] LIST+16, N+1
^TMP($J DONE+1!, LIST+4!, LIST+10*, LIST+12, LIST+13, LIST+15
^VA(200 - [#200] HEADER1+2, USR+1, COVPAGE+3, SHOW+19, SHOW+20, SHOW+21, SHOW+26, SHOW+27
^XTMP("AMHRSR3" PRINT1+3, PTOT+3, TOT+3, DONE+2!, LIST+6

Label References

Name Line Occurrences
$$COM PRINT1+9, PRINT1+10
$$CTR HEADER1+3, HEADER1+4
$$DT LIST+16
$$END PRINT1+5
$$ENDL LIST+14
$$PTOT PRINT1+8
@( LIST+8
COVPAGE PRINT1+4
DONE PRINT+2, PRINT1+3
EOP DONE+3
HEADER PRINT1+3, PRINT1+6, END+2, ENDL+2, LIST+3
HEADER1 HEADER+1
LIST PRINT1+11
PAUSE SHOW+28
PRINT1 PRINT+1

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T+1*, T+2*, T+3
>> AMHRAGET SHOW+4, SHOW+5
>> AMHRBD HEADER1+4, SHOW+1
>> AMHRC LIST+19*, LIST+21*, LIST+22, LIST+24*, LIST+26*, LIST+27
>> AMHRCDP SHOW+21
>> AMHRCLNT SHOW+15, SHOW+17
>> AMHRCLNT( SHOW+16
>> AMHRCNT PRINT1+7
>> AMHRDESP SHOW+19
>> AMHRED HEADER1+4, SHOW+1
>> AMHREXPC SHOW+17, SHOW+18
>> AMHRH PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
>> AMHRJ PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
AMHRLSTP PRINT1+2!, LIST+2*
>> AMHRPG PRINT1+1*, HEADER+1, HEADER1+1*, HEADER1+2, LIST+1*
>> AMHRPPUN SHOW+22
>> AMHRPROV SHOW+24, SHOW+26
>> AMHRPTOT PRINT1+8*, PRINT1+10
AMHRQUIT PRINT1+1!, END+3, ENDL+3, HEADER+2*, LIST+1!, LIST+12, LIST+13, LIST+20, LIST+25, PAUSE+4*
>> AMHRREST( SHOW+7
>> AMHRS LIST+20*, LIST+22, LIST+25*, LIST+27
>> AMHRSEX SHOW+3
>> AMHRSORT LIST+8
>> AMHRSORV LIST+9*, LIST+10, LIST+12*, LIST+13, LIST+15, H+1*, N+1*, P+1*, R+1*, D+1*
, A*, G+1*, C+1*, T+3*
>> AMHRSPRV SHOW+25, SHOW+27
>> AMHRSPUN SHOW+23
>> AMHRSSP SHOW+20
>> AMHRTOT PRINT1+7*, PRINT1+9
>> AMHRV LIST+18*, LIST+20, LIST+23*, LIST+25
>> AMHRX LIST+6*, LIST+10, LIST+13*, LIST+15
>> AMHRY LIST+6*, LIST+7, LIST+10, LIST+15*, LIST+16, LIST+17, LIST+18, LIST+23, LIST+28, LIST+29
, P+1, R+1, D+1, A, G+1, C+1
C PTOT+1~, PTOT+2*, PTOT+3*, PTOT+4, TOT+1~, TOT+2*, TOT+3*, TOT+4
D DT~, DT+1, DT+2
DA PAUSE+3!
>> DFN LIST+7*, LIST+15*, LIST+16, H+1, N+1, T+1
DFOUT EOP+5!
DIR HEADER+2!, EOP+4~, PAUSE+3!
DIR("A" EOP+7*, PAUSE+3*
DIR(0 HEADER+2*, EOP+7*, PAUSE+3*
DIRUT EOP+5!, PAUSE+4
DLOUT EOP+5!
DT HEADER1+2
DTOUT HEADER+2, EOP+5!
DUOUT EOP+5!
DUZ HEADER1+2, USR+1, COVPAGE+3
DUZ(2 LOC+1, LIST+16, H+1, T+1
IO HEADER+2, EOP+2, PAUSE+2
IO("S" EOP+3
IO(0 HEADER+2, EOP+2, PAUSE+2
IOF HEADER1+1, COVPAGE+1, PAUSE+5
IOM CTR+1
IOSL END+1, ENDL+1
IOST HEADER+2, EOP+1, PAUSE+1
>> IOT EOP+3
U HEADER1+2, USR+1, LOC+1, LIST+7, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23, LIST+28
, LIST+29, N+1, P+1, R+1, D+1, A, G+1, C+1, COVPAGE+3, SHOW+16
, SHOW+19, SHOW+20, SHOW+21, SHOW+26, SHOW+27
X COM~, COM+2, PTOT+1~, PTOT+3*, TOT+1~, TOT+3*, HEADER1+4*, CTR~, CTR+1, SHOW+7*
, SHOW+8, SHOW+9, SHOW+10, SHOW+11, SHOW+12, SHOW+13, SHOW+14, SHOW+16*
X2 COM~
X3 COM~
Y HEADER+2, 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