©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGP0GNST ; IHS/CMI/LAB - IHS Diabetes Audit 2003 ;
Source file <BGP0GNST.m>
| 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 |
| 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
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BGPGUIT - [#90378.08] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX - [#9002226] | EP1+6, EP1+25, EP1+26 |
| ^BGPDATA | XIT+12 |
| ^BGPGUIT - [#90378.08] | NTLGP+11*, NTLGP+12* |
| ^BGPSITE - [#90241.02] | BY+8 |
| ^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+23 |
| XIT | NTLGP+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | XIT+7! |
| B | XIT+7! |
| BD | XIT+9! |
| >> BGP0GPU | EP1+23* |
| >> BGP0NPLT | EP1+23* |
| >> BGP0RPTH | EP1+23* |
| >> BGPBBD | BY+3* |
| >> BGPBD | EP1+29*, EP1+30*, EP1+31*, EP1+32*, EP1+33*, 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+33*, BY+4, BY+6 |
| BGPFILE | EP~, BY+16 |
| >> BGPGIEN | BY+21*, BY+24, NTLGP+11, NTLGP+12, ENDLOG+1 |
| >> BGPGUI | EP1+21* |
| >> BGPHOME | BY+8* |
| 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+23*, BY+9* |
| >> 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+28, EP1+29, EP1+30, EP1+31, EP1+32, EP1+33*, 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~, EP1+28*, BY+1 |
| C | NTLGP+6*, NTLGP+7*, NTLGP+11, NTLGP+12, XIT+7! |
| D | 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* |