USE [RADIOLOGY]
GO
/****** Object:  UserDefinedFunction [dbo].[fn_RadIsHMO]    Script Date: 4/27/2017 12:59:33 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
/*
Altered by : Gonzalo
Date : 07282011
Details : Included Oupatient and In Patient in classification
*/
ALTER FUNCTION [dbo].[fn_RadIsHMO] (@IdNum varchar(10))  
RETURNS varchar(1) AS  

BEGIN 

	Declare @Class as varchar(1)
	Declare @Senior as varchar(1)

	set @Class = ''	

	if isnumeric(@IdNum) = 1
		Begin
			set @Class = (select c.Class from PATIENT_DATA..tbPatient p
				left outer join build_file..tbCoCompany C
					on p.HospNum = C.Accountnum
			where idnum = @IdNum)
			
			if @Class in ('P','H','I') 
				Begin 
					set @Class = 'P'
				End	
			ELSE
				Begin
					set @Class = ''	
				End
		End
	else
		Begin
			set @Class = (select c.Class from PATIENT_DATA..tbOutPatient p
				left outer join build_file..tbCoCompany C
					on p.HospNum = C.Accountnum
			where idnum = @IdNum )
			
			if @Class in ('P','H','I') 
				Begin 
					set @Class = 'P'
				End	
			ELSE
				Begin
					set @Class = ''	
				End
		End
	Return @Class;
END