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

Package: Mental Health Social Services

Routine: AMHRDV4P


Information

AMHRDV4P ; IHS/CMI/LAB - list refusals ;

Source Information

Source file <AMHRDV4P.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 ($$AGE,$$HRN)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
PER(N,D) ;return % of n/d
TOT() ;
RES ;
AGE ;
C ;
PRINT ;EP - called from xbdbque
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
DATE ;
PRINT1 ;
G ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
GENDER ;
PTOT() ;
DT(D) ;EP
A
PRVV ;
D ;
ENDL() ;
N ;
H ;
DESPRV ;
PRVSC ;
HEADER ;EP
CLINIC ;
R ;
T ;
END() ;
P ;
SS ;
LIST ;EP - called from xbdbque
MH ;
COM(X,X2,X3) ;
CD ;
HEADER1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.

External References

Name Field # of Occurrence
COMMA^%DTC COM+1
$$AGE^AUPNPAT LIST+47
$$HRN^AUPNPAT LIST+15, LIST+47, H+1, T+1
^DIR HEADER+2, EOP+7
$$VAL^XBDIQ1 LIST+21, LIST+26, LIST+30, LIST+31, LIST+32, LIST+33, LIST+35
$$FMTE^XLFDT DATE+10, HEADER1+2, HEADER1+4
$$STRIP^XLFSTR PER+4, 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 Patients in TEMPLATE:",?40,$J($$COM(AMHRPTOT,0),8)
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !!," Total Number of Patients screened",?40,$J($$COM(AMHRTOT,0),8),?55,$$PER(AMHRTOT,AMHRPTOT)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !!?46,"#",?53,"% of patients",$S(AMHRTALP:" screened",1:"")
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RES+6
Function Call: WRITE
  • Prompt: !," By Result",!
  • Line Location: RES+7
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: RES+9
Function Call: WRITE
  • Prompt: !
  • Line Location: GENDER+6
Function Call: WRITE
  • Prompt: !," By Gender",!
  • Line Location: GENDER+7
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: GENDER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+6
Function Call: WRITE
  • Prompt: !," By Age",!
  • Line Location: AGE+7
Function Call: WRITE
  • Prompt: !?Y,AMHRX," yrs",?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: AGE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRVSC+6
Function Call: WRITE
  • Prompt: !," By Provider who screened",!
  • Line Location: PRVSC+7
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: PRVSC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRVV+5
Function Call: WRITE
  • Prompt: !," By Primary Provider of Visit",!
  • Line Location: PRVV+6
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: PRVV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DESPRV+5
Function Call: WRITE
  • Prompt: !," By Designated Primary Care Provider",!
  • Line Location: DESPRV+6
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: DESPRV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MH+5
Function Call: WRITE
  • Prompt: !," By Designated Mental Health Provider",!
  • Line Location: MH+6
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: MH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SS+5
Function Call: WRITE
  • Prompt: !," By Designated Social Services Provider",!
  • Line Location: SS+6
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: SS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CD+5
Function Call: WRITE
  • Prompt: !," By Designated A/SA Provider",!
  • Line Location: CD+6
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: CD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+6
Function Call: WRITE
  • Prompt: !," By Clinic",!
  • Line Location: CLINIC+7
Function Call: WRITE
  • Prompt: !?Y,AMHRX,?40,$J($$COM($G(AMHRRES(AMHRX)),0),8),?55,$$PER(AMHRRES(AMHRX),AMHRTOT)
  • Line Location: CLINIC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !," By Date",!
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !?Y,$$FMTE^XLFDT(AMHRX),?40,$J($$COM($G(^TMP($J,AMHRX)),0),8),?55,$$PER(^TMP($J,AMHRX),AMHRTOT)
  • Line Location: DATE+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("*** IPV SCREENING PATIENT TALLY"_$S(AMHRLIST:" AND PATIENT LISTING",1:"")_" ***",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?44,"RESULT",?61,"CLINIC"
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: !?46,"#",?53,"% of patients",$S(AMHRTALP:" screened",1:"")
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+6
Function Call: WRITE
  • Prompt: !?3,"Comment: ",$P(AMHRY,U,4)
  • Line Location: LIST+16
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9000010.07,AMHRX,.01),?17,$E($$VAL^XBDIQ1(9000010.07,AMHRX,.04),1,60)
  • Line Location: LIST+21
Function Call: WRITE
  • Prompt: !?3,"DXs: "
  • Line Location: LIST+23
Function Call: WRITE
  • Prompt: ?8,$$VAL^XBDIQ1(9002011.01,AMHRX,.01),?17,$E($$VAL^XBDIQ1(9002011.01,AMHRX,.04),1,60)
  • Line Location: LIST+26
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+29
Function Call: WRITE
  • Prompt: ?31,$S(AMHRZ="DESIGNATED PRIMARY PROVIDER":"PRIMARY CARE",1:AMHRZ),": ",AMHRZ(AMHRZ)
  • Line Location: LIST+41
Routine Call
  • DIR
  • Line Location:
    • HEADER+2
    • EOP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHRPRO("AD" LIST+22, LIST+24
^AUPNVPOV("AD" LIST+17, LIST+19
^BDPRECN("C" LIST+34
^DIBT( PTOT+3, HEADER1+7, LIST+44
^DIC(4 - [#4] LOC+1
^DPT - [#2] LIST+15, LIST+47, N+1
^TMP($J PRINT1+33!, DATE+3!, DATE+5*, DATE+8, DATE+10!, DONE+1!, LIST+4!, LIST+9*, LIST+11, LIST+12
, LIST+14
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("AMHRDV1" MH+2, MH+3, SS+2, SS+3, CD+2, CD+3
^XTMP("AMHRDV4" PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2
, PRVV+3, DESPRV+2, DESPRV+3, CLINIC+3, CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2!, LIST+6
, LIST+45

Label References

Name Line Occurrences
$$COM PRINT1+6, PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9
, CD+9, CLINIC+10, DATE+10
$$CTR HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9
$$DT LIST+15
$$END PRINT1+12, PRINT1+14, PRINT1+16, PRINT1+18, PRINT1+20, PRINT1+22, PRINT1+24, PRINT1+26, PRINT1+28, PRINT1+30
, PRINT1+32, GENDER+9, AGE+9, PRVSC+9, PRVV+8, DESPRV+8, MH+8, SS+8, CD+8, CLINIC+9
, DATE+9, LIST+39, LIST+46
$$ENDL LIST+13
$$PER PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9, CD+9
, CLINIC+10, DATE+10
$$PTOT PRINT1+5
$$TOT PRINT1+7
@( LIST+7
AGE PRINT1+15
CD PRINT1+31
CLINIC PRINT1+23
DATE PRINT1+25
DESPRV PRINT1+21
DONE PRINT+2, PRINT1+3
EOP DONE+3
GENDER PRINT1+13
HEADER PRINT1+3, PRINT1+4, END+2, ENDL+2, LIST+3, LIST+43
HEADER1 HEADER+1
LIST PRINT1+34
MH PRINT1+27
PRINT1 PRINT+1
PRVSC PRINT1+17
PRVV PRINT1+19
RES PRINT1+11
SS PRINT1+29

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
>> A LIST+35*
>> AMHRBD HEADER1+4
>> AMHRC LIST+18*, LIST+20*, LIST+21, LIST+23*, LIST+25*, LIST+26, LIST+38*, LIST+40*, LIST+41
>> AMHRDP LIST+29
>> AMHRED HEADER1+4
>> AMHREXPC HEADER1+5, HEADER1+6
>> AMHRH PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2
, PRVV+3, DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3
, CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2, LIST+6, LIST+45
>> AMHRJ PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2
, PRVV+3, DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3
, CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2, LIST+6, LIST+45
>> AMHRLIST PRINT1+34, HEADER1+3
AMHRLSTP PRINT1+2!, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+12, LIST+2*
>> AMHRPG PRINT1+1*, HEADER+1, HEADER1+1*, HEADER1+2, LIST+1*
>> AMHRPTOT PRINT1+5*, PRINT1+6, PRINT1+8
AMHRQUIT PRINT1+1!, RES+8, GENDER+8, AGE+8, PRVSC+8, PRVV+7, DESPRV+7, MH+7, SS+7, CD+7
, CLINIC+8, DATE+8, END+3, ENDL+3, HEADER+2*, LIST+1!, LIST+11, LIST+12, LIST+19, LIST+24
, LIST+38, LIST+44
AMHRRES RES+3!, GENDER+3!, AGE+3!, PRVSC+3!, PRVV+2!, DESPRV+2!, MH+2!, SS+2!, CD+2!, CLINIC+3!
AMHRRES( RES+5*, RES+8, RES+9!, GENDER+5*, GENDER+8, GENDER+10!, AGE+5*, AGE+8, AGE+10!, PRVSC+5*
, PRVSC+8, PRVSC+10!, PRVV+4*, PRVV+7, PRVV+9!, DESPRV+4*, DESPRV+7, DESPRV+9!, MH+4*, MH+7
, MH+9!, SS+4*, SS+7, SS+9!, CD+4*, CD+7, CD+9!, CLINIC+5*, CLINIC+8, CLINIC+10!
>> AMHRSCRD HEADER1+8, HEADER1+9, LIST+2*, LIST+42*
>> AMHRSEAT PTOT+3, HEADER1+7, LIST+44
>> AMHRSORT LIST+7
>> AMHRSORV LIST+8*, LIST+9, LIST+11*, LIST+12, LIST+14, H+1*, N+1*, P+1*, R+1*, D+1*
, A*, G+1*, C+1*, T+3*
>> AMHRTALL(1 RES+1
>> AMHRTALL(10 CD+1
>> AMHRTALL(11 DESPRV+1
>> AMHRTALL(2 GENDER+1
>> AMHRTALL(3 AGE+1
>> AMHRTALL(4 PRVSC+1
>> AMHRTALL(5 CLINIC+1
>> AMHRTALL(6 DATE+1
>> AMHRTALL(7 PRVV+1
>> AMHRTALL(8 MH+1
>> AMHRTALL(9 SS+1
>> AMHRTALP PRINT1+2*, PRINT1+9*, PRINT1+10, HEADER1+12
>> AMHRTOT PRINT1+7*, PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9
, CD+9, CLINIC+10, DATE+10
>> AMHRV LIST+17*, LIST+19, LIST+22*, LIST+24
>> AMHRX RES+8*, RES+9, GENDER+8*, GENDER+10, AGE+8*, AGE+10, PRVSC+8*, PRVSC+10, PRVV+7*, PRVV+9
, DESPRV+7*, DESPRV+9, MH+7*, MH+9, SS+7*, SS+9, CD+7*, CD+9, CLINIC+8*, CLINIC+10
, DATE+8*, DATE+10, LIST+19*, LIST+21, LIST+24*, LIST+26
>> AMHRXX LIST+34*, LIST+35
>> AMHRY RES+4*, RES+5, GENDER+4*, GENDER+5, AGE+4*, AGE+5, PRVSC+4*, PRVSC+5, PRVV+3*, PRVV+4
, DESPRV+3*, DESPRV+4, MH+3*, MH+4, SS+3*, SS+4, CD+3*, CD+4, CLINIC+4*, CLINIC+5
, DATE+4*, DATE+5, LIST+6*, LIST+9, LIST+14*, LIST+15, LIST+16, LIST+17, LIST+22, LIST+27
, LIST+28, P+1, R+1, D+1, A, G+1, C+1
AMHRZ LIST+30!, LIST+36, LIST+38*, LIST+41
AMHRZ( LIST+35*, LIST+38, LIST+41
AMHRZ("CHEMIC AL DEPENDENCY" , LIST+32*
AMHRZ("DESIGN ATED PRIMARY PROVIDER" , LIST+33*
AMHRZ("MENTAL HEALTH" , LIST+30*
AMHRZ("SOCIAL SERVICES" , LIST+31*
C TOT+1~, TOT+2*, TOT+3*, TOT+4, PTOT+1~, PTOT+2*, PTOT+3*, PTOT+4
D RES+4*, GENDER+4*, AGE+4*, PRVSC+4*, PRVV+3*, DESPRV+3*, MH+3*, SS+3*, CD+3*, CLINIC+4*
, DATE+4*, PER~, PER+1, PER+3, LIST+6*, DT~, DT+1, DT+2
>> DFN LIST+6*, LIST+9, LIST+12*, LIST+14, LIST+15, LIST+30, LIST+31, LIST+32, LIST+33, LIST+34
, LIST+44*, LIST+45, LIST+47, H+1, N+1, T+1
DFOUT EOP+5!
DIR HEADER+2!, EOP+4~
DIR("A" EOP+7*
DIR(0 HEADER+2*, EOP+7*
DIRUT EOP+5!
DLOUT EOP+5!
DT HEADER1+2, LIST+47
DTOUT HEADER+2, EOP+5!
DUOUT EOP+5!
DUZ HEADER1+2, USR+1
DUZ(2 LOC+1, LIST+15, LIST+47, H+1, T+1
IO HEADER+2, EOP+2
IO("S" EOP+3
IO(0 HEADER+2, EOP+2
IOF HEADER1+1
IOM CTR+1
IOSL END+1, ENDL+1
IOST HEADER+2, EOP+1
>> IOT EOP+3
N PER~, PER+3
>> R RES+5*, GENDER+5*, AGE+5*, PRVSC+5*, PRVV+4*, DESPRV+4*, MH+4*, SS+4*, CD+4*, CLINIC+5*
, DATE+5*
U RES+5, GENDER+5, AGE+5, PRVSC+5, PRVV+4, DESPRV+4, MH+4, SS+4, CD+4, CLINIC+5
, DATE+5, HEADER1+2, HEADER1+7, USR+1, LOC+1, LIST+15, LIST+16, LIST+17, LIST+22, LIST+27
, LIST+28, LIST+47, N+1, P+1, R+1, D+1, A, G+1, C+1
X RES+3*, RES+4, GENDER+3*, GENDER+4, AGE+3*, AGE+4, PRVSC+3*, PRVSC+4, PRVV+2*, PRVV+3
, DESPRV+2*, DESPRV+3, MH+2*, MH+3, SS+2*, SS+3, CD+2*, CD+3, CLINIC+3*, CLINIC+4
, DATE+3*, DATE+4, COM~, COM+2, TOT+1~, TOT+3*, PTOT+1~, PTOT+3*, HEADER1+4*, HEADER1+5*
, HEADER1+6*, HEADER1+7*, HEADER1+8*, HEADER1+9*, CTR~, CTR+1, LIST+30*, LIST+31*, LIST+32*, LIST+33*
X2 COM~
X3 COM~
Y RES+9*, GENDER+10*, AGE+10*, PRVSC+10*, PRVV+9*, DESPRV+9*, MH+9*, SS+9*, CD+9*, CLINIC+10*
, DATE+10*, HEADER+2, CTR~, CTR+1
Z PER+2~, PER+3*, PER+4
>> ZTQUEUED EOP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All