BHLZPR.m

BHLZPR ; cmi/sitka/maw - BHL GIS ZPR Segment Supplement ;

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

 ;

 ;

 ;this routine will supplement GIS ZPR segments

 ;

INDA ;-- setup the INDA for V Dental

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

 S BHLCNT=0

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

 . S BHLCNT=BHLCNT+1

 . S INDA(9000010.05,BHLCNT)=BHLDA

 . S INA("ZPR1",BHLCNT)=$$VAL^XBDIQ1(9000010.05,BHLDA,.04)

 . S INA("ZPR2",BHLCNT)=$$VAL^XBDIQ1

 ;

BHLZPR    ; cmi/sitka/maw - BHL GIS ZPR Segment Supplement ;

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

 +2       ;

 +3       ;

 +4       ;this routine will supplement GIS ZPR segments

 +5       ;

INDA      ;-- setup the INDA for V Dental

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

               QUIT 

 +2        SET BHLCNT=0

 +3        SET BHLDA=0

           FOR 

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

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +4                SET BHLCNT=BHLCNT+1

 +5                SET INDA(9000010.05,BHLCNT)=BHLDA

 +6                SET INA("ZPR1",BHLCNT)=$$VAL^XBDIQ1(9000010.05,BHLDA,.04)

 +7                SET INA("ZPR2",BHLCNT)=$$VAL^XBDIQ1

               End DoDot:1

 +8       ;