1 package body PA_PERF_BZ_MEASURES_PKG as
2 /* $Header: PAPEBZTB.pls 120.1 2005/08/19 16:38:09 mwasowic noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_MEASURE_ID in NUMBER,
7 X_BZ_EVENT_CODE in VARCHAR2,
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_BZ_MEASURES
15 where MEASURE_ID = X_MEASURE_ID
16 ;
17 begin
18 insert into PA_PERF_BZ_MEASURES (
19 MEASURE_ID,
20 BZ_EVENT_CODE,
21 CREATION_DATE,
22 CREATED_BY,
23 LAST_UPDATE_DATE,
24 LAST_UPDATED_BY,
25 LAST_UPDATE_LOGIN)
26 values (
27 X_MEASURE_ID,
28 X_BZ_EVENT_CODE,
29 NVL(X_CREATION_DATE,sysdate),
30 NVL(X_CREATED_BY,fnd_global.user_id),
31 NVL(X_LAST_UPDATE_DATE,sysdate),
32 NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
33 NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id));
34
35 open c;
36 fetch c into X_ROWID;
37 if (c%notfound) then
38 close c;
39 raise no_data_found;
40 end if;
41 close c;
42
43 end INSERT_ROW;
44
45 procedure UPDATE_ROW (
46 X_MEASURE_ID in NUMBER,
47 X_BZ_EVENT_CODE in VARCHAR2,
48 X_LAST_UPDATE_DATE in DATE,
49 X_LAST_UPDATED_BY in NUMBER,
50 X_LAST_UPDATE_LOGIN in NUMBER
51 ) is
52 begin
53 update PA_PERF_BZ_MEASURES set
54 BZ_EVENT_CODE = X_BZ_EVENT_CODE,
55 MEASURE_ID = X_MEASURE_ID,
56 LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,sysdate),
57 LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,fnd_global.user_id),
58 LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,fnd_global.login_id)
59 where MEASURE_ID = X_MEASURE_ID
60 ;
61
62 if (sql%notfound) then
63 raise no_data_found;
64 end if;
65 end UPDATE_ROW;
66
67 procedure DELETE_ROW (
68 X_MEASURE_ID in NUMBER
69 ) is
70 begin
71 delete from PA_PERF_BZ_MEASURES
72 where MEASURE_ID = X_MEASURE_ID;
73
74 if (sql%notfound) then
75 raise no_data_found;
76 end if;
77
78 end DELETE_ROW;
79
80
81 end PA_PERF_BZ_MEASURES_PKG;