[Home] [Help]
175: l_temp_date := trunc(sysdate);
176: BEGIN
177: SELECT a.qualifier_id
178: INTO l_qualifier_id
179: FROM qp_qualifiers a
180: WHERE a.qualifier_attr_value = to_char(p_qualifier_attr_value)
181: AND trunc(l_temp_date) between nvl(trunc(start_date_active), trunc(l_temp_date)) and
182: nvl(trunc(end_date_active), trunc(l_temp_date))
183: AND (a.qualifier_context,
190: nvl(b.list_header_id, -1),
191: nvl(b.list_line_id, -1),
192: nvl(qualifier_rule_id, -1),
193: b.qualifier_grouping_no
194: FROM qp_qualifiers b
195: WHERE b.qualifier_id = p_qualifier_id
196: AND b.qualifier_id <> a.qualifier_id)
197: AND rownum = 1;
198:
201: l_qualifier_id := NULL;
202: END;
203: IF l_qualifier_id IS NOT NULL THEN /* Duplicate Exists. Therefore delete
204: the duplicate qualifier */
205: DELETE qp_qualifiers
206: WHERE qualifier_id = l_qualifier_id;
207: END IF;
208: END Check_Duplicate;
209: --End procedure for bug 8399386
212: |
213: | PROCEDURE
214: | Qualifier_Merge
215: | DESCRIPTION :
216: | Account merge procedure for the table, QP_QUALIFIERS
217: |
218: | NOTES:
219: | ******* Please delete these lines after modifications *******
220: | This account merge procedure was generated using a perl script.
238: INDEX BY BINARY_INTEGER;
239: MERGE_HEADER_ID_LIST MERGE_HEADER_ID_LIST_TYPE;
240:
241: TYPE qualifier_id_LIST_TYPE IS TABLE OF
242: QP_QUALIFIERS.qualifier_id%TYPE
243: INDEX BY BINARY_INTEGER;
244: PRIMARY_KEY_ID_LIST qualifier_id_LIST_TYPE;
245:
246: TYPE qualifier_attr_value_LIST_TYPE IS TABLE OF
243: INDEX BY BINARY_INTEGER;
244: PRIMARY_KEY_ID_LIST qualifier_id_LIST_TYPE;
245:
246: TYPE qualifier_attr_value_LIST_TYPE IS TABLE OF
247: QP_QUALIFIERS.qualifier_attr_value%TYPE
248: INDEX BY BINARY_INTEGER;
249: VCHAR_COL1_ORIG_LIST qualifier_attr_value_LIST_TYPE;
250: VCHAR_COL1_NEW_LIST qualifier_attr_value_LIST_TYPE;
251:
253: VCHAR_COL2_ORIG_LIST qualifier_attr_value_LIST_TYPE;
254: VCHAR_COL2_NEW_LIST qualifier_attr_value_LIST_TYPE;
255:
256: TYPE qualifier_context_LIST_TYPE IS TABLE OF
257: QP_QUALIFIERS.qualifier_context%TYPE
258: INDEX BY BINARY_INTEGER;
259: QUALIFIER_CONTEXT_LIST qualifier_context_LIST_TYPE;
260:
261: TYPE qualifier_attribute_LIST_TYPE IS TABLE OF
258: INDEX BY BINARY_INTEGER;
259: QUALIFIER_CONTEXT_LIST qualifier_context_LIST_TYPE;
260:
261: TYPE qualifier_attribute_LIST_TYPE IS TABLE OF
262: QP_QUALIFIERS.qualifier_attribute%TYPE
263: INDEX BY BINARY_INTEGER;
264: QUALIFIER_ATTRIBUTE_LIST qualifier_attribute_LIST_TYPE;
265: --End code added for bug fix 3649761
266:
272: --Added following 3 select list columns for bug fix 3649761
273: ,qualifier_attr_value
274: ,qualifier_context
275: ,qualifier_attribute
276: FROM QP_QUALIFIERS yt, ra_customer_merges m
277: WHERE
278: /* (
279: yt.qualifier_attr_value = to_char(m.DUPLICATE_SITE_ID)
280: )*/
305: IF process_mode='LOCK' THEN
306: NULL;
307: ELSE
308: ARP_MESSAGE.SET_NAME('AR','AR_UPDATING_TABLE');
309: ARP_MESSAGE.SET_TOKEN('TABLE_NAME','QP_QUALIFIERS',FALSE);
310: HZ_ACCT_MERGE_UTIL.load_set(set_num, req_id);
311: l_profile_val := FND_PROFILE.VALUE('HZ_AUDIT_ACCT_MERGE');
312:
313: open merged_records;
376: LAST_UPDATE_LOGIN,
377: LAST_UPDATE_DATE,
378: LAST_UPDATED_BY
379: ) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
380: 'QP_QUALIFIERS',
381: MERGE_HEADER_ID_LIST(I),
382: PRIMARY_KEY_ID_LIST(I),
383: VCHAR_COL1_ORIG_LIST(I),
384: VCHAR_COL1_NEW_LIST(I),
394: hz_utility_pub.LAST_UPDATED_BY
395: );
396:
397: END IF; FORALL I in 1..MERGE_HEADER_ID_LIST.COUNT
398: UPDATE QP_QUALIFIERS yt SET
399: --Modified code for bug fix 3649761
400: qualifier_attr_value=decode(nvl(VCHAR_COL1_NEW_LIST(I),'x'), 'x',
401: VCHAR_COL2_NEW_LIST(I),
402: VCHAR_COL1_NEW_LIST(I))