Routine: BGPDARP

Package	Total	Call Graph
IHS GPRA Information System	4	^BGPD1 EN^BGPDL ^BGPDP TAXCHK^BGPDT
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	3	^XBFMK ^XBGSAVE EN^XBVK
VA Fileman	3	^DIC ^DIK ^DIR
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
GS	;EP called from xbnew
DATES	;
EXIT1	;
ZIS	;call to XBDBQUE
LOC()	;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y)	;EP - Center X in a field Y wide.
EOP	;EP - End of page.
DRIVER	;
EXIT	;
LISTS	;any lists with indicators?
N
SET6	;
INTRO	;
COMM	;
TSKMN	;EP ENTRY POINT FROM TASKMAN
Y	;fiscal year
HOME	;
INDSL	;;
BY	;get baseline year
USR()	;EP - Return name of current user from ^VA(200.

External References

Name	Field # of Occurrence
^%ZIS	ZIS+15
HOME^%ZIS	EXIT1+1, EXIT+7
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	EXIT+5
^BGPD1	DRIVER+1
EN^BGPDL	LISTS+9
^BGPDP	DRIVER+3
TAXCHK^BGPDT	INTRO+8
^DIC	COMM+5, HOME+1, ZIS+4
^DIK	ZIS+16
^DIR	BY+6, LISTS+5, Y+7, EOP+5
^XBFMK	COMM+4, ZIS+10, EXIT+6
^XBGSAVE	GS+18
EN^XBVK	EXIT+1
$$FMTE^XLFDT	N+3, N+4, N+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS GPRA Indicator Report - for Export to Area",80) Line Location: BGPDARP+5
Function Call: WRITE	Prompt: !!,"This report will produce a GPRA Indicator Report for an AREA DIRECTOR's",!,"reporting year, defined as, JULY 1 to JUNE 30. You will be asked to enter the",!,"year. Reporting year 2002 would be July 1, 2001 though June 30, 2002." Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"You will also be asked to enter the BASELINE year that should have been provided",!,"to you by Area office personnel.",! Line Location: INTRO+3
Function Call: WRITE	Prompt: !,"In addition you will be asked to enter the community taxonomy to be used.",!! Line Location: INTRO+4
Function Call: WRITE	Prompt: "This option will produce a report in export format for the Area Office to use",!,"in Area aggregated data. Depending on site-specific configuration, the",! Line Location: INTRO+5
Function Call: WRITE	Prompt: "export file will either be automatically transmitted directly to the Area or ",!,"the site will have to send the file manually.",! Line Location: INTRO+6
Function Call: WRITE	Prompt: !,"You will be provided the opportunity to have lists of patients printed for",!,"the indicators. Please be careful when answering this question as the",!,"lists can be very long and use lots of paper.",! Line Location: INTRO+7
Function Call: WRITE	Prompt: ! Line Location: BY+1
Function Call: WRITE	Prompt: !,"Enter the Baseline Year that you would like to compare the data to.",!,"Use a 4 digit year, e.g. 1999, 2000" Line Location: BY+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: BY+10
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: N+2
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: N+3
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: N+4
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: N+5
Function Call: WRITE	Prompt: !!,"Specify the community taxonomy to use to determine which",!,"patients will be included in the GPRA report. You should have created",!,"this taxonomy using QMAN or some other software.",! Line Location: COMM+1
Function Call: WRITE	Prompt: !!,"There are no communities in that taxonomy." Line Location: COM1+4
Function Call: WRITE	Prompt: !,"No HOME Location entered!!! PHN Visits counts to Home will be calculated",!,"using clinic 11 only!!" Line Location: HOME+2
Function Call: WRITE	Prompt: !! Line Location: LISTS+3
Function Call: WRITE	Prompt: !!,"No lists selected.",! Line Location: LISTS+10
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"A file will be created called BG",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT," and will reside",!,"in the export/public directory.",! Line Location: ZIS+12
Function Call: WRITE	Prompt: !,"Depending on your site configuration, this file may need to be manually",!,"sent to your Area Office.",! Line Location: ZIS+13
Function Call: WRITE	Prompt: !! Line Location: ZIS+15
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+16
Function Call: WRITE	Prompt: ! Line Location: Y+1
Function Call: WRITE	Prompt: !,"Enter the appropriate AREA REPORTING YEAR. Use a 4 digit year, e.g. 2002" Line Location: Y+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: Y+11
Routine Call	%ZIS Line Location: EXIT1+1 EXIT+7
Routine Call	DIC Line Location: COMM+5 HOME+1 ZIS+4
Routine Call	DIR Line Location: BY+6 LISTS+5 Y+7 EOP+5
Routine Call	%ZIS Line Location: ZIS+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls
^BGPD - [#90240.01]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	COM1+1, COM1+2
^AUTTLOC - [#9999999.06]	ZIS+3, ZIS+12, GS+16
^BGPD - [#90240.01]	ZIS+7!, ZIS+8, ZIS+9, SET6+1, SET6+2, GS+3, GS+4, GS+5, GS+6, GS+7 , GS+8, GS+9, GS+10, GS+11, GS+12, GS+13, GS+14
^BGPDATA	GS+1, GS+3!, GS+19, GS+20!, SET6+1, SET6+2, GS+4, GS+6, GS+8, GS+10 , GS+12, GS+13
^DIC(4 - [#4]	LOC+1
^TMP($J	GS+20!
^VA(200 - [#200]	GS+17, USR+1

Label References

Name	Line Occurrences
$$CTR	BGPDARP+5
BY	BY+10
COMM	COM1+4
DATES	BY+8
EXIT	INTRO+1, DATES+5, ZIS+4, ZIS+16, DRIVER+6, TSKMN+5
GS	DRIVER+5, EXIT1+3
HOME	LISTS+6
INTRO	COMM+6
LISTS	HOME+2
N	BY+11
SET6	GS+14
TSKMN	ZIS+17
Y	DATES+4, Y+11
ZIS	LISTS+7

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS+15*
A	EXIT+3!
B	EXIT+3!
>> BGPBBD	BY+11*, N+5, ZIS+3
BGPBD	DATES+2!, N, N+3, ZIS+2, Y+12*
>> BGPBED	BY+11*, N+5, ZIS+3
BGPED	DATES+2!, N+1, N+3, ZIS+3, Y+12*
>> BGPFTA	DATES+1*
>> BGPHOME	HOME+2, HOME+3
>> BGPIND(	LISTS+1*
>> BGPIND(23	LISTS+2!
BGPLIST	LISTS+4!, LISTS+8!, LISTS+10
>> BGPPBD	N*, N+4
>> BGPPED	N+1*, N+4
BGPPER	DATES+2!, ZIS+3, Y+12*
>> BGPQTR	DATES+3*, ZIS+3
>> BGPQUIT	DATES+5, ZIS+4, Y+9
>> BGPRPT	ZIS+5*, ZIS+7, ZIS+8, ZIS+9, ZIS+12, ZIS+16, SET6+1, SET6+2, GS+3, GS+4 , GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11, GS+12, GS+13, GS+14 , GS+16
BGPTAX	COMM+2!, COM1+4
BGPTAX(	COM1+2*, ZIS+8
>> BGPVDT	BY+2, BY+9, BY+11, Y+2, Y+10, Y+12
>> BGPX	COMM+3, COMM+7, COM1+1, COM1+2
C	ZIS+8, ZIS+9, EXIT+3!, SET6+1, SET6+2, GS+3, GS+4, GS+6, GS+8, GS+10* , GS+12*, GS+13
D	EXIT+3!
DA	LISTS+5!, ZIS+4!, ZIS+11!, ZIS+16*
DD	ZIS+11!
DFOUT	EOP+4!
DIADD	ZIS+2*, ZIS+4!, ZIS+11!
DIC	BY+7!, COMM+5, HOME+1!, ZIS+2!*, ZIS+4!, ZIS+11!, Y+8!
DIC("A"	COMM+5, HOME+1
DIC("DR"	ZIS+3*
DIC("S"	COMM+5*
DIC(0	COMM+5, HOME+1, ZIS+2*
DIK	ZIS+16*!
DINUM	ZIS+11!
DIR	LISTS+5!, EOP+3~
DIR("?"	Y+6*
DIR("A"	BY+5, LISTS+5, Y+5*
DIR("B"	LISTS+5*
DIR(0	BY+4, LISTS+5, Y+4, EOP+5
DIRUT	BY+8, LISTS+6, Y+9, EOP+4!
DLAYGO	ZIS+2*, ZIS+4!, ZIS+11!
DLOUT	EOP+4!
DR	ZIS+4!, ZIS+11!
DTOUT	EOP+4!
DUOUT	BY+8, Y+9, EOP+4!
DUZ	GS+17, USR+1
DUZ(2	ZIS+3, ZIS+12, GS+16, LOC+1
E	EXIT+3!
F	EXIT+3!, GS+16*, GS+17
G	EXIT+3!
H	EXIT+3!
I	EXIT+3!
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+17
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGPDARP+4
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOPAR	EXIT1+2!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
>> IOT	EOP+2
J	EXIT+3!
K	EXIT+3!
L	EXIT+3!
M	EXIT+3!
N	EXIT+3!, EXIT+4!
N1	EXIT+4!
N2	EXIT+4!
N3	EXIT+4!
N4	EXIT+4!
N5	EXIT+4!
N6	EXIT+4!
O	EXIT+3!
P	EXIT+3!
>> POP	ZIS+16
Q	EXIT+3!
R	EXIT+3!
S	EXIT+3!
T	EXIT+3!
U	COM1+2, ZIS+3, ZIS+12, GS+16, GS+17, USR+1, LOC+1
V	EXIT+3!
W	EXIT+3!
X	COM1, COM1+1, COM1+2, LISTS+1, ZIS+2, ZIS+8, ZIS+11!, EXIT+2!, EXIT+3!, SET6+1 , SET6+2, GS+3, GS+4, GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11 , GS+12, GS+13, GS+14, CTR~, CTR+1
X1	EXIT+2!
X2	EXIT+2!, SET6+1, SET6+2, GS+5*, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11 , GS+12, GS+13, GS+14
X3	EXIT+2!, SET6+1, SET6+2, GS+7*, GS+8, GS+9, GS+10, GS+11, GS+12, GS+13 , GS+14
X4	EXIT+2!, SET6+1, SET6+2, GS+9*, GS+10, GS+11, GS+12, GS+13, GS+14
X5	EXIT+2!, SET6+1, SET6+2, GS+11*, GS+12, GS+13, GS+14
X6	EXIT+2!, SET6+1, SET6+2, GS+14*
>> XBF	GS+17*
>> XBFLT	GS+17*
>> XBFN	GS+17*
>> XBGL	GS+15*
>> XBMED	GS+17*
>> XBTLE	GS+17*
Y	BY+9, BY+10, COMM+6, COMM+7, HOME+2, HOME+3, LISTS+6, LISTS+7, ZIS+4, ZIS+5 , ZIS+11!, EXIT+3!, Y+10, Y+11, CTR~, CTR+1
Z	EXIT+3!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	GS+1, EOP+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPDARP

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: