[Home] [Help]
27: -- whose Attribute Values records are to be
28: -- extracted to the loader file.
29: --=======================================================
30: procedure WRITE_NAVIGATION_TO_BUFFER (
31: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: p_return_status OUT NOCOPY VARCHAR2,
33: p_database_object_name IN VARCHAR2,
34: p_attribute_application_id IN NUMBER,
35: p_attribute_code IN VARCHAR2
56: loop
57: fetch l_get_navigation_csr into l_navigation_rec;
58: exit when l_get_navigation_csr%notfound;
59: -- write this object attribute navigation record if it is valid
60: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
61: not AK_OBJECT_PVT.VALIDATE_ATTRIBUTE_NAVIGATION (
62: p_validation_level => p_validation_level,
63: p_api_version_number => 1.0,
64: p_return_status => l_return_status,
80: to_char(l_navigation_rec.value_date) ||
81: to_char(l_navigation_rec.value_number) );
82: FND_MSG_PUB.Add;
83: close l_get_navigation_csr;
84: RAISE FND_API.G_EXC_ERROR;
85: end if;
86:
87: else
88: l_databuffer_tbl(l_index) := ' ';
93: to_char(l_navigation_rec.value_date, AK_ON_OBJECTS_PUB.G_DATE_FORMAT)
94: || '" "' ||
95: nvl(to_char(l_navigation_rec.value_number),'') || '"';
96: if ((l_navigation_rec.to_region_appl_id IS NOT NULL) and
97: (l_navigation_rec.to_region_appl_id <> FND_API.G_MISS_NUM) and
98: (l_navigation_rec.to_region_code IS NOT NULL) and
99: (l_navigation_rec.to_region_code <> FND_API.G_MISS_CHAR)) then
100: l_index := l_index + 1;
101: l_databuffer_tbl(l_index) := ' TO_REGION = "' ||
95: nvl(to_char(l_navigation_rec.value_number),'') || '"';
96: if ((l_navigation_rec.to_region_appl_id IS NOT NULL) and
97: (l_navigation_rec.to_region_appl_id <> FND_API.G_MISS_NUM) and
98: (l_navigation_rec.to_region_code IS NOT NULL) and
99: (l_navigation_rec.to_region_code <> FND_API.G_MISS_CHAR)) then
100: l_index := l_index + 1;
101: l_databuffer_tbl(l_index) := ' TO_REGION = "' ||
102: nvl(to_char(l_navigation_rec.to_region_appl_id),'')||'" "'||
103: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_navigation_rec.to_region_code)
105: end if;
106: -- Flex Fields
107: --
108: if ((l_navigation_rec.attribute_category IS NOT NULL) and
109: (l_navigation_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
110: l_index := l_index + 1;
111: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
112: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
113: l_navigation_rec.attribute_category) || '"';
112: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
113: l_navigation_rec.attribute_category) || '"';
114: end if;
115: if ((l_navigation_rec.attribute1 IS NOT NULL) and
116: (l_navigation_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
117: l_index := l_index + 1;
118: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
119: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
120: l_navigation_rec.attribute1) || '"';
119: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
120: l_navigation_rec.attribute1) || '"';
121: end if;
122: if ((l_navigation_rec.attribute2 IS NOT NULL) and
123: (l_navigation_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
124: l_index := l_index + 1;
125: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
126: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
127: l_navigation_rec.attribute2) || '"';
126: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
127: l_navigation_rec.attribute2) || '"';
128: end if;
129: if ((l_navigation_rec.attribute3 IS NOT NULL) and
130: (l_navigation_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
131: l_index := l_index + 1;
132: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
133: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
134: l_navigation_rec.attribute3) || '"';
133: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
134: l_navigation_rec.attribute3) || '"';
135: end if;
136: if ((l_navigation_rec.attribute4 IS NOT NULL) and
137: (l_navigation_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
138: l_index := l_index + 1;
139: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
140: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
141: l_navigation_rec.attribute4) || '"';
140: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
141: l_navigation_rec.attribute4) || '"';
142: end if;
143: if ((l_navigation_rec.attribute5 IS NOT NULL) and
144: (l_navigation_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
145: l_index := l_index + 1;
146: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
147: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
148: l_navigation_rec.attribute5) || '"';
147: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
148: l_navigation_rec.attribute5) || '"';
149: end if;
150: if ((l_navigation_rec.attribute6 IS NOT NULL) and
151: (l_navigation_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
152: l_index := l_index + 1;
153: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
154: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
155: l_navigation_rec.attribute6) || '"';
154: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
155: l_navigation_rec.attribute6) || '"';
156: end if;
157: if ((l_navigation_rec.attribute7 IS NOT NULL) and
158: (l_navigation_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
159: l_index := l_index + 1;
160: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
161: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
162: l_navigation_rec.attribute7) || '"';
161: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
162: l_navigation_rec.attribute7) || '"';
163: end if;
164: if ((l_navigation_rec.attribute8 IS NOT NULL) and
165: (l_navigation_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
166: l_index := l_index + 1;
167: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
168: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
169: l_navigation_rec.attribute8) || '"';
168: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
169: l_navigation_rec.attribute8) || '"';
170: end if;
171: if ((l_navigation_rec.attribute9 IS NOT NULL) and
172: (l_navigation_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
173: l_index := l_index + 1;
174: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
175: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
176: l_navigation_rec.attribute9) || '"';
175: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
176: l_navigation_rec.attribute9) || '"';
177: end if;
178: if ((l_navigation_rec.attribute10 IS NOT NULL) and
179: (l_navigation_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
180: l_index := l_index + 1;
181: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
182: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
183: l_navigation_rec.attribute10) || '"';
182: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
183: l_navigation_rec.attribute10) || '"';
184: end if;
185: if ((l_navigation_rec.attribute11 IS NOT NULL) and
186: (l_navigation_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
187: l_index := l_index + 1;
188: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
189: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
190: l_navigation_rec.attribute11) || '"';
189: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
190: l_navigation_rec.attribute11) || '"';
191: end if;
192: if ((l_navigation_rec.attribute12 IS NOT NULL) and
193: (l_navigation_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
194: l_index := l_index + 1;
195: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
196: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
197: l_navigation_rec.attribute12) || '"';
196: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
197: l_navigation_rec.attribute12) || '"';
198: end if;
199: if ((l_navigation_rec.attribute13 IS NOT NULL) and
200: (l_navigation_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
201: l_index := l_index + 1;
202: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
203: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
204: l_navigation_rec.attribute13) || '"';
203: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
204: l_navigation_rec.attribute13) || '"';
205: end if;
206: if ((l_navigation_rec.attribute14 IS NOT NULL) and
207: (l_navigation_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
208: l_index := l_index + 1;
209: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
210: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
211: l_navigation_rec.attribute14) || '"';
210: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
211: l_navigation_rec.attribute14) || '"';
212: end if;
213: if ((l_navigation_rec.attribute15 IS NOT NULL) and
214: (l_navigation_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
215: l_index := l_index + 1;
216: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
217: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
218: l_navigation_rec.attribute15) || '"';
257: p_buffer_tbl => l_databuffer_tbl,
258: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
259: );
260: -- If API call returns with an error status...
261: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
262: (l_return_status = FND_API.G_RET_STS_ERROR) then
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265: end if;
258: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
259: );
260: -- If API call returns with an error status...
261: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
262: (l_return_status = FND_API.G_RET_STS_ERROR) then
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265: end if;
266:
259: );
260: -- If API call returns with an error status...
261: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
262: (l_return_status = FND_API.G_RET_STS_ERROR) then
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265: end if;
266:
267: p_return_status := FND_API.G_RET_STS_SUCCESS;
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265: end if;
266:
267: p_return_status := FND_API.G_RET_STS_SUCCESS;
268:
269: EXCEPTION
270: WHEN VALUE_ERROR THEN
271: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
276: to_char(l_navigation_rec.value_date) ||
277: to_char(l_navigation_rec.value_number) );
278: FND_MSG_PUB.Add;
279: end if;
280: p_return_status := FND_API.G_RET_STS_ERROR;
281: WHEN FND_API.G_EXC_ERROR THEN
282: p_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN OTHERS THEN
284: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
277: to_char(l_navigation_rec.value_number) );
278: FND_MSG_PUB.Add;
279: end if;
280: p_return_status := FND_API.G_RET_STS_ERROR;
281: WHEN FND_API.G_EXC_ERROR THEN
282: p_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN OTHERS THEN
284: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
278: FND_MSG_PUB.Add;
279: end if;
280: p_return_status := FND_API.G_RET_STS_ERROR;
281: WHEN FND_API.G_EXC_ERROR THEN
282: p_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN OTHERS THEN
284: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
286: SUBSTR (SQLERRM, 1, 240) );
280: p_return_status := FND_API.G_RET_STS_ERROR;
281: WHEN FND_API.G_EXC_ERROR THEN
282: p_return_status := FND_API.G_RET_STS_ERROR;
283: WHEN OTHERS THEN
284: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
285: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
286: SUBSTR (SQLERRM, 1, 240) );
287: FND_MSG_PUB.Add;
288: end WRITE_NAVIGATION_TO_BUFFER;
315: -- The NLS langauge that should be used when
316: -- extracting data from the TL table
317: --=======================================================
318: procedure WRITE_ATTRIBUTE_TO_BUFFER (
319: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
320: p_return_status OUT NOCOPY VARCHAR2,
321: p_database_object_name IN VARCHAR2,
322: p_nls_language IN VARCHAR2
323: ) is
353: l_attributes_rec.attribute_code);
354: fetch l_get_attribute_tl_csr into l_attributes_tl_rec;
355: if l_get_attribute_tl_csr%found then
356: -- write this object attribute if it is validated
357: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
358: not AK_OBJECT_PVT.VALIDATE_ATTRIBUTE (
359: p_validation_level => p_validation_level,
360: p_api_version_number => 1.0,
361: p_return_status => l_return_status,
401: FND_MSG_PUB.Add;
402: end if;
403: close l_get_attribute_tl_csr;
404: close l_get_attributes_csr;
405: RAISE FND_API.G_EXC_ERROR;
406: else
407:
408: l_databuffer_tbl(l_index) := ' ';
409: l_index := l_index + 1;
415: -- check if all non-required columns are null or not, do not write out
416: -- those that are null
417: --
418: if ((l_attributes_rec.column_name IS NOT NULL) and
419: (l_attributes_rec.column_name <> FND_API.G_MISS_CHAR)) then
420: l_index := l_index + 1;
421: l_databuffer_tbl(l_index) := ' COLUMN_NAME = "' ||
422: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_attributes_rec.column_name)
423: || '"';
447: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
448: l_attributes_rec.data_source_type)|| '"';
449: l_index := l_index + 1;
450: if ((l_attributes_rec.data_storage_type IS NOT NULL) and
451: (l_attributes_rec.data_storage_type <> FND_API.G_MISS_CHAR)) then
452: l_databuffer_tbl(l_index) := ' DATA_STORAGE_TYPE = "' ||
453: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
454: l_attributes_rec.data_storage_type)|| '"';
455: end if;
453: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
454: l_attributes_rec.data_storage_type)|| '"';
455: end if;
456: if ((l_attributes_rec.table_name IS NOT NULL) and
457: (l_attributes_rec.table_name <> FND_API.G_MISS_CHAR)) then
458: l_index := l_index + 1;
459: l_databuffer_tbl(l_index) := ' TABLE_NAME = "' ||
460: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
461: l_attributes_rec.table_name)|| '"';
460: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
461: l_attributes_rec.table_name)|| '"';
462: end if;
463: if ((l_attributes_rec.base_table_column_name IS NOT NULL) and
464: (l_attributes_rec.base_table_column_name <> FND_API.G_MISS_CHAR)) then
465: l_index := l_index + 1;
466: l_databuffer_tbl(l_index) := ' BASE_TABLE_COLUMN_NAME = "' ||
467: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
468: l_attributes_rec.base_table_column_name)|| '"';
471: l_databuffer_tbl(l_index) := ' REQUIRED_FLAG = "' ||
472: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
473: l_attributes_rec.required_flag)|| '"';
474: if ((l_attributes_rec.default_value_varchar2 IS NOT NULL) and
475: (l_attributes_rec.default_value_varchar2 <> FND_API.G_MISS_CHAR)) then
476: l_index := l_index + 1;
477: l_databuffer_tbl(l_index) := ' DEFAULT_VALUE_VARCHAR2 = "' ||
478: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
479: l_attributes_rec.default_value_varchar2) || '"';
478: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
479: l_attributes_rec.default_value_varchar2) || '"';
480: end if;
481: if ((l_attributes_rec.default_value_number IS NOT NULL) and
482: (l_attributes_rec.default_value_number <> FND_API.G_MISS_NUM)) then
483: l_index := l_index + 1;
484: l_databuffer_tbl(l_index) := ' DEFAULT_VALUE_NUMBER = "' ||
485: nvl(to_char(l_attributes_rec.default_value_number),'') || '"';
486: end if;
484: l_databuffer_tbl(l_index) := ' DEFAULT_VALUE_NUMBER = "' ||
485: nvl(to_char(l_attributes_rec.default_value_number),'') || '"';
486: end if;
487: if ((l_attributes_rec.default_value_date IS NOT NULL) and
488: (l_attributes_rec.default_value_date <> FND_API.G_MISS_CHAR)) then
489: l_index := l_index + 1;
490: l_databuffer_tbl(l_index) := ' DEFAULT_VALUE_DATE = "' ||
491: to_char(l_attributes_rec.default_value_date,
492: AK_ON_OBJECTS_PUB.G_DATE_FORMAT) || '"';
494:
495: -- Flex Fields
496: --
497: if ((l_attributes_rec.attribute_category IS NOT NULL) and
498: (l_attributes_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
499: l_index := l_index + 1;
500: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
502: l_attributes_rec.attribute_category) || '"';
501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
502: l_attributes_rec.attribute_category) || '"';
503: end if;
504: if ((l_attributes_rec.attribute1 IS NOT NULL) and
505: (l_attributes_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
506: l_index := l_index + 1;
507: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
509: l_attributes_rec.attribute1) || '"';
508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
509: l_attributes_rec.attribute1) || '"';
510: end if;
511: if ((l_attributes_rec.attribute2 IS NOT NULL) and
512: (l_attributes_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
513: l_index := l_index + 1;
514: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
516: l_attributes_rec.attribute2) || '"';
515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
516: l_attributes_rec.attribute2) || '"';
517: end if;
518: if ((l_attributes_rec.attribute3 IS NOT NULL) and
519: (l_attributes_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
520: l_index := l_index + 1;
521: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
523: l_attributes_rec.attribute3) || '"';
522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
523: l_attributes_rec.attribute3) || '"';
524: end if;
525: if ((l_attributes_rec.attribute4 IS NOT NULL) and
526: (l_attributes_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
527: l_index := l_index + 1;
528: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
530: l_attributes_rec.attribute4) || '"';
529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
530: l_attributes_rec.attribute4) || '"';
531: end if;
532: if ((l_attributes_rec.attribute5 IS NOT NULL) and
533: (l_attributes_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
534: l_index := l_index + 1;
535: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
537: l_attributes_rec.attribute5) || '"';
536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
537: l_attributes_rec.attribute5) || '"';
538: end if;
539: if ((l_attributes_rec.attribute6 IS NOT NULL) and
540: (l_attributes_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
541: l_index := l_index + 1;
542: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
544: l_attributes_rec.attribute6) || '"';
543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
544: l_attributes_rec.attribute6) || '"';
545: end if;
546: if ((l_attributes_rec.attribute7 IS NOT NULL) and
547: (l_attributes_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
548: l_index := l_index + 1;
549: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
551: l_attributes_rec.attribute7) || '"';
550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
551: l_attributes_rec.attribute7) || '"';
552: end if;
553: if ((l_attributes_rec.attribute8 IS NOT NULL) and
554: (l_attributes_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
555: l_index := l_index + 1;
556: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
558: l_attributes_rec.attribute8) || '"';
557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
558: l_attributes_rec.attribute8) || '"';
559: end if;
560: if ((l_attributes_rec.attribute9 IS NOT NULL) and
561: (l_attributes_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
562: l_index := l_index + 1;
563: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
565: l_attributes_rec.attribute9) || '"';
564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
565: l_attributes_rec.attribute9) || '"';
566: end if;
567: if ((l_attributes_rec.attribute10 IS NOT NULL) and
568: (l_attributes_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
569: l_index := l_index + 1;
570: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
572: l_attributes_rec.attribute10) || '"';
571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
572: l_attributes_rec.attribute10) || '"';
573: end if;
574: if ((l_attributes_rec.attribute11 IS NOT NULL) and
575: (l_attributes_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
576: l_index := l_index + 1;
577: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
578: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
579: l_attributes_rec.attribute11) || '"';
578: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
579: l_attributes_rec.attribute11) || '"';
580: end if;
581: if ((l_attributes_rec.attribute12 IS NOT NULL) and
582: (l_attributes_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
583: l_index := l_index + 1;
584: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
585: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
586: l_attributes_rec.attribute12) || '"';
585: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
586: l_attributes_rec.attribute12) || '"';
587: end if;
588: if ((l_attributes_rec.attribute13 IS NOT NULL) and
589: (l_attributes_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
590: l_index := l_index + 1;
591: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
592: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
593: l_attributes_rec.attribute13) || '"';
592: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
593: l_attributes_rec.attribute13) || '"';
594: end if;
595: if ((l_attributes_rec.attribute14 IS NOT NULL) and
596: (l_attributes_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
597: l_index := l_index + 1;
598: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
599: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
600: l_attributes_rec.attribute14) || '"';
599: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
600: l_attributes_rec.attribute14) || '"';
601: end if;
602: if ((l_attributes_rec.attribute15 IS NOT NULL) and
603: (l_attributes_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
604: l_index := l_index + 1;
605: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
606: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
607: l_attributes_rec.attribute15) || '"';
630:
631: -- translation columns
632: --
633: if ((l_attributes_rec.lov_region_application_id IS NOT NULL) and
634: (l_attributes_rec.lov_region_application_id <> FND_API.G_MISS_NUM) and
635: (l_attributes_rec.lov_region_code IS NOT NULL) and
636: (l_attributes_rec.lov_region_code <> FND_API.G_MISS_CHAR)) then
637: l_index := l_index + 1;
638: l_databuffer_tbl(l_index) := ' LOV_REGION = "' ||
632: --
633: if ((l_attributes_rec.lov_region_application_id IS NOT NULL) and
634: (l_attributes_rec.lov_region_application_id <> FND_API.G_MISS_NUM) and
635: (l_attributes_rec.lov_region_code IS NOT NULL) and
636: (l_attributes_rec.lov_region_code <> FND_API.G_MISS_CHAR)) then
637: l_index := l_index + 1;
638: l_databuffer_tbl(l_index) := ' LOV_REGION = "' ||
639: nvl(to_char(l_attributes_rec.lov_region_application_id),'')||'" "'||
640: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
640: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
641: l_attributes_rec.lov_region_code)|| '"';
642: end if;
643: if ((l_attributes_rec.lov_foreign_key_name IS NOT NULL) and
644: (l_attributes_rec.lov_foreign_key_name <> FND_API.G_MISS_CHAR)) then
645: l_index := l_index + 1;
646: l_databuffer_tbl(l_index) := ' LOV_FOREIGN_KEY_NAME = "' ||
647: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
648: l_attributes_rec.lov_foreign_key_name)|| '"';
647: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
648: l_attributes_rec.lov_foreign_key_name)|| '"';
649: end if;
650: if ((l_attributes_rec.lov_attribute_application_id IS NOT NULL) and
651: (l_attributes_rec.lov_attribute_application_id <> FND_API.G_MISS_NUM) and
652: (l_attributes_rec.lov_attribute_code IS NOT NULL) and
653: (l_attributes_rec.lov_attribute_code <> FND_API.G_MISS_CHAR)) then
654: l_index := l_index + 1;
655: l_databuffer_tbl(l_index) := ' LOV_ATTRIBUTE = "' ||
649: end if;
650: if ((l_attributes_rec.lov_attribute_application_id IS NOT NULL) and
651: (l_attributes_rec.lov_attribute_application_id <> FND_API.G_MISS_NUM) and
652: (l_attributes_rec.lov_attribute_code IS NOT NULL) and
653: (l_attributes_rec.lov_attribute_code <> FND_API.G_MISS_CHAR)) then
654: l_index := l_index + 1;
655: l_databuffer_tbl(l_index) := ' LOV_ATTRIBUTE = "' ||
656: nvl(to_char(l_attributes_rec.lov_attribute_application_id),'')||'" "'||
657: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
657: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
658: l_attributes_rec.lov_attribute_code)|| '"';
659: end if;
660: if ((l_attributes_rec.base_table_column_name IS NOT NULL) and
661: (l_attributes_rec.base_table_column_name <> FND_API.G_MISS_CHAR)) then
662: l_index := l_index + 1;
663: l_databuffer_tbl(l_index) := ' DEFAULTING_API_PKG = "' ||
664: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
665: l_attributes_rec.defaulting_api_pkg)|| '"';
664: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
665: l_attributes_rec.defaulting_api_pkg)|| '"';
666: end if;
667: if ((l_attributes_rec.defaulting_api_proc IS NOT NULL) and
668: (l_attributes_rec.defaulting_api_proc <> FND_API.G_MISS_CHAR)) then
669: l_index := l_index + 1;
670: l_databuffer_tbl(l_index) := ' DEFAULTING_API_PROC = "' ||
671: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
672: l_attributes_rec.defaulting_api_proc)|| '"';
671: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
672: l_attributes_rec.defaulting_api_proc)|| '"';
673: end if;
674: if ((l_attributes_rec.validation_api_pkg IS NOT NULL) and
675: (l_attributes_rec.validation_api_pkg <> FND_API.G_MISS_CHAR)) then
676: l_index := l_index + 1;
677: l_databuffer_tbl(l_index) := ' VALIDATION_API_PKG = "' ||
678: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
679: l_attributes_rec.validation_api_pkg)|| '"';
678: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
679: l_attributes_rec.validation_api_pkg)|| '"';
680: end if;
681: if ((l_attributes_rec.validation_api_proc IS NOT NULL) and
682: (l_attributes_rec.validation_api_proc <> FND_API.G_MISS_CHAR)) then
683: l_index := l_index + 1;
684: l_databuffer_tbl(l_index) := ' VALIDATION_API_PROC = "' ||
685: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
686: l_attributes_rec.validation_api_proc)|| '"';
687: end if;
688:
689: -- TL table entries
690: if ((l_attributes_tl_rec.attribute_label_long IS NOT NULL) and
691: (l_attributes_tl_rec.attribute_label_long <> FND_API.G_MISS_CHAR)) then
692: l_index := l_index + 1;
693: l_databuffer_tbl(l_index) := ' ATTRIBUTE_LABEL_LONG = "' ||
694: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
695: l_attributes_tl_rec.attribute_label_long)||'"';
694: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
695: l_attributes_tl_rec.attribute_label_long)||'"';
696: end if;
697: if ((l_attributes_tl_rec.attribute_label_short IS NOT NULL) and
698: (l_attributes_tl_rec.attribute_label_short <> FND_API.G_MISS_CHAR)) then
699: l_index := l_index + 1;
700: l_databuffer_tbl(l_index) := ' ATTRIBUTE_LABEL_SHORT = "' ||
701: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
702: l_attributes_tl_rec.attribute_label_short)||'"';
708: p_buffer_tbl => l_databuffer_tbl,
709: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
710: );
711: -- If API call returns with an error status...
712: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
713: (l_return_status = FND_API.G_RET_STS_ERROR) then
714: close l_get_attribute_tl_csr;
715: close l_get_attributes_csr;
716: RAISE FND_API.G_EXC_ERROR;
709: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
710: );
711: -- If API call returns with an error status...
712: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
713: (l_return_status = FND_API.G_RET_STS_ERROR) then
714: close l_get_attribute_tl_csr;
715: close l_get_attributes_csr;
716: RAISE FND_API.G_EXC_ERROR;
717: end if;
712: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
713: (l_return_status = FND_API.G_RET_STS_ERROR) then
714: close l_get_attribute_tl_csr;
715: close l_get_attributes_csr;
716: RAISE FND_API.G_EXC_ERROR;
717: end if;
718:
719: l_databuffer_tbl.delete;
720:
725: p_attribute_application_id => l_attributes_rec.attribute_application_id,
726: p_attribute_code => l_attributes_rec.attribute_code
727: );
728:
729: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
730: (l_return_status = FND_API.G_RET_STS_ERROR) then
731: close l_get_attribute_tl_csr;
732: close l_get_attributes_csr;
733: RAISE FND_API.G_EXC_ERROR;
726: p_attribute_code => l_attributes_rec.attribute_code
727: );
728:
729: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
730: (l_return_status = FND_API.G_RET_STS_ERROR) then
731: close l_get_attribute_tl_csr;
732: close l_get_attributes_csr;
733: RAISE FND_API.G_EXC_ERROR;
734: end if;
729: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
730: (l_return_status = FND_API.G_RET_STS_ERROR) then
731: close l_get_attribute_tl_csr;
732: close l_get_attributes_csr;
733: RAISE FND_API.G_EXC_ERROR;
734: end if;
735:
736: -- finish up object attributes
737: l_index := 1;
746: p_buffer_tbl => l_databuffer_tbl,
747: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
748: );
749: -- If API call returns with an error status...
750: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
751: (l_return_status = FND_API.G_RET_STS_ERROR) then
752: close l_get_attribute_tl_csr;
753: close l_get_attributes_csr;
754: RAISE FND_API.G_EXC_ERROR;
747: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
748: );
749: -- If API call returns with an error status...
750: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
751: (l_return_status = FND_API.G_RET_STS_ERROR) then
752: close l_get_attribute_tl_csr;
753: close l_get_attributes_csr;
754: RAISE FND_API.G_EXC_ERROR;
755: end if;
750: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
751: (l_return_status = FND_API.G_RET_STS_ERROR) then
752: close l_get_attribute_tl_csr;
753: close l_get_attributes_csr;
754: RAISE FND_API.G_EXC_ERROR;
755: end if;
756:
757: l_databuffer_tbl.delete;
758: end if; -- if TL record found
760:
761: end loop;
762: close l_get_attributes_csr;
763:
764: p_return_status := FND_API.G_RET_STS_SUCCESS;
765:
766: EXCEPTION
767: WHEN VALUE_ERROR THEN
768: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
771: ' ' || to_char(l_attributes_rec.attribute_application_id) ||
772: ' ' || l_attributes_rec.attribute_code );
773: FND_MSG_PUB.Add;
774: end if;
775: p_return_status := FND_API.G_RET_STS_ERROR;
776: WHEN FND_API.G_EXC_ERROR THEN
777: p_return_status := FND_API.G_RET_STS_ERROR;
778: WHEN OTHERS THEN
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: ' ' || l_attributes_rec.attribute_code );
773: FND_MSG_PUB.Add;
774: end if;
775: p_return_status := FND_API.G_RET_STS_ERROR;
776: WHEN FND_API.G_EXC_ERROR THEN
777: p_return_status := FND_API.G_RET_STS_ERROR;
778: WHEN OTHERS THEN
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
773: FND_MSG_PUB.Add;
774: end if;
775: p_return_status := FND_API.G_RET_STS_ERROR;
776: WHEN FND_API.G_EXC_ERROR THEN
777: p_return_status := FND_API.G_RET_STS_ERROR;
778: WHEN OTHERS THEN
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
781: SUBSTR (SQLERRM, 1, 240) );
775: p_return_status := FND_API.G_RET_STS_ERROR;
776: WHEN FND_API.G_EXC_ERROR THEN
777: p_return_status := FND_API.G_RET_STS_ERROR;
778: WHEN OTHERS THEN
779: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
781: SUBSTR (SQLERRM, 1, 240) );
782: FND_MSG_PUB.Add;
783: end WRITE_ATTRIBUTE_TO_BUFFER;
809: -- The NLS langauge that should be used when
810: -- extracting data from the TL table
811: --=======================================================
812: procedure WRITE_FOREIGN_KEY_TO_BUFFER (
813: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
814: p_return_status OUT NOCOPY VARCHAR2,
815: p_database_object_name IN VARCHAR2,
816: p_nls_language IN VARCHAR2
817: ) is
849: open l_get_foreign_key_tl_csr (l_foreign_keys_rec.foreign_key_name);
850: fetch l_get_foreign_key_tl_csr into l_foreign_keys_tl_rec;
851: if (l_get_foreign_key_tl_csr%found) then
852: -- write this foreign key to buffer if it is valid
853: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
854: not AK_KEY_PVT.VALIDATE_FOREIGN_KEY (
855: p_validation_level => p_validation_level,
856: p_api_version_number => 1.0,
857: p_return_status => l_return_status,
883: nvl(to_char(l_foreign_keys_rec.application_id),'') || '"';
884: -- Flex Fields
885: --
886: if ((l_foreign_keys_rec.attribute_category IS NOT NULL) and
887: (l_foreign_keys_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
888: l_index := l_index + 1;
889: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
890: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
891: l_foreign_keys_rec.attribute_category) || '"';
890: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
891: l_foreign_keys_rec.attribute_category) || '"';
892: end if;
893: if ((l_foreign_keys_rec.attribute1 IS NOT NULL) and
894: (l_foreign_keys_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
895: l_index := l_index + 1;
896: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
897: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
898: l_foreign_keys_rec.attribute1) || '"';
897: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
898: l_foreign_keys_rec.attribute1) || '"';
899: end if;
900: if ((l_foreign_keys_rec.attribute2 IS NOT NULL) and
901: (l_foreign_keys_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
902: l_index := l_index + 1;
903: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
904: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
905: l_foreign_keys_rec.attribute2) || '"';
904: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
905: l_foreign_keys_rec.attribute2) || '"';
906: end if;
907: if ((l_foreign_keys_rec.attribute3 IS NOT NULL) and
908: (l_foreign_keys_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
909: l_index := l_index + 1;
910: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
911: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
912: l_foreign_keys_rec.attribute3) || '"';
911: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
912: l_foreign_keys_rec.attribute3) || '"';
913: end if;
914: if ((l_foreign_keys_rec.attribute4 IS NOT NULL) and
915: (l_foreign_keys_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
916: l_index := l_index + 1;
917: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
918: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
919: l_foreign_keys_rec.attribute4) || '"';
918: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
919: l_foreign_keys_rec.attribute4) || '"';
920: end if;
921: if ((l_foreign_keys_rec.attribute5 IS NOT NULL) and
922: (l_foreign_keys_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
923: l_index := l_index + 1;
924: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
925: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
926: l_foreign_keys_rec.attribute5) || '"';
925: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
926: l_foreign_keys_rec.attribute5) || '"';
927: end if;
928: if ((l_foreign_keys_rec.attribute6 IS NOT NULL) and
929: (l_foreign_keys_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
930: l_index := l_index + 1;
931: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
932: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
933: l_foreign_keys_rec.attribute6) || '"';
932: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
933: l_foreign_keys_rec.attribute6) || '"';
934: end if;
935: if ((l_foreign_keys_rec.attribute7 IS NOT NULL) and
936: (l_foreign_keys_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
937: l_index := l_index + 1;
938: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
939: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
940: l_foreign_keys_rec.attribute7) || '"';
939: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
940: l_foreign_keys_rec.attribute7) || '"';
941: end if;
942: if ((l_foreign_keys_rec.attribute8 IS NOT NULL) and
943: (l_foreign_keys_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
944: l_index := l_index + 1;
945: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
946: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
947: l_foreign_keys_rec.attribute8) || '"';
946: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
947: l_foreign_keys_rec.attribute8) || '"';
948: end if;
949: if ((l_foreign_keys_rec.attribute9 IS NOT NULL) and
950: (l_foreign_keys_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
951: l_index := l_index + 1;
952: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
953: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
954: l_foreign_keys_rec.attribute9) || '"';
953: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
954: l_foreign_keys_rec.attribute9) || '"';
955: end if;
956: if ((l_foreign_keys_rec.attribute10 IS NOT NULL) and
957: (l_foreign_keys_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
958: l_index := l_index + 1;
959: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
960: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
961: l_foreign_keys_rec.attribute10) || '"';
960: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
961: l_foreign_keys_rec.attribute10) || '"';
962: end if;
963: if ((l_foreign_keys_rec.attribute11 IS NOT NULL) and
964: (l_foreign_keys_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
965: l_index := l_index + 1;
966: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
967: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
968: l_foreign_keys_rec.attribute11) || '"';
967: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
968: l_foreign_keys_rec.attribute11) || '"';
969: end if;
970: if ((l_foreign_keys_rec.attribute12 IS NOT NULL) and
971: (l_foreign_keys_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
972: l_index := l_index + 1;
973: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
974: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
975: l_foreign_keys_rec.attribute12) || '"';
974: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
975: l_foreign_keys_rec.attribute12) || '"';
976: end if;
977: if ((l_foreign_keys_rec.attribute13 IS NOT NULL) and
978: (l_foreign_keys_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
979: l_index := l_index + 1;
980: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
981: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
982: l_foreign_keys_rec.attribute13) || '"';
981: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
982: l_foreign_keys_rec.attribute13) || '"';
983: end if;
984: if ((l_foreign_keys_rec.attribute14 IS NOT NULL) and
985: (l_foreign_keys_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
986: l_index := l_index + 1;
987: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
988: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
989: l_foreign_keys_rec.attribute14) || '"';
988: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
989: l_foreign_keys_rec.attribute14) || '"';
990: end if;
991: if ((l_foreign_keys_rec.attribute15 IS NOT NULL) and
992: (l_foreign_keys_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
993: l_index := l_index + 1;
994: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
995: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
996: l_foreign_keys_rec.attribute15) || '"';
1018: nvl(to_char(l_foreign_keys_rec.last_update_login),'') || '"';
1019:
1020: -- Foreign key TL info
1021: if ((l_foreign_keys_tl_rec.from_to_name IS NOT NULL) and
1022: (l_foreign_keys_tl_rec.from_to_name <> FND_API.G_MISS_CHAR)) then
1023: l_index := l_index + 1;
1024: l_databuffer_tbl(l_index) := ' FROM_TO_NAME = "' ||
1025: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.from_to_name)|| '"';
1026: end if;
1024: l_databuffer_tbl(l_index) := ' FROM_TO_NAME = "' ||
1025: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.from_to_name)|| '"';
1026: end if;
1027: if ((l_foreign_keys_tl_rec.from_to_description IS NOT NULL) and
1028: (l_foreign_keys_tl_rec.from_to_description <> FND_API.G_MISS_CHAR)) then
1029: l_index := l_index + 1;
1030: l_databuffer_tbl(l_index) := ' FROM_TO_DESCRIPTION = "' ||
1031: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.from_to_description)|| '"';
1032: end if;
1030: l_databuffer_tbl(l_index) := ' FROM_TO_DESCRIPTION = "' ||
1031: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.from_to_description)|| '"';
1032: end if;
1033: if ((l_foreign_keys_tl_rec.to_from_name IS NOT NULL) and
1034: (l_foreign_keys_tl_rec.to_from_name <> FND_API.G_MISS_CHAR)) then
1035: l_index := l_index + 1;
1036: l_databuffer_tbl(l_index) := ' TO_FROM_NAME = "' ||
1037: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.to_from_name)|| '"';
1038: end if;
1036: l_databuffer_tbl(l_index) := ' TO_FROM_NAME = "' ||
1037: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.to_from_name)|| '"';
1038: end if;
1039: if ((l_foreign_keys_tl_rec.to_from_description IS NOT NULL) and
1040: (l_foreign_keys_tl_rec.to_from_description <> FND_API.G_MISS_CHAR)) then
1041: l_index := l_index + 1;
1042: l_databuffer_tbl(l_index) := ' TO_FROM_DESCRIPTION = "' ||
1043: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_keys_tl_rec.to_from_description)|| '"';
1044: end if;
1048: loop
1049: fetch l_get_key_columns_csr into l_key_columns_rec;
1050: exit when l_get_key_columns_csr%notfound;
1051: -- Write foreign key column if it is valid
1052: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
1053: not AK_KEY_PVT.VALIDATE_FOREIGN_KEY_COLUMN (
1054: p_validation_level => p_validation_level,
1055: p_api_version_number => 1.0,
1056: p_return_status => l_return_status,
1071: end if;
1072: close l_get_key_columns_csr;
1073: close l_get_foreign_key_tl_csr;
1074: close l_get_foreign_keys_csr;
1075: RAISE FND_API.G_EXC_ERROR;
1076: else
1077: l_index := l_index + 1;
1078: l_databuffer_tbl(l_index) := ' BEGIN FOREIGN_KEY_COLUMN "' ||
1079: nvl(to_char(l_key_columns_rec.attribute_application_id),'') ||
1085: nvl(to_char(l_key_columns_rec.foreign_key_sequence),'') || '"';
1086: -- Flex Fields
1087: --
1088: if ((l_key_columns_rec.attribute_category IS NOT NULL) and
1089: (l_key_columns_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1090: l_index := l_index + 1;
1091: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1092: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1093: l_key_columns_rec.attribute_category) || '"';
1092: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1093: l_key_columns_rec.attribute_category) || '"';
1094: end if;
1095: if ((l_key_columns_rec.attribute1 IS NOT NULL) and
1096: (l_key_columns_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1097: l_index := l_index + 1;
1098: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1099: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1100: l_key_columns_rec.attribute1) || '"';
1099: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1100: l_key_columns_rec.attribute1) || '"';
1101: end if;
1102: if ((l_key_columns_rec.attribute2 IS NOT NULL) and
1103: (l_key_columns_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1104: l_index := l_index + 1;
1105: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1106: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1107: l_key_columns_rec.attribute2) || '"';
1106: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1107: l_key_columns_rec.attribute2) || '"';
1108: end if;
1109: if ((l_key_columns_rec.attribute3 IS NOT NULL) and
1110: (l_key_columns_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1111: l_index := l_index + 1;
1112: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1113: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1114: l_key_columns_rec.attribute3) || '"';
1113: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1114: l_key_columns_rec.attribute3) || '"';
1115: end if;
1116: if ((l_key_columns_rec.attribute4 IS NOT NULL) and
1117: (l_key_columns_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1118: l_index := l_index + 1;
1119: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1120: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1121: l_key_columns_rec.attribute4) || '"';
1120: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1121: l_key_columns_rec.attribute4) || '"';
1122: end if;
1123: if ((l_key_columns_rec.attribute5 IS NOT NULL) and
1124: (l_key_columns_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1125: l_index := l_index + 1;
1126: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1127: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1128: l_key_columns_rec.attribute5) || '"';
1127: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1128: l_key_columns_rec.attribute5) || '"';
1129: end if;
1130: if ((l_key_columns_rec.attribute6 IS NOT NULL) and
1131: (l_key_columns_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1132: l_index := l_index + 1;
1133: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1134: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1135: l_key_columns_rec.attribute6) || '"';
1134: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1135: l_key_columns_rec.attribute6) || '"';
1136: end if;
1137: if ((l_key_columns_rec.attribute7 IS NOT NULL) and
1138: (l_key_columns_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1139: l_index := l_index + 1;
1140: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1141: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1142: l_key_columns_rec.attribute7) || '"';
1141: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1142: l_key_columns_rec.attribute7) || '"';
1143: end if;
1144: if ((l_key_columns_rec.attribute8 IS NOT NULL) and
1145: (l_key_columns_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1146: l_index := l_index + 1;
1147: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1148: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1149: l_key_columns_rec.attribute8) || '"';
1148: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1149: l_key_columns_rec.attribute8) || '"';
1150: end if;
1151: if ((l_key_columns_rec.attribute9 IS NOT NULL) and
1152: (l_key_columns_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1153: l_index := l_index + 1;
1154: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1155: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1156: l_key_columns_rec.attribute9) || '"';
1155: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1156: l_key_columns_rec.attribute9) || '"';
1157: end if;
1158: if ((l_key_columns_rec.attribute10 IS NOT NULL) and
1159: (l_key_columns_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1160: l_index := l_index + 1;
1161: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1162: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1163: l_key_columns_rec.attribute10) || '"';
1162: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1163: l_key_columns_rec.attribute10) || '"';
1164: end if;
1165: if ((l_key_columns_rec.attribute11 IS NOT NULL) and
1166: (l_key_columns_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1167: l_index := l_index + 1;
1168: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1169: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1170: l_key_columns_rec.attribute11) || '"';
1169: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1170: l_key_columns_rec.attribute11) || '"';
1171: end if;
1172: if ((l_key_columns_rec.attribute12 IS NOT NULL) and
1173: (l_key_columns_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1174: l_index := l_index + 1;
1175: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1176: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1177: l_key_columns_rec.attribute12) || '"';
1176: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1177: l_key_columns_rec.attribute12) || '"';
1178: end if;
1179: if ((l_key_columns_rec.attribute13 IS NOT NULL) and
1180: (l_key_columns_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1181: l_index := l_index + 1;
1182: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1183: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1184: l_key_columns_rec.attribute13) || '"';
1183: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1184: l_key_columns_rec.attribute13) || '"';
1185: end if;
1186: if ((l_key_columns_rec.attribute14 IS NOT NULL) and
1187: (l_key_columns_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1188: l_index := l_index + 1;
1189: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1190: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1191: l_key_columns_rec.attribute14) || '"';
1190: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1191: l_key_columns_rec.attribute14) || '"';
1192: end if;
1193: if ((l_key_columns_rec.attribute15 IS NOT NULL) and
1194: (l_key_columns_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
1195: l_index := l_index + 1;
1196: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
1197: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1198: l_key_columns_rec.attribute15) || '"';
1247: p_buffer_tbl => l_databuffer_tbl,
1248: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1249: );
1250: -- If API call returns with an error status...
1251: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1252: (l_return_status = FND_API.G_RET_STS_ERROR) then
1253: RAISE FND_API.G_EXC_ERROR;
1254: end if;
1255: end if;
1248: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1249: );
1250: -- If API call returns with an error status...
1251: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1252: (l_return_status = FND_API.G_RET_STS_ERROR) then
1253: RAISE FND_API.G_EXC_ERROR;
1254: end if;
1255: end if;
1256:
1249: );
1250: -- If API call returns with an error status...
1251: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1252: (l_return_status = FND_API.G_RET_STS_ERROR) then
1253: RAISE FND_API.G_EXC_ERROR;
1254: end if;
1255: end if;
1256:
1257: p_return_status := FND_API.G_RET_STS_SUCCESS;
1253: RAISE FND_API.G_EXC_ERROR;
1254: end if;
1255: end if;
1256:
1257: p_return_status := FND_API.G_RET_STS_SUCCESS;
1258:
1259: EXCEPTION
1260: WHEN VALUE_ERROR THEN
1261: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
1262: FND_MESSAGE.SET_NAME('AK','AK_FOREIGN_KEY_VALUE_ERROR');
1263: FND_MESSAGE.SET_TOKEN('KEY', l_foreign_keys_rec.foreign_key_name);
1264: FND_MSG_PUB.Add;
1265: end if;
1266: p_return_status := FND_API.G_RET_STS_ERROR;
1267: if l_get_key_columns_csr%ISOPEN then
1268: close l_get_key_columns_csr;
1269: end if;
1270: if l_get_foreign_key_tl_csr%ISOPEN then
1272: end if;
1273: if l_get_foreign_keys_csr%ISOPEN then
1274: close l_get_foreign_keys_csr;
1275: end if;
1276: WHEN FND_API.G_EXC_ERROR THEN
1277: p_return_status := FND_API.G_RET_STS_ERROR;
1278: if l_get_key_columns_csr%ISOPEN then
1279: close l_get_key_columns_csr;
1280: end if;
1273: if l_get_foreign_keys_csr%ISOPEN then
1274: close l_get_foreign_keys_csr;
1275: end if;
1276: WHEN FND_API.G_EXC_ERROR THEN
1277: p_return_status := FND_API.G_RET_STS_ERROR;
1278: if l_get_key_columns_csr%ISOPEN then
1279: close l_get_key_columns_csr;
1280: end if;
1281: if l_get_foreign_key_tl_csr%ISOPEN then
1284: if l_get_foreign_keys_csr%ISOPEN then
1285: close l_get_foreign_keys_csr;
1286: end if;
1287: WHEN OTHERS THEN
1288: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1290: SUBSTR (SQLERRM, 1, 240) );
1291: FND_MSG_PUB.Add;
1292: if l_get_key_columns_csr%ISOPEN then
1328: -- The NLS langauge that should be used when
1329: -- extracting data from the TL table
1330: --=======================================================
1331: procedure WRITE_UNIQUE_KEY_TO_BUFFER (
1332: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1333: p_return_status OUT NOCOPY VARCHAR2,
1334: p_database_object_name IN VARCHAR2
1335: ) is
1336: cursor l_get_unique_keys_csr is
1357: loop
1358: fetch l_get_unique_keys_csr into l_unique_keys_rec;
1359: exit when l_get_unique_keys_csr%notfound;
1360: -- write this unique key to buffer if it is valid
1361: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
1362: not AK_KEY_PVT.VALIDATE_UNIQUE_KEY (
1363: p_validation_level => p_validation_level,
1364: p_api_version_number => 1.0,
1365: p_return_status => l_return_status,
1383: nvl(to_char(l_unique_keys_rec.application_id),'') || '"';
1384: -- Flex Fields
1385: --
1386: if ((l_unique_keys_rec.attribute_category IS NOT NULL) and
1387: (l_unique_keys_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1388: l_index := l_index + 1;
1389: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1390: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1391: l_unique_keys_rec.attribute_category) || '"';
1390: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1391: l_unique_keys_rec.attribute_category) || '"';
1392: end if;
1393: if ((l_unique_keys_rec.attribute1 IS NOT NULL) and
1394: (l_unique_keys_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1395: l_index := l_index + 1;
1396: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1397: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1398: l_unique_keys_rec.attribute1) || '"';
1397: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1398: l_unique_keys_rec.attribute1) || '"';
1399: end if;
1400: if ((l_unique_keys_rec.attribute2 IS NOT NULL) and
1401: (l_unique_keys_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1402: l_index := l_index + 1;
1403: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1404: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1405: l_unique_keys_rec.attribute2) || '"';
1404: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1405: l_unique_keys_rec.attribute2) || '"';
1406: end if;
1407: if ((l_unique_keys_rec.attribute3 IS NOT NULL) and
1408: (l_unique_keys_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1409: l_index := l_index + 1;
1410: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1411: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1412: l_unique_keys_rec.attribute3) || '"';
1411: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1412: l_unique_keys_rec.attribute3) || '"';
1413: end if;
1414: if ((l_unique_keys_rec.attribute4 IS NOT NULL) and
1415: (l_unique_keys_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1416: l_index := l_index + 1;
1417: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1418: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1419: l_unique_keys_rec.attribute4) || '"';
1418: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1419: l_unique_keys_rec.attribute4) || '"';
1420: end if;
1421: if ((l_unique_keys_rec.attribute5 IS NOT NULL) and
1422: (l_unique_keys_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1423: l_index := l_index + 1;
1424: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1425: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1426: l_unique_keys_rec.attribute5) || '"';
1425: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1426: l_unique_keys_rec.attribute5) || '"';
1427: end if;
1428: if ((l_unique_keys_rec.attribute6 IS NOT NULL) and
1429: (l_unique_keys_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1430: l_index := l_index + 1;
1431: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1432: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1433: l_unique_keys_rec.attribute6) || '"';
1432: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1433: l_unique_keys_rec.attribute6) || '"';
1434: end if;
1435: if ((l_unique_keys_rec.attribute7 IS NOT NULL) and
1436: (l_unique_keys_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1437: l_index := l_index + 1;
1438: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1439: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1440: l_unique_keys_rec.attribute7) || '"';
1439: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1440: l_unique_keys_rec.attribute7) || '"';
1441: end if;
1442: if ((l_unique_keys_rec.attribute8 IS NOT NULL) and
1443: (l_unique_keys_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1444: l_index := l_index + 1;
1445: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1446: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1447: l_unique_keys_rec.attribute8) || '"';
1446: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1447: l_unique_keys_rec.attribute8) || '"';
1448: end if;
1449: if ((l_unique_keys_rec.attribute9 IS NOT NULL) and
1450: (l_unique_keys_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1451: l_index := l_index + 1;
1452: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1453: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1454: l_unique_keys_rec.attribute9) || '"';
1453: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1454: l_unique_keys_rec.attribute9) || '"';
1455: end if;
1456: if ((l_unique_keys_rec.attribute10 IS NOT NULL) and
1457: (l_unique_keys_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1458: l_index := l_index + 1;
1459: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1460: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1461: l_unique_keys_rec.attribute10) || '"';
1460: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1461: l_unique_keys_rec.attribute10) || '"';
1462: end if;
1463: if ((l_unique_keys_rec.attribute11 IS NOT NULL) and
1464: (l_unique_keys_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1465: l_index := l_index + 1;
1466: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1467: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1468: l_unique_keys_rec.attribute11) || '"';
1467: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1468: l_unique_keys_rec.attribute11) || '"';
1469: end if;
1470: if ((l_unique_keys_rec.attribute12 IS NOT NULL) and
1471: (l_unique_keys_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1472: l_index := l_index + 1;
1473: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1474: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1475: l_unique_keys_rec.attribute12) || '"';
1474: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1475: l_unique_keys_rec.attribute12) || '"';
1476: end if;
1477: if ((l_unique_keys_rec.attribute13 IS NOT NULL) and
1478: (l_unique_keys_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1479: l_index := l_index + 1;
1480: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1481: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1482: l_unique_keys_rec.attribute13) || '"';
1481: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1482: l_unique_keys_rec.attribute13) || '"';
1483: end if;
1484: if ((l_unique_keys_rec.attribute14 IS NOT NULL) and
1485: (l_unique_keys_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1486: l_index := l_index + 1;
1487: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1488: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1489: l_unique_keys_rec.attribute14) || '"';
1488: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1489: l_unique_keys_rec.attribute14) || '"';
1490: end if;
1491: if ((l_unique_keys_rec.attribute15 IS NOT NULL) and
1492: (l_unique_keys_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
1493: l_index := l_index + 1;
1494: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
1495: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1496: l_unique_keys_rec.attribute15) || '"';
1522: open l_get_key_columns_csr(l_unique_keys_rec.unique_key_name);
1523: loop
1524: fetch l_get_key_columns_csr into l_key_columns_rec;
1525: exit when l_get_key_columns_csr%notfound;
1526: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
1527: not AK_KEY_PVT.VALIDATE_UNIQUE_KEY_COLUMN (
1528: p_validation_level => p_validation_level,
1529: p_api_version_number => 1.0,
1530: p_return_status => l_return_status,
1544: FND_MSG_PUB.Add;
1545: end if;
1546: close l_get_key_columns_csr;
1547: close l_get_unique_keys_csr;
1548: RAISE FND_API.G_EXC_ERROR;
1549: else
1550: l_index := l_index + 1;
1551: l_databuffer_tbl(l_index) := ' BEGIN UNIQUE_KEY_COLUMN "' ||
1552: nvl(to_char(l_key_columns_rec.attribute_application_id),'') ||
1558: nvl(to_char(l_key_columns_rec.unique_key_sequence),'') || '"';
1559: -- Flex Fields
1560: --
1561: if ((l_key_columns_rec.attribute_category IS NOT NULL) and
1562: (l_key_columns_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1563: l_index := l_index + 1;
1564: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1565: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1566: l_key_columns_rec.attribute_category) || '"';
1565: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1566: l_key_columns_rec.attribute_category) || '"';
1567: end if;
1568: if ((l_key_columns_rec.attribute1 IS NOT NULL) and
1569: (l_key_columns_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1570: l_index := l_index + 1;
1571: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1572: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1573: l_key_columns_rec.attribute1) || '"';
1572: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1573: l_key_columns_rec.attribute1) || '"';
1574: end if;
1575: if ((l_key_columns_rec.attribute2 IS NOT NULL) and
1576: (l_key_columns_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1577: l_index := l_index + 1;
1578: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1579: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1580: l_key_columns_rec.attribute2) || '"';
1579: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1580: l_key_columns_rec.attribute2) || '"';
1581: end if;
1582: if ((l_key_columns_rec.attribute3 IS NOT NULL) and
1583: (l_key_columns_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1584: l_index := l_index + 1;
1585: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1586: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1587: l_key_columns_rec.attribute3) || '"';
1586: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1587: l_key_columns_rec.attribute3) || '"';
1588: end if;
1589: if ((l_key_columns_rec.attribute4 IS NOT NULL) and
1590: (l_key_columns_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1591: l_index := l_index + 1;
1592: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1593: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1594: l_key_columns_rec.attribute4) || '"';
1593: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1594: l_key_columns_rec.attribute4) || '"';
1595: end if;
1596: if ((l_key_columns_rec.attribute5 IS NOT NULL) and
1597: (l_key_columns_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1598: l_index := l_index + 1;
1599: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1600: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1601: l_key_columns_rec.attribute5) || '"';
1600: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1601: l_key_columns_rec.attribute5) || '"';
1602: end if;
1603: if ((l_key_columns_rec.attribute6 IS NOT NULL) and
1604: (l_key_columns_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1605: l_index := l_index + 1;
1606: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1607: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1608: l_key_columns_rec.attribute6) || '"';
1607: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1608: l_key_columns_rec.attribute6) || '"';
1609: end if;
1610: if ((l_key_columns_rec.attribute7 IS NOT NULL) and
1611: (l_key_columns_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1612: l_index := l_index + 1;
1613: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1614: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1615: l_key_columns_rec.attribute7) || '"';
1614: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1615: l_key_columns_rec.attribute7) || '"';
1616: end if;
1617: if ((l_key_columns_rec.attribute8 IS NOT NULL) and
1618: (l_key_columns_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1619: l_index := l_index + 1;
1620: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1621: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1622: l_key_columns_rec.attribute8) || '"';
1621: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1622: l_key_columns_rec.attribute8) || '"';
1623: end if;
1624: if ((l_key_columns_rec.attribute9 IS NOT NULL) and
1625: (l_key_columns_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1626: l_index := l_index + 1;
1627: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1628: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1629: l_key_columns_rec.attribute9) || '"';
1628: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1629: l_key_columns_rec.attribute9) || '"';
1630: end if;
1631: if ((l_key_columns_rec.attribute10 IS NOT NULL) and
1632: (l_key_columns_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1633: l_index := l_index + 1;
1634: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1635: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1636: l_key_columns_rec.attribute10) || '"';
1635: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1636: l_key_columns_rec.attribute10) || '"';
1637: end if;
1638: if ((l_key_columns_rec.attribute11 IS NOT NULL) and
1639: (l_key_columns_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1640: l_index := l_index + 1;
1641: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1642: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1643: l_key_columns_rec.attribute11) || '"';
1642: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1643: l_key_columns_rec.attribute11) || '"';
1644: end if;
1645: if ((l_key_columns_rec.attribute12 IS NOT NULL) and
1646: (l_key_columns_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1647: l_index := l_index + 1;
1648: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1649: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1650: l_key_columns_rec.attribute12) || '"';
1649: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1650: l_key_columns_rec.attribute12) || '"';
1651: end if;
1652: if ((l_key_columns_rec.attribute13 IS NOT NULL) and
1653: (l_key_columns_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1654: l_index := l_index + 1;
1655: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1656: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1657: l_key_columns_rec.attribute13) || '"';
1656: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1657: l_key_columns_rec.attribute13) || '"';
1658: end if;
1659: if ((l_key_columns_rec.attribute14 IS NOT NULL) and
1660: (l_key_columns_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1661: l_index := l_index + 1;
1662: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1663: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1664: l_key_columns_rec.attribute14) || '"';
1663: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1664: l_key_columns_rec.attribute14) || '"';
1665: end if;
1666: if ((l_key_columns_rec.attribute15 IS NOT NULL) and
1667: (l_key_columns_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
1668: l_index := l_index + 1;
1669: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
1670: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1671: l_key_columns_rec.attribute15) || '"';
1716: p_buffer_tbl => l_databuffer_tbl,
1717: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1718: );
1719: -- If API call returns with an error status...
1720: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1721: (l_return_status = FND_API.G_RET_STS_ERROR) then
1722: RAISE FND_API.G_EXC_ERROR;
1723: end if;
1724: end if;
1717: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1718: );
1719: -- If API call returns with an error status...
1720: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1721: (l_return_status = FND_API.G_RET_STS_ERROR) then
1722: RAISE FND_API.G_EXC_ERROR;
1723: end if;
1724: end if;
1725:
1718: );
1719: -- If API call returns with an error status...
1720: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1721: (l_return_status = FND_API.G_RET_STS_ERROR) then
1722: RAISE FND_API.G_EXC_ERROR;
1723: end if;
1724: end if;
1725:
1726: p_return_status := FND_API.G_RET_STS_SUCCESS;
1722: RAISE FND_API.G_EXC_ERROR;
1723: end if;
1724: end if;
1725:
1726: p_return_status := FND_API.G_RET_STS_SUCCESS;
1727:
1728: EXCEPTION
1729: WHEN VALUE_ERROR THEN
1730: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
1731: FND_MESSAGE.SET_NAME('AK','AK_UNIQUE_KEY_VALUE_ERROR');
1732: FND_MESSAGE.SET_TOKEN('KEY', l_unique_keys_rec.unique_key_name);
1733: FND_MSG_PUB.Add;
1734: end if;
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: p_return_status := FND_API.G_RET_STS_ERROR;
1738: WHEN OTHERS THEN
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1732: FND_MESSAGE.SET_TOKEN('KEY', l_unique_keys_rec.unique_key_name);
1733: FND_MSG_PUB.Add;
1734: end if;
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: p_return_status := FND_API.G_RET_STS_ERROR;
1738: WHEN OTHERS THEN
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1740: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1733: FND_MSG_PUB.Add;
1734: end if;
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: p_return_status := FND_API.G_RET_STS_ERROR;
1738: WHEN OTHERS THEN
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1740: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1741: SUBSTR (SQLERRM, 1, 240) );
1735: p_return_status := FND_API.G_RET_STS_ERROR;
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: p_return_status := FND_API.G_RET_STS_ERROR;
1738: WHEN OTHERS THEN
1739: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1740: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1741: SUBSTR (SQLERRM, 1, 240) );
1742: FND_MSG_PUB.Add;
1743: end WRITE_UNIQUE_KEY_TO_BUFFER;
1768: -- The NLS langauge that should be used when
1769: -- extracting data from the TL table
1770: --=======================================================
1771: procedure WRITE_TO_BUFFER (
1772: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1773: p_return_status OUT NOCOPY VARCHAR2,
1774: p_database_object_name IN VARCHAR2,
1775: p_nls_language IN VARCHAR2
1776: ) is
1800: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_DOES_NOT_EXIST');
1801: FND_MSG_PUB.Add;
1802: end if;
1803: -- dbms_output.put_line('Cannot find object '||p_database_object_name);
1804: RAISE FND_API.G_EXC_ERROR;
1805: end if;
1806: close l_get_object_csr;
1807:
1808: open l_get_object_tl_csr;
1813: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_DOES_NOT_EXIST');
1814: FND_MSG_PUB.Add;
1815: end if;
1816: -- dbms_output.put_line('Cannot find object in ak_objects_tl '||p_database_object_name);
1817: RAISE FND_API.G_EXC_ERROR;
1818: end if;
1819: close l_get_object_tl_csr;
1820:
1821: -- Object must be validated before it is written to the file
1818: end if;
1819: close l_get_object_tl_csr;
1820:
1821: -- Object must be validated before it is written to the file
1822: if p_validation_level <> FND_API.G_VALID_LEVEL_NONE then
1823: if not AK_OBJECT_PVT.VALIDATE_OBJECT (
1824: p_validation_level => p_validation_level,
1825: p_api_version_number => 1.0,
1826: p_return_status => l_return_status,
1841: FND_MSG_PUB.Add;
1842: end if;
1843: -- dbms_output.put_line('Object ' || p_database_object_name
1844: -- || ' not downloaded due to validation error');
1845: --raise FND_API.G_EXC_ERROR;
1846: end if;
1847: end if;
1848:
1849: -- Write object into buffer
1854: l_index := l_index + 1;
1855: l_databuffer_tbl(l_index) := ' APPLICATION_ID = "' ||
1856: nvl(to_char(l_objects_rec.application_id),'') || '"';
1857: if ((l_objects_rec.primary_key_name IS NOT NULL) and
1858: (l_objects_rec.primary_key_name <> FND_API.G_MISS_CHAR)) then
1859: l_index := l_index + 1;
1860: l_databuffer_tbl(l_index) := ' PRIMARY_KEY_NAME = "' ||
1861: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.primary_key_name) ||
1862: '"';
1861: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.primary_key_name) ||
1862: '"';
1863: end if;
1864: if ((l_objects_rec.defaulting_api_pkg IS NOT NULL) and
1865: (l_objects_rec.defaulting_api_pkg <> FND_API.G_MISS_CHAR)) then
1866: l_index := l_index + 1;
1867: l_databuffer_tbl(l_index) := ' DEFAULTING_API_PKG = "' ||
1868: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.defaulting_api_pkg)
1869: || '"';
1868: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.defaulting_api_pkg)
1869: || '"';
1870: end if;
1871: if ((l_objects_rec.defaulting_api_proc IS NOT NULL) and
1872: (l_objects_rec.defaulting_api_proc <> FND_API.G_MISS_CHAR)) then
1873: l_index := l_index + 1;
1874: l_databuffer_tbl(l_index) := ' DEFAULTING_API_PROC = "' ||
1875: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.defaulting_api_proc)
1876: || '"';
1875: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.defaulting_api_proc)
1876: || '"';
1877: end if;
1878: if ((l_objects_rec.validation_api_pkg IS NOT NULL) and
1879: (l_objects_rec.validation_api_pkg <> FND_API.G_MISS_CHAR)) then
1880: l_index := l_index + 1;
1881: l_databuffer_tbl(l_index) := ' VALIDATION_API_PKG = "' ||
1882: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.validation_api_pkg)
1883: || '"';
1882: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.validation_api_pkg)
1883: || '"';
1884: end if;
1885: if ((l_objects_rec.validation_api_proc IS NOT NULL) and
1886: (l_objects_rec.validation_api_proc <> FND_API.G_MISS_CHAR)) then
1887: l_index := l_index + 1;
1888: l_databuffer_tbl(l_index) := ' VALIDATION_API_PROC = "' ||
1889: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_rec.validation_api_proc)
1890: || '"';
1891: end if;
1892: -- Flex Fields
1893: --
1894: if ((l_objects_rec.attribute_category IS NOT NULL) and
1895: (l_objects_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1896: l_index := l_index + 1;
1897: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1898: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1899: l_objects_rec.attribute_category) || '"';
1898: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1899: l_objects_rec.attribute_category) || '"';
1900: end if;
1901: if ((l_objects_rec.attribute1 IS NOT NULL) and
1902: (l_objects_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1903: l_index := l_index + 1;
1904: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1905: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1906: l_objects_rec.attribute1) || '"';
1905: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1906: l_objects_rec.attribute1) || '"';
1907: end if;
1908: if ((l_objects_rec.attribute2 IS NOT NULL) and
1909: (l_objects_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1910: l_index := l_index + 1;
1911: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1912: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1913: l_objects_rec.attribute2) || '"';
1912: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1913: l_objects_rec.attribute2) || '"';
1914: end if;
1915: if ((l_objects_rec.attribute3 IS NOT NULL) and
1916: (l_objects_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1917: l_index := l_index + 1;
1918: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1919: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1920: l_objects_rec.attribute3) || '"';
1919: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1920: l_objects_rec.attribute3) || '"';
1921: end if;
1922: if ((l_objects_rec.attribute4 IS NOT NULL) and
1923: (l_objects_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1924: l_index := l_index + 1;
1925: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1926: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1927: l_objects_rec.attribute4) || '"';
1926: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1927: l_objects_rec.attribute4) || '"';
1928: end if;
1929: if ((l_objects_rec.attribute5 IS NOT NULL) and
1930: (l_objects_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1931: l_index := l_index + 1;
1932: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1933: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1934: l_objects_rec.attribute5) || '"';
1933: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1934: l_objects_rec.attribute5) || '"';
1935: end if;
1936: if ((l_objects_rec.attribute6 IS NOT NULL) and
1937: (l_objects_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1938: l_index := l_index + 1;
1939: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1940: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1941: l_objects_rec.attribute6) || '"';
1940: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1941: l_objects_rec.attribute6) || '"';
1942: end if;
1943: if ((l_objects_rec.attribute7 IS NOT NULL) and
1944: (l_objects_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1945: l_index := l_index + 1;
1946: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1947: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1948: l_objects_rec.attribute7) || '"';
1947: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1948: l_objects_rec.attribute7) || '"';
1949: end if;
1950: if ((l_objects_rec.attribute8 IS NOT NULL) and
1951: (l_objects_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1952: l_index := l_index + 1;
1953: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1954: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1955: l_objects_rec.attribute8) || '"';
1954: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1955: l_objects_rec.attribute8) || '"';
1956: end if;
1957: if ((l_objects_rec.attribute9 IS NOT NULL) and
1958: (l_objects_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1959: l_index := l_index + 1;
1960: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1961: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1962: l_objects_rec.attribute9) || '"';
1961: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1962: l_objects_rec.attribute9) || '"';
1963: end if;
1964: if ((l_objects_rec.attribute10 IS NOT NULL) and
1965: (l_objects_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1966: l_index := l_index + 1;
1967: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1968: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1969: l_objects_rec.attribute10) || '"';
1968: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1969: l_objects_rec.attribute10) || '"';
1970: end if;
1971: if ((l_objects_rec.attribute11 IS NOT NULL) and
1972: (l_objects_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1973: l_index := l_index + 1;
1974: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1975: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1976: l_objects_rec.attribute11) || '"';
1975: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1976: l_objects_rec.attribute11) || '"';
1977: end if;
1978: if ((l_objects_rec.attribute12 IS NOT NULL) and
1979: (l_objects_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1980: l_index := l_index + 1;
1981: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1982: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1983: l_objects_rec.attribute12) || '"';
1982: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1983: l_objects_rec.attribute12) || '"';
1984: end if;
1985: if ((l_objects_rec.attribute13 IS NOT NULL) and
1986: (l_objects_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1987: l_index := l_index + 1;
1988: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1989: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1990: l_objects_rec.attribute13) || '"';
1989: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1990: l_objects_rec.attribute13) || '"';
1991: end if;
1992: if ((l_objects_rec.attribute14 IS NOT NULL) and
1993: (l_objects_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1994: l_index := l_index + 1;
1995: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1996: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1997: l_objects_rec.attribute14) || '"';
1996: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1997: l_objects_rec.attribute14) || '"';
1998: end if;
1999: if ((l_objects_rec.attribute15 IS NOT NULL) and
2000: (l_objects_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
2001: l_index := l_index + 1;
2002: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
2003: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
2004: l_objects_rec.attribute15) || '"';
2027:
2028: -- translation columns
2029: --
2030: if ((l_objects_tl_rec.name IS NOT NULL) and
2031: (l_objects_tl_rec.name <> FND_API.G_MISS_CHAR)) then
2032: l_index := l_index + 1;
2033: l_databuffer_tbl(l_index) := ' NAME = "' ||
2034: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_tl_rec.name) || '"';
2035: end if;
2033: l_databuffer_tbl(l_index) := ' NAME = "' ||
2034: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_tl_rec.name) || '"';
2035: end if;
2036: if ((l_objects_tl_rec.description IS NOT NULL) and
2037: (l_objects_tl_rec.description <> FND_API.G_MISS_CHAR)) then
2038: l_index := l_index + 1;
2039: l_databuffer_tbl(l_index) := ' DESCRIPTION = "' ||
2040: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_objects_tl_rec.description) ||
2041: '"';
2047: p_buffer_tbl => l_databuffer_tbl,
2048: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
2049: );
2050: -- If API call returns with an error status...
2051: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2052: (l_return_status = FND_API.G_RET_STS_ERROR) then
2053: RAISE FND_API.G_EXC_ERROR;
2054: end if;
2055:
2048: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
2049: );
2050: -- If API call returns with an error status...
2051: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2052: (l_return_status = FND_API.G_RET_STS_ERROR) then
2053: RAISE FND_API.G_EXC_ERROR;
2054: end if;
2055:
2056: l_databuffer_tbl.delete;
2049: );
2050: -- If API call returns with an error status...
2051: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2052: (l_return_status = FND_API.G_RET_STS_ERROR) then
2053: RAISE FND_API.G_EXC_ERROR;
2054: end if;
2055:
2056: l_databuffer_tbl.delete;
2057:
2060: p_return_status => l_return_status,
2061: p_database_object_name => p_database_object_name,
2062: p_nls_language => p_nls_language
2063: );
2064: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2065: (l_return_status = FND_API.G_RET_STS_ERROR) then
2066: RAISE FND_API.G_EXC_ERROR;
2067: end if;
2068:
2061: p_database_object_name => p_database_object_name,
2062: p_nls_language => p_nls_language
2063: );
2064: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2065: (l_return_status = FND_API.G_RET_STS_ERROR) then
2066: RAISE FND_API.G_EXC_ERROR;
2067: end if;
2068:
2069: WRITE_UNIQUE_KEY_TO_BUFFER (
2062: p_nls_language => p_nls_language
2063: );
2064: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2065: (l_return_status = FND_API.G_RET_STS_ERROR) then
2066: RAISE FND_API.G_EXC_ERROR;
2067: end if;
2068:
2069: WRITE_UNIQUE_KEY_TO_BUFFER (
2070: p_validation_level => p_validation_level,
2070: p_validation_level => p_validation_level,
2071: p_return_status => l_return_status,
2072: p_database_object_name => p_database_object_name
2073: );
2074: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2075: (l_return_status = FND_API.G_RET_STS_ERROR) then
2076: RAISE FND_API.G_EXC_ERROR;
2077: end if;
2078:
2071: p_return_status => l_return_status,
2072: p_database_object_name => p_database_object_name
2073: );
2074: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2075: (l_return_status = FND_API.G_RET_STS_ERROR) then
2076: RAISE FND_API.G_EXC_ERROR;
2077: end if;
2078:
2079: WRITE_FOREIGN_KEY_TO_BUFFER (
2072: p_database_object_name => p_database_object_name
2073: );
2074: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2075: (l_return_status = FND_API.G_RET_STS_ERROR) then
2076: RAISE FND_API.G_EXC_ERROR;
2077: end if;
2078:
2079: WRITE_FOREIGN_KEY_TO_BUFFER (
2080: p_validation_level => p_validation_level,
2081: p_return_status => l_return_status,
2082: p_database_object_name => p_database_object_name,
2083: p_nls_language => p_nls_language
2084: );
2085: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2086: (l_return_status = FND_API.G_RET_STS_ERROR) then
2087: RAISE FND_API.G_EXC_ERROR;
2088: end if;
2089:
2082: p_database_object_name => p_database_object_name,
2083: p_nls_language => p_nls_language
2084: );
2085: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2086: (l_return_status = FND_API.G_RET_STS_ERROR) then
2087: RAISE FND_API.G_EXC_ERROR;
2088: end if;
2089:
2090: l_index := 1;
2083: p_nls_language => p_nls_language
2084: );
2085: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2086: (l_return_status = FND_API.G_RET_STS_ERROR) then
2087: RAISE FND_API.G_EXC_ERROR;
2088: end if;
2089:
2090: l_index := 1;
2091: l_databuffer_tbl(l_index) := 'END OBJECT';
2099: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
2100: );
2101:
2102: -- If API call returns with an error status...
2103: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2104: (l_return_status = FND_API.G_RET_STS_ERROR) then
2105: RAISE FND_API.G_EXC_ERROR;
2106: end if;
2107:
2100: );
2101:
2102: -- If API call returns with an error status...
2103: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2104: (l_return_status = FND_API.G_RET_STS_ERROR) then
2105: RAISE FND_API.G_EXC_ERROR;
2106: end if;
2107:
2108: p_return_status := FND_API.G_RET_STS_SUCCESS;
2101:
2102: -- If API call returns with an error status...
2103: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2104: (l_return_status = FND_API.G_RET_STS_ERROR) then
2105: RAISE FND_API.G_EXC_ERROR;
2106: end if;
2107:
2108: p_return_status := FND_API.G_RET_STS_SUCCESS;
2109:
2104: (l_return_status = FND_API.G_RET_STS_ERROR) then
2105: RAISE FND_API.G_EXC_ERROR;
2106: end if;
2107:
2108: p_return_status := FND_API.G_RET_STS_SUCCESS;
2109:
2110: EXCEPTION
2111: WHEN VALUE_ERROR THEN
2112: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2113: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_VALUE_ERROR');
2114: FND_MESSAGE.SET_TOKEN('KEY', p_database_object_name);
2115: FND_MSG_PUB.Add;
2116: end if;
2117: p_return_status := FND_API.G_RET_STS_ERROR;
2118: WHEN FND_API.G_EXC_ERROR THEN
2119: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2120: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_NOT_DOWNLOADED');
2121: FND_MESSAGE.SET_TOKEN('KEY', p_database_object_name);
2114: FND_MESSAGE.SET_TOKEN('KEY', p_database_object_name);
2115: FND_MSG_PUB.Add;
2116: end if;
2117: p_return_status := FND_API.G_RET_STS_ERROR;
2118: WHEN FND_API.G_EXC_ERROR THEN
2119: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2120: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_NOT_DOWNLOADED');
2121: FND_MESSAGE.SET_TOKEN('KEY', p_database_object_name);
2122: FND_MSG_PUB.Add;
2120: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_NOT_DOWNLOADED');
2121: FND_MESSAGE.SET_TOKEN('KEY', p_database_object_name);
2122: FND_MSG_PUB.Add;
2123: end if;
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2125: WHEN OTHERS THEN
2126: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2127: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2128: SUBSTR (SQLERRM, 1, 240) );
2122: FND_MSG_PUB.Add;
2123: end if;
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2125: WHEN OTHERS THEN
2126: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2127: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
2128: SUBSTR (SQLERRM, 1, 240) );
2129: FND_MSG_PUB.Add;
2130: end WRITE_TO_BUFFER;
2184: -- Version Initial version number = 1.0
2185: -- History Current version number = 1.0
2186: --=======================================================
2187: procedure DOWNLOAD_OBJECT (
2188: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2189: p_api_version_number IN NUMBER,
2190: p_return_status OUT NOCOPY VARCHAR2,
2191: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
2192: p_object_pk_tbl IN AK_OBJECT_PUB.Object_PK_Tbl_Type
2187: procedure DOWNLOAD_OBJECT (
2188: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2189: p_api_version_number IN NUMBER,
2190: p_return_status OUT NOCOPY VARCHAR2,
2191: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
2192: p_object_pk_tbl IN AK_OBJECT_PUB.Object_PK_Tbl_Type
2193: := AK_OBJECT_PUB.G_MISS_OBJECT_PK_TBL,
2194: p_attribute_pk_tbl IN AK_ATTRIBUTE_PUB.Attribute_PK_Tbl_Type
2195: := AK_ATTRIBUTE_PUB.G_MISS_ATTRIBUTE_PK_TBL,
2261: l_region_tbl_last NUMBER;
2262: l_region_pk_tbl AK_REGION_PUB.Region_PK_Tbl_Type;
2263: l_return_status varchar2(1);
2264: begin
2265: IF NOT FND_API.Compatible_API_Call (
2266: l_api_version_number, p_api_version_number, l_api_name,
2267: G_PKG_NAME) then
2268: -- dbms_output.put_line('API error in AK_OBJECTS2_PVT');
2269: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265: IF NOT FND_API.Compatible_API_Call (
2266: l_api_version_number, p_api_version_number, l_api_name,
2267: G_PKG_NAME) then
2268: -- dbms_output.put_line('API error in AK_OBJECTS2_PVT');
2269: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2270: return;
2271: END IF;
2272:
2273: -- Check that one of the following selection criteria is given:
2273: -- Check that one of the following selection criteria is given:
2274: -- - p_application_id alone, or
2275: -- - object names in p_object_PK_tbl
2276:
2277: if (p_application_id = FND_API.G_MISS_NUM) or (p_application_id is null) then
2278: if (p_object_PK_tbl.count = 0) then
2279: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2280: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
2281: FND_MSG_PUB.Add;
2279: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2280: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
2281: FND_MSG_PUB.Add;
2282: end if;
2283: raise FND_API.G_EXC_ERROR;
2284: end if;
2285: else
2286: if (p_object_PK_tbl.count > 0) then
2287: -- both application ID and a list of objects to be extracted are
2501: p_nls_language => p_nls_language
2502: );
2503:
2504:
2505: if (l_return_status = FND_API.G_RET_STS_ERROR) or
2506: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2507: -- dbms_output.put_line(l_api_name || ' Error downloading attributes');
2508: raise FND_API.G_EXC_ERROR;
2509: end if;
2502: );
2503:
2504:
2505: if (l_return_status = FND_API.G_RET_STS_ERROR) or
2506: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2507: -- dbms_output.put_line(l_api_name || ' Error downloading attributes');
2508: raise FND_API.G_EXC_ERROR;
2509: end if;
2510:
2504:
2505: if (l_return_status = FND_API.G_RET_STS_ERROR) or
2506: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2507: -- dbms_output.put_line(l_api_name || ' Error downloading attributes');
2508: raise FND_API.G_EXC_ERROR;
2509: end if;
2510:
2511: end if;
2512: end if;
2531: p_nls_language => p_nls_language
2532: );
2533: -- Download aborts if any of the validation fails
2534: --
2535: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2536: (l_return_status = FND_API.G_RET_STS_ERROR) then
2537: RAISE FND_API.G_EXC_ERROR;
2538: end if;
2539:
2532: );
2533: -- Download aborts if any of the validation fails
2534: --
2535: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2536: (l_return_status = FND_API.G_RET_STS_ERROR) then
2537: RAISE FND_API.G_EXC_ERROR;
2538: end if;
2539:
2540: -- Ready to download the next object in the list
2533: -- Download aborts if any of the validation fails
2534: --
2535: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2536: (l_return_status = FND_API.G_RET_STS_ERROR) then
2537: RAISE FND_API.G_EXC_ERROR;
2538: end if;
2539:
2540: -- Ready to download the next object in the list
2541: l_index := l_object_pk_tbl.NEXT(l_index);
2563: p_region_pk_tbl => l_region_pk_tbl,
2564: p_nls_language => p_nls_language,
2565: p_get_object_flag => 'N' -- No need to get objects for regions
2566: );
2567: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2568: (l_return_status = FND_API.G_RET_STS_ERROR) then
2569: RAISE FND_API.G_EXC_ERROR;
2570: end if;
2571: end if;
2564: p_nls_language => p_nls_language,
2565: p_get_object_flag => 'N' -- No need to get objects for regions
2566: );
2567: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2568: (l_return_status = FND_API.G_RET_STS_ERROR) then
2569: RAISE FND_API.G_EXC_ERROR;
2570: end if;
2571: end if;
2572:
2565: p_get_object_flag => 'N' -- No need to get objects for regions
2566: );
2567: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2568: (l_return_status = FND_API.G_RET_STS_ERROR) then
2569: RAISE FND_API.G_EXC_ERROR;
2570: end if;
2571: end if;
2572:
2573: p_return_status := FND_API.G_RET_STS_SUCCESS;
2569: RAISE FND_API.G_EXC_ERROR;
2570: end if;
2571: end if;
2572:
2573: p_return_status := FND_API.G_RET_STS_SUCCESS;
2574:
2575: -- dbms_output.put_line('returning from ak_object_pvt.download_object: ' ||
2576: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
2577:
2581: FND_MESSAGE.SET_NAME('AK','AK_OBJECT_PK_VALUE_ERROR');
2582: FND_MSG_PUB.Add;
2583: end if;
2584: -- dbms_output.put_line('Value error occurred in download- check your object list.');
2585: p_return_status := FND_API.G_RET_STS_ERROR;
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: p_return_status := FND_API.G_RET_STS_ERROR;
2588: WHEN OTHERS THEN
2589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: FND_MSG_PUB.Add;
2583: end if;
2584: -- dbms_output.put_line('Value error occurred in download- check your object list.');
2585: p_return_status := FND_API.G_RET_STS_ERROR;
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: p_return_status := FND_API.G_RET_STS_ERROR;
2588: WHEN OTHERS THEN
2589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2590: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
2583: end if;
2584: -- dbms_output.put_line('Value error occurred in download- check your object list.');
2585: p_return_status := FND_API.G_RET_STS_ERROR;
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: p_return_status := FND_API.G_RET_STS_ERROR;
2588: WHEN OTHERS THEN
2589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2590: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
2591: SUBSTR (SQLERRM, 1, 240) );
2585: p_return_status := FND_API.G_RET_STS_ERROR;
2586: WHEN FND_API.G_EXC_ERROR THEN
2587: p_return_status := FND_API.G_RET_STS_ERROR;
2588: WHEN OTHERS THEN
2589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2590: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
2591: SUBSTR (SQLERRM, 1, 240) );
2592: end DOWNLOAD_OBJECT;
2593:
2618: -- Version Initial version number = 1.0
2619: -- History Current version number = 1.0
2620: --=======================================================
2621: procedure UPLOAD_OBJECT_SECOND (
2622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2623: p_return_status OUT NOCOPY VARCHAR2,
2624: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
2625: p_pass IN NUMBER := 2
2626: ) is
2620: --=======================================================
2621: procedure UPLOAD_OBJECT_SECOND (
2622: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2623: p_return_status OUT NOCOPY VARCHAR2,
2624: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
2625: p_pass IN NUMBER := 2
2626: ) is
2627: l_api_name CONSTANT varchar2(30) := 'Upload_Object_Second';
2628: l_rec_index NUMBER;
2727: );
2728: end if; -- /* if OBJECT_EXISTS */
2729: --
2730: -- If API call returns with an error status, upload aborts
2731: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2732: (l_return_status = FND_API.G_RET_STS_ERROR) then
2733: -- dbms_output.put_line('Object key = '||G_OBJECT_REDO_TBL(l_index).database_object_name);
2734: RAISE FND_API.G_EXC_ERROR;
2735: end if; -- /* if l_return_status */
2728: end if; -- /* if OBJECT_EXISTS */
2729: --
2730: -- If API call returns with an error status, upload aborts
2731: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2732: (l_return_status = FND_API.G_RET_STS_ERROR) then
2733: -- dbms_output.put_line('Object key = '||G_OBJECT_REDO_TBL(l_index).database_object_name);
2734: RAISE FND_API.G_EXC_ERROR;
2735: end if; -- /* if l_return_status */
2736: end if;
2730: -- If API call returns with an error status, upload aborts
2731: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2732: (l_return_status = FND_API.G_RET_STS_ERROR) then
2733: -- dbms_output.put_line('Object key = '||G_OBJECT_REDO_TBL(l_index).database_object_name);
2734: RAISE FND_API.G_EXC_ERROR;
2735: end if; -- /* if l_return_status */
2736: end if;
2737: end loop; -- /* for loop */
2738: end if;
2908: );
2909: end if; -- /* if ATTRIBUTE_EXISTS */
2910: --
2911: -- If API call returns with an error status, upload aborts
2912: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2913: (l_return_status = FND_API.G_RET_STS_ERROR) then
2914: RAISE FND_API.G_EXC_ERROR;
2915: end if; -- /* if l_return_status */
2916: end if;
2909: end if; -- /* if ATTRIBUTE_EXISTS */
2910: --
2911: -- If API call returns with an error status, upload aborts
2912: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2913: (l_return_status = FND_API.G_RET_STS_ERROR) then
2914: RAISE FND_API.G_EXC_ERROR;
2915: end if; -- /* if l_return_status */
2916: end if;
2917: end loop;
2910: --
2911: -- If API call returns with an error status, upload aborts
2912: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2913: (l_return_status = FND_API.G_RET_STS_ERROR) then
2914: RAISE FND_API.G_EXC_ERROR;
2915: end if; -- /* if l_return_status */
2916: end if;
2917: end loop;
2918: end if;
3010: );
3011: end if; -- /* if ATTRIBUTE_NAVIGATION_EXISTS */
3012: --
3013: -- If API call returns with an error status, upload aborts
3014: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3015: (l_return_status = FND_API.G_RET_STS_ERROR) then
3016: -- dbms_output.put_line('Attr Nav key: '||G_ATTR_NAV_REDO_TBL(l_index).database_object_name||
3017: -- ' '||G_ATTR_NAV_REDO_TBL(l_index).attribute_code||' '||
3018: -- to_char(G_ATTR_NAV_REDO_TBL(l_index).attribute_appl_id));
3011: end if; -- /* if ATTRIBUTE_NAVIGATION_EXISTS */
3012: --
3013: -- If API call returns with an error status, upload aborts
3014: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3015: (l_return_status = FND_API.G_RET_STS_ERROR) then
3016: -- dbms_output.put_line('Attr Nav key: '||G_ATTR_NAV_REDO_TBL(l_index).database_object_name||
3017: -- ' '||G_ATTR_NAV_REDO_TBL(l_index).attribute_code||' '||
3018: -- to_char(G_ATTR_NAV_REDO_TBL(l_index).attribute_appl_id));
3019: RAISE FND_API.G_EXC_ERROR;
3015: (l_return_status = FND_API.G_RET_STS_ERROR) then
3016: -- dbms_output.put_line('Attr Nav key: '||G_ATTR_NAV_REDO_TBL(l_index).database_object_name||
3017: -- ' '||G_ATTR_NAV_REDO_TBL(l_index).attribute_code||' '||
3018: -- to_char(G_ATTR_NAV_REDO_TBL(l_index).attribute_appl_id));
3019: RAISE FND_API.G_EXC_ERROR;
3020: end if; -- /* if l_return_status */
3021: end if;
3022: end loop;
3023: end if;
3098: );
3099: end if; -- /* if UNIQUE_KEY_EXISTS */
3100: --
3101: -- If API call returns with an error status, upload aborts
3102: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3103: (l_return_status = FND_API.G_RET_STS_ERROR) then
3104: -- dbms_output.put_line('Unique_key: '||G_UNIQUE_KEY_REDO_TBL(l_index).unique_key_name||
3105: -- ' '||G_UNIQUE_KEY_REDO_TBL(l_index).database_object_name);
3106: RAISE FND_API.G_EXC_ERROR;
3099: end if; -- /* if UNIQUE_KEY_EXISTS */
3100: --
3101: -- If API call returns with an error status, upload aborts
3102: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3103: (l_return_status = FND_API.G_RET_STS_ERROR) then
3104: -- dbms_output.put_line('Unique_key: '||G_UNIQUE_KEY_REDO_TBL(l_index).unique_key_name||
3105: -- ' '||G_UNIQUE_KEY_REDO_TBL(l_index).database_object_name);
3106: RAISE FND_API.G_EXC_ERROR;
3107: end if; -- /* if l_return_status */
3102: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3103: (l_return_status = FND_API.G_RET_STS_ERROR) then
3104: -- dbms_output.put_line('Unique_key: '||G_UNIQUE_KEY_REDO_TBL(l_index).unique_key_name||
3105: -- ' '||G_UNIQUE_KEY_REDO_TBL(l_index).database_object_name);
3106: RAISE FND_API.G_EXC_ERROR;
3107: end if; -- /* if l_return_status */
3108: end if;
3109: end loop;
3110: end if;
3195: );
3196: end if; -- /* if UNIQUE_KEY_COLUMN_EXISTS */
3197: --
3198: -- If API call returns with an error status, upload aborts
3199: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3200: (l_return_status = FND_API.G_RET_STS_ERROR) then
3201: -- dbms_output.put_line('Unique key col: '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).unique_key_name||
3202: -- ' '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).attribute_code);
3203: RAISE FND_API.G_EXC_ERROR;
3196: end if; -- /* if UNIQUE_KEY_COLUMN_EXISTS */
3197: --
3198: -- If API call returns with an error status, upload aborts
3199: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3200: (l_return_status = FND_API.G_RET_STS_ERROR) then
3201: -- dbms_output.put_line('Unique key col: '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).unique_key_name||
3202: -- ' '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).attribute_code);
3203: RAISE FND_API.G_EXC_ERROR;
3204: end if; -- /* if l_return_status */
3199: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3200: (l_return_status = FND_API.G_RET_STS_ERROR) then
3201: -- dbms_output.put_line('Unique key col: '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).unique_key_name||
3202: -- ' '||G_UNIQUE_KEY_COL_REDO_TBL(l_index).attribute_code);
3203: RAISE FND_API.G_EXC_ERROR;
3204: end if; -- /* if l_return_status */
3205: end if;
3206: end loop;
3207: end if;
3298: );
3299: end if; -- /* if FOREIGN_KEY_EXISTS */
3300: --
3301: -- If API call returns with an error status, upload aborts
3302: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3303: (l_return_status = FND_API.G_RET_STS_ERROR) then
3304: -- dbms_output.put_line('Foreign key: '||G_FOREIGN_KEY_REDO_TBL(l_index).foreign_key_name||
3305: -- ' '||G_FOREIGN_KEY_REDO_TBL(l_index).database_object_name);
3306: RAISE FND_API.G_EXC_ERROR;
3299: end if; -- /* if FOREIGN_KEY_EXISTS */
3300: --
3301: -- If API call returns with an error status, upload aborts
3302: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3303: (l_return_status = FND_API.G_RET_STS_ERROR) then
3304: -- dbms_output.put_line('Foreign key: '||G_FOREIGN_KEY_REDO_TBL(l_index).foreign_key_name||
3305: -- ' '||G_FOREIGN_KEY_REDO_TBL(l_index).database_object_name);
3306: RAISE FND_API.G_EXC_ERROR;
3307: end if; -- /* if l_return_status */
3302: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3303: (l_return_status = FND_API.G_RET_STS_ERROR) then
3304: -- dbms_output.put_line('Foreign key: '||G_FOREIGN_KEY_REDO_TBL(l_index).foreign_key_name||
3305: -- ' '||G_FOREIGN_KEY_REDO_TBL(l_index).database_object_name);
3306: RAISE FND_API.G_EXC_ERROR;
3307: end if; -- /* if l_return_status */
3308: end if;
3309: end loop;
3310: end if;
3395: );
3396: end if; -- /* if FOREIGN_KEY_COLUMN_EXISTS */
3397: --
3398: -- If API call returns with an error status, upload aborts
3399: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3400: (l_return_status = FND_API.G_RET_STS_ERROR) then
3401: -- dbms_output.put_line('Foreign Key col: '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).foreign_key_name||
3402: -- ' '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).attribute_code);
3403: RAISE FND_API.G_EXC_ERROR;
3396: end if; -- /* if FOREIGN_KEY_COLUMN_EXISTS */
3397: --
3398: -- If API call returns with an error status, upload aborts
3399: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3400: (l_return_status = FND_API.G_RET_STS_ERROR) then
3401: -- dbms_output.put_line('Foreign Key col: '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).foreign_key_name||
3402: -- ' '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).attribute_code);
3403: RAISE FND_API.G_EXC_ERROR;
3404: end if; -- /* if l_return_status */
3399: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3400: (l_return_status = FND_API.G_RET_STS_ERROR) then
3401: -- dbms_output.put_line('Foreign Key col: '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).foreign_key_name||
3402: -- ' '||G_FOREIGN_KEY_COL_REDO_TBL(l_index).attribute_code);
3403: RAISE FND_API.G_EXC_ERROR;
3404: end if; -- /* if l_return_status */
3405: end if;
3406: end loop;
3407: end if;
3405: end if;
3406: end loop;
3407: end if;
3408:
3409: p_return_status := FND_API.G_RET_STS_SUCCESS;
3410:
3411: EXCEPTION
3412: WHEN FND_API.G_EXC_ERROR THEN
3413: p_return_status := FND_API.G_RET_STS_ERROR;
3408:
3409: p_return_status := FND_API.G_RET_STS_SUCCESS;
3410:
3411: EXCEPTION
3412: WHEN FND_API.G_EXC_ERROR THEN
3413: p_return_status := FND_API.G_RET_STS_ERROR;
3414: FND_MSG_PUB.Count_And_Get (
3415: p_count => l_msg_count,
3416: p_data => l_msg_data);
3409: p_return_status := FND_API.G_RET_STS_SUCCESS;
3410:
3411: EXCEPTION
3412: WHEN FND_API.G_EXC_ERROR THEN
3413: p_return_status := FND_API.G_RET_STS_ERROR;
3414: FND_MSG_PUB.Count_And_Get (
3415: p_count => l_msg_count,
3416: p_data => l_msg_data);
3417: WHEN OTHERS THEN
3414: FND_MSG_PUB.Count_And_Get (
3415: p_count => l_msg_count,
3416: p_data => l_msg_data);
3417: WHEN OTHERS THEN
3418: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3419: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
3420: SUBSTR (SQLERRM, 1, 240) );
3421: FND_MSG_PUB.Count_And_Get (
3422: p_count => l_msg_count,