BHLRXA.m

BHLRXA ; cmi/sitka/maw - BHL IHS GIS RXA Segment Supplement ;

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

 ;

 ;

 ;this routine will supplement the IHS GIS segments

 ;

INDA ;-- setup the INDA array for the RXA segment

 Q:'$G(BHL("VIEN"))

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

 S BHLCNT=0

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

 . S BHLCNT=BHLCNT+1

 . S INDA(9000010.11,BHLCNT)=BHLDA

 Q

 ;

BHLRXA    ; cmi/sitka/maw - BHL IHS GIS RXA Segment Supplement ;

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

 +2       ;

 +3       ;

 +4       ;this routine will supplement the IHS GIS segments

 +5       ;

INDA      ;-- setup the INDA array for the RXA segment

 +1        IF '$GET(BHL("VIEN"))

               QUIT 

 +2        IF '$ORDER(^AUPNVIMM("AD",BHL("VIEN"),0))

               QUIT 

 +3        SET BHLCNT=0

 +4        SET BHLDA=0

           FOR 

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

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +5                SET BHLCNT=BHLCNT+1

 +6                SET INDA(9000010.11,BHLCNT)=BHLDA

               End DoDot:1

 +7        QUIT 

 +8       ;