[Home] [Help]
340: FROM ozf_offers
341: WHERE qp_list_header_id = p_object_id;
342:
343: CURSOR c_act_budget_id IS
344: SELECT ozf_act_budgets_s.NEXTVAL
345: FROM DUAL;
346:
347: CURSOR c_id_exists (p_id IN NUMBER) IS
348: SELECT 1
345: FROM DUAL;
346:
347: CURSOR c_id_exists (p_id IN NUMBER) IS
348: SELECT 1
349: FROM ozf_act_budgets
350: WHERE activity_budget_id = p_id;
351:
352: CURSOR c_check_quota (p_type IN VARCHAR2, p_fund_id IN NUMBER) IS
353: SELECT 1
837: END IF;
838: END IF;
839: END IF;
840:
841: INSERT INTO ozf_act_budgets
842: (activity_budget_id, -- standard who columns
843: last_update_date
844: , last_updated_by
845: , creation_date
1259: -- Start of Comments
1260: --
1261: -- API name : Update_Act_Budgets
1262: -- Type : Private
1263: -- Function : Update a row in OZF_ACT_Budgets table
1264: -- Note : This overloaded procedure is to be called from
1265: -- Workflow to maintain the context.
1266: ---- 29-JUNE-2004 feliu added.
1267: -- End Of Comments
1311: -- Start of Comments
1312: --
1313: -- API name : Update_Act_Budgets
1314: -- Type : Private
1315: -- Function : Update a row in OZF_ACT_Budgets table
1316: -- Note : This overloaded procedure is to be called from
1317: -- Workflow to maintain the context.
1318: ---- 22-Feb-2001 mpande Modified for Hornet changes.
1319: -- 05/22/2001 mpande Signature changes for fund child approval
1366: := NVL (fnd_profile.VALUE ('OZF_COMM_BUDGET_EXCEED'), 'N');
1367:
1368: CURSOR c_current_status IS
1369: SELECT status_code, approved_amount, parent_src_apprvd_amt
1370: FROM ozf_act_budgets
1371: WHERE activity_budget_id = p_act_budgets_rec.activity_budget_id;
1372:
1373: --
1374: -- the planned_amt will be used in approval submission,
2256: END IF;
2257:
2258:
2259: -- Perform the database operation
2260: UPDATE ozf_act_budgets
2261: SET last_update_date = SYSDATE
2262: ,last_updated_by = fnd_global.user_id
2263: ,last_update_login = fnd_global.conc_login_id
2264: ,object_version_number = l_act_budgets_rec.object_version_number
2594: l_status_code VARCHAR2 (30);
2595:
2596: CURSOR c_status (p_act_budget_id IN NUMBER) IS
2597: SELECT status_code
2598: FROM ozf_act_budgets
2599: WHERE activity_budget_id = p_act_budget_id;
2600: BEGIN
2601: -- Standard Start of API savepoint
2602: SAVEPOINT delete_act_budgets_pvt;
2631: END IF;
2632:
2633: -- Perform the database operation
2634: -- Delete header data
2635: DELETE FROM ozf_act_budgets
2636: WHERE activity_budget_id = l_act_budget_id
2637: AND object_version_number = p_object_version;
2638:
2639: IF SQL%NOTFOUND THEN
2725: l_status_code VARCHAR2 (30);
2726:
2727: CURSOR c_act_budget IS
2728: SELECT status_code
2729: FROM ozf_act_budgets
2730: WHERE activity_budget_id = p_act_budget_id
2731: AND object_version_number = p_object_version
2732: FOR UPDATE OF activity_budget_id NOWAIT;
2733: BEGIN
3060: -- Validate uniqueness
3061: IF p_validation_mode = jtf_plsql_api.g_create
3062: AND p_act_budgets_rec.activity_budget_id IS NOT NULL THEN
3063: IF ozf_utility_pvt.check_uniqueness (
3064: 'ozf_Act_budgets'
3065: , 'ACTIVITY_BUDGET_ID = '
3066: || p_act_budgets_rec.activity_budget_id
3067: ) = fnd_api.g_false THEN
3068: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3337: l_dummy VARCHAR2(3);
3338: l_exc_util_check VARCHAR2(1):= 'F';
3339: CURSOR c_current_amount IS
3340: SELECT approved_amount
3341: FROM ozf_act_budgets
3342: WHERE activity_budget_id = p_act_budgets_rec.activity_budget_id;
3343:
3344: -- Bug Fix 4030115.
3345: -- An offer not autogenerated from a budget should not be allow to make a negative request from a fully accrued budget.
3649: ,x_act_budgets_rec OUT NOCOPY act_budgets_rec_type
3650: ) IS
3651: CURSOR c_budget IS
3652: SELECT *
3653: FROM ozf_act_budgets
3654: WHERE activity_budget_id = p_act_budgets_rec.activity_budget_id;
3655:
3656: l_act_budgets_rec c_budget%ROWTYPE;
3657: BEGIN