©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
BGP8GMUH ; IHS/CMI/LAB - GUI MU HOS REPORT ;
Source file <BGP8GMUH.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | UPLOG^BGP8GUA ^BGPMUEHD GUIR^BGPXBLM |
| IHS VA Utilities | 3 | ^XBFMK ^XBKVAR EN^XBVK |
| VA Fileman | 3 | C^%DTC FILE^DICN ^DIE |
| Kernel | 2 | ^%ZTLOAD ($$DT,$$FMADD,$$NOW)^XLFDT |
| IHS Patient | 1 | KILL^AUPNPAT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PY | ;get previous year
|
|
| ENDLOG | ;-- UPDATE LOG AT END
|
|
| EP1 | ;
|
|
| MU | ;EP
|
|
| HI | ;-- get all mu hospital indicators
|
|
| XIT | ;
|
|
| TSKMN | ;
|
|
| TESTMU | ;
|
|
| EP(BGPRET,BGPUSER,BGPDUZ2,BGPOPTN,BGPTAXI,BGPINDT,BGPIND,BGPQTR,BGPPER,BGPVDT,BGPBEN,BGPLSTT,BGPLIST,BGPPRV,BGPPROV,BGPROT,BGPRTIME,BGPMFITI,BGPFILE) | ;EP - called from GUI to produce COM REPORT CI05-RPT-LOC-COM
; SEE ROUTINE BGP8DL if you have questions about any of these variables ; BGPUSER - DUZ ; BGPDUZ2 - DUZ(2) ; BGPOPTN - OPTION NAME ; BGPINDT - $E (1st character) of the answer to the following DIR call: ; value will be a S, C, M, A ; Select one of the following: |
|
| BY | ;get baseline year
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | PY+3, PY+6 |
| ^%ZTLOAD | TSKMN+3 |
| KILL^AUPNPAT | XIT+5, XIT+10 |
| UPLOG^BGP8GUA | TSKMN+4 |
| ^BGPMUEHD | MU+1 |
| GUIR^BGPXBLM | MU+4 |
| FILE^DICN | PY+18 |
| ^DIE | ENDLOG+2 |
| ^XBFMK | PY+13, XIT+11 |
| ^XBKVAR | EP1+24 |
| EN^XBVK | XIT+2 |
| $$DT^XLFDT | EP1+23 |
| $$FMADD^XLFDT | BY+5 |
| $$NOW^XLFDT | TESTMU+4, PY+17, 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) |
|---|---|
| ^BGPDATA | XIT+12 |
| ^BGPGUIR - [#90560.19] | MU+11*, MU+12* |
| ^BGPMUIND( | HI+1 |
| ^TMP($J | MU+2!, MU+6, MU+9, MU+13!, XIT+1! |
| Name | Line Occurrences |
|---|---|
| ENDLOG | MU+15 |
| EP | TESTMU+4 |
| EP1 | EP+55 |
| HI | EP1+32 |
| TSKMN | PY+23 |
| XIT | MU+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | XIT+7! |
| B | XIT+7! |
| BD | XIT+9! |
| >> BGP0RPTH | EP1+30* |
| >> BGPBBD | PY+10* |
| >> BGPBD | BY+3*, BY+4*, PY+2, PY+10 |
| >> BGPBED | PY+11* |
| BGPBEN | EP~, EP1+14 |
| BGPDATA | MU+8~, MU+9*, MU+10*, MU+11 |
| >> BGPDELT | PY+21* |
| BGPDUZ2 | EP~, EP1+3, EP1+22 |
| >> BGPED | BY+5*, PY+5, PY+11 |
| BGPFILE | EP~, PY+14 |
| >> BGPGFNM | PY+16* |
| >> BGPGIEN | PY+20*, PY+24, TSKMN+4, MU+11, MU+12, ENDLOG+1 |
| >> BGPGUI | EP1+25* |
| BGPIND | EP~, EP1+7, EP1+9, EP1+32! |
| BGPIND( | HI+1* |
| BGPIND(0 | EP1+8, EP1+10 |
| BGPINDT | EP~, EP1+5, EP1+6, EP1+7, EP1+8, EP1+9, EP1+10, EP1+28*, EP1+32 |
| >> BGPIOSL | EP1+26*, MU+3* |
| >> BGPLEN | EP1+34*, BY+5 |
| BGPLIST | TESTMU+4, EP~, EP1+18* |
| BGPLIST(3 | TESTMU+3* |
| BGPLSTT | EP~, EP1+16, EP1+18 |
| BGPMFITI | EP~ |
| >> BGPMUT | EP1+31* |
| >> BGPMUYF | EP1+29*, HI+1 |
| >> BGPND | TESTMU+4 |
| >> BGPND(1 | TESTMU+2* |
| >> BGPND(3 | TESTMU+2* |
| BGPOPTN | EP~, EP1+4, PY+17 |
| >> BGPPBD | PY+4* |
| >> BGPPED | PY+7* |
| BGPPER | EP~, EP1+11, BY+1, BY+3, BY+5, PY+8 |
| BGPPROV | EP~, EP1+19* |
| BGPPRV | EP~, EP1+19 |
| BGPQTR | EP~, EP1+12, EP1+34 |
| BGPRET | EP~, EP+56, EP+58*, 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*, PY+19*, PY+24* |
| BGPROT | EP~, EP1+15, PY+17 |
| BGPRTIME | EP~, EP1+17*, PY+17, TSKMN+3 |
| >> BGPRTYPE | EP1+30* |
| BGPTAXI | EP~ |
| BGPUSER | EP~, EP1+2, PY+17 |
| BGPVDT | EP~, EP1+13, BY+1, PY+8 |
| C | MU+6*, MU+7*, MU+11, MU+12, XIT+7! |
| D | XIT+7! |
| D0 | PY+18! |
| DA | ENDLOG+1*, ENDLOG+3! |
| DD | PY+18! |
| DIADD | PY+17*, PY+18!, XIT+4! |
| >> DIC | PY+17* |
| >> DIC("DR" | PY+17* |
| >> DIC(0 | PY+17* |
| DIE | ENDLOG+1*, ENDLOG+3! |
| DIR | XIT+3! |
| DIRUT | XIT+3! |
| DLAYGO | PY+17*, PY+18!, XIT+4! |
| DO | PY+18! |
| DOD | XIT+3! |
| DR | ENDLOG+1*, ENDLOG+3! |
| DT | EP1+23*, MU+12 |
| DUOUT | XIT+3! |
| DUZ(2 | EP1+22* |
| E | XIT+7! |
| ED | XIT+9! |
| >> ERR | TESTMU+1*, TESTMU+4, TESTMU+5 |
| F | XIT+7! |
| G | XIT+7! |
| H | XIT+7! |
| I | XIT+7! |
| >> IOCPU | TSKMN+3 |
| IOM | EP1+26*, MU+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* |
| V | XIT+7! |
| W | XIT+7! |
| X | BY+1*, BY+2*, PY+1~, PY+4, PY+7, PY+8*, PY+9*, PY+10, PY+11, PY+14* , PY+16, MU+6*, MU+9, XIT+6!, XIT+7!, HI+1* |
| X1 | PY+1~, PY+2*, PY+5*, XIT+6! |
| X2 | PY+1~, PY+2*, PY+5*, XIT+6! |
| X3 | XIT+6! |
| X4 | XIT+6! |
| X5 | XIT+6! |
| X6 | XIT+6! |
| Y | EP+56*, EP+58, PY+19, PY+20, 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 |