114: -- Access Status:
115: -- Internal Row Handler Use Only.
116: --
117: procedure chk_person_id
118: (p_person_id in per_contracts_f.person_id%TYPE
119: ,p_business_group_id in per_contracts_f.business_group_id%TYPE
120: ,p_effective_date in per_contracts_f.effective_start_date%TYPE
121: )
122: is
115: -- Internal Row Handler Use Only.
116: --
117: procedure chk_person_id
118: (p_person_id in per_contracts_f.person_id%TYPE
119: ,p_business_group_id in per_contracts_f.business_group_id%TYPE
120: ,p_effective_date in per_contracts_f.effective_start_date%TYPE
121: )
122: is
123: --
116: --
117: procedure chk_person_id
118: (p_person_id in per_contracts_f.person_id%TYPE
119: ,p_business_group_id in per_contracts_f.business_group_id%TYPE
120: ,p_effective_date in per_contracts_f.effective_start_date%TYPE
121: )
122: is
123: --
124: l_exists varchar2(1);
191: -- Access Status:
192: -- Internal Row Handler Use Only.
193: --
194: procedure chk_reference
195: (p_person_id in per_contracts_f.person_id%TYPE
196: ,p_reference in per_contracts_f.reference%TYPE
197: ,p_datetrack_mode in varchar2
198: ,p_contract_id in per_contracts_f.contract_id%TYPE
199: )
192: -- Internal Row Handler Use Only.
193: --
194: procedure chk_reference
195: (p_person_id in per_contracts_f.person_id%TYPE
196: ,p_reference in per_contracts_f.reference%TYPE
197: ,p_datetrack_mode in varchar2
198: ,p_contract_id in per_contracts_f.contract_id%TYPE
199: )
200: is
194: procedure chk_reference
195: (p_person_id in per_contracts_f.person_id%TYPE
196: ,p_reference in per_contracts_f.reference%TYPE
197: ,p_datetrack_mode in varchar2
198: ,p_contract_id in per_contracts_f.contract_id%TYPE
199: )
200: is
201: --
202: l_exists varchar2(1);
204: l_proc varchar2(72) := g_package||'chk_reference';
205: --
206: cursor csr_update is
207: select null
208: from per_contracts_f
209: where person_id = p_person_id
210: and contract_id <> p_contract_id
211: and reference = p_reference;
212: --
211: and reference = p_reference;
212: --
213: cursor csr_insert is
214: select null
215: from per_contracts_f
216: where person_id = p_person_id
217: and reference = p_reference;
218: --
219: begin
298: -- Access Status:
299: -- Internal Row Handler Use Only.
300: --
301: procedure chk_type
302: (p_contract_id in per_contracts_f.contract_id%TYPE
303: ,p_type in per_contracts_f.type%TYPE
304: ,p_effective_date in date
305: ,p_validation_start_date in date
306: ,p_validation_end_date in date
299: -- Internal Row Handler Use Only.
300: --
301: procedure chk_type
302: (p_contract_id in per_contracts_f.contract_id%TYPE
303: ,p_type in per_contracts_f.type%TYPE
304: ,p_effective_date in date
305: ,p_validation_start_date in date
306: ,p_validation_end_date in date
307: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
303: ,p_type in per_contracts_f.type%TYPE
304: ,p_effective_date in date
305: ,p_validation_start_date in date
306: ,p_validation_end_date in date
307: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
308: )
309: is
310: --
311: l_proc varchar2(72) := g_package||'chk_type';
412: -- Access Status:
413: -- Internal Row Handler Use Only.
414: --
415: procedure chk_status
416: (p_contract_id in per_contracts_f.contract_id%TYPE
417: ,p_status in per_contracts_f.status%TYPE
418: ,p_effective_date in date
419: ,p_validation_start_date in date
420: ,p_validation_end_date in date
413: -- Internal Row Handler Use Only.
414: --
415: procedure chk_status
416: (p_contract_id in per_contracts_f.contract_id%TYPE
417: ,p_status in per_contracts_f.status%TYPE
418: ,p_effective_date in date
419: ,p_validation_start_date in date
420: ,p_validation_end_date in date
421: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
417: ,p_status in per_contracts_f.status%TYPE
418: ,p_effective_date in date
419: ,p_validation_start_date in date
420: ,p_validation_end_date in date
421: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
422: )
423: is
424: --
425: l_proc varchar2(72) := g_package||'chk_status';
526: -- Access Status:
527: -- Internal Row Handler Use Only.
528: --
529: procedure chk_status_reason
530: (p_contract_id in per_contracts_f.contract_id%TYPE
531: ,p_status_reason in per_contracts_f.status_reason%TYPE
532: ,p_effective_date in date
533: ,p_validation_start_date in date
534: ,p_validation_end_date in date
527: -- Internal Row Handler Use Only.
528: --
529: procedure chk_status_reason
530: (p_contract_id in per_contracts_f.contract_id%TYPE
531: ,p_status_reason in per_contracts_f.status_reason%TYPE
532: ,p_effective_date in date
533: ,p_validation_start_date in date
534: ,p_validation_end_date in date
535: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
531: ,p_status_reason in per_contracts_f.status_reason%TYPE
532: ,p_effective_date in date
533: ,p_validation_start_date in date
534: ,p_validation_end_date in date
535: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
536: )
537: is
538: --
539: l_proc varchar2(72) := g_package||'chk_status_reason';
641: -- Access Status:
642: -- Internal Row Handler Use Only.
643: --
644: procedure chk_duration_units
645: (p_contract_id in per_contracts_f.contract_id%TYPE
646: ,p_duration in per_contracts_f.duration%TYPE
647: ,p_duration_units in per_contracts_f.duration_units%TYPE
648: ,p_effective_date in date
649: ,p_validation_start_date in date
642: -- Internal Row Handler Use Only.
643: --
644: procedure chk_duration_units
645: (p_contract_id in per_contracts_f.contract_id%TYPE
646: ,p_duration in per_contracts_f.duration%TYPE
647: ,p_duration_units in per_contracts_f.duration_units%TYPE
648: ,p_effective_date in date
649: ,p_validation_start_date in date
650: ,p_validation_end_date in date
643: --
644: procedure chk_duration_units
645: (p_contract_id in per_contracts_f.contract_id%TYPE
646: ,p_duration in per_contracts_f.duration%TYPE
647: ,p_duration_units in per_contracts_f.duration_units%TYPE
648: ,p_effective_date in date
649: ,p_validation_start_date in date
650: ,p_validation_end_date in date
651: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
647: ,p_duration_units in per_contracts_f.duration_units%TYPE
648: ,p_effective_date in date
649: ,p_validation_start_date in date
650: ,p_validation_end_date in date
651: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
652: )
653: is
654: --
655: l_proc varchar2(72) := g_package||'chk_duration_units';
775: -- Access Status:
776: -- Internal Row Handler Use Only.
777: --
778: procedure chk_start_reason
779: (p_contract_id in per_contracts_f.contract_id%TYPE
780: ,p_start_reason in per_contracts_f.start_reason%TYPE
781: ,p_effective_date in date
782: ,p_validation_start_date in date
783: ,p_validation_end_date in date
776: -- Internal Row Handler Use Only.
777: --
778: procedure chk_start_reason
779: (p_contract_id in per_contracts_f.contract_id%TYPE
780: ,p_start_reason in per_contracts_f.start_reason%TYPE
781: ,p_effective_date in date
782: ,p_validation_start_date in date
783: ,p_validation_end_date in date
784: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
780: ,p_start_reason in per_contracts_f.start_reason%TYPE
781: ,p_effective_date in date
782: ,p_validation_start_date in date
783: ,p_validation_end_date in date
784: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
785: )
786: is
787: --
788: l_proc varchar2(72) := g_package||'chk_start_reason';
889: -- Access Status:
890: -- Internal Row Handler Use Only.
891: --
892: procedure chk_end_reason
893: (p_contract_id in per_contracts_f.contract_id%TYPE
894: ,p_end_reason in per_contracts_f.end_reason%TYPE
895: ,p_effective_date in date
896: ,p_validation_start_date in date
897: ,p_validation_end_date in date
890: -- Internal Row Handler Use Only.
891: --
892: procedure chk_end_reason
893: (p_contract_id in per_contracts_f.contract_id%TYPE
894: ,p_end_reason in per_contracts_f.end_reason%TYPE
895: ,p_effective_date in date
896: ,p_validation_start_date in date
897: ,p_validation_end_date in date
898: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
894: ,p_end_reason in per_contracts_f.end_reason%TYPE
895: ,p_effective_date in date
896: ,p_validation_start_date in date
897: ,p_validation_end_date in date
898: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
899: )
900: is
901: --
902: l_proc varchar2(72) := g_package||'chk_end_reason';
1004: -- Access Status:
1005: -- Internal Row Handler Use Only.
1006: --
1007: procedure chk_extension_period_units
1008: (p_contract_id in per_contracts_f.contract_id%TYPE
1009: ,p_extension_period in per_contracts_f.extension_period%TYPE
1010: ,p_extension_period_units in per_contracts_f.extension_period_units%TYPE
1011: ,p_effective_date in date
1012: ,p_validation_start_date in date
1005: -- Internal Row Handler Use Only.
1006: --
1007: procedure chk_extension_period_units
1008: (p_contract_id in per_contracts_f.contract_id%TYPE
1009: ,p_extension_period in per_contracts_f.extension_period%TYPE
1010: ,p_extension_period_units in per_contracts_f.extension_period_units%TYPE
1011: ,p_effective_date in date
1012: ,p_validation_start_date in date
1013: ,p_validation_end_date in date
1006: --
1007: procedure chk_extension_period_units
1008: (p_contract_id in per_contracts_f.contract_id%TYPE
1009: ,p_extension_period in per_contracts_f.extension_period%TYPE
1010: ,p_extension_period_units in per_contracts_f.extension_period_units%TYPE
1011: ,p_effective_date in date
1012: ,p_validation_start_date in date
1013: ,p_validation_end_date in date
1014: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
1010: ,p_extension_period_units in per_contracts_f.extension_period_units%TYPE
1011: ,p_effective_date in date
1012: ,p_validation_start_date in date
1013: ,p_validation_end_date in date
1014: ,p_object_version_number in per_contracts_f.object_version_number%TYPE
1015: )
1016: is
1017: --
1018: l_proc varchar2(72) := g_package||'chk_extension_period_units';
1124: -- Access Status:
1125: -- Internal Development Use Only.
1126: --
1127: function chk_assignment_exists
1128: (p_contract_id in per_contracts_f.contract_id%TYPE) return boolean is
1129: --
1130: cursor csr_assignment is
1131: select '1' from per_all_assignments_f
1132: where contract_id = p_contract_id;
1468: --
1469: cursor csr_leg_code is
1470: select pbg.legislation_code
1471: from per_business_groups pbg
1472: , per_contracts_f ctr
1473: where ctr.contract_id = p_contract_id
1474: and pbg.business_group_id = ctr.business_group_id
1475: order by ctr.effective_start_date;
1476: --