4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_CONSTRAINT_FORMULAS_PVT';
5:
6: procedure INSERT_ROW (
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11: p_return_status OUT NOCOPY VARCHAR2,
12: p_msg_count OUT NOCOPY NUMBER,
5:
6: procedure INSERT_ROW (
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11: p_return_status OUT NOCOPY VARCHAR2,
12: p_msg_count OUT NOCOPY NUMBER,
13: p_msg_data OUT NOCOPY VARCHAR2,
6: procedure INSERT_ROW (
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
11: p_return_status OUT NOCOPY VARCHAR2,
12: p_msg_count OUT NOCOPY NUMBER,
13: p_msg_data OUT NOCOPY VARCHAR2,
14: --
83: BEGIN
84: --
85: SAVEPOINT Insert_Row_Pvt ;
86: --
87: IF NOT FND_API.Compatible_API_Call ( l_api_version,
88: p_api_version,
89: l_api_name,
90: G_PKG_NAME )
91: THEN
88: p_api_version,
89: l_api_name,
90: G_PKG_NAME )
91: THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
93: END IF;
94: --
95:
96: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
93: END IF;
94: --
95:
96: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
97: FND_MSG_PUB.initialize ;
98: END IF;
99: --
100: p_return_status := FND_API.G_RET_STS_SUCCESS ;
96: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
97: FND_MSG_PUB.initialize ;
98: END IF;
99: --
100: p_return_status := FND_API.G_RET_STS_SUCCESS ;
101: --
102:
103: insert into PSB_CONSTRAINT_FORMULAS (
104: CONSTRAINT_ID,
231: close c;
232: --
233:
234: --
235: IF FND_API.To_Boolean ( p_commit ) THEN
236: COMMIT WORK;
237: END iF;
238: --
239: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
240: p_data => p_msg_data );
241: --
242: EXCEPTION
243: --
244: WHEN FND_API.G_EXC_ERROR THEN
245: --
246: ROLLBACK TO Insert_Row_Pvt ;
247: p_return_status := FND_API.G_RET_STS_ERROR;
248: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
243: --
244: WHEN FND_API.G_EXC_ERROR THEN
245: --
246: ROLLBACK TO Insert_Row_Pvt ;
247: p_return_status := FND_API.G_RET_STS_ERROR;
248: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
249: p_data => p_msg_data );
250: --
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
247: p_return_status := FND_API.G_RET_STS_ERROR;
248: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
249: p_data => p_msg_data );
250: --
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: --
253: ROLLBACK TO Insert_Row_Pvt ;
254: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
250: --
251: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252: --
253: ROLLBACK TO Insert_Row_Pvt ;
254: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
256: p_data => p_msg_data );
257: --
258: WHEN OTHERS THEN
257: --
258: WHEN OTHERS THEN
259: --
260: ROLLBACK TO Insert_Row_Pvt ;
261: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: --
263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
264: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
265: l_api_name);
271: END Insert_Row;
272:
273: procedure LOCK_ROW (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
276: p_commit IN VARCHAR2 := FND_API.G_FALSE,
277: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
278: p_return_status OUT NOCOPY VARCHAR2,
279: p_msg_count OUT NOCOPY NUMBER,
272:
273: procedure LOCK_ROW (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
276: p_commit IN VARCHAR2 := FND_API.G_FALSE,
277: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
278: p_return_status OUT NOCOPY VARCHAR2,
279: p_msg_count OUT NOCOPY NUMBER,
280: p_msg_data OUT NOCOPY VARCHAR2,
273: procedure LOCK_ROW (
274: p_api_version IN NUMBER,
275: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
276: p_commit IN VARCHAR2 := FND_API.G_FALSE,
277: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
278: p_return_status OUT NOCOPY VARCHAR2,
279: p_msg_count OUT NOCOPY NUMBER,
280: p_msg_data OUT NOCOPY VARCHAR2,
281: p_lock_row OUT NOCOPY VARCHAR2,
402: BEGIN
403: --
404: SAVEPOINT Lock_Row_Pvt ;
405: --
406: IF NOT FND_API.Compatible_API_Call ( l_api_version,
407: p_api_version,
408: l_api_name,
409: G_PKG_NAME )
410: THEN
407: p_api_version,
408: l_api_name,
409: G_PKG_NAME )
410: THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
412: END IF;
413: --
414:
415: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
412: END IF;
413: --
414:
415: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
416: FND_MSG_PUB.initialize ;
417: END IF;
418: --
419: p_return_status := FND_API.G_RET_STS_SUCCESS ;
415: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
416: FND_MSG_PUB.initialize ;
417: END IF;
418: --
419: p_return_status := FND_API.G_RET_STS_SUCCESS ;
420: --
421: open c1;
422: fetch c1 into tlinfo;
423: if (c1%notfound) then
585: AND ((tlinfo.CONCATENATED_SEGMENTS = P_CONCATENATED_SEGMENTS)
586: OR ((tlinfo.CONCATENATED_SEGMENTS is null)
587: AND (P_CONCATENATED_SEGMENTS is null)))
588: ) then
589: p_lock_row := FND_API.G_TRUE;
590: ELSE
591: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR ;
589: p_lock_row := FND_API.G_TRUE;
590: ELSE
591: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR ;
594: END IF;
595:
596: --
597: IF FND_API.To_Boolean ( p_commit ) THEN
593: RAISE FND_API.G_EXC_ERROR ;
594: END IF;
595:
596: --
597: IF FND_API.To_Boolean ( p_commit ) THEN
598: COMMIT WORK;
599: END iF;
600: --
601: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
605: --
606: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
607: --
608: ROLLBACK TO Lock_Row_Pvt ;
609: p_lock_row := FND_API.G_FALSE;
610: p_return_status := FND_API.G_RET_STS_ERROR;
611: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
612: p_data => p_msg_data );
613: --
606: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
607: --
608: ROLLBACK TO Lock_Row_Pvt ;
609: p_lock_row := FND_API.G_FALSE;
610: p_return_status := FND_API.G_RET_STS_ERROR;
611: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
612: p_data => p_msg_data );
613: --
614: WHEN FND_API.G_EXC_ERROR THEN
610: p_return_status := FND_API.G_RET_STS_ERROR;
611: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
612: p_data => p_msg_data );
613: --
614: WHEN FND_API.G_EXC_ERROR THEN
615: --
616: ROLLBACK TO Lock_Row_Pvt ;
617: p_lock_row := FND_API.G_FALSE;
618: p_return_status := FND_API.G_RET_STS_ERROR;
613: --
614: WHEN FND_API.G_EXC_ERROR THEN
615: --
616: ROLLBACK TO Lock_Row_Pvt ;
617: p_lock_row := FND_API.G_FALSE;
618: p_return_status := FND_API.G_RET_STS_ERROR;
619: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
620: p_data => p_msg_data );
621: --
614: WHEN FND_API.G_EXC_ERROR THEN
615: --
616: ROLLBACK TO Lock_Row_Pvt ;
617: p_lock_row := FND_API.G_FALSE;
618: p_return_status := FND_API.G_RET_STS_ERROR;
619: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
620: p_data => p_msg_data );
621: --
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
618: p_return_status := FND_API.G_RET_STS_ERROR;
619: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
620: p_data => p_msg_data );
621: --
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: --
624: ROLLBACK TO Lock_Row_Pvt ;
625: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
621: --
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: --
624: ROLLBACK TO Lock_Row_Pvt ;
625: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
627: p_data => p_msg_data );
628: --
629: WHEN OTHERS THEN
628: --
629: WHEN OTHERS THEN
630: --
631: ROLLBACK TO Lock_Row_Pvt ;
632: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: --
634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
635: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
636: l_api_name);
642: END Lock_Row;
643:
644: procedure UPDATE_ROW (
645: p_api_version IN NUMBER,
646: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
647: p_commit IN VARCHAR2 := FND_API.G_FALSE,
648: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
649: p_return_status OUT NOCOPY VARCHAR2,
650: p_msg_count OUT NOCOPY NUMBER,
643:
644: procedure UPDATE_ROW (
645: p_api_version IN NUMBER,
646: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
647: p_commit IN VARCHAR2 := FND_API.G_FALSE,
648: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
649: p_return_status OUT NOCOPY VARCHAR2,
650: p_msg_count OUT NOCOPY NUMBER,
651: p_msg_data OUT NOCOPY VARCHAR2,
644: procedure UPDATE_ROW (
645: p_api_version IN NUMBER,
646: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
647: p_commit IN VARCHAR2 := FND_API.G_FALSE,
648: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
649: p_return_status OUT NOCOPY VARCHAR2,
650: p_msg_count OUT NOCOPY NUMBER,
651: p_msg_data OUT NOCOPY VARCHAR2,
652: --
716: BEGIN
717: --
718: SAVEPOINT Update_Row_Pvt ;
719: --
720: IF NOT FND_API.Compatible_API_Call ( l_api_version,
721: p_api_version,
722: l_api_name,
723: G_PKG_NAME )
724: THEN
721: p_api_version,
722: l_api_name,
723: G_PKG_NAME )
724: THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
726: END IF;
727: --
728:
729: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
726: END IF;
727: --
728:
729: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
730: FND_MSG_PUB.initialize ;
731: END IF;
732: --
733: p_return_status := FND_API.G_RET_STS_SUCCESS ;
729: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
730: FND_MSG_PUB.initialize ;
731: END IF;
732: --
733: p_return_status := FND_API.G_RET_STS_SUCCESS ;
734: --
735:
736: update PSB_CONSTRAINT_FORMULAS set
737: CONSTRAINT_ID = P_CONSTRAINT_ID,
796: raise no_data_found;
797: end if;
798:
799: --
800: IF FND_API.To_Boolean ( p_commit ) THEN
801: COMMIT WORK;
802: END iF;
803: --
804: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
805: p_data => p_msg_data );
806: --
807: EXCEPTION
808: --
809: WHEN FND_API.G_EXC_ERROR THEN
810: --
811: ROLLBACK TO Update_Row_Pvt ;
812: p_return_status := FND_API.G_RET_STS_ERROR;
813: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
808: --
809: WHEN FND_API.G_EXC_ERROR THEN
810: --
811: ROLLBACK TO Update_Row_Pvt ;
812: p_return_status := FND_API.G_RET_STS_ERROR;
813: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
814: p_data => p_msg_data );
815: --
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: p_return_status := FND_API.G_RET_STS_ERROR;
813: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
814: p_data => p_msg_data );
815: --
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: --
818: ROLLBACK TO Update_Row_Pvt ;
819: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
815: --
816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: --
818: ROLLBACK TO Update_Row_Pvt ;
819: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
821: p_data => p_msg_data );
822: --
823: WHEN OTHERS THEN
822: --
823: WHEN OTHERS THEN
824: --
825: ROLLBACK TO Update_Row_Pvt ;
826: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: --
828: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
829: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
830: l_api_name);
836: END Update_Row;
837:
838: procedure DELETE_ROW (
839: p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
841: p_commit IN VARCHAR2 := FND_API.G_FALSE,
842: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
843: p_return_status OUT NOCOPY VARCHAR2,
844: p_msg_count OUT NOCOPY NUMBER,
837:
838: procedure DELETE_ROW (
839: p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
841: p_commit IN VARCHAR2 := FND_API.G_FALSE,
842: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
843: p_return_status OUT NOCOPY VARCHAR2,
844: p_msg_count OUT NOCOPY NUMBER,
845: p_msg_data OUT NOCOPY VARCHAR2,
838: procedure DELETE_ROW (
839: p_api_version IN NUMBER,
840: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
841: p_commit IN VARCHAR2 := FND_API.G_FALSE,
842: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
843: p_return_status OUT NOCOPY VARCHAR2,
844: p_msg_count OUT NOCOPY NUMBER,
845: p_msg_data OUT NOCOPY VARCHAR2,
846: --
856: BEGIN
857: --
858: SAVEPOINT Delete_Row_Pvt ;
859: --
860: IF NOT FND_API.Compatible_API_Call ( l_api_version,
861: p_api_version,
862: l_api_name,
863: G_PKG_NAME )
864: THEN
861: p_api_version,
862: l_api_name,
863: G_PKG_NAME )
864: THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
866: END IF;
867: --
868:
869: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
866: END IF;
867: --
868:
869: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
870: FND_MSG_PUB.initialize ;
871: END IF;
872: --
873: p_return_status := FND_API.G_RET_STS_SUCCESS ;
869: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
870: FND_MSG_PUB.initialize ;
871: END IF;
872: --
873: p_return_status := FND_API.G_RET_STS_SUCCESS ;
874: --
875:
876: delete from PSB_CONSTRAINT_FORMULAS
877: where CONSTRAINT_FORMULA_ID = P_CONSTRAINT_FORMULA_ID;
880: RAISE NO_DATA_FOUND ;
881: END IF;
882:
883: --
884: IF FND_API.To_Boolean ( p_commit ) THEN
885: COMMIT WORK;
886: END iF;
887: --
888: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
889: p_data => p_msg_data );
890:
891: EXCEPTION
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
895: ROLLBACK TO Delete_Row_Pvt ;
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
892: --
893: WHEN FND_API.G_EXC_ERROR THEN
894: --
895: ROLLBACK TO Delete_Row_Pvt ;
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
898: p_data => p_msg_data );
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
896: p_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
898: p_data => p_msg_data );
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: --
902: ROLLBACK TO Delete_Row_Pvt ;
903: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
899: --
900: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
901: --
902: ROLLBACK TO Delete_Row_Pvt ;
903: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
905: p_data => p_msg_data );
906: --
907: WHEN OTHERS THEN
906: --
907: WHEN OTHERS THEN
908: --
909: ROLLBACK TO Delete_Row_Pvt ;
910: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911: --
912: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
913: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
914: l_api_name);