BHLMSAI.m

BHLMSAI ;cmi/sitka/maw - BHL Process Inbound MSA Segment 

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

 ;

 ;

 ;this routine will process the MSA segment and file a bulletin

 ;if the MSA came back with an Error

 ;

FILE ;-- file the MSA segment for V03 Query

 Q:$E(BHLET)'="V03"

 Q:$G(INV("MSA1"))="AA"

 Q:$G(INV("MSA1"))="CA"

 D MSA^BHLV02I,QRD^BHLV02I,QRF^BHLV02I,BUL^BHLV02I

 S BHLERCD="RECACKERR" X BHLERR

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

 Q

 ;

BHLMSAI   ;cmi/sitka/maw - BHL Process Inbound MSA Segment 

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

 +2       ;

 +3       ;

 +4       ;this routine will process the MSA segment and file a bulletin

 +5       ;if the MSA came back with an Error

 +6       ;

FILE      ;-- file the MSA segment for V03 Query

 +1        IF $EXTRACT(BHLET)'="V03"

               QUIT 

 +2        IF $GET(INV("MSA1"))="AA"

               QUIT 

 +3        IF $GET(INV("MSA1"))="CA"

               QUIT 

 +4        DO MSA^BHLV02I

           DO QRD^BHLV02I

           DO QRF^BHLV02I

           DO BUL^BHLV02I

 +5        SET BHLERCD="RECACKERR"

           XECUTE BHLERR

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

               QUIT 

 +7        QUIT 

 +8       ;