©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
BCHEXTAP ; IHS/CMI/LAB - GENERATE TAPE OF CHR TRANSACTIONS ;
Source file <BCHEXTAP.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS VA Utilities | 2 | ^XBGSAVE ^XBKVAR |
| VA Fileman | 2 | ^DIC ^DIR |
| IHS RPMS CHR System | 1 | CALLDIE^BCHUTIL |
| MailMan | 1 | ENT^XMPG |
| Package | Total | Caller Graph |
|---|---|---|
| IHS RPMS CHR System | 3 | BCH EXPORT TAPE BCHEXD BCHEXRE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ;AIB SAVE
|
|
| BASICS | ; SET VARIABLES, LOCK GLOBAL, INSURE DATA
|
|
| CONT | ||
| CHKSITE | ; CHECK SITE FILE
|
|
| EOJ | ;
|
|
| GETLOG | ;
|
|
| N | ;network mail transmission
|
|
| START | ;EP
|
|
| EN | ;ENTRY POINT
|
|
| TAPE | ;EP COPY TRANSACTIONS TO TAPE
|
|
| UPDLOG | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BCHXLOG - [#90002.91] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BCHRDATA( | CHKSITE+7, CHKSITE+9, EOJ+1!, N+3* |
| ^BCHRDATA(0 | CHKSITE+8 |
| ^BCHSITE - [#90002.31] | CHKSITE+1, CHKSITE+2, CONT+2 |
| ^BCHXLOG - [#90002.91] | CHKSITE+10 |
| ^DIC(4 - [#4] | N+4 |
| Name | Line Occurrences |
|---|---|
| @( | TAPE+4 |
| BASICS | EN+1, TAPE+2 |
| EN | START+4 |
| EOJ | EN+2, EN+4, UPDLOG+3, TAPE+5 |
| GETLOG | START+2 |
| TAPE | EN+3 |
| UPDLOG | TAPE+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BCH | START+5! |
| BCH("DEF DEVI | CE" , CHKSITE+12*, A+1 |
| BCH("MODE" | TAPE+3*, TAPE+4 |
| BCH("QFLG" | START+1*, EN+2, BASICS+3*, CHKSITE+1*, CHKSITE+2*, CHKSITE+6, CHKSITE+7*, CHKSITE+8*, CHKSITE+9*, CHKSITE+10* , CONT+4*, CONT+5*, EOJ+1, TAPE+5 |
| BCH("QUIT" | BASICS+1!, CHKSITE+11!, CONT+4*, CONT+5*, EOJ+1, TAPE+1! |
| BCH("RUN LOG" | , START+3!, START+5!, GETLOG+1*, GETLOG+4*, CHKSITE+10, UPDLOG+2 |
| BCH("TAPE COU | NT" , BASICS+3* |
| BCH("XX" | EOJ+2! |
| BCHS | START+5! |
| >> BCHV("TX" | EOJ+2! |
| D | EOJ+3! |
| D0 | EOJ+3! |
| DA | GETLOG+2!, CONT+3!, UPDLOG+2!* |
| DIC | GETLOG+2*!, EOJ+3! |
| DIC("S" | GETLOG+2* |
| DIC(0 | GETLOG+2* |
| DIE | UPDLOG+2!* |
| DIR | CONT+3!, EOJ+3! |
| DIR("A" | CONT+3* |
| DIR("B" | CONT+3* |
| DIR(0 | CONT+3* |
| >> DIRUT | CONT+4 |
| DO | EOJ+3! |
| DQ | EOJ+3! |
| DR | UPDLOG+2!* |
| DUZ(2 | BASICS+2, CHKSITE+1, CHKSITE+2, CONT+2, N+4 |
| U | CHKSITE+10, CONT+2, N+3, N+4 |
| >> X | N+3* |
| XBFLG | EOJ+2! |
| XBFLT | A+1*, EOJ+2! |
| XBGL | A+1*, EOJ+2! |
| XBMED | A+1*, EOJ+2! |
| XBNAR | A+1*, EOJ+2! |
| >> XBS1 | A+2* |
| XBTLE | A+1*, EOJ+2! |
| >> XMSUB | N+4* |
| >> XMTEXT | N+6* |
| >> XMY("FILERMASTER@CHR.OMIL.GOV" | N+5* |
| >> Y | GETLOG+3, GETLOG+4, CONT+5 |
| >> ZTQUEUED | CHKSITE+1, CHKSITE+2, CHKSITE+7, CHKSITE+8, CHKSITE+9, CHKSITE+10, CONT, N+6* |