Routine: BGP1CL

Package	Total	Call Graph
IHS GPRA Information System	5	^BGP1C1 ^BGP1CP EP^BGP1CSI EN^BGP1CSII TAXCHK^BGP1CTXC
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	2	^XBFMK EN^XBVK
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

IHS GPRA Information System

^BGP1C1 ^BGP1CP EP^BGP1CSI EN^BGP1CSII TAXCHK^BGP1CTXC

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

IHS VA Utilities

^XBFMK EN^XBVK

VA Fileman

^DIC ^DIR

IHS Patient

KILL^AUPNPAT

Package	Total	Caller Graph
IHS GPRA Information System	20	BGP1DAP BGP1DCL BGP1DEL BGP1DGPU BGP1DHE BGP1DHW BGP1DL BGP1DNDB BGP1DNE BGP1DNG BGP1DNGP BGP1DNGS BGP1DON BGP1DPA BGP1DPA9 BGP1DPE BGP1DPP BGP1DSTM BGP1EOD BGP1NPL

Package

Total

Caller Graph

IHS GPRA Information System

BGP1DAP  BGP1DCL  BGP1DEL  BGP1DGPU  BGP1DHE  BGP1DHW  BGP1DL  BGP1DNDB
BGP1DNE  BGP1DNG  BGP1DNGP  BGP1DNGS  BGP1DON  BGP1DPA  BGP1DPA9  BGP1DPE
BGP1DPP  BGP1DSTM  BGP1EOD  BGP1NPL

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
DATES	;
PAUSE	;EP - pause
BEN	;
ZIS	;call to XBDBQUE
LOC()	;EP - Return location name from file 4 based on DUZ(2).
ZIS1	;
GETLOC	;
TEXT	;
F	;calendar year
DRIVER	;
SETLIST	;
WARN	;
USR()	;EP - Return name of current user from ^VA(200.
INTRO	;
XIT	;
TP1
CTR(X,Y)	;EP - Center X in a field Y wide.
ENDDATE	;
SETIND	;
TSKMN	;EP ENTRY POINT FROM TASKMAN

External References

Name	Field # of Occurrence
^%ZIS	ZIS+2
^%ZISC	DRIVER+5, XIT+1
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	XIT+5, XIT+10
^BGP1C1	DRIVER+2
^BGP1CP	DRIVER+4
EP^BGP1CSI	SETIND+2
EN^BGP1CSII	SETLIST+6
TAXCHK^BGP1CTXC	SETLIST+9
^DIC	GETLOC+1
^DIR	WARN+18, TP1+4, TP1+18, BEN+3, TEXT+3, PAUSE+2, EOP+5, DATES+3, DATES+5, F+6
^XBFMK	XIT+11
EN^XBVK	XIT+2
$$FMTE^XLFDT	TP1+16, TP1+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS 2011 CRS - RPMS PATIENT DATA FOR ANNUAL CMS HOSPITAL REPORTING",80) Line Location: BGP1CL+5
Function Call: WRITE	Prompt: !," ***************************" Line Location: WARN+1
Function Call: WRITE	Prompt: !," **** W A R N I N G ****" Line Location: WARN+2
Function Call: WRITE	Prompt: !," ***************************" Line Location: WARN+3
Function Call: WRITE	Prompt: ! Line Location: WARN+4
Function Call: WRITE	Prompt: !,"This report was last updated in April 2009 through the CMS Specifications " Line Location: WARN+5
Function Call: WRITE	Prompt: !,"Manual for discharges effective 4/1/2009, and the CRS CMS Report was included" Line Location: WARN+6
Function Call: WRITE	Prompt: !,"in CRS Version 8.0." Line Location: WARN+7
Function Call: WRITE	Prompt: ! Line Location: WARN+8
Function Call: WRITE	Prompt: !,"It is recommended this report NOT be used until it is updated. OIT " Line Location: WARN+9
Function Call: WRITE	Prompt: !,"anticipates this report will be updated with CRS Version 11.0." Line Location: WARN+10
Function Call: WRITE	Prompt: ! Line Location: WARN+11
Function Call: WRITE	Prompt: !,"If you decide to use the information included in this report, because the" Line Location: WARN+12
Function Call: WRITE	Prompt: !,"information may be inaccurate you will need to validate the information " Line Location: WARN+13
Function Call: WRITE	Prompt: !,"reported against the current CMS Specifications Manual. The URL for the " Line Location: WARN+14
Function Call: WRITE	Prompt: !,"current manual is listed below." Line Location: WARN+15
Function Call: WRITE	Prompt: !!,"http://www.qualitynet.org/dcs/ContentServer?c=Page&pagename=QnetPublic%2FPage%2FQnetTier2&cid=1141662756099" Line Location: WARN+16
Function Call: WRITE	Prompt: ! Line Location: WARN+17
Function Call: WRITE	Prompt: !,^BGPCTRL(BGPRPTYR,42,X,0) Line Location: WARN+22
Function Call: WRITE	Prompt: !!,"No measures selected." Line Location: SETIND+3
Function Call: WRITE	Prompt: !!,"No lists selected for topic ",$P(^BGPCMSIB(BGPXX,0),U,3),"." Line Location: SETLIST+7
Function Call: WRITE	Prompt: !!,"No patient lists selected." Line Location: SETLIST+8
Function Call: WRITE	Prompt: ! Line Location: TP1+1
Function Call: WRITE	Prompt: !,"Year not entered.",! Line Location: TP1+9
Function Call: WRITE	Prompt: !!,"The date range for this report is: ",$$FMTE^XLFDT(BGPBD)," to ",$$FMTE^XLFDT(BGPED),!! Line Location: TP1+22
Function Call: WRITE	Prompt: ! Line Location: TEXT+2
Function Call: WRITE	Prompt: !! Line Location: ZIS+2
Function Call: WRITE	Prompt: !!,"When entering dates, if you do not enter a full 4 digit year (e.g. 2011)" Line Location: ENDDATE+1
Function Call: WRITE	Prompt: !,"will assume a year in the past, if you want to put in a future date," Line Location: ENDDATE+2
Function Call: WRITE	Prompt: !,"remember to enter the full 4 digit year. For example, if today is" Line Location: ENDDATE+3
Function Call: WRITE	Prompt: !,"January 4, 2011 and you type in 6/30/08 the system will assume the year" Line Location: ENDDATE+4
Function Call: WRITE	Prompt: !,"as 1908 since that is a date in the past. You must type 6/30/2011 if you" Line Location: ENDDATE+5
Function Call: WRITE	Prompt: !,"want a date in the future." Line Location: ENDDATE+6
Function Call: WRITE	Prompt: ! Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+8
Function Call: WRITE	Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2011" Line Location: F+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+10
Routine Call	DIC Line Location: GETLOC+1
Routine Call	DIR Line Location: WARN+18 TP1+4 TP1+18 BEN+3 TEXT+3 PAUSE+2 EOP+5 DATES+3 DATES+5 F+6
Routine Call	%ZIS Line Location: ZIS+2

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BGPCMSIB(	SETLIST+4, SETLIST+7
^BGPCTRL - [#90241.01]	WARN+22
^BGPCTRL("B"	WARN+21
^DIC(4 - [#4]	GETLOC+1, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGP1CL+5
BEN	TEXT+4
DATES	DATES+7
ENDDATE	TP1+7
F	TP1+8, F+10
PAUSE	WARN+23, SETIND+3, SETLIST+5, SETLIST+7, SETLIST+8
TP1	TP1+9, TP1+15, BEN+4
TSKMN	ZIS1+1
XIT	INTRO+1, WARN+19, WARN+20, GETLOC+2, SETIND+3, SETLIST+8, TP1+5, ZIS+3, DRIVER+6, TSKMN+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+2*
A	XIT+7!
B	XIT+7!
BD	XIT+9!
>> BGPBD	TP1, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14, TP1+16, TP1+22
>> BGPBEN	BEN+1, BEN+5
>> BGPDO	TP1+15, TP1+18, TP1+19, TP1+20*
>> BGPED	TP1, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14, TP1+15, TP1+16, TP1+22
>> BGPHOSP	GETLOC+3*
BGPIND	SETIND+1!, SETIND+3
BGPIND(	SETLIST+2
>> BGPPER	TP1+9, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14, ENDDATE+7, DATES+5, F+1, F+11*
BGPPLST	SETLIST+1!
BGPPLSTL	SETLIST+1!, SETLIST+8
BGPPLSTL(	SETLIST+7
>> BGPQTR	TP1+6*, TP1+7, TP1+8, TP1+10, TP1+11, TP1+12, TP1+13, TP1+14
>> BGPRPTYR	WARN+21*, WARN+22
>> BGPTEXD	TEXT+1, TEXT+5
>> BGPTP	TP1*
>> BGPUDBD	TP1+14, DATES+1, DATES+3, DATES+7
>> BGPUDED	DATES+1*
>> BGPVDT	ENDDATE+7, DATES+5, DATES+7, F+1, F+9, F+11
>> BGPXX	SETLIST+2*, SETLIST+4, SETLIST+7
C	XIT+7!
D	XIT+7!
DA	WARN+18!, TP1+4!, TP1+18!, BEN+3!, TEXT+3!
DFOUT	PAUSE+1!, EOP+4!
DIADD	XIT+4!
DIC	GETLOC+1!*
DIC("A"	GETLOC+1*
DIC("B"	GETLOC+1*
DIC(0	GETLOC+1*
DIR	WARN+18!, TP1+4!, TP1+18!, BEN+3!, TEXT+3!, XIT+3!, PAUSE+1!, PAUSE+2!, EOP+3~, EOP+4! , EOP+5!, DATES+2!, DATES+4!, F+6!
DIR("?"	F+5*
DIR("A"	WARN+18, TP1+3, TP1+18, BEN+2, TEXT+3, PAUSE+2, DATES+2, DATES+4, F+4*
DIR("B"	WARN+18, TP1+18, BEN+3, TEXT+3
DIR(0	WARN+18, TP1+2, TP1+18, BEN+2, TEXT+3, PAUSE+2, EOP+5, DATES+2, DATES+4, F+3
DIRUT	WARN+19, TP1+5, TP1+19, BEN+4, TEXT+4, XIT+3!, PAUSE+1!, EOP+4!, F+7, F+8*
DLAYGO	XIT+4!
DLOUT	PAUSE+1!, EOP+4!
DOD	XIT+3!
DT	TP1+15
DTOUT	PAUSE+1!, EOP+4!
DUOUT	XIT+3!, PAUSE+1!, EOP+4!, F+8
DUZ	USR+1
DUZ(2	GETLOC+1, LOC+1
E	XIT+7!
ED	XIT+9!
F	XIT+7!
G	XIT+7!
H	XIT+7!
I	XIT+7!
IO	DRIVER+3, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS1+1
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGP1CL+4
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+1!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
>> IOT	EOP+2
J	XIT+7!
K	XIT+7!
L	XIT+7!
M	XIT+7!
N	XIT+7!, XIT+8!
N1	XIT+8!
N2	XIT+8!
N3	XIT+8!
N4	XIT+8!
N5	XIT+8!
N6	XIT+8!
O	XIT+7!
P	XIT+7!
>> POP	ZIS+3
Q	XIT+7!
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	GETLOC+1, SETLIST+4, SETLIST+7, USR+1, LOC+1
V	XIT+7!
W	XIT+7!
X	WARN+22*, XIT+6!, XIT+7!, CTR~, CTR+1
X1	XIT+6!
X2	XIT+6!
X3	XIT+6!
X4	XIT+6!
X5	XIT+6!
X6	XIT+6!
Y	WARN+20, GETLOC+2, GETLOC+3, TP1+6, TP1+20, BEN+5, TEXT+5, XIT+7!, CTR~, CTR+1 , DATES+3, DATES+5, F+9, F+10
Z	XIT+7!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	DRIVER+1, XIT+2, EOP+2
>> ZTREQ	DRIVER+1, XIT+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP1CL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: