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