[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);
291: X_Effective_End_Date IN OUT nocopy DATE,
292: X_Payroll_Id NUMBER,
293: X_Org_Payment_Method_Id NUMBER) IS
294: --
295: CURSOR C IS SELECT rowid FROM pay_org_pay_method_usages_f
296: WHERE org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id;
297: --
298: CURSOR C2 IS SELECT pay_org_pay_method_usages_s.nextval
299: FROM dual;
314: X_Org_Payment_Method_Id,
315: X_Effective_Start_Date, -- session date
316: X_Effective_Start_Date); -- validation start date
317: --
318: INSERT INTO pay_org_pay_method_usages_f
319: (org_pay_method_usage_id,
320: effective_start_date,
321: effective_end_date,
322: payroll_id,
361: X_Effective_End_Date DATE,
362: X_Payroll_Id NUMBER,
363: X_Org_Payment_Method_Id NUMBER) IS
364: --
365: CURSOR C IS SELECT * FROM pay_org_pay_method_usages_f
366: WHERE rowid = X_Rowid FOR UPDATE of Org_Pay_Method_Usage_Id
367: NOWAIT;
368: --
369: Recinfo C%ROWTYPE;
426: X_Org_Payment_Method_Id NUMBER) IS
427: --
428: BEGIN
429: --
430: UPDATE pay_org_pay_method_usages_f
431: SET org_pay_method_usage_id = X_Org_Pay_Method_Usage_Id,
432: effective_start_date = X_Effective_Start_Date,
433: effective_end_date = X_Effective_End_Date,
434: payroll_id = X_Payroll_Id,
460: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
461: --
462: BEGIN
463: --
464: DELETE FROM pay_org_pay_method_usages_f
465: WHERE rowid = X_Rowid;
466: --
467: if (SQL%NOTFOUND) then
468: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');