1 package body PA_PERF_KPA_TRANS_PKG as
2 /* $Header: PAPEKPTB.pls 120.1 2005/08/19 16:38:52 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_PERF_TXN_ID in NUMBER,
8 X_CREATION_DATE in DATE ,
9 X_CREATED_BY in NUMBER ,
10 X_LAST_UPDATE_DATE in DATE,
11 X_LAST_UPDATED_BY in NUMBER ,
12 X_LAST_UPDATE_LOGIN in NUMBER
13 ) is
14 cursor C is select ROWID from PA_PERF_KPA_TRANS
15 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID
16 and PERF_TXN_ID = X_PERF_TXN_ID
17 ;
18 begin
19 insert into PA_PERF_KPA_TRANS (
20 KPA_SUMMARY_DET_ID,
21 PERF_TXN_ID,
22 CREATION_DATE,
23 CREATED_BY,
24 LAST_UPDATE_DATE,
25 LAST_UPDATED_BY,
26 LAST_UPDATE_LOGIN )
27 values (
28 X_KPA_SUMMARY_DET_ID,
29 X_PERF_TXN_ID,
30 NVL(X_CREATION_DATE,sysdate),
31 NVL(X_CREATED_BY,fnd_global.user_id),
32 NVL(X_LAST_UPDATE_DATE,sysdate),
33 NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
34 NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id));
35
36
37 open c;
38 fetch c into X_ROWID;
39 if (c%notfound) then
40 close c;
41 raise no_data_found;
42 end if;
43 close c;
44
45 end INSERT_ROW;
46
47
48 procedure UPDATE_ROW (
49 X_KPA_SUMMARY_DET_ID in NUMBER,
50 X_PERF_TXN_ID in NUMBER,
51 X_LAST_UPDATE_DATE in DATE ,
52 X_LAST_UPDATED_BY in NUMBER ,
53 X_LAST_UPDATE_LOGIN in NUMBER
54 ) is
55 begin
56 update PA_PERF_KPA_TRANS set
57 KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID,
58 PERF_TXN_ID = X_PERF_TXN_ID,
59 LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,sysdate),
60 LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
61 LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id)
62 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID
63 and PERF_TXN_ID = X_PERF_TXN_ID
64 ;
65
66 if (sql%notfound) then
67 raise no_data_found;
68 end if;
69 end UPDATE_ROW;
70
71 procedure DELETE_ROW (
72 X_KPA_SUMMARY_DET_ID in NUMBER,
73 X_PERF_TXN_ID in NUMBER
74 ) is
75 begin
76 delete from PA_PERF_KPA_TRANS
77 where KPA_SUMMARY_DET_ID = X_KPA_SUMMARY_DET_ID
78 and PERF_TXN_ID = X_PERF_TXN_ID
79 ;
80
81 if (sql%notfound) then
82 raise no_data_found;
83 end if;
84
85 end DELETE_ROW;
86
87
88 end PA_PERF_KPA_TRANS_PKG;