Routine: BGP4DPA9

Information

BGP4DPA9 ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT 03 Jun 2014 2:54 PM ; 09 Sep 2014 10:30 AM

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
IHS GPRA Information System	7	PROCCY^BGP4D1 PROC^BGP4DPA9 PRINT^BGP4DPAW PAUSE^BGP4DU JRNL^BGP4UTL $$DEMOCHK^BGP4UTL2 TAXCHK^BGP4XTCN
Kernel	6	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU MES^XPDUTL
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE (,IX1)^DIK ^DIR
IHS VA Utilities	3	^XBFMK GUIR^XBLM EN^XBVK
IHS Changes To Scheduling	1	LIST^BSDAPI2
Registration	1	TERM^VALM0

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP4DPA9 BGP4GFO9

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;
TSKMN	;EP ENTRY POINT FROM TASKMAN
RTYPE	;
EOJ	;
STMP	;EP
ZISCP	;
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	;
PRE	;EP - CALLED FROM PATCH 1 PRE INIT.
TEMP	;search template created?
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
EN1	;EP Help
EN2
SELPT	;
CPDONE	;
NT
ADDON	;
ENDDATE	;
ZIS	;
DRIVER	;
GETPAT	;
ENDLOG	;-- write the end of the log
CPHEADER	;EP
TSKMNCP	;EP ENTRY POINT FROM TASKMAN
DUP
POST	;EP - called from patch 1 post init
GUIECP	;EP
CLIN1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
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^BGP4D1	PROC+16, PROC+49
PROC^BGP4DPA9	DRIVER+2
PRINT^BGP4DPAW	DRIVER+4
PAUSE^BGP4DU	EP+20
JRNL^BGP4UTL	PROC+1
$$DEMOCHK^BGP4UTL2	EP+19
TAXCHK^BGP4XTCN	EP+18
LIST^BSDAPI2	PROC+24
^DIC	DIV+4, CLIN1+2, GETPAT1+3, SELPT+12, SELPT+16, EN2+1
FILE^DICN	BDMG+13
^DIE	ENDLOG+4, DUP+16
^DIK	DUP+7, PRE+2
IX1^DIK	GUIEP+10, GUIECP+9, DUP+8
^DIR	EP+14, EP+16, RTYPE+3, TEMP+2, DATES+4, DATES+6, ADDON+4, ADDON+9, CLIN+2, SELPT+8 , EOP+5, CPHEADER+2, CPDONE+2, DUP+3
TERM^VALM0	EP+3
^XBFMK	EOJ+1, BDMG+18
GUIR^XBLM	GUIEP+4, GUIECP+3
EN^XBVK	EOJ+3
$$FMADD^XLFDT	DATES+11, BDMG+2, PROC+4, PROC+6, PROC+18, PROC+19
$$FMDIFF^XLFDT	DATES+7
$$FMTE^XLFDT	CPHEAD1+4
$$NOW^XLFDT	BDMG+10, BDMG+20
$$ADD^XPDMENU	POST+2
MES^XPDUTL	POST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is the GPRA forecast patient list for the 2015 GPRA year using the" Line Location: EP+5
Function Call: WRITE	Prompt: !,"same performance measure definitions from CRS Version 14.0." Line Location: EP+6
Function Call: WRITE	Prompt: !,"This patient list is linked to the Scheduling Menu and enables users to" Line Location: EP+7
Function Call: WRITE	Prompt: !,"run a list of patients that are scheduled for appointments during a" Line Location: EP+8
Function Call: WRITE	Prompt: !,"user-defined time period to list of clinics at the facility defined by" Line Location: EP+9
Function Call: WRITE	Prompt: !,"the user and shows the GPRA measures the patient will not meet as of the" Line Location: EP+10
Function Call: WRITE	Prompt: !,"date of the appointment. The list uses revised CRS logic for the GPRA" Line Location: EP+11
Function Call: WRITE	Prompt: !,"measures, which is defined in the report, and also includes information" Line Location: EP+12
Function Call: WRITE	Prompt: !,"for the provider on how to fulfill the GPRA measure." Line Location: EP+13
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+15
Function Call: WRITE	Prompt: !!,"Exiting Report....." Line Location: EP+20
Function Call: WRITE	Prompt: ! Line Location: DATES+3
Function Call: WRITE	Prompt: !!,"You can only run this for a maximum 7 day time period." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+10
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/GPRAMA 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
Function Call: WRITE	Prompt: !!,"No Search Template selected." Line Location: EN2+2
Routine Call	DIE Line Location: ENDLOG+4 DUP+16
Routine Call	DIC Line Location: DIV+4 CLIN1+2 GETPAT1+3 SELPT+12 SELPT+16 EN2+1
Routine Call	DIR Line Location: EP+14 EP+16 RTYPE+3 TEMP+2 DATES+4 DATES+6 ADDON+4 ADDON+9 CLIN+2 SELPT+8 EOP+5 CPHEADER+2 CPDONE+2 DUP+3
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
^BGPINDJC - [#90552.02]	Classic Fileman Calls
^BGPGUIJ - [#90552.19]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPCTRL - [#90241.01]	ENDDATE+4, CPPRINT+8, CPPRINT+10
^BGPCTRL("B"	EP+4, ENDDATE+3, CPPRINT+7
^BGPGUIJ - [#90552.19]	GUIEP+8, GUIEP+9, GUIECP+7, GUIECP+8
^BGPINDJ("GPRA"	ENDDATE+2
^BGPINDJC - [#90552.02]	PRE+2
^BGPSITE - [#90241.02]	ZIS+2
^DIBT(	SELPT+14, PROC+14, PROC+15, PROC+30, PROC+47, PROC+48, EN2+3, DUP+6, DUP+7, DUP+8* , DUP+9, DUP+11, DUP+13!
^DIBT("B"	PROC+14, PROC+30, PROC+47
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+12, PROC+28, PROC+45
^SC - [#44]	PROC+36, PROC+37, PROC+38, PROC+39
^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("BGP4DPA9"	PROC+5!, PROC+6*
^XUSEC("BGPZ PATIENT LISTS"	EP+15

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	TEMP+4, DATES+7, DATES+9
DIV	RTYPE+7
EN2	DUP
ENDLOG	GUIEP+11, GUIECP+10
EOJ	EP+1, EP+20, RTYPE+4, DATES+4, DATES+6, NT+7, DRIVER+6, TSKMN+5, BDMG+21, ZISCP+3 , TSKMNCP+5
GETPAT	RTYPE+8
NT	ENDDATE+16
PROC	GUIEP+1
RTYPE	RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, TEMP+3, ADDON+2
SELPT	RTYPE+9
STMP	TEMP+5
TEMP	RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, TEMP+6
TSKMN	ZIS1+1
TSKMNCP	ZISCP+5
ZIS	DATES+1

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
>> A	PROC+36*, PROC+37, PROC+38, PROC+39
>> BDMGIEN	BDMG+17*
>> BGP3YE	PROC+4*
BGPABD	DATES+2!, DATES+4*, DATES+7, DATES+9, DATES+11, PROC+18
>> BGPADDOD	ADDON+8, ADDON+12, PROC+39
BGPAED	DATES+2!, DATES+6*, DATES+7, DATES+9, PROC+19
>> BGPALLPT	ZIS+1*
BGPAPPT	PROC+7!, PROC+20!
BGPAPPT(	PROC+25, PROC+26, PROC+35, PROC+39!, PROC+41
BGPAPPTS	PROC+7!
BGPAPPTS(	PROC+41*, PROC+43, PROC+44
>> BGPARRAY	PROC+22*, PROC+24
>> BGPASD	DATES+11*
>> BGPBBD	ENDDATE+7, ENDDATE+19
BGPBD	ENDDATE+5, ENDDATE+10, ENDDATE+17*, BDMG~, BDMG+2
>> BGPBED	ENDDATE+7, ENDDATE+19
>> BGPBEN	ZIS+1*
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	ENDDATE+15, NT+1
>> BGPCPPL	ZIS+1, BDMG+6
>> BGPCTRL	EP+4*
>> 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, ENDDATE+17*, BDMG~, PROC+4
BGPET	CPDONE+3!
>> BGPGPRAH	PROC+2*, PROC+5
>> BGPGPRAJ	PROC+2*, PROC+5
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+49
>> BGPIND(	ENDDATE+2*
>> BGPINDJ	ZIS+1, BDMG+6
>> BGPIOSL	CPPRINT+4*
>> BGPISSO	PROC+49*
>> BGPISST	PROC+16, PROC+49
>> BGPLIST	ENDDATE+14, NT
BGPM	CPDONE+3!
>> BGPMJ	SELPT+14*, SELPT+15
>> BGPNGR09	ENDDATE+13*
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+10, PROC+11, PROC+27
BGPPATS(""	SELPT+20
>> BGPPBD	ENDDATE+6, ENDDATE+11, ENDDATE+18*
>> BGPPED	ENDDATE+6, ENDDATE+11, ENDDATE+18*
>> BGPPER	ENDDATE+8, ENDDATE+12
>> BGPPG	CPPRINT+3, CPHEADER+1, CPHEAD1+1, CPHEAD1+2, CPHEAD1+3, CPHEAD1+4
BGPQ	ADDON+1!, ADDON+2, ADDON+5, ADDON+10, ADDON+11, 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, EN1+1!, EN2+2
>> BGPRT1	RTYPE+1, RTYPE+5, RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, DATES+1, ADDON+2, PROC+9, PROC+23 , PROC+27, PROC+33, PROC+49
>> BGPRT2	ADDON+6*, ADDON+7, PROC+33
>> BGPRTYPE	ZIS+1, BDMG+6
BGPS	CPDONE+3!
>> BGPSD	BDMG+2, PROC+18, PROC+19
>> BGPSMI	SELPT+2, SELPT+14, SELPT+17*
>> BGPSNAM	EN2+3*, DUP+8, DUP+12
>> BGPSOX	PROC+10, PROC+11, PROC+43, PROC+44
BGPSTMP	TEMP+1, TEMP+6, PROC+15, PROC+48, EN1+1, EN2+3*, DUP!, DUP+6, DUP+7, DUP+8 , DUP+9, DUP+11, DUP+13, DUP+14, DUP+15
>> BGPSTN	DUP+7*
>> BGPTA	PROC+8, PROC+41
BGPTS	CPDONE+3!
BGPX	CPPRINT+8, CPPRINT+10, CPDONE+3!, PRE+1~, PRE+2
>> BGPYGPU	ZIS+1, BDMG+6
>> BGPYRPTH	ZIS+1, BDMG+6
>> C	GUIEP+5, GUIEP+8, GUIEP+9, GUIECP+4, GUIECP+7, GUIECP+8, PROC+35*, PROC+36, PROC+37, PROC+38 , PROC+39
>> D	PROC+35*, PROC+36, PROC+37, PROC+38, PROC+39
D0	BDMG+9!
DA	RTYPE+3!, TEMP+2!, ADDON+4!, ADDON+9!, CLIN+2!, BDMG+14!, GUIEP+10, GUIECP+9, ENDLOG+3, ENDLOG+5! , DUP+3!, DUP+7, DUP+8, DUP+15, DUP+17!, PRE+1~, PRE+2*
DD	BDMG+9!
DFN	EOJ+2!, PROC+11, PROC+12, PROC+14, PROC+15, PROC+44, PROC+45, PROC+47, PROC+48
DFOUT	EOP+4!
>> DHIT	DUP+14*
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!, EN2!, EN2+1!
DIC("A"	CLIN1+1, EN2
DIC("DR"	BDMG+11*
DIC("S"	CLIN1+2, SELPT+12, EN2*
DIC(0	DIV+3, CLIN1+1, GETPAT1+3, SELPT+12, SELPT+16, BDMG+12, EN2*
DIE	ENDLOG+3, ENDLOG+5!, DUP+15, DUP+17!
>> DIK	GUIEP+10, GUIECP+9, DUP+7, DUP+8, PRE+2*
DIR	EP+14!, EP+16!, RTYPE+3!, TEMP+2!, DATES+3!, DATES+5!, ADDON+4!, ADDON+9!, EOJ+2!, CLIN+2! , SELPT+8!, EOP+3!, CPHEADER+2!, CPDONE+1!, CPDONE+2!, DUP+3!
DIR("?"	SELPT+5, SELPT+6, SELPT+7*
DIR("??"	SELPT+7*
DIR("A"	EP+14, EP+16, RTYPE+3, TEMP+2, DATES+3, DATES+5, ADDON+4, ADDON+9, CLIN+2, SELPT+4 , EOP+5, CPDONE+2, DUP+3*
DIR("B"	RTYPE+3, TEMP+2, ADDON+4, CLIN+2, DUP+3*
DIR(0	EP+14, EP+16, RTYPE+2, TEMP+2, DATES+3, DATES+5, ADDON+3, ADDON+9, CLIN+2, SELPT+4 , EOP+5, CPHEADER+2, CPDONE+2, DUP+3
DIRUT	RTYPE+4, TEMP+3, ADDON+5, ADDON+10, CLIN+3, EOP+4!, CPDONE+2*, DUP+4
DLAYGO	BDMG+12, BDMG+14!, EN2!, EN2+1!
DLOUT	EOP+4!
DR	ENDLOG+3, ENDLOG+5!, DUP+15, DUP+17!
DT	ADDON+9, GUIEP+9, GUIECP+8, PROC+6, CPHEAD1+4, DUP+15
DTOUT	EOP+4!, CPHEADER+2
DUOUT	EOP+4!, CPDONE+2
DUZ	EP+15, BDMG+10, BDMG+11, USR+1, CPHEAD1+4, DUP+15
DUZ(2	ZIS+2, LOC+1
>> G	PROC+32, PROC+36, PROC+39*, PROC+40
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
>> Q	DUP, DUP+1, DUP+4, DUP+5*
U	ZIS+2, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, SELPT+3, SELPT+9, SELPT+19, PROC+12, PROC+26 , PROC+28, PROC+35, PROC+38, PROC+39, PROC+44, PROC+45, USR+1, LOC+1, CPHEAD1+4, EN2+3 , DUP, DUP+7
X	EP+19, EP+20, 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+14, PROC+25, PROC+26, PROC+35, PROC+39, PROC+41, PROC+47, CTR~, CTR+1, POST+1~ , POST+2, POST+3
Y	RTYPE+5, TEMP+4, DATES+4, DATES+6, ADDON+6, ADDON+11, ADDON+12, 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+30 , PROC+38, CTR~, CTR+1, CPHEADER+2, EN2+2, EN2+3, DUP!, DUP+5
>> Z	PROC+30*
>> 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: BGP4DPA9

Information

Source Information

Call Graph

Call Graph Total: 24

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: