©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
BCHKERM ; IHS/TUCSON/LAB - MOVES KERMIT FILE TO HL7 VIA MAIL SERVER//FJ ; [ 10/28/96 2:05 PM ]
Source file <BCHKERM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ;CREATE SINGLE MAIL MESSAGE FOR EACH ABOVE FILE MSG NUM
|
||
| INIT | ;INIT VARS
|
|
| GENMSG | ;GENERATE MAIL MSG
|
|
| CALLXMB | ;LOOP THRU TMP GLOBAL BY FILE MSG NUMBER
|
|
| EOJ | ;KILL VARS
|
| Name | Field # of Occurrence |
|---|---|
| ^XMD | MAIL+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4.2 - [#4.2] | MAIL+4 |
| ^DIZ(8980 - [#8980] | INIT+2, GENMSG+2, GENMSG+3 |
| ^TMP("BCH" | INIT+1!, GENMSG+3*, CALLXMB+1, EOJ+2! |
| ^XMB(1 - [#4.3] | MAIL+4 |
| Name | Line Occurrences |
|---|---|
| CALLXMB | BCHKERM+5 |
| EOJ | BCHKERM+6 |
| GENMSG | BCHKERM+4 |
| INIT | BCHKERM+3 |
| CALLXMB+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BCHCTR | GENMSG+2*, GENMSG+3*, EOJ+1! |
| >> BCHLINE | INIT+2*, GENMSG+1 |
| BCHNUM | INIT+2*, GENMSG+2*, GENMSG+3, EOJ+1! |
| BCHVAR | EOJ+1! |
| BCHVAR("IS DO | MAIN" , MAIL+5*, MAIL+7 |
| BCHVAR("S.RTM" | MAIL+6*, MAIL+7 |
| BCHX | GENMSG+1*, GENMSG+2, GENMSG+3, CALLXMB+1*, MAIL+2, MAIL+3, EOJ+1! |
| U | INIT+2, GENMSG+2, MAIL+4 |
| >> X | MAIL+7*, MAIL+8 |
| >> XMDUZ | MAIL+1* |
| XMSUB | MAIL+3*, MAIL+9! |
| XMTEXT | MAIL+2*, MAIL+9! |
| XMY | MAIL+9! |
| XMY( | MAIL+8* |
| XTKDA | INIT+2, GENMSG+2, GENMSG+3, EOJ+1! |
| XTKFILE | MAIL+3, EOJ+1! |
| >> Y | MAIL+4*, MAIL+5, MAIL+7*, MAIL+8 |