Routine: AMHRPPA

Information

AMHRPPA ; IHS/CMI/LAB - TALLY PREVENTION ACTIVITIES ;

Source Information

Source file <AMHRPPA.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBVK
VA Fileman	4	DD^%DT COMMA^%DTC ^DIC ^DIR
Kernel	3	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$STRIP,$$UP)^XLFSTR
Mental Health Social Services	2	($$ALLOWVI,$$PPINT,DBHUSR,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE
D(D)	;
PRINT	;EP - called from xbdbque
PRINT1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;inform user what this report is all about
OPRV	;one PROVIDER
HEAD	;EP;HEADER
PAGEHEAD	;
ZIS	;call xbdbque
DRIVER	;EP entry point for taskman
START	;
XIT	;
C(X,X2,X3)	;
HEAD1	;
PROCESS	;
PROV	;
SPRV	;taxonomy of PROVIDERS
PROG	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT+1
COMMA^%DTC	C+1
HOME^%ZIS	START+2
$$ALLOWVI^AMHUTIL	PROCESS+10
$$PPINT^AMHUTIL	PROCESS+13
DBHUSR^AMHUTIL	INFORM+7
XTMP^AMHUTIL	PROCESS+1
$$DEMO^AMHUTIL1	PROCESS+11
DEMOCHK^AMHUTIL1	DEMO+1
PEP^AMQQGTX0	SPRV+2
^DIC	OPRV+1, SPRV+1
^DIR	DATES+2, DATES+4, PROG+2, PROG+5, PROV+6, DONE+2, HEAD+2, EOP+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PROCESS+16, PROCESS+21, PROCESS+22
^XBFMK	XIT+3
$$EXTSET^XBFUNC	HEAD1+8
EN^XBVK	XIT+2
$$FMADD^XLFDT	DATES+8
$$FMTE^XLFDT	HEAD1+2
$$REPEAT^XLFSTR	HEAD1+4, HEAD1+6, HEAD1+10
$$STRIP^XLFSTR	C+2
$$UP^XLFSTR	PROCESS+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter the Providers whose Prevention activities you want to tally."_$G(IORVOFF),! Line Location: PROV+2
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",AMHDVH,".",AMHDVM,".",AMHDVS Line Location: DONE+1
Function Call: WRITE	Prompt: !!,"There are no visits with Prevention Activities Recorded." Line Location: PRINT1+2
Function Call: WRITE	Prompt: !!,"Total # Visits w/Prevention Activity: ",?45,$$C(AMHGRTA,0) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !,"Total # of Prevention Activities recorded: ",?45,$$C(AMHGTPA,0) Line Location: PRINT1+4
Function Call: WRITE	Prompt: !!,"TARGET TOTALS",! Line Location: PRINT1+16
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",AMHPG Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?29,"Behavioral Health" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR($$REPEAT^XLFSTR("*",36),80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("* TALLY OF PREVENTION ACTIVITIES *",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR($$REPEAT^XLFSTR("*",36),80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !?5,"PREVENTION ACTIVITY",?45,"# of visits",?60,"% of visits" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+1
Function Call: WRITE	Prompt: !!,$$CTR("BEHAVIORAL HEALTH PREVENTION ACTIVITIES") Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will produce a count of all visits with a prevention" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"activity entered. It will also produce a tally/count of those" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"prevention activities with Target Audience subtotals." Line Location: INFORM+5
Function Call: WRITE	Prompt: ! Line Location: INFORM+6
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SPRV+1
Function Call: WRITE	Prompt: !!,"** all PROVIDERS will be included **",! Line Location: SPRV+4
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: OPRV+1 SPRV+1
Routine Call	DIR Line Location: DATES+2 DATES+4 PROG+2 PROG+5 PROV+6 DONE+2 HEAD+2 EOP+5

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

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROCESS+7, PROCESS+12
^AMHREC("B"	PROCESS+5, PROCESS+6
^AMHRPA("AD"	PROCESS+9, PROCESS+20
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$C	PRINT1+3, PRINT1+4, PRINT1+8, PRINT1+13, PRINT1+19
$$CTR	HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8, INFORM+1, INFORM+2
$$LOC	INFORM+1
@(	PROV+10
DATES	DATES+6, PROG+3
DEMO	PROV+9
HEAD	PRINT1+1, PRINT1+6, PRINT1+10, PRINT1+15, PRINT1+18
HEAD1	HEAD+1
INFORM	START+4
PRINT1	PRINT+4
PROCESS	DRIVER+1
PROG	PROG+6, PROG+7, PROV+7
PROV	PROG+4, PROV+11, DEMO+2
XIT	START+1, DATES+2, DATES+4, ZIS+3, SPRV+1

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHBD	DATES!, DATES+2*, DATES+6, DATES+8, PROCESS+3, PRINT+1
>> AMHBDD	PRINT+1*, HEAD1+7
>> AMHBT	PROCESS+2*, DONE
>> AMHBTH	PROCESS+2*
>> AMHDEMO	DEMO+1, DEMO+2, PROCESS+11
>> AMHDVH	DONE*, DONE+1
>> AMHDVM	DONE+1*
>> AMHDVS	DONE+1*
>> AMHDVTS	DONE, DONE+1
AMHED	DATES!, DATES+4*, DATES+6, PROCESS+5, PRINT+1
>> AMHEDD	PRINT+1*, HEAD1+7
>> AMHET	DRIVER+2, PROCESS+29, DONE
>> AMHGRTA	PROCESS+4, PROCESS+19, PRINT1+3, PRINT1+8
>> AMHGRTT	PROCESS+4, PROCESS+17, PROCESS+18*, PRINT1+19
>> AMHGTPA	PROCESS+4, PROCESS+26, PRINT1+4
>> AMHJOB	PROCESS+2*
>> AMHPG	PRINT+2, HEAD+1, HEAD1+1, HEAD1+2
AMHPRAT	PROCESS+4!, PRINT1+2
AMHPRAT(	PROCESS+23, PROCESS+24, PROCESS+25*, PRINT1+5, PRINT1+7, PRINT1+9, PRINT1+12
>> AMHPROG	PROG+1, PROG+8, PROCESS+12, HEAD1+8
AMHPRVS	PROV+4!, PROCESS+14, PROCESS+15, SPRV+3, SPRV+4!
AMHPRVS(	PROCESS+15, OPRV+3*
AMHPRVS("*"	SPRV+4
>> AMHPRVT	PROV+3, PROV+8, PROV+9, PROV+10, SPRV+4*
AMHQ	PROV+1!, PROV+11, OPRV+2, SPRV+3
AMHQUIT	PRINT+3!, PRINT1+5, PRINT1+6, PRINT1+9, PRINT1+10, PRINT1+14, PRINT1+15, PRINT1+17, PRINT1+18, HEAD+2*
>> AMHRCNT	PROCESS+5*
>> AMHS	PRINT1+5*, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+12
>> AMHSD	DATES+8, PROCESS+3, PROCESS+5*, PROCESS+6
>> AMHTAR	PROCESS+16*, PROCESS+17, PROCESS+18, PROCESS+24, PROCESS+25
AMHTARG	PROCESS+4!
AMHTARG(	PROCESS+17*, PRINT1+17, PRINT1+19
AMHTARG("NOT	RECORDED" , PROCESS+18*
>> AMHV0	PROCESS+7*, PROCESS+8, PROCESS+11
>> AMHVIEN	PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+16, PROCESS+20
>> AMHVPP	PROCESS+13*, PROCESS+14, PROCESS+15
>> AMHX	PROCESS+20, PROCESS+21, PROCESS+22, PRINT1+7, PRINT1+8, PRINT1+13, PRINT1+17*, PRINT1+19
>> AMHY	PRINT1+9*, PRINT1+11, PRINT1+12
>> AMHZ	PRINT1+12*, PRINT1+13
D	D~, D+1, D+2
DA	PROG+2!, PROG+5!, PROV+6!, SPRV+1!
DFOUT	EOP+4!
DIC	OPRV+1!, SPRV+1!
DIC("A"	OPRV+1*
DIC("S"	SPRV+1*
DIC(0	OPRV+1, SPRV+1
DIR	DATES+1!, DATES+3!, PROG+2!, PROG+5!, PROV+6!, XIT+1!, DONE+2!, HEAD+2!, EOP+3~
DIR("A"	DATES+1, DATES+3, PROG+2, PROG+5, PROV+5, PROV+6, EOP+5*
DIR("B"	PROG+2, PROV+5, PROV+6*
DIR(0	DATES+1, DATES+3, PROG+2, PROG+5, PROV+5, DONE+2, HEAD+2, EOP+5
DIRUT	PROG+3, PROG+6, PROV+7, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+2
DTOUT	HEAD+2, EOP+4!
DUOUT	EOP+4!
DUZ	PROCESS+10, USR+1
DUZ(2	LOC+1
IO	DONE+2, HEAD+2
IO("S"	EOP+2
IO(0	DONE+2, HEAD+2
IOF	START+2, START+3, DONE+3, HEAD1+1
IOM	CTR+1
>> IORVOFF	PROV+2
>> IORVON	PROV+2
IOSL	PRINT1+6, PRINT1+10, PRINT1+15, PRINT1+18
IOST	DONE+2, HEAD+2, EOP+1
>> IOT	EOP+2
U	PROCESS+11, PROCESS+12, USR+1, LOC+1
X	PROG+7, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, HEAD1+7, HEAD1+8, C~, C+2 , CTR~, CTR+1, SPRV+1*
X2	C~
X3	C~
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+2, DATES+4, PROG+4, PROG+8, PROV+8, PROCESS+22, PRINT+1, HEAD+2, CTR~, CTR+1 , OPRV+2, OPRV+3, SPRV+1, SPRV+2
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPPA

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: