; 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