INHVCRAC ;JKB ; 6 Apr 96 16:22; CIW-specific ApS Code
Source file <INHVCRAC.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) |
|
| DISP | ;Display
|
|
| DESTTXT | ; the following lines are used by DEST to build INDEST() for CIW
|
| Name | Field # of Occurrence |
|---|---|
| LOG^INHVCRA1 | DEST+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHD("B" | DEST+25 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DEST+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | DEST+16~, DEST+21*, DEST+22*, DISP+3* |
| >> INANYONE | DEST+18* |
| >> INDELIM | DEST+19, DEST+22 |
| >> INDEST | DEST+21* |
| >> INDEST( | DEST+21*, DEST+25 |
| >> INDST | DEST+25* |
| INDSTP | DEST+15!, DEST+25* |
| >> INEVN | DEST+23 |
| >> ING | DEST+22 |
| >> INMSH | DEST+19 |
| INORTYP | DEST+16~, DEST+19*, DEST+22*, DEST+23 |
| INRECV | DEST+16~, DEST+19* |
| INSEND | DEST+16~, DEST+19* |
| >> INTYP | DEST+22, DEST+23 |
| >> J | DISP+4* |
| U | DEST+21, DISP+4 |
| X | DEST+16~, DEST+21*, DEST+22*, DEST+23*, DEST+24, DEST+25, DISP+3*, DISP+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(DESTTXT+I | DEST+21, DISP+3 |