BHLMFKI.m

BHLMFKI ;cmi/sitka/maw - Process Inbound MFK Message  

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

 ;

 ;

 ;this routine will process the inbound ihs drug file update ack

 ;

MAIN ;-- this is the main routine driver

 D ^BHLSETI

 S INA("MCID")=$G(INV("MSH10"))

 D MFI,MFA,BUL

 D EOJ^BHLSETI

 Q

 ;

MFI ;-- get data out of MFI segment

 S BHLMFI=$G(INV("MFI1"))

 Q

 ;

MFA ;-- get data out of the MFA segment

 S BHLUS=$G(INV("MFA4"))

 Q

 ;

LOOK ;-- look up the entry in the drug file

 S BHLDIEN=$O(^PSDRUG("ZNDC",BHLNDC,0))

 Q

 ;

BUL ;-- send a bulletin

 S XMB="BHL DRUG MSTR TABLE RESPONSE"

 S XMB(1)=INA("MCID"),XMB(2)=BHLUS

 D ^XMB

 Q

 ;

BHLMFKI   ;cmi/sitka/maw - Process Inbound MFK Message  

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

 +2       ;

 +3       ;

 +4       ;this routine will process the inbound ihs drug file update ack

 +5       ;

MAIN      ;-- this is the main routine driver

 +1        DO ^BHLSETI

 +2        SET INA("MCID")=$GET(INV("MSH10"))

 +3        DO MFI

           DO MFA

           DO BUL

 +4        DO EOJ^BHLSETI

 +5        QUIT 

 +6       ;

MFI       ;-- get data out of MFI segment

 +1        SET BHLMFI=$GET(INV("MFI1"))

 +2        QUIT 

 +3       ;

MFA       ;-- get data out of the MFA segment

 +1        SET BHLUS=$GET(INV("MFA4"))

 +2        QUIT 

 +3       ;

LOOK      ;-- look up the entry in the drug file

 +1        SET BHLDIEN=$ORDER(^PSDRUG("ZNDC",BHLNDC,0))

 +2        QUIT 

 +3       ;

BUL       ;-- send a bulletin

 +1        SET XMB="BHL DRUG MSTR TABLE RESPONSE"

 +2        SET XMB(1)=INA("MCID")

           SET XMB(2)=BHLUS

 +3        DO ^XMB

 +4        QUIT 

 +5       ;