use Patient_Data
GO

ALTER PROCEDURE [dbo].[sp_AOPD_SaveUpdateRights]
@MenuFile bit,
@NewRegistration bit,
@DataSheet bit,
@EditRegistration bit,
@MedicalCertificate bit,
@EditName bit,
@MenuReports bit,
@Indexes bit,
@DailyCensusReport bit,
@ReportOfActivities bit,
@SummaryOfDemography bit,
@MonthlyPhysicianIndex bit,
@OutpatientIndexCard bit,
@MenuOPDTransaction bit,
@MenuResultEntry bit,
@MenuAssessment bit,
@MenuResultViewing bit,
@MenuConsultationInfo bit=null,
@EmployeeID varchar(15)=null,
@ClinicalProcedures bit = 0,
@SendRequest bit = 0,
@NursesActivityRequest bit = 0,
@ViewResults bit = 0,
@VitalSigns bit = 0,
@NursesNotes bit = 0,
@PatientProfile bit = 0,
@ClinicalSummary bit = 0,
@ViewSOA bit = 0,
@MasterFileOnly bit = 0,
@OPDSettings bit = 0
as

if exists(select employeeid from patient_data..tb_AOPD_UserRights where employeeid = @EmployeeID)
   begin
	update patient_data..tb_AOPD_UserRights
		set MenuFile = @MenuFile,
			NewRegistration = @NewRegistration,
			DataSheet = @DataSheet,
			EditRegistration = @EditRegistration,
			MedicalCertificate = @MedicalCertificate,
			EditName = @EditName,
			MenuReports = @MenuReports,
			Indexes = @Indexes,
			DailyCensusReport = @DailyCensusReport,
			ReportOfActivities = @ReportOfActivities,
			SummaryOfDemography = @SummaryOfDemography,
			MonthlyPhysicianIndex = @MonthlyPhysicianIndex,
			OutpatientIndexCard = @OutpatientIndexCard,
			MenuOPDTransaction = @MenuOPDTransaction,
			MenuResultEntry = @MenuResultEntry,
			MenuAssessment = @MenuAssessment,
			EmployeeID = @EmployeeID,	
			MenuresultentryViewing = @MenuResultViewing,
			MenuConsultationInfo = @MenuConsultationInfo,
			ClinicalProcedures = @ClinicalProcedures,
			SendRequest = @SendRequest,
			NursesActivityRequest = @NursesActivityRequest,
			ViewResults = @ViewResults,
			VitalSigns = @VitalSigns,
			NursesNotes = @NursesNotes,
			PatientProfile = @PatientProfile,
			ClinicalSummary = @ClinicalSummary,
			ViewSOA = @ViewSOA,
			MasterFileOnly = @MasterFileOnly,
			OPDSettings = @OPDSettings 
	where employeeid = @Employeeid
   end;
else
   begin
	insert into Patient_data..tb_AOPD_UserRights
		(MenuFile, NewRegistration, DataSheet, EditRegistration, MedicalCertificate, EditName, MenuReports, Indexes, DailyCensusReport,
		 ReportOfActivities,  SummaryOfDemography, MonthlyPhysicianIndex, OutpatientIndexCard, MenuOPDTransaction, MenuResultEntry, 
		 MenuAssessment, EmployeeID, MenuResultEntryViewing, MenuConsultationInfo, ClinicalProcedures, SendRequest, NursesActivityRequest,
		 ViewResults, VitalSigns, NursesNotes, PatientProfile, ClinicalSummary, ViewSOA, MasterFileOnly,OPDsettings)
	Values
		(@MenuFile,  @NewRegistration, @DataSheet, @EditRegistration, @MedicalCertificate, @EditName, @MenuReports, @Indexes, @DailyCensusReport,
		 @ReportOfActivities, @SummaryOfDemography, @MonthlyPhysicianIndex, @OutpatientIndexCard, @MenuOPDTransaction, @MenuResultEntry, 
		 @MenuAssessment, @EmployeeID, @MenuResultViewing, @MenuConsultationInfo, @ClinicalProcedures,@SendRequest, @NursesActivityRequest,
		 @ViewResults, @VitalSigns, @NursesNotes, @PatientProfile, @ClinicalSummary, @ViewSOA, @MasterFileOnly,@OPDSettings)	
   end;
GO



USE [Password]
GO
/****** Object:  StoredProcedure [dbo].[sp_Pass_SaveUser]    Script Date: 11/06/2013 18:34:41 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[sp_Pass_SaveUser] 
@EmployeeID varchar(10),
@LastName varchar(15),
@FirstName varchar(20),
@MiddleName varchar(15),
@Initial varchar(3),
@BirthDate varchar(12),
@Password varchar(32),
@DepartmentID varchar(4),
@OldDepartmentID varchar(4),
@Position varchar(25),
@RightCode1 varchar(1),
@RightCode2 varchar(1)

AS

DECLARE @Name varchar(50) /* for backcompatibility */
declare @cBirth varchar(5)

SET @Name = @LastName + ' ' + @FirstName + ' ' + @MiddleName

IF NOT EXISTS( SELECT EmployeeID FROM tbPasswordMain WHERE EmployeeID = @EmployeeID AND 
	DepartmentID = @DepartmentID)
	INSERT INTO tbPasswordMain
  	(EmployeeID, LastName, FirstName, MiddleName, Initial, BirthDate, Password, DepartmentID,
   	OriginalDepartment, Position, Right_Code1, Right_Code2, ODeptArt, SiteCode)
	VALUES
  	(@EmployeeID, @LastName, @FirstName, @MiddleName, @Initial, @BirthDate, @Password, 
   	@DepartmentID, @OldDepartmentID, @Position, @RightCode1, @RightCode2, '', '')
ELSE
	UPDATE tbPasswordMain
	SET LastName = @LastName,
	FirstName = @FirstName,
	MiddleName = @MiddleName, 
	Initial = @Initial,
	BirthDate = @BirthDate,
	[Password] =  @Password,
	DepartmentID = @DepartmentID,
   	OriginalDepartment = @OldDepartmentID,
	Position =  @Position,
	Right_Code1 =  @RightCode1,
	Right_Code2 = @RightCode2,
	ODeptArt = '', SiteCode = ''
	WHERE EmployeeID = @EmployeeID AND 
	DepartmentID = @DepartmentID
	

/* save to master file -- forward compatability */
if isdate(@BirthDate) = 1
  begin
    if cast(@BirthDate as datetime) <= '01/01/1900'
      begin
        set @cBirth = '00/00'
      end
    else
      begin
        set @cBirth = left(@BirthDate, 5)
      end
  end
else
  begin
    set @cBirth = '00/00'
  end

IF NOT EXISTS( SELECT EmployeeID FROM tbPasswordMaster WHERE EmployeeID = @EmployeeID)
begin
	insert into tbPasswordMaster
  	(EmployeeID, LastName, FirstName, MiddleName, Initial, BirthDate, Password)
	values(@EmployeeID, @LastName, @FirstName, @MiddleName, @Initial, @cBirth, @Password)
end
else
BEGIN
	update tbPasswordMaster
	set lastname= @LastName,
	firstname= @FirstName, 
	middlename= @MiddleName, 
	initial = @Initial, 
	birthdate = @cBirth, 
	password = @Password
	where employeeid = @employeeid
END	
/* 
   update all employee department password
   for consistency
 */
UPDATE tbPasswordMain SET Password = @Password
WHERE EmployeeID = @EmployeeID;

UPDATE tbPasswordMaster SET Password = @Password
WHERE EmployeeID = @EmployeeID;
go