Routine: BGP0GNPL

Package	Total	Call Graph
IHS VA Utilities	4	^XBFMK ^XBKVAR GUIR^XBLM EN^XBVK
IHS GPRA Information System	2	^BGP0D1 REPORT^BGP0UTL
Kernel	2	^%ZTLOAD ($$DT,$$FMADD,$$NOW)^XLFDT
VA Fileman	2	FILE^DICN ^DIE
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

IHS VA Utilities

^XBFMK ^XBKVAR GUIR^XBLM EN^XBVK

IHS GPRA Information System

^BGP0D1 REPORT^BGP0UTL

Kernel

^%ZTLOAD ($$DT,$$FMADD,$$NOW)^XLFDT

VA Fileman

FILE^DICN ^DIE

IHS Patient

KILL^AUPNPAT

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP0GR BGP0GRA

Package

Total

Caller Graph

IHS GPRA Information System

BGP0GR BGP0GRA

Entry Points

Name	Comments	DBIA/ICR reference
TESTNTL	;
EP(BGPRET,BGPUSER,BGPDUZ2,BGPOPTN,BGPTAXI,BGPIND,BGPINDL,BGPQTR,BGPPER,BGPLIST,BGPLPRV,BGPLPROV,BGPROT,BGPRTIME,BGPMFITI,BGPVDT,BGPBEN,BGPFILE)	;EP - called from GUI to produce national gpra report (NTL-GP) ; SEE ROUTINE BGP0NPL if you have questions about any of these variables ; BGPUSER - DUZ ; BGPDUZ2 - DUZ(2) ; BGPOPTN - OPTION NAME ; BGPTAXI - IEN OF COMMUNITY TAXONOMY NAME ; BGPIND - array containing iens of the measures selected by the user ; for example, BGPIND(3)="" ; BGPIND(6)="" if the user selected measures ; 1 and 6 from the BGP 10 INDICATORS file. When ; you present them to the user for selection use the ; ^BGPINDT("AGPRA",1,ien) xref as the ones with a second ; subscript of 1 are the GPRA measures. Or you can set ; DIC("S")="I $P(^(0),U,7)=1" , if the 7th piece is one ; then show that measure to the user. ; BGPINDL - array containing the lists wanted for each measure selected ; and put in array BGPIND, you will loop through the measures they ; selected and you put in BGPIND and then display to the user the ; entries from BGP 10 NATIONAL PATIENT LISTS that point to that ; measure by using the "B" index on ^BGPNPLT(. ^BGPNPLT("B",measure ien,ien) ; For example, measure 3 Nephropathy assessment has 4 lists available: ; Documented A1c, No Documented A1c, Poor Glycemic Control, Ideal Glycemic Control ; If the user wants lists 1 and 2 the array would look like: ; BGPINDL(3,2)="" ; BGPINDL(3,3)=""
ENDLOG	;-- UPDATE LOG AT END
EP1	;
XIT	;
TSKMN	;
NTLGP	;
BY	;get baseline year

External References

Name	Field # of Occurrence
^%ZTLOAD	TSKMN+3
KILL^AUPNPAT	XIT+5, XIT+10
^BGP0D1	NTLGP+1
REPORT^BGP0UTL	BY+11
FILE^DICN	BY+21
^DIE	ENDLOG+2
^XBFMK	BY+16, XIT+11
^XBKVAR	EP1+23
GUIR^XBLM	NTLGP+4
EN^XBVK	XIT+2
$$DT^XLFDT	EP1+22
$$FMADD^XLFDT	EP1+39
$$NOW^XLFDT	TESTNTL+5, BY+20, TSKMN+3, ENDLOG+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ERR Line Location: TESTNTL+6
Routine Call	DIE Line Location: ENDLOG+2

FileNo	Call Tags
^BGPGUIT - [#90378.08]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	EP1+6, EP1+32, EP1+33
^BGPDATA	XIT+12
^BGPGUIT - [#90378.08]	NTLGP+11, NTLGP+12
^BGPSITE - [#90241.02]	BY+9
^TMP($J	NTLGP+2!, NTLGP+6, NTLGP+9, NTLGP+13!, XIT+1!

Name	Line Occurrences
ENDLOG	NTLGP+15
EP	TESTNTL+5
EP1	EP+64
TSKMN	BY+25
XIT	NTLGP+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	XIT+7!
B	XIT+7!
BD	XIT+9!
>> BGP0GPU	EP1+26, EP1+28, EP1+30*
>> BGP0RPTH	EP1+26, EP1+28, EP1+30*
>> BGPBBD	BY+4*
>> BGPBD	EP1+35, EP1+36, EP1+37, EP1+38, EP1+39*, BY+4, BY+6
>> BGPBED	BY+5*
BGPBEN	EP~, EP1+16
BGPDATA	NTLGP+8~, NTLGP+9, NTLGP+10, NTLGP+11
>> BGPDELT	BY+14*
BGPDUZ2	EP~, EP1+3, EP1+21
>> BGPED	EP1+35, EP1+36, EP1+37, EP1+38, EP1+39*, BY+5, BY+7
BGPFILE	EP~, BY+17
>> BGPGFNM	BY+19*
>> BGPGIEN	BY+23*, BY+26, NTLGP+11, NTLGP+12, ENDLOG+1
>> BGPGUI	EP1+24*
>> BGPHOME	BY+9*
BGPIND	EP~, EP1+7
BGPIND(0	EP1+8
BGPINDL	TESTNTL+5, EP~, EP1+9
BGPINDL(0	EP1+10
BGPINDL(3	TESTNTL+3*
BGPINDL(4	TESTNTL+4*
>> BGPINDT	EP1+26, EP1+28, EP1+30, BY+10
>> BGPIOSL	EP1+25, NTLGP+3
BGPLIST	EP~, EP1+14, EP1+17
BGPLPROV	EP~
BGPLPRV	EP~, EP1+17
BGPMFITI	EP~
>> BGPND	TESTNTL+5
>> BGPND(3	TESTNTL+2*
>> BGPND(4	TESTNTL+2*
>> BGPNPL	EP1+26, EP1+28, EP1+30*
>> BGPONMR	EP1+28, EP1+30
BGPOPTN	EP~, EP1+4, EP1+27, EP1+29, BY+20
>> BGPPBD	BY+6*
>> BGPPED	BY+7*
BGPPER	EP~, EP1+11, EP1+35, EP1+36, EP1+37, EP1+38, EP1+39*, BY+2
BGPQTR	EP~, EP1+12, EP1+35, EP1+36, EP1+37, EP1+38, EP1+39
>> BGPQUIT	BY+12
BGPRET	EP~, EP+65, EP+67, EP1+2, EP1+3, EP1+4, EP1+5, EP1+6, EP1+7, EP1+8 , EP1+9, EP1+10, EP1+11, EP1+12, EP1+13, EP1+14, EP1+15, EP1+16, EP1+17, BY+12 , BY+13, BY+22, BY+26*
BGPROT	EP~, EP1+13, BY+20
>> BGPRPT	BY+13
>> BGPRTC	EP1+19*
BGPRTIME	EP~, EP1+18*, BY+20, TSKMN+3
>> BGPRTYPE	EP1+26, EP1+28, EP1+30*
BGPTAX	EP1+31!
BGPTAX(	EP1+33*
BGPTAXI	EP~, EP1+5, EP1+6, EP1+32, EP1+33
BGPUSER	EP~, EP1+2, BY+20
BGPVDT	EP~, EP1+15, BY+2
C	NTLGP+6, NTLGP+7, NTLGP+11, NTLGP+12, XIT+7!
D	XIT+7!
D0	BY+21!
DA	ENDLOG+1*, ENDLOG+3!
DD	BY+21!
DIADD	BY+20*, BY+21!, XIT+4!
>> DIC	BY+20*
>> DIC("DR"	BY+20*
>> DIC(0	BY+20*
DIE	ENDLOG+1*, ENDLOG+3!
DIR	XIT+3!
DIRUT	XIT+3!
DLAYGO	BY+20*, BY+21!, XIT+4!
DO	BY+21!
DOD	XIT+3!
DR	ENDLOG+1*, ENDLOG+3!
DT	EP1+22*, NTLGP+12
DUOUT	XIT+3!
DUZ(2	EP1+21*, BY+9
E	XIT+7!
ED	XIT+9!
>> ERR	TESTNTL+1*, TESTNTL+5, TESTNTL+6
F	XIT+7!
G	XIT+7!
H	XIT+7!
I	XIT+7!
>> IOCPU	TSKMN+3
IOM	EP1+25, NTLGP+3
J	XIT+7!
K	XIT+7!
L	XIT+7!
M	XIT+7!
N	XIT+7!, XIT+8!
N1	XIT+8!
N2	XIT+8!
N3	XIT+8!
N4	XIT+8!
N5	XIT+8!
N6	XIT+8!
O	XIT+7!
P	XIT+7!
Q	XIT+7!
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	EP1+1*, EP1+33, BY+9
V	XIT+7!
W	XIT+7!
X	TESTNTL+3, TESTNTL+4, EP1+31, EP1+32, EP1+33, BY+2, BY+3, BY+4, BY+5, BY+17* , BY+19, NTLGP+6*, NTLGP+9, XIT+6!, XIT+7!
X1	XIT+6!
X2	XIT+6!
X3	XIT+6!
X4	XIT+6!
X5	XIT+6!
X6	XIT+6!
Y	EP+65*, EP+67, BY+22, BY+23, XIT+7!
Z	XIT+7!
>> ZTCPU	TSKMN+3*
>> ZTDESC	TSKMN+3*
>> ZTDTH	TSKMN+3*
>> ZTIO	TSKMN+1*
>> ZTQUEUED	XIT+2
>> ZTREQ	XIT+2*
>> ZTRTN	TSKMN+3*
ZTSAVE	TSKMN+2!
ZTSAVE("*"	TSKMN+2*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0GNPL

Information

Source Information

Call Graph

Call Graph Total: 11

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

Local Variables

Legend: