[Home] [Help]
PACKAGE BODY: APPS.PA_PERF_KPA_SUMDET_PKG
Source
1 package body PA_PERF_KPA_SUMDET_PKG as
2 /* $Header: PAPEEDTB.pls 120.1 2005/08/19 16:38:32 mwasowic noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_KPA_SUMMARY_DET_ID in NUMBER,
7 X_KPA_SUMMARY_ID in NUMBER,
8 X_OBJECT_TYPE in VARCHAR2,
9 X_OBJECT_ID in NUMBER,
10 X_KPA_CODE in VARCHAR2,
11 X_INDICATOR_CODE in VARCHAR2,
12 X_COUNT in NUMBER,
13 X_SCORE in NUMBER,
14 X_RULE_ID in NUMBER,
15 X_IND1_COUNT in NUMBER,
16 X_IND1_SCORE in NUMBER,
17 X_IND2_COUNT in NUMBER,
18 X_IND2_SCORE in NUMBER,
19 X_IND3_COUNT in NUMBER,
20 X_IND3_SCORE in NUMBER,
21 X_IND4_COUNT in NUMBER,
22 X_IND4_SCORE in NUMBER,
23 X_IND5_COUNT in NUMBER,
24 X_IND5_SCORE in NUMBER,
25 X_CREATION_DATE in DATE ,
26 X_CREATED_BY in NUMBER ,
27 X_LAST_UPDATE_DATE in DATE,
28 X_LAST_UPDATED_BY in NUMBER ,
29 X_LAST_UPDATE_LOGIN in NUMBER
30 ) is
31 cursor C is select ROWID from PA_PERF_KPA_SUMMARY_DET
32 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID
33 ;
34 begin
35 insert into PA_PERF_KPA_SUMMARY_DET (
36 KPA_SUMMARY_DET_ID,
37 KPA_SUMMARY_ID,
38 OBJECT_TYPE,
39 OBJECT_ID,
40 KPA_CODE,
41 INDICATOR_CODE,
42 COUNT,
43 SCORE,
44 RULE_ID,
45 IND1_COUNT,
46 IND1_SCORE,
47 IND2_COUNT,
48 IND2_SCORE,
49 IND3_COUNT,
50 IND3_SCORE,
51 IND4_COUNT,
52 IND4_SCORE,
53 IND5_COUNT,
54 IND5_SCORE,
55 CREATION_DATE,
56 CREATED_BY,
57 LAST_UPDATE_DATE,
58 LAST_UPDATED_BY,
59 LAST_UPDATE_LOGIN )
60 values (
61 X_KPA_SUMMARY_DET_ID,
62 X_KPA_SUMMARY_ID,
63 X_OBJECT_TYPE,
64 X_OBJECT_ID,
65 X_KPA_CODE,
66 X_INDICATOR_CODE,
67 X_COUNT,
68 X_SCORE,
69 X_RULE_ID,
70 X_IND1_COUNT,
71 X_IND1_SCORE,
72 X_IND2_COUNT,
73 X_IND2_SCORE,
74 X_IND3_COUNT,
75 X_IND3_SCORE,
76 X_IND4_COUNT,
77 X_IND4_SCORE,
78 X_IND5_COUNT,
79 X_IND5_SCORE,
80 NVL(X_CREATION_DATE,sysdate),
81 NVL(X_CREATED_BY,fnd_global.user_id),
82 NVL(X_LAST_UPDATE_DATE,sysdate),
83 NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
84 NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id));
85
86
87 open c;
88 fetch c into X_ROWID;
89 if (c%notfound) then
90 close c;
91 raise no_data_found;
92 end if;
93 close c;
94
95 end INSERT_ROW;
96
97
98 procedure UPDATE_ROW (
99 X_KPA_SUMMARY_DET_ID in NUMBER,
100 X_KPA_SUMMARY_ID in NUMBER,
101 X_OBJECT_TYPE in VARCHAR2,
102 X_OBJECT_ID in NUMBER,
103 X_KPA_CODE in VARCHAR2,
104 X_INDICATOR_CODE in VARCHAR2,
105 X_COUNT in NUMBER,
106 X_SCORE in NUMBER,
107 X_RULE_ID in NUMBER,
108 X_IND1_COUNT in NUMBER,
109 X_IND1_SCORE in NUMBER,
110 X_IND2_COUNT in NUMBER,
111 X_IND2_SCORE in NUMBER,
112 X_IND3_COUNT in NUMBER,
113 X_IND3_SCORE in NUMBER,
114 X_IND4_COUNT in NUMBER,
115 X_IND4_SCORE in NUMBER,
116 X_IND5_COUNT in NUMBER,
117 X_IND5_SCORE in NUMBER,
118 X_LAST_UPDATE_DATE in DATE ,
119 X_LAST_UPDATED_BY in NUMBER ,
120 X_LAST_UPDATE_LOGIN in NUMBER
121 ) is
122 begin
123 update PA_PERF_KPA_SUMMARY_DET set
124 KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID,
125 KPA_SUMMARY_ID = X_KPA_SUMMARY_ID,
126 OBJECT_TYPE = X_OBJECT_TYPE,
127 OBJECT_ID = X_OBJECT_ID,
128 KPA_CODE = X_KPA_CODE,
129 INDICATOR_CODE = X_INDICATOR_CODE,
130 COUNT = X_COUNT,
131 SCORE = X_SCORE,
132 RULE_ID = X_RULE_ID,
133 IND1_COUNT = X_IND1_COUNT,
134 IND1_SCORE = X_IND1_SCORE,
135 IND2_COUNT = X_IND2_COUNT,
136 IND2_SCORE = X_IND2_SCORE,
137 IND3_COUNT = X_IND3_COUNT,
138 IND3_SCORE = X_IND3_SCORE,
139 IND4_COUNT = X_IND4_COUNT,
140 IND4_SCORE = X_IND4_SCORE,
141 IND5_COUNT = X_IND5_COUNT,
142 IND5_SCORE = X_IND5_SCORE,
143 LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,sysdate),
144 LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
145 LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id)
146 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID
147 ;
148
149 if (sql%notfound) then
150 raise no_data_found;
151 end if;
152 end UPDATE_ROW;
153
154 procedure DELETE_ROW (
155 X_KPA_SUMMARY_DET_ID in NUMBER
156 ) is
157 begin
158 delete from PA_PERF_KPA_SUMMARY_DET
159 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID;
160
161 if (sql%notfound) then
162 raise no_data_found;
163 end if;
164
165 end DELETE_ROW;
166
167
168 end PA_PERF_KPA_SUMDET_PKG;