©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
BGP3GUPL ; IHS/CMI/LAB - GUI Upload ;
Source file <BGP3GUPL.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS GPRA Information System | 3 | GETIEN^BGP3EUTL GETIEN^BGP3PUTL GETIEN^BGP3UTL |
| Kernel | 3 | ^%ZISC ($$OPEN,$$STATUS)^%ZISH $$DT^XLFDT |
| IHS VA Utilities | 2 | ^XBFMK ^XBKVAR |
| VA Fileman | 2 | FILE^DICN (,IX1)^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AOUPL | ;
|
|
| STRIP(Z) | ;REMOVE CONTROLL CHARACTERS
|
|
| ELCY | ;
|
|
| PROCPED | ;
|
|
| EP(BGPRET,BGPUSER,BGPDUZ2,BGPOPTN,BGPDIR,BGPFILE,BGPRTIME) | ;EP - called from GUI to produce COM REPORT CI05-AO-UPL
; SEE ROUTINE BGP3DL if you have questions about any of these variables ; BGPUSER - DUZ ; BGPDUZ2 - DUZ(2) ; BGPOPTN - OPTION NAME ; BGPFILE - FILE TO UPLOAD |
|
| READF | ;EP read file
|
|
| EOJ | ;EP
|
|
| PEDCY | ;
|
|
| PY | ;
|
|
| PROCEL | ;
|
|
| EP1 | ;
|
|
| CY | ;
|
|
| ELPY | ;
|
|
| ELBY | ;
|
|
| PEDBY | ;
|
|
| PROC | ;
|
|
| BY | ;
|
|
| PEDPY | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZISC | READF+7 |
| $$OPEN^%ZISH | READF+3 |
| $$STATUS^%ZISH | READF+6 |
| GETIEN^BGP3EUTL | PROCEL+27 |
| GETIEN^BGP3PUTL | PROCPED+27 |
| GETIEN^BGP3UTL | PROC+31 |
| FILE^DICN | CY+3, PY+3, BY+3, ELCY+3, ELPY+3, ELBY+3, PEDCY+3, PEDPY+3, PEDBY+3 |
| ^DIK | PROC+26, PROCEL+22, PROCPED+22 |
| IX1^DIK | CY+17, PY+17, BY+17, ELCY+17, ELPY+17, ELBY+18, PEDCY+17, PEDPY+17, PEDBY+17 |
| ^XBFMK | PROC+25, CY+6, PY+6, BY+6, PROCEL+21, ELCY+6, ELPY+6, ELBY+6, PROCPED+21, PEDCY+6 , PEDPY+6, PEDBY+6 |
| ^XBKVAR | EP1+11 |
| $$DT^XLFDT | EP1+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| FileNo | Call Tags |
|---|---|
| ^BGPGPDCH - [#90550.03] | Classic Fileman Calls |
| ^BGPGPDPH - [#90550.04] | Classic Fileman Calls |
| ^BGPGPDBH - [#90550.05] | Classic Fileman Calls |
| ^BGPPEDCH - [#90550.12] | Classic Fileman Calls |
| ^BGPPEDPH - [#90550.13] | Classic Fileman Calls |
| ^BGPPEDBH - [#90550.14] | Classic Fileman Calls |
| ^BGPELDCH - [#90551.03] | Classic Fileman Calls |
| ^BGPELDPH - [#90551.04] | Classic Fileman Calls |
| ^BGPELDBH - [#90551.05] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BGPELDBH - [#90551.05] | EOJ+6, PROCEL+26, ELBY+12*, ELBY+13*, ELBY+14*, ELBY+15*, ELBY+16* |
| ^BGPELDCH - [#90551.03] | EOJ+4, PROCEL+24, PROCEL+7, ELCY+11*, ELCY+12*, ELCY+13*, ELCY+14*, ELCY+15* |
| ^BGPELDPH - [#90551.04] | EOJ+5, PROCEL+25, ELPY+11*, ELPY+12*, ELPY+13*, ELPY+14*, ELPY+15* |
| ^BGPGPDBH - [#90550.05] | PROC+30, EOJ+3, BY+11*, BY+12*, BY+13*, BY+14*, BY+15* |
| ^BGPGPDCH - [#90550.03] | PROC+28, EOJ+1, PROC+9, PROC+10, PROC+11, CY+11*, CY+12*, CY+13*, CY+14*, CY+15* |
| ^BGPGPDPH - [#90550.04] | PROC+29, EOJ+2, PY+11*, PY+12*, PY+13*, PY+14*, PY+15* |
| ^BGPPEDBH - [#90550.14] | EOJ+9, PROCPED+26, PEDBY+11*, PEDBY+12*, PEDBY+13*, PEDBY+14*, PEDBY+15* |
| ^BGPPEDCH - [#90550.12] | EOJ+7, PROCPED+24, PROCPED+7, PEDCY+11*, PEDCY+12*, PEDCY+13*, PEDCY+14*, PEDCY+15* |
| ^BGPPEDPH - [#90550.13] | EOJ+8, PROCPED+25, PEDPY+11*, PEDPY+12*, PEDPY+13*, PEDPY+14*, PEDPY+15* |
| ^TMP("BGPUPL" | READF+5!, READF+6*, PROC+4, PROC+5, CY+7, PY+7, BY+7, PROCEL+2, PROCEL+3, ELCY+7 , ELPY+7, ELBY+8, PROCPED+2, PROCPED+3, PEDCY+7, PEDPY+7, PEDBY+7 |
| Name | Line Occurrences |
|---|---|
| $$STRIP | READF+6 |
| EOJ | READF+4, PROC+28, PROC+29, PROC+30, PROC+32, CY+4, PY+4, BY+4, BY+19, PROCEL+24 , PROCEL+25, PROCEL+26, PROCEL+28, ELCY+4, ELPY+4, ELBY+4, ELBY+20, PROCPED+24, PROCPED+25, PROCPED+26 , PROCPED+28, PEDCY+4, PEDPY+4, PEDBY+4, PEDBY+19 |
| EP1 | EP+15 |
| PROCEL | PROC+1 |
| PROCPED | PROC+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EOJ+16! |
| %Y | EOJ+16! |
| A | EOJ+14! |
| B | EOJ+14! |
| BGP | EOJ+16! |
| >> BGP0 | PROC+4*, PROC+6, CY+1, PY+1, BY+1, PROCEL+2*, PROCEL+4, ELCY+1, ELPY+1, ELBY+1 , PROCPED+2*, PROCPED+4, PEDCY+1, PEDPY+1, PEDBY+1 |
| >> BGP1 | PROC+12, PROCEL+8, PROCPED+8 |
| >> BGP10 | PROC+20, PROCEL+16, PROCPED+17 |
| >> BGP11 | PROC+21, PROCEL+17, PROCPED+18 |
| >> BGP12 | PROC+22, PROCEL+18, PROCPED+19 |
| >> BGP14 | PROC+23, PROCEL+19 |
| >> BGP2 | PROC+13, PROCEL+9, PROCPED+9 |
| >> BGP3 | PROC+14, PROCEL+10, PROCPED+10 |
| >> BGP4 | PROC+15, PROCEL+11, PROCPED+11 |
| >> BGP5 | PROC+16, PROCEL+12, PROCPED+12 |
| >> BGP6 | PROC+17, PROCEL+13, PROCPED+13 |
| >> BGP7 | PROCPED+14 |
| >> BGP8 | PROC+18, PROCEL+14, PROCPED+15 |
| >> BGP9 | PROC+19, PROCEL+15, PROCPED+16 |
| BGPC | READF+1~, READF+2*, READF+6* |
| BGPDIR | EP~, EP1+5, READF+3, READF+4 |
| BGPDUZ2 | EP~, EP1+3, EP1+9 |
| BGPFILE | EP~, EP1+6, READF+3, READF+4, PROC+1, PROC+2 |
| >> BGPG | PROC+5*, PROCEL+3*, PROCPED+3* |
| >> BGPGUI | EP1+12* |
| >> BGPIEN | PROC+32, CY+1, CY+5*, CY+11, CY+12, CY+13, CY+14, CY+15, CY+17, PY+1 , PY+5*, PY+11, PY+12, PY+13, PY+14, PY+15, PY+17, BY+1, BY+5*, BY+11 , BY+12, BY+13, BY+14, BY+15, BY+17, PROCEL+28, ELCY+1, ELCY+5*, ELCY+11, ELCY+12 , ELCY+13, ELCY+14, ELCY+15, ELCY+17, ELPY+1, ELPY+5*, ELPY+11, ELPY+12, ELPY+13, ELPY+14 , ELPY+15, ELPY+17, ELBY+1, ELBY+5*, ELBY+12, ELBY+13, ELBY+14, ELBY+15, ELBY+16, ELBY+18 , PROCPED+28, PEDCY+1, PEDCY+5*, PEDCY+11, PEDCY+12, PEDCY+13, PEDCY+14, PEDCY+15, PEDCY+17, PEDPY+1 , PEDPY+5*, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15, PEDPY+17, PEDBY+1, PEDBY+5*, PEDBY+11 , PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15, PEDBY+17 |
| >> BGPIOSL | EP1+13* |
| BGPJ | EOJ+16! |
| BGPLINE | EOJ+16! |
| >> BGPOIEN | PROC+9*, PROC+24*, PROC+26, PROCEL+7*, PROCEL+20*, PROCEL+22, PROCPED+7*, PROCPED+20*, PROCPED+22 |
| BGPOPTN | EP~, EP1+4 |
| BGPRET | EP~, EP+16, EP+18*, EP1+2*, EP1+3*, EP1+4*, EP1+5*, EP1+6*, READF+4*, PROC+28* , PROC+29*, PROC+30*, PROC+32*, CY+4*, PY+4*, BY+4*, PROCEL+24*, PROCEL+25*, PROCEL+26*, PROCEL+28* , ELCY+4*, ELPY+4*, ELBY+4*, PROCPED+24*, PROCPED+25*, PROCPED+26*, PROCPED+28*, PEDCY+4*, PEDPY+4*, PEDBY+4* |
| BGPRTIME | EP~, EP1+7* |
| BGPTEXT | EOJ+16! |
| BGPUSER | EP~, EP1+2 |
| C | EOJ+14! |
| D | CY+10*, CY+11, CY+12, CY+13, CY+14, CY+15, PY+10*, PY+11, PY+12, PY+13 , PY+14, PY+15, BY+10*, BY+11, BY+12, BY+13, BY+14, BY+15, EOJ+14!, ELCY+10* , ELCY+11, ELCY+12, ELCY+13, ELCY+14, ELCY+15, ELPY+10*, ELPY+11, ELPY+12, ELPY+13, ELPY+14 , ELPY+15, ELBY+11*, ELBY+12, ELBY+13, ELBY+14, ELBY+15, ELBY+16, PEDCY+10*, PEDCY+11, PEDCY+12 , PEDCY+13, PEDCY+14, PEDCY+15, PEDPY+10*, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15, PEDBY+10* , PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15 |
| D0 | CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2! |
| DA | PROC+26*, CY+17*, PY+17*, BY+17*, EOJ+16!, PROCEL+22*, ELCY+17*, ELPY+17*, ELBY+18*, PROCPED+22* , PEDCY+17*, PEDPY+17*, PEDBY+17* |
| DD | CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2! |
| DIC | CY+1*, PY+1*, BY+1*, EOJ+16!, ELCY+1*, ELPY+1*, ELBY+1*, PEDCY+1*, PEDPY+1*, PEDBY+1* |
| DIC(0 | CY+1*, PY+1*, BY+1*, ELCY+1*, ELPY+1*, ELBY+1*, PEDCY+1*, PEDPY+1*, PEDBY+1* |
| >> DIK | PROC+26*, CY+17*, PY+17*, BY+17*, PROCEL+22*, ELCY+17*, ELPY+17*, ELBY+18*, PROCPED+22*, PEDCY+17* , PEDPY+17*, PEDBY+17* |
| >> DINUM | CY+1*, PY+1*, BY+1*, ELCY+1*, ELPY+1*, ELBY+1*, PEDCY+1*, PEDPY+1*, PEDBY+1* |
| >> DLAYGO | CY+1*, PY+1*, BY+1*, ELCY+1*, ELPY+1*, ELBY+1*, PEDCY+1*, PEDPY+1*, PEDBY+1* |
| DO | CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2! |
| DT | EP1+10* |
| DTIME | READF+6 |
| DUZ(2 | EP1+9* |
| E | EOJ+14! |
| F | EOJ+14! |
| G | EOJ+14! |
| H | EOJ+14! |
| I | READF+1~, READF+6*, EOJ+14!, STRIP+1~, STRIP+2* |
| IO | READF+6 |
| IOM | EP1+13* |
| IOPAR | EOJ+11! |
| J | EOJ+14! |
| K | EOJ+14! |
| L | EOJ+14! |
| M | EOJ+14! |
| N | CY+10*, CY+11, CY+12, CY+13, CY+14, CY+15, PY+10*, PY+11, PY+12, PY+13 , PY+14, PY+15, BY+10*, BY+11, BY+12, BY+13, BY+14, BY+15, EOJ+14!, EOJ+15! , ELCY+10*, ELCY+11, ELCY+12, ELCY+13, ELCY+14, ELCY+15, ELPY+10*, ELPY+11, ELPY+12, ELPY+13 , ELPY+14, ELPY+15, ELBY+11*, ELBY+12, ELBY+13, ELBY+14, ELBY+15, ELBY+16, PEDCY+10*, PEDCY+11 , PEDCY+12, PEDCY+13, PEDCY+14, PEDCY+15, PEDPY+10*, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15 , PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15 |
| N1 | EOJ+15! |
| N2 | CY+10*, CY+11, CY+12, CY+13, CY+14, PY+10*, PY+11, PY+12, PY+13, PY+14 , BY+10*, BY+11, BY+12, BY+13, BY+14, EOJ+15!, ELCY+10*, ELCY+11, ELCY+12, ELCY+13 , ELCY+14, ELPY+10*, ELPY+11, ELPY+12, ELPY+13, ELPY+14, ELBY+11*, ELBY+12, ELBY+13, ELBY+14 , ELBY+15, PEDCY+10*, PEDCY+11, PEDCY+12, PEDCY+13, PEDCY+14, PEDPY+10*, PEDPY+11, PEDPY+12, PEDPY+13 , PEDPY+14, PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14 |
| N3 | CY+10*, CY+11, CY+12, CY+13, PY+10*, PY+11, PY+12, PY+13, BY+10*, BY+11 , BY+12, BY+13, EOJ+15!, ELCY+10*, ELCY+11, ELCY+12, ELCY+13, ELPY+10*, ELPY+11, ELPY+12 , ELPY+13, ELBY+11*, ELBY+12, ELBY+13, ELBY+14, PEDCY+10*, PEDCY+11, PEDCY+12, PEDCY+13, PEDPY+10* , PEDPY+11, PEDPY+12, PEDPY+13, PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13 |
| N4 | CY+10*, CY+11, CY+12, PY+10*, PY+11, PY+12, BY+10*, BY+11, BY+12, EOJ+15! , ELCY+10*, ELCY+11, ELCY+12, ELPY+10*, ELPY+11, ELPY+12, ELBY+11*, ELBY+12, ELBY+13, PEDCY+10* , PEDCY+11, PEDCY+12, PEDPY+10*, PEDPY+11, PEDPY+12, PEDBY+10*, PEDBY+11, PEDBY+12 |
| N5 | CY+10*, CY+11, PY+10*, PY+11, BY+10*, BY+11, EOJ+15!, ELCY+10*, ELCY+11, ELPY+10* , ELPY+11, ELBY+11*, ELBY+12, PEDCY+10*, PEDCY+11, PEDPY+10*, PEDPY+11, PEDBY+10*, PEDBY+11 |
| N6 | EOJ+15! |
| O | EOJ+14! |
| P | EOJ+14! |
| Q | EOJ+14! |
| R | EOJ+14! |
| S | EOJ+14! |
| T | EOJ+14! |
| U | EP+18, EP1+1*, PROC+6, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18 , PROC+19, PROC+20, PROC+21, PROC+22, PROC+23, CY+1, PY+1, BY+1, PROCEL+4, PROCEL+8 , PROCEL+9, PROCEL+10, PROCEL+11, PROCEL+12, PROCEL+13, PROCEL+14, PROCEL+15, PROCEL+16, PROCEL+17, PROCEL+18 , PROCEL+19, ELCY+1, ELPY+1, ELBY+1, PROCPED+4, PROCPED+8, PROCPED+9, PROCPED+10, PROCPED+11, PROCPED+12 , PROCPED+13, PROCPED+14, PROCPED+15, PROCPED+16, PROCPED+17, PROCPED+18, PROCPED+19, PEDCY+1, PEDPY+1, PEDBY+1 |
| V | CY+7*, CY+8, CY+9*, CY+10, PY+7*, PY+8, PY+9*, PY+10, BY+7*, BY+8 , BY+9*, BY+10, EOJ+14!, ELCY+7*, ELCY+8, ELCY+9*, ELCY+10, ELPY+7*, ELPY+8, ELPY+9* , ELPY+10, ELBY+8*, ELBY+9, ELBY+10*, ELBY+11, PEDCY+7*, PEDCY+8, PEDCY+9*, PEDCY+10, PEDPY+7* , PEDPY+8, PEDPY+9*, PEDPY+10, PEDBY+7*, PEDBY+8, PEDBY+9*, PEDBY+10 |
| W | EOJ+14! |
| X | READF+1~, READF+6*, PROC+6*, PROC+8~, PROC+9*, PROC+10, PROC+11, PROC+24, CY+1*, CY+7* , PY+1*, PY+7*, BY+1*, BY+7*, EOJ+13!, EOJ+14!, EOJ+16!, PROCEL+4*, PROCEL+6~, PROCEL+7* , PROCEL+20, ELCY+1*, ELCY+7*, ELPY+1*, ELPY+7*, ELBY+1*, ELBY+7~, ELBY+8*, PROCPED+4*, PROCPED+6~ , PROCPED+7*, PROCPED+20, PEDCY+1*, PEDCY+7*, PEDPY+1*, PEDPY+7*, PEDBY+1*, PEDBY+7* |
| X1 | EOJ+13! |
| X2 | EOJ+13! |
| X3 | EOJ+13! |
| X4 | EOJ+13! |
| X5 | EOJ+13! |
| X6 | EOJ+13! |
| Y | EP+16*, READF+1~, READF+3*, READF+4, PROC+6*, PROC+11*, PROC+12, PROC+13, PROC+14, PROC+15 , PROC+16, PROC+17, PROC+18, PROC+19, PROC+20, PROC+21, PROC+22, PROC+23, CY+4, CY+5 , PY+4, PY+5, BY+4, BY+5, EOJ+14!, EOJ+16!, PROCEL+4*, PROCEL+7*, PROCEL+8, PROCEL+9 , PROCEL+10, PROCEL+11, PROCEL+12, PROCEL+13, PROCEL+14, PROCEL+15, PROCEL+16, PROCEL+17, PROCEL+18, PROCEL+19 , ELCY+4, ELCY+5, ELPY+4, ELPY+5, ELBY+4, ELBY+5, PROCPED+4*, PROCPED+7*, PROCPED+8, PROCPED+9 , PROCPED+10, PROCPED+11, PROCPED+12, PROCPED+13, PROCPED+14, PROCPED+15, PROCPED+16, PROCPED+17, PROCPED+18, PROCPED+19 , PEDCY+4, PEDCY+5, PEDPY+4, PEDPY+5, PEDBY+4, PEDBY+5 |
| Z | EOJ+14!, STRIP~, STRIP+2*, STRIP+3 |