Routine: BGP8DPAP

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	4	^XBDBQUE ^XBFMK GUIR^XBLM EN^XBVK
IHS GPRA Information System	2	PROCCY^BGP8D1 ($$DATE,JRNL)^BGP8UTL
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
IHS Patient	1	($$COMMRES,$$HRN)^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
PATS	;
ENDDATE	;
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEADER	;EP
EOJ	;
LIST	;"??" help list
ENDLOG	;-- write the end of the log
GUIEP	;EP
PRINT	;EP - called from xbdbque
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
DONE	;
BDMG(BGPBD,BGPED,BGPCLN)	;EP - GUI DMS Entry Point
CTR(X,Y)	;EP - Center X in a field Y wide.
TEST	;
SELPT	;
PROC	;
EP	;EP - called from option interactive

External References

Name	Field # of Occurrence
NOW^%DTC	BDMG+7, ENDLOG+1
^%ZTLOAD	BDMG+20
$$COMMRES^AUPNPAT	PRINT+8
$$HRN^AUPNPAT	PRINT+8
PROCCY^BGP8D1	PROC+11
$$DATE^BGP8UTL	PRINT+8
JRNL^BGP8UTL	PROC+1
^DIC	SELPT+12, SELPT+16
FILE^DICN	BDMG+13
^DIE	ENDLOG+4
IX1^DIK	GUIEP+10
^DIR	PATS+5, SELPT+8, DONE+2, HEADER+2, EOP+5, LIST+3
^XBDBQUE	ENDDATE+31
^XBFMK	EOJ+1, BDMG+18
GUIR^XBLM	GUIEP+4
EN^XBVK	EOJ+3
$$FMADD^XLFDT	BDMG+2, PROC+5, PROC+7
$$FMTE^XLFDT	HEADER1+3, HEADER1+5
$$NOW^XLFDT	BDMG+10, BDMG+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^BGPCTRL(BGPCTRL,58,X,0) Line Location: EP+4
Function Call: WRITE	Prompt: !,"Enter a patient's HRN or name (HORSECHIEF,JOHN DOE or HORSECHIEF,JOHN)." Line Location: PATS+1
Function Call: WRITE	Prompt: !,"A template can also be selected by typing a ""["" followed by" Line Location: PATS+2
Function Call: WRITE	Prompt: !,"the template name." Line Location: PATS+3
Function Call: WRITE	Prompt: !,"Entering ""[??"" will list your templates." Line Location: PATS+4
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: !! Line Location: ENDDATE+1
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?1,BGPT1 Condition for execution: X=2 Line Location: PRINT+16
Function Call: WRITE	Prompt: ?28,Y,! Line Location: PRINT+16
Function Call: WRITE	Prompt: ?28,Y Line Location: PRINT+17
Function Call: WRITE	Prompt: !?28,BGPX1 Line Location: PRINT+19
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"ZZZZZZZ" Line Location: HEADER1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !!,$$CTR("Patient Listing with GPRA Measure Data",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,"HRN",?7,"PATIENT NAME",?38,"Sex",?42,"DOB",?51,"Community" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,?2,X Line Location: LIST+1
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: SELPT+12 SELPT+16
Routine Call	DIR Line Location: PATS+5 SELPT+8 DONE+2 HEADER+2 EOP+5 LIST+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BGPGUIR - [#90560.19]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LIST+1
^BGPCTRL - [#90241.01]	EP+4, ENDDATE+3
^BGPCTRL("B"	EP+3, ENDDATE+2
^BGPGUIR - [#90560.19]	GUIEP+8, GUIEP+9
^BGPINDR("GPRA"	ENDDATE+13
^BGPSITE - [#90241.02]	ZIS+2
^DIBT(	SELPT+14
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PRINT+8
^TMP($J	EOJ+4!, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200]	HEADER1+3, USR+1
^XTMP("BGP8DPAP"	PROC+6!, PROC+7*, DONE+5!, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13 , PRINT+14

Label References

Name	Line Occurrences
$$CTR	HEADER1+4, HEADER1+6
BDMG	TEST+1
DONE	PRINT+3, PRINT+20
ENDLOG	GUIEP+11
EOJ	EP+1, SELPT+20, BDMG+21
HEADER	PRINT+3, PRINT+4, PRINT+7, PRINT+10
HEADER1	HEADER+1
PROC	GUIEP+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
>> BDMGIEN	BDMG+17*
>> BGP3YE	PROC+5*
>> BGPALLPT	ZIS+1*
BGPAPPT	PROC+8!
BGPAPPTS	PROC+8!
>> BGPBBD	ENDDATE+6*
BGPBD	ENDDATE+4*, BDMG~, BDMG+2
>> BGPBED	ENDDATE+6*
>> BGPBEN	ZIS+1*
BGPCLN	BDMG~
>> BGPCPLC	ENDDATE+26*
>> BGPCPPL	ZIS+1, BDMG+6
>> BGPCTRL	EP+3*, EP+4
>> BGPDATA	GUIEP+6, GUIEP+7, GUIEP+8
BGPED	ENDDATE+4*, BDMG~, PROC+5, HEADER1+5
BGPET	DONE+4!
>> BGPGPRAH	PROC+2*, PROC+6, DONE+5, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13 , PRINT+14
>> BGPGPRAJ	PROC+2*, PROC+6, DONE+5, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13 , PRINT+14
>> BGPGUI	BDMG+3*, PRINT+1, HEADER1+2
>> BGPHOME	ZIS+2*
>> BGPI	PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+14
BGPIEN	BDMG+4~, BDMG+15, BDMG+16, BDMG+17, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BGPIISO	PROC+11*
>> BGPIND(	ENDDATE+13*
>> BGPINDG	ZIS+1, BDMG+6
>> BGPIOSL	PRINT+1*, PRINT+7
>> BGPISST	PROC+11*
>> BGPLIST	ENDDATE+25*
BGPM	DONE+4!
>> BGPMJ	SELPT+14, SELPT+15, LIST+1, LIST+2, LIST+3
BGPMK	LIST+1*, LIST+5!
>> BGPNAME	PRINT+5*, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14
>> BGPNOD	PRINT+2, PRINT+3
BGPNOW	BDMG+4~, BDMG+8, BDMG+11, ENDLOG+2, ENDLOG+3
BGPOPT	BDMG+4~, BDMG+5*, BDMG+11
>> BGPPBD	ENDDATE+5*
>> BGPPED	ENDDATE+5*
>> BGPPER	ENDDATE+7*
>> BGPPG	PRINT+2, HEADER+1, HEADER1+1, HEADER1+2, HEADER1+3
BGPQ	PRINT+2!, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, HEADER+2*
>> BGPQTR	ENDDATE+7*
>> BGPRTYPE	ZIS+1, BDMG+6
BGPS	DONE+4!
>> BGPSD	BDMG+2*
>> BGPSMI	SELPT+2, SELPT+14, SELPT+17*
>> BGPSOX	PROC+9*, PROC+10
BGPSPAT	SELPT+1!, SELPT+14, SELPT+17, SELPT+19!, LIST+1*
BGPSPAT(	SELPT+14, SELPT+17, PROC+9, PROC+10, LIST+1
BGPSPAT(""	SELPT+20
>> BGPT	PRINT+11*, PRINT+15
>> BGPT1	PRINT+12*, PRINT+16
BGPTS	DONE+4!
>> BGPX	PRINT+13*, PRINT+16
>> BGPX1	PRINT+14*, PRINT+17
>> BGPYGPU	ZIS+1, BDMG+6
>> BGPYRPTH	ZIS+1, BDMG+6
>> C	GUIEP+5, GUIEP+8, GUIEP+9
D0	BDMG+9!
DA	BDMG+14!, GUIEP+10, ENDLOG+3, ENDLOG+5!
DD	BDMG+9!
DFN	EOJ+2!, PROC+10, PRINT+6, PRINT+8, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+14
DFOUT	EOP+4!
DIADD	BDMG+12*, BDMG+14!
DIC	SELPT+12!, SELPT+16!, EOJ+2!, BDMG+9!, BDMG+12*, BDMG+14!
DIC("DR"	BDMG+11*
DIC("S"	SELPT+12*
DIC(0	SELPT+12, SELPT+16, BDMG+12*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+10*
DIR	PATS+5!, SELPT+8!, EOJ+2!, DONE+1!, DONE+2!, HEADER+2!, EOP+3!, LIST+3!, LIST+4!
DIR("?"	SELPT+5, SELPT+6, SELPT+7*
DIR("??"	SELPT+7*
DIR("A"	PATS+5, SELPT+4, DONE+2, EOP+5
DIR(0	PATS+5, SELPT+4, DONE+2, HEADER+2, EOP+5, LIST+3
DIRUT	DONE+2*, EOP+4!, LIST+3!
DLAYGO	BDMG+12*, BDMG+14!
DLOUT	EOP+4!
DR	ENDLOG+3*, ENDLOG+5!
DT	GUIEP+9, PROC+7, HEADER1+3
DTOUT	HEADER+2, EOP+4!, LIST+3!
DUOUT	DONE+2, EOP+4!, LIST+3!
DUZ	BDMG+10, BDMG+11, HEADER1+3, USR+1
DUZ(2	ZIS+2, PRINT+8, LOC+1
IO	DONE+2, HEADER+2
IO("S"	EOP+2
IO(0	DONE+2, HEADER+2
IOF	EP+2, HEADER1+1
IOM	GUIEP+3*, CTR+1
IOSL	PRINT+1, PRINT+10, LIST+1, LIST+2
IOST	DONE+2, HEADER+2, EOP+1
>> IOT	EOP+2
U	SELPT+3, SELPT+9, SELPT+19, ZIS+2, ENDDATE+4, ENDDATE+5, ENDDATE+6, ENDDATE+7, PRINT+8, PRINT+11 , PRINT+12, PRINT+13, PRINT+14, HEADER1+3, USR+1, LOC+1, LIST+1
X	EP+4, SELPT+3, SELPT+9, SELPT+10, SELPT+11, SELPT+12, SELPT+19, ENDDATE+2, ENDDATE+3, ENDDATE+13* , BDMG+10, GUIEP+5, GUIEP+6, GUIEP+8, PRINT+16, PRINT+17, HEADER1+5, HEADER1+6, CTR~, CTR+1 , LIST+1, LIST+4*
>> XBNS	ENDDATE+30*
>> XBRC	ENDDATE+30*
>> XBRP	ENDDATE+30*
>> XBRX	ENDDATE+30*
Y	SELPT+13, SELPT+14, SELPT+17, ENDDATE+3, ENDDATE+4, ENDDATE+5, ENDDATE+6, ENDDATE+7, BDMG+15, BDMG+16 , PRINT+16, PRINT+17, HEADER+2, CTR~, CTR+1, LIST+3
>> ZTDESC	BDMG+20*
>> ZTDTH	BDMG+20*
>> ZTIO	BDMG+20*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+13*
>> ZTRTN	BDMG+20*
ZTSAVE	BDMG+19!
ZTSAVE("*"	BDMG+19*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DPAP

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: