Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: INHVSEQ

INHVSEQ.m

Go to the documentation of this file. 
  1. INHVSEQ(INUIF,INERROR) ; FRW ; 26 Mar 95 20:30; Place message in INLHDEST queue
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  ;
  1.  ;INPUT:
  1.  ;  INUIF - ien in Universal Interface file
  1.  ;  INBPN must be set
  1.  ;OUTPUT:
  1.  ;  INERROR - array containing any error messages
  1.  ;  function value - success or failure
  1.  ;        [  -1 - success ;  1 - failure ]
  1.  ;
  1.  ;This is a generic transmitter for TIP/IP destinations. 
  1.  ;It provides two functionalities.
  1.  ;1) it tests for sequence number protocol requirement and
  1.  ;makes call to routine to insert seq. no in outgoing message.
  1.  ;2) It moves messages from ^INLHSCH into ^INLHDEST
  1.  ;
  1.  N ER
  1.  ;Make call for sequence number protocol
  1.  S ER=$$SEQOUT^INHUSEQ(INUIF,.INERR)
  1.  Q:ER ER
  1.  ;Then move into dest queue
  1.  S ER=$$DSTQUE^INHUSEN3(INUIF,.INERR) Q:ER ER
  1.  Q -1
  1.  ;