[Home] [Help]
392: l_budget_revision_id NUMBER;
393:
394: cursor c_Seq is
395: select psb_budget_revisions_s.nextval budget_revision_id
396: from dual;
397:
398: BEGIN
399:
400: -- Standard Start of API savepoint
736: and a.budget_revision_pos_line_id = b.budget_revision_pos_line_id;
737:
738: cursor c_position_exists is
739: select 'Exists'
740: from dual
741: where exists
742: (select a.position_id, a.effective_start_date, a.effective_end_date, a.budget_group_id
743: from PSB_POSITIONS a,
744: (select budget_group_id from PSB_BUDGET_GROUPS
993: p_msg_data => l_msg_data,
994: p_gl_budget_set_id => g_gl_budget_set_id,
995: p_code_combination_id => p_code_combination_id,
996: p_start_date => l_start_date,
997: p_dual_posting_type => 'A',
998: p_gl_budget_version_id => l_budget_version_id
999: ) ;
1000: --
1001: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2178: and gps.period_name = pbra.gl_period_name;
2179:
2180: CURSOR c_Seq IS
2181: select gl_bc_packets_s.nextval seq
2182: from dual;
2183:
2184: Begin
2185:
2186: -- Standard Start of API savepoint
3357: p_msg_data => l_msg_data,
3358: p_gl_budget_set_id => g_gl_budget_set_id,
3359: p_code_combination_id => PSB_WS_ACCT1.g_ccids(l_ccid_index).ccid,
3360: p_start_date => c_gl_periods_rec.start_date,
3361: p_dual_posting_type => 'A',
3362: p_gl_budget_version_id => l_budget_version_id);
3363:
3364: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3365: raise FND_API.G_EXC_ERROR;
3723: l_global_revision_id NUMBER;
3724:
3725: cursor c_seq is
3726: select psb_budget_revision_pos_line_s.nextval seq
3727: from dual;
3728:
3729: BEGIN
3730:
3731: for c_seq_rec in c_seq loop
6707: p_msg_data => l_msg_data,
6708: p_gl_budget_set_id => g_gl_budget_set_id,
6709: p_code_combination_id => g_revaccts(l_revacct_index).ccid,
6710: p_start_date => l_start_date,
6711: p_dual_posting_type => 'A',
6712: p_gl_budget_version_id => l_gl_budget_version_id);
6713:
6714: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6715: raise FND_API.G_EXC_ERROR;
8143: raise FND_API.G_EXC_ERROR;
8144: end if;
8145:
8146: -- Assign a proper validation status for the Constraint Set based on the validation
8147: -- status for the individual Constraints
8148:
8149: if ((l_consset_validation_status = 'S') and
8150: (l_cons_validation_status <> 'S')) then
8151: l_consset_validation_status := l_cons_validation_status;
8161: else
8162: begin
8163:
8164: -- For a Constraint with the detailed flag set, call this procedure which
8165: -- processes constraints for individual CCIDs. This is to avoid static
8166: -- binding
8167:
8168: Apply_Detailed_Account
8169: (p_return_status => l_return_status,
8178: raise FND_API.G_EXC_ERROR;
8179: end if;
8180:
8181: -- Assign a proper validation status for the Constraint Set based on the validation
8182: -- status for the individual Constraints
8183:
8184: if ((l_consset_validation_status = 'S') and
8185: (l_cons_validation_status <> 'S')) then
8186: l_consset_validation_status := l_cons_validation_status;
10784: /*For Bug No : 2150471 End*/
10785: /*For Bug No : 2129723 Start*/
10786: l_acct_exists VARCHAR2(10);
10787: CURSOR c_acct_exists(l_rule_id NUMBER) IS
10788: SELECT 'exists' result FROM dual WHERE EXISTS
10789: (
10790: SELECT bra.code_combination_id
10791: FROM PSB_BUDGET_REVISION_LINES brl,
10792: PSB_BUDGET_REVISION_ACCOUNTS bra
10897:
10898: /* Bug No 2135165 Start */
10899: g_brr_rule_set_id := c_Brrule_Rec.rule_set_id;
10900: /* Bug No 2135165 End */
10901: -- Call this procedure which apply rules for individual CCIDs
10902: SELECT name, constraint_threshold
10903: INTO l_rule_set_name, l_constraint_threshold
10904: FROM psb_revision_rule_sets_v
10905: WHERE rule_set_id = c_Brrule_Rec.rule_set_id AND