BHLI.m

BHLI ; cmi/sitka/maw - BHL Inbound Filer Processor ;  

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

 ;

 ;

 ;this routine will get the IEN of the message and start the process

 ;of filing

 ;

MAIN ;-- this is the main routine driver

 D ^BHLSETI

 G EOJ^BHLSETI:$D(BHLERR("FATAL"))

 D ^BHLFO

 D FILE

 D EOJ^BHLSETI

 Q

 ;

FILE ;-- this will call the routines that actually file the message

 S BHLFDA=0 F  S BHLFDA=$O(BHLFO(BHLFDA)) Q:'BHLFDA!$D(BHLERR("FATAL"))  D

 . S BHLR=$G(BHLFO(BHLFDA))

 . S BHLFILE="^BHL"_BHLR_"I"

 . S X=$P(BHLFILE,U,2) X ^%ZOSF("TEST")

 . Q:'$T

 . D @BHLFILE

 . Q:$D(BHLERR("FATAL"))

 Q

 ;

BHLI      ; cmi/sitka/maw - BHL Inbound Filer Processor ;  

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

 +2       ;

 +3       ;

 +4       ;this routine will get the IEN of the message and start the process

 +5       ;of filing

 +6       ;

MAIN      ;-- this is the main routine driver

 +1        DO ^BHLSETI

 +2        IF $DATA(BHLERR("FATAL"))

               GOTO EOJ^BHLSETI

 +3        DO ^BHLFO

 +4        DO FILE

 +5        DO EOJ^BHLSETI

 +6        QUIT 

 +7       ;

FILE      ;-- this will call the routines that actually file the message

 +1        SET BHLFDA=0

           FOR 

               SET BHLFDA=$ORDER(BHLFO(BHLFDA))

               IF 'BHLFDA!$DATA(BHLERR("FATAL"))

                   QUIT 

               Begin DoDot:1

 +2                SET BHLR=$GET(BHLFO(BHLFDA))

 +3                SET BHLFILE="^BHL"_BHLR_"I"

 +4                SET X=$PIECE(BHLFILE,U,2)

                   XECUTE ^%ZOSF("TEST")

 +5                IF '$TEST

                       QUIT 

 +6                DO @BHLFILE

 +7                IF $DATA(BHLERR("FATAL"))

                       QUIT 

               End DoDot:1

 +8        QUIT 

 +9       ;