BHLIN1PI.m

BHLIN1PI ; cmi/sitka/maw - BHL GIS IN1 Private Insurance Supplement ;  

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

 ;

 ;

 ;this routine will supplement the GIS IN1 Private Insurance Segments

 ;

INDA ;EP -- setup the INDA arrays

 Q:'$$PI^AUPNPAT(INDA,BHL("VDT"))

 S BHLCNT=0

 S BHLDA=0 F  S BHLDA=$O(^AUPNPRVT(INDA,11,BHLDA)) Q:'BHLDA  D

 . S BHLPH=$P($G(^AUPNPRVT(INDA,11,BHLDA,0)),U,8)

 . Q:'BHLPH

 . S BHLEFD=$P($G(^AUPNPRVT(INDA,11,BHLDA,0)),U,6)

 . S BHLEXD=$P($G(^AUPNPRVT(INDA,11,BHLDA,0)),U,7)

 . I BHLEXD="" S BHLEXD=9999999

 . Q:BHLEFD>BHL("VDT")

 . Q:BHLEXD<BHL("VDT")

 . S BHLCNT=BHLCNT+1

 . S INDA(9000003.1,BHLCNT)=BHLPH

 Q

 ;

BHLIN1PI  ; cmi/sitka/maw - BHL GIS IN1 Private Insurance Supplement ;  

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

 +2       ;

 +3       ;

 +4       ;this routine will supplement the GIS IN1 Private Insurance Segments

 +5       ;

INDA      ;EP -- setup the INDA arrays

 +1        IF '$$PI^AUPNPAT(INDA,BHL("VDT"))

               QUIT 

 +2        SET BHLCNT=0

 +3        SET BHLDA=0

           FOR 

               SET BHLDA=$ORDER(^AUPNPRVT(INDA,11,BHLDA))

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +4                SET BHLPH=$PIECE($GET(^AUPNPRVT(INDA,11,BHLDA,0)),U,8)

 +5                IF 'BHLPH

                       QUIT 

 +6                SET BHLEFD=$PIECE($GET(^AUPNPRVT(INDA,11,BHLDA,0)),U,6)

 +7                SET BHLEXD=$PIECE($GET(^AUPNPRVT(INDA,11,BHLDA,0)),U,7)

 +8                IF BHLEXD=""

                       SET BHLEXD=9999999

 +9                IF BHLEFD>BHL("VDT")

                       QUIT 

 +10               IF BHLEXD<BHL("VDT")

                       QUIT 

 +11               SET BHLCNT=BHLCNT+1

 +12               SET INDA(9000003.1,BHLCNT)=BHLPH

               End DoDot:1

 +13       QUIT 

 +14      ;