Routine: AMHRSB1P

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

Entry Points

Name	Comments	DBIA/ICR reference
PER(N,D)	;return % of n/d
DT(D)	;EP
LIST1	;
LIST3	;
LIST2	;
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.
HEADER1	;
A
C	;
D	;
ENDL()	;
H	;
N	;
P	;
R	;
T	;
END()	;
HEADER	;EP
LIST	;EP - called from xbdbque
COM(X,X2,X3)	;
SCRC
PLIST	;

External References

Name	Field # of Occurrence
COMMA^%DTC	COM+1
$$DOB^AUPNPAT	PLIST+6
$$HRN^AUPNPAT	PLIST+6, H+1, T+1
^DIR	HEADER+2, EOP+7
$$VAL^XBDIQ1	PLIST+6
$$FMTE^XLFDT	HEADER1+2, HEADER1+4, PLIST+6
$$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: "COUNT OF PATIENTS",!?40,"Number",?60,"Percent",!?40,"------",?60,"-------",! Line Location: PRINT1+4
Function Call: WRITE	Prompt: !,"Patients screened for alcohol use",?40,$J($$COM(AMHTPTSR,0),8),! Line Location: PRINT1+5
Function Call: WRITE	Prompt: !,"Patients screened Positive",!," (at least once)",?40,$J($$COM(AMHTPTPO,0),8),?60,$J($$PER(AMHTPTPO,AMHTPTSR),7),! Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: PRINT1+7
Function Call: WRITE	Prompt: " BNI/BI on same day as screen",?40,$J($$COM(AMHTPT0,0),8),?60,$J($$PER(AMHTPT0,AMHTPTPO),7),! Line Location: PRINT1+8
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: PRINT1+9
Function Call: WRITE	Prompt: " BNI/BI 1-3 days after screen",?40,$J($$COM(AMHTPT1,0),8),?60,$J($$PER(AMHTPT1,AMHTPTPO),7),! Line Location: PRINT1+10
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: PRINT1+11
Function Call: WRITE	Prompt: " BNI/BI 4-7 days after screen",?40,$J($$COM(AMHTPT4,0),8),?60,$J($$PER(AMHTPT4,AMHTPTPO),7),! Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"Patients Screened Positive referred",! Line Location: PRINT1+13
Function Call: WRITE	Prompt: " for treatment w/in 7 days",?40,$J($$COM(AMHTPTT,0),8),?60,$J($$PER(AMHTPTT,AMHTPTPO),7),! Line Location: PRINT1+14
Function Call: WRITE	Prompt: !,"COUNT OF SCREENS",!?40,"Number",?60,"Percent",!?40,"------",?60,"-------",! Line Location: SCRC+1
Function Call: WRITE	Prompt: !,"Screenings for alcohol use",?40,$J($$COM(AMHTSCRS,0),8),! Line Location: SCRC+2
Function Call: WRITE	Prompt: !,"Positive Screens",?40,$J($$COM(AMHTSCRP,0),8),?60,$J($$PER(AMHTSCRP,AMHTSCRS),7),! Line Location: SCRC+3
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: SCRC+4
Function Call: WRITE	Prompt: " BNI/BI on same day as screen",?40,$J($$COM(AMHTSCR0,0),8),?60,$J($$PER(AMHTSCR0,AMHTSCRP),7),! Line Location: SCRC+5
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: SCRC+6
Function Call: WRITE	Prompt: " BNI/BI 1-3 days after screen",?40,$J($$COM(AMHTSCR1,0),8),?60,$J($$PER(AMHTSCR1,AMHTSCRP),7),! Line Location: SCRC+7
Function Call: WRITE	Prompt: !,"Patients Screened Positive w/",! Line Location: SCRC+8
Function Call: WRITE	Prompt: " BNI/BI 4-7 days after screen",?40,$J($$COM(AMHTSCR4,0),8),?60,$J($$PER(AMHTSCR4,AMHTSCRP),7),! Line Location: SCRC+9
Function Call: WRITE	Prompt: !,"Patients Screened Positive referred",! Line Location: SCRC+10
Function Call: WRITE	Prompt: " for treatment w/in 7 days",?40,$J($$COM(AMHTSCRT,0),8),?60,$J($$PER(AMHTSCRT,AMHTSCRP),7),! Line Location: SCRC+11
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("SCREENING, BRIEF INTERVENTION, AND REFERRAL TO TREATMENT (SBIRT)",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR(AMHRSHD),!,"PATIENT NAME",?32,"HRN",?40,"DOB",?55,"GENDER",!,?2,"DATE SCREEN",?15,"SCREEN",?38,"DATE BNI/RT",?51,"BNI/RT",?75,"#DAYS" 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: ?51,$P(AMHRY,U,5),": ",$P(AMHRY,U,7),?74,$P(AMHRY,U,8) Line Location: PLIST+9
Routine Call	DIR Line Location: HEADER+2 EOP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PLIST+6, N+1
^TMP($J	DONE+1!
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("AMHRSB1"	DONE+2!, PLIST+3, PLIST+4, PLIST+7, PLIST+8

Label References

Name	Line Occurrences
$$COM	PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+10, PRINT1+12, PRINT1+14, SCRC+2, SCRC+3, SCRC+5, SCRC+7 , SCRC+9, SCRC+11
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5
$$ENDL	PLIST+5
$$PER	PRINT1+6, PRINT1+8, PRINT1+10, PRINT1+12, PRINT1+14, SCRC+3, SCRC+5, SCRC+7, SCRC+9, SCRC+11
DONE	PRINT+2
EOP	DONE+3
HEADER	PRINT1+4, SCRC, END+2, ENDL+2, PLIST+1
HEADER1	HEADER+1
LIST	PRINT1+15, SCRC+12
LIST1	LIST+3
LIST2	LIST+4
LIST3	LIST+5
PLIST	LIST1+2, LIST2+2, LIST3+2
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
>> AMHD	PLIST+7*, PLIST+8
>> AMHRBD	HEADER1+4
>> AMHRED	HEADER1+4
>> AMHRH	DONE+2, PLIST+3, PLIST+4, PLIST+7, PLIST+8
>> AMHRJ	DONE+2, PLIST+3, PLIST+4, PLIST+7, PLIST+8
>> AMHRLIST	PRINT1+15, SCRC+12
>> AMHRLIST(1	LIST+3
>> AMHRLIST(2	LIST+4
>> AMHRLIST(3	LIST+5
AMHRLSTP	PRINT1+2!, HEADER1+5, LIST+2*
>> AMHRPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2, LIST+1*
AMHRQUIT	PRINT1+1!, SCRC, END+3, ENDL+3, HEADER+2*, LIST+1!, LIST+3, LIST+4, LIST+5, PLIST+1 , PLIST+3, PLIST+4, PLIST+7
>> AMHRSHD	HEADER1+5, LIST1+1, LIST2+1, LIST3+1*
>> AMHRSORV	PLIST+3, PLIST+4, PLIST+7, PLIST+8, H+1, N+1, P+1, R+1, D+1, A* , G+1, C+1, T+3*
>> AMHRY	PLIST+8*, PLIST+9, P+1, R+1, D+1, A, G+1, C+1
>> AMHTPT0	PRINT1+8
>> AMHTPT1	PRINT1+10
>> AMHTPT4	PRINT1+12
>> AMHTPTPO	PRINT1+6, PRINT1+8, PRINT1+10, PRINT1+12, PRINT1+14
>> AMHTPTSR	PRINT1+5, PRINT1+6
>> AMHTPTT	PRINT1+14
>> AMHTSCR0	SCRC+5
>> AMHTSCR1	SCRC+7
>> AMHTSCR4	SCRC+9
>> AMHTSCRP	SCRC+3, SCRC+5, SCRC+7, SCRC+9, SCRC+11
>> AMHTSCRS	SCRC+2, SCRC+3
>> AMHTSCRT	SCRC+11
>> AMHZZ	LIST1+1, LIST2+1, LIST3+1*, PLIST+3, PLIST+4, PLIST+7, PLIST+8
D	PER~, PER+1, PER+3, DT~, DT+1, DT+2
>> DFN	PLIST+4*, PLIST+6, PLIST+7, PLIST+8, 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
DTOUT	HEADER+2, EOP+5!
DUOUT	EOP+5!
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1, PLIST+6, 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	SCRC, END+1, ENDL+1
IOST	HEADER+2, EOP+1
>> IOT	EOP+3
N	PER~, PER+3
U	HEADER1+2, USR+1, LOC+1, PLIST+6, PLIST+9, N+1, P+1, R+1, D+1, A , G+1, C+1
X	COM~, COM+2, HEADER1+4*, CTR~, CTR+1
X2	COM~
X3	COM~
Y	HEADER+2, CTR~, CTR+1
Z	PER+2~, PER+3*, PER+4
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRSB1P

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: