[Home] [Help]
31: -- whose Flow Page Region Item records are to be
32: -- extracted to the loader file.
33: --=======================================================
34: procedure WRITE_ITEMS_TO_BUFFER (
35: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
36: p_return_status OUT NOCOPY VARCHAR2,
37: p_flow_application_id IN NUMBER,
38: p_flow_code IN VARCHAR2,
39: p_page_application_id IN NUMBER,
65: loop
66: fetch l_get_items_csr into l_items_rec;
67: exit when l_get_items_csr%notfound;
68: -- write this flow page region item if it is validated
69: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
70: not AK_FLOW3_PVT.VALIDATE_PAGE_REGION_ITEM (
71: p_validation_level => p_validation_level,
72: p_api_version_number => 1.0,
73: p_return_status => l_return_status,
96: ' ' || to_char(l_items_rec.attribute_application_id) ||
97: ' ' || l_items_rec.attribute_code );
98: FND_MSG_PUB.Add;
99: close l_get_items_csr;
100: raise FND_API.G_EXC_ERROR;
101: end if;
102: else
103: l_databuffer_tbl(l_index) := ' ';
104: l_index := l_index + 1;
106: nvl(to_char(l_items_rec.attribute_application_id),'') || '" "' ||
107: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_items_rec.attribute_code)
108: || '"';
109: if ((l_items_rec.to_page_appl_id IS NOT NULL) and
110: (l_items_rec.to_page_appl_id <> FND_API.G_MISS_NUM) and
111: (l_items_rec.to_page_code IS NOT NULL) and
112: (l_items_rec.to_page_code <> FND_API.G_MISS_CHAR)) then
113: l_index := l_index + 1;
114: l_databuffer_tbl(l_index) := ' TO_PAGE = "' ||
108: || '"';
109: if ((l_items_rec.to_page_appl_id IS NOT NULL) and
110: (l_items_rec.to_page_appl_id <> FND_API.G_MISS_NUM) and
111: (l_items_rec.to_page_code IS NOT NULL) and
112: (l_items_rec.to_page_code <> FND_API.G_MISS_CHAR)) then
113: l_index := l_index + 1;
114: l_databuffer_tbl(l_index) := ' TO_PAGE = "' ||
115: nvl(to_char(l_items_rec.to_page_appl_id),'')||'" "'||
116: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_items_rec.to_page_code)
116: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_items_rec.to_page_code)
117: || '"';
118: end if;
119: if (l_items_rec.to_url_attribute_appl_id IS NOT NULL) and
120: (l_items_rec.to_url_attribute_appl_id <> FND_API.G_MISS_NUM) and
121: (l_items_rec.to_url_attribute_code IS NOT NULL) and
122: (l_items_rec.to_url_attribute_code <> FND_API.G_MISS_CHAR) then
123: l_index := l_index + 1;
124: l_databuffer_tbl(l_index) := ' TO_URL_ATTRIBUTE = "' ||
118: end if;
119: if (l_items_rec.to_url_attribute_appl_id IS NOT NULL) and
120: (l_items_rec.to_url_attribute_appl_id <> FND_API.G_MISS_NUM) and
121: (l_items_rec.to_url_attribute_code IS NOT NULL) and
122: (l_items_rec.to_url_attribute_code <> FND_API.G_MISS_CHAR) then
123: l_index := l_index + 1;
124: l_databuffer_tbl(l_index) := ' TO_URL_ATTRIBUTE = "' ||
125: nvl(to_char(l_items_rec.to_url_attribute_appl_id),'')||'" "'||
126: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
128: end if;
129: -- Flex Fields
130: --
131: if ((l_items_rec.attribute_category IS NOT NULL) and
132: (l_items_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
133: l_index := l_index + 1;
134: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
135: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
136: l_items_rec.attribute_category) || '"';
135: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
136: l_items_rec.attribute_category) || '"';
137: end if;
138: if ((l_items_rec.attribute1 IS NOT NULL) and
139: (l_items_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
140: l_index := l_index + 1;
141: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
142: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
143: l_items_rec.attribute1) || '"';
142: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
143: l_items_rec.attribute1) || '"';
144: end if;
145: if ((l_items_rec.attribute2 IS NOT NULL) and
146: (l_items_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
147: l_index := l_index + 1;
148: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
149: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
150: l_items_rec.attribute2) || '"';
149: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
150: l_items_rec.attribute2) || '"';
151: end if;
152: if ((l_items_rec.attribute3 IS NOT NULL) and
153: (l_items_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
154: l_index := l_index + 1;
155: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
156: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
157: l_items_rec.attribute3) || '"';
156: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
157: l_items_rec.attribute3) || '"';
158: end if;
159: if ((l_items_rec.attribute4 IS NOT NULL) and
160: (l_items_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
161: l_index := l_index + 1;
162: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
163: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
164: l_items_rec.attribute4) || '"';
163: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
164: l_items_rec.attribute4) || '"';
165: end if;
166: if ((l_items_rec.attribute5 IS NOT NULL) and
167: (l_items_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
168: l_index := l_index + 1;
169: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
170: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
171: l_items_rec.attribute5) || '"';
170: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
171: l_items_rec.attribute5) || '"';
172: end if;
173: if ((l_items_rec.attribute6 IS NOT NULL) and
174: (l_items_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
175: l_index := l_index + 1;
176: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
177: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
178: l_items_rec.attribute6) || '"';
177: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
178: l_items_rec.attribute6) || '"';
179: end if;
180: if ((l_items_rec.attribute7 IS NOT NULL) and
181: (l_items_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
182: l_index := l_index + 1;
183: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
184: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
185: l_items_rec.attribute7) || '"';
184: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
185: l_items_rec.attribute7) || '"';
186: end if;
187: if ((l_items_rec.attribute8 IS NOT NULL) and
188: (l_items_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
189: l_index := l_index + 1;
190: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
191: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
192: l_items_rec.attribute8) || '"';
191: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
192: l_items_rec.attribute8) || '"';
193: end if;
194: if ((l_items_rec.attribute9 IS NOT NULL) and
195: (l_items_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
196: l_index := l_index + 1;
197: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
198: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
199: l_items_rec.attribute9) || '"';
198: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
199: l_items_rec.attribute9) || '"';
200: end if;
201: if ((l_items_rec.attribute10 IS NOT NULL) and
202: (l_items_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
203: l_index := l_index + 1;
204: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
205: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
206: l_items_rec.attribute10) || '"';
205: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
206: l_items_rec.attribute10) || '"';
207: end if;
208: if ((l_items_rec.attribute11 IS NOT NULL) and
209: (l_items_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
210: l_index := l_index + 1;
211: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
212: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
213: l_items_rec.attribute11) || '"';
212: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
213: l_items_rec.attribute11) || '"';
214: end if;
215: if ((l_items_rec.attribute12 IS NOT NULL) and
216: (l_items_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
217: l_index := l_index + 1;
218: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
219: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
220: l_items_rec.attribute12) || '"';
219: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
220: l_items_rec.attribute12) || '"';
221: end if;
222: if ((l_items_rec.attribute13 IS NOT NULL) and
223: (l_items_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
224: l_index := l_index + 1;
225: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
226: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
227: l_items_rec.attribute13) || '"';
226: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
227: l_items_rec.attribute13) || '"';
228: end if;
229: if ((l_items_rec.attribute14 IS NOT NULL) and
230: (l_items_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
231: l_index := l_index + 1;
232: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
233: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
234: l_items_rec.attribute14) || '"';
233: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
234: l_items_rec.attribute14) || '"';
235: end if;
236: if ((l_items_rec.attribute15 IS NOT NULL) and
237: (l_items_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
238: l_index := l_index + 1;
239: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
240: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
241: l_items_rec.attribute15) || '"';
282: p_buffer_tbl => l_databuffer_tbl,
283: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
284: );
285: -- If API call returns with an error status...
286: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
287: (l_return_status = FND_API.G_RET_STS_ERROR) then
288: RAISE FND_API.G_EXC_ERROR;
289: end if;
290: end if;
283: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
284: );
285: -- If API call returns with an error status...
286: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
287: (l_return_status = FND_API.G_RET_STS_ERROR) then
288: RAISE FND_API.G_EXC_ERROR;
289: end if;
290: end if;
291:
284: );
285: -- If API call returns with an error status...
286: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
287: (l_return_status = FND_API.G_RET_STS_ERROR) then
288: RAISE FND_API.G_EXC_ERROR;
289: end if;
290: end if;
291:
292: p_return_status := FND_API.G_RET_STS_SUCCESS;
288: RAISE FND_API.G_EXC_ERROR;
289: end if;
290: end if;
291:
292: p_return_status := FND_API.G_RET_STS_SUCCESS;
293:
294: EXCEPTION
295: WHEN VALUE_ERROR THEN
296: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
304: ' ' || to_char(l_items_rec.attribute_application_id) ||
305: ' ' || l_items_rec.attribute_code );
306: FND_MSG_PUB.Add;
307: end if;
308: p_return_status := FND_API.G_RET_STS_ERROR;
309: WHEN FND_API.G_EXC_ERROR THEN
310: p_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN OTHERS THEN
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: ' ' || l_items_rec.attribute_code );
306: FND_MSG_PUB.Add;
307: end if;
308: p_return_status := FND_API.G_RET_STS_ERROR;
309: WHEN FND_API.G_EXC_ERROR THEN
310: p_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN OTHERS THEN
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
306: FND_MSG_PUB.Add;
307: end if;
308: p_return_status := FND_API.G_RET_STS_ERROR;
309: WHEN FND_API.G_EXC_ERROR THEN
310: p_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN OTHERS THEN
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
314: SUBSTR (SQLERRM, 1, 240) );
308: p_return_status := FND_API.G_RET_STS_ERROR;
309: WHEN FND_API.G_EXC_ERROR THEN
310: p_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN OTHERS THEN
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
314: SUBSTR (SQLERRM, 1, 240) );
315: FND_MSG_PUB.Add;
316: end WRITE_ITEMS_TO_BUFFER;
345: -- whose Flow Page Region records are to be
346: -- extracted to the loader file.
347: --=======================================================
348: procedure WRITE_REGIONS_TO_BUFFER (
349: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
350: p_return_status OUT NOCOPY VARCHAR2,
351: p_flow_application_id IN NUMBER,
352: p_flow_code IN VARCHAR2,
353: p_page_application_id IN NUMBER,
408: l_foreign_key_name := null;
409: end if;
410:
411: -- write this flow page region if it is validated
412: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
413: not AK_FLOW3_PVT.VALIDATE_PAGE_REGION (
414: p_validation_level => p_validation_level,
415: p_api_version_number => 1.0,
416: p_return_status => l_return_status,
439: ' ' || to_char(l_regions_rec.region_application_id) ||
440: ' ' || l_regions_rec.region_code );
441: FND_MSG_PUB.Add;
442: close l_get_regions_csr;
443: raise FND_API.G_EXC_ERROR;
444: end if;
445: else
446: l_databuffer_tbl(l_index) := ' ';
447: l_index := l_index + 1;
456: l_databuffer_tbl(l_index) := ' REGION_STYLE = "' ||
457: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_regions_rec.region_style)
458: || '"';
459: if (l_regions_rec.num_columns IS NOT NULL) and
460: (l_regions_rec.num_columns <> FND_API.G_MISS_NUM) then
461: l_index := l_index + 1;
462: l_databuffer_tbl(l_index) := ' NUM_COLUMNS = "' ||
463: nvl(to_char(l_regions_rec.num_columns),'') || '"';
464: end if;
462: l_databuffer_tbl(l_index) := ' NUM_COLUMNS = "' ||
463: nvl(to_char(l_regions_rec.num_columns),'') || '"';
464: end if;
465: if (l_regions_rec.icx_custom_call IS NOT NULL) and
466: (l_regions_rec.icx_custom_call <> FND_API.G_MISS_CHAR) then
467: l_index := l_index + 1;
468: l_databuffer_tbl(l_index) := ' ICX_CUSTOM_CALL = "' ||
469: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_regions_rec.icx_custom_call) ||'"';
470: end if;
468: l_databuffer_tbl(l_index) := ' ICX_CUSTOM_CALL = "' ||
469: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_regions_rec.icx_custom_call) ||'"';
470: end if;
471: if (l_regions_rec.parent_region_application_id IS NOT NULL) and
472: (l_regions_rec.parent_region_application_id <> FND_API.G_MISS_NUM) and
473: (l_regions_rec.parent_region_code IS NOT NULL) and
474: (l_regions_rec.parent_region_code <> FND_API.G_MISS_CHAR) then
475: l_index := l_index + 1;
476: l_databuffer_tbl(l_index) := ' PARENT_REGION = "' ||
470: end if;
471: if (l_regions_rec.parent_region_application_id IS NOT NULL) and
472: (l_regions_rec.parent_region_application_id <> FND_API.G_MISS_NUM) and
473: (l_regions_rec.parent_region_code IS NOT NULL) and
474: (l_regions_rec.parent_region_code <> FND_API.G_MISS_CHAR) then
475: l_index := l_index + 1;
476: l_databuffer_tbl(l_index) := ' PARENT_REGION = "' ||
477: nvl(to_char(l_regions_rec.parent_region_application_id),'')||'" "'||
478: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_regions_rec.parent_region_code)
478: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_regions_rec.parent_region_code)
479: ||'"';
480: end if;
481: if (l_foreign_key_name IS NOT NULL) and
482: (l_foreign_key_name <> FND_API.G_MISS_CHAR) then
483: l_index := l_index + 1;
484: l_databuffer_tbl(l_index) := ' FOREIGN_KEY_NAME = "' ||
485: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_foreign_key_name)
486: ||'"';
487: end if;
488: -- Flex Fields
489: --
490: if ((l_regions_rec.attribute_category IS NOT NULL) and
491: (l_regions_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
492: l_index := l_index + 1;
493: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
494: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
495: l_regions_rec.attribute_category) || '"';
494: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
495: l_regions_rec.attribute_category) || '"';
496: end if;
497: if ((l_regions_rec.attribute1 IS NOT NULL) and
498: (l_regions_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
499: l_index := l_index + 1;
500: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
502: l_regions_rec.attribute1) || '"';
501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
502: l_regions_rec.attribute1) || '"';
503: end if;
504: if ((l_regions_rec.attribute2 IS NOT NULL) and
505: (l_regions_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
506: l_index := l_index + 1;
507: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
509: l_regions_rec.attribute2) || '"';
508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
509: l_regions_rec.attribute2) || '"';
510: end if;
511: if ((l_regions_rec.attribute3 IS NOT NULL) and
512: (l_regions_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
513: l_index := l_index + 1;
514: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
516: l_regions_rec.attribute3) || '"';
515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
516: l_regions_rec.attribute3) || '"';
517: end if;
518: if ((l_regions_rec.attribute4 IS NOT NULL) and
519: (l_regions_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
520: l_index := l_index + 1;
521: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
523: l_regions_rec.attribute4) || '"';
522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
523: l_regions_rec.attribute4) || '"';
524: end if;
525: if ((l_regions_rec.attribute5 IS NOT NULL) and
526: (l_regions_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
527: l_index := l_index + 1;
528: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
530: l_regions_rec.attribute5) || '"';
529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
530: l_regions_rec.attribute5) || '"';
531: end if;
532: if ((l_regions_rec.attribute6 IS NOT NULL) and
533: (l_regions_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
534: l_index := l_index + 1;
535: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
537: l_regions_rec.attribute6) || '"';
536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
537: l_regions_rec.attribute6) || '"';
538: end if;
539: if ((l_regions_rec.attribute7 IS NOT NULL) and
540: (l_regions_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
541: l_index := l_index + 1;
542: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
544: l_regions_rec.attribute7) || '"';
543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
544: l_regions_rec.attribute7) || '"';
545: end if;
546: if ((l_regions_rec.attribute8 IS NOT NULL) and
547: (l_regions_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
548: l_index := l_index + 1;
549: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
551: l_regions_rec.attribute8) || '"';
550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
551: l_regions_rec.attribute8) || '"';
552: end if;
553: if ((l_regions_rec.attribute9 IS NOT NULL) and
554: (l_regions_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
555: l_index := l_index + 1;
556: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
558: l_regions_rec.attribute9) || '"';
557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
558: l_regions_rec.attribute9) || '"';
559: end if;
560: if ((l_regions_rec.attribute10 IS NOT NULL) and
561: (l_regions_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
562: l_index := l_index + 1;
563: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
565: l_regions_rec.attribute10) || '"';
564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
565: l_regions_rec.attribute10) || '"';
566: end if;
567: if ((l_regions_rec.attribute11 IS NOT NULL) and
568: (l_regions_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
569: l_index := l_index + 1;
570: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
572: l_regions_rec.attribute11) || '"';
571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
572: l_regions_rec.attribute11) || '"';
573: end if;
574: if ((l_regions_rec.attribute12 IS NOT NULL) and
575: (l_regions_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
576: l_index := l_index + 1;
577: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
578: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
579: l_regions_rec.attribute12) || '"';
578: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
579: l_regions_rec.attribute12) || '"';
580: end if;
581: if ((l_regions_rec.attribute13 IS NOT NULL) and
582: (l_regions_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
583: l_index := l_index + 1;
584: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
585: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
586: l_regions_rec.attribute13) || '"';
585: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
586: l_regions_rec.attribute13) || '"';
587: end if;
588: if ((l_regions_rec.attribute14 IS NOT NULL) and
589: (l_regions_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
590: l_index := l_index + 1;
591: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
592: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
593: l_regions_rec.attribute14) || '"';
592: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
593: l_regions_rec.attribute14) || '"';
594: end if;
595: if ((l_regions_rec.attribute15 IS NOT NULL) and
596: (l_regions_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
597: l_index := l_index + 1;
598: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
599: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
600: l_regions_rec.attribute15) || '"';
628: p_buffer_tbl => l_databuffer_tbl,
629: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
630: );
631: -- If API call returns with an error status...
632: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
633: (l_return_status = FND_API.G_RET_STS_ERROR) then
634: close l_get_regions_csr;
635: RAISE FND_API.G_EXC_ERROR;
636: end if;
629: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
630: );
631: -- If API call returns with an error status...
632: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
633: (l_return_status = FND_API.G_RET_STS_ERROR) then
634: close l_get_regions_csr;
635: RAISE FND_API.G_EXC_ERROR;
636: end if;
637:
631: -- If API call returns with an error status...
632: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
633: (l_return_status = FND_API.G_RET_STS_ERROR) then
634: close l_get_regions_csr;
635: RAISE FND_API.G_EXC_ERROR;
636: end if;
637:
638: l_databuffer_tbl.delete;
639:
650: );
651:
652: -- Download should abort if validation fails
653: --
654: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
655: (l_return_status = FND_API.G_RET_STS_ERROR) then
656: close l_get_regions_csr;
657: RAISE FND_API.G_EXC_ERROR;
658: end if;
651:
652: -- Download should abort if validation fails
653: --
654: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
655: (l_return_status = FND_API.G_RET_STS_ERROR) then
656: close l_get_regions_csr;
657: RAISE FND_API.G_EXC_ERROR;
658: end if;
659:
653: --
654: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
655: (l_return_status = FND_API.G_RET_STS_ERROR) then
656: close l_get_regions_csr;
657: RAISE FND_API.G_EXC_ERROR;
658: end if;
659:
660: -- finish up flow page region
661: l_index := 1;
670: p_buffer_tbl => l_databuffer_tbl,
671: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
672: );
673: -- If API call returns with an error status...
674: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
675: (l_return_status = FND_API.G_RET_STS_ERROR) then
676: close l_get_regions_csr;
677: RAISE FND_API.G_EXC_ERROR;
678: end if;
671: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
672: );
673: -- If API call returns with an error status...
674: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
675: (l_return_status = FND_API.G_RET_STS_ERROR) then
676: close l_get_regions_csr;
677: RAISE FND_API.G_EXC_ERROR;
678: end if;
679:
673: -- If API call returns with an error status...
674: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
675: (l_return_status = FND_API.G_RET_STS_ERROR) then
676: close l_get_regions_csr;
677: RAISE FND_API.G_EXC_ERROR;
678: end if;
679:
680: l_databuffer_tbl.delete;
681:
681:
682: end loop;
683: close l_get_regions_csr;
684:
685: p_return_status := FND_API.G_RET_STS_SUCCESS;
686:
687: EXCEPTION
688: WHEN VALUE_ERROR THEN
689: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
695: ' ' || to_char(l_regions_rec.region_application_id) ||
696: ' ' || l_regions_rec.region_code );
697: FND_MSG_PUB.Add;
698: end if;
699: p_return_status := FND_API.G_RET_STS_ERROR;
700: WHEN FND_API.G_EXC_ERROR THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: WHEN OTHERS THEN
703: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
696: ' ' || l_regions_rec.region_code );
697: FND_MSG_PUB.Add;
698: end if;
699: p_return_status := FND_API.G_RET_STS_ERROR;
700: WHEN FND_API.G_EXC_ERROR THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: WHEN OTHERS THEN
703: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
697: FND_MSG_PUB.Add;
698: end if;
699: p_return_status := FND_API.G_RET_STS_ERROR;
700: WHEN FND_API.G_EXC_ERROR THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: WHEN OTHERS THEN
703: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
705: SUBSTR (SQLERRM, 1, 240) );
699: p_return_status := FND_API.G_RET_STS_ERROR;
700: WHEN FND_API.G_EXC_ERROR THEN
701: p_return_status := FND_API.G_RET_STS_ERROR;
702: WHEN OTHERS THEN
703: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
704: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
705: SUBSTR (SQLERRM, 1, 240) );
706: FND_MSG_PUB.Add;
707: end WRITE_REGIONS_TO_BUFFER;
733: -- The NLS langauge that should be used when
734: -- extracting data from the TL table
735: --=======================================================
736: procedure WRITE_PAGES_TO_BUFFER (
737: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
738: p_return_status OUT NOCOPY VARCHAR2,
739: p_flow_application_id IN NUMBER,
740: p_flow_code IN VARCHAR2,
741: p_nls_language IN VARCHAR2
780: fetch l_get_page_tl_csr into l_pages_tl_rec;
781: if l_get_page_tl_csr%found then
782:
783: -- write this flow page if it is validated
784: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
785: not AK_FLOW3_PVT.VALIDATE_PAGE (
786: p_validation_level => p_validation_level,
787: p_api_version_number => 1.0,
788: p_return_status => l_return_status,
805: FND_MSG_PUB.Add;
806: end if;
807: close l_get_page_tl_csr;
808: close l_get_pages_csr;
809: RAISE FND_API.G_EXC_ERROR;
810: else
811: l_databuffer_tbl(l_index) := ' ';
812: l_index := l_index + 1;
813: l_databuffer_tbl(l_index) := ' BEGIN FLOW_PAGE "' ||
821: l_pages_rec.primary_region_code) ||'"';
822: -- Flex Fields
823: --
824: if ((l_pages_rec.attribute_category IS NOT NULL) and
825: (l_pages_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
826: l_index := l_index + 1;
827: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
828: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
829: l_pages_rec.attribute_category) || '"';
828: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
829: l_pages_rec.attribute_category) || '"';
830: end if;
831: if ((l_pages_rec.attribute1 IS NOT NULL) and
832: (l_pages_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
833: l_index := l_index + 1;
834: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
835: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
836: l_pages_rec.attribute1) || '"';
835: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
836: l_pages_rec.attribute1) || '"';
837: end if;
838: if ((l_pages_rec.attribute2 IS NOT NULL) and
839: (l_pages_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
840: l_index := l_index + 1;
841: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
842: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
843: l_pages_rec.attribute2) || '"';
842: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
843: l_pages_rec.attribute2) || '"';
844: end if;
845: if ((l_pages_rec.attribute3 IS NOT NULL) and
846: (l_pages_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
847: l_index := l_index + 1;
848: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
849: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
850: l_pages_rec.attribute3) || '"';
849: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
850: l_pages_rec.attribute3) || '"';
851: end if;
852: if ((l_pages_rec.attribute4 IS NOT NULL) and
853: (l_pages_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
854: l_index := l_index + 1;
855: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
856: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
857: l_pages_rec.attribute4) || '"';
856: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
857: l_pages_rec.attribute4) || '"';
858: end if;
859: if ((l_pages_rec.attribute5 IS NOT NULL) and
860: (l_pages_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
861: l_index := l_index + 1;
862: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
863: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
864: l_pages_rec.attribute5) || '"';
863: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
864: l_pages_rec.attribute5) || '"';
865: end if;
866: if ((l_pages_rec.attribute6 IS NOT NULL) and
867: (l_pages_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
868: l_index := l_index + 1;
869: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
870: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
871: l_pages_rec.attribute6) || '"';
870: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
871: l_pages_rec.attribute6) || '"';
872: end if;
873: if ((l_pages_rec.attribute7 IS NOT NULL) and
874: (l_pages_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
875: l_index := l_index + 1;
876: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
877: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
878: l_pages_rec.attribute7) || '"';
877: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
878: l_pages_rec.attribute7) || '"';
879: end if;
880: if ((l_pages_rec.attribute8 IS NOT NULL) and
881: (l_pages_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
882: l_index := l_index + 1;
883: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
884: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
885: l_pages_rec.attribute8) || '"';
884: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
885: l_pages_rec.attribute8) || '"';
886: end if;
887: if ((l_pages_rec.attribute9 IS NOT NULL) and
888: (l_pages_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
889: l_index := l_index + 1;
890: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
891: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
892: l_pages_rec.attribute9) || '"';
891: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
892: l_pages_rec.attribute9) || '"';
893: end if;
894: if ((l_pages_rec.attribute10 IS NOT NULL) and
895: (l_pages_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
896: l_index := l_index + 1;
897: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
898: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
899: l_pages_rec.attribute10) || '"';
898: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
899: l_pages_rec.attribute10) || '"';
900: end if;
901: if ((l_pages_rec.attribute11 IS NOT NULL) and
902: (l_pages_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
903: l_index := l_index + 1;
904: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
905: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
906: l_pages_rec.attribute11) || '"';
905: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
906: l_pages_rec.attribute11) || '"';
907: end if;
908: if ((l_pages_rec.attribute12 IS NOT NULL) and
909: (l_pages_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
910: l_index := l_index + 1;
911: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
912: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
913: l_pages_rec.attribute12) || '"';
912: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
913: l_pages_rec.attribute12) || '"';
914: end if;
915: if ((l_pages_rec.attribute13 IS NOT NULL) and
916: (l_pages_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
917: l_index := l_index + 1;
918: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
919: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
920: l_pages_rec.attribute13) || '"';
919: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
920: l_pages_rec.attribute13) || '"';
921: end if;
922: if ((l_pages_rec.attribute14 IS NOT NULL) and
923: (l_pages_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
924: l_index := l_index + 1;
925: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
926: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
927: l_pages_rec.attribute14) || '"';
926: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
927: l_pages_rec.attribute14) || '"';
928: end if;
929: if ((l_pages_rec.attribute15 IS NOT NULL) and
930: (l_pages_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
931: l_index := l_index + 1;
932: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
933: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
934: l_pages_rec.attribute15) || '"';
955: l_databuffer_tbl(l_index) := ' LAST_UPDATE_LOGIN = "' ||
956: nvl(to_char(l_pages_rec.last_update_login),'') || '"';
957:
958: if ((l_pages_tl_rec.name IS NOT NULL) and
959: (l_pages_tl_rec.name <> FND_API.G_MISS_CHAR)) then
960: l_index := l_index + 1;
961: l_databuffer_tbl(l_index) := ' NAME = "' ||
962: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_pages_tl_rec.name) || '"';
963: end if;
961: l_databuffer_tbl(l_index) := ' NAME = "' ||
962: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_pages_tl_rec.name) || '"';
963: end if;
964: if ((l_pages_tl_rec.description IS NOT NULL) and
965: (l_pages_tl_rec.description <> FND_API.G_MISS_CHAR)) then
966: l_index := l_index + 1;
967: l_databuffer_tbl(l_index) := ' DESCRIPTION = "' ||
968: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_pages_tl_rec.description)
969: || '"';
975: p_buffer_tbl => l_databuffer_tbl,
976: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
977: );
978: -- If API call returns with an error status...
979: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
980: (l_return_status = FND_API.G_RET_STS_ERROR) then
981: close l_get_page_tl_csr;
982: close l_get_pages_csr;
983: RAISE FND_API.G_EXC_ERROR;
976: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
977: );
978: -- If API call returns with an error status...
979: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
980: (l_return_status = FND_API.G_RET_STS_ERROR) then
981: close l_get_page_tl_csr;
982: close l_get_pages_csr;
983: RAISE FND_API.G_EXC_ERROR;
984: end if;
979: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
980: (l_return_status = FND_API.G_RET_STS_ERROR) then
981: close l_get_page_tl_csr;
982: close l_get_pages_csr;
983: RAISE FND_API.G_EXC_ERROR;
984: end if;
985:
986: l_databuffer_tbl.delete;
987:
997: );
998: --
999: -- Download aborts if validation fails in WRITE_REGIONS_TO_BUFFER
1000: --
1001: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1002: (l_return_status = FND_API.G_RET_STS_ERROR) then
1003: close l_get_page_tl_csr;
1004: close l_get_pages_csr;
1005: RAISE FND_API.G_EXC_ERROR;
998: --
999: -- Download aborts if validation fails in WRITE_REGIONS_TO_BUFFER
1000: --
1001: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1002: (l_return_status = FND_API.G_RET_STS_ERROR) then
1003: close l_get_page_tl_csr;
1004: close l_get_pages_csr;
1005: RAISE FND_API.G_EXC_ERROR;
1006: end if;
1001: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1002: (l_return_status = FND_API.G_RET_STS_ERROR) then
1003: close l_get_page_tl_csr;
1004: close l_get_pages_csr;
1005: RAISE FND_API.G_EXC_ERROR;
1006: end if;
1007:
1008: -- finish up flow page
1009: l_index := 1;
1018: p_buffer_tbl => l_databuffer_tbl,
1019: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1020: );
1021: -- If API call returns with an error status...
1022: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1023: (l_return_status = FND_API.G_RET_STS_ERROR) then
1024: close l_get_page_tl_csr;
1025: close l_get_pages_csr;
1026: RAISE FND_API.G_EXC_ERROR;
1019: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1020: );
1021: -- If API call returns with an error status...
1022: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1023: (l_return_status = FND_API.G_RET_STS_ERROR) then
1024: close l_get_page_tl_csr;
1025: close l_get_pages_csr;
1026: RAISE FND_API.G_EXC_ERROR;
1027: end if;
1022: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1023: (l_return_status = FND_API.G_RET_STS_ERROR) then
1024: close l_get_page_tl_csr;
1025: close l_get_pages_csr;
1026: RAISE FND_API.G_EXC_ERROR;
1027: end if;
1028:
1029: l_databuffer_tbl.delete;
1030:
1032: close l_get_page_tl_csr;
1033: end loop;
1034: close l_get_pages_csr;
1035:
1036: p_return_status := FND_API.G_RET_STS_SUCCESS;
1037:
1038: EXCEPTION
1039: WHEN VALUE_ERROR THEN
1040: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1044: ' ' || to_char(l_pages_rec.page_application_id) ||
1045: ' ' || l_pages_rec.page_code );
1046: FND_MSG_PUB.Add;
1047: end if;
1048: p_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: p_return_status := FND_API.G_RET_STS_ERROR;
1051: WHEN OTHERS THEN
1052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1045: ' ' || l_pages_rec.page_code );
1046: FND_MSG_PUB.Add;
1047: end if;
1048: p_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: p_return_status := FND_API.G_RET_STS_ERROR;
1051: WHEN OTHERS THEN
1052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1046: FND_MSG_PUB.Add;
1047: end if;
1048: p_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: p_return_status := FND_API.G_RET_STS_ERROR;
1051: WHEN OTHERS THEN
1052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1054: SUBSTR (SQLERRM, 1, 240) );
1048: p_return_status := FND_API.G_RET_STS_ERROR;
1049: WHEN FND_API.G_EXC_ERROR THEN
1050: p_return_status := FND_API.G_RET_STS_ERROR;
1051: WHEN OTHERS THEN
1052: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1054: SUBSTR (SQLERRM, 1, 240) );
1055: FND_MSG_PUB.Add;
1056: end WRITE_PAGES_TO_BUFFER;
1080: -- Key value of the Flow record whose Flow Region
1081: -- Relation records are to be extracted to the loader file.
1082: --=======================================================
1083: procedure WRITE_RELATIONS_TO_BUFFER (
1084: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1085: p_return_status OUT NOCOPY VARCHAR2,
1086: p_flow_application_id IN NUMBER,
1087: p_flow_code IN VARCHAR2
1088: ) is
1108: loop
1109: fetch l_get_relations_csr into l_relations_rec;
1110: exit when l_get_relations_csr%notfound;
1111: -- write this flow region relation if it is validated
1112: if (p_validation_level <> FND_API.G_VALID_LEVEL_NONE) and
1113: not AK_FLOW3_PVT.VALIDATE_REGION_RELATION (
1114: p_validation_level => p_validation_level,
1115: p_api_version_number => 1.0,
1116: p_return_status => l_return_status,
1143: ' ' || l_relations_rec.to_region_code);
1144: FND_MSG_PUB.Add;
1145: end if;
1146: close l_get_relations_csr;
1147: RAISE FND_API.G_EXC_ERROR;
1148: else
1149: l_databuffer_tbl(l_index) := ' ';
1150: l_index := l_index + 1;
1151: l_databuffer_tbl(l_index) := ' BEGIN FLOW_REGION_RELATION "' ||
1168: nvl(to_char(l_relations_rec.application_id),'') || '"';
1169: -- Flex Fields
1170: --
1171: if ((l_relations_rec.attribute_category IS NOT NULL) and
1172: (l_relations_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1173: l_index := l_index + 1;
1174: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1175: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1176: l_relations_rec.attribute_category) || '"';
1175: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1176: l_relations_rec.attribute_category) || '"';
1177: end if;
1178: if ((l_relations_rec.attribute1 IS NOT NULL) and
1179: (l_relations_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1180: l_index := l_index + 1;
1181: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1182: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1183: l_relations_rec.attribute1) || '"';
1182: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1183: l_relations_rec.attribute1) || '"';
1184: end if;
1185: if ((l_relations_rec.attribute2 IS NOT NULL) and
1186: (l_relations_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1187: l_index := l_index + 1;
1188: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1189: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1190: l_relations_rec.attribute2) || '"';
1189: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1190: l_relations_rec.attribute2) || '"';
1191: end if;
1192: if ((l_relations_rec.attribute3 IS NOT NULL) and
1193: (l_relations_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1194: l_index := l_index + 1;
1195: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1196: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1197: l_relations_rec.attribute3) || '"';
1196: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1197: l_relations_rec.attribute3) || '"';
1198: end if;
1199: if ((l_relations_rec.attribute4 IS NOT NULL) and
1200: (l_relations_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1201: l_index := l_index + 1;
1202: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1203: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1204: l_relations_rec.attribute4) || '"';
1203: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1204: l_relations_rec.attribute4) || '"';
1205: end if;
1206: if ((l_relations_rec.attribute5 IS NOT NULL) and
1207: (l_relations_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1208: l_index := l_index + 1;
1209: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1210: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1211: l_relations_rec.attribute5) || '"';
1210: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1211: l_relations_rec.attribute5) || '"';
1212: end if;
1213: if ((l_relations_rec.attribute6 IS NOT NULL) and
1214: (l_relations_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1215: l_index := l_index + 1;
1216: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1217: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1218: l_relations_rec.attribute6) || '"';
1217: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1218: l_relations_rec.attribute6) || '"';
1219: end if;
1220: if ((l_relations_rec.attribute7 IS NOT NULL) and
1221: (l_relations_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1222: l_index := l_index + 1;
1223: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1224: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1225: l_relations_rec.attribute7) || '"';
1224: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1225: l_relations_rec.attribute7) || '"';
1226: end if;
1227: if ((l_relations_rec.attribute8 IS NOT NULL) and
1228: (l_relations_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1229: l_index := l_index + 1;
1230: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1231: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1232: l_relations_rec.attribute8) || '"';
1231: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1232: l_relations_rec.attribute8) || '"';
1233: end if;
1234: if ((l_relations_rec.attribute9 IS NOT NULL) and
1235: (l_relations_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1236: l_index := l_index + 1;
1237: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1238: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1239: l_relations_rec.attribute9) || '"';
1238: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1239: l_relations_rec.attribute9) || '"';
1240: end if;
1241: if ((l_relations_rec.attribute10 IS NOT NULL) and
1242: (l_relations_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1243: l_index := l_index + 1;
1244: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1245: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1246: l_relations_rec.attribute10) || '"';
1245: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1246: l_relations_rec.attribute10) || '"';
1247: end if;
1248: if ((l_relations_rec.attribute11 IS NOT NULL) and
1249: (l_relations_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1250: l_index := l_index + 1;
1251: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1252: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1253: l_relations_rec.attribute11) || '"';
1252: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1253: l_relations_rec.attribute11) || '"';
1254: end if;
1255: if ((l_relations_rec.attribute12 IS NOT NULL) and
1256: (l_relations_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1257: l_index := l_index + 1;
1258: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1259: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1260: l_relations_rec.attribute12) || '"';
1259: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1260: l_relations_rec.attribute12) || '"';
1261: end if;
1262: if ((l_relations_rec.attribute13 IS NOT NULL) and
1263: (l_relations_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1264: l_index := l_index + 1;
1265: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1266: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1267: l_relations_rec.attribute13) || '"';
1266: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1267: l_relations_rec.attribute13) || '"';
1268: end if;
1269: if ((l_relations_rec.attribute14 IS NOT NULL) and
1270: (l_relations_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1271: l_index := l_index + 1;
1272: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1273: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1274: l_relations_rec.attribute14) || '"';
1273: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1274: l_relations_rec.attribute14) || '"';
1275: end if;
1276: if ((l_relations_rec.attribute15 IS NOT NULL) and
1277: (l_relations_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
1278: l_index := l_index + 1;
1279: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
1280: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1281: l_relations_rec.attribute15) || '"';
1320: p_buffer_tbl => l_databuffer_tbl,
1321: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1322: );
1323: -- If API call returns with an error status...
1324: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1325: (l_return_status = FND_API.G_RET_STS_ERROR) then
1326: close l_get_relations_csr;
1327: RAISE FND_API.G_EXC_ERROR;
1328: end if;
1321: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1322: );
1323: -- If API call returns with an error status...
1324: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1325: (l_return_status = FND_API.G_RET_STS_ERROR) then
1326: close l_get_relations_csr;
1327: RAISE FND_API.G_EXC_ERROR;
1328: end if;
1329: end if;
1323: -- If API call returns with an error status...
1324: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1325: (l_return_status = FND_API.G_RET_STS_ERROR) then
1326: close l_get_relations_csr;
1327: RAISE FND_API.G_EXC_ERROR;
1328: end if;
1329: end if;
1330:
1331: close l_get_relations_csr;
1329: end if;
1330:
1331: close l_get_relations_csr;
1332:
1333: p_return_status := FND_API.G_RET_STS_SUCCESS;
1334:
1335: EXCEPTION
1336: WHEN VALUE_ERROR THEN
1337: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1348: ' ' || to_char(l_relations_rec.to_region_appl_id) ||
1349: ' ' || l_relations_rec.to_region_code);
1350: FND_MSG_PUB.Add;
1351: end if;
1352: p_return_status := FND_API.G_RET_STS_ERROR;
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: p_return_status := FND_API.G_RET_STS_ERROR;
1355: WHEN OTHERS THEN
1356: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1349: ' ' || l_relations_rec.to_region_code);
1350: FND_MSG_PUB.Add;
1351: end if;
1352: p_return_status := FND_API.G_RET_STS_ERROR;
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: p_return_status := FND_API.G_RET_STS_ERROR;
1355: WHEN OTHERS THEN
1356: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1357: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1350: FND_MSG_PUB.Add;
1351: end if;
1352: p_return_status := FND_API.G_RET_STS_ERROR;
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: p_return_status := FND_API.G_RET_STS_ERROR;
1355: WHEN OTHERS THEN
1356: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1357: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1358: SUBSTR (SQLERRM, 1, 240) );
1352: p_return_status := FND_API.G_RET_STS_ERROR;
1353: WHEN FND_API.G_EXC_ERROR THEN
1354: p_return_status := FND_API.G_RET_STS_ERROR;
1355: WHEN OTHERS THEN
1356: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1357: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1358: SUBSTR (SQLERRM, 1, 240) );
1359: FND_MSG_PUB.Add;
1360: end WRITE_RELATIONS_TO_BUFFER;
1385: -- The NLS langauge that should be used when
1386: -- extracting data from the TL table
1387: --=======================================================
1388: procedure WRITE_TO_BUFFER (
1389: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1390: p_return_status OUT NOCOPY VARCHAR2,
1391: p_flow_application_id IN NUMBER,
1392: p_flow_code IN VARCHAR2,
1393: p_nls_language IN VARCHAR2
1419: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
1420: FND_MESSAGE.SET_NAME('AK','AK_FLOW_DOES_NOT_EXIST');
1421: FND_MSG_PUB.Add;
1422: end if;
1423: RAISE FND_API.G_EXC_ERROR;
1424: end if;
1425: close l_get_flow_csr;
1426:
1427: open l_get_flow_tl_csr;
1431: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) then
1432: FND_MESSAGE.SET_NAME('AK','AK_FLOW_DOES_NOT_EXIST');
1433: FND_MSG_PUB.Add;
1434: end if;
1435: RAISE FND_API.G_EXC_ERROR;
1436: end if;
1437: close l_get_flow_tl_csr;
1438:
1439: -- Flow must be validated before it is written to the file
1436: end if;
1437: close l_get_flow_tl_csr;
1438:
1439: -- Flow must be validated before it is written to the file
1440: if p_validation_level <> FND_API.G_VALID_LEVEL_NONE then
1441: if not AK_FLOW3_PVT.VALIDATE_FLOW (
1442: p_validation_level => p_validation_level,
1443: p_api_version_number => 1.0,
1444: p_return_status => l_return_status,
1449: p_name => l_flows_tl_rec.name,
1450: p_description => l_flows_tl_rec.description,
1451: p_caller => AK_ON_OBJECTS_PVT.G_DOWNLOAD)
1452: then
1453: raise FND_API.G_EXC_ERROR;
1454: end if;
1455: end if;
1456:
1457: -- Write flow into buffer
1466: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_flows_rec.primary_page_code)||'"';
1467: -- Flex Fields
1468: --
1469: if ((l_flows_rec.attribute_category IS NOT NULL) and
1470: (l_flows_rec.attribute_category <> FND_API.G_MISS_CHAR)) then
1471: l_index := l_index + 1;
1472: l_databuffer_tbl(l_index) := ' ATTRIBUTE_CATEGORY = "' ||
1473: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1474: l_flows_rec.attribute_category) || '"';
1473: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1474: l_flows_rec.attribute_category) || '"';
1475: end if;
1476: if ((l_flows_rec.attribute1 IS NOT NULL) and
1477: (l_flows_rec.attribute1 <> FND_API.G_MISS_CHAR)) then
1478: l_index := l_index + 1;
1479: l_databuffer_tbl(l_index) := ' ATTRIBUTE1 = "' ||
1480: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1481: l_flows_rec.attribute1) || '"';
1480: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1481: l_flows_rec.attribute1) || '"';
1482: end if;
1483: if ((l_flows_rec.attribute2 IS NOT NULL) and
1484: (l_flows_rec.attribute2 <> FND_API.G_MISS_CHAR)) then
1485: l_index := l_index + 1;
1486: l_databuffer_tbl(l_index) := ' ATTRIBUTE2 = "' ||
1487: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1488: l_flows_rec.attribute2) || '"';
1487: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1488: l_flows_rec.attribute2) || '"';
1489: end if;
1490: if ((l_flows_rec.attribute3 IS NOT NULL) and
1491: (l_flows_rec.attribute3 <> FND_API.G_MISS_CHAR)) then
1492: l_index := l_index + 1;
1493: l_databuffer_tbl(l_index) := ' ATTRIBUTE3 = "' ||
1494: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1495: l_flows_rec.attribute3) || '"';
1494: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1495: l_flows_rec.attribute3) || '"';
1496: end if;
1497: if ((l_flows_rec.attribute4 IS NOT NULL) and
1498: (l_flows_rec.attribute4 <> FND_API.G_MISS_CHAR)) then
1499: l_index := l_index + 1;
1500: l_databuffer_tbl(l_index) := ' ATTRIBUTE4 = "' ||
1501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1502: l_flows_rec.attribute4) || '"';
1501: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1502: l_flows_rec.attribute4) || '"';
1503: end if;
1504: if ((l_flows_rec.attribute5 IS NOT NULL) and
1505: (l_flows_rec.attribute5 <> FND_API.G_MISS_CHAR)) then
1506: l_index := l_index + 1;
1507: l_databuffer_tbl(l_index) := ' ATTRIBUTE5 = "' ||
1508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1509: l_flows_rec.attribute5) || '"';
1508: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1509: l_flows_rec.attribute5) || '"';
1510: end if;
1511: if ((l_flows_rec.attribute6 IS NOT NULL) and
1512: (l_flows_rec.attribute6 <> FND_API.G_MISS_CHAR)) then
1513: l_index := l_index + 1;
1514: l_databuffer_tbl(l_index) := ' ATTRIBUTE6 = "' ||
1515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1516: l_flows_rec.attribute6) || '"';
1515: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1516: l_flows_rec.attribute6) || '"';
1517: end if;
1518: if ((l_flows_rec.attribute7 IS NOT NULL) and
1519: (l_flows_rec.attribute7 <> FND_API.G_MISS_CHAR)) then
1520: l_index := l_index + 1;
1521: l_databuffer_tbl(l_index) := ' ATTRIBUTE7 = "' ||
1522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1523: l_flows_rec.attribute7) || '"';
1522: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1523: l_flows_rec.attribute7) || '"';
1524: end if;
1525: if ((l_flows_rec.attribute8 IS NOT NULL) and
1526: (l_flows_rec.attribute8 <> FND_API.G_MISS_CHAR)) then
1527: l_index := l_index + 1;
1528: l_databuffer_tbl(l_index) := ' ATTRIBUTE8 = "' ||
1529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1530: l_flows_rec.attribute8) || '"';
1529: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1530: l_flows_rec.attribute8) || '"';
1531: end if;
1532: if ((l_flows_rec.attribute9 IS NOT NULL) and
1533: (l_flows_rec.attribute9 <> FND_API.G_MISS_CHAR)) then
1534: l_index := l_index + 1;
1535: l_databuffer_tbl(l_index) := ' ATTRIBUTE9 = "' ||
1536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1537: l_flows_rec.attribute9) || '"';
1536: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1537: l_flows_rec.attribute9) || '"';
1538: end if;
1539: if ((l_flows_rec.attribute10 IS NOT NULL) and
1540: (l_flows_rec.attribute10 <> FND_API.G_MISS_CHAR)) then
1541: l_index := l_index + 1;
1542: l_databuffer_tbl(l_index) := ' ATTRIBUTE10 = "' ||
1543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1544: l_flows_rec.attribute10) || '"';
1543: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1544: l_flows_rec.attribute10) || '"';
1545: end if;
1546: if ((l_flows_rec.attribute11 IS NOT NULL) and
1547: (l_flows_rec.attribute11 <> FND_API.G_MISS_CHAR)) then
1548: l_index := l_index + 1;
1549: l_databuffer_tbl(l_index) := ' ATTRIBUTE11 = "' ||
1550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1551: l_flows_rec.attribute11) || '"';
1550: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1551: l_flows_rec.attribute11) || '"';
1552: end if;
1553: if ((l_flows_rec.attribute12 IS NOT NULL) and
1554: (l_flows_rec.attribute12 <> FND_API.G_MISS_CHAR)) then
1555: l_index := l_index + 1;
1556: l_databuffer_tbl(l_index) := ' ATTRIBUTE12 = "' ||
1557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1558: l_flows_rec.attribute12) || '"';
1557: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1558: l_flows_rec.attribute12) || '"';
1559: end if;
1560: if ((l_flows_rec.attribute13 IS NOT NULL) and
1561: (l_flows_rec.attribute13 <> FND_API.G_MISS_CHAR)) then
1562: l_index := l_index + 1;
1563: l_databuffer_tbl(l_index) := ' ATTRIBUTE13 = "' ||
1564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1565: l_flows_rec.attribute13) || '"';
1564: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1565: l_flows_rec.attribute13) || '"';
1566: end if;
1567: if ((l_flows_rec.attribute14 IS NOT NULL) and
1568: (l_flows_rec.attribute14 <> FND_API.G_MISS_CHAR)) then
1569: l_index := l_index + 1;
1570: l_databuffer_tbl(l_index) := ' ATTRIBUTE14 = "' ||
1571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1572: l_flows_rec.attribute14) || '"';
1571: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1572: l_flows_rec.attribute14) || '"';
1573: end if;
1574: if ((l_flows_rec.attribute15 IS NOT NULL) and
1575: (l_flows_rec.attribute15 <> FND_API.G_MISS_CHAR)) then
1576: l_index := l_index + 1;
1577: l_databuffer_tbl(l_index) := ' ATTRIBUTE15 = "' ||
1578: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(
1579: l_flows_rec.attribute15) || '"';
1602:
1603: -- translation columns
1604: --
1605: if (l_flows_tl_rec.name IS NOT NULL) and
1606: (l_flows_tl_rec.name <> FND_API.G_MISS_CHAR) then
1607: l_index := l_index + 1;
1608: l_databuffer_tbl(l_index) := ' NAME = "' ||
1609: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_flows_tl_rec.name) || '"';
1610: end if;
1608: l_databuffer_tbl(l_index) := ' NAME = "' ||
1609: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_flows_tl_rec.name) || '"';
1610: end if;
1611: if ((l_flows_tl_rec.description IS NOT NULL) and
1612: (l_flows_tl_rec.description <> FND_API.G_MISS_CHAR)) then
1613: l_index := l_index + 1;
1614: l_databuffer_tbl(l_index) := ' DESCRIPTION = "' ||
1615: AK_ON_OBJECTS_PVT.REPLACE_SPECIAL_CHAR(l_flows_tl_rec.description) || '"';
1616: end if;
1622: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1623: );
1624: -- dbms_output.put_line('after write file');
1625: -- If API call returns with an error status...
1626: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1627: (l_return_status = FND_API.G_RET_STS_ERROR) then
1628: RAISE FND_API.G_EXC_ERROR;
1629: end if;
1630:
1623: );
1624: -- dbms_output.put_line('after write file');
1625: -- If API call returns with an error status...
1626: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1627: (l_return_status = FND_API.G_RET_STS_ERROR) then
1628: RAISE FND_API.G_EXC_ERROR;
1629: end if;
1630:
1631: l_databuffer_tbl.delete;
1624: -- dbms_output.put_line('after write file');
1625: -- If API call returns with an error status...
1626: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1627: (l_return_status = FND_API.G_RET_STS_ERROR) then
1628: RAISE FND_API.G_EXC_ERROR;
1629: end if;
1630:
1631: l_databuffer_tbl.delete;
1632:
1636: p_flow_application_id => p_flow_application_id,
1637: p_flow_code => p_flow_code,
1638: p_nls_language => p_nls_language
1639: );
1640: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1641: (l_return_status = FND_API.G_RET_STS_ERROR) then
1642: RAISE FND_API.G_EXC_ERROR;
1643: end if;
1644:
1637: p_flow_code => p_flow_code,
1638: p_nls_language => p_nls_language
1639: );
1640: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1641: (l_return_status = FND_API.G_RET_STS_ERROR) then
1642: RAISE FND_API.G_EXC_ERROR;
1643: end if;
1644:
1645: WRITE_RELATIONS_TO_BUFFER (
1638: p_nls_language => p_nls_language
1639: );
1640: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1641: (l_return_status = FND_API.G_RET_STS_ERROR) then
1642: RAISE FND_API.G_EXC_ERROR;
1643: end if;
1644:
1645: WRITE_RELATIONS_TO_BUFFER (
1646: p_validation_level => p_validation_level,
1647: p_return_status => l_return_status,
1648: p_flow_application_id => p_flow_application_id,
1649: p_flow_code => p_flow_code
1650: );
1651: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1652: (l_return_status = FND_API.G_RET_STS_ERROR) then
1653: RAISE FND_API.G_EXC_ERROR;
1654: end if;
1655:
1648: p_flow_application_id => p_flow_application_id,
1649: p_flow_code => p_flow_code
1650: );
1651: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1652: (l_return_status = FND_API.G_RET_STS_ERROR) then
1653: RAISE FND_API.G_EXC_ERROR;
1654: end if;
1655:
1656: l_index := 1;
1649: p_flow_code => p_flow_code
1650: );
1651: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1652: (l_return_status = FND_API.G_RET_STS_ERROR) then
1653: RAISE FND_API.G_EXC_ERROR;
1654: end if;
1655:
1656: l_index := 1;
1657: l_databuffer_tbl(l_index) := 'END FLOW';
1664: p_buffer_tbl => l_databuffer_tbl,
1665: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1666: );
1667: -- If API call returns with an error status...
1668: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1669: (l_return_status = FND_API.G_RET_STS_ERROR) then
1670: RAISE FND_API.G_EXC_ERROR;
1671: end if;
1672:
1665: p_write_mode => AK_ON_OBJECTS_PUB.G_APPEND
1666: );
1667: -- If API call returns with an error status...
1668: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1669: (l_return_status = FND_API.G_RET_STS_ERROR) then
1670: RAISE FND_API.G_EXC_ERROR;
1671: end if;
1672:
1673: p_return_status := FND_API.G_RET_STS_SUCCESS;
1666: );
1667: -- If API call returns with an error status...
1668: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1669: (l_return_status = FND_API.G_RET_STS_ERROR) then
1670: RAISE FND_API.G_EXC_ERROR;
1671: end if;
1672:
1673: p_return_status := FND_API.G_RET_STS_SUCCESS;
1674:
1669: (l_return_status = FND_API.G_RET_STS_ERROR) then
1670: RAISE FND_API.G_EXC_ERROR;
1671: end if;
1672:
1673: p_return_status := FND_API.G_RET_STS_SUCCESS;
1674:
1675: EXCEPTION
1676: WHEN VALUE_ERROR THEN
1677: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1679: FND_MESSAGE.SET_TOKEN('KEY', to_char(p_flow_application_id) ||
1680: ' ' || p_flow_code);
1681: FND_MSG_PUB.Add;
1682: end if;
1683: p_return_status := FND_API.G_RET_STS_ERROR;
1684: WHEN FND_API.G_EXC_ERROR THEN
1685: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1686: FND_MESSAGE.SET_NAME('AK','AK_FLOW_NOT_DOWNLOADED');
1687: FND_MESSAGE.SET_TOKEN('KEY', to_char(p_flow_application_id) ||
1680: ' ' || p_flow_code);
1681: FND_MSG_PUB.Add;
1682: end if;
1683: p_return_status := FND_API.G_RET_STS_ERROR;
1684: WHEN FND_API.G_EXC_ERROR THEN
1685: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1686: FND_MESSAGE.SET_NAME('AK','AK_FLOW_NOT_DOWNLOADED');
1687: FND_MESSAGE.SET_TOKEN('KEY', to_char(p_flow_application_id) ||
1688: ' ' || p_flow_code);
1687: FND_MESSAGE.SET_TOKEN('KEY', to_char(p_flow_application_id) ||
1688: ' ' || p_flow_code);
1689: FND_MSG_PUB.Add;
1690: end if;
1691: p_return_status := FND_API.G_RET_STS_ERROR;
1692: WHEN OTHERS THEN
1693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1695: SUBSTR (SQLERRM, 1, 240) );
1689: FND_MSG_PUB.Add;
1690: end if;
1691: p_return_status := FND_API.G_RET_STS_ERROR;
1692: WHEN OTHERS THEN
1693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
1695: SUBSTR (SQLERRM, 1, 240) );
1696: FND_MSG_PUB.Add;
1697: end WRITE_TO_BUFFER;
1736: -- Version Initial version number = 1.0
1737: -- History Current version number = 1.0
1738: --=======================================================
1739: procedure DOWNLOAD_FLOW (
1740: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1741: p_api_version_number IN NUMBER,
1742: p_return_status OUT NOCOPY VARCHAR2,
1743: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
1744: p_flow_pk_tbl IN AK_FLOW_PUB.Flow_PK_Tbl_Type
1739: procedure DOWNLOAD_FLOW (
1740: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1741: p_api_version_number IN NUMBER,
1742: p_return_status OUT NOCOPY VARCHAR2,
1743: p_application_id IN NUMBER := FND_API.G_MISS_NUM,
1744: p_flow_pk_tbl IN AK_FLOW_PUB.Flow_PK_Tbl_Type
1745: := AK_FLOW_PUB.G_MISS_FLOW_PK_TBL,
1746: p_nls_language IN VARCHAR2
1747: ) is
1765: l_region_code VARCHAR2(30);
1766: l_region_pk_tbl AK_REGION_PUB.Region_PK_Tbl_Type;
1767: l_return_status varchar2(1);
1768: begin
1769: IF NOT FND_API.Compatible_API_Call (
1770: l_api_version_number, p_api_version_number, l_api_name,
1771: G_PKG_NAME) then
1772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: return;
1768: begin
1769: IF NOT FND_API.Compatible_API_Call (
1770: l_api_version_number, p_api_version_number, l_api_name,
1771: G_PKG_NAME) then
1772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: return;
1774: END IF;
1775:
1776:
1776:
1777: -- Check that one of the following selection criteria is given:
1778: -- - p_application_id alone, or
1779: -- - flow codes in p_flow_PK_tbl
1780: if (p_application_id = FND_API.G_MISS_NUM) or (p_application_id is null) then
1781: if (p_flow_PK_tbl.count = 0) then
1782: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1783: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1784: FND_MSG_PUB.Add;
1782: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1783: FND_MESSAGE.SET_NAME('AK','AK_NO_SELECTION');
1784: FND_MSG_PUB.Add;
1785: end if;
1786: raise FND_API.G_EXC_ERROR;
1787: end if;
1788: else
1789: if (p_flow_PK_tbl.count > 0) then
1790: -- both application ID and a list of flows to be extracted are
1855: p_get_object_flag => 'Y' -- Need to get objects for regions
1856: );
1857: end if;
1858:
1859: if (l_return_status = FND_API.G_RET_STS_ERROR) or
1860: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1861: raise FND_API.G_EXC_ERROR;
1862: end if;
1863:
1856: );
1857: end if;
1858:
1859: if (l_return_status = FND_API.G_RET_STS_ERROR) or
1860: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1861: raise FND_API.G_EXC_ERROR;
1862: end if;
1863:
1864:
1857: end if;
1858:
1859: if (l_return_status = FND_API.G_RET_STS_ERROR) or
1860: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1861: raise FND_API.G_EXC_ERROR;
1862: end if;
1863:
1864:
1865: -- Write details for each selected flow, including its flow pages,
1886: --dbms_output.put_line('returning from ak_flow_pvt.download_flow: ' ||
1887: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
1888:
1889: -- p_buffer_tbl := l_region_buf_tbl;
1890: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1891: (l_return_status = FND_API.G_RET_STS_ERROR) then
1892: RAISE FND_API.G_EXC_ERROR;
1893: end if;
1894:
1887: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
1888:
1889: -- p_buffer_tbl := l_region_buf_tbl;
1890: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1891: (l_return_status = FND_API.G_RET_STS_ERROR) then
1892: RAISE FND_API.G_EXC_ERROR;
1893: end if;
1894:
1895: p_return_status := FND_API.G_RET_STS_SUCCESS;
1888:
1889: -- p_buffer_tbl := l_region_buf_tbl;
1890: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
1891: (l_return_status = FND_API.G_RET_STS_ERROR) then
1892: RAISE FND_API.G_EXC_ERROR;
1893: end if;
1894:
1895: p_return_status := FND_API.G_RET_STS_SUCCESS;
1896:
1891: (l_return_status = FND_API.G_RET_STS_ERROR) then
1892: RAISE FND_API.G_EXC_ERROR;
1893: end if;
1894:
1895: p_return_status := FND_API.G_RET_STS_SUCCESS;
1896:
1897: EXCEPTION
1898: WHEN VALUE_ERROR THEN
1899: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1900: FND_MESSAGE.SET_NAME('AK','AK_FLOW_PK_VALUE_ERROR');
1901: FND_MESSAGE.SET_TOKEN('KEY', null);
1902: FND_MSG_PUB.Add;
1903: end if;
1904: p_return_status := FND_API.G_RET_STS_ERROR;
1905: WHEN FND_API.G_EXC_ERROR THEN
1906: p_return_status := FND_API.G_RET_STS_ERROR;
1907: WHEN OTHERS THEN
1908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: FND_MESSAGE.SET_TOKEN('KEY', null);
1902: FND_MSG_PUB.Add;
1903: end if;
1904: p_return_status := FND_API.G_RET_STS_ERROR;
1905: WHEN FND_API.G_EXC_ERROR THEN
1906: p_return_status := FND_API.G_RET_STS_ERROR;
1907: WHEN OTHERS THEN
1908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1902: FND_MSG_PUB.Add;
1903: end if;
1904: p_return_status := FND_API.G_RET_STS_ERROR;
1905: WHEN FND_API.G_EXC_ERROR THEN
1906: p_return_status := FND_API.G_RET_STS_ERROR;
1907: WHEN OTHERS THEN
1908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1910: SUBSTR (SQLERRM, 1, 240) );
1904: p_return_status := FND_API.G_RET_STS_ERROR;
1905: WHEN FND_API.G_EXC_ERROR THEN
1906: p_return_status := FND_API.G_RET_STS_ERROR;
1907: WHEN OTHERS THEN
1908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1909: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name,
1910: SUBSTR (SQLERRM, 1, 240) );
1911: end DOWNLOAD_FLOW;
1912:
1960: -- Version Initial version number = 1.0
1961: -- History Current version number = 1.0
1962: --=======================================================
1963: procedure UPLOAD_FLOW (
1964: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1965: p_api_version_number IN NUMBER,
1966: p_return_status OUT NOCOPY VARCHAR2,
1967: p_index IN OUT NOCOPY NUMBER,
1968: p_loader_timestamp IN DATE,
1965: p_api_version_number IN NUMBER,
1966: p_return_status OUT NOCOPY VARCHAR2,
1967: p_index IN OUT NOCOPY NUMBER,
1968: p_loader_timestamp IN DATE,
1969: p_line_num IN NUMBER := FND_API.G_MISS_NUM,
1970: p_buffer IN AK_ON_OBJECTS_PUB.Buffer_Type,
1971: p_line_num_out OUT NOCOPY NUMBER,
1972: p_buffer_out OUT NOCOPY AK_ON_OBJECTS_PUB.Buffer_Type,
1973: p_upl_loader_cur IN OUT NOCOPY AK_ON_OBJECTS_PUB.LoaderCurTyp,
2015: begin
2016: -- dbms_output.put_line('Started flow upload:' ||
2017: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
2018:
2019: IF NOT FND_API.Compatible_API_Call (
2020: l_api_version_number, p_api_version_number, l_api_name,
2021: G_PKG_NAME) then
2022: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2023: return;
2018:
2019: IF NOT FND_API.Compatible_API_Call (
2020: l_api_version_number, p_api_version_number, l_api_name,
2021: G_PKG_NAME) then
2022: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2023: return;
2024: END IF;
2025:
2026: SAVEPOINT Start_Upload;
2033: -- the tokens 'BEGIN FLOW' has already been parsed. Set initial
2034: -- buffer to 'BEGIN FLOW' before reading the next line from the
2035: -- file. Otherwise, set initial buffer to null.
2036: --
2037: if (p_loader_timestamp <> FND_API.G_MISS_DATE) then
2038: l_buffer := 'BEGIN FLOW ' || p_buffer;
2039: else
2040: l_buffer := null;
2041: end if;
2039: else
2040: l_buffer := null;
2041: end if;
2042:
2043: if (p_line_num = FND_API.G_MISS_NUM) then
2044: l_line_num := 0;
2045: else
2046: l_line_num := p_line_num;
2047: end if;
2054: p_lines_read => l_lines_read,
2055: p_eof_flag => l_eof_flag,
2056: p_upl_loader_cur => p_upl_loader_cur
2057: );
2058: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2059: (l_return_status = FND_API.G_RET_STS_ERROR) then
2060: RAISE FND_API.G_EXC_ERROR;
2061: end if;
2062: l_line_num := l_line_num + l_lines_read;
2055: p_eof_flag => l_eof_flag,
2056: p_upl_loader_cur => p_upl_loader_cur
2057: );
2058: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2059: (l_return_status = FND_API.G_RET_STS_ERROR) then
2060: RAISE FND_API.G_EXC_ERROR;
2061: end if;
2062: l_line_num := l_line_num + l_lines_read;
2063: --
2056: p_upl_loader_cur => p_upl_loader_cur
2057: );
2058: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
2059: (l_return_status = FND_API.G_RET_STS_ERROR) then
2060: RAISE FND_API.G_EXC_ERROR;
2061: end if;
2062: l_line_num := l_line_num + l_lines_read;
2063: --
2064: -- trim leading spaces and discard comment lines
2076: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2077: FND_MESSAGE.SET_NAME('AK','AK_EMPTY_BUFFER');
2078: FND_MSG_PUB.Add;
2079: end if;
2080: raise FND_API.G_EXC_ERROR;
2081: end if;
2082:
2083: -- Read tokens from file, one at a time
2084:
2093: --
2094: -- dbms_output.put_line(' State:' || l_state || ' Token:' || l_token ||
2095: -- ' value_count:' || nvl(to_char(l_value_count),'null') );
2096:
2097: if (l_return_status = FND_API.G_RET_STS_ERROR) or
2098: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2099: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2100: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
2101: FND_MSG_PUB.Add;
2094: -- dbms_output.put_line(' State:' || l_state || ' Token:' || l_token ||
2095: -- ' value_count:' || nvl(to_char(l_value_count),'null') );
2096:
2097: if (l_return_status = FND_API.G_RET_STS_ERROR) or
2098: (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2099: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2100: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
2101: FND_MSG_PUB.Add;
2102: end if;
2100: FND_MESSAGE.SET_NAME('AK','AK_GET_TOKEN_ERROR');
2101: FND_MSG_PUB.Add;
2102: end if;
2103: -- dbms_output.put_line(l_api_name || 'Error parsing buffer');
2104: raise FND_API.G_EXC_ERROR;
2105: end if;
2106:
2107: --**** Flow processing (states 0 - 19) ****
2108: if (l_state = 0) then
2118: FND_MESSAGE.SET_TOKEN('EXPECTED','BEGIN');
2119: FND_MSG_PUB.Add;
2120: end if;
2121: -- dbms_output.put_line('Expecting BEGIN');
2122: raise FND_API.G_EXC_ERROR;
2123: end if;
2124: elsif (l_state = 1) then
2125: if (l_token = 'FLOW') then
2126: l_state := 2;
2142: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2143: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_APPLICATION_ID');
2144: FND_MSG_PUB.Add;
2145: end if;
2146: raise FND_API.G_EXC_ERROR;
2147: end if;
2148: elsif (l_state = 3) then
2149: if (l_token is not null) then
2150: l_flow_rec.flow_code := l_token;
2157: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2158: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_CODE');
2159: FND_MSG_PUB.Add;
2160: end if;
2161: raise FND_API.G_EXC_ERROR;
2162: end if;
2163: elsif (l_state = 10) then
2164: if (l_token = 'BEGIN') then
2165: l_state := 13;
2218: end if;
2219: FND_MESSAGE.SET_TOKEN('EXPECTED','flow field name, BEGIN, END');
2220: FND_MSG_PUB.Add;
2221: end if;
2222: raise FND_API.G_EXC_ERROR;
2223: end if;
2224: end if;
2225: elsif (l_state = 11) then
2226: if (l_token = '=') then
2232: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2233: FND_MESSAGE.SET_TOKEN('EXPECTED','=');
2234: FND_MSG_PUB.Add;
2235: end if;
2236: raise FND_API.G_EXC_ERROR;
2237: end if;
2238: elsif (l_state = 12) then
2239: l_value_count := 1;
2240: if (l_column = 'NAME') then
2322: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
2323: FND_MSG_PUB.Add;
2324: end if;
2325: --dbms_output.put_line('Expecting ' || l_column || ' value');
2326: raise FND_API.G_EXC_ERROR;
2327: end if;
2328: elsif (l_state = 13) then
2329: if (l_token = 'FLOW_PAGE') then
2330: l_state := 20;
2337: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2338: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE / FLOW_REGION_RELATION');
2339: FND_MSG_PUB.Add;
2340: end if;
2341: raise FND_API.G_EXC_ERROR;
2342: end if;
2343: elsif (l_state = 14) then
2344: if (l_column = 'PRIMARY_PAGE') then
2345: l_flow_rec.primary_page_code := l_token;
2352: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
2353: FND_MSG_PUB.Add;
2354: end if;
2355: --dbms_output.put_line('Expecting ' || l_column || ' value');
2356: raise FND_API.G_EXC_ERROR;
2357: end if;
2358: elsif (l_state = 19) then
2359: if (l_token = 'FLOW') then
2360: l_state := 0;
2367: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2368: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FLOW');
2369: FND_MSG_PUB.Add;
2370: end if;
2371: raise FND_API.G_EXC_ERROR;
2372: end if;
2373:
2374: --**** FLOW_PAGE processing (states 20 - 39) ****
2375: elsif (l_state = 20) then
2385: FND_MESSAGE.SET_TOKEN('LINENUM', to_char(l_line_num));
2386: FND_MESSAGE.SET_TOKEN('EXPECTED', 'PAGE_APPLICATION_ID');
2387: FND_MSG_PUB.Add;
2388: end if;
2389: raise FND_API.G_EXC_ERROR;
2390: end if;
2391: elsif (l_state = 21) then
2392: if (l_token is not null) then
2393: l_page_rec.page_code := l_token;
2400: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2401: FND_MESSAGE.SET_TOKEN('EXPECTED', 'PAGE_CODE');
2402: FND_MSG_PUB.Add;
2403: end if;
2404: raise FND_API.G_EXC_ERROR;
2405: end if;
2406: elsif (l_state = 30) then
2407: if (l_token = 'BEGIN') then
2408: l_state := 33;
2461: end if;
2462: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE ');
2463: FND_MSG_PUB.Add;
2464: end if;
2465: raise FND_API.G_EXC_ERROR;
2466: end if;
2467: end if;
2468: elsif (l_state = 31) then
2469: if (l_token = '=') then
2475: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2476: FND_MESSAGE.SET_TOKEN('EXPECTED', '=');
2477: FND_MSG_PUB.Add;
2478: end if;
2479: raise FND_API.G_EXC_ERROR;
2480: end if;
2481: elsif (l_state = 32) then
2482: l_value_count := 1;
2483: if (l_column = 'NAME') then
2564: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2565: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
2566: FND_MSG_PUB.Add;
2567: end if;
2568: raise FND_API.G_EXC_ERROR;
2569: end if;
2570: elsif (l_state = 33) then
2571: if (l_token = 'FLOW_PAGE_REGION') then
2572: l_state := 100;
2577: FND_MESSAGE.SET_TOKEN('LINENUM', to_char(l_line_num));
2578: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE_REGION');
2579: FND_MSG_PUB.Add;
2580: end if;
2581: raise FND_API.G_EXC_ERROR;
2582: end if;
2583: elsif (l_state = 34) then
2584: if (l_column = 'PRIMARY_REGION') then
2585: l_page_rec.primary_region_code := l_token;
2591: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2592: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
2593: FND_MSG_PUB.Add;
2594: end if;
2595: raise FND_API.G_EXC_ERROR;
2596: end if;
2597:
2598: elsif (l_state = 39) then
2599: if (l_token = 'FLOW_PAGE') then
2610: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2611: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FLOW_PAGE');
2612: FND_MSG_PUB.Add;
2613: end if;
2614: raise FND_API.G_EXC_ERROR;
2615: end if;
2616:
2617: --**** FLOW_REGION_RELATION processing (states 40 - 59) ****
2618: elsif (l_state = 40) then
2628: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2629: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FOREIGN_KEY_NAME');
2630: FND_MSG_PUB.Add;
2631: end if;
2632: raise FND_API.G_EXC_ERROR;
2633: end if;
2634: elsif (l_state = 41) then
2635: if (l_token is not null) then
2636: l_relation_rec.from_page_appl_id := to_number(l_token);
2642: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2643: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FROM_PAGE_APPL_ID');
2644: FND_MSG_PUB.Add;
2645: end if;
2646: raise FND_API.G_EXC_ERROR;
2647: end if;
2648: elsif (l_state = 42) then
2649: if (l_token is not null) then
2650: l_relation_rec.from_page_code := l_token;
2656: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2657: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FROM_PAGE_CODE');
2658: FND_MSG_PUB.Add;
2659: end if;
2660: raise FND_API.G_EXC_ERROR;
2661: end if;
2662: elsif (l_state = 43) then
2663: if (l_token is not null) then
2664: l_relation_rec.from_region_appl_id := to_number(l_token);
2670: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2671: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FROM_REGION_APPL_ID');
2672: FND_MSG_PUB.Add;
2673: end if;
2674: raise FND_API.G_EXC_ERROR;
2675: end if;
2676: elsif (l_state = 44) then
2677: if (l_token is not null) then
2678: l_relation_rec.from_region_code := l_token;
2684: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2685: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FROM_REGION_CODE');
2686: FND_MSG_PUB.Add;
2687: end if;
2688: raise FND_API.G_EXC_ERROR;
2689: end if;
2690: elsif (l_state = 45) then
2691: if (l_token is not null) then
2692: l_relation_rec.to_page_appl_id := to_number(l_token);
2698: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2699: FND_MESSAGE.SET_TOKEN('EXPECTED', 'TO_PAGE_APPL_ID');
2700: FND_MSG_PUB.Add;
2701: end if;
2702: raise FND_API.G_EXC_ERROR;
2703: end if;
2704: elsif (l_state = 46) then
2705: if (l_token is not null) then
2706: l_relation_rec.to_page_code := l_token;
2712: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2713: FND_MESSAGE.SET_TOKEN('EXPECTED', 'TO_PAGE_CODE');
2714: FND_MSG_PUB.Add;
2715: end if;
2716: raise FND_API.G_EXC_ERROR;
2717: end if;
2718: elsif (l_state = 47) then
2719: if (l_token is not null) then
2720: l_relation_rec.to_region_appl_id := to_number(l_token);
2726: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2727: FND_MESSAGE.SET_TOKEN('EXPECTED', 'TO_REGION_APPL_ID');
2728: FND_MSG_PUB.Add;
2729: end if;
2730: raise FND_API.G_EXC_ERROR;
2731: end if;
2732: elsif (l_state = 48) then
2733: if (l_token is not null) then
2734: l_relation_rec.to_region_code := l_token;
2740: FND_MESSAGE.SET_TOKEN('LINENUM', to_char(l_line_num));
2741: FND_MESSAGE.SET_TOKEN('EXPECTED', 'TO_REGION_CODE');
2742: FND_MSG_PUB.Add;
2743: end if;
2744: raise FND_API.G_EXC_ERROR;
2745: end if;
2746: elsif (l_state = 50) then
2747: if (l_token = 'END') then
2748: l_state := 59;
2797: end if;
2798: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_REGION_RELATION');
2799: FND_MSG_PUB.Add;
2800: end if;
2801: raise FND_API.G_EXC_ERROR;
2802: end if;
2803: end if;
2804: elsif (l_state = 51) then
2805: if (l_token = '=') then
2811: FND_MESSAGE.SET_TOKEN('LINENUM', to_char(l_line_num));
2812: FND_MESSAGE.SET_TOKEN('EXPECTED', '=');
2813: FND_MSG_PUB.Add;
2814: end if;
2815: raise FND_API.G_EXC_ERROR;
2816: end if;
2817: elsif (l_state = 52) then
2818: l_value_count := 1;
2819: if (l_column = 'APPLICATION_ID') then
2871: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2872: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
2873: FND_MSG_PUB.Add;
2874: end if;
2875: raise FND_API.G_EXC_ERROR;
2876: end if;
2877: l_state := 50;
2878: elsif (l_state = 59) then
2879: if (l_token = 'FLOW_REGION_RELATION') then
2890: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2891: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FLOW_REGION_RELATION');
2892: FND_MSG_PUB.Add;
2893: end if;
2894: raise FND_API.G_EXC_ERROR;
2895: end if;
2896:
2897: --**** FLOW_PAGE_REGION processing (states 100 - 119) ****
2898: elsif (l_state = 100) then
2908: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2909: FND_MESSAGE.SET_TOKEN('EXPECTED', 'REGION_APPLICATION_ID');
2910: FND_MSG_PUB.Add;
2911: end if;
2912: raise FND_API.G_EXC_ERROR;
2913: end if;
2914: elsif (l_state = 101) then
2915: if (l_token is not null) then
2916: l_region_rec.region_code := l_token;
2922: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
2923: FND_MESSAGE.SET_TOKEN('EXPECTED', 'REGION_CODE');
2924: FND_MSG_PUB.Add;
2925: end if;
2926: raise FND_API.G_EXC_ERROR;
2927: end if;
2928: elsif (l_state = 110) then
2929: if (l_token = 'END') then
2930: l_state := 119;
2986: end if;
2987: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE_REGION');
2988: FND_MSG_PUB.Add;
2989: end if;
2990: raise FND_API.G_EXC_ERROR;
2991: end if;
2992: end if;
2993: elsif (l_state = 111) then
2994: if (l_token = '=') then
3000: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3001: FND_MESSAGE.SET_TOKEN('EXPECTED', '=');
3002: FND_MSG_PUB.Add;
3003: end if;
3004: raise FND_API.G_EXC_ERROR;
3005: end if;
3006: elsif (l_state = 112) then
3007: l_value_count := 1;
3008: if (l_column = 'DISPLAY_SEQUENCE') then
3098: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3099: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
3100: FND_MSG_PUB.Add;
3101: end if;
3102: raise FND_API.G_EXC_ERROR;
3103: end if;
3104: elsif (l_state = 113) then
3105: if (l_token = 'FLOW_PAGE_REGION_ITEM') then
3106: l_state := 200;
3111: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3112: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE_REGION_ITEM');
3113: FND_MSG_PUB.Add;
3114: end if;
3115: raise FND_API.G_EXC_ERROR;
3116: end if;
3117: elsif (l_state = 114) then
3118: if (l_column = 'PARENT_REGION') then
3119: l_region_rec.parent_region_code := l_token;
3125: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3126: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
3127: FND_MSG_PUB.Add;
3128: end if;
3129: raise FND_API.G_EXC_ERROR;
3130: end if;
3131: elsif (l_state = 119) then
3132: if (l_token = 'FLOW_PAGE_REGION') then
3133: l_value_count := null;
3145: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3146: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FLOW_PAGE_REGION');
3147: FND_MSG_PUB.Add;
3148: end if;
3149: raise FND_API.G_EXC_ERROR;
3150: end if;
3151:
3152: --**** FLOW_PAGE_REGION_ITEM processing (states 200 - 219) ****
3153: elsif (l_state = 200) then
3163: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3164: FND_MESSAGE.SET_TOKEN('EXPECTED', 'ATTRIBUTE_APPLICATION_ID');
3165: FND_MSG_PUB.Add;
3166: end if;
3167: raise FND_API.G_EXC_ERROR;
3168: end if;
3169: elsif (l_state = 201) then
3170: if (l_token is not null) then
3171: l_item_rec.attribute_code := l_token;
3178: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3179: FND_MESSAGE.SET_TOKEN('EXPECTED', 'ATTRIBUTE_CODE');
3180: FND_MSG_PUB.Add;
3181: end if;
3182: raise FND_API.G_EXC_ERROR;
3183: end if;
3184: elsif (l_state = 210) then
3185: if (l_token = 'END') then
3186: l_state := 219;
3236: end if;
3237: FND_MESSAGE.SET_TOKEN('EXPECTED','FLOW_PAGE_REGION_ITEM');
3238: FND_MSG_PUB.Add;
3239: end if;
3240: raise FND_API.G_EXC_ERROR;
3241: end if;
3242: end if;
3243: elsif (l_state = 211) then
3244: if (l_token = '=') then
3251: FND_MESSAGE.SET_TOKEN('EXPECTED', '=');
3252: FND_MSG_PUB.Add;
3253: end if;
3254: --dbms_output.put_line('Expecting =');
3255: raise FND_API.G_EXC_ERROR;
3256: end if;
3257: elsif (l_state = 212) then
3258: l_value_count := 1;
3259: if (l_column = 'TO_PAGE') then
3337: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3338: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
3339: FND_MSG_PUB.Add;
3340: end if;
3341: raise FND_API.G_EXC_ERROR;
3342: end if;
3343: elsif (l_state = 214) then
3344: if (l_column = 'TO_PAGE') then
3345: l_item_rec.to_page_code := l_token;
3352: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3353: FND_MESSAGE.SET_TOKEN('EXPECTED', l_column);
3354: FND_MSG_PUB.Add;
3355: end if;
3356: raise FND_API.G_EXC_ERROR;
3357: end if;
3358: l_state := 210;
3359: elsif (l_state = 219) then
3360: if (l_token = 'FLOW_PAGE_REGION_ITEM') then
3375: FND_MESSAGE.SET_TOKEN('TOKEN',l_token);
3376: FND_MESSAGE.SET_TOKEN('EXPECTED', 'FLOW_PAGE_REGION_ITEM');
3377: FND_MSG_PUB.Add;
3378: end if;
3379: raise FND_API.G_EXC_ERROR;
3380: end if;
3381:
3382: end if; -- if l_state = ...
3383:
3397: p_lines_read => l_lines_read,
3398: p_eof_flag => l_eof_flag,
3399: p_upl_loader_cur => p_upl_loader_cur
3400: );
3401: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3402: (l_return_status = FND_API.G_RET_STS_ERROR) then
3403: RAISE FND_API.G_EXC_ERROR;
3404: end if;
3405: l_line_num := l_line_num + l_lines_read;
3398: p_eof_flag => l_eof_flag,
3399: p_upl_loader_cur => p_upl_loader_cur
3400: );
3401: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3402: (l_return_status = FND_API.G_RET_STS_ERROR) then
3403: RAISE FND_API.G_EXC_ERROR;
3404: end if;
3405: l_line_num := l_line_num + l_lines_read;
3406: --
3399: p_upl_loader_cur => p_upl_loader_cur
3400: );
3401: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3402: (l_return_status = FND_API.G_RET_STS_ERROR) then
3403: RAISE FND_API.G_EXC_ERROR;
3404: end if;
3405: l_line_num := l_line_num + l_lines_read;
3406: --
3407: -- trim leading spaces and discard comment lines
3424: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3425: FND_MESSAGE.SET_NAME('AK','AK_UNEXPECTED_EOF_ERROR');
3426: FND_MSG_PUB.Add;
3427: end if;
3428: raise FND_API.G_EXC_ERROR;
3429: end if;
3430:
3431: -- Create new flows to the database
3432: --
3484: p_copy_redo_flag => l_copy_redo_flag
3485: );
3486:
3487: -- If API call returns with an error status...
3488: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3489: (l_return_status = FND_API.G_RET_STS_ERROR) then
3490: RAISE FND_API.G_EXC_ERROR;
3491: end if;
3492: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
3485: );
3486:
3487: -- If API call returns with an error status...
3488: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3489: (l_return_status = FND_API.G_RET_STS_ERROR) then
3490: RAISE FND_API.G_EXC_ERROR;
3491: end if;
3492: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
3493: end if;
3486:
3487: -- If API call returns with an error status...
3488: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3489: (l_return_status = FND_API.G_RET_STS_ERROR) then
3490: RAISE FND_API.G_EXC_ERROR;
3491: end if;
3492: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
3493: end if;
3494: end loop;
3557: p_copy_redo_flag => l_copy_redo_flag
3558: );
3559:
3560: -- If API call returns with an error status..., abort upload
3561: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3562: (l_return_status = FND_API.G_RET_STS_ERROR) then
3563: RAISE FND_API.G_EXC_ERROR;
3564: end if;
3565: end if; -- /* if PAGE_EXISTS */
3558: );
3559:
3560: -- If API call returns with an error status..., abort upload
3561: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3562: (l_return_status = FND_API.G_RET_STS_ERROR) then
3563: RAISE FND_API.G_EXC_ERROR;
3564: end if;
3565: end if; -- /* if PAGE_EXISTS */
3566: end if;
3559:
3560: -- If API call returns with an error status..., abort upload
3561: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3562: (l_return_status = FND_API.G_RET_STS_ERROR) then
3563: RAISE FND_API.G_EXC_ERROR;
3564: end if;
3565: end if; -- /* if PAGE_EXISTS */
3566: end if;
3567: end loop;
3905: );
3906: end if; -- /* if PAGE_REGION_EXISTS */
3907: --
3908: -- If API call returns with an error status, upload aborts
3909: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3910: (l_return_status = FND_API.G_RET_STS_ERROR) then
3911: RAISE FND_API.G_EXC_ERROR;
3912: end if; -- /* if l_return_status */
3913: if (l_copy_redo_flag) then
3906: end if; -- /* if PAGE_REGION_EXISTS */
3907: --
3908: -- If API call returns with an error status, upload aborts
3909: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3910: (l_return_status = FND_API.G_RET_STS_ERROR) then
3911: RAISE FND_API.G_EXC_ERROR;
3912: end if; -- /* if l_return_status */
3913: if (l_copy_redo_flag) then
3914: G_PAGE_REGION_REDO_INDEX := G_PAGE_REGION_REDO_INDEX + 1;
3907: --
3908: -- If API call returns with an error status, upload aborts
3909: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3910: (l_return_status = FND_API.G_RET_STS_ERROR) then
3911: RAISE FND_API.G_EXC_ERROR;
3912: end if; -- /* if l_return_status */
3913: if (l_copy_redo_flag) then
3914: G_PAGE_REGION_REDO_INDEX := G_PAGE_REGION_REDO_INDEX + 1;
3915: G_PAGE_REGION_REDO_TBL(G_PAGE_REGION_REDO_INDEX) := l_region_tbl(l_index);
3978: p_pass => p_pass,
3979: p_copy_redo_flag => l_copy_redo_flag
3980: );
3981: -- If API call returns with an error status, upload aborts
3982: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3983: (l_return_status = FND_API.G_RET_STS_ERROR) then
3984: RAISE FND_API.G_EXC_ERROR;
3985: end if; -- /* if l_return_status */
3986: if (l_copy_redo_flag) then
3979: p_copy_redo_flag => l_copy_redo_flag
3980: );
3981: -- If API call returns with an error status, upload aborts
3982: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3983: (l_return_status = FND_API.G_RET_STS_ERROR) then
3984: RAISE FND_API.G_EXC_ERROR;
3985: end if; -- /* if l_return_status */
3986: if (l_copy_redo_flag) then
3987: G_PAGE_REGION_REDO_INDEX := G_PAGE_REGION_REDO_INDEX + 1;
3980: );
3981: -- If API call returns with an error status, upload aborts
3982: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
3983: (l_return_status = FND_API.G_RET_STS_ERROR) then
3984: RAISE FND_API.G_EXC_ERROR;
3985: end if; -- /* if l_return_status */
3986: if (l_copy_redo_flag) then
3987: G_PAGE_REGION_REDO_INDEX := G_PAGE_REGION_REDO_INDEX + 1;
3988: G_PAGE_REGION_REDO_TBL(G_PAGE_REGION_REDO_INDEX) := l_region_tbl(l_index);
4134: );
4135: end if; -- /* if l_user_id1 */
4136: end if; -- /* if G_UPDATE_MODE */
4137: -- If API call returns with an error status, upload aborts
4138: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4139: (l_return_status = FND_API.G_RET_STS_ERROR) then
4140: RAISE FND_API.G_EXC_ERROR;
4141: end if; -- /* if l_return_status */
4142: if (l_copy_redo_flag) then
4135: end if; -- /* if l_user_id1 */
4136: end if; -- /* if G_UPDATE_MODE */
4137: -- If API call returns with an error status, upload aborts
4138: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4139: (l_return_status = FND_API.G_RET_STS_ERROR) then
4140: RAISE FND_API.G_EXC_ERROR;
4141: end if; -- /* if l_return_status */
4142: if (l_copy_redo_flag) then
4143: G_PAGE_REDO_INDEX := G_PAGE_REDO_INDEX + 1;
4136: end if; -- /* if G_UPDATE_MODE */
4137: -- If API call returns with an error status, upload aborts
4138: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4139: (l_return_status = FND_API.G_RET_STS_ERROR) then
4140: RAISE FND_API.G_EXC_ERROR;
4141: end if; -- /* if l_return_status */
4142: if (l_copy_redo_flag) then
4143: G_PAGE_REDO_INDEX := G_PAGE_REDO_INDEX + 1;
4144: G_PAGE_REDO_TBL(G_PAGE_REDO_INDEX) := l_page_tbl(l_index);
4349: );
4350: end if; -- /* if REGION_RELATION_EXISTS */
4351: --
4352: -- If API call returns with an error status, upload aborts
4353: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4354: (l_return_status = FND_API.G_RET_STS_ERROR) then
4355: RAISE FND_API.G_EXC_ERROR;
4356: end if; -- /* if l_return_status */
4357: if (l_copy_redo_flag) then
4350: end if; -- /* if REGION_RELATION_EXISTS */
4351: --
4352: -- If API call returns with an error status, upload aborts
4353: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4354: (l_return_status = FND_API.G_RET_STS_ERROR) then
4355: RAISE FND_API.G_EXC_ERROR;
4356: end if; -- /* if l_return_status */
4357: if (l_copy_redo_flag) then
4358: G_REGION_RELATION_REDO_INDEX := G_REGION_RELATION_REDO_INDEX + 1;
4351: --
4352: -- If API call returns with an error status, upload aborts
4353: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4354: (l_return_status = FND_API.G_RET_STS_ERROR) then
4355: RAISE FND_API.G_EXC_ERROR;
4356: end if; -- /* if l_return_status */
4357: if (l_copy_redo_flag) then
4358: G_REGION_RELATION_REDO_INDEX := G_REGION_RELATION_REDO_INDEX + 1;
4359: G_REGION_RELATION_REDO_TBL(G_REGION_RELATION_REDO_INDEX) := l_relation_tbl(l_index);
4567: );
4568: end if; -- /* if PAGE_REGION_ITEM_EXISTS */
4569: --
4570: -- If API call returns with an error status, upload aborts
4571: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4572: (l_return_status = FND_API.G_RET_STS_ERROR) then
4573: RAISE FND_API.G_EXC_ERROR;
4574: end if; -- /* if l_return_status */
4575: end if;
4568: end if; -- /* if PAGE_REGION_ITEM_EXISTS */
4569: --
4570: -- If API call returns with an error status, upload aborts
4571: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4572: (l_return_status = FND_API.G_RET_STS_ERROR) then
4573: RAISE FND_API.G_EXC_ERROR;
4574: end if; -- /* if l_return_status */
4575: end if;
4576: end loop;
4569: --
4570: -- If API call returns with an error status, upload aborts
4571: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4572: (l_return_status = FND_API.G_RET_STS_ERROR) then
4573: RAISE FND_API.G_EXC_ERROR;
4574: end if; -- /* if l_return_status */
4575: end if;
4576: end loop;
4577: end if;
4580: -- Load line number of the last file line processed
4581: --
4582: p_line_num_out := l_line_num;
4583:
4584: p_return_status := FND_API.G_RET_STS_SUCCESS;
4585:
4586: -- dbms_output.put_line('Leaving flow upload:' ||
4587: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
4588:
4586: -- dbms_output.put_line('Leaving flow upload:' ||
4587: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
4588:
4589: EXCEPTION
4590: WHEN FND_API.G_EXC_ERROR THEN
4591: p_return_status := FND_API.G_RET_STS_ERROR;
4592: WHEN VALUE_ERROR THEN
4593: p_return_status := FND_API.G_RET_STS_ERROR;
4594: FND_MESSAGE.SET_NAME('AK','AK_FLOW_VALUE_ERROR');
4587: -- to_char(sysdate, 'MON-DD HH24:MI:SS'));
4588:
4589: EXCEPTION
4590: WHEN FND_API.G_EXC_ERROR THEN
4591: p_return_status := FND_API.G_RET_STS_ERROR;
4592: WHEN VALUE_ERROR THEN
4593: p_return_status := FND_API.G_RET_STS_ERROR;
4594: FND_MESSAGE.SET_NAME('AK','AK_FLOW_VALUE_ERROR');
4595: FND_MESSAGE.SET_TOKEN('KEY',to_char(l_flow_rec.flow_application_id)||' '||
4589: EXCEPTION
4590: WHEN FND_API.G_EXC_ERROR THEN
4591: p_return_status := FND_API.G_RET_STS_ERROR;
4592: WHEN VALUE_ERROR THEN
4593: p_return_status := FND_API.G_RET_STS_ERROR;
4594: FND_MESSAGE.SET_NAME('AK','AK_FLOW_VALUE_ERROR');
4595: FND_MESSAGE.SET_TOKEN('KEY',to_char(l_flow_rec.flow_application_id)||' '||
4596: l_flow_rec.flow_code);
4597: FND_MSG_PUB.Add;
4598: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
4599: SUBSTR (SQLERRM, 1, 240)||': '||l_column||'='||l_token );
4600: FND_MSG_PUB.Add;
4601: WHEN OTHERS THEN
4602: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4603: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
4604: SUBSTR (SQLERRM, 1, 240) );
4605: FND_MSG_PUB.Add;
4606: end UPLOAD_FLOW;
4632: -- Version Initial version number = 1.0
4633: -- History Current version number = 1.0
4634: --=======================================================
4635: procedure UPLOAD_FLOW_SECOND (
4636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4637: p_return_status OUT NOCOPY VARCHAR2,
4638: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
4639: p_pass IN NUMBER := 2
4640: ) is
4634: --=======================================================
4635: procedure UPLOAD_FLOW_SECOND (
4636: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4637: p_return_status OUT NOCOPY VARCHAR2,
4638: p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
4639: p_pass IN NUMBER := 2
4640: ) is
4641: l_api_name CONSTANT varchar2(30) := 'Upload_Object_Second';
4642: l_rec_index NUMBER;
4688: p_copy_redo_flag => l_copy_redo_flag
4689: );
4690:
4691: -- If API call returns with an error status...
4692: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4693: (l_return_status = FND_API.G_RET_STS_ERROR) then
4694: RAISE FND_API.G_EXC_ERROR;
4695: end if;
4696: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
4689: );
4690:
4691: -- If API call returns with an error status...
4692: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4693: (l_return_status = FND_API.G_RET_STS_ERROR) then
4694: RAISE FND_API.G_EXC_ERROR;
4695: end if;
4696: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
4697: end if;
4690:
4691: -- If API call returns with an error status...
4692: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4693: (l_return_status = FND_API.G_RET_STS_ERROR) then
4694: RAISE FND_API.G_EXC_ERROR;
4695: end if;
4696: end if; -- /* if AK_FLOW_PVT.FLOW_EXISTS */
4697: end if;
4698: end loop;
4763: p_copy_redo_flag => l_copy_redo_flag
4764: );
4765:
4766: -- If API call returns with an error status..., abort upload
4767: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4768: (l_return_status = FND_API.G_RET_STS_ERROR) then
4769: RAISE FND_API.G_EXC_ERROR;
4770: end if;
4771: end if; -- /* if PAGE_EXISTS */
4764: );
4765:
4766: -- If API call returns with an error status..., abort upload
4767: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4768: (l_return_status = FND_API.G_RET_STS_ERROR) then
4769: RAISE FND_API.G_EXC_ERROR;
4770: end if;
4771: end if; -- /* if PAGE_EXISTS */
4772: end if;
4765:
4766: -- If API call returns with an error status..., abort upload
4767: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4768: (l_return_status = FND_API.G_RET_STS_ERROR) then
4769: RAISE FND_API.G_EXC_ERROR;
4770: end if;
4771: end if; -- /* if PAGE_EXISTS */
4772: end if;
4773: end loop;
4952: );
4953: end if; -- /* if PAGE_REGION_EXISTS */
4954: --
4955: -- If API call returns with an error status, upload aborts
4956: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4957: (l_return_status = FND_API.G_RET_STS_ERROR) then
4958: RAISE FND_API.G_EXC_ERROR;
4959: end if; -- /* if l_return_status */
4960: end if; -- /* if G_PAGE_REGION_REDO_TBL.exists */
4953: end if; -- /* if PAGE_REGION_EXISTS */
4954: --
4955: -- If API call returns with an error status, upload aborts
4956: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4957: (l_return_status = FND_API.G_RET_STS_ERROR) then
4958: RAISE FND_API.G_EXC_ERROR;
4959: end if; -- /* if l_return_status */
4960: end if; -- /* if G_PAGE_REGION_REDO_TBL.exists */
4961: end loop;
4954: --
4955: -- If API call returns with an error status, upload aborts
4956: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
4957: (l_return_status = FND_API.G_RET_STS_ERROR) then
4958: RAISE FND_API.G_EXC_ERROR;
4959: end if; -- /* if l_return_status */
4960: end if; -- /* if G_PAGE_REGION_REDO_TBL.exists */
4961: end loop;
4962: --don't initialize G_PAGE_REGION_REDO_TBL it's used later
5207: );
5208: end if; -- /* if REGION_RELATION_EXISTS */
5209: --
5210: -- If API call returns with an error status, upload aborts
5211: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5212: (l_return_status = FND_API.G_RET_STS_ERROR) then
5213: RAISE FND_API.G_EXC_ERROR;
5214: end if; -- /* if l_return_status */
5215: end if;
5208: end if; -- /* if REGION_RELATION_EXISTS */
5209: --
5210: -- If API call returns with an error status, upload aborts
5211: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5212: (l_return_status = FND_API.G_RET_STS_ERROR) then
5213: RAISE FND_API.G_EXC_ERROR;
5214: end if; -- /* if l_return_status */
5215: end if;
5216: end loop;
5209: --
5210: -- If API call returns with an error status, upload aborts
5211: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5212: (l_return_status = FND_API.G_RET_STS_ERROR) then
5213: RAISE FND_API.G_EXC_ERROR;
5214: end if; -- /* if l_return_status */
5215: end if;
5216: end loop;
5217: G_REGION_RELATION_REDO_INDEX := 0;
5343: );
5344: end if; -- /* if PAGE_REGION_ITEM_EXISTS */
5345: --
5346: -- If API call returns with an error status, upload aborts
5347: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5348: (l_return_status = FND_API.G_RET_STS_ERROR) then
5349: RAISE FND_API.G_EXC_ERROR;
5350: end if; -- /* if l_return_status */
5351: end if;
5344: end if; -- /* if PAGE_REGION_ITEM_EXISTS */
5345: --
5346: -- If API call returns with an error status, upload aborts
5347: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5348: (l_return_status = FND_API.G_RET_STS_ERROR) then
5349: RAISE FND_API.G_EXC_ERROR;
5350: end if; -- /* if l_return_status */
5351: end if;
5352: end loop;
5345: --
5346: -- If API call returns with an error status, upload aborts
5347: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
5348: (l_return_status = FND_API.G_RET_STS_ERROR) then
5349: RAISE FND_API.G_EXC_ERROR;
5350: end if; -- /* if l_return_status */
5351: end if;
5352: end loop;
5353: G_PAGE_REGION_ITEM_REDO_INDEX := 0;
5353: G_PAGE_REGION_ITEM_REDO_INDEX := 0;
5354: G_PAGE_REGION_ITEM_REDO_TBL.DELETE;
5355: end if;
5356:
5357: p_return_status := FND_API.G_RET_STS_SUCCESS;
5358:
5359: EXCEPTION
5360: WHEN FND_API.G_EXC_ERROR THEN
5361: p_return_status := FND_API.G_RET_STS_ERROR;
5356:
5357: p_return_status := FND_API.G_RET_STS_SUCCESS;
5358:
5359: EXCEPTION
5360: WHEN FND_API.G_EXC_ERROR THEN
5361: p_return_status := FND_API.G_RET_STS_ERROR;
5362: FND_MSG_PUB.Count_And_Get (
5363: p_count => l_msg_count,
5364: p_data => l_msg_data);
5357: p_return_status := FND_API.G_RET_STS_SUCCESS;
5358:
5359: EXCEPTION
5360: WHEN FND_API.G_EXC_ERROR THEN
5361: p_return_status := FND_API.G_RET_STS_ERROR;
5362: FND_MSG_PUB.Count_And_Get (
5363: p_count => l_msg_count,
5364: p_data => l_msg_data);
5365: G_FLOW_REDO_INDEX := 0;
5372: G_REGION_RELATION_REDO_TBL.DELETE;
5373: G_PAGE_REGION_ITEM_REDO_INDEX := 0;
5374: G_PAGE_REGION_ITEM_REDO_TBL.DELETE;
5375: WHEN OTHERS THEN
5376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5377: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
5378: SUBSTR (SQLERRM, 1, 240) );
5379: FND_MSG_PUB.Count_And_Get (
5380: p_count => l_msg_count,