©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
INHVCRAP ;JKB ; 22 Oct 1999 17:31 ; PWS-specific ApS Code
Source file <INHVCRAP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEST | ; determine destination for an inbound PWS 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 PWS
; the lines QRY^Q01,ADT^*, SRM^* are added to support DDSA |
| Name | Field # of Occurrence |
|---|---|
| LOG^INHVCRA1 | DEST+25 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHD("B" | DEST+26 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DEST+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | DEST+16~, DEST+22*, DEST+23* |
| >> INANYONE | DEST+19* |
| >> INDELIM | DEST+18, DEST+23 |
| >> INDEST | DEST+22* |
| >> INDEST( | DEST+22*, DEST+26 |
| >> INDST | DEST+26* |
| INDSTP | DEST+15!, DEST+26* |
| >> INEVN | DEST+24 |
| >> ING | DEST+23 |
| INMSGTP | DEST+16~, DEST+17*, DEST+24 |
| >> INMSH | DEST+18 |
| INORTYP | DEST+16~, DEST+18*, DEST+23*, DEST+24 |
| INRECV | DEST+16~, DEST+18* |
| INSEND | DEST+16~, DEST+18*, DEST+19 |
| >> INTYP | DEST+23, DEST+24 |
| U | DEST+22 |
| X | DEST+16~, DEST+22*, DEST+23*, DEST+24*, DEST+25, DEST+26 |
| Name | Field # of Occurrence |
|---|---|
| $T(DESTTXT+I | DEST+22 |