BGP4GNPL ; IHS/CMI/LAB - IHS Diabetes Audit 2003 26 Mar 2010 5:09 PM ;
Source file <BGP4GNPL.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 3 | ^BGP4D1 REPORT^BGP4UTL 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 | 2 | BGP4GR BGP4GRA |
Name | Comments | DBIA/ICR reference |
---|---|---|
EP(BGPRET,BGPUSER,BGPDUZ2,BGPOPTN,BGPTAXI,BGPIND,BGPINDL,BGPQTR,BGPPER,BGPLIST,BGPLPRV,BGPLPROV,BGPROT,BGPRTIME,BGPMFITI,BGPVDT,BGPBEN,BGPFILE,BGPDNT) | ;EP - called from GUI to produce national gpra report (NTL-GP)
; SEE ROUTINE BGP4NPL 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 14 INDICATORS file. When ; you present them to the user for selection use the ; ^BGPINDJ("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 14 NATIONAL PATIENT LISTS that point to that ; measure by using the "B" index on ^BGPNPLJ(. ^BGPNPLJ("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)="" |
|
TESTNTL | ;
|
|
ENDLOG | ;-- UPDATE LOG AT END
|
|
EP1 | ;
|
|
XIT | ;
|
|
TSKMN | ;
|
|
NTLGP | ;
|
|
BY | ;get baseline year
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^BGPGUIJ - [#90552.19] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ATXAX - [#9002226] | EP1+6, EP1+33, EP1+34 |
^BGPDATA | XIT+12 |
^BGPGUIJ - [#90552.19] | NTLGP+11*, NTLGP+12* |
^BGPSITE - [#90241.02] | BY+9 |
^TMP($J | NTLGP+2!, NTLGP+6, NTLGP+9, NTLGP+13!, XIT+1! |
^VA(200 - [#200] | EP1+25 |
Name | Line Occurrences |
---|---|
ENDLOG | NTLGP+15 |
EP | TESTNTL+5 |
EP1 | EP+64 |
TSKMN | BY+25 |
XIT | NTLGP+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | XIT+7! |
B | XIT+7! |
BD | XIT+9! |
>> BGPBBD | BY+4* |
>> BGPBD | EP1+36*, EP1+37*, EP1+38*, EP1+39*, EP1+40*, BY+4, BY+6 |
>> BGPBED | BY+5* |
BGPBEN | EP~, EP1+16 |
BGPDATA | NTLGP+8~, NTLGP+9*, NTLGP+10*, NTLGP+11 |
>> BGPDELT | BY+14* |
BGPDNT | EP~ |
BGPDUZ2 | EP~, EP1+3, EP1+21 |
>> BGPED | EP1+36*, EP1+37*, EP1+38*, EP1+39*, EP1+40*, 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 |
>> BGPINDJ | EP1+27*, EP1+31*, BY+10* |
BGPINDL | TESTNTL+5, EP~, EP1+9 |
BGPINDL(0 | EP1+10 |
BGPINDL(3 | TESTNTL+3* |
BGPINDL(4 | TESTNTL+4* |
>> BGPIOSL | EP1+26*, NTLGP+3* |
BGPLIST | EP~, EP1+14, EP1+17 |
BGPLPROV | EP~, EP1+25* |
BGPLPRV | EP~, EP1+17, EP1+25 |
BGPMFITI | EP~ |
>> BGPND | TESTNTL+5 |
>> BGPND(3 | TESTNTL+2* |
>> BGPND(4 | TESTNTL+2* |
>> BGPNPL | EP1+27*, EP1+31* |
>> BGPONMR | EP1+31* |
BGPOPTN | EP~, EP1+4, EP1+30, BY+20 |
>> BGPPBD | BY+6* |
>> BGPPED | BY+7* |
BGPPER | EP~, EP1+11, EP1+36, EP1+37, EP1+38, EP1+39, EP1+40*, BY+2 |
BGPQTR | EP~, EP1+12, EP1+36, EP1+37, EP1+38, EP1+39, EP1+40 |
>> 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*, EP1+31* |
BGPRTIME | EP~, EP1+18*, BY+20, TSKMN+3 |
>> BGPRTYPE | EP1+27*, EP1+31* |
BGPTAX | EP1+32! |
BGPTAX( | EP1+34* |
BGPTAXI | EP~, EP1+5, EP1+6, EP1+33, EP1+34 |
BGPUSER | EP~, EP1+2, BY+20 |
BGPVDT | EP~, EP1+15, BY+2 |
>> BGPYGPU | EP1+27*, EP1+31* |
>> BGPYRPTH | EP1+27*, EP1+31* |
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+26*, 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+25, EP1+34, BY+9 |
V | XIT+7! |
W | XIT+7! |
X | TESTNTL+3*, TESTNTL+4*, EP1+32*, EP1+33*, EP1+34, 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* |