BHLMSH.m

BHLMSH ; cmi/anchorage/maw - BHL IHS MSH Supplement ;

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

 ;

 ;this routine will supplement data in the MSH segment

 ;cmi/anch/maw 3/3/2006 modified sending facility to be settable

 ;

EN ;-- entry point

 D NOW^%DTC

 S INA("EVDT")=%

 S INA("ENC")=CS_RS_SCS_ESC

 S INA("MT")=$P($G(^INTHL7M(BHLMIEN,0)),U,6)

 S INA("ET")=$P($G(^INTHL7M(BHLMIEN,0)),U,2)

 S INA("MET")=INA("MT")_CS_INA("ET")

 S INA("ACA")=$P($G(^INTHL7M(BHLMIEN,0)),U,10)

 S INA("APA")=$P($G(^INTHL7M(BHLMIEN,0)),U,11)

 S INA("VER")=$P($G(^INTHL7M(BHLMIEN,0)),U,4)

 S INA("PRID")=$P($G(^INTHL7M(BHLMIEN,0)),U,3)

 S INA("SAP")=$P($G(^INTHL7M(BHLMIEN,7)),U)

 S INA("SF")=$S($G(INA("SF"))]"":INA("SF"),1:$P($G(^INTHL7M(BHLMIEN,7)),U,2))  ;maw 3/3/2006 p14

 S INA("RAP")=$P($G(^INTHL7M(BHLMIEN,7)),U,3)

 S INA("RF")=$P($G(^INTHL7M(BHLMIEN,7)),U,4)

 Q

BHLMSH    ; cmi/anchorage/maw - BHL IHS MSH Supplement ;

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

 +2       ;

 +3       ;this routine will supplement data in the MSH segment

 +4       ;cmi/anch/maw 3/3/2006 modified sending facility to be settable

 +5       ;

EN        ;-- entry point

 +1        DO NOW^%DTC

 +2        SET INA("EVDT")=%

 +3        SET INA("ENC")=CS_RS_SCS_ESC

 +4        SET INA("MT")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,6)

 +5        SET INA("ET")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,2)

 +6        SET INA("MET")=INA("MT")_CS_INA("ET")

 +7        SET INA("ACA")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,10)

 +8        SET INA("APA")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,11)

 +9        SET INA("VER")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,4)

 +10       SET INA("PRID")=$PIECE($GET(^INTHL7M(BHLMIEN,0)),U,3)

 +11       SET INA("SAP")=$PIECE($GET(^INTHL7M(BHLMIEN,7)),U)

 +12      ;maw 3/3/2006 p14

           SET INA("SF")=$SELECT($GET(INA("SF"))]"":INA("SF"),1:$PIECE($GET(^INTHL7M(BHLMIEN,7)),U,2))

 +13       SET INA("RAP")=$PIECE($GET(^INTHL7M(BHLMIEN,7)),U,3)

 +14       SET INA("RF")=$PIECE($GET(^INTHL7M(BHLMIEN,7)),U,4)

 +15       QUIT