- 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 ;