0% found this document useful (0 votes)
62 views

Proc Update

This stored procedure updates admission records in a database. It accepts over 50 input parameters related to patient and admission details and uses them to update multiple tables in the database. If the admission record is not found, it returns an error. Otherwise, it also executes another stored procedure to save admission letter details and then commits the transaction.

Uploaded by

lifeofname
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
62 views

Proc Update

This stored procedure updates admission records in a database. It accepts over 50 input parameters related to patient and admission details and uses them to update multiple tables in the database. If the admission record is not found, it returns an error. Otherwise, it also executes another stored procedure to save admission letter details and then commits the transaction.

Uploaded by

lifeofname
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 4

CREATE procedure Pr_UpdateAdmissions @AdmissionID int,@IsNewBorn Bit,@TimeofBirt h datetime, @TitleID int,@Firstname nvarchar(50),@MiddleName nvarchar(30),@LastName nvarchar(30), @GenderID int,@MaidenName varchar(30),@GuardianName

nvarchar(50),@IsGuar dianSpouse bit, @DOB datetime,@Age int,@AgeUoMID int,@IsAgebyDoB bit,@Address01 varchar( 75),@Address02 varchar(75), @Address03 varchar(75),@ZipCode varchar(15),@CityID int,@PhoneNo varchar (15),@MobileNo varchar(15), @EMail varchar(50),@SSN varchar(50),@ContactName varchar(30),@ContAddres s varchar(100), @ContPhoneNo varchar(15),@ContFaxNo varchar(15),@ContEmail varchar(50),@ RelationID int, @IsVIP bit,@ParentIPID int,@IsForeigner bit,@PassportNo varchar(15),@Pas sIssueDate datetime, @PassExpiryDate datetime,@PassIssuePlace varchar(30),@ConsultantID int,@ ExptDisChargeDate datetime, @IsRefDocExternal bit,@ExRefDocID Int,@RefDocID int,@QualificationID int ,@OccupationID int, @MaritalStatusID int,@CompanyID int,@ReligionID int,@CODE varchar(10),@N ationalityID int,@AdmTypeID int, @AdmSourceID int,@BloodGroupID int,@MLCTypeID int,@MLCTransportID int,@B roughtBy nvarchar(50), @IncidentSite nvarchar(50),@PoliceStation nvarchar(50),@ConstableName nv archar(50),@ARCopy nvarchar(50), @BillType Int,@BillNo nvarchar(50),@AccReportNo nvarchar(50),@EligibleBe dType Int, @workPermitID varchar(100) =NULL,@WPIssuedDate datetime =NULL,@WPExpiryD ate datetime =NULL,@WPIssuedAT varchar(100) =NULL, @WPIssuedBy varchar(100)=Null,@ReferalBasisNo varchar(100) =NULL,@Escort RelationID int =NULL, @VisaIssueDate datetime =NULL,@VisaExpiryDate Datetime =NULL,@VisaIssued At varchar(100) =NULL, @VisaIssuedBy varchar(100) =NULL, @USERID int,@WORKSTATIONID int, @Error Int OutPut,@SpecialiseID Int=Null ,@Remarks Varchar(200), @FeatureId int=NULL, @FunctionId int=NULL, @CallContext varchar(1000)=NU LL , @PatientEmpId varchar(100)=null, @Mrno Varchar(100)=Null,@RelationCode varchar(100)=null,@LetterIDS Ntex t=NULL, @FirstName2L nvarchar(50)=null,@MiddleName2L nvarchar(30)=null,@LastName 2L nvarchar(30)=null, @MaidenName2L nvarchar(30)=null,@GaurdianName2L nvarchar(30)=null, @Address012L nvarchar(75)=null,@Address022L nvarchar(75)=null,@Address03 2L nvarchar(75)=null, @ContactName2L nvarchar(30)=null,@ContAddress2L nvarchar(100)=null,@Brou ghtBy2l nvarchar(100)=null, @IncidentSite2l nvarchar(100)=null,@PoliceStation2l nvarchar(100)=null,@ ConstableName2l nvarchar(100)=null, @ARCopy2L Nvarchar(100)=NULL,@GradeID Int=Null,@PoliceBuckleNo Varchar(1 00)=null,@MLCReportDelivery Datetime=null, @MLCRemarks Nvarchar(1000)=null,@OnCallDoctor Int=null,@PatientWKCompan yName varchar(100)=NULL, @AdmitTimeSpecDoctors Varchar(2000)=NULL,@ApprovedAmount Decimal(20,5)=N ULL,@InsuranceCompanyId Int=NULL as Begin

SET NOCOUNT OFF Declare @Return Int Set @return = dbo.fn_verifyspcall(@@procid, @FeatureId, @functionId, @ca llcontext) If Isnull(@return, -1)<=-1 Begin Raiserror ('Procedure/Function Not Registered', 16,1) Return -1 End SET XACT_ABORT ON If @@NestLevel=1 BEGIN TRAN Update [UNR407V7HH2VR4ZJI2NYE314SUK388V7] Set [SR072XUHMYI1U5K72]=@IsNew Born,[VR7TQS5PWSEYRWV7Y1OO]=@TimeofBirth,[VR7TU01I0VL2S]=@TitleID, [RXD8PVG7TCE1LTDV1]=@Firstname,[TUAJ31HED6T1EKSZ52L]=@MiddleName,[TKD894 RBSPD2C6L]=@LastName,[S76AK41TMGQ293G]=@GenderID, [TU7P26STIBA1EKSZ52L]=@MaidenName,[S7BYKG16OAXQK6NSPF2SML]=@GuardianName ,[SR06ZQCDT3URDOAMQUCJE01F1O9EQL]=@IsGuardianSpouse, [1NLQ7U]=@DOB,[1LT98D]=@Age,[QK46CTPCPXH293G]=@AgeUoMID,[SR06WYVT02Y1JMR VNQY]=@IsAgebyDoB,[QK3426LN7NF1WHVN5]=@Address01, [QK3426LN7NF1WHVN6]=@Address02,[QK3426LN7NF1WHVN7]=@Address03,[XEANE3V8Q 0S2T]=@ZipCode,[R3TTXTK8HJG]=@CityID, [UNTL9OGKUPI33]=@PhoneNo,[TUCNMHIPMYT2CYN]=@MobileNo,[ZU8VLUUHG]=@EMail, [1WJBDY]=@SSN,[R3VYFFA3DCB155O8PY0KT]=@ContactName, [R3VYFFA3OX413DV9XF8F3]=@ContPhoneNo,[R3VYFFA3GFP1LTAS4]=@ContEmail,[V7H GTFHPOZT1F1K35SC]=@RelationID,[119D7VBSWO]=@IsVIP, [UNR3ZAQ304K1CAD17D8]=@ParentIPID,[CODE]=@CODE,ModDate=GetDate() ,[USERID]=@USERID, [WORKSTATIONID]=@WORKSTATIONID,[R3VYFFA3DCCZHJS6XN1N]=@ContAddress,[R3VY FFA3H751ZIDJZ]=@ContFaxNo, [QU0F81J6O5JV7L0JIAT9QK]=@BloodGroupID,[TKENB5ZF3SQ293G]=NULL, --LetterId is used separtely on PatientAdmissionLOAS [R3VYFF9ID6CVR4ZO3KKOZW]=@ConsultantID,[VHFU17C15QHTKG2C9VU8Y4]= @SpecialiseID,[V7HGTW134E337]=@Remarks, [RXD8PVG7TCEYF7AZHDDO]=@FirstName2L,[TUAJ31HED6TU4261ONN9X8]=@M iddleName2L,[TKD894RBSPD1E4BY518]=@LastName2L, [TU7P26STIBAU4261ONN9X8]=@MaidenName2L,[S74VLRD1XMXQK6NSPF2SML12 NW]=@GaurdianName2L,[QK3426LN7NF14S4CDY9KS]=@Address012L, [QK3426LN7NF14S4CEJP6K]=@Address022L, [QK3426LN7NF14S4CF5 4SC]=@Address032L, [R3VYFFA3DCBVR9LE8OW1YY30]=@ContactName2L, [R3VYFFA3DCCRDRHJ4MG5KA30]=@ContAddress2L,[S7AWA9AB3SH2S]=@Grade ID Where [QK346BANUGB119BDL2GB0]=@AdmissionID --And Status in(0,2,3) -- as per new requirement MRID.014393 commented this contdition IF @@RowCount=0 Begin IF @@NestLevel=1 Rollback TRansaction RaisError('InPatient IPID does not exists',16,1) Return -1 End ------------------ InPatientAdditions -----------------------------Update [UNR407V7HH2VR4ZJI2NYE3VHDCU1P1WP8RDOAVH31SY930] Set [SR06Z9PG3N91197PA2LQ2]=@IsForeigner,[UNR3ZRHSL2N1GF9SA3J]=@Pass portNo, [UNR3ZRHSFOBVHHLU67IYJG2T]=@PassIssueDate,[UNR3ZRHSCLCUNTY2GFFIO12HL 1]=@PassExpiryDate,[UNR3ZRHSFOBVHHLU6EOE9T24GT]=@PassIssuePlace, [RNO367A016XVHB86GOMARBZU4QRHUIT]=@ExptDisChargeDate,[SR074RZZ5LGUDX

CEGP4PZ91GF67EFO]=@IsRefDocExternal, [V7HGQOB92BF293G]=@RefDocID,[RNO3743TIJ81F1DJE4S]=@ExRefDocID,[UXSNX 0T9MKUSQUIQOCNLP31TJXN0]=@QualificationID, [UDXCDJKLE75VR7TRPDTMH8]=@OccupationID,[U4264WHOLZAQK5Y7MP5X5D2S]=@N ationalityID, [TU7P6BQ68CHTKJLYO2NAOL1WJ3NW]=@MaritalStatusID,[R3VYEYOC5ZQ203PAK]= @CompanyID, [V7HGTFMGVSX1F1K35SC]=@ReligionID,[QK346BH7QQG1O7170]=@AdmTypeID, [QK346BGM3F114G0EIUH1O]=@AdmSourceID,[TUBLCRQ3MS81O7170]=@MLCTypeID, [TUBLCRQ3HDDU48JS5J0J2C293G]=@MLCTransportID,[QU2JSENUDQ81X4DVT]=@Br oughtBy, [SQYF4X4U91HU48WKX7QW1X]=@IncidentSite,[UNW2K1YQS7XVHH90Y5DOD332]=@P oliceStation, [R3VYFF9ICE9QU0F3G4UGUT2T]=@ConstableName,[QK82P8F0S6X]=@ARCopy, [QTZCWHCQNFJ]=@BillNo,[QK2RABW38FS13DX4BUM8V]=@AccReportNo, [RNJTY98H4CQTKEN2W1R42C203UP1]=@EligibleBedType,[QTZCWHCQS2H2EHX]=@B illType, [WKTD6F1JKBPV7KAV7KCCCS]=@workPermitID,[WKTPTOI4DBHRNGZST2LCCL]=@WPI ssuedDate, [WKTPRUFLL9LV7OJXMMC2X1]=@WPExpiryDate,[WKTPTOI4DBH1AG0DY70]=@WPIssu edAT, [WKTPTOI4DBH1AG0DYYX]=@WPIssuedBy,[V7HGQOBUK8HTKDKS986AM Z2CYN]=@ReferalBasisNo,[RNMB79C9IF8V7HGTFHPOZT1F1K35SC]=@EscortRelationID, [WAWROUP3YL7VHHLU67IYJG2T]=@VisaIssueDate,[WAWROUP3VI8UNTY2GFFIO12HL 1]=@VisaExpiryDate, [WAWROUP3YL7VHHLU67IYJG]=@VisaIssuedAt ,[WAWROUP3YL7VHHLU67IZBD]=@Vi saIssuedBy , [UNR407V7HH2VR6EP7NJIQ4]=@PatientEmpID,[1E4JQ273]=@MRNo, [V7HGTFHPOZTUE18QVD04AT]=@RelationCode, [QU2JSENUDQ8155IQNPIBG]=@BroughtBy2l, [SQYF4X4U91HU48WKX7QW1X12NW]=@IncidentSite2l, [UNW2K1YQS7XVHH90Y5DOD31TIR7G]=@PoliceStation2l, [R3VYFF9ICE9QU0F3G4UGUT1O5URG]=@ConstableName2l, [QK82P8F0S6X12NW]=@Arcopy2l, [UNW2K1YQS7XQU3LX2JY1392CYN]=@PoliceBuckleNo, [TUBLCROWC54UE2O090JEGK119EL7C1E1]=@MLCReportDelivery, [TUBLCROWC5118M38CMJ]=@MLCRemarks, [UE18QV4O80CRDQF811R1FU] = @OnCallDoctor, [UNR407V7HH2VRCSDDGB7IDUNR3XGWHSGH2C6L]=@PatientWKCompanyName, [QK346BANV84SQY2EG7D9YDR3S22JNDAOF2G1V]=@AdmitTimeSpecDoctors, [QK7DCF4B5VYRNGZRFNM0Y52CYS]=@ApprovedAmount, [SQYFC9XZA41U42VGSNUYTHUNR3XGWHOLO]=@InsuranceCompanyId Where [QK346BANUGB119BDL2GB0]=@AdmissionID -------------------- PatientAdmissionLOAS -----------------------Exec @Return=Pr_SavePatientAdmissionLOAS @AdmissionID,@LetterIDS ,@UserID,@WorkStationID,@Error Output, @FeatureId=775, @FunctionId=-2, @CallContext=' ' IF IsNull(@Return,-1)=-1 Begin IF @@NestLevel=1 RollBack Transaction Return -1 End ----------------

IF @@NestLevel=1 COMMIT TRAN Return 0 END

You might also like