Routine: BGP0DPA

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS GPRA Information System	4	PROCCY^BGP0D1 PROC^BGP0DPA PRINT^BGP0DPAW JRNL^BGP0UTL
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT
IHS VA Utilities	3	^XBFMK GUIR^XBLM EN^XBVK
IHS Changes To Scheduling	1	LIST^BSDAPI2
Registration	1	TERM^VALM0

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP0DPA BGP0GFOR

Entry Points

Name	Comments	DBIA/ICR reference
DATES
TSKMN	;EP ENTRY POINT FROM TASKMAN
RTYPE	;
EOJ	;
GUIEP	;EP
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
BDMG(BGPBD,BGPED,BGPCLN)	;EP - GUI DMS Entry Point
GETPAT1	;
CLIN	;
DIV	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
COVPAGE	;EP - called from option to display the cover page
EP	;EP - called from option interactive
SELPT	;
CPDONE	;
NT
ENDDATE	;
ZIS	;
DRIVER	;
GETPAT	;
ENDLOG	;-- write the end of the log
CPHEADER	;EP
TSKMNCP	;EP ENTRY POINT FROM TASKMAN
GUIECP	;EP
CLIN1	;
ZISCP	;
ZIS1	;
CPHEAD1	;
TEST	;
CPPRINT	;EP - called from xbdbque
PROC	;EP

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+7, ENDLOG+1
^%ZIS	NT+6, ZISCP+2
^%ZISC	DRIVER+5
^%ZTLOAD	TSKMN+5, BDMG+20, TSKMNCP+5
PROCCY^BGP0D1	PROC+16, PROC+36
PROC^BGP0DPA	DRIVER+2
PRINT^BGP0DPAW	DRIVER+4
JRNL^BGP0UTL	PROC+1
LIST^BSDAPI2	PROC+24
^DIC	DIV+4, CLIN1+2, GETPAT1+3, SELPT+12, SELPT+16
FILE^DICN	BDMG+13
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10, GUIECP+9
^DIR	EP+6, EP+8, RTYPE+3, DATES+2, DATES+4, CLIN+2, SELPT+8, EOP+5, CPHEADER+2, CPDONE+2
TERM^VALM0	EP+3
^XBFMK	EOJ+1, BDMG+18
GUIR^XBLM	GUIEP+4, GUIECP+3
EN^XBVK	EOJ+3
$$FMADD^XLFDT	DATES+9, BDMG+2, PROC+6, PROC+8, PROC+18, PROC+19
$$FMDIFF^XLFDT	DATES+5
$$FMTE^XLFDT	CPHEAD1+4
$$NOW^XLFDT	BDMG+10, BDMG+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^BGPCTRL(BGPCTRL,58,X,0) Line Location: EP+5
Function Call: WRITE	Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the BGPZ PATIENT LISTS security key.",! Line Location: EP+7
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,"You can only run this for a maximum 7 day time period." Line Location: DATES+5
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+8
Function Call: WRITE	Prompt: !!,"Home Location not found in Site File!!",!,"PHN Visits counts to Home will be calculated using clinic 11 only!!" Line Location: ZIS+3
Function Call: WRITE	Prompt: !! Line Location: NT+6
Function Call: WRITE	Prompt: ! Line Location: CLIN1+1
Function Call: WRITE	Prompt: !,BGPMJ,$S(BGPMJ=1:" entry",1:" entries")," added." Line Location: SELPT+15
Function Call: WRITE	Prompt: ! Line Location: SELPT+18
Function Call: WRITE	Prompt: !,"All selections cancelled!" Line Location: SELPT+19
Function Call: WRITE	Prompt: !,"No patients selected." Line Location: SELPT+20
Function Call: WRITE	Prompt: !!,"This option is used to print out the denominator definitions" Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !,"used in the GPRA & PART Measures Forecast Patient List.",!! Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !! Line Location: ZISCP+2
Function Call: WRITE	Prompt: ! Line Location: CPHEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: CPHEAD1+3
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPPG,! Line Location: CPHEAD1+4
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: DIV+4 CLIN1+2 GETPAT1+3 SELPT+12 SELPT+16
Routine Call	DIR Line Location: EP+6 EP+8 RTYPE+3 DATES+2 DATES+4 CLIN+2 SELPT+8 EOP+5 CPHEADER+2 CPDONE+2
Routine Call	%ZIS Line Location: NT+6 ZISCP+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^BGPGUIT - [#90378.08]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPCTRL - [#90241.01]	EP+5, ENDDATE+4, CPPRINT+8, CPPRINT+10
^BGPCTRL("B"	EP+4, ENDDATE+3, CPPRINT+7
^BGPGUIT - [#90378.08]	GUIEP+8, GUIEP+9, GUIECP+7, GUIECP+8
^BGPINDT("GPRA"	ENDDATE+2
^BGPSITE - [#90241.02]	ZIS+2, PROC+4, PROC+15, PROC+29, PROC+35
^DIBT(	SELPT+14, PROC+15, PROC+29, PROC+35
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+14, PROC+28, PROC+34
^TMP($J	EOJ+4!, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!, GUIECP+1!, GUIECP+4, GUIECP+5, GUIECP+11!
^VA(200 - [#200]	USR+1, CPHEAD1+4
^XTMP("BGP0DPA"	PROC+7!, PROC+8*
^XUSEC("BGPZ PATIENT LISTS"	EP+7

Label References

Name	Line Occurrences
BDMG	TEST+1
CLIN	RTYPE+6, CLIN1+3, CLIN1+4, CLIN1+7
CLIN1	CLIN1+9
CPDONE	CPPRINT+11
CPHEAD1	CPHEADER+1
CPHEADER	CPPRINT+6, CPPRINT+9
DATES	RTYPE+6, RTYPE+7, RTYPE+8, DATES+5, DATES+7
DIV	RTYPE+7
ENDLOG	GUIEP+11, GUIECP+10
EOJ	EP+1, RTYPE+4, DATES+2, DATES+4, NT+7, DRIVER+6, TSKMN+5, BDMG+21, ZISCP+3, TSKMNCP+5
GETPAT	RTYPE+8
NT	ENDDATE+9
PROC	GUIEP+1
RTYPE	RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9
SELPT	RTYPE+9
TSKMN	ZIS1+1
TSKMNCP	ZISCP+5
ZIS	RTYPE+9

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+8, ENDLOG+2
%ZIS	NT+5!, NT+6, ZISCP+1!, ZISCP+2
>> BDMGIEN	BDMG+17*
>> BGP0GPU	ZIS+1, BDMG+6
>> BGP0RPTH	ZIS+1, BDMG+6
>> BGP3YE	PROC+6*
BGPABD	DATES!, DATES+2*, DATES+5, DATES+7, DATES+9, PROC+18
BGPAED	DATES!, DATES+4*, DATES+5, DATES+7, PROC+19
>> BGPALLPT	ZIS+1*
BGPAPPT	PROC+9!, PROC+20!
BGPAPPT(	PROC+25, PROC+26, PROC+30
BGPAPPTS	PROC+9!
BGPAPPTS(	PROC+30*, PROC+32, PROC+33
>> BGPARRAY	PROC+22*, PROC+24
>> BGPASD	DATES+9*
>> BGPBBD	ENDDATE+7, ENDDATE+12
BGPBD	ENDDATE+5, ENDDATE+10, BDMG~, BDMG+2
>> BGPBED	ENDDATE+7, ENDDATE+12
>> BGPBEN	ZIS+1*
>> BGPCHSO	PROC+4*
>> BGPCHWC	PROC+3*
BGPCLN	CLIN+1, CLIN+4, CLIN+5!, CLIN+7!, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+7, BDMG~, PROC+21* , PROC+24
BGPCLN(	CLIN1+8*
BGPCLN("DEV"	PROC+23*
BGPCLN(0	PROC+21
>> BGPCPLC	NT+1*
>> BGPCPPL	ZIS+1, BDMG+6
>> BGPCTRL	EP+4*, EP+5
>> BGPDATA	GUIEP+6, GUIEP+7, GUIEP+8, GUIECP+5, GUIECP+6, GUIECP+7
>> BGPDIVI	DIV+1, DIV+6, GETPAT1+1*, PROC+23
BGPED	ENDDATE+5, ENDDATE+10, BDMG~, PROC+6
BGPET	CPDONE+3!
>> BGPGPRAH	PROC+2*, PROC+7
>> BGPGPRAJ	PROC+2*, PROC+7
BGPGPYR	CPDONE+3!
>> BGPGUI	BDMG+3*, CPPRINT+4, CPPRINT+5, CPHEAD1+3
>> BGPGYR	CPPRINT+7*, CPPRINT+8, CPPRINT+10
>> BGPHOME	ZIS+2*
BGPIEN	BDMG+4~, BDMG+15, BDMG+16, BDMG+17, GUIEP+8, GUIEP+9, GUIEP+10, GUIECP+7, GUIECP+8, GUIECP+9 , ENDLOG+3
>> BGPIISO	PROC+16, PROC+36
>> BGPIND(	ENDDATE+2*
>> BGPINDT	ZIS+1, BDMG+6
>> BGPIOSL	CPPRINT+4*
>> BGPISSO	PROC+36*
>> BGPISST	PROC+16, PROC+36
>> BGPLIST	NT*
BGPM	CPDONE+3!
>> BGPMJ	SELPT+14*, SELPT+15
BGPNOW	BDMG+4~, BDMG+8, BDMG+11, ENDLOG+2, ENDLOG+3
>> BGPOD	PROC+19*, PROC+24
BGPOPT	BDMG+4~, BDMG+5*, BDMG+11
BGPPATS	GETPAT+1!, GETPAT1+4, SELPT+1!, SELPT+14, SELPT+17, SELPT+19!
BGPPATS(	GETPAT1+5, SELPT+14, SELPT+17*, PROC+12, PROC+13, PROC+27
BGPPATS(""	SELPT+20
>> BGPPBD	ENDDATE+6, ENDDATE+11
>> BGPPED	ENDDATE+6, ENDDATE+11
>> BGPPER	ENDDATE+8*
>> BGPPG	CPPRINT+3, CPHEADER+1, CPHEAD1+1, CPHEAD1+2, CPHEAD1+3, CPHEAD1+4
>> BGPQ	CPPRINT+9, CPHEADER+2*
>> BGPQTR	ENDDATE+8*
>> BGPQUIT	RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, DIV+1, DIV+5, CLIN+1, CLIN+3, GETPAT1+1, GETPAT1+4 , SELPT+20*
>> BGPRT1	RTYPE+1, RTYPE+5, RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, PROC+11, PROC+23, PROC+27, PROC+36
>> BGPRTYPE	ZIS+1, BDMG+6
BGPS	CPDONE+3!
>> BGPSD	BDMG+2, PROC+18, PROC+19
>> BGPSMI	SELPT+2, SELPT+14, SELPT+17*
>> BGPSOX	PROC+12, PROC+13, PROC+32, PROC+33
>> BGPTA	PROC+10, PROC+30
BGPTS	CPDONE+3!
BGPX	CPPRINT+8*, CPPRINT+10, CPDONE+3!
>> C	GUIEP+5, GUIEP+8, GUIEP+9, GUIECP+4, GUIECP+7, GUIECP+8
D0	BDMG+9!
DA	RTYPE+3!, CLIN+2!, BDMG+14!, GUIEP+10, GUIECP+9, ENDLOG+3*, ENDLOG+5!
DD	BDMG+9!
DFN	EOJ+2!, PROC+13, PROC+14, PROC+15, PROC+33, PROC+34, PROC+35
DFOUT	EOP+4!
DIADD	BDMG+12*, BDMG+14!
DIC	EOJ+2!, DIV+2!, DIV+3, DIV+4!, CLIN1+1, CLIN1+2!, GETPAT1+2!, GETPAT1+3!, SELPT+12!, SELPT+16!* , BDMG+9!, BDMG+12*, BDMG+14!
DIC("A"	CLIN1+1*
DIC("DR"	BDMG+11*
DIC("S"	CLIN1+2, SELPT+12
DIC(0	DIV+3, CLIN1+1, GETPAT1+3, SELPT+12, SELPT+16, BDMG+12
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10, GUIECP+9
DIR	EP+6!, EP+8!, RTYPE+3!, DATES+1!, DATES+3!, EOJ+2!, CLIN+2!, SELPT+8!, EOP+3!, CPHEADER+2! , CPDONE+1!, CPDONE+2!
DIR("?"	SELPT+5, SELPT+6, SELPT+7*
DIR("??"	SELPT+7*
DIR("A"	EP+6, EP+8, RTYPE+3, DATES+1, DATES+3, CLIN+2, SELPT+4, EOP+5, CPDONE+2*
DIR("B"	RTYPE+3, CLIN+2
DIR(0	EP+6, EP+8, RTYPE+2, DATES+1, DATES+3, CLIN+2, SELPT+4, EOP+5, CPHEADER+2, CPDONE+2
DIRUT	RTYPE+4, CLIN+3, EOP+4!, CPDONE+2*
DLAYGO	BDMG+12*, BDMG+14!
DLOUT	EOP+4!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+9, GUIECP+8, PROC+8, CPHEAD1+4
DTOUT	EOP+4!, CPHEADER+2
DUOUT	EOP+4!, CPDONE+2
DUZ	EP+7, BDMG+10, BDMG+11, USR+1, CPHEAD1+4
DUZ(2	ZIS+2, PROC+4, PROC+15, PROC+29, PROC+35, LOC+1
IO	DRIVER+3, TSKMN+1, CPPRINT+1, CPHEADER+2, CPDONE+2, TSKMNCP+1
IO("DOC"	TSKMN+2, TSKMNCP+2
IO("Q"	ZIS1+1, ZISCP+5
IO("S"	EOP+2
IO(0	CPHEADER+2, CPDONE+2
>> IOCPU	TSKMN+5, TSKMNCP+5
IOF	EP+2, CPHEAD1+1
IOM	TSKMN+3, GUIEP+3, GUIECP+2, CTR+1, TSKMNCP+3
ION	TSKMN+1, TSKMNCP+1
IOP	NT+5!, ZISCP+1!
IOSL	TSKMN+3, CPPRINT+4, CPPRINT+5*, CPPRINT+9, TSKMNCP+3
IOST	TSKMN+1, EOP+1, CPHEADER+2, CPDONE+2, TSKMNCP+1
>> IOT	EOP+2
>> POP	NT+7, ZISCP+3
U	ZIS+2, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, SELPT+3, SELPT+9, SELPT+19, PROC+4, PROC+14 , PROC+15, PROC+26, PROC+28, PROC+29, PROC+33, PROC+34, PROC+35, USR+1, LOC+1, CPHEAD1+4
X	EP+5, ENDDATE+2, ENDDATE+3, ENDDATE+4, CLIN1+4, CLIN1+7, SELPT+3, SELPT+9, SELPT+10, SELPT+11* , SELPT+12, SELPT+19, BDMG+10, GUIEP+5, GUIEP+6, GUIEP+8, GUIECP+4, GUIECP+5, GUIECP+7, PROC+25 , PROC+26, PROC+30, CTR~, CTR+1
Y	RTYPE+5, DATES+2, DATES+4, ENDDATE+4, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, DIV+5, DIV+6 , CLIN+4, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+8, GETPAT1+4, GETPAT1+5, SELPT+13, SELPT+14, SELPT+17 , BDMG+15, BDMG+16, PROC+26*, PROC+27, PROC+28, PROC+29, CTR~, CTR+1, CPHEADER+2
>> ZTCPU	TSKMN+5, TSKMNCP+5
>> ZTDESC	TSKMN+5, BDMG+20, TSKMNCP+5*
>> ZTDTH	TSKMN+5, BDMG+20, TSKMNCP+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3, BDMG+20, TSKMNCP+1, TSKMNCP+2, TSKMNCP+3*
>> ZTQUEUED	DRIVER+1, EOP+2, CPPRINT+2
>> ZTREQ	DRIVER+1, GUIEP+13, GUIECP+12, CPPRINT+2
>> ZTRTN	TSKMN+5, BDMG+20, TSKMNCP+5*
ZTSAVE	TSKMN+4!, BDMG+19!, TSKMNCP+4!
ZTSAVE("*"	BDMG+19*
ZTSAVE("BGP*"	TSKMN+4, TSKMNCP+4

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0DPA

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: