INHVSEQ.m

INHVSEQ(INUIF,INERROR) ; FRW ; 26 Mar 95 20:30; Place message in INLHDEST queue

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;

 ;INPUT:

 ;  INUIF - ien in Universal Interface file

 ;  INBPN must be set

 ;OUTPUT:

 ;  INERROR - array containing any error messages

 ;  function value - success or failure

 ;        [  -1 - success ;  1 - failure ]

 ;

 ;This is a generic transmitter for TIP/IP destinations. 

 ;It provides two functionalities.

 ;1) it tests for sequence number protocol requirement and

 ;makes call to routine to insert seq. no in outgoing message.

 ;2) It moves messages from ^INLHSCH into ^INLHDEST

 ;

 N ER

 ;Make call for sequence number protocol

 S ER=$$SEQOUT^INHUSEQ(INUIF,.INERR)

 Q:ER ER

 ;Then move into dest queue

 S ER=$$DSTQUE^INHUSEN3(INUIF,.INERR) Q:ER ER

 Q -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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4       ;INPUT:

 +5       ;  INUIF - ien in Universal Interface file

 +6       ;  INBPN must be set

 +7       ;OUTPUT:

 +8       ;  INERROR - array containing any error messages

 +9       ;  function value - success or failure

 +10      ;        [  -1 - success ;  1 - failure ]

 +11      ;

 +12      ;This is a generic transmitter for TIP/IP destinations. 

 +13      ;It provides two functionalities.

 +14      ;1) it tests for sequence number protocol requirement and

 +15      ;makes call to routine to insert seq. no in outgoing message.

 +16      ;2) It moves messages from ^INLHSCH into ^INLHDEST

 +17      ;

 +18       NEW ER

 +19      ;Make call for sequence number protocol

 +20       SET ER=$$SEQOUT^INHUSEQ(INUIF,.INERR)

 +21       IF ER

               QUIT ER

 +22      ;Then move into dest queue

 +23       SET ER=$$DSTQUE^INHUSEN3(INUIF,.INERR)

           IF ER

               QUIT ER

 +24       QUIT -1

 +25      ;