[Home] [Help]
451: EXIT WHEN c_cbc_je_lines%NOTFOUND;
452:
453: SELECT decode(l_cbc_je_lines.JE_SOURCE, 'Contract Commitment', 'CC', 'Project Accounting', 'PA', 'Requisitions', 'REQ', 'Purchasing', 'PO', 'INV')
454: INTO x_doc_type
455: FROM DUAL;
456:
457: INSERT INTO igc_cc_interface(
458: CC_HEADER_ID,
459: CC_VERSION_NUM,
693: BEGIN
694: l_full_path := g_path || 'get_new_name';
695:
696: if lengthb(p_old_name) <= p_len then
697: select p_old_name||'_MIG' into p_new_name from dual;
698:
699: else
700: select substrb(p_old_name,1,decode(instrb(p_old_name,'_',-1),p_len,p_len-1,p_len))||'_MIG' into p_new_name
701: from dual;
697: select p_old_name||'_MIG' into p_new_name from dual;
698:
699: else
700: select substrb(p_old_name,1,decode(instrb(p_old_name,'_',-1),p_len,p_len-1,p_len))||'_MIG' into p_new_name
701: from dual;
702:
703: end if;
704: IF p_flag = 'BUD' THEN
705: select count(*) into cnt from gl_budgets
1034: select chart_of_accounts_id into v_coa_id
1035: from gl_ledgers where ledger_id = g_cbc_ledger_id;
1036:
1037: select gl_budget_assignment_ranges_s.NEXTVAL into v_new_range_id
1038: from dual;
1039: BEGIN
1040: GL_BUD_ASSIGN_RANGE_PKG.Insert_Row(
1041: X_Rowid => v_range_id,
1042: X_Budget_Entity_Id => p_budget_entity_id,
1611:
1612: BEGIN
1613: SELECT '1'
1614: INTO l_dummy
1615: FROM DUAL
1616: WHERE EXISTS
1617: (SELECT 1
1618: FROM igc_cbc_je_lines igc
1619: where budget_version_id is NOT null
1975: IF p_balance_type = 'E' THEN
1976: BEGIN
1977: SELECT '1'
1978: INTO l_dummy
1979: FROM DUAL
1980: WHERE EXISTS
1981: (SELECT 1
1982: FROM igc_cbc_je_lines igc
1983: where budget_version_id is NOT null