1: PACKAGE BODY PSB_PARAMETER_FORMULAS_PVT AS
2: /* $Header: PSBVPFPB.pls 120.2 2005/07/13 11:28:21 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_PARAMETER_FORMULAS_PVT';
5:
1: PACKAGE BODY PSB_PARAMETER_FORMULAS_PVT AS
2: /* $Header: PSBVPFPB.pls 120.2 2005/07/13 11:28:21 shtripat ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_PARAMETER_FORMULAS_PVT';
5:
6:
7: procedure INSERT_ROW (
8: p_api_version IN NUMBER,
91:
92: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
93: l_api_version CONSTANT NUMBER := 1.0;
94:
95: cursor C is select ROWID from PSB_PARAMETER_FORMULAS
96: where PARAMETER_FORMULA_ID = P_PARAMETER_FORMULA_ID;
97: BEGIN
98:
99: SAVEPOINT Insert_Row_Pvt ;
112: END IF;
113:
114: p_return_status := FND_API.G_RET_STS_SUCCESS ;
115:
116: insert into PSB_PARAMETER_FORMULAS (
117: PARAMETER_ID,
118: PARAMETER_FORMULA_ID,
119: STEP_NUMBER,
120: BUDGET_YEAR_TYPE_ID,
396:
397: Counter NUMBER;
398: CURSOR c IS
399: SELECT *
400: FROM psb_parameter_formulas
401: WHERE rowid = p_rowid
402: FOR UPDATE OF parameter_formula_id NOWAIT;
403: recinfo c%ROWTYPE;
404:
862: END IF;
863:
864: p_return_status := FND_API.G_RET_STS_SUCCESS ;
865:
866: update PSB_PARAMETER_FORMULAS set
867: PARAMETER_ID = P_PARAMETER_ID,
868: PARAMETER_FORMULA_ID = P_PARAMETER_FORMULA_ID,
869: STEP_NUMBER = P_STEP_NUMBER,
870: BUDGET_YEAR_TYPE_ID = P_BUDGET_YEAR_TYPE_ID,
1013: END IF;
1014:
1015: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1016:
1017: delete from PSB_PARAMETER_FORMULAS
1018: where PARAMETER_FORMULA_ID = P_PARAMETER_FORMULA_ID;
1019: IF (SQL%NOTFOUND) THEN
1020: RAISE NO_DATA_FOUND ;
1021: END IF;
1057: p_data => p_msg_data );
1058:
1059: END Delete_Row;
1060:
1061: end PSB_PARAMETER_FORMULAS_PVT;