[Home] [Help]
1: PACKAGE BODY PSB_CONSTRAINT_FORMULAS_PVT AS
2: /* $Header: PSBVCFPB.pls 120.2 2005/07/13 11:24:01 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_CONSTRAINT_FORMULAS_PVT';
5:
1: PACKAGE BODY PSB_CONSTRAINT_FORMULAS_PVT AS
2: /* $Header: PSBVCFPB.pls 120.2 2005/07/13 11:24:01 shtripat ship $ */
3:
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,
76: --
77: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
78: l_api_version CONSTANT NUMBER := 1.0;
79: --
80: cursor C is select ROWID from PSB_CONSTRAINT_FORMULAS
81: where CONSTRAINT_FORMULA_ID = P_CONSTRAINT_FORMULA_ID;
82:
83: BEGIN
84: --
99: --
100: p_return_status := FND_API.G_RET_STS_SUCCESS ;
101: --
102:
103: insert into PSB_CONSTRAINT_FORMULAS (
104: CONSTRAINT_ID,
105: CONSTRAINT_FORMULA_ID,
106: STEP_NUMBER,
107: BUDGET_YEAR_TYPE_ID,
393: ATTRIBUTE4,
394: ATTRIBUTE5,
395: CONTEXT,
396: CONCATENATED_SEGMENTS
397: from PSB_CONSTRAINT_FORMULAS
398: where CONSTRAINT_FORMULA_ID = P_CONSTRAINT_FORMULA_ID
399: for update of CONSTRAINT_FORMULA_ID nowait;
400: tlinfo c1%rowtype;
401:
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,
738: STEP_NUMBER = P_STEP_NUMBER,
739: BUDGET_YEAR_TYPE_ID = P_BUDGET_YEAR_TYPE_ID,
740: BALANCE_TYPE = P_BALANCE_TYPE,
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;
878:
879: IF (SQL%NOTFOUND) THEN
880: RAISE NO_DATA_FOUND ;
918: p_data => p_msg_data );
919: --
920: END Delete_Row;
921:
922: end PSB_CONSTRAINT_FORMULAS_PVT;