BHLDG1.m

BHLDG1 ; cmi/sitka/maw - BHL GIS DG1 Supplement ;

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

 ;;

 ;this routine will supplement GIS DG1 segments

 ;

INDA ;-- setup the INDA array

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

 S BHLCNT=0

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

 . S BHLCNT=BHLCNT+1

 . S INDA(9000010.07,BHLCNT)=BHLDA

 Q

 ;

BHLDG1    ; cmi/sitka/maw - BHL GIS DG1 Supplement ;

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

 +2       ;;

 +3       ;this routine will supplement GIS DG1 segments

 +4       ;

INDA      ;-- setup the INDA array

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

               QUIT 

 +2        SET BHLCNT=0

 +3        SET BHLDA=0

           FOR 

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

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +4                SET BHLCNT=BHLCNT+1

 +5                SET INDA(9000010.07,BHLCNT)=BHLDA

               End DoDot:1

 +6        QUIT 

 +7       ;