BHLPR1.m

BHLPR1 ; cmi/sitka/maw - BHL GIS PR1 Segment Supplement ;

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

 ;

 ;

 ;this routine will supplement the GIS PR1 segments

 ;

INDA ;-- setup the INDA arrays for PR1

 Q:'$O(^AUPNVPRC("AD",BHL("VIEN"),0))

 S BHLCNT=0

 S BHLDA=0 F  S BHLDA=$O(^AUPNVPRC("AD",BHL("VIEN"),BHLDA)) Q:'BHLDA  D

 . S BHLCNT=BHLCNT+1

 . S INDA(9000010.08,BHLCNT)=BHLDA

 Q

 ;

BHLPR1    ; cmi/sitka/maw - BHL GIS PR1 Segment Supplement ;

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

 +2       ;

 +3       ;

 +4       ;this routine will supplement the GIS PR1 segments

 +5       ;

INDA      ;-- setup the INDA arrays for PR1

 +1        IF '$ORDER(^AUPNVPRC("AD",BHL("VIEN"),0))

               QUIT 

 +2        SET BHLCNT=0

 +3        SET BHLDA=0

           FOR 

               SET BHLDA=$ORDER(^AUPNVPRC("AD",BHL("VIEN"),BHLDA))

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +4                SET BHLCNT=BHLCNT+1

 +5                SET INDA(9000010.08,BHLCNT)=BHLDA

               End DoDot:1

 +6        QUIT 

 +7       ;