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
99:
204: end if;
205:
206: -- Standard call to get message count and if count is 1, get message info.
207:
208: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
209: p_data => p_msg_data);
210:
211: EXCEPTION
212:
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:
222:
223: when FND_API.G_EXC_UNEXPECTED_ERROR then
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:
232:
233: when OTHERS then
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,
242: l_api_name);
243: end if;
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,
242: l_api_name);
243: end if;
244:
245: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
241: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
242: l_api_name);
243: end if;
244:
245: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
246: p_data => p_msg_data);
247:
248: END Insert_Row;
249:
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
326:
380: end if;
381:
382: -- Standard call to get message count and if count is 1, get message info.
383:
384: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
385: p_data => p_msg_data);
386:
387: EXCEPTION
388:
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:
398:
399: when FND_API.G_EXC_UNEXPECTED_ERROR then
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:
408:
409: when OTHERS then
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,
418: l_api_name);
419: end if;
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,
418: l_api_name);
419: end if;
420:
421: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
417: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
418: l_api_name);
419: end if;
420:
421: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
422: p_data => p_msg_data);
423:
424: END Update_Row;
425:
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 ;
471: --
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,
557: p_data => p_msg_data );
558: --
559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: --
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
567: --
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);
574: END if;
575: --
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);
574: END if;
575: --
576: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
572: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
573: l_api_name);
574: END if;
575: --
576: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
577: p_data => p_msg_data );
578: --
579: END Delete_Row;
580: /*----------------------------------------------------------------------------*/
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 ;
659: p_row_locked := FND_API.G_TRUE ;
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
800: THEN
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
810: COMMIT WORK;
811: END iF;
812: --
813: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
814: p_data => p_msg_data );
815: --
816: EXCEPTION
817: --
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
827: --
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
834: --
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
841: --
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);
848: END if;
849: --
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);
848: END if;
849: --
850: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
846: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
847: l_api_name);
848: END if;
849: --
850: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
851: p_data => p_msg_data );
852: END Lock_Row;
853:
854:
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 ;
902: --
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,
931: p_data => p_msg_data );
932: --
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
934: --
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
941: --
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);
948: END if;
949: --
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);
948: END if;
949: --
950: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
946: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
947: l_api_name);
948: END if;
949: --
950: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
951: p_data => p_msg_data );
952: --
953: END Check_Unique;
954:
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 ;
1015: --
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,
1048: p_data => p_msg_data );
1049:
1050: --
1051: EXCEPTION
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
1061: --
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
1068: --
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);
1075: END if;
1076: --
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);
1075: END if;
1076: --
1077: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1073: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1074: l_api_name);
1075: END if;
1076: --
1077: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1078: p_data => p_msg_data );
1079: --
1080: END Check_References;
1081: /*----------------------------------------------------------------------------*/
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
1223:
1650: end if;
1651:
1652: -- Standard call to get message count AND if count is 1, get message info.
1653:
1654: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1655: p_data => p_msg_data);
1656:
1657: EXCEPTION
1658:
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:
1668:
1669: when FND_API.G_EXC_UNEXPECTED_ERROR then
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:
1678:
1679: when OTHERS then
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,
1688: l_api_name);
1689: end if;
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,
1688: l_api_name);
1689: end if;
1690:
1691: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1687: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1688: l_api_name);
1689: end if;
1690:
1691: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1692: p_data => p_msg_data);
1693:
1694: END Copy_Pay_Elements;
1695: