Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BHLIN1MR

BHLIN1MR.m

Go to the documentation of this file.
  1. BHLIN1MR ; cmi/sitka/maw - BHL IN1 Segment Medicare ;
  1. ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1. ;;
  1. ;
  1. ;this routine will go through the medicare eligible file for a
  1. ;patient and get the necessary IN1 segments
  1. ;
  1. INDA ;-- setup the INDA array
  1. S INDA(9000003,1)=INDA
  1. S (BHLCNT,BHLDA)=0 F S BHLDA=$O(^AUPNMCR(INDA,11,BHLDA)) Q:'BHLDA D
  1. . S BHLCNT=BHLCNT+1
  1. . S INDA(9000003.11,BHLCNT)=BHLDA
  1. Q
  1. ;