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 |