BHLIN1MR.m

BHLIN1MR ; cmi/sitka/maw - BHL IN1 Segment Medicare ;

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

 ;;

 ;

 ;this routine will go through the medicare eligible file for a

 ;patient and get the necessary IN1 segments

 ;

INDA ;-- setup the INDA array    

 S INDA(9000003,1)=INDA

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

 . S BHLCNT=BHLCNT+1

 . S INDA(9000003.11,BHLCNT)=BHLDA

 Q

 ;

BHLIN1MR  ; cmi/sitka/maw - BHL IN1 Segment Medicare ;

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

 +2       ;;

 +3       ;

 +4       ;this routine will go through the medicare eligible file for a

 +5       ;patient and get the necessary IN1 segments

 +6       ;

INDA      ;-- setup the INDA array    

 +1        SET INDA(9000003,1)=INDA

 +2        SET (BHLCNT,BHLDA)=0

           FOR 

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

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +3                SET BHLCNT=BHLCNT+1

 +4                SET INDA(9000003.11,BHLCNT)=BHLDA

               End DoDot:1

 +5        QUIT 

 +6       ;