BHLIN2I.m

BHLIN2I ; cmi/sitka/maw - BHL File Inbound IN2 Segment ;

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

 ;

 ;this routine will file the inbound IN2 segment.  It is called from

 ;BHLIN1I

 ;

 Q

 ;

FILE ;-- file the IN2 segment

 N BHLR

 S BHLR="IN2"

 D @BHLIT

 Q

 ;

MCD ;-- file medicaid info

 Q:'$G(BHLMCDE)

 S BHLMCN=$G(@BHLTMP@(BHLDA,8))

 S BHLFL=9000004,BHLFLD=.13,BHLX=BHLMCDE,BHLVAL=BHLMCN X BHLDIE

 Q

 ;

MCR ;-- file medicare info

 ;there is none at this time

 Q

 ;

PI ;-- file private insurance info   

 Q:'$G(BHLPH)

 S BHLEMP=$G(@BHLTMP@(BHLDA,3))

 S BHLFL=9000003.1,BHLFLD=.16,BHLX=BHLPH,BHLVAL=BHLEMP X BHLDIE

 Q

 ;

BHLIN2I   ; cmi/sitka/maw - BHL File Inbound IN2 Segment ;

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

 +2       ;

 +3       ;this routine will file the inbound IN2 segment.  It is called from

 +4       ;BHLIN1I

 +5       ;

 +6        QUIT 

 +7       ;

FILE      ;-- file the IN2 segment

 +1        NEW BHLR

 +2        SET BHLR="IN2"

 +3        DO @BHLIT

 +4        QUIT 

 +5       ;

MCD       ;-- file medicaid info

 +1        IF '$GET(BHLMCDE)

               QUIT 

 +2        SET BHLMCN=$GET(@BHLTMP@(BHLDA,8))

 +3        SET BHLFL=9000004

           SET BHLFLD=.13

           SET BHLX=BHLMCDE

           SET BHLVAL=BHLMCN

           XECUTE BHLDIE

 +4        QUIT 

 +5       ;

MCR       ;-- file medicare info

 +1       ;there is none at this time

 +2        QUIT 

 +3       ;

PI        ;-- file private insurance info   

 +1        IF '$GET(BHLPH)

               QUIT 

 +2        SET BHLEMP=$GET(@BHLTMP@(BHLDA,3))

 +3        SET BHLFL=9000003.1

           SET BHLFLD=.16

           SET BHLX=BHLPH

           SET BHLVAL=BHLEMP

           XECUTE BHLDIE

 +4        QUIT 

 +5       ;