[Home] [Help]
PACKAGE BODY: APPS.PA_PERF_KPA_SUMMARY_PKG
Source
1 package body PA_PERF_KPA_SUMMARY_PKG as
2 /* $Header: PAPEESTB.pls 120.1 2005/08/19 16:38:39 mwasowic noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_KPA_SUMMARY_ID in NUMBER,
7 X_OBJECT_TYPE in VARCHAR2,
8 X_OBJECT_ID in NUMBER,
9 X_DATE_CHECKED in DATE,
10 X_CURRENT_FLAG in VARCHAR2,
11 X_PERF_STATUS_CODE in VARCHAR2,
12 X_KPA1_CODE in VARCHAR2,
13 X_KPA1_INDICATOR in VARCHAR2,
14 X_KPA1_SCORE in NUMBER,
15 X_KPA1_THRES_FROM in VARCHAR2,
16 X_KPA1_THRES_TO in VARCHAR2,
17 X_KPA2_CODE in VARCHAR2,
18 X_KPA2_INDICATOR in VARCHAR2,
19 X_KPA2_SCORE in NUMBER,
20 X_KPA2_THRES_FROM in VARCHAR2,
21 X_KPA2_THRES_TO in VARCHAR2,
22 X_KPA3_CODE in VARCHAR2,
23 X_KPA3_INDICATOR in VARCHAR2,
24 X_KPA3_SCORE in NUMBER,
25 X_KPA3_THRES_FROM in VARCHAR2,
26 X_KPA3_THRES_TO in VARCHAR2,
27 X_KPA4_CODE in VARCHAR2,
28 X_KPA4_INDICATOR in VARCHAR2,
29 X_KPA4_SCORE in NUMBER,
30 X_KPA4_THRES_FROM in VARCHAR2,
31 X_KPA4_THRES_TO in VARCHAR2,
32 X_KPA5_CODE in VARCHAR2,
33 X_KPA5_INDICATOR in VARCHAR2,
34 X_KPA5_SCORE in NUMBER,
35 X_KPA5_THRES_FROM in VARCHAR2,
36 X_KPA5_THRES_TO in VARCHAR2,
37 X_CREATION_DATE in DATE,
38 X_CREATED_BY in NUMBER,
39 X_LAST_UPDATE_DATE in DATE,
40 X_LAST_UPDATED_BY in NUMBER,
41 X_LAST_UPDATE_LOGIN in NUMBER
42 ) is
43 cursor C is select ROWID from PA_PERF_KPA_SUMMARY
44 where KPA_SUMMARY_ID = X_KPA_SUMMARY_ID
45 ;
46 begin
47 insert into PA_PERF_KPA_SUMMARY (
48 KPA_SUMMARY_ID,
49 OBJECT_TYPE,
50 OBJECT_ID,
51 DATE_CHECKED,
52 CURRENT_FLAG,
53 PERF_STATUS_CODE,
54 KPA1_CODE,
55 KPA1_INDICATOR,
56 KPA1_SCORE,
57 KPA1_THRES_FROM,
58 KPA1_THRES_TO,
59 KPA2_CODE,
60 KPA2_INDICATOR,
61 KPA2_SCORE,
62 KPA2_THRES_FROM,
63 KPA2_THRES_TO,
64 KPA3_CODE,
65 KPA3_INDICATOR,
66 KPA3_SCORE,
67 KPA3_THRES_FROM,
68 KPA3_THRES_TO,
69 KPA4_CODE,
70 KPA4_INDICATOR,
71 KPA4_SCORE,
72 KPA4_THRES_FROM,
73 KPA4_THRES_TO,
74 KPA5_CODE,
75 KPA5_INDICATOR,
76 KPA5_SCORE,
77 KPA5_THRES_FROM,
78 KPA5_THRES_TO,
79 CREATION_DATE,
80 CREATED_BY,
81 LAST_UPDATE_DATE,
82 LAST_UPDATED_BY,
83 LAST_UPDATE_LOGIN )
84 values (
85 X_KPA_SUMMARY_ID,
86 X_OBJECT_TYPE,
87 X_OBJECT_ID,
88 X_DATE_CHECKED,
89 X_CURRENT_FLAG,
90 X_PERF_STATUS_CODE,
91 X_KPA1_CODE,
92 X_KPA1_INDICATOR,
93 X_KPA1_SCORE,
94 X_KPA1_THRES_FROM,
95 X_KPA1_THRES_TO,
96 X_KPA2_CODE,
97 X_KPA2_INDICATOR,
98 X_KPA2_SCORE,
99 X_KPA2_THRES_FROM,
100 X_KPA2_THRES_TO,
101 X_KPA3_CODE,
102 X_KPA3_INDICATOR,
103 X_KPA3_SCORE,
104 X_KPA3_THRES_FROM,
105 X_KPA3_THRES_TO,
106 X_KPA4_CODE,
107 X_KPA4_INDICATOR,
108 X_KPA4_SCORE,
109 X_KPA4_THRES_FROM,
110 X_KPA4_THRES_TO,
111 X_KPA5_CODE,
112 X_KPA5_INDICATOR,
113 X_KPA5_SCORE,
114 X_KPA5_THRES_FROM,
115 X_KPA5_THRES_TO,
116 NVL(X_CREATION_DATE,sysdate),
117 NVL(X_CREATED_BY,fnd_global.user_id),
118 NVL(X_LAST_UPDATE_DATE,sysdate),
119 NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
120 NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id));
121
122 open c;
123 fetch c into X_ROWID;
124 if (c%notfound) then
125 close c;
126 raise no_data_found;
127 end if;
128 close c;
129
130 end INSERT_ROW;
131
132
133
134 procedure UPDATE_ROW (
135 X_KPA_SUMMARY_ID in NUMBER,
136 X_OBJECT_TYPE in VARCHAR2,
137 X_OBJECT_ID in NUMBER,
138 X_DATE_CHECKED in DATE,
139 X_CURRENT_FLAG in VARCHAR2,
140 X_PERF_STATUS_CODE in VARCHAR2,
141 X_KPA1_CODE in VARCHAR2,
142 X_KPA1_INDICATOR in VARCHAR2,
143 X_KPA1_SCORE in NUMBER,
144 X_KPA1_THRES_FROM in VARCHAR2,
145 X_KPA1_THRES_TO in VARCHAR2,
146 X_KPA2_CODE in VARCHAR2,
147 X_KPA2_INDICATOR in VARCHAR2,
148 X_KPA2_SCORE in NUMBER,
149 X_KPA2_THRES_FROM in VARCHAR2,
150 X_KPA2_THRES_TO in VARCHAR2,
151 X_KPA3_CODE in VARCHAR2,
152 X_KPA3_INDICATOR in VARCHAR2,
153 X_KPA3_SCORE in NUMBER,
154 X_KPA3_THRES_FROM in VARCHAR2,
155 X_KPA3_THRES_TO in VARCHAR2,
156 X_KPA4_CODE in VARCHAR2,
157 X_KPA4_INDICATOR in VARCHAR2,
158 X_KPA4_SCORE in NUMBER,
159 X_KPA4_THRES_FROM in VARCHAR2,
160 X_KPA4_THRES_TO in VARCHAR2,
161 X_KPA5_CODE in VARCHAR2,
162 X_KPA5_INDICATOR in VARCHAR2,
163 X_KPA5_SCORE in NUMBER,
164 X_KPA5_THRES_FROM in VARCHAR2,
165 X_KPA5_THRES_TO in VARCHAR2,
166 X_LAST_UPDATE_DATE in DATE ,
167 X_LAST_UPDATED_BY in NUMBER ,
168 X_LAST_UPDATE_LOGIN in NUMBER
169 ) is
170 begin
171 update PA_PERF_KPA_SUMMARY set
172 OBJECT_TYPE = X_OBJECT_TYPE,
173 OBJECT_ID = X_OBJECT_ID,
174 DATE_CHECKED = X_DATE_CHECKED,
175 CURRENT_FLAG = X_CURRENT_FLAG,
176 PERF_STATUS_CODE = X_PERF_STATUS_CODE,
177 KPA1_CODE = X_KPA1_CODE,
178 KPA1_INDICATOR = X_KPA1_INDICATOR,
179 KPA1_SCORE = X_KPA1_SCORE,
180 KPA1_THRES_FROM = X_KPA1_THRES_FROM,
181 KPA1_THRES_TO = X_KPA1_THRES_FROM,
182 KPA2_CODE = X_KPA2_CODE,
183 KPA2_INDICATOR = X_KPA2_INDICATOR,
184 KPA2_SCORE = X_KPA2_SCORE,
185 KPA2_THRES_FROM = X_KPA2_THRES_FROM,
186 KPA2_THRES_TO = X_KPA2_THRES_FROM,
187 KPA3_CODE = X_KPA3_CODE,
188 KPA3_INDICATOR = X_KPA3_INDICATOR,
189 KPA3_SCORE = X_KPA3_SCORE,
190 KPA3_THRES_FROM = X_KPA3_THRES_FROM,
191 KPA3_THRES_TO = X_KPA3_THRES_FROM,
192 KPA4_CODE = X_KPA4_CODE,
193 KPA4_INDICATOR = X_KPA4_INDICATOR,
194 KPA4_SCORE = X_KPA4_SCORE,
195 KPA4_THRES_FROM = X_KPA4_THRES_FROM,
196 KPA4_THRES_TO = X_KPA4_THRES_FROM,
197 KPA5_CODE = X_KPA5_CODE,
198 KPA5_INDICATOR = X_KPA5_INDICATOR,
199 KPA5_SCORE = X_KPA5_SCORE,
200 KPA5_THRES_FROM = X_KPA5_THRES_FROM,
201 KPA5_THRES_TO = X_KPA5_THRES_FROM,
202 KPA_SUMMARY_ID = X_KPA_SUMMARY_ID,
203 LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,sysdate),
204 LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
205 LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id)
206 where KPA_SUMMARY_ID = X_KPA_SUMMARY_ID
207 ;
208
209 if (sql%notfound) then
210 raise no_data_found;
211 end if;
212 end UPDATE_ROW;
213
214 procedure DELETE_ROW (
215 X_KPA_SUMMARY_ID in NUMBER
216 ) is
217 begin
218 delete from PA_PERF_KPA_SUMMARY
219 where KPA_SUMMARY_ID = X_KPA_SUMMARY_ID;
220
221 if (sql%notfound) then
222 raise no_data_found;
223 end if;
224
225 end DELETE_ROW;
226
227
228 end PA_PERF_KPA_SUMMARY_PKG;