Routine: BGP8DPEL

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
H1	;
WPS	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
WP	;
GO
CALC
PRINTL	;print one line

Name	Field # of Occurrence
$$DOB^AUPNPAT	PRINTL+6
$$HRN^AUPNPAT	PRINTL+6
HEADER^BGP8DPH	WPS+2
$$DATE^BGP8UTL	PRINTL+6
^DIR	HEADER+2
^DIWP	WP+5
$$FMTE^XLFDT	HEADER1+4, HEADER1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^BGPPEIR(BGPL,72,X,0) Line Location: PRINTL+3
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,22),?24,$$HRN^AUPNPAT(DFN,DUZ(2)),?31,$E(BGPCOM,1,14),?46,BGPSEX,?49,BGPAGE,?53,$$DATE^BGP8UTL($$DOB^AUPNPAT(DFN)) Line Location: PRINTL+6
Function Call: WRITE	Prompt: !,"UP",$S($P(^XTMP("BGP8PE",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),U,2)=1:", UP PED",1:"") Line Location: PRINTL+7
Function Call: WRITE	Prompt: ?30,$P(^XTMP("BGP8PE",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),U,1) Line Location: PRINTL+8
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "ZZZZZZZ",! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR("* IHS 2018 Patient Education Clinical Performance Report Patient List *",80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR($S(BGPLIST="A":"Entire Patient List",BGPLIST="R":"Random Patient List",BGPLIST="O":"Patient List by Education provider: "_BGPEPROV,BGPLIST="E":"Patient List by Education Provider",1:"Patient List by Provider: "_BGPLPROV),80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,"UP=User Pop",! Line Location: H1+1
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?31,"COMMUNITY",?45,"SEX",?49,"AGE",?53,"DOB",!,"DENOMINATOR",?30,"NUMERATOR" Line Location: H1+2
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: H1+3
Routine Call	DIR Line Location: HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPPEIR - [#90560.15]	GO+1, GO+5, GO+6, GO+11, GO+12, GO+15, GO+17, CALC, CALC+2, WP+3 , WP+5, PRINTL+3
^DIC(4 - [#4]	HEADER1+6, LOC+1
^DPT - [#2]	PRINTL+6
^UTILITY($J	WP+1!, WPS+1, WPS+3, WPS+5!
^VA(200 - [#200]	HEADER1+4, USR+1
^XTMP("BGP8PE"	CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8

Name	Line Occurrences
$$CTR	HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
CALC	GO+2
GO	START+8, START+9, START+10
H1	CALC+3, PRINTL+4
HEADER	START+6, GO+8, GO+16, CALC+1, CALC+11, PRINTL+2
HEADER1	HEADER+1
PRINTL	CALC+7
WP	GO+7, GO+13

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGPAGE	CALC+6*, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPAREAA	START+1
>> BGPBD	HEADER1+7
>> BGPCNT	START+7, START+8, START+9, START+10, START+11*, PRINTL+1
>> BGPCOM	CALC+4*, CALC+5, CALC+6, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPCOUNT	START+5, CALC+7, PRINTL+1
>> BGPDNT	GO+2
>> BGPED	HEADER1+7
>> BGPEPROV	HEADER1+8
>> BGPGPG	START+3, HEADER+1, HEADER1+1, HEADER1+4
>> BGPGUI	HEADER1+2
>> BGPH	CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8
>> BGPIOSL	GO+8, GO+16, CALC+1, CALC+11, WPS+2, PRINTL+2
>> BGPJ	CALC+4, CALC+5, CALC+6, CALC+7, PRINTL+7, PRINTL+8
>> BGPL	START+4*, START+7, GO+1, GO+5, GO+6, GO+11, GO+12, GO+15, GO+17, CALC , CALC+2, CALC+4, CALC+5, CALC+6, CALC+7, WP+3, WP+5, PRINTL+3, PRINTL+7, PRINTL+8
>> BGPLCNT	WP+2, WP+4, WP+5
>> BGPLIST	START+2, START+10, HEADER1+8
>> BGPLIST(	START+4, START+7
>> BGPLPROV	HEADER1+8
>> BGPNODE	GO+4, GO+10, GO+14*, GO+15, GO+17, WP+3, WP+5
>> BGPPCNT	START+5, CALC+12, PRINTL+5
>> BGPQUIT	START+3, START+4, START+6, GO+5, GO+6, GO+8, GO+11, GO+12, GO+16, CALC+1 , CALC+4, CALC+5, CALC+6, CALC+7, CALC+11, WPS+2, PRINTL+2, HEADER+2
>> BGPSEX	CALC+5*, CALC+6, CALC+7, PRINTL+6, PRINTL+7, PRINTL+8
>> BGPX	GO+5, GO+6, GO+11, GO+12, GO+15, GO+17, CALC, CALC+2
>> BGPY	GO+6, GO+12, WP+3, WP+5
>> BGPZ	WP+2, WP+3, WP+5
>> DFN	CALC+7*, PRINTL+6, PRINTL+7, PRINTL+8
DIR	HEADER+2!
DIR(0	HEADER+2*
DIWF	WP+3*, WPS+4!
DIWL	WP+3*, WPS+1, WPS+3, WPS+4!
DIWR	WP+3*, WPS+4!
DT	HEADER1+4
>> DTOUT	HEADER+2
DUZ	HEADER1+4, USR+1
DUZ(2	PRINTL+6, HEADER1+6, LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOST	HEADER+2
U	GO+1, PRINTL+6, PRINTL+7, PRINTL+8, HEADER1+4, HEADER1+6, USR+1, LOC+1
X	WP+5, WPS+5!, PRINTL+3, HEADER1+7*, CTR~, CTR+1
Y	HEADER+2, CTR~, CTR+1
Z	WPS+1*, WPS+3, WPS+4!
>> ZTQUEUED	HEADER+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DPEL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: