318: --
319: --
320: l_version_gl_status pqh_budget_versions.gl_status%TYPE;
321: --
322: l_gl_encumbrance_type_id gl_encumbrance_types.encumbrance_type_id%TYPE;
323: --
324: l_transfer_to_gl_flag pqh_budgets.transfer_to_gl_flag%TYPE;
325: l_psb_budget_flag pqh_budgets.psb_budget_flag%TYPE;
326: l_default_currency_code gl_interface.currency_code%TYPE;
391: FROM pqh_budget_gl_flex_maps
392: WHERE budget_id = p_budget_id
393: AND payroll_cost_segment IS NULL;
394:
395: cursor csr_gl_encumbrance_types is
396: select encumbrance_type_id
397: from gl_encumbrance_types
398: where encumbrance_type_id = 1000;
399: --
393: AND payroll_cost_segment IS NULL;
394:
395: cursor csr_gl_encumbrance_types is
396: select encumbrance_type_id
397: from gl_encumbrance_types
398: where encumbrance_type_id = 1000;
399: --
400: BEGIN
401: --
756: END IF; -- gl_budget_version_id is null
757: --
758: -- get encumbrance_type_id
759: --
760: open csr_gl_encumbrance_types;
761: fetch csr_gl_encumbrance_types into l_gl_encumbrance_type_id;
762: close csr_gl_encumbrance_types;
763: if l_gl_encumbrance_type_id is null then
764: --
757: --
758: -- get encumbrance_type_id
759: --
760: open csr_gl_encumbrance_types;
761: fetch csr_gl_encumbrance_types into l_gl_encumbrance_type_id;
762: close csr_gl_encumbrance_types;
763: if l_gl_encumbrance_type_id is null then
764: --
765: FND_MESSAGE.SET_NAME('PQH','PQH_GL_ENC_TYP_INVALID');
758: -- get encumbrance_type_id
759: --
760: open csr_gl_encumbrance_types;
761: fetch csr_gl_encumbrance_types into l_gl_encumbrance_type_id;
762: close csr_gl_encumbrance_types;
763: if l_gl_encumbrance_type_id is null then
764: --
765: FND_MESSAGE.SET_NAME('PQH','PQH_GL_ENC_TYP_INVALID');
766: l_message_text_out := FND_MESSAGE.GET;