BGP8GNPL ; IHS/CMI/LAB - CRS 26 Mar 2010 5:09 PM ;
Source file <BGP8GNPL.m>
| 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 | 2 | BGP8GR BGP8GRA | 
| 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 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)="" | |
| TESTNTL | ; | |
| ENDLOG | ;-- UPDATE LOG AT END | |
| EP1 | ; | |
| XIT | ; | |
| TSKMN | ; | |
| NTLGP | ; | |
| BY | ;get baseline year | 
| Name | Field # of Occurrence | 
|---|---|
| ^%ZTLOAD | TSKMN+3 | 
| KILL^AUPNPAT | XIT+5, XIT+10 | 
| ^BGP8D1 | NTLGP+1 | 
| UPLOG^BGP8GUA | TSKMN+4 | 
| REPORT^BGP8UTL | BY+11 | 
| GUIR^BGPXBLM | NTLGP+4 | 
| FILE^DICN | BY+21 | 
| ^DIE | ENDLOG+2 | 
| ^XBFMK | BY+16, XIT+11 | 
| ^XBKVAR | EP1+23 | 
| EN^XBVK | XIT+2 | 
| $$DT^XLFDT | EP1+22 | 
| $$FMADD^XLFDT | EP1+41 | 
| $$NOW^XLFDT | TESTNTL+5, BY+20, TSKMN+3, ENDLOG+1 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^BGPGUIR - [#90560.19] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ATXAX - [#9002226] | EP1+6, EP1+33, EP1+34 | 
| ^BGPDATA | XIT+12 | 
| ^BGPGUIR - [#90560.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+42*, EP1+43*, 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+42*, EP1+43*, BY+5, BY+7 | 
| BGPFILE | EP~, BY+17 | 
| >> BGPGFNM | BY+19* | 
| >> BGPGIEN | BY+23*, BY+26, TSKMN+4, NTLGP+11, NTLGP+12, ENDLOG+1 | 
| >> BGPGUI | EP1+24* | 
| >> BGPHOME | BY+9* | 
| BGPIND | EP~, EP1+7 | 
| BGPIND(0 | EP1+8 | 
| >> BGPINDG | 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+41, EP1+42*, EP1+43*, 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 | EP1+41*, EP1+42, EP1+43, 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* | 
| >> ZTSK | TSKMN+4 |