[Home] [Help]
PACKAGE BODY: APPS.IEC_G_REP_REPORTS_VALS_PKG
Source
1 package body IEC_G_REP_REPORTS_VALS_PKG as
2 /* $Header: IECREPVB.pls 115.0 2004/03/24 05:12:27 anayak noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_VALUE_ID in NUMBER,
7 X_PARAM_NAME in VARCHAR2,
8 X_PARAM_VALUE in VARCHAR2,
9 X_REPORT_ID in NUMBER,
10 X_CREATED_BY in NUMBER,
11 X_CREATION_DATE in DATE,
12 X_LAST_UPDATED_BY in NUMBER,
13 X_LAST_UPDATE_DATE in DATE,
14 X_LAST_UPDATE_LOGIN in NUMBER,
15 X_OBJECT_VERSION_NUMBER in NUMBER
16 ) is
17 cursor C is select ROWID
18 from IEC_G_REP_REPORTS_VALS
19 where
20 VALUE_ID = X_VALUE_ID
21 and PARAM_NAME = X_PARAM_NAME
22 and PARAM_VALUE = X_PARAM_VALUE
23 and REPORT_ID = X_REPORT_ID;
24
25 begin
26
27 insert into iec_g_rep_reports_vals
28 ( VALUE_ID,
29 PARAM_NAME,
30 PARAM_VALUE,
31 REPORT_ID,
32 CREATED_BY,
33 CREATION_DATE,
34 LAST_UPDATED_BY,
35 LAST_UPDATE_DATE,
36 LAST_UPDATE_LOGIN,
37 OBJECT_VERSION_NUMBER)
38 values( X_VALUE_ID,
39 X_PARAM_NAME,
40 X_PARAM_VALUE,
41 X_REPORT_ID,
42 X_CREATED_BY,
43 X_CREATION_DATE,
44 X_LAST_UPDATED_BY,
45 X_LAST_UPDATE_DATE,
46 X_LAST_UPDATE_LOGIN,
47 X_OBJECT_VERSION_NUMBER);
48
49 open c;
50 fetch c into X_ROWID;
51 if (c%notfound) then
52 close c;
53 raise no_data_found;
54 end if;
55 close c;
56
57 end INSERT_ROW;
58
59 procedure LOCK_ROW (
60 X_VALUE_ID in NUMBER,
61 X_PARAM_NAME in VARCHAR2,
62 X_PARAM_VALUE in VARCHAR2,
63 X_REPORT_ID in NUMBER,
64 X_OBJECT_VERSION_NUMBER in NUMBER
65 ) is
66 cursor c is select
67 PARAM_NAME,
68 PARAM_VALUE,
69 REPORT_ID,
70 OBJECT_VERSION_NUMBER
71 from iec_g_rep_reports_vals
72 where VALUE_ID = X_VALUE_ID
73 for update of PARAM_NAME, PARAM_VALUE, REPORT_ID, OBJECT_VERSION_NUMBER nowait;
74 recinfo c%rowtype;
75 begin
76 open c;
77 fetch c into recinfo;
78 if (c%notfound) then
79 close c;
80 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
81 app_exception.raise_exception;
82 end if;
83 close c;
84 if ( (recinfo.PARAM_NAME = X_PARAM_NAME)
85 AND (recinfo.PARAM_VALUE = X_PARAM_VALUE)
86 AND (recinfo.REPORT_ID = X_REPORT_ID)
87 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
88 ) then
89 null;
90 else
91 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
92 app_exception.raise_exception;
93 end if;
94 return;
95 end LOCK_ROW;
96
97 procedure UPDATE_ROW (
98 X_VALUE_ID in NUMBER,
99 X_PARAM_NAME in VARCHAR2,
100 X_PARAM_VALUE in VARCHAR2,
101 X_REPORT_ID in NUMBER,
102 X_LAST_UPDATED_BY in NUMBER,
103 X_LAST_UPDATE_DATE in DATE,
104 X_LAST_UPDATE_LOGIN in NUMBER,
105 X_OBJECT_VERSION_NUMBER in NUMBER
106 ) is
107 begin
108
109 update iec_g_rep_reports_vals
110 set LAST_UPDATED_BY = X_LAST_UPDATED_BY,
111 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
112 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
113 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
114 PARAM_NAME = X_PARAM_NAME,
115 PARAM_VALUE = X_PARAM_VALUE,
116 REPORT_ID = X_REPORT_ID
117 where
118 VALUE_ID = X_VALUE_ID;
119
120 if (sql%notfound) then
121 raise no_data_found;
122 end if;
123
124 end UPDATE_ROW;
125
126 procedure DELETE_ROW (
127 X_VALUE_ID in NUMBER
128 ) is
129 begin
130 delete from iec_g_rep_reports_vals
131 where VALUE_ID = X_VALUE_ID;
132
133 if (sql%notfound) then
134 raise no_data_found;
135 end if;
136 end DELETE_ROW;
137
138 procedure LOAD_ROW (
139 X_VALUE_ID in NUMBER,
140 X_PARAM_NAME in VARCHAR2,
141 X_PARAM_VALUE in VARCHAR2,
142 X_REPORT_ID in NUMBER,
143 X_OWNER in VARCHAR2
144 ) is
145 USER_ID NUMBER := 0;
146 ROW_ID VARCHAR2(500);
147 begin
148
149 if (X_OWNER = 'SEED') then
150 USER_ID := 1;
151 end if;
152
153 UPDATE_ROW (X_VALUE_ID, X_PARAM_NAME, X_PARAM_VALUE, X_REPORT_ID, USER_ID, SYSDATE, USER_ID, 0);
154
155 exception
156 when no_data_found then
157 INSERT_ROW (ROW_ID, X_VALUE_ID, X_PARAM_NAME, X_PARAM_VALUE, X_REPORT_ID, 0, SYSDATE, USER_ID, SYSDATE, USER_ID, 0);
158
159 end LOAD_ROW;
160
161 end IEC_G_REP_REPORTS_VALS_PKG;