[Home] [Help]
PACKAGE BODY: APPS.XDP_WI_PARAMETERS_PKG
Source
1 package body XDP_WI_PARAMETERS_PKG as
2 /* $Header: XDPWIPAB.pls 120.1 2005/06/16 02:47:20 appldev $ */
3 procedure INSERT_ROW (
4 X_ROWID in OUT NOCOPY VARCHAR2,
5 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
6 -- X_WI_PARAMETER_ID is dropped in 11.5.6
7 -- X_WI_PARAMETER_ID in NUMBER,
8 X_PARAMETER_NAME in VARCHAR2,
9 X_WORKITEM_ID in NUMBER,
10 X_REQUIRED_FLAG in VARCHAR2,
11 X_LOG_IN_AUDIT_TRAIL_FLAG in VARCHAR2,
12 X_VALUE_LOOKUP_SQL in VARCHAR2,
13 X_VALIDATION_PROCEDURE in VARCHAR2,
14 X_EVALUATION_MODE in VARCHAR2,
15 X_EVALUATION_SEQ in NUMBER,
16 X_EVALUATION_PROCEDURE in VARCHAR2,
17 X_DISPLAY_SEQ in NUMBER,
18 X_DEFAULT_VALUE in VARCHAR2,
19 X_CREATION_DATE in DATE,
20 X_CREATED_BY in NUMBER,
21 X_LAST_UPDATE_DATE in DATE,
22 X_LAST_UPDATED_BY in NUMBER,
23 X_LAST_UPDATE_LOGIN in NUMBER
24 ) is
25 cursor C is
26 select ROWID
27 from XDP_WI_PARAMETERS
28 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
29 -- where WI_PARAMETER_ID = X_WI_PARAMETER_ID
30 where PARAMETER_NAME = X_PARAMETER_NAME
31 and WORKITEM_ID = X_WORKITEM_ID;
32
33 begin
34 insert into XDP_WI_PARAMETERS (
35 WORKITEM_ID,
36 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
37 -- WI_PARAMETER_ID,
38 PARAMETER_NAME,
39 REQUIRED_FLAG,
40 LOG_IN_AUDIT_TRAIL_FLAG,
41 VALUE_LOOKUP_SQL,
42 VALIDATION_PROCEDURE,
43 EVALUATION_MODE,
44 EVALUATION_SEQ,
45 EVALUATION_PROCEDURE,
46 DISPLAY_SEQ,
47 DEFAULT_VALUE,
48 CREATED_BY,
49 CREATION_DATE,
50 LAST_UPDATE_DATE,
51 LAST_UPDATED_BY,
52 LAST_UPDATE_LOGIN
53 ) values (
54 X_WORKITEM_ID,
55 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
56 -- X_WI_PARAMETER_ID,
57 X_PARAMETER_NAME,
58 X_REQUIRED_FLAG,
59 X_LOG_IN_AUDIT_TRAIL_FLAG,
60 X_VALUE_LOOKUP_SQL,
61 X_VALIDATION_PROCEDURE,
62 X_EVALUATION_MODE,
63 X_EVALUATION_SEQ,
64 X_EVALUATION_PROCEDURE,
65 X_DISPLAY_SEQ,
66 X_DEFAULT_VALUE,
67 X_CREATED_BY,
68 X_CREATION_DATE,
69 X_LAST_UPDATE_DATE,
70 X_LAST_UPDATED_BY,
71 X_LAST_UPDATE_LOGIN
72 );
73
74 open c;
75 fetch c into X_ROWID;
76 if (c%notfound) then
77 close c;
78 raise no_data_found;
79 end if;
80 close c;
81
82 end INSERT_ROW;
83
84 procedure LOCK_ROW (
85 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
86 -- X_WI_PARAMETER_ID in NUMBER,
87 X_PARAMETER_NAME in VARCHAR2,
88 X_WORKITEM_ID in NUMBER,
89 X_REQUIRED_FLAG in VARCHAR2,
90 X_LOG_IN_AUDIT_TRAIL_FLAG in VARCHAR2,
91 X_VALUE_LOOKUP_SQL in VARCHAR2,
92 X_VALIDATION_PROCEDURE in VARCHAR2,
93 X_EVALUATION_MODE in VARCHAR2,
94 X_EVALUATION_SEQ in NUMBER,
95 X_EVALUATION_PROCEDURE in VARCHAR2,
96 X_DISPLAY_SEQ in NUMBER,
97 X_DEFAULT_VALUE in VARCHAR2
98 ) is
99 cursor c1 is select
100 REQUIRED_FLAG,
101 LOG_IN_AUDIT_TRAIL_FLAG,
102 VALUE_LOOKUP_SQL,
103 VALIDATION_PROCEDURE,
104 EVALUATION_MODE,
105 EVALUATION_SEQ,
106 EVALUATION_PROCEDURE,
107 DISPLAY_SEQ,
108 DEFAULT_VALUE
109 from XDP_WI_PARAMETERS
110 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
111 -- where WI_PARAMETER_ID = X_WI_PARAMETER_ID
112 where PARAMETER_NAME = X_PARAMETER_NAME
113 and WORKITEM_ID = X_WORKITEM_ID
114 -- skilaru 7/17/01 WI_PARAMETER_ID column dropped
115 -- for update of WI_PARAMETER_ID nowait;
116 for update of PARAMETER_NAME nowait;
117
118 begin
119 for tlinfo in c1 loop
120 if ( ((tlinfo.DEFAULT_VALUE = X_DEFAULT_VALUE)
121 OR ((tlinfo.DEFAULT_VALUE is null) AND (X_DEFAULT_VALUE is null)))
122 AND (tlinfo.REQUIRED_FLAG = X_REQUIRED_FLAG)
123 AND ((tlinfo.LOG_IN_AUDIT_TRAIL_FLAG = X_LOG_IN_AUDIT_TRAIL_FLAG)
124 OR ((tlinfo.LOG_IN_AUDIT_TRAIL_FLAG is null) AND (X_LOG_IN_AUDIT_TRAIL_FLAG is null)))
125 AND ((tlinfo.VALUE_LOOKUP_SQL = X_VALUE_LOOKUP_SQL)
126 OR ((tlinfo.VALUE_LOOKUP_SQL is null) AND (X_VALUE_LOOKUP_SQL is null)))
127 AND ((tlinfo.VALIDATION_PROCEDURE = X_VALIDATION_PROCEDURE)
128 OR ((tlinfo.VALIDATION_PROCEDURE is null) AND (X_VALIDATION_PROCEDURE is null)))
129 AND ((tlinfo.EVALUATION_MODE = X_EVALUATION_MODE)
130 OR ((tlinfo.EVALUATION_MODE is null) AND (X_EVALUATION_MODE is null)))
131 AND ((tlinfo.EVALUATION_SEQ = X_EVALUATION_SEQ)
132 OR ((tlinfo.EVALUATION_SEQ is null) AND (X_EVALUATION_SEQ is null)))
133 AND ((tlinfo.EVALUATION_PROCEDURE = X_EVALUATION_PROCEDURE)
134 OR ((tlinfo.EVALUATION_PROCEDURE is null) AND (X_EVALUATION_PROCEDURE is null)))
135 AND ((tlinfo.DISPLAY_SEQ = X_DISPLAY_SEQ)
136 OR ((tlinfo.DISPLAY_SEQ is null) AND (X_DISPLAY_SEQ is null)))
137 ) then
138 null;
139 else
140 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
141 app_exception.raise_exception;
142 end if;
143 end loop;
144 return;
145 end LOCK_ROW;
146
147 procedure UPDATE_ROW (
148 -- skilaru 7/17/01 WI_PARAMETER_ID dropped
149 -- X_WI_PARAMETER_ID in NUMBER,
150 X_PARAMETER_NAME in VARCHAR2,
151 X_WORKITEM_ID in NUMBER,
152 X_REQUIRED_FLAG in VARCHAR2,
153 X_LOG_IN_AUDIT_TRAIL_FLAG in VARCHAR2,
154 X_VALUE_LOOKUP_SQL in VARCHAR2,
155 X_VALIDATION_PROCEDURE in VARCHAR2,
156 X_EVALUATION_MODE in VARCHAR2,
157 X_EVALUATION_SEQ in NUMBER,
158 X_EVALUATION_PROCEDURE in VARCHAR2,
159 X_DISPLAY_SEQ in NUMBER,
160 X_DEFAULT_VALUE in VARCHAR2,
161 X_LAST_UPDATE_DATE in DATE,
162 X_LAST_UPDATED_BY in NUMBER,
163 X_LAST_UPDATE_LOGIN in NUMBER
164 ) is
165 begin
166 update XDP_WI_PARAMETERS set
167 REQUIRED_FLAG = X_REQUIRED_FLAG,
168 LOG_IN_AUDIT_TRAIL_FLAG = X_LOG_IN_AUDIT_TRAIL_FLAG,
169 VALUE_LOOKUP_SQL = X_VALUE_LOOKUP_SQL,
170 VALIDATION_PROCEDURE = X_VALIDATION_PROCEDURE,
171 EVALUATION_MODE = X_EVALUATION_MODE,
172 EVALUATION_SEQ = X_EVALUATION_SEQ,
173 EVALUATION_PROCEDURE = X_EVALUATION_PROCEDURE,
174 DISPLAY_SEQ = X_DISPLAY_SEQ,
175 DEFAULT_VALUE = X_DEFAULT_VALUE,
176 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
177 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
178 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
179 -- skilaru 7/17/01 WI_PARAMETER_ID is dropped
180 -- where WI_PARAMETER_ID = X_WI_PARAMETER_ID
181 where PARAMETER_NAME = X_PARAMETER_NAME
182 and WORKITEM_ID = X_WORKITEM_ID;
183
184 if (sql%notfound) then
185 raise no_data_found;
186 end if;
187 end UPDATE_ROW;
188
189 procedure DELETE_ROW (
190 -- skilaru 7/17/01 WI_PARAMETER_ID dropped
191 -- X_WI_PARAMETER_ID in NUMBER,
192 X_PARAMETER_NAME in VARCHAR2,
193 X_WORKITEM_ID in NUMBER
194 ) is
195 begin
196 delete from XDP_WI_PARAMETERS
197 -- skilaru 7/17/01 WI_PARAMETER_ID dropped
198 -- where WI_PARAMETER_ID = X_WI_PARAMETER_ID
199 where PARAMETER_NAME = X_PARAMETER_NAME
200 and WORKITEM_ID = X_WORKITEM_ID;
201
202 if (sql%notfound) then
203 raise no_data_found;
204 end if;
205
206 end DELETE_ROW;
207
208 end XDP_WI_PARAMETERS_PKG;