©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
INHVCRAB ;JKB ; 8 Jul 95 15:57; BCC-specific ApS Code
Source file <INHVCRAB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEST | ; determine destination for an inbound BCC message
; Note : this code is eXec'd from IN^INHUSEN where the context ; includes the input vars & expects the output vars doc'd below ; Input : ING (req) = var name for inbound data array ; INTYP (req) = msg type ; INEVN (req) = event type ; INMSH (req) = MSH segment ; INDELIM (req) = segment delimeter ; Output: void ; INDST = INTERFACE DESTINATION Name ; INDSTP = INTERFACE DESTINATION ptr (undef if no destination) ; INDEST = array of valid inbound destinations ; Local : INORTYP = ORDER TYPE (ZOR:1) ; INRECV = receiving app (MSH:5) ; INSEND = sending app (MSH:3) |
|
| DESTTXT | ; the following lines are used by DEST to build INDEST() for BCC
|
| Name | Field # of Occurrence |
|---|---|
| LOG^INHVCRA1 | DEST+22 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHD("B" | DEST+23 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DEST+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | DEST+16~, DEST+19*, DEST+20* |
| >> INDELIM | DEST+17, DEST+20 |
| >> INDEST | DEST+19* |
| >> INDEST( | DEST+19*, DEST+23 |
| >> INDST | DEST+23* |
| INDSTP | DEST+15!, DEST+23* |
| >> INEVN | DEST+21 |
| >> ING | DEST+20 |
| >> INMSH | DEST+17 |
| INORTYP | DEST+16~, DEST+17*, DEST+20*, DEST+21 |
| INRECV | DEST+16~, DEST+17* |
| INSEND | DEST+16~, DEST+17* |
| >> INTYP | DEST+20, DEST+21 |
| U | DEST+19 |
| X | DEST+16~, DEST+19*, DEST+20*, DEST+21*, DEST+22, DEST+23 |
| Name | Field # of Occurrence |
|---|---|
| $T(DESTTXT+I | DEST+19 |