[Home] [Help]
PACKAGE BODY: APPS.PJI_SYSTEM_SETTINGS_PKG
Source
1 PACKAGE BODY PJI_SYSTEM_SETTINGS_PKG AS
2 /* $Header: PJISYSTB.pls 120.0 2005/05/29 12:45:43 appldev noship $ */
3 PROCEDURE insert_row (
4 p_setting_id IN NUMBER,
5 p_pa_period_flag IN VARCHAR2,
6 p_gl_period_flag IN VARCHAR2,
7 p_planamt_alloc_method IN VARCHAR2,
8 p_prj_curr_flag IN VARCHAR2,
9 p_projfunc_curr_flag IN VARCHAR2,
10 p_curr_rep_pa_period IN VARCHAR2,
11 p_curr_rep_gl_period IN VARCHAR2,
12 p_curr_rep_ent_period IN VARCHAR2,
13 p_plan_amt_conv_date IN VARCHAR2,
14 p_global_curr2_flag IN VARCHAR2,
15 p_txn_curr_flag IN VARCHAR2, -- Added for bug 4167173
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2
19 ) IS
20 BEGIN
21
22 INSERT INTO pji_system_settings (
23 SETTING_ID ,
24 PA_PERIOD_FLAG ,
25 GL_PERIOD_FLAG ,
26 PLANAMT_ALLOC_METHOD ,
27 PRJ_CURR_FLAG ,
28 PROJFUNC_CURR_FLAG ,
29 CURR_REP_PA_PERIOD ,
30 CURR_REP_GL_PERIOD ,
31 CURR_REP_ENT_PERIOD ,
32 PLANAMT_CONV_DATE,
33 GLOBAL_CURR2_FLAG,
34 TXN_CURR_FLAG,
35 LAST_UPDATE_DATE,
36 LAST_UPDATED_BY,
37 CREATION_DATE,
38 CREATED_BY,
39 LAST_UPDATE_LOGIN
40 ) VALUES (
41 p_SETTING_ID ,
42 p_PA_PERIOD_FLAG ,
43 p_GL_PERIOD_FLAG ,
44 p_PLANAMT_ALLOC_METHOD ,
45 p_PRJ_CURR_FLAG ,
46 p_PROJFUNC_CURR_FLAG ,
47 p_CURR_REP_PA_PERIOD ,
48 p_CURR_REP_GL_PERIOD ,
49 p_CURR_REP_ENT_PERIOD ,
50 p_PLAN_AMT_CONV_DATE ,
51 p_global_curr2_flag,
52 p_txn_curr_flag,
53 sysdate ,
54 fnd_global.user_id ,
55 sysdate ,
56 fnd_global.user_id ,
57 fnd_global.login_id
58 ) ;
59
60 EXCEPTION
61 WHEN OTHERS THEN -- catch the exceptions here
62 RAISE;
63 END insert_row;
64
65 PROCEDURE update_row (
66 p_setting_id IN NUMBER,
67 p_pa_period_flag IN VARCHAR2,
68 p_gl_period_flag IN VARCHAR2,
69 p_planamt_alloc_method IN VARCHAR2,
70 p_prj_curr_flag IN VARCHAR2,
71 p_projfunc_curr_flag IN VARCHAR2,
72 p_curr_rep_pa_period IN VARCHAR2,
73 p_curr_rep_gl_period IN VARCHAR2,
74 p_curr_rep_ent_period IN VARCHAR2,
75 p_plan_amt_conv_date IN VARCHAR2,
76 p_global_curr2_flag IN VARCHAR2,
77 p_txn_curr_flag IN VARCHAR2, -- Added for bug 4167173
78 x_return_status OUT NOCOPY VARCHAR2,
79 x_msg_count OUT NOCOPY NUMBER,
80 x_msg_data OUT NOCOPY VARCHAR2
81 ) IS
82 l_return_status VARCHAR2(15);
83 l_msg_count NUMBER;
84 l_msg_data VARCHAR2(30);
85 BEGIN
86
87 UPDATE pji_system_settings SET
88 PA_PERIOD_FLAG = p_PA_PERIOD_FLAG,
89 GL_PERIOD_FLAG = p_GL_PERIOD_FLAG,
90 PLANAMT_ALLOC_METHOD = p_PLANAMT_ALLOC_METHOD,
91 PRJ_CURR_FLAG = p_PRJ_CURR_FLAG,
92 PROJFUNC_CURR_FLAG = p_PROJFUNC_CURR_FLAG,
93 CURR_REP_PA_PERIOD = p_CURR_REP_PA_PERIOD,
94 CURR_REP_GL_PERIOD = p_CURR_REP_GL_PERIOD,
95 CURR_REP_ENT_PERIOD = p_CURR_REP_ENT_PERIOD,
96 PLANAMT_CONV_DATE = p_PLAN_AMT_CONV_DATE,
97 GLOBAL_CURR2_FLAG = p_global_curr2_flag,
98 TXN_CURR_FLAG = p_txn_curr_flag,
99 LAST_UPDATE_DATE = sysdate,
100 LAST_UPDATED_BY = fnd_global.user_id,
101 LAST_UPDATE_LOGIN = fnd_global.login_id;
102 IF SQL%ROWCOUNT = 0 THEN
103 insert_row(
104 p_SETTING_ID , --setting_id would be coming from page as 1
105 p_PA_PERIOD_FLAG ,
106 p_GL_PERIOD_FLAG ,
107 p_PLANAMT_ALLOC_METHOD ,
108 p_PRJ_CURR_FLAG ,
109 p_PROJFUNC_CURR_FLAG ,
110 p_CURR_REP_PA_PERIOD ,
111 p_CURR_REP_GL_PERIOD ,
112 p_CURR_REP_ENT_PERIOD ,
113 p_PLAN_AMT_CONV_DATE,
114 p_global_curr2_flag,
115 p_txn_curr_flag,
116 l_return_status,
117 l_msg_count,
118 l_msg_data
119 );
120 END IF;
121
122 END update_row;
123
124 PROCEDURE delete_row (
125 p_setting_id IN NUMBER,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2
129 ) IS
130 BEGIN
131
132
133 delete from PJI_SYSTEM_SETTINGS where SETTING_ID = p_SETTING_ID;
134
135 END delete_row;
136
137 END; --end package pji_system_settings