[Home] [Help]
60: where pya.action_type = 'Q'
61: and pya.payroll_action_id = asa.payroll_action_id
62: and asa.assignment_action_id = p_assignment_action_id;
63: begin
64: hr_utility.set_location('Entering:'|| v_proc, 5);
65: --
66: -- Check mandatory parameters have been set
67: --
68: hr_api.mandatory_arg_error
79: close sel_exists;
80: -- Error: You have tried to include an element entry in QuickPay for an
81: -- assignment process that does not exist. The p_rec.assignment_action_id
82: -- (or p_assignment_action_id) argument has been set to an incorrect value.
83: hr_utility.set_message(801, 'HR_7224_QPAY_NO_ASG_ACT');
84: hr_utility.raise_error;
85: end if;
86: close sel_exists;
87: hr_utility.set_location(v_proc, 6);
80: -- Error: You have tried to include an element entry in QuickPay for an
81: -- assignment process that does not exist. The p_rec.assignment_action_id
82: -- (or p_assignment_action_id) argument has been set to an incorrect value.
83: hr_utility.set_message(801, 'HR_7224_QPAY_NO_ASG_ACT');
84: hr_utility.raise_error;
85: end if;
86: close sel_exists;
87: hr_utility.set_location(v_proc, 6);
88: --
83: hr_utility.set_message(801, 'HR_7224_QPAY_NO_ASG_ACT');
84: hr_utility.raise_error;
85: end if;
86: close sel_exists;
87: hr_utility.set_location(v_proc, 6);
88: --
89: -- Check the assignment action is for a 'QuickPay Run' payroll action
90: --
91: Open sel_for_qpr;
95: -- Error: You have tried to include an element entry in QuickPay for an
96: -- invalid type of payroll process. The payroll process corresponding to
97: -- the assignment process (p_rec.assignment_action_id) must be of the type
98: -- QuickPay Run.
99: hr_utility.set_message(801, 'HR_7230_QPAY_NOT_ACT_QP');
100: hr_utility.raise_error;
101: end if;
102: close sel_for_qpr;
103: hr_utility.set_location(' Leaving:'|| v_proc, 10);
96: -- invalid type of payroll process. The payroll process corresponding to
97: -- the assignment process (p_rec.assignment_action_id) must be of the type
98: -- QuickPay Run.
99: hr_utility.set_message(801, 'HR_7230_QPAY_NOT_ACT_QP');
100: hr_utility.raise_error;
101: end if;
102: close sel_for_qpr;
103: hr_utility.set_location(' Leaving:'|| v_proc, 10);
104: end validate_asg_act_id;
99: hr_utility.set_message(801, 'HR_7230_QPAY_NOT_ACT_QP');
100: hr_utility.raise_error;
101: end if;
102: close sel_for_qpr;
103: hr_utility.set_location(' Leaving:'|| v_proc, 10);
104: end validate_asg_act_id;
105: --
106: -- ----------------------------------------------------------------------------
107: -- |-------------------------< validate_ele_ent_id >--------------------------|
296: )
297: );
298: --
299: begin
300: hr_utility.set_location('Entering:'|| v_proc, 5);
301: --
302: -- Check that the element entry exists with id p_element_entry_id
303: --
304: open cur_exists;
307: close cur_exists;
308: -- Error: You have tried to include a non-existent element entry for
309: -- QuickPay. The p_rec.element_entry_id (or element_entry_id) argument has
310: -- been set to an incorrect value.
311: hr_utility.set_message(801, 'HR_7232_QPAY_NO_ELE_ENT');
312: hr_utility.raise_error;
313: end if;
314: close cur_exists;
315: hr_utility.set_location(v_proc, 6);
308: -- Error: You have tried to include a non-existent element entry for
309: -- QuickPay. The p_rec.element_entry_id (or element_entry_id) argument has
310: -- been set to an incorrect value.
311: hr_utility.set_message(801, 'HR_7232_QPAY_NO_ELE_ENT');
312: hr_utility.raise_error;
313: end if;
314: close cur_exists;
315: hr_utility.set_location(v_proc, 6);
316: --
311: hr_utility.set_message(801, 'HR_7232_QPAY_NO_ELE_ENT');
312: hr_utility.raise_error;
313: end if;
314: close cur_exists;
315: hr_utility.set_location(v_proc, 6);
316: --
317: -- Check the element entry exists as of the QuickPay Run
318: -- date_earned.
319: --
323: close cur_date;
324: -- Error: You have tried to include an element entry for QuickPay that
325: -- does not exist at Date Earned. You can only include element entries
326: -- that are date effective at this date.
327: hr_utility.set_message(801, 'HR_7233_QPAY_NO_ELE_D_EARN');
328: hr_utility.raise_error;
329: end if;
330: close cur_date;
331: hr_utility.set_location(v_proc, 7);
324: -- Error: You have tried to include an element entry for QuickPay that
325: -- does not exist at Date Earned. You can only include element entries
326: -- that are date effective at this date.
327: hr_utility.set_message(801, 'HR_7233_QPAY_NO_ELE_D_EARN');
328: hr_utility.raise_error;
329: end if;
330: close cur_date;
331: hr_utility.set_location(v_proc, 7);
332: --
327: hr_utility.set_message(801, 'HR_7233_QPAY_NO_ELE_D_EARN');
328: hr_utility.raise_error;
329: end if;
330: close cur_date;
331: hr_utility.set_location(v_proc, 7);
332: --
333: -- Check element entry must be for the same
334: -- assignment as the assignment action
335: --
338: if cur_same%notfound then
339: close cur_same;
340: -- Error: You have tried to include an element entry for QuickPay that is
341: -- not for the same assignment as defined for the QuickPay run.
342: hr_utility.set_message(801, 'HR_7234_QPAY_ELE_NOT_ASG');
343: hr_utility.raise_error;
344: end if;
345: close cur_same;
346: hr_utility.set_location(v_proc, 8);
339: close cur_same;
340: -- Error: You have tried to include an element entry for QuickPay that is
341: -- not for the same assignment as defined for the QuickPay run.
342: hr_utility.set_message(801, 'HR_7234_QPAY_ELE_NOT_ASG');
343: hr_utility.raise_error;
344: end if;
345: close cur_same;
346: hr_utility.set_location(v_proc, 8);
347: --
342: hr_utility.set_message(801, 'HR_7234_QPAY_ELE_NOT_ASG');
343: hr_utility.raise_error;
344: end if;
345: close cur_same;
346: hr_utility.set_location(v_proc, 8);
347: --
348: -- Check that the element type, for the element entry,
349: -- can be processed in the run.
350: --
353: if cur_inrun%notfound then
354: close cur_inrun;
355: -- Error: You have tried to include an element entry for QuickPay for an
356: -- element that cannot be processed in a payroll run.
357: hr_utility.set_message(801, 'HR_7236_QPAY_ELE_NOT_PRO');
358: hr_utility.raise_error;
359: end if;
360: close cur_inrun;
361: hr_utility.set_location(v_proc, 9);
354: close cur_inrun;
355: -- Error: You have tried to include an element entry for QuickPay for an
356: -- element that cannot be processed in a payroll run.
357: hr_utility.set_message(801, 'HR_7236_QPAY_ELE_NOT_PRO');
358: hr_utility.raise_error;
359: end if;
360: close cur_inrun;
361: hr_utility.set_location(v_proc, 9);
362: --
357: hr_utility.set_message(801, 'HR_7236_QPAY_ELE_NOT_PRO');
358: hr_utility.raise_error;
359: end if;
360: close cur_inrun;
361: hr_utility.set_location(v_proc, 9);
362: --
363: -- Check the element entry does not have a entry_type of
364: -- balance adjustment, replacement adjustment or additive adjustment.
365: --
369: close cur_entry;
370: -- Error: You have tried to include an element entry in a QuickPay run
371: -- that can only be used for a balance adjustment, replacement adjustment
372: -- or additive adjustment.
373: hr_utility.set_message(801, 'HR_7237_QPAY_ELE_WRG_CAT');
374: hr_utility.raise_error;
375: end if;
376: close cur_entry;
377: hr_utility.set_location(v_proc, 10);
370: -- Error: You have tried to include an element entry in a QuickPay run
371: -- that can only be used for a balance adjustment, replacement adjustment
372: -- or additive adjustment.
373: hr_utility.set_message(801, 'HR_7237_QPAY_ELE_WRG_CAT');
374: hr_utility.raise_error;
375: end if;
376: close cur_entry;
377: hr_utility.set_location(v_proc, 10);
378: --
373: hr_utility.set_message(801, 'HR_7237_QPAY_ELE_WRG_CAT');
374: hr_utility.raise_error;
375: end if;
376: close cur_entry;
377: hr_utility.set_location(v_proc, 10);
378: --
379: -- Further element entry checks:
380: -- A non-recurring entry cannot be included if it has already
381: -- been processed.
389: close cur_fur_ele;
390: -- Error: You have tried to include an element entry in a QuickPay run
391: -- that has already been processed. It is either a processed non-recurring
392: -- entry or a processed recurring, additional or override entry.
393: hr_utility.set_message(801, 'HR_7284_QPAY_ELE_ARY_PRO');
394: hr_utility.raise_error;
395: end if;
396: close cur_fur_ele;
397: hr_utility.set_location(' Leaving:'|| v_proc, 11);
390: -- Error: You have tried to include an element entry in a QuickPay run
391: -- that has already been processed. It is either a processed non-recurring
392: -- entry or a processed recurring, additional or override entry.
393: hr_utility.set_message(801, 'HR_7284_QPAY_ELE_ARY_PRO');
394: hr_utility.raise_error;
395: end if;
396: close cur_fur_ele;
397: hr_utility.set_location(' Leaving:'|| v_proc, 11);
398: --
393: hr_utility.set_message(801, 'HR_7284_QPAY_ELE_ARY_PRO');
394: hr_utility.raise_error;
395: end if;
396: close cur_fur_ele;
397: hr_utility.set_location(' Leaving:'|| v_proc, 11);
398: --
399: end validate_ele_ent_id;
400: --
401: -- ----------------------------------------------------------------------------
438: from pay_quickpay_inclusions
439: where element_entry_id = p_rec.element_entry_id
440: and assignment_action_id = p_rec.assignment_action_id;
441: begin
442: hr_utility.set_location('Entering:'|| v_proc, 5);
443: --
444: -- Check that quickpay inclusion does not exist.
445: --
446: open cur_exists;
448: if cur_exists%found then
449: close cur_exists;
450: -- Error: You have tried to include the same element entry more than once
451: -- in the QuickPay run.
452: hr_utility.set_message(801, 'HR_7238_QPAY_ELE_INCED');
453: hr_utility.raise_error;
454: end if;
455: close cur_exists;
456: hr_utility.set_location(' Leaving:'|| v_proc, 10);
449: close cur_exists;
450: -- Error: You have tried to include the same element entry more than once
451: -- in the QuickPay run.
452: hr_utility.set_message(801, 'HR_7238_QPAY_ELE_INCED');
453: hr_utility.raise_error;
454: end if;
455: close cur_exists;
456: hr_utility.set_location(' Leaving:'|| v_proc, 10);
457: end validate_row_exists;
452: hr_utility.set_message(801, 'HR_7238_QPAY_ELE_INCED');
453: hr_utility.raise_error;
454: end if;
455: close cur_exists;
456: hr_utility.set_location(' Leaving:'|| v_proc, 10);
457: end validate_row_exists;
458: --
459: -- ----------------------------------------------------------------------------
460: -- |--------------------------< validate_act_cmp >----------------------------|
509: where aga.assignment_action_id = p_assignment_action_id
510: and pya.payroll_action_id = aga.payroll_action_id
511: and pya.current_task is not null;
512: begin
513: hr_utility.set_location('Entering:'|| v_proc, 5);
514: --
515: -- Check that assignment_action does not have a status of Complete.
516: --
517: open cur_aga_act;
520: close cur_aga_act;
521: -- Error: You have tried to include or exclude an element entry for a
522: -- QuickPay run that has completed successfully. To do this you must
523: -- change the assignment process status to Marked for Retry.
524: hr_utility.set_message(801, 'HR_7239_QPAY_ELE_MARK');
525: hr_utility.raise_error;
526: end if;
527: close cur_aga_act;
528: hr_utility.set_location(v_proc, 6);
521: -- Error: You have tried to include or exclude an element entry for a
522: -- QuickPay run that has completed successfully. To do this you must
523: -- change the assignment process status to Marked for Retry.
524: hr_utility.set_message(801, 'HR_7239_QPAY_ELE_MARK');
525: hr_utility.raise_error;
526: end if;
527: close cur_aga_act;
528: hr_utility.set_location(v_proc, 6);
529: --
524: hr_utility.set_message(801, 'HR_7239_QPAY_ELE_MARK');
525: hr_utility.raise_error;
526: end if;
527: close cur_aga_act;
528: hr_utility.set_location(v_proc, 6);
529: --
530: -- Check that payroll_action does not have
531: -- current_task set to a not null value.
532: --
535: if cur_pya_act%found then
536: close cur_pya_act;
537: -- Error: You have tried to include or exclude an element entry from a
538: -- QuickPay run while the run is processing.
539: hr_utility.set_message(801, 'HR_7240_QPAY_ELE_RUNNING');
540: hr_utility.raise_error;
541: end if;
542: close cur_pya_act;
543: hr_utility.set_location(' Leaving:'|| v_proc, 10);
536: close cur_pya_act;
537: -- Error: You have tried to include or exclude an element entry from a
538: -- QuickPay run while the run is processing.
539: hr_utility.set_message(801, 'HR_7240_QPAY_ELE_RUNNING');
540: hr_utility.raise_error;
541: end if;
542: close cur_pya_act;
543: hr_utility.set_location(' Leaving:'|| v_proc, 10);
544: end validate_act_cmp;
539: hr_utility.set_message(801, 'HR_7240_QPAY_ELE_RUNNING');
540: hr_utility.raise_error;
541: end if;
542: close cur_pya_act;
543: hr_utility.set_location(' Leaving:'|| v_proc, 10);
544: end validate_act_cmp;
545: --
546: -- ----------------------------------------------------------------------------
547: -- |------------------------------< insert_dml >------------------------------|
578: --
579: v_proc varchar2(72) := g_package||'insert_dml';
580: --
581: begin
582: hr_utility.set_location('Entering:'||v_proc, 5);
583: --
584: -- Insert the row into: pay_quickpay_inclusions
585: --
586: insert into pay_quickpay_inclusions
591: (p_rec.element_entry_id
592: ,p_rec.assignment_action_id
593: );
594: --
595: hr_utility.set_location(' Leaving:'||v_proc, 10);
596: end insert_dml;
597: --
598: -- ----------------------------------------------------------------------------
599: -- |------------------------------< delete_dml >------------------------------|
630: --
631: v_proc varchar2(72) := g_package||'delete_dml';
632: --
633: Begin
634: hr_utility.set_location('Entering:'|| v_proc, 5);
635: --
636: -- Delete the pay_quickpay_inclusions row.
637: --
638: delete from pay_quickpay_inclusions
643: --
644: -- The row to be deleted was NOT found therefore a serious
645: -- error has occurred which MUST be reported.
646: --
647: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
648: hr_utility.set_message_token('PROCEDURE', v_proc);
649: hr_utility.set_message_token('STEP','5');
650: hr_utility.raise_error;
651: End If;
644: -- The row to be deleted was NOT found therefore a serious
645: -- error has occurred which MUST be reported.
646: --
647: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
648: hr_utility.set_message_token('PROCEDURE', v_proc);
649: hr_utility.set_message_token('STEP','5');
650: hr_utility.raise_error;
651: End If;
652: --
645: -- error has occurred which MUST be reported.
646: --
647: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
648: hr_utility.set_message_token('PROCEDURE', v_proc);
649: hr_utility.set_message_token('STEP','5');
650: hr_utility.raise_error;
651: End If;
652: --
653: hr_utility.set_location(' Leaving:'|| v_proc, 10);
646: --
647: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
648: hr_utility.set_message_token('PROCEDURE', v_proc);
649: hr_utility.set_message_token('STEP','5');
650: hr_utility.raise_error;
651: End If;
652: --
653: hr_utility.set_location(' Leaving:'|| v_proc, 10);
654: End delete_dml;
649: hr_utility.set_message_token('STEP','5');
650: hr_utility.raise_error;
651: End If;
652: --
653: hr_utility.set_location(' Leaving:'|| v_proc, 10);
654: End delete_dml;
655: --
656: -- ----------------------------------------------------------------------------
657: -- |---------------------------------< lck >----------------------------------|
673: --
674: v_proc varchar2(72) := g_package||'lck';
675: --
676: Begin
677: hr_utility.set_location('Entering:'|| v_proc, 5);
678: --
679: -- The primary key exists therefore we must now attempt to lock the
680: -- row and check the object version numbers.
681: --
685: Close C_Sel1;
686: --
687: -- The primary key is invalid therefore we must error
688: --
689: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
690: hr_utility.raise_error;
691: End If;
692: Close C_Sel1;
693: --
686: --
687: -- The primary key is invalid therefore we must error
688: --
689: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
690: hr_utility.raise_error;
691: End If;
692: Close C_Sel1;
693: --
694: hr_utility.set_location(' Leaving:'|| v_proc, 10);
690: hr_utility.raise_error;
691: End If;
692: Close C_Sel1;
693: --
694: hr_utility.set_location(' Leaving:'|| v_proc, 10);
695: --
696: -- We need to trap the ORA LOCK exception
697: --
698: Exception
700: --
701: -- The object is locked therefore we need to supply a meaningful
702: -- error message.
703: --
704: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
705: hr_utility.set_message_token('TABLE_NAME', 'pay_quickpay_inclusions');
706: hr_utility.raise_error;
707: End lck;
708: --
701: -- The object is locked therefore we need to supply a meaningful
702: -- error message.
703: --
704: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
705: hr_utility.set_message_token('TABLE_NAME', 'pay_quickpay_inclusions');
706: hr_utility.raise_error;
707: End lck;
708: --
709: -- ----------------------------------------------------------------------------
702: -- error message.
703: --
704: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
705: hr_utility.set_message_token('TABLE_NAME', 'pay_quickpay_inclusions');
706: hr_utility.raise_error;
707: End lck;
708: --
709: -- ----------------------------------------------------------------------------
710: -- |-----------------------------< convert_args >-----------------------------|
749: v_proc varchar2(72) := g_package||'convert_args';
750: --
751: Begin
752: --
753: hr_utility.set_location('Entering:'|| v_proc, 5);
754: --
755: -- Convert arguments into local l_rec structure.
756: --
757: v_rec.element_entry_id := p_element_entry_id;
758: v_rec.assignment_action_id := p_assignment_action_id;
759: --
760: -- Return the plsql record structure.
761: --
762: hr_utility.set_location(' Leaving:'|| v_proc, 10);
763: Return(v_rec);
764: --
765: End convert_args;
766: --
795: --
796: v_proc varchar2(72) := g_package||'insert_validate';
797: --
798: begin
799: hr_utility.set_location('Entering:'|| v_proc, 5);
800: --
801: -- Call all supporting business operations
802: --
803: -- Validate that the assignment action actually exists and it
803: -- Validate that the assignment action actually exists and it
804: -- is for a 'QuickPay Run' Payroll Process.
805: --
806: validate_asg_act_id(p_assignment_action_id => p_rec.assignment_action_id);
807: hr_utility.set_location(v_proc, 6);
808: --
809: -- Validate that corresponding assignment action
810: -- does not have a status of Complete and the corresponding
811: -- Payroll Process is not being processed.
810: -- does not have a status of Complete and the corresponding
811: -- Payroll Process is not being processed.
812: --
813: validate_act_cmp(p_assignment_action_id => p_rec.assignment_action_id);
814: hr_utility.set_location(v_proc, 7);
815: --
816: -- Validate the element entry.
817: --
818: validate_ele_ent_id(p_rec => p_rec);
815: --
816: -- Validate the element entry.
817: --
818: validate_ele_ent_id(p_rec => p_rec);
819: hr_utility.set_location(v_proc, 8);
820: --
821: -- Validate that this quickpay inclusion does not already exist.
822: --
823: validate_row_exists(p_rec => p_rec);
820: --
821: -- Validate that this quickpay inclusion does not already exist.
822: --
823: validate_row_exists(p_rec => p_rec);
824: hr_utility.set_location(v_proc, 9);
825: --
826: hr_utility.set_location(' Leaving:'|| v_proc, 10);
827: end insert_validate;
828: --
822: --
823: validate_row_exists(p_rec => p_rec);
824: hr_utility.set_location(v_proc, 9);
825: --
826: hr_utility.set_location(' Leaving:'|| v_proc, 10);
827: end insert_validate;
828: --
829: -- ----------------------------------------------------------------------------
830: -- |---------------------------< delete_validate >----------------------------|
857: --
858: v_proc varchar2(72) := g_package||'delete_validate';
859: --
860: begin
861: hr_utility.set_location('Entering:'|| v_proc, 5);
862: --
863: -- Validate that corresponding assignment action
864: -- does not have a status of Complete and the corresponding
865: -- payroll action does not have a status of Processing.
865: -- payroll action does not have a status of Processing.
866: --
867: validate_act_cmp(p_assignment_action_id => p_rec.assignment_action_id);
868: --
869: hr_utility.set_location(' Leaving:'|| v_proc, 10);
870: end delete_validate;
871: --
872: -- ----------------------------------------------------------------------------
873: -- |---------------------------------< ins >----------------------------------|
881: --
882: v_proc varchar2(72) := g_package||'ins';
883: --
884: Begin
885: hr_utility.set_location('Entering:'|| v_proc, 5);
886: --
887: -- Determine if the business process is to be validated.
888: --
889: If p_validate then
906: if p_validate then
907: raise hr_api.validate_enabled;
908: end if;
909: --
910: hr_utility.set_location(' Leaving:'||v_proc, 10);
911: exception
912: when hr_api.validate_enabled then
913: --
914: -- As the Validate_Enabled exception has been raised
930: v_rec pay_quickpay_inclusions%ROWTYPE;
931: v_proc varchar2(72) := g_package||'ins';
932: --
933: Begin
934: hr_utility.set_location('Entering:'|| v_proc, 5);
935: --
936: -- Call conversion function to turn arguments into the
937: -- pl/sql record structure.
938: --
946: -- call the entity version of ins.
947: --
948: ins(v_rec, p_validate);
949: --
950: hr_utility.set_location(' Leaving:'|| v_proc, 10);
951: End ins;
952: --
953: -- ----------------------------------------------------------------------------
954: -- |-------------------------< bulk_default_ins >-----------------------------|
961: --
962: v_proc varchar2(72) := g_package||'bulk_default_ins';
963: --
964: begin
965: hr_utility.set_location('Entering:'|| v_proc, 5);
966: --
967: -- Determine if the business process is to be validated.
968: --
969: if p_validate then
976: -- Validate the assignment_action exists and the corresponding
977: -- payroll_action is for a 'QuickPay Run'.
978: --
979: validate_asg_act_id(p_assignment_action_id => p_assignment_action_id);
980: hr_utility.set_location(v_proc, 6);
981: --
982: -- Validate that corresponding assignment action
983: -- does not have a status of Complete and the corresponding
984: -- payroll action does not have a status of Processing.
983: -- does not have a status of Complete and the corresponding
984: -- payroll action does not have a status of Processing.
985: --
986: validate_act_cmp(p_assignment_action_id => p_assignment_action_id);
987: hr_utility.set_location(v_proc, 7);
988: --
989: -- Insert the default quickpay inclusions
990: --
991: insert into pay_quickpay_inclusions
1073: * Assignment Action:
1074: */
1075: and asa.assignment_action_id = p_assignment_action_id;
1076: --
1077: hr_utility.set_location(v_proc, 7);
1078: --
1079: -- If we are validating then perform the rollback.
1080: --
1081: if p_validate then
1084: --
1085: rollback to bulk_default_ins_pay_qpi;
1086: end if;
1087: --
1088: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1089: end bulk_default_ins;
1090: --
1091: -- ----------------------------------------------------------------------------
1092: -- |---------------------------------< del >----------------------------------|
1099: --
1100: v_proc varchar2(30) := g_package||'del';
1101: --
1102: Begin
1103: hr_utility.set_location('Entering:'|| v_proc, 5);
1104: --
1105: -- We are deleting using the primary key therefore
1106: -- we must ensure that the argument value is NOT null.
1107: --
1107: --
1108: if (p_rec.element_entry_id is null or
1109: p_rec.assignment_action_id is null
1110: ) then
1111: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1112: hr_utility.set_message_token('PROCEDURE', v_proc);
1113: hr_utility.set_message_token('STEP','5');
1114: hr_utility.raise_error;
1115: else
1108: if (p_rec.element_entry_id is null or
1109: p_rec.assignment_action_id is null
1110: ) then
1111: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1112: hr_utility.set_message_token('PROCEDURE', v_proc);
1113: hr_utility.set_message_token('STEP','5');
1114: hr_utility.raise_error;
1115: else
1116: --
1109: p_rec.assignment_action_id is null
1110: ) then
1111: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1112: hr_utility.set_message_token('PROCEDURE', v_proc);
1113: hr_utility.set_message_token('STEP','5');
1114: hr_utility.raise_error;
1115: else
1116: --
1117: -- Determine if the business process is to be validated.
1110: ) then
1111: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1112: hr_utility.set_message_token('PROCEDURE', v_proc);
1113: hr_utility.set_message_token('STEP','5');
1114: hr_utility.raise_error;
1115: else
1116: --
1117: -- Determine if the business process is to be validated.
1118: --
1145: raise hr_api.validate_enabled;
1146: end if;
1147: end if;
1148: --
1149: hr_utility.set_location(' Leaving:'||v_proc, 10);
1150: exception
1151: when hr_api.validate_enabled Then
1152: --
1153: -- As the Validate_Enabled exception has been raised
1169: v_rec pay_quickpay_inclusions%ROWTYPE;
1170: v_proc varchar2(72) := g_package||'del';
1171: --
1172: begin
1173: hr_utility.set_location('Entering:'|| v_proc, 5);
1174: --
1175: -- As the delete procedure accepts a plsql record structure we do need to
1176: -- convert the arguments into the record structure.
1177: -- We don't need to call the supplied conversion argument routine as we
1184: -- structure we must call the entity version of del.
1185: --
1186: del(v_rec, p_validate);
1187: --
1188: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1189: end del;
1190: --
1191: end pay_qpi_api;