[Home] [Help]
34: -- Get the start date of the earliest future opmu if it exists.
35: begin
36: select min(opmu.effective_start_date)
37: into v_next_opmu_start_date
38: from pay_org_pay_method_usages_f opmu
39: where opmu.payroll_id = p_payroll_id
40: and opmu.org_payment_method_id = p_org_payment_method_id
41: and opmu.effective_end_date >= p_session_date
42: and opmu.org_pay_method_usage_id <> nvl(p_org_pay_method_usage_id,0);
288: X_Effective_End_Date IN OUT nocopy DATE,
289: X_Payroll_Id NUMBER,
290: X_Org_Payment_Method_Id NUMBER) IS
291: --
292: CURSOR C IS SELECT rowid FROM pay_org_pay_method_usages_f
293: WHERE org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id;
294: --
295: CURSOR C2 IS SELECT pay_org_pay_method_usages_s.nextval
296: FROM dual;
311: X_Org_Payment_Method_Id,
312: X_Effective_Start_Date, -- session date
313: X_Effective_Start_Date); -- validation start date
314: --
315: INSERT INTO pay_org_pay_method_usages_f
316: (org_pay_method_usage_id,
317: effective_start_date,
318: effective_end_date,
319: payroll_id,
358: X_Effective_End_Date DATE,
359: X_Payroll_Id NUMBER,
360: X_Org_Payment_Method_Id NUMBER) IS
361: --
362: CURSOR C IS SELECT * FROM pay_org_pay_method_usages_f
363: WHERE rowid = X_Rowid FOR UPDATE of Org_Pay_Method_Usage_Id
364: NOWAIT;
365: --
366: Recinfo C%ROWTYPE;
423: X_Org_Payment_Method_Id NUMBER) IS
424: --
425: BEGIN
426: --
427: UPDATE pay_org_pay_method_usages_f
428: SET org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id,
429: effective_start_date = X_Effective_Start_Date,
430: effective_end_date = X_Effective_End_Date,
431: payroll_id = X_Payroll_Id,
457: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
458: --
459: BEGIN
460: --
461: DELETE FROM pay_org_pay_method_usages_f
462: WHERE rowid = X_Rowid;
463: --
464: if (SQL%NOTFOUND) then
465: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');