13:
14: BEGIN
15:
16: if (length(X_SIRET) <> 14) then
17: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
18: hr_utility.raise_error;
19: end if;
20:
21: l_siret := X_SIRET;
14: BEGIN
15:
16: if (length(X_SIRET) <> 14) then
17: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
18: hr_utility.raise_error;
19: end if;
20:
21: l_siret := X_SIRET;
22: begin
28: ,nullok => 'Y'
29: ,rgeflg => l_rgeflg
30: ,curcode => NULL);
31: exception
32: when HR_UTILITY.HR_ERROR then
33: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
34: hr_utility.raise_error;
35: end;
36: l_total := 0;
29: ,rgeflg => l_rgeflg
30: ,curcode => NULL);
31: exception
32: when HR_UTILITY.HR_ERROR then
33: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
34: hr_utility.raise_error;
35: end;
36: l_total := 0;
37: l_total_impair := 0;
30: ,curcode => NULL);
31: exception
32: when HR_UTILITY.HR_ERROR then
33: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
34: hr_utility.raise_error;
35: end;
36: l_total := 0;
37: l_total_impair := 0;
38: l_total_pair := 0;
53:
54: l_total := l_total_pair + l_total_impair;
55:
56: if mod (l_total,10) <> 0 then
57: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
58: hr_utility.raise_error;
59: end if;
60:
61:
54: l_total := l_total_pair + l_total_impair;
55:
56: if mod (l_total,10) <> 0 then
57: hr_utility.set_message(800,'PER_74846_ORG_INV_SIRET');
58: hr_utility.raise_error;
59: end if;
60:
61:
62: END Validate_SIRET;
74:
75: BEGIN
76:
77: if (length(X_SIREN) <> 9) then
78: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
79: hr_utility.raise_error;
80: end if;
81:
82: l_siren := X_SIREN;
75: BEGIN
76:
77: if (length(X_SIREN) <> 9) then
78: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
79: hr_utility.raise_error;
80: end if;
81:
82: l_siren := X_SIREN;
83: begin
89: ,nullok => 'Y'
90: ,rgeflg => l_rgeflg
91: ,curcode => NULL);
92: exception
93: when HR_UTILITY.HR_ERROR then
94: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
95: hr_utility.raise_error;
96: end;
97:
90: ,rgeflg => l_rgeflg
91: ,curcode => NULL);
92: exception
93: when HR_UTILITY.HR_ERROR then
94: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
95: hr_utility.raise_error;
96: end;
97:
98: l_total := 0;
91: ,curcode => NULL);
92: exception
93: when HR_UTILITY.HR_ERROR then
94: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
95: hr_utility.raise_error;
96: end;
97:
98: l_total := 0;
99: l_total_impair := 0;
115:
116: l_total := l_total_pair + l_total_impair;
117:
118: if mod (l_total,10) <> 0 then
119: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
120: hr_utility.raise_error;
121: end if;
122:
123:
116: l_total := l_total_pair + l_total_impair;
117:
118: if mod (l_total,10) <> 0 then
119: hr_utility.set_message(800,'PER_74847_ORG_INV_SIREN');
120: hr_utility.raise_error;
121: end if;
122:
123:
124: END Validate_SIREN;
280: FETCH C2 INTO l_Org_Information_Id;
281: CLOSE C2;
282: x_org_information_id := l_org_information_id;
283: end if;
284: hr_utility.set_location('HR_ORGANIZATION_INFORMATION',1);
285:
286: if X_org_information_context = 'FR_ESTAB_INFO' then
287: Validate_SIRET(X_SIRET => X_org_information2);
288: elsif X_org_information_context = 'FR_ESTAB_PREV_INFO' then
401: X_Attribute19,
402: X_Attribute20
403:
404: );
405: hr_utility.set_location('HR_ORGANIZATION_INFORMATION',2);
406: OPEN C (l_org_information_id);
407: FETCH C INTO l_Rowid;
408: if (C%NOTFOUND) then
409: CLOSE C;
406: OPEN C (l_org_information_id);
407: FETCH C INTO l_Rowid;
408: if (C%NOTFOUND) then
409: CLOSE C;
410: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
411: hr_utility.set_message_token('PROCEDURE','Insert_Row');
412: hr_utility.set_message_token('STEP','1');
413: hr_utility.raise_error;
414: end if;
407: FETCH C INTO l_Rowid;
408: if (C%NOTFOUND) then
409: CLOSE C;
410: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
411: hr_utility.set_message_token('PROCEDURE','Insert_Row');
412: hr_utility.set_message_token('STEP','1');
413: hr_utility.raise_error;
414: end if;
415: CLOSE C;
408: if (C%NOTFOUND) then
409: CLOSE C;
410: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
411: hr_utility.set_message_token('PROCEDURE','Insert_Row');
412: hr_utility.set_message_token('STEP','1');
413: hr_utility.raise_error;
414: end if;
415: CLOSE C;
416: x_rowid := l_rowId;
409: CLOSE C;
410: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
411: hr_utility.set_message_token('PROCEDURE','Insert_Row');
412: hr_utility.set_message_token('STEP','1');
413: hr_utility.raise_error;
414: end if;
415: CLOSE C;
416: x_rowid := l_rowId;
417: END Insert_Row;
473: OPEN C;
474: FETCH C INTO Recinfo;
475: if (C%NOTFOUND) then
476: CLOSE C;
477: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
478: hr_utility.set_message_token('PROCEDURE','Lock_Row');
479: hr_utility.set_message_token('STEP','1');
480: hr_utility.raise_error;
481: end if;
474: FETCH C INTO Recinfo;
475: if (C%NOTFOUND) then
476: CLOSE C;
477: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
478: hr_utility.set_message_token('PROCEDURE','Lock_Row');
479: hr_utility.set_message_token('STEP','1');
480: hr_utility.raise_error;
481: end if;
482: CLOSE C;
475: if (C%NOTFOUND) then
476: CLOSE C;
477: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
478: hr_utility.set_message_token('PROCEDURE','Lock_Row');
479: hr_utility.set_message_token('STEP','1');
480: hr_utility.raise_error;
481: end if;
482: CLOSE C;
483: --
476: CLOSE C;
477: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
478: hr_utility.set_message_token('PROCEDURE','Lock_Row');
479: hr_utility.set_message_token('STEP','1');
480: hr_utility.raise_error;
481: end if;
482: CLOSE C;
483: --
484: Recinfo.attribute9 := rtrim(Recinfo.attribute9);
757: -- 'State Tax Rules' and the segment being updated is WC Carrier then
758: -- check that a WC rate for this carrier is not being referenced by
759: -- an assignment's 'WC Override Code' on the SCL 'GREs and other data'
760: --
761: hr_utility.set_location ('hr_org_information_pkg.update_row', 1);
762: --
763: IF (X_Org_Information_Context = 'State Tax Rules')
764: THEN
765: --
762: --
763: IF (X_Org_Information_Context = 'State Tax Rules')
764: THEN
765: --
766: hr_utility.set_location ('hr_org_information_pkg.update_row', 2);
767: --
768: -- get original values
769: --
770: OPEN get_orig_values;
776: IF ((l_state_code <> X_org_information1) OR
777: (NVL(l_carrier_id, X_org_information8) <> X_org_information8) OR
778: X_org_information8 IS NULL)
779: THEN
780: hr_utility.set_location ('hr_org_information_pkg.update_row', 3);
781: OPEN check_override;
782: FETCH check_override into l_dummy;
783: IF check_override%FOUND
784: THEN
781: OPEN check_override;
782: FETCH check_override into l_dummy;
783: IF check_override%FOUND
784: THEN
785: hr_utility.set_location ('hr_org_information_pkg.update_row', 4);
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
782: FETCH check_override into l_dummy;
783: IF check_override%FOUND
784: THEN
785: hr_utility.set_location ('hr_org_information_pkg.update_row', 4);
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
790: hr_utility.set_location ('hr_org_information_pkg.update_row', 5);
783: IF check_override%FOUND
784: THEN
785: hr_utility.set_location ('hr_org_information_pkg.update_row', 4);
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
790: hr_utility.set_location ('hr_org_information_pkg.update_row', 5);
791: END IF;
786: hr_utility.set_message(800,'HR_51039_ORG_WC_OVRRD_RATE_REF');
787: hr_utility.raise_error;
788: END IF;
789: CLOSE check_override;
790: hr_utility.set_location ('hr_org_information_pkg.update_row', 5);
791: END IF;
792: END IF; -- end US specific validation
793:
794: if X_org_information_context = 'FR_ESTAB_INFO' then
868: attribute20 = X_Attribute20
869: WHERE rowid = X_rowid;
870:
871: if (SQL%NOTFOUND) then
872: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
873: hr_utility.set_message_token('PROCEDURE','Update_Row');
874: hr_utility.set_message_token('STEP','1');
875: hr_utility.raise_error;
876: end if;
869: WHERE rowid = X_rowid;
870:
871: if (SQL%NOTFOUND) then
872: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
873: hr_utility.set_message_token('PROCEDURE','Update_Row');
874: hr_utility.set_message_token('STEP','1');
875: hr_utility.raise_error;
876: end if;
877:
870:
871: if (SQL%NOTFOUND) then
872: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
873: hr_utility.set_message_token('PROCEDURE','Update_Row');
874: hr_utility.set_message_token('STEP','1');
875: hr_utility.raise_error;
876: end if;
877:
878: END Update_Row;
871: if (SQL%NOTFOUND) then
872: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
873: hr_utility.set_message_token('PROCEDURE','Update_Row');
874: hr_utility.set_message_token('STEP','1');
875: hr_utility.raise_error;
876: end if;
877:
878: END Update_Row;
879:
884: DELETE FROM HR_ORGANIZATION_INFORMATION
885: WHERE rowid = X_Rowid;
886:
887: if (SQL%NOTFOUND) then
888: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
889: hr_utility.set_message_token('PROCEDURE','Delete_Row');
890: hr_utility.set_message_token('STEP','1');
891: hr_utility.raise_error;
892: end if;
885: WHERE rowid = X_Rowid;
886:
887: if (SQL%NOTFOUND) then
888: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
889: hr_utility.set_message_token('PROCEDURE','Delete_Row');
890: hr_utility.set_message_token('STEP','1');
891: hr_utility.raise_error;
892: end if;
893: END Delete_Row;
886:
887: if (SQL%NOTFOUND) then
888: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
889: hr_utility.set_message_token('PROCEDURE','Delete_Row');
890: hr_utility.set_message_token('STEP','1');
891: hr_utility.raise_error;
892: end if;
893: END Delete_Row;
894:
887: if (SQL%NOTFOUND) then
888: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
889: hr_utility.set_message_token('PROCEDURE','Delete_Row');
890: hr_utility.set_message_token('STEP','1');
891: hr_utility.raise_error;
892: end if;
893: END Delete_Row;
894:
895: END HR_ORG_INFORMATION_PKG;