Routine: BGPD

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

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;get date range.
SUM	;display summary of this report
22	;;22
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
TSKMN	;EP ENTRY POINT FROM TASKMAN
HOME	;
BY	;get baseline year
24	;;24
25	;;29
26	;;30
27	;;A
OLD	;
21	;;14
LOC()	;EP - Return location name from file 4 based on DUZ(2).
23	;;23
COM1
CTR(X,Y)	;EP - Center X in a field Y wide.
28	;;B
29	;;C
1	;;1
3	;;2A
2	;;1B
5	;;2C
4	;;2B
7	;;3B
6	;;3A
9	;;4A
8	;;3C
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
20	;;13
11	;;4C
10	;;4B
13	;;5B
12	;;5A
15	;;6
14	;;5C
17	;;7
16	;;6A
19	;;12
18	;;8
30	;;D
LISTS	;any lists with indicators?
INTRO	;
IND	;choose indicators
COMM	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+13
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	XIT+6
EN^BGPD0	IND+7
^BGPD1	DRIVER+1
EN^BGPDL	LISTS+7
^BGPDP	DRIVER+3
TAXCHK^BGPDT	INTRO+5
^DIC	COMM+5, HOME+1, ZIS+4
^DIK	ZIS+14
^DIR	DATES+2, DATES+4, BY+6, IND+2, LISTS+3, EOP+5
^XBDBQUE	OLD+2
^XBFMK	COMM+4, ZIS+10, XIT+7
EN^XBVK	XIT+1
$$FMADD^XLFDT	DATES+8
$$FMTE^XLFDT	BY+18, BY+19, BY+20, SUM+4, SUM+5, SUM+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS GPRA Indicator Report - Local Use only - No export to Area",80) Line Location: BGPD+5
Function Call: WRITE	Prompt: !!,"This report will produce a GPRA Indicator Report for a date range you specify.",!,"You will be asked to provide the baseline year and also to specify",! Line Location: INTRO+2
Function Call: WRITE	Prompt: "which indicators that you would like to have printed. This option does ",!,"NOT send a copy to the Area for Area Aggregation.",! Line Location: INTRO+3
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 questions as the",!,"lists can be very long and use lots of paper.",! Line Location: INTRO+4
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: ! 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: BY+17
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: BY+18
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: BY+19
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: BY+20
Function Call: WRITE	Prompt: !!,"You must now specify the community taxonomy to use when determining 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: ! Line Location: HOME+1
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: IND+1
Function Call: WRITE	Prompt: !!,"No indicators selected.",! Line Location: IND+9
Function Call: WRITE	Prompt: !! Line Location: LISTS+1
Function Call: WRITE	Prompt: !!,"No lists selected.",! Line Location: LISTS+8
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF GPRA REPORT TO BE GENERATED") Line Location: SUM+2
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: SUM+3
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: SUM+4
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: SUM+5
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: SUM+6
Function Call: WRITE	Prompt: !!,"The COMMUNITY Taxonomy to be used is: ",$P(^ATXAX(BGPX,0),U) Line Location: SUM+7
Function Call: WRITE	Prompt: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10) Line Location: SUM+8
Function Call: WRITE	Prompt: !,"No HOME Location selected." Line Location: SUM+9
Function Call: WRITE	Prompt: $P($T(@X),";;",2)," ; " Line Location: SUM+10
Function Call: WRITE	Prompt: !!,"Lists will be produced for these indicators: " Line Location: SUM+11
Function Call: WRITE	Prompt: $P($T(@X),";;",2)," ; " Line Location: SUM+12
Function Call: WRITE	Prompt: !! Line Location: ZIS+1
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: ZIS+4
Function Call: WRITE	Prompt: !! Line Location: ZIS+13
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+14
Routine Call	DIC Line Location: COMM+5 HOME+1 ZIS+4
Routine Call	DIR Line Location: DATES+2 DATES+4 BY+6 IND+2 LISTS+3 EOP+5
Routine Call	%ZIS Line Location: ZIS+13

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, SUM+7
^AUTTLOC - [#9999999.06]	SUM+8
^BGPD - [#90240.01]	ZIS+7!, ZIS+8, ZIS+9
^DIC(4 - [#4]	SUM+8, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGPD+5, SUM+2
BY	BY+10
COMM	COM1+4
DATES	DATES+6, BY+8
IND	HOME+2, LISTS+4
INTRO	IND+3, IND+9
LISTS	IND+5
SUM	LISTS+5
TSKMN	ZIS+15
XIT	INTRO+1, DATES+2, DATES+4, ZIS+4, ZIS+14, DRIVER+5, TSKMN+5, OLD+3

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+13!*
A	XIT+4!
B	XIT+4!
>> BGPBBD	BY+13*, BY+20, SUM+6, ZIS+3
>> BGPBD	DATES+2*, DATES+6, DATES+8, BY+11, BY+13, BY+15, BY+18, SUM+4, ZIS+3
>> BGPBED	BY+14*, BY+20, SUM+6, ZIS+3
>> BGPED	DATES+4*, DATES+6, BY+14, BY+16, BY+18, SUM+4, ZIS+3
>> BGPHOME	HOME+2, HOME+3, SUM+8, SUM+9
BGPIND	IND+1!, IND+6!, IND+9
BGPIND(	IND+4*, SUM+10
BGPIND(23	IND+5!, IND+8!
BGPLIST	LISTS+2!, LISTS+6!, LISTS+8
BGPLIST(	SUM+12
>> BGPPBD	BY+15*, BY+19, SUM+5
>> BGPPED	BY+16*, BY+19, SUM+5
>> BGPQUIT	ZIS+4*
>> BGPRPT	ZIS+5*, ZIS+7, ZIS+8, ZIS+9, ZIS+14
>> BGPSD	DATES+8*
BGPTAX	COMM+2!, COM1+4
BGPTAX(	COM1+2*, ZIS+8
>> BGPVDT	BY+2, BY+9, BY+11
>> BGPX	COMM+3, COMM+7, COM1+1, COM1+2, SUM+7
C	ZIS+8*, ZIS+9, XIT+4!
D	XIT+4!
DA	IND+2!, LISTS+3!, ZIS+4!, ZIS+11!, ZIS+14*
DD	ZIS+11!
DFOUT	EOP+4!
DIADD	ZIS+3*, ZIS+4!, ZIS+11!, XIT+2!
DIC	BY+7!, COMM+5, HOME+1!, ZIS+3!*, ZIS+4!, ZIS+11!
DIC("A"	COMM+5, HOME+1
DIC("DR"	ZIS+3*
DIC("S"	COMM+5*
DIC(0	COMM+5, HOME+1, ZIS+3*
DIK	ZIS+14*!
DINUM	ZIS+11!
DIR	DATES+1!, DATES+3!, IND+2!, LISTS+3!, EOP+3~
DIR("A"	DATES+1, DATES+3, BY+5, IND+2, LISTS+3*
DIR("B"	IND+2, LISTS+3
DIR(0	DATES+1, DATES+3, BY+4, IND+2, LISTS+3, EOP+5
DIRUT	BY+8*, IND+3, LISTS+4, EOP+4!
DLAYGO	ZIS+3*, ZIS+4!, ZIS+11!, XIT+2!
DLOUT	EOP+4!
DR	ZIS+4!, ZIS+11!
DTOUT	EOP+4!
DUOUT	BY+8, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
E	XIT+4!
F	XIT+4!
G	XIT+4!
H	XIT+4!
I	XIT+4!
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+15
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGPD+4, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+13!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
>> IOT	EOP+2
J	XIT+4!
K	XIT+4!
L	XIT+4!
M	XIT+4!
N	XIT+4!, XIT+5!
N1	XIT+5!
N2	XIT+5!
N3	XIT+5!
N4	XIT+5!
N5	XIT+5!
N6	XIT+5!
O	XIT+4!
P	XIT+4!
>> POP	ZIS+14
Q	XIT+4!
R	XIT+4!
S	XIT+4!
T	XIT+4!
U	COM1+2, SUM+7, SUM+8, USR+1, LOC+1
V	XIT+4!
W	XIT+4!
X	BY+11, BY+12, BY+13, BY+14, COM1, COM1+1, COM1+2, IND+4, SUM+10, SUM+12* , ZIS+3, ZIS+8, ZIS+11!, XIT+3!, XIT+4!, CTR~, CTR+1
X1	XIT+3!
X2	XIT+3!
X3	XIT+3!
X4	XIT+3!
X5	XIT+3!
X6	XIT+3!
>> XBNS	OLD+1*
>> XBRC	OLD+1*
>> XBRP	OLD+1*
>> XBRX	OLD+1*
Y	DATES+2, DATES+4, BY+9, BY+10, COMM+6, COMM+7, HOME+2, HOME+3, IND+3, IND+4 , IND+5, LISTS+4, LISTS+5, ZIS+4, ZIS+5, ZIS+11!, XIT+4!, CTR~, CTR+1
Z	XIT+4!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	EOP+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Marked Items

Name	Field # of Occurrence
$T(@X	SUM+10, SUM+12

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPD

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items