1: PACKAGE BODY PSA_IMPLEMENTATION AS
2: /* $Header: PSAMFIMB.pls 120.5 2006/09/13 13:11:04 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
1: PACKAGE BODY PSA_IMPLEMENTATION AS
2: /* $Header: PSAMFIMB.pls 120.5 2006/09/13 13:11:04 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
2: /* $Header: PSAMFIMB.pls 120.5 2006/09/13 13:11:04 agovil ship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFIMB.PSA_IMPLEMENTATION.';
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFIMB.PSA_IMPLEMENTATION.';
12: --===========================FND_LOG.END=======================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFIMB.PSA_IMPLEMENTATION.';
12: --===========================FND_LOG.END=======================================
13: --
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFIMB.PSA_IMPLEMENTATION.';
12: --===========================FND_LOG.END=======================================
13: --
14: FUNCTION get (p_org_id IN INTEGER,
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFIMB.PSA_IMPLEMENTATION.';
12: --===========================FND_LOG.END=======================================
13: --
14: FUNCTION get (p_org_id IN INTEGER,
15: p_psa_feature IN VARCHAR2,
16: p_enabled_flag OUT NOCOPY VARCHAR2)
76: PROCEDURE disable_mfar(p_org_id IN INTEGER,
77: p_psa_feature IN VARCHAR2)
78: IS
79: l_enabled_flag varchar2(1);
80: -- ========================= FND LOG ===========================
81: l_full_path VARCHAR2(100) := g_path || 'disable_mfar';
82: -- ========================= FND LOG ===========================
83: BEGIN
84: SELECT status
78: IS
79: l_enabled_flag varchar2(1);
80: -- ========================= FND LOG ===========================
81: l_full_path VARCHAR2(100) := g_path || 'disable_mfar';
82: -- ========================= FND LOG ===========================
83: BEGIN
84: SELECT status
85: INTO l_enabled_flag
86: FROM psa_implementation_all
106: ,p_org_id);
107: WHEN others THEN
108: FND_MESSAGE.SET_NAME ('AR', 'GENERIC_MESSAGE');
109: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', 'Error Package - psa_implementation'||sqlerrm);
110: -- ========================= FND LOG ===========================
111: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
112: -- ========================= FND LOG ===========================
113: APP_EXCEPTION.RAISE_EXCEPTION;
114: END;
108: FND_MESSAGE.SET_NAME ('AR', 'GENERIC_MESSAGE');
109: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', 'Error Package - psa_implementation'||sqlerrm);
110: -- ========================= FND LOG ===========================
111: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
112: -- ========================= FND LOG ===========================
113: APP_EXCEPTION.RAISE_EXCEPTION;
114: END;
115: --
116: END PSA_IMPLEMENTATION;