33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'hr_summary_PK') Then
37: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'hr_summary_PK') Then
37: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
35: --
36: If (p_constraint_name = 'hr_summary_PK') Then
37: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
36: If (p_constraint_name = 'hr_summary_PK') Then
37: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
41: Elsif (p_constraint_name = 'PARENT_RECORD') Then
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
42: fnd_message.set_name('PER', 'PER_74879_PARENT_RECORD');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
43: fnd_message.raise_error;
44: Elsif p_constraint_name = 'CHILD_RECORD_ITU' then
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
45: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
46: fnd_message.set_token('TYPE', 'Item Type Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
47: fnd_message.raise_error;
48: Elsif p_constraint_name = 'CHILD_RECORD_VR' then
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
49: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
50: fnd_message.set_token('TYPE', 'Valid Restriction');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
51: fnd_message.raise_error;
52: Elsif p_constraint_name = 'CHILD_RECORD_RTU' then
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
53: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
54: fnd_message.set_token('TYPE', 'Restriction Usage');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
55: fnd_message.raise_error;
56: Elsif p_constraint_name = 'CHILD_RECORD_KTU' then
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
57: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
58: fnd_message.set_token('TYPE', 'Key Type Usage');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
59: fnd_message.raise_error;
60: Elsif p_constraint_name = 'CHILD_RECORD_RV' then
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
61: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
62: fnd_message.set_token('TYPE', 'Restriction Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
63: fnd_message.raise_error;
64: Elsif p_constraint_name = 'CHILD_RECORD_KV' then
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
65: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
66: fnd_message.set_token('TYPE', 'Key Value');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
67: fnd_message.raise_error;
68: Elsif p_constraint_name = 'CHILD_RECORD_IV' then
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
69: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
70: fnd_message.set_token('TYPE', 'Item Value');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
71: fnd_message.raise_error;
72: Elsif p_constraint_name = 'CHILD_RECORD_VKT' then
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
73: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
74: fnd_message.set_token('TYPE', 'Valid Key Type');
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
75: fnd_message.raise_error;
76: Elsif p_constraint_name = 'CHILD_RECORD_PR' then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
77: fnd_message.set_name('PER', 'PER_74880_CHILD_RECORD');
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
78: fnd_message.set_token('TYPE', 'Process Run');
79: fnd_message.raise_error;
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
80: Elsif (p_constraint_name = 'UNIQUE_ROW') Then
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
81: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
82: fnd_message.raise_error;
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
89: Else
83: Elsif (p_constraint_name = 'UNIQUE_SEQUENCE') Then
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
84: fnd_message.set_name('PER', 'PER_74881_UNIQUE_ROW');
85: fnd_message.raise_error;
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
92: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
86: Elsif (p_constraint_name = 'RECORD_PROTECT') Then
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
92: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
93: fnd_message.raise_error;
94: End If;
87: fnd_message.set_name('PER', 'PER_74882_RECORD_PROTECT');
88: fnd_message.raise_error;
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
92: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
93: fnd_message.raise_error;
94: End If;
95: --
88: fnd_message.raise_error;
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
92: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
93: fnd_message.raise_error;
94: End If;
95: --
96: hr_utility.set_location(' Leaving:'||l_proc, 10);
89: Else
90: fnd_message.set_name('PER', 'HR_7877_API_INVALID_CONSTRAINT');
91: fnd_message.set_token('PROCEDURE', l_proc);
92: fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
93: fnd_message.raise_error;
94: End If;
95: --
96: hr_utility.set_location(' Leaving:'||l_proc, 10);
97: End constraint_error;
420: --
421: if csr_lookup%found then
422: null;
423: else
424: fnd_message.set_name('PER','PER_74884_LOOKUP_EXIST');
425: fnd_message.set_token('NAME',p_code);
426: fnd_message.raise_error;
427: end if;
428: --
421: if csr_lookup%found then
422: null;
423: else
424: fnd_message.set_name('PER','PER_74884_LOOKUP_EXIST');
425: fnd_message.set_token('NAME',p_code);
426: fnd_message.raise_error;
427: end if;
428: --
429: hr_utility.set_location('Leaving: lookup_exist', 10);
422: null;
423: else
424: fnd_message.set_name('PER','PER_74884_LOOKUP_EXIST');
425: fnd_message.set_token('NAME',p_code);
426: fnd_message.raise_error;
427: end if;
428: --
429: hr_utility.set_location('Leaving: lookup_exist', 10);
430: --
531: --
532: p_stmt := l_stmt;
533: --
534: if l_error then
535: fnd_message.set_name('PER','PER_74887_INVALID_SQL');
536: fnd_message.raise_error;
537: end if;
538: --
539: end check_restriction_sql;
532: p_stmt := l_stmt;
533: --
534: if l_error then
535: fnd_message.set_name('PER','PER_74887_INVALID_SQL');
536: fnd_message.raise_error;
537: end if;
538: --
539: end check_restriction_sql;
540: -- ----------------------------------------------------------------------------
593: end loop;
594: close test_csr;
595: --
596: if not l_found then
597: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
598: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
599: fnd_message.raise_error;
600: end if;
601: /*
594: close test_csr;
595: --
596: if not l_found then
597: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
598: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
599: fnd_message.raise_error;
600: end if;
601: /*
602: source_cursor := dbms_sql.open_cursor;
595: --
596: if not l_found then
597: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
598: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
599: fnd_message.raise_error;
600: end if;
601: /*
602: source_cursor := dbms_sql.open_cursor;
603: --
624: --
625: dbms_sql.close_cursor(source_cursor);
626: --
627: if not l_found then
628: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
629: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
630: fnd_message.raise_error;
631: end if;
632: --*/
625: dbms_sql.close_cursor(source_cursor);
626: --
627: if not l_found then
628: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
629: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
630: fnd_message.raise_error;
631: end if;
632: --*/
633: end;
626: --
627: if not l_found then
628: fnd_message.set_name('PER','PER_74888_RESTRICTION_SQL');
629: fnd_message.set_token('RESTRICTION_TYPE',l_rt_title);
630: fnd_message.raise_error;
631: end if;
632: --*/
633: end;
634: else