134: -- Call QP_Attr_Map_PVT.Process_Attr_Mapping
135:
136: QP_Attr_Map_PVT.Process_Attr_Mapping
137: ( p_api_version_number => 1.0
138: , p_init_msg_list => FND_API.G_TRUE
139: , x_return_status => l_return_status
140: , x_msg_count => x_msg_count
141: , x_msg_data => x_msg_data
142: , p_control_rec => l_control_rec
148: , x_SOU_tbl => l_x_SOU_tbl
149: , x_FNA_tbl => l_x_FNA_tbl
150: );
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
149: , x_FNA_tbl => l_x_FNA_tbl
150: );
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
157:
150: );
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
157:
158:
151:
152: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
157:
158:
159: -- Unload out tbl
200:
201: -- Write to cache.
202: -- Set db_flag to False before writing to cache
203:
204: l_x_PSG_rec.db_flag := FND_API.G_FALSE;
205:
206: Write_PSG
207: ( p_PSG_rec => l_x_PSG_rec
208: );
208: );
209:
210: -- Set return status.
211:
212: x_return_status := FND_API.G_RET_STS_SUCCESS;
213:
214: -- Get message count and data
215:
216: OE_MSG_PUB.Count_And_Get
220:
221:
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225:
226: x_return_status := FND_API.G_RET_STS_ERROR;
227:
228: -- Get message count and data
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225:
226: x_return_status := FND_API.G_RET_STS_ERROR;
227:
228: -- Get message count and data
229:
230: OE_MSG_PUB.Count_And_Get
231: ( p_count => x_msg_count
232: , p_data => x_msg_data
233: );
234:
235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236:
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238:
239: -- Get message count and data
233: );
234:
235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236:
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238:
239: -- Get message count and data
240:
241: OE_MSG_PUB.Count_And_Get
244: );
245:
246: WHEN OTHERS THEN
247:
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
249:
250: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
251: THEN
252: OE_MSG_PUB.Add_Exc_Msg
432: , 'Unrecognized attribute'
433: );
434: END IF;
435:
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437:
438: END IF;
439:
440: -- Set Operation.
438: END IF;
439:
440: -- Set Operation.
441:
442: IF FND_API.To_Boolean(l_PSG_rec.db_flag) THEN
443: l_PSG_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
444: ELSE
445: l_PSG_rec.operation := QP_GLOBALS.G_OPR_CREATE;
446: END IF;
453: -- Call QP_Attr_Map_PVT.Process_Attr_Mapping
454:
455: QP_Attr_Map_PVT.Process_Attr_Mapping
456: ( p_api_version_number => 1.0
457: , p_init_msg_list => FND_API.G_TRUE
458: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
459: , x_return_status => l_return_status
460: , x_msg_count => x_msg_count
461: , x_msg_data => x_msg_data
454:
455: QP_Attr_Map_PVT.Process_Attr_Mapping
456: ( p_api_version_number => 1.0
457: , p_init_msg_list => FND_API.G_TRUE
458: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
459: , x_return_status => l_return_status
460: , x_msg_count => x_msg_count
461: , x_msg_data => x_msg_data
462: , p_control_rec => l_control_rec
469: , x_SOU_tbl => l_x_SOU_tbl
470: , x_FNA_tbl => l_x_FNA_tbl
471: );
472:
473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
470: , x_FNA_tbl => l_x_FNA_tbl
471: );
472:
473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
471: );
472:
473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479:
472:
473: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
476: RAISE FND_API.G_EXC_ERROR;
477: END IF;
478:
479:
480: -- Unload out tbl
482: l_x_PSG_rec := l_x_PSG_tbl(1);
483:
484: -- Init OUT parameters to missing.
485:
486: x_attribute1 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
483:
484: -- Init OUT parameters to missing.
485:
486: x_attribute1 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
484: -- Init OUT parameters to missing.
485:
486: x_attribute1 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
485:
486: x_attribute1 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
486: x_attribute1 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
487: x_attribute10 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
488: x_attribute11 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
489: x_attribute12 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
490: x_attribute13 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
491: x_attribute14 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
492: x_attribute15 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
493: x_attribute2 := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
494: x_attribute3 := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
495: x_attribute4 := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
496: x_attribute5 := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
497: x_attribute6 := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
498: x_attribute7 := FND_API.G_MISS_CHAR;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
499: x_attribute8 := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
500: x_attribute9 := FND_API.G_MISS_CHAR;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
501: x_context := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
502: x_limits_enabled := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
503: x_lov_enabled := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
504: x_pte_code := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
505: x_seeded_sourcing_method := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
506: x_segment_id := FND_API.G_MISS_NUM;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
514: x_segment_pte := FND_API.G_MISS_CHAR;
507: x_segment_level := FND_API.G_MISS_CHAR;
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
514: x_segment_pte := FND_API.G_MISS_CHAR;
515:
508: x_segment_pte_id := FND_API.G_MISS_NUM;
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
514: x_segment_pte := FND_API.G_MISS_CHAR;
515:
516: -- Load display out parameters if any
509: x_sourcing_enabled := FND_API.G_MISS_CHAR;
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
514: x_segment_pte := FND_API.G_MISS_CHAR;
515:
516: -- Load display out parameters if any
517:
510: x_sourcing_status := FND_API.G_MISS_CHAR;
511: x_user_sourcing_method := FND_API.G_MISS_CHAR;
512: x_pte := FND_API.G_MISS_CHAR;
513: x_segment := FND_API.G_MISS_CHAR;
514: x_segment_pte := FND_API.G_MISS_CHAR;
515:
516: -- Load display out parameters if any
517:
518: l_PSG_val_rec := QP_Psg_Util.Get_Values
689: );
690:
691: -- Set return status.
692:
693: x_return_status := FND_API.G_RET_STS_SUCCESS;
694:
695: -- Get message count and data
696:
697: OE_MSG_PUB.Count_And_Get
701:
702:
703: EXCEPTION
704:
705: WHEN FND_API.G_EXC_ERROR THEN
706:
707: x_return_status := FND_API.G_RET_STS_ERROR;
708:
709: -- Get message count and data
703: EXCEPTION
704:
705: WHEN FND_API.G_EXC_ERROR THEN
706:
707: x_return_status := FND_API.G_RET_STS_ERROR;
708:
709: -- Get message count and data
710:
711: OE_MSG_PUB.Count_And_Get
712: ( p_count => x_msg_count
713: , p_data => x_msg_data
714: );
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717:
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719:
720: -- Get message count and data
714: );
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717:
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719:
720: -- Get message count and data
721:
722: OE_MSG_PUB.Count_And_Get
725: );
726:
727: WHEN OTHERS THEN
728:
729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
730:
731: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
732: THEN
733: OE_MSG_PUB.Add_Exc_Msg
807: );
808:
809: -- Set Operation.
810:
811: IF FND_API.To_Boolean(l_PSG_rec.db_flag) THEN
812: l_PSG_rec.operation := QP_GLOBALS.G_OPR_UPDATE;
813: ELSE
814: l_PSG_rec.operation := QP_GLOBALS.G_OPR_CREATE;
815: END IF;
822: -- Call QP_Attr_Map_PVT.Process_Attr_Mapping
823:
824: QP_Attr_Map_PVT.Process_Attr_Mapping
825: ( p_api_version_number => 1.0
826: , p_init_msg_list => FND_API.G_TRUE
827: , x_return_status => l_return_status
828: , x_msg_count => x_msg_count
829: , x_msg_data => x_msg_data
830: , p_control_rec => l_control_rec
837: , x_SOU_tbl => l_x_SOU_tbl
838: , x_FNA_tbl => l_x_FNA_tbl
839: );
840:
841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
838: , x_FNA_tbl => l_x_FNA_tbl
839: );
840:
841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
839: );
840:
841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
847:
840:
841: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
842: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
843: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
847:
848: -- Load OUT parameters.
865:
866:
867: -- Set return status.
868:
869: x_return_status := FND_API.G_RET_STS_SUCCESS;
870:
871: -- Get message count and data
872:
873: OE_MSG_PUB.Count_And_Get
877:
878:
879: EXCEPTION
880:
881: WHEN FND_API.G_EXC_ERROR THEN
882:
883: x_return_status := FND_API.G_RET_STS_ERROR;
884:
885: -- Get message count and data
879: EXCEPTION
880:
881: WHEN FND_API.G_EXC_ERROR THEN
882:
883: x_return_status := FND_API.G_RET_STS_ERROR;
884:
885: -- Get message count and data
886:
887: OE_MSG_PUB.Count_And_Get
888: ( p_count => x_msg_count
889: , p_data => x_msg_data
890: );
891:
892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
893:
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
895:
896: -- Get message count and data
890: );
891:
892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
893:
894: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
895:
896: -- Get message count and data
897:
898: OE_MSG_PUB.Count_And_Get
901: );
902:
903: WHEN OTHERS THEN
904:
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
906:
907: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
908: THEN
909: OE_MSG_PUB.Add_Exc_Msg
981: -- Call QP_Attr_Map_PVT.Process_Attr_Mapping
982:
983: QP_Attr_Map_PVT.Process_Attr_Mapping
984: ( p_api_version_number => 1.0
985: , p_init_msg_list => FND_API.G_TRUE
986: , x_return_status => l_return_status
987: , x_msg_count => x_msg_count
988: , x_msg_data => x_msg_data
989: , p_control_rec => l_control_rec
995: , x_SOU_tbl => l_x_SOU_tbl
996: , x_FNA_tbl => l_x_FNA_tbl
997: );
998:
999: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
996: , x_FNA_tbl => l_x_FNA_tbl
997: );
998:
999: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
997: );
998:
999: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
1005:
998:
999: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1002: RAISE FND_API.G_EXC_ERROR;
1003: END IF;
1004:
1005:
1006: -- Clear PSG record cache
1008: Clear_PSG;
1009:
1010: -- Set return status.
1011:
1012: x_return_status := FND_API.G_RET_STS_SUCCESS;
1013:
1014: -- Get message count and data
1015:
1016: OE_MSG_PUB.Count_And_Get
1020:
1021:
1022: EXCEPTION
1023:
1024: WHEN FND_API.G_EXC_ERROR THEN
1025:
1026: x_return_status := FND_API.G_RET_STS_ERROR;
1027:
1028: -- Get message count and data
1022: EXCEPTION
1023:
1024: WHEN FND_API.G_EXC_ERROR THEN
1025:
1026: x_return_status := FND_API.G_RET_STS_ERROR;
1027:
1028: -- Get message count and data
1029:
1030: OE_MSG_PUB.Count_And_Get
1031: ( p_count => x_msg_count
1032: , p_data => x_msg_data
1033: );
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036:
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1038:
1039: -- Get message count and data
1033: );
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036:
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1038:
1039: -- Get message count and data
1040:
1041: OE_MSG_PUB.Count_And_Get
1044: );
1045:
1046: WHEN OTHERS THEN
1047:
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1049:
1050: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1051: THEN
1052: OE_MSG_PUB.Add_Exc_Msg
1107: -- Call QP_Attr_Map_PVT.Process_Attr_Mapping
1108:
1109: QP_Attr_Map_PVT.Process_Attr_Mapping
1110: ( p_api_version_number => 1.0
1111: , p_init_msg_list => FND_API.G_TRUE
1112: , x_return_status => l_return_status
1113: , x_msg_count => x_msg_count
1114: , x_msg_data => x_msg_data
1115: , p_control_rec => l_control_rec
1120: , x_SOU_tbl => l_x_SOU_tbl
1121: , x_FNA_tbl => l_x_FNA_tbl
1122: );
1123:
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1121: , x_FNA_tbl => l_x_FNA_tbl
1122: );
1123:
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1122: );
1123:
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1130:
1123:
1124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1127: RAISE FND_API.G_EXC_ERROR;
1128: END IF;
1129:
1130:
1131: -- Set return status.
1129:
1130:
1131: -- Set return status.
1132:
1133: x_return_status := FND_API.G_RET_STS_SUCCESS;
1134:
1135: -- Get message count and data
1136:
1137: OE_MSG_PUB.Count_And_Get
1141:
1142:
1143: EXCEPTION
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146:
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: -- Get message count and data
1143: EXCEPTION
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146:
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: -- Get message count and data
1150:
1151: OE_MSG_PUB.Count_And_Get
1152: ( p_count => x_msg_count
1153: , p_data => x_msg_data
1154: );
1155:
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157:
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1159:
1160: -- Get message count and data
1154: );
1155:
1156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1157:
1158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1159:
1160: -- Get message count and data
1161:
1162: OE_MSG_PUB.Count_And_Get
1165: );
1166:
1167: WHEN OTHERS THEN
1168:
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1170:
1171: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1172: THEN
1173: OE_MSG_PUB.Add_Exc_Msg
1288: -- Call QP_Attr_Map_PVT.Lock_Attr_Mapping
1289:
1290: QP_Attr_Map_PVT.Lock_Attr_Mapping
1291: ( p_api_version_number => 1.0
1292: , p_init_msg_list => FND_API.G_TRUE
1293: , x_return_status => l_return_status
1294: , x_msg_count => x_msg_count
1295: , x_msg_data => x_msg_data
1296: , p_PSG_tbl => l_PSG_tbl
1301: , x_SOU_tbl => l_x_SOU_tbl
1302: , x_FNA_tbl => l_x_FNA_tbl
1303: );
1304:
1305: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1306:
1307: -- Set DB flag and write record to cache.
1308:
1309: l_x_PSG_rec.db_flag := FND_API.G_TRUE;
1305: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1306:
1307: -- Set DB flag and write record to cache.
1308:
1309: l_x_PSG_rec.db_flag := FND_API.G_TRUE;
1310:
1311: Write_PSG
1312: ( p_PSG_rec => l_x_PSG_rec
1313: , p_db_record => TRUE
1338: , 'Lock_Row'
1339: );
1340: END IF;
1341:
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343:
1344: -- Get message count and data
1345:
1346: OE_MSG_PUB.Count_And_Get
1387: g_PSG_rec := QP_Psg_Util.Query_Row
1388: ( p_segment_pte_id => p_segment_pte_id
1389: );
1390:
1391: g_PSG_rec.db_flag := FND_API.G_TRUE;
1392:
1393: -- Load DB record
1394:
1395: g_db_PSG_rec := g_PSG_rec;