1 PACKAGE BODY PSA_SLA_PROCESSING_PKG AS
2 --$Header: psaxlacb.pls 120.6 2011/06/15 10:19:49 yanasing ship $
3 ---------------------------------------------------------------------------
4
5 g_path_name CONSTANT VARCHAR2(200) :=
6 'psa.plsql.psaxlacb.psa_sla_processing_pkg';
7 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
8 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
9 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
10 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
11 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
12 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
13 g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14
15
16 PROCEDURE preaccounting
17 (
18 p_application_id IN NUMBER,
19 p_ledger_id IN INTEGER,
20 p_process_category IN VARCHAR2,
21 p_end_date IN DATE,
22 p_accounting_mode IN VARCHAR2,
23 p_valuation_method IN VARCHAR2,
24 p_security_id_int_1 IN INTEGER,
25 p_security_id_int_2 IN INTEGER,
26 p_security_id_int_3 IN INTEGER,
27 p_security_id_char_1 IN VARCHAR2,
28 p_security_id_char_2 IN VARCHAR2,
29 p_security_id_char_3 IN VARCHAR2,
30 p_report_request_id IN INTEGER
31 ) IS
32
33 Begin
34 Null;
35 End;
36
37
38
39
40 PROCEDURE extract
41 (
42 p_application_id IN NUMBER,
43 p_accounting_mode IN VARCHAR2
44 ) IS
45
46 Begin
47 Null;
48 End;
49
50
51
52
53 PROCEDURE postprocessing
54 (
55 p_application_id IN NUMBER,
56 p_accounting_mode IN VARCHAR2
57 )
58 IS
59 l_path_name VARCHAR2(1024);
60 BEGIN
61 l_path_name := g_path_name || '.postprocessing';
62 psa_utils.debug_other_string(g_state_level,l_path_name, 'BEGIN of procedure postprocessing ' );
63 -- Bug 11856887 : Removed the application payables as the changes done for
64 -- the enhancement 11855000 are initially applicable for payables only
65 IF (p_application_id NOT IN (707)) THEN
66 RETURN;
67 END IF;
68
69 IF (p_accounting_mode <> 'F') THEN
70 RETURN;
71 END IF;
72
73 /* Modifying the SQL as per instructions in Bug#9773323 */
74 UPDATE xla_ae_headers ae1
75 SET funds_status_code = 'S'
76 WHERE (ae1.event_id, ae1.application_id) IN
77 (SELECT e.event_id,
78 e.application_id
79 FROM xla_events_gt e,
80 gl_ledgers l
81 WHERE e.application_id = p_application_id
82 AND e.process_status_code = 'P'
83 AND e.ledger_id = l.ledger_id
84 AND e.budgetary_control_flag = 'N'
85 AND l.enable_budgetary_control_flag = 'Y');
86
87 psa_utils.debug_other_string(g_state_level,l_path_name, 'Updated '||SQL%ROWCOUNT||' rows.' );
88 EXCEPTION
89 WHEN NO_DATA_FOUND THEN
90 psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
91 WHEN OTHERS THEN
92 psa_utils.debug_other_string(g_excep_level,l_path_name,'EXCEPTION: '|| SQLERRM(sqlcode));
93 RAISE;
94 End;
95
96
97
98
99 PROCEDURE postaccounting
100 (
101 p_application_id IN NUMBER,
102 p_ledger_id IN INTEGER,
103 p_process_category IN VARCHAR2,
104 p_end_date IN DATE,
105 p_accounting_mode IN VARCHAR2,
106 p_valuation_method IN VARCHAR2,
107 p_security_id_int_1 IN INTEGER,
108 p_security_id_int_2 IN INTEGER,
109 p_security_id_int_3 IN INTEGER,
110 p_security_id_char_1 IN VARCHAR2,
111 p_security_id_char_2 IN VARCHAR2,
112 p_security_id_char_3 IN VARCHAR2,
113 p_report_request_id IN INTEGER
114 )
115 IS
116
117 Begin
118 Null;
119 End;
120
121
122 END psa_sla_processing_pkg; -- Package spec
123
[Home] [Help]