Routine: BGP8GNST

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

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP8GR

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 BGP8NPL 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 18 INDICATORS file. When ; you present them to the user for selection use the ; ^BGPINDR("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 18 NATIONAL PATIENT LISTS that point to that ; measure by using the "B" index on ^BGPNPLR(. ^BGPNPLR("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
^BGP8D1	NTLGP+1
UPLOG^BGP8GUA	TSKMN+4
REPORT^BGP8UTL	BY+10
GUIR^BGPXBLM	NTLGP+4
FILE^DICN	BY+19
^DIE	ENDLOG+2
^XBFMK	BY+15, XIT+11
^XBKVAR	EP1+20
EN^XBVK	XIT+2
$$DT^XLFDT	EP1+19
$$FMADD^XLFDT	EP1+34
$$NOW^XLFDT	TESTNTL+5, BY+18, TSKMN+3, ENDLOG+1

Interaction Calls

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

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)
^ATXAX - [#9002226]	EP1+6, EP1+25, EP1+26
^BGPDATA	XIT+12
^BGPGUIR - [#90560.19]	NTLGP+11, NTLGP+12
^BGPSITE - [#90241.02]	BY+8
^TMP($J	NTLGP+2!, NTLGP+6, NTLGP+9, NTLGP+13!, XIT+1!

Label References

Name	Line Occurrences
ENDLOG	NTLGP+15
EP	TESTNTL+5
EP1	EP+64
TSKMN	BY+23
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!
>> BGPBBD	BY+3*
>> BGPBD	EP1+29, EP1+30, EP1+31, EP1+32, EP1+35, EP1+36, BY+3, BY+5
>> BGPBED	BY+4*
BGPBEN	EP~, BY+7*
BGPDATA	NTLGP+8~, NTLGP+9, NTLGP+10, NTLGP+11
>> BGPDELT	BY+13*
BGPDUZ2	EP~, EP1+3, EP1+18
>> BGPED	EP1+29, EP1+30, EP1+31, EP1+32, EP1+35, EP1+36, BY+4, BY+6
BGPFILE	EP~, BY+16
>> BGPGIEN	BY+21*, BY+24, TSKMN+4, NTLGP+11, NTLGP+12, ENDLOG+1
>> BGPGUI	EP1+21*
>> BGPHOME	BY+8*
BGPIND	EP~, EP1+7
BGPIND(0	EP1+8
>> BGPINDG	EP1+23, BY+9
BGPINDL	TESTNTL+5, EP~, EP1+9
BGPINDL(0	EP1+10
BGPINDL(3	TESTNTL+3*
BGPINDL(4	TESTNTL+4*
>> BGPIOSL	EP1+22, NTLGP+3
BGPLIST	EP~, EP1+14, EP1+15
BGPLPROV	EP~
BGPLPRV	EP~, EP1+15
BGPMFITI	EP~
>> BGPND	TESTNTL+5
>> BGPND(3	TESTNTL+2*
>> BGPND(4	TESTNTL+2*
>> BGPNPL	EP1+23*
BGPOPTN	EP~, EP1+4, BY+18
>> BGPPBD	BY+5*
>> BGPPED	BY+6*
BGPPER	EP~, EP1+11, EP1+29, EP1+30, EP1+31, EP1+32, EP1+34, EP1+35, EP1+36, BY+1
BGPQTR	EP~, EP1+12, EP1+29, EP1+30, EP1+31, EP1+32, EP1+33
>> BGPQUIT	BY+11
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, BY+11, BY+12, BY+20 , BY+24*
BGPROT	EP~, EP1+13, BY+18
>> BGPRPT	BY+12
BGPRTIME	EP~, EP1+16*, BY+18, TSKMN+3
>> BGPRTYPE	EP1+23*
BGPTAX	EP1+24!
BGPTAX(	EP1+26*
BGPTAXI	EP~, EP1+5, EP1+6, EP1+25, EP1+26
BGPUSER	EP~, EP1+2, BY+18
BGPVDT	EP~, BY+1
>> BGPYGPU	EP1+23*
>> BGPYNPLT	EP1+23*
>> BGPYRPTH	EP1+23*
C	NTLGP+6, NTLGP+7, NTLGP+11, NTLGP+12, XIT+7!
D	EP1+34*, EP1+35, EP1+36, XIT+7!
D0	BY+19!
DA	ENDLOG+1*, ENDLOG+3!
DD	BY+19!
DIADD	BY+18*, BY+19!, XIT+4!
>> DIC	BY+18*
>> DIC("DR"	BY+18*
>> DIC(0	BY+18*
DIE	ENDLOG+1*, ENDLOG+3!
DIR	XIT+3!
DIRUT	XIT+3!
DLAYGO	BY+18*, BY+19!, XIT+4!
DO	BY+19!
DOD	XIT+3!
DR	ENDLOG+1*, ENDLOG+3!
DT	EP1+19*, NTLGP+12
DUOUT	XIT+3!
DUZ(2	EP1+18*, BY+8
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+22, 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+26, BY+8
V	XIT+7!
W	XIT+7!
X	TESTNTL+3, TESTNTL+4, EP1+24, EP1+25, EP1+26, BY+1, BY+2, BY+3, BY+4, BY+16* , 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+20, BY+21, 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*
>> ZTSK	TSKMN+4

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8GNST

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: