16: /* ----------------------------------------------------------------------- */
17:
18: PROCEDURE Insert_Row
19: ( p_api_version IN NUMBER,
20: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
21: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: p_return_status OUT NOCOPY VARCHAR2,
24: p_msg_count OUT NOCOPY NUMBER,
17:
18: PROCEDURE Insert_Row
19: ( p_api_version IN NUMBER,
20: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
21: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: p_return_status OUT NOCOPY VARCHAR2,
24: p_msg_count OUT NOCOPY NUMBER,
25: p_msg_data OUT NOCOPY VARCHAR2,
18: PROCEDURE Insert_Row
19: ( p_api_version IN NUMBER,
20: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
21: p_commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: p_return_status OUT NOCOPY VARCHAR2,
24: p_msg_count OUT NOCOPY NUMBER,
25: p_msg_data OUT NOCOPY VARCHAR2,
26: --
27: P_ROW_ID in OUT NOCOPY VARCHAR2,
28: P_PAY_ELEMENT_ID in NUMBER,
29: P_BUSINESS_GROUP_ID in NUMBER,
30: P_DATA_EXTRACT_ID in NUMBER,
31: p_BUDGET_SET_ID in NUMBER := FND_API.G_MISS_NUM,
32: P_NAME in VARCHAR2,
33: P_DESCRIPTION in VARCHAR2,
34: P_ELEMENT_VALUE_TYPE in VARCHAR2,
35: P_FORMULA_ID in NUMBER,
80: SAVEPOINT INSERT_ROW_PVT;
81:
82: -- Standard call to check for call compatibility.
83:
84: if not FND_API.Compatible_API_Call (l_api_version,
85: p_api_version,
86: l_api_name,
87: G_PKG_NAME)
88: then
85: p_api_version,
86: l_api_name,
87: G_PKG_NAME)
88: then
89: raise FND_API.G_EXC_UNEXPECTED_ERROR;
90: end if;
91:
92: -- Initialize message list if p_init_msg_list is set to TRUE.
93:
90: end if;
91:
92: -- Initialize message list if p_init_msg_list is set to TRUE.
93:
94: if FND_API.to_Boolean (p_init_msg_list) then
95: FND_MSG_PUB.initialize;
96: end if;
97:
98: -- Initialize API return status to success
96: end if;
97:
98: -- Initialize API return status to success
99:
100: p_return_status := FND_API.G_RET_STS_SUCCESS;
101:
102:
103: -- API body
104: INSERT INTO psb_pay_elements
148: (
149: P_PAY_ELEMENT_ID ,
150: P_BUSINESS_GROUP_ID ,
151: P_DATA_EXTRACT_ID ,
152: decode(P_BUDGET_SET_ID, FND_API.G_MISS_NUM,null,P_BUDGET_SET_ID) ,
153: P_NAME ,
154: P_DESCRIPTION ,
155: P_ELEMENT_VALUE_TYPE ,
156: P_FORMULA_ID ,
198: -- End of API body.
199:
200: -- Standard check of p_commit.
201:
202: if FND_API.to_Boolean (p_commit) then
203: commit work;
204: end if;
205:
206: -- Standard call to get message count and if count is 1, get message info.
209: p_data => p_msg_data);
210:
211: EXCEPTION
212:
213: when FND_API.G_EXC_ERROR then
214:
215: rollback to INSERT_ROW_PVT;
216:
217: p_return_status := FND_API.G_RET_STS_ERROR;
213: when FND_API.G_EXC_ERROR then
214:
215: rollback to INSERT_ROW_PVT;
216:
217: p_return_status := FND_API.G_RET_STS_ERROR;
218:
219: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
220: p_data => p_msg_data);
221:
219: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
220: p_data => p_msg_data);
221:
222:
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224:
225: rollback to INSERT_ROW_PVT;
226:
227: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
224:
225: rollback to INSERT_ROW_PVT;
226:
227: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
228:
229: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
230: p_data => p_msg_data);
231:
233: when OTHERS then
234:
235: rollback to INSERT_ROW_PVT;
236:
237: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238:
239: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
240:
241: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
249:
250:
251: PROCEDURE Update_Row
252: ( p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: p_return_status OUT NOCOPY VARCHAR2,
257: p_msg_count OUT NOCOPY NUMBER,
250:
251: PROCEDURE Update_Row
252: ( p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: p_return_status OUT NOCOPY VARCHAR2,
257: p_msg_count OUT NOCOPY NUMBER,
258: p_msg_data OUT NOCOPY VARCHAR2,
251: PROCEDURE Update_Row
252: ( p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: p_return_status OUT NOCOPY VARCHAR2,
257: p_msg_count OUT NOCOPY NUMBER,
258: p_msg_data OUT NOCOPY VARCHAR2,
259: --
260: P_ROW_ID in VARCHAR2,
261: P_PAY_ELEMENT_ID in NUMBER,
262: P_BUSINESS_GROUP_ID in NUMBER,
263: P_DATA_EXTRACT_ID in NUMBER,
264: P_BUDGET_SET_ID in NUMBER := FND_API.G_MISS_NUM,
265: P_NAME in VARCHAR2,
266: P_DESCRIPTION in VARCHAR2,
267: P_ELEMENT_VALUE_TYPE in VARCHAR2,
268: P_FORMULA_ID in NUMBER,
307: SAVEPOINT UPDATE_ROW_PVT;
308:
309: -- Standard call to check for call compatibility.
310:
311: if not FND_API.Compatible_API_Call (l_api_version,
312: p_api_version,
313: l_api_name,
314: G_PKG_NAME)
315: then
312: p_api_version,
313: l_api_name,
314: G_PKG_NAME)
315: then
316: raise FND_API.G_EXC_UNEXPECTED_ERROR;
317: end if;
318:
319: -- Initialize message list if p_init_msg_list is set to TRUE.
320:
317: end if;
318:
319: -- Initialize message list if p_init_msg_list is set to TRUE.
320:
321: if FND_API.to_Boolean (p_init_msg_list) then
322: FND_MSG_PUB.initialize;
323: end if;
324:
325: -- Initialize API return status to success
323: end if;
324:
325: -- Initialize API return status to success
326:
327: p_return_status := FND_API.G_RET_STS_SUCCESS;
328:
329: -- API body
330: UPDATE psb_pay_elements SET
331: PAY_ELEMENT_ID = P_PAY_ELEMENT_ID,
330: UPDATE psb_pay_elements SET
331: PAY_ELEMENT_ID = P_PAY_ELEMENT_ID,
332: BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID,
333: DATA_EXTRACT_ID = P_DATA_EXTRACT_ID,
334: BUDGET_SET_ID = decode(P_BUDGET_SET_ID,FND_API.G_MISS_NUM,null,P_BUDGET_SET_ID),
335: NAME = P_NAME,
336: DESCRIPTION = P_DESCRIPTION,
337: ELEMENT_VALUE_TYPE = P_ELEMENT_VALUE_TYPE,
338: FORMULA_ID = P_FORMULA_ID,
374: -- End of API body.
375:
376: -- Standard check of p_commit.
377:
378: if FND_API.to_Boolean (p_commit) then
379: commit work;
380: end if;
381:
382: -- Standard call to get message count and if count is 1, get message info.
385: p_data => p_msg_data);
386:
387: EXCEPTION
388:
389: when FND_API.G_EXC_ERROR then
390:
391: rollback to UPDATE_ROW_PVT;
392:
393: p_return_status := FND_API.G_RET_STS_ERROR;
389: when FND_API.G_EXC_ERROR then
390:
391: rollback to UPDATE_ROW_PVT;
392:
393: p_return_status := FND_API.G_RET_STS_ERROR;
394:
395: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
396: p_data => p_msg_data);
397:
395: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
396: p_data => p_msg_data);
397:
398:
399: when FND_API.G_EXC_UNEXPECTED_ERROR then
400:
401: rollback to UPDATE_ROW_PVT;
402:
403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: when FND_API.G_EXC_UNEXPECTED_ERROR then
400:
401: rollback to UPDATE_ROW_PVT;
402:
403: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404:
405: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
406: p_data => p_msg_data);
407:
409: when OTHERS then
410:
411: rollback to UPDATE_ROW_PVT;
412:
413: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414:
415: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
416:
417: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
429: +============================================================================*/
430: PROCEDURE Delete_Row
431: (
432: p_api_version IN NUMBER,
433: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
434: p_commit IN VARCHAR2 := FND_API.G_FALSE,
435: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
436: p_return_status OUT NOCOPY VARCHAR2,
437: p_msg_count OUT NOCOPY NUMBER,
430: PROCEDURE Delete_Row
431: (
432: p_api_version IN NUMBER,
433: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
434: p_commit IN VARCHAR2 := FND_API.G_FALSE,
435: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
436: p_return_status OUT NOCOPY VARCHAR2,
437: p_msg_count OUT NOCOPY NUMBER,
438: p_msg_data OUT NOCOPY VARCHAR2,
431: (
432: p_api_version IN NUMBER,
433: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
434: p_commit IN VARCHAR2 := FND_API.G_FALSE,
435: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
436: p_return_status OUT NOCOPY VARCHAR2,
437: p_msg_count OUT NOCOPY NUMBER,
438: p_msg_data OUT NOCOPY VARCHAR2,
439: --
454: BEGIN
455: --
456: SAVEPOINT Delete_Row_Pvt;
457: --
458: IF NOT FND_API.Compatible_API_Call (l_api_version,
459: p_api_version,
460: l_api_name,
461: G_PKG_NAME)
462: THEN
459: p_api_version,
460: l_api_name,
461: G_PKG_NAME)
462: THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF ;
465: --
466: IF FND_API.to_Boolean (p_init_msg_list) THEN
467: FND_MSG_PUB.initialize;
462: THEN
463: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: END IF ;
465: --
466: IF FND_API.to_Boolean (p_init_msg_list) THEN
467: FND_MSG_PUB.initialize;
468: END IF;
469: --
470: p_return_status := FND_API.G_RET_STS_SUCCESS ;
466: IF FND_API.to_Boolean (p_init_msg_list) THEN
467: FND_MSG_PUB.initialize;
468: END IF;
469: --
470: p_return_status := FND_API.G_RET_STS_SUCCESS ;
471: --
472:
473: -- Get pay_element_id to be used for deletion of detail records.
474: SELECT pay_element_id INTO l_pay_element_id
489:
490: PSB_Set_Relation_PVT.Delete_Entity_Relation
491: (
492: p_api_version => 1.0 ,
493: p_init_msg_list => FND_API.G_FALSE ,
494: p_commit => FND_API.G_FALSE ,
495: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
496: p_return_status => l_return_status ,
497: p_msg_count => l_msg_count ,
490: PSB_Set_Relation_PVT.Delete_Entity_Relation
491: (
492: p_api_version => 1.0 ,
493: p_init_msg_list => FND_API.G_FALSE ,
494: p_commit => FND_API.G_FALSE ,
495: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
496: p_return_status => l_return_status ,
497: p_msg_count => l_msg_count ,
498: p_msg_data => l_msg_data ,
491: (
492: p_api_version => 1.0 ,
493: p_init_msg_list => FND_API.G_FALSE ,
494: p_commit => FND_API.G_FALSE ,
495: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
496: p_return_status => l_return_status ,
497: p_msg_count => l_msg_count ,
498: p_msg_data => l_msg_data ,
499: --
500: p_entity_type => 'PSG' ,
501: p_entity_id => l_pos_set_group_rec.position_set_group_id
502: ) ;
503: --
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR ;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
508: END IF;
501: p_entity_id => l_pos_set_group_rec.position_set_group_id
502: ) ;
503: --
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR ;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
508: END IF;
509: --
502: ) ;
503: --
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR ;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
508: END IF;
509: --
510: END LOOP ;
503: --
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR ;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
508: END IF;
509: --
510: END LOOP ;
511:
539: DELETE psb_pay_elements
540: WHERE rowid = p_row_id ;
541:
542: --
543: IF FND_API.To_Boolean ( p_commit ) THEN
544: COMMIT WORK;
545: END IF;
546: --
547: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
548: p_data => p_msg_data );
549: --
550: EXCEPTION
551: --
552: WHEN FND_API.G_EXC_ERROR THEN
553: --
554: ROLLBACK TO Delete_Row_Pvt ;
555: p_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
551: --
552: WHEN FND_API.G_EXC_ERROR THEN
553: --
554: ROLLBACK TO Delete_Row_Pvt ;
555: p_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
557: p_data => p_msg_data );
558: --
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
555: p_return_status := FND_API.G_RET_STS_ERROR;
556: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
557: p_data => p_msg_data );
558: --
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: --
561: ROLLBACK TO Delete_Row_Pvt ;
562: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
558: --
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: --
561: ROLLBACK TO Delete_Row_Pvt ;
562: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
564: p_data => p_msg_data );
565: --
566: WHEN OTHERS THEN
565: --
566: WHEN OTHERS THEN
567: --
568: ROLLBACK TO Delete_Row_Pvt ;
569: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
570: --
571: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
572: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
573: l_api_name);
582:
583: PROCEDURE Lock_Row
584: (
585: p_api_version IN NUMBER,
586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
588: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
589: p_return_status OUT NOCOPY VARCHAR2,
590: p_msg_count OUT NOCOPY NUMBER,
583: PROCEDURE Lock_Row
584: (
585: p_api_version IN NUMBER,
586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
588: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
589: p_return_status OUT NOCOPY VARCHAR2,
590: p_msg_count OUT NOCOPY NUMBER,
591: p_msg_data OUT NOCOPY VARCHAR2,
584: (
585: p_api_version IN NUMBER,
586: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
587: p_commit IN VARCHAR2 := FND_API.G_FALSE,
588: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
589: p_return_status OUT NOCOPY VARCHAR2,
590: p_msg_count OUT NOCOPY NUMBER,
591: p_msg_data OUT NOCOPY VARCHAR2,
592: --
595: P_ROW_ID in VARCHAR2,
596: P_PAY_ELEMENT_ID in NUMBER,
597: P_BUSINESS_GROUP_ID in NUMBER,
598: P_DATA_EXTRACT_ID in NUMBER,
599: P_BUDGET_SET_ID in NUMBER := FND_API.G_MISS_NUM,
600: P_NAME in VARCHAR2,
601: P_DESCRIPTION in VARCHAR2,
602: P_ELEMENT_VALUE_TYPE in VARCHAR2,
603: P_FORMULA_ID in NUMBER,
641: BEGIN
642: --
643: SAVEPOINT Lock_Row_Pvt ;
644: --
645: IF NOT FND_API.Compatible_API_Call ( l_api_version,
646: p_api_version,
647: l_api_name,
648: G_PKG_NAME )
649: THEN
646: p_api_version,
647: l_api_name,
648: G_PKG_NAME )
649: THEN
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
651: END IF;
652: --
653:
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
651: END IF;
652: --
653:
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
659: p_row_locked := FND_API.G_TRUE ;
660: --
661: OPEN C;
662: --
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
659: p_row_locked := FND_API.G_TRUE ;
660: --
661: OPEN C;
662: --
663: FETCH C INTO Recinfo;
664: IF (C%NOTFOUND) then
665: CLOSE C;
666: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
667: FND_MSG_PUB.Add;
668: RAISE FND_API.G_EXC_ERROR ;
669: END IF;
670:
671: IF
672: (
677:
678: AND ( (Recinfo.budget_set_id = p_budget_set_id)
679: OR ( (Recinfo.budget_set_id IS NULL)
680: AND (p_budget_set_id IS NULL))
681: OR (p_budget_set_id = FND_API.G_MISS_NUM))
682:
683: AND ( (Recinfo.description = p_description)
684: OR ( (Recinfo.description IS NULL)
685: AND (p_description IS NULL)))
801: Null;
802: ELSE
803: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
804: FND_MSG_PUB.Add;
805: RAISE FND_API.G_EXC_ERROR ;
806: END IF;
807:
808: --
809: IF FND_API.To_Boolean ( p_commit ) THEN
805: RAISE FND_API.G_EXC_ERROR ;
806: END IF;
807:
808: --
809: IF FND_API.To_Boolean ( p_commit ) THEN
810: COMMIT WORK;
811: END iF;
812: --
813: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
817: --
818: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
819: --
820: ROLLBACK TO Lock_Row_Pvt ;
821: p_row_locked := FND_API.G_FALSE;
822: p_return_status := FND_API.G_RET_STS_ERROR;
823: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
824: p_data => p_msg_data );
825: --
818: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
819: --
820: ROLLBACK TO Lock_Row_Pvt ;
821: p_row_locked := FND_API.G_FALSE;
822: p_return_status := FND_API.G_RET_STS_ERROR;
823: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
824: p_data => p_msg_data );
825: --
826: WHEN FND_API.G_EXC_ERROR THEN
822: p_return_status := FND_API.G_RET_STS_ERROR;
823: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
824: p_data => p_msg_data );
825: --
826: WHEN FND_API.G_EXC_ERROR THEN
827: --
828: ROLLBACK TO Lock_Row_Pvt ;
829: p_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
825: --
826: WHEN FND_API.G_EXC_ERROR THEN
827: --
828: ROLLBACK TO Lock_Row_Pvt ;
829: p_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
831: p_data => p_msg_data );
832: --
833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
829: p_return_status := FND_API.G_RET_STS_ERROR;
830: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
831: p_data => p_msg_data );
832: --
833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
834: --
835: ROLLBACK TO Lock_Row_Pvt ;
836: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
832: --
833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
834: --
835: ROLLBACK TO Lock_Row_Pvt ;
836: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
837: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
838: p_data => p_msg_data );
839: --
840: WHEN OTHERS THEN
839: --
840: WHEN OTHERS THEN
841: --
842: ROLLBACK TO Lock_Row_Pvt ;
843: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
844: --
845: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
846: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
847: l_api_name);
854:
855: PROCEDURE Check_Unique
856: (
857: p_api_version IN NUMBER,
858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
861: p_return_status OUT NOCOPY VARCHAR2,
862: p_msg_count OUT NOCOPY NUMBER,
855: PROCEDURE Check_Unique
856: (
857: p_api_version IN NUMBER,
858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
861: p_return_status OUT NOCOPY VARCHAR2,
862: p_msg_count OUT NOCOPY NUMBER,
863: p_msg_data OUT NOCOPY VARCHAR2,
856: (
857: p_api_version IN NUMBER,
858: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
859: p_commit IN VARCHAR2 := FND_API.G_FALSE,
860: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
861: p_return_status OUT NOCOPY VARCHAR2,
862: p_msg_count OUT NOCOPY NUMBER,
863: p_msg_data OUT NOCOPY VARCHAR2,
864: --
884: BEGIN
885: --
886: SAVEPOINT Check_Unique_Pvt ;
887: --
888: IF NOT FND_API.Compatible_API_Call ( l_api_version,
889: p_api_version,
890: l_api_name,
891: G_PKG_NAME )
892: THEN
889: p_api_version,
890: l_api_name,
891: G_PKG_NAME )
892: THEN
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
894: END IF;
895: --
896:
897: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
894: END IF;
895: --
896:
897: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
898: FND_MSG_PUB.initialize ;
899: END IF;
900: --
901: p_return_status := FND_API.G_RET_STS_SUCCESS ;
897: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
898: FND_MSG_PUB.initialize ;
899: END IF;
900: --
901: p_return_status := FND_API.G_RET_STS_SUCCESS ;
902: --
903:
904: -- Checking the Psb_set_relations table for references.
905: OPEN c;
913: END IF;
914:
915: CLOSE c;
916: --
917: IF FND_API.To_Boolean ( p_commit ) THEN
918: COMMIT WORK;
919: END iF;
920: --
921: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
922: p_data => p_msg_data );
923: --
924: EXCEPTION
925: --
926: WHEN FND_API.G_EXC_ERROR THEN
927: --
928: ROLLBACK TO Check_Unique_Pvt ;
929: p_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
925: --
926: WHEN FND_API.G_EXC_ERROR THEN
927: --
928: ROLLBACK TO Check_Unique_Pvt ;
929: p_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
931: p_data => p_msg_data );
932: --
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
929: p_return_status := FND_API.G_RET_STS_ERROR;
930: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
931: p_data => p_msg_data );
932: --
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: --
935: ROLLBACK TO Check_Unique_Pvt ;
936: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
932: --
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: --
935: ROLLBACK TO Check_Unique_Pvt ;
936: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
937: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
938: p_data => p_msg_data );
939: --
940: WHEN OTHERS THEN
939: --
940: WHEN OTHERS THEN
941: --
942: ROLLBACK TO Check_Unique_Pvt ;
943: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
944: --
945: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
946: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
947: l_api_name);
959: +============================================================================*/
960: PROCEDURE Check_References
961: (
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: p_return_status OUT NOCOPY VARCHAR2,
967: p_msg_count OUT NOCOPY NUMBER,
960: PROCEDURE Check_References
961: (
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: p_return_status OUT NOCOPY VARCHAR2,
967: p_msg_count OUT NOCOPY NUMBER,
968: p_msg_data OUT NOCOPY VARCHAR2,
961: (
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
964: p_commit IN VARCHAR2 := FND_API.G_FALSE,
965: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
966: p_return_status OUT NOCOPY VARCHAR2,
967: p_msg_count OUT NOCOPY NUMBER,
968: p_msg_data OUT NOCOPY VARCHAR2,
969: --
997: BEGIN
998: --
999: SAVEPOINT Check_References_Pvt ;
1000: --
1001: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1002: p_api_version,
1003: l_api_name,
1004: G_PKG_NAME )
1005: THEN
1002: p_api_version,
1003: l_api_name,
1004: G_PKG_NAME )
1005: THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1007: END IF;
1008: --
1009:
1010: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1007: END IF;
1008: --
1009:
1010: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1011: FND_MSG_PUB.initialize ;
1012: END IF;
1013: --
1014: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1010: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
1011: FND_MSG_PUB.initialize ;
1012: END IF;
1013: --
1014: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1015: --
1016:
1017: OPEN c1 ;
1018: FETCH c1 INTO l_tmp1 ;
1039:
1040: END IF;
1041:
1042: --
1043: IF FND_API.To_Boolean ( p_commit ) THEN
1044: COMMIT WORK;
1045: END IF;
1046: --
1047: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1049:
1050: --
1051: EXCEPTION
1052: --
1053: WHEN FND_API.G_EXC_ERROR THEN
1054: --
1055: ROLLBACK TO Check_References_Pvt ;
1056: p_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1052: --
1053: WHEN FND_API.G_EXC_ERROR THEN
1054: --
1055: ROLLBACK TO Check_References_Pvt ;
1056: p_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1058: p_data => p_msg_data );
1059: --
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1056: p_return_status := FND_API.G_RET_STS_ERROR;
1057: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1058: p_data => p_msg_data );
1059: --
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: --
1062: ROLLBACK TO Check_References_Pvt ;
1063: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1059: --
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: --
1062: ROLLBACK TO Check_References_Pvt ;
1063: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1064: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1065: p_data => p_msg_data );
1066: --
1067: WHEN OTHERS THEN
1066: --
1067: WHEN OTHERS THEN
1068: --
1069: ROLLBACK TO Check_References_Pvt ;
1070: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1071: --
1072: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1073: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1074: l_api_name);
1086: --
1087:
1088: PROCEDURE Copy_Pay_Elements
1089: ( p_api_version IN NUMBER,
1090: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1091: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1092: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1093: p_return_status OUT NOCOPY VARCHAR2,
1094: p_msg_count OUT NOCOPY NUMBER,
1087:
1088: PROCEDURE Copy_Pay_Elements
1089: ( p_api_version IN NUMBER,
1090: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1091: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1092: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1093: p_return_status OUT NOCOPY VARCHAR2,
1094: p_msg_count OUT NOCOPY NUMBER,
1095: p_msg_data OUT NOCOPY VARCHAR2,
1088: PROCEDURE Copy_Pay_Elements
1089: ( p_api_version IN NUMBER,
1090: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1091: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1092: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1093: p_return_status OUT NOCOPY VARCHAR2,
1094: p_msg_count OUT NOCOPY NUMBER,
1095: p_msg_data OUT NOCOPY VARCHAR2,
1096: p_source_pay_element_id IN NUMBER,
1204: SAVEPOINT Copy_Pay_Elements_Pvt;
1205:
1206: -- Standard call to check for call compatibility.
1207:
1208: if not FND_API.Compatible_API_Call (l_api_version,
1209: p_api_version,
1210: l_api_name,
1211: G_PKG_NAME)
1212: then
1209: p_api_version,
1210: l_api_name,
1211: G_PKG_NAME)
1212: then
1213: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1214: end if;
1215:
1216: -- Initialize message list if p_init_msg_list is set to TRUE.
1217:
1214: end if;
1215:
1216: -- Initialize message list if p_init_msg_list is set to TRUE.
1217:
1218: if FND_API.to_Boolean (p_init_msg_list) then
1219: FND_MSG_PUB.initialize;
1220: end if;
1221:
1222: -- Initialize API return status to success
1220: end if;
1221:
1222: -- Initialize API return status to success
1223:
1224: p_return_status := FND_API.G_RET_STS_SUCCESS;
1225:
1226: -- API body
1227: l_last_update_date := sysDATE;
1228: l_last_updated_by := FND_GLOBAL.USER_ID;
1294: );
1295:
1296: debug( 'New Pay Element Created:'||l_pay_element_id);
1297:
1298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: debug( 'Element not Copied for Pay Element Id : ' ||
1300: p_source_pay_element_id);
1301: RAISE FND_API.G_EXC_ERROR ;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1297:
1298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: debug( 'Element not Copied for Pay Element Id : ' ||
1300: p_source_pay_element_id);
1301: RAISE FND_API.G_EXC_ERROR ;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: debug( 'Element not Copied for Pay Element Id : ' ||
1304: p_source_pay_element_id);
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1298: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1299: debug( 'Element not Copied for Pay Element Id : ' ||
1300: p_source_pay_element_id);
1301: RAISE FND_API.G_EXC_ERROR ;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: debug( 'Element not Copied for Pay Element Id : ' ||
1304: p_source_pay_element_id);
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1306: END IF;
1301: RAISE FND_API.G_EXC_ERROR ;
1302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1303: debug( 'Element not Copied for Pay Element Id : ' ||
1304: p_source_pay_element_id);
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1306: END IF;
1307:
1308: For l_pay_element_options_rec in l_pay_element_options_csr
1309: Loop
1336: );
1337:
1338: debug( 'New Pay Element Option Created:'||l_pay_element_option_id);
1339:
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1342: l_pay_element_options_rec.pay_element_option_id);
1343: RAISE FND_API.G_EXC_ERROR ;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1339:
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1342: l_pay_element_options_rec.pay_element_option_id);
1343: RAISE FND_API.G_EXC_ERROR ;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1346: l_pay_element_options_rec.pay_element_option_id);
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1341: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1342: l_pay_element_options_rec.pay_element_option_id);
1343: RAISE FND_API.G_EXC_ERROR ;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1346: l_pay_element_options_rec.pay_element_option_id);
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1348: END IF;
1343: RAISE FND_API.G_EXC_ERROR ;
1344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1345: debug( 'Element Option not Copied for Pay Element Option Id : ' ||
1346: l_pay_element_options_rec.pay_element_option_id);
1347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1348: END IF;
1349:
1350: For l_pay_element_rates_rec in l_pay_element_rates_csr
1351: Loop
1384: ) ;
1385:
1386: debug( 'New Pay Element Rate Created:'||l_pay_element_rate_id);
1387:
1388: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1389: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1390: l_pay_element_rates_rec.pay_element_rate_id);
1391: RAISE FND_API.G_EXC_ERROR ;
1392: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1387:
1388: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1389: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1390: l_pay_element_rates_rec.pay_element_rate_id);
1391: RAISE FND_API.G_EXC_ERROR ;
1392: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1393: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1394: l_pay_element_rates_rec.pay_element_rate_id);
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1388: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1389: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1390: l_pay_element_rates_rec.pay_element_rate_id);
1391: RAISE FND_API.G_EXC_ERROR ;
1392: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1393: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1394: l_pay_element_rates_rec.pay_element_rate_id);
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1396: END IF;
1391: RAISE FND_API.G_EXC_ERROR ;
1392: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1393: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1394: l_pay_element_rates_rec.pay_element_rate_id);
1395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1396: END IF;
1397:
1398: End Loop;
1399: End Loop;
1439: ) ;
1440:
1441: debug( 'New Pay Element Rate Created:'||l_pay_element_rate_id);
1442:
1443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1444: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1445: l_pay_element_rates_rec.pay_element_rate_id);
1446: RAISE FND_API.G_EXC_ERROR ;
1447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1442:
1443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1444: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1445: l_pay_element_rates_rec.pay_element_rate_id);
1446: RAISE FND_API.G_EXC_ERROR ;
1447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1448: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1449: l_pay_element_rates_rec.pay_element_rate_id);
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1443: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1444: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1445: l_pay_element_rates_rec.pay_element_rate_id);
1446: RAISE FND_API.G_EXC_ERROR ;
1447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1448: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1449: l_pay_element_rates_rec.pay_element_rate_id);
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1451: END IF;
1446: RAISE FND_API.G_EXC_ERROR ;
1447: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1448: debug( 'Element Rate not Copied for Pay Element Rate Id : ' ||
1449: l_pay_element_rates_rec.pay_element_rate_id);
1450: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1451: END IF;
1452:
1453: End Loop;
1454: end if;
1462: FROM DUAL;
1463:
1464: PSB_ELEMENT_POS_SET_GROUPS_PVT.Insert_Row
1465: ( p_api_version => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE,
1467: p_commit => FND_API.G_FALSE,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1469: p_return_status => l_return_status,
1470: p_msg_count => l_msg_count,
1463:
1464: PSB_ELEMENT_POS_SET_GROUPS_PVT.Insert_Row
1465: ( p_api_version => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE,
1467: p_commit => FND_API.G_FALSE,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1469: p_return_status => l_return_status,
1470: p_msg_count => l_msg_count,
1471: p_msg_data => l_msg_data,
1464: PSB_ELEMENT_POS_SET_GROUPS_PVT.Insert_Row
1465: ( p_api_version => 1.0,
1466: p_init_msg_list => FND_API.G_FALSE,
1467: p_commit => FND_API.G_FALSE,
1468: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1469: p_return_status => l_return_status,
1470: p_msg_count => l_msg_count,
1471: p_msg_data => l_msg_data,
1472: --
1481: );
1482:
1483: debug( 'New Position Set Group Created:'||l_position_set_group_id);
1484:
1485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1486: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1487: l_source_set_group_id);
1488: RAISE FND_API.G_EXC_ERROR ;
1489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484:
1485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1486: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1487: l_source_set_group_id);
1488: RAISE FND_API.G_EXC_ERROR ;
1489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1490: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1491: l_source_set_group_id);
1492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1485: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1486: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1487: l_source_set_group_id);
1488: RAISE FND_API.G_EXC_ERROR ;
1489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1490: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1491: l_source_set_group_id);
1492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1493: END IF;
1488: RAISE FND_API.G_EXC_ERROR ;
1489: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1490: debug( 'Position Set Group not Copied for Set Group Id : ' ||
1491: l_source_set_group_id);
1492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1493: END IF;
1494:
1495:
1496: prev_distribution_set_id := -1;
1509: end if;
1510:
1511: PSB_ELE_DISTRIBUTIONS_I_PVT.Insert_Row
1512: ( p_api_version => 1.0,
1513: p_init_msg_list => FND_API.G_FALSE,
1514: p_commit => FND_API.G_FALSE,
1515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1516: p_return_status => l_return_status,
1517: p_msg_count => l_msg_count,
1510:
1511: PSB_ELE_DISTRIBUTIONS_I_PVT.Insert_Row
1512: ( p_api_version => 1.0,
1513: p_init_msg_list => FND_API.G_FALSE,
1514: p_commit => FND_API.G_FALSE,
1515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1516: p_return_status => l_return_status,
1517: p_msg_count => l_msg_count,
1518: p_msg_data => l_msg_data,
1511: PSB_ELE_DISTRIBUTIONS_I_PVT.Insert_Row
1512: ( p_api_version => 1.0,
1513: p_init_msg_list => FND_API.G_FALSE,
1514: p_commit => FND_API.G_FALSE,
1515: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1516: p_return_status => l_return_status,
1517: p_msg_count => l_msg_count,
1518: p_msg_data => l_msg_data,
1519: --
1570: );
1571:
1572: debug( 'New Distribution Created:'||l_distribution_id);
1573:
1574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1575: debug( 'Pay Element Distribution not Copied for Distribution Id
1576: : ' || l_account_distr_rec.distribution_id);
1577: RAISE FND_API.G_EXC_ERROR ;
1578: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1573:
1574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1575: debug( 'Pay Element Distribution not Copied for Distribution Id
1576: : ' || l_account_distr_rec.distribution_id);
1577: RAISE FND_API.G_EXC_ERROR ;
1578: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1579: debug( 'Pay Element Distribution not Copied for Distribution Id
1580: : ' || l_account_distr_rec.distribution_id);
1581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1574: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1575: debug( 'Pay Element Distribution not Copied for Distribution Id
1576: : ' || l_account_distr_rec.distribution_id);
1577: RAISE FND_API.G_EXC_ERROR ;
1578: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1579: debug( 'Pay Element Distribution not Copied for Distribution Id
1580: : ' || l_account_distr_rec.distribution_id);
1581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1582: END IF;
1577: RAISE FND_API.G_EXC_ERROR ;
1578: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1579: debug( 'Pay Element Distribution not Copied for Distribution Id
1580: : ' || l_account_distr_rec.distribution_id);
1581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1582: END IF;
1583:
1584: prev_distribution_set_id := l_account_distr_rec.distribution_set_id;
1585: End Loop;
1591: Loop
1592: l_set_relation_id := null;
1593: PSB_Set_Relation_PVT.Insert_Row
1594: ( p_api_version => 1.0,
1595: p_init_msg_list => FND_API.G_FALSE,
1596: p_commit => FND_API.G_FALSE,
1597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1598: p_return_status => l_return_status,
1599: p_msg_count => l_msg_count,
1592: l_set_relation_id := null;
1593: PSB_Set_Relation_PVT.Insert_Row
1594: ( p_api_version => 1.0,
1595: p_init_msg_list => FND_API.G_FALSE,
1596: p_commit => FND_API.G_FALSE,
1597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1598: p_return_status => l_return_status,
1599: p_msg_count => l_msg_count,
1600: p_msg_data => l_msg_data,
1593: PSB_Set_Relation_PVT.Insert_Row
1594: ( p_api_version => 1.0,
1595: p_init_msg_list => FND_API.G_FALSE,
1596: p_commit => FND_API.G_FALSE,
1597: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1598: p_return_status => l_return_status,
1599: p_msg_count => l_msg_count,
1600: p_msg_data => l_msg_data,
1601: p_Row_Id => l_rowid2,
1625: );
1626: debug( 'New Relation Created for Set group ID:'||
1627: l_position_set_group_id);
1628:
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: debug( 'Set Relation not created for position set id
1631: : ' || l_account_sets_rec.account_position_set_id);
1632: RAISE FND_API.G_EXC_ERROR ;
1633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1628:
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: debug( 'Set Relation not created for position set id
1631: : ' || l_account_sets_rec.account_position_set_id);
1632: RAISE FND_API.G_EXC_ERROR ;
1633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1634: debug( 'Set Relation not created for position set id
1635: : ' || l_account_sets_rec.account_position_set_id);
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1629: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1630: debug( 'Set Relation not created for position set id
1631: : ' || l_account_sets_rec.account_position_set_id);
1632: RAISE FND_API.G_EXC_ERROR ;
1633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1634: debug( 'Set Relation not created for position set id
1635: : ' || l_account_sets_rec.account_position_set_id);
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1637: END IF;
1632: RAISE FND_API.G_EXC_ERROR ;
1633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1634: debug( 'Set Relation not created for position set id
1635: : ' || l_account_sets_rec.account_position_set_id);
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1637: END IF;
1638:
1639: End Loop;
1640: End Loop;
1644: -- End of API body.
1645:
1646: -- Standard check of p_commit.
1647:
1648: if FND_API.to_Boolean (p_commit) then
1649: commit work;
1650: end if;
1651:
1652: -- Standard call to get message count AND if count is 1, get message info.
1655: p_data => p_msg_data);
1656:
1657: EXCEPTION
1658:
1659: when FND_API.G_EXC_ERROR then
1660:
1661: rollback to Copy_Pay_Elements_Pvt;
1662:
1663: p_return_status := FND_API.G_RET_STS_ERROR;
1659: when FND_API.G_EXC_ERROR then
1660:
1661: rollback to Copy_Pay_Elements_Pvt;
1662:
1663: p_return_status := FND_API.G_RET_STS_ERROR;
1664:
1665: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1666: p_data => p_msg_data);
1667:
1665: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1666: p_data => p_msg_data);
1667:
1668:
1669: when FND_API.G_EXC_UNEXPECTED_ERROR then
1670:
1671: rollback to Copy_Pay_Elements_Pvt;
1672:
1673: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: when FND_API.G_EXC_UNEXPECTED_ERROR then
1670:
1671: rollback to Copy_Pay_Elements_Pvt;
1672:
1673: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1674:
1675: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1676: p_data => p_msg_data);
1677:
1679: when OTHERS then
1680:
1681: rollback to Copy_Pay_Elements_Pvt;
1682:
1683: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1684:
1685: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1686:
1687: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,