Routine: BGP8DPAW

Package	Total	Call Graph
IHS GPRA Information System	2	$$RPTVER^BGP8BAN $$DATE^BGP8UTL
VA Fileman	2	^DIR ^DIWP
IHS Patient	1	($$COMMRES,$$DOB,$$HRN,$$SEX)^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP8DPA BGP8DPA9

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
WRITE	;
SUB	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
CPRINT	;
PPRINT	;
DPRINT1	;
APRINT	;
DPRINT	;
CNT(T)	;
HEADER	;EP
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
DONE	;
WP	;
PRINT	;EP - called from xbdbque
WPS	;

Name	Field # of Occurrence
$$COMMRES^AUPNPAT	SUB+4
$$DOB^AUPNPAT	SUB+4
$$HRN^AUPNPAT	SUB+4
$$SEX^AUPNPAT	SUB+4
$$RPTVER^BGP8BAN	HEADER1+8
$$DATE^BGP8UTL	SUB+4
^DIR	DONE+2, HEADER+2, EOP+5
^DIWP	WP+5
$$FMTE^XLFDT	CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2, SUB+2, HEADER1+7, HEADER1+9, HEADER1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There were either no appointments found or there were no patients due for any",!,"GPRA measure for any clinic during the specified timeframe of ",!,$$FMTE^XLFDT(BGPABD)," to ",$$FMTE^XLFDT(BGPAED),".",! Line Location: CPRINT+2
Function Call: WRITE	Prompt: !?10,$P(^SC(X,0),U) Line Location: CPRINT+5
Function Call: WRITE	Prompt: !!,"NO GPRA MEASURES DUE",! Line Location: CPRINT+6
Function Call: WRITE	Prompt: !,"The following clinics were selected:" Line Location: DPRINT+5
Function Call: WRITE	Prompt: !?10,$P(^SC(X,0),U) Line Location: DPRINT+6
Function Call: WRITE	Prompt: $P(^DPT(X,0),U),!,"during the specified timeframe of ",$$FMTE^XLFDT(BGPABD)," to ",$$FMTE^XLFDT(BGPAED)," or",!,"this patient was not due for any GPRA measure." Line Location: PPRINT+2
Function Call: WRITE	Prompt: !,BGPT Line Location: WRITE+4
Function Call: WRITE	Prompt: ?27,$P(BGPX,"\|",1) Line Location: WRITE+5
Function Call: WRITE	Prompt: !,BGPT1 Line Location: WRITE+6
Function Call: WRITE	Prompt: ?27,Y Line Location: WRITE+8
Function Call: WRITE	Prompt: ! Line Location: WPS+2
Function Call: WRITE	Prompt: !,$P($$FMTE^XLFDT(BGPADT,"P")," ",4,99) Line Location: SUB+2
Function Call: WRITE	Prompt: ! Line Location: SUB+3
Function Call: WRITE	Prompt: ?T,$E($P(^DPT(DFN,0),U),1,25),?38,$$HRN^AUPNPAT(DFN,DUZ(2)),?46,$$SEX^AUPNPAT(DFN),?50,$$DATE^BGP8UTL($$DOB^AUPNPAT(DFN)),?60,$E($$COMMRES^AUPNPAT(DFN,"E"),1,20),! Line Location: SUB+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?5,"*CONFIDENTIAL PATIENT INFORMATION-COVERED BY THE PRIVACY ACT*",?70,"Page ",BGPPG Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR("GPRA/GPRAMA Forecast Patient List",80) Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$CTR("GPRA/GPRAMA Forecast Patient List, Run Using 2018 Logic") Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$$CTR("GPRA Measures Not Met or Due During "_$$FMTE^XLFDT(BGPBD)_"-"_$$FMTE^XLFDT(BGPED),80) Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP8BAN,80) Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,$$CTR("Patients with an Appointment in "_BGPCLN_$S($G(BGPD):" on "_$$FMTE^XLFDT(BGPD),1:""),80) Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80) Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80) Line Location: HEADER1+11
Function Call: WRITE	Prompt: !,$$CTR("Report Generated by: "_$P(^VA(200,DUZ,0),U),80) Line Location: HEADER1+12
Function Call: WRITE	Prompt: !!,"THIS REPORT SHOULD ONLY BE USED TO DETERMINE WHICH GPRA MEASURES HAVE NOT" Line Location: HEADER1+13
Function Call: WRITE	Prompt: !,"BEEN MET FOR PATIENTS. IT SHOULD NOT BE USED TO DETERMINE APPROPRIATE" Line Location: HEADER1+14
Function Call: WRITE	Prompt: !,"PATIENT CARE FOR INDIVIDUALS, AS THIS MAY VARY FROM PATIENT TO PATIENT." Line Location: HEADER1+15
Function Call: WRITE	Prompt: !!,$TR($J("",80)," ","-") Line Location: HEADER1+16
Function Call: WRITE	Prompt: !,"Appt Time",?11,"Patient Name" Line Location: HEADER1+17
Function Call: WRITE	Prompt: !,"Patient Name" Line Location: HEADER1+18
Function Call: WRITE	Prompt: ?38,"HRN",?46,"Sex",?50,"DOB",?60,"Community" Line Location: HEADER1+19
Function Call: WRITE	Prompt: !,"GPRA Measure Not Met",?27,"Date of Last Screening and Next Due Date" Line Location: HEADER1+20
Function Call: WRITE	Prompt: !?27,"Tests Counted for GPRA Measure" Line Location: HEADER1+21
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+22
Routine Call	DIR Line Location: DONE+2 HEADER+2 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^BGPINDRC - [#90560.02]	WP+4, WP+5
^DIBT(	CNT+3, PRINT+6
^DIC(4 - [#4]	HEADER1+11, LOC+1
^DPT - [#2]	PPRINT+2, SUB+4
^SC - [#44]	CPRINT+5, DPRINT+6
^UTILITY($J	WP+1!, WPS+1, WPS+3, WPS+5!
^VA(200 - [#200]	HEADER1+4, HEADER1+12, USR+1
^XTMP("BGP8DPA"	DONE+5!, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16 , CPRINT+18, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9 , DPRINT1+10, DPRINT1+12, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11 , PPRINT+12, PPRINT+14, APRINT+1, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+9, APRINT+11

Name	Line Occurrences
$$CNT	PRINT+6
$$CTR	HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+11, HEADER1+12
APRINT	PRINT+10
CPRINT	PRINT+9
DONE	PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11
DPRINT	PRINT+11
DPRINT1	DPRINT+7
HEADER	PRINT+5, CPRINT+1, CPRINT+12, CPRINT+17, DPRINT+1, DPRINT1+6, DPRINT1+11, PPRINT+1, PPRINT+8, PPRINT+13 , WRITE+9, APRINT+1, APRINT+5, APRINT+10
HEADER1	HEADER+1
PPRINT	PRINT+8
SUB	CPRINT+13, CPRINT+17, DPRINT1+7, DPRINT1+11, PPRINT+9, PPRINT+13, WRITE+9, APRINT+6, APRINT+10
WP	WRITE+10
WRITE	CPRINT+19, DPRINT1+13, PPRINT+15, APRINT+12

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGPABD	CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2
>> BGPADT	CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+3, DPRINT1+4, DPRINT1+5 , DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12, PPRINT+7*, PPRINT+10, PPRINT+11, PPRINT+12, PPRINT+14, SUB+2
>> BGPAED	CPRINT+2, CPRINT+3, DPRINT+3, PPRINT+2
>> BGPBD	HEADER1+7
>> BGPCLN	CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+1 , DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12, PPRINT+6*, PPRINT+7 , PPRINT+10, PPRINT+11, PPRINT+12, PPRINT+14, HEADER1+9
>> BGPCLN(	CPRINT+5, DPRINT+6
>> BGPCLN(0	CPRINT+2, DPRINT+5
>> BGPD	CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+2, DPRINT1+3 , DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12, PPRINT+5*, PPRINT+6, PPRINT+7, PPRINT+10 , PPRINT+11, PPRINT+12, PPRINT+14, HEADER1+9
>> BGPDIVI	DPRINT+7*, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12
>> BGPED	HEADER1+7
BGPET	DONE+4!
>> BGPGPRAH	DONE+5, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16 , CPRINT+18, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9 , DPRINT1+10, DPRINT1+12, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11 , PPRINT+12, PPRINT+14, APRINT+1, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+9, APRINT+11
>> BGPGPRAJ	DONE+5, CPRINT+1, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16 , CPRINT+18, DPRINT+1, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9 , DPRINT1+10, DPRINT1+12, PPRINT+1, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11 , PPRINT+12, PPRINT+14, APRINT+1, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+9, APRINT+11
BGPGPYR	DONE+4!
>> BGPGUI	PRINT+1, PRINT+2, HEADER1+3
>> BGPI	CPRINT+16, CPRINT+18, DPRINT1+10, DPRINT1+12, PPRINT+12, PPRINT+14, WP+4, WP+5, APRINT+9, APRINT+11
>> BGPIC	CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+9, DPRINT1+10, DPRINT1+12, PPRINT+11, PPRINT+12, PPRINT+14, APRINT+8 , APRINT+9, APRINT+11
>> BGPIOSL	PRINT+1*
BGPM	DONE+4!
>> BGPNAME	CPRINT+10, CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+4, DPRINT1+5, DPRINT1+8, DPRINT1+9 , DPRINT1+10, DPRINT1+12, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+12 , PPRINT+14, APRINT+3, APRINT+4, APRINT+7, APRINT+8, APRINT+9, APRINT+11
>> BGPNGR09	WP+4, WP+5, HEADER1+5, HEADER1+6
>> BGPNOBAN	WRITE+1, WRITE+7, WPS+2
>> BGPNOD	PRINT+3, CPRINT+1, DPRINT+1, PPRINT+1, APRINT+1*
>> BGPO	CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12, PPRINT+10, PPRINT+11 , PPRINT+12, PPRINT+14, APRINT+7, APRINT+8, APRINT+9, APRINT+11
>> BGPPATS(0	PPRINT+2
>> BGPPG	PRINT+3, HEADER+1, HEADER1+1, HEADER1+2, HEADER1+3, HEADER1+4
BGPQ	PRINT+3!, CPRINT+7, CPRINT+8, CPRINT+9, CPRINT+10, CPRINT+11, CPRINT+12, CPRINT+14, CPRINT+15, CPRINT+16 , CPRINT+17, DPRINT+7, DPRINT1+1, DPRINT1+2, DPRINT1+3, DPRINT1+4, DPRINT1+5, DPRINT1+6, DPRINT1+8, DPRINT1+9 , DPRINT1+10, DPRINT1+11, PPRINT+3, PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+8, PPRINT+10, PPRINT+11 , PPRINT+12, PPRINT+13, WRITE+9, APRINT+3, APRINT+4, APRINT+5, APRINT+7, APRINT+8, APRINT+9, APRINT+10 , HEADER+2*
>> BGPRT1	PRINT+8, PRINT+9, PRINT+10, PRINT+11, SUB+1, SUB+2, SUB+3, HEADER1+9, HEADER1+17, HEADER1+18
BGPS	DONE+4!
>> BGPSTMP	PRINT+4, PRINT+6
>> BGPT	WRITE+3*, WRITE+4
>> BGPT1	WRITE+3*, WRITE+6
BGPTS	DONE+4!
BGPX	DONE+4!, WRITE+2*, WRITE+5, WRITE+7, WRITE+8
>> BGPZ	WP+2, WP+4, WP+5
C	CNT+1~, CNT+2, CNT+3, CNT+4
>> DFN	CPRINT+11, CPRINT+14, CPRINT+15, CPRINT+16, CPRINT+18, DPRINT1+5, DPRINT1+8, DPRINT1+9, DPRINT1+10, DPRINT1+12 , PPRINT+4, PPRINT+5, PPRINT+6, PPRINT+7, PPRINT+10, PPRINT+11, PPRINT+12, PPRINT+14, APRINT+4, APRINT+7 , APRINT+8, APRINT+9, APRINT+11, SUB+4
DFOUT	EOP+4!
DIR	DONE+1!, DONE+2!, HEADER+2!, EOP+3!
DIR("A"	DONE+2, EOP+5
DIR(0	DONE+2, HEADER+2, EOP+5*
DIRUT	DONE+2*, EOP+4!
DIWF	WP+4*, WPS+4!
DIWL	WP+4*, WPS+1, WPS+3, WPS+4!
DIWR	WP+4*, WPS+4!
DLOUT	EOP+4!
DT	HEADER1+10
DTOUT	HEADER+2, EOP+4!
DUOUT	DONE+2, EOP+4!
DUZ	HEADER1+4, HEADER1+12, USR+1
DUZ(2	SUB+4, HEADER1+11, LOC+1
IO	DONE+2, HEADER+2
IO("S"	EOP+2
IO(0	DONE+2, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT+1, PRINT+2*, CPRINT+17, DPRINT1+11, PPRINT+13, WRITE+9, APRINT+10
IOST	DONE+2, HEADER+2, EOP+1
>> IOT	EOP+2
T	CNT~, CNT+3, SUB+1*, SUB+4
U	PRINT+6, CPRINT+5, DPRINT+6, PPRINT+2, WRITE+2, WRITE+3, SUB+4, HEADER1+4, HEADER1+11, HEADER1+12 , USR+1, LOC+1
X	CNT+1~, CNT+2, CNT+3, CPRINT+5, DPRINT+6, PPRINT+2, WRITE+8, WP+5*, WPS+5!, CTR~ , CTR+1
Y	CPRINT+18, DPRINT1+12, PPRINT+14, WRITE+2, WRITE+3, WRITE+8, APRINT+11*, HEADER+2, CTR~, CTR+1
Z	WPS+1*, WPS+2, WPS+3, WPS+4!
>> ZTQUEUED	EOP+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DPAW

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: