1: PACKAGE BODY ARP_CORRECT_CCID AS
2: /* $Header: ARCCCIDB.pls 120.2 2005/07/22 00:45:12 hyu noship $ */
3:
4: /*=======================================================================+
5: | Package Global Constants
60:
61: BEGIN
62:
63: IF PG_DEBUG in ('Y', 'C') THEN
64: arp_standard.debug('ARP_CORRECT_CCID.Correct_Lines_CCID()+');
65: arp_standard.debug(' p_distribution_id :' || to_char(p_distribution_id));
66: arp_standard.debug(' p_old_ccid :' || to_char(p_old_ccid));
67: arp_standard.debug(' p_new_ccid :' || to_char(p_new_ccid));
68: arp_standard.debug(' p_category_type :' || p_category_type);
149: AND source_table = p_source_table
150: AND submission_id IS NULL;
151:
152: IF PG_DEBUG in ('Y', 'C') THEN
153: arp_standard.debug('ARP_CORRECT_CCID.Correct_Lines_CCID()-');
154: END IF;
155:
156: EXCEPTION
157:
156: EXCEPTION
157:
158: WHEN OTHERS THEN
159: IF PG_DEBUG in ('Y', 'C') THEN
160: arp_standard.debug('ARP_CORRECT_CCID.Correct_Lines_CCID()');
161: END IF;
162: RAISE;
163:
164: END Correct_Lines_CCID;
197: l_status_code CONSTANT VARCHAR2(20) := 'IN_PROGRESS';
198:
199: BEGIN
200: IF PG_DEBUG in ('Y', 'C') THEN
201: arp_standard.debug(' ARP_CORRECT_CCID.lock_and_update()+');
202: arp_standard.debug(' p_old_ccid :' || to_char(p_old_ccid));
203: arp_standard.debug(' p_new_ccid :' || to_char(p_new_ccid));
204: arp_standard.debug(' p_category_type :' || p_category_type);
205: arp_standard.debug(' p_dist_type:' || p_dist_type);
218: distribution_type = p_dist_type and
219: category_type = p_category_type;
220:
221: IF PG_DEBUG in ('Y', 'C') THEN
222: arp_standard.debug(' ARP_CORRECT_CCID.lock_and_update()-');
223: END IF;
224:
225: EXCEPTION
226:
225: EXCEPTION
226:
227: WHEN OTHERS THEN
228: IF PG_DEBUG in ('Y', 'C') THEN
229: arp_standard.debug('EXCEPTION: ARP_CORRECT_CCID.lock_and_update()');
230: END IF;
231: RAISE;
232:
233: END lock_and_update;
269: p_submission_id IN NUMBER) IS
270:
271: BEGIN
272: IF PG_DEBUG in ('Y', 'C') THEN
273: arp_standard.debug(' ARP_CORRECT_CCID.Correct_All_Invalid_CCID()+');
274: arp_standard.debug(' p_submission_id :' || p_submission_id);
275: END IF;
276:
277: /* Correct GL_DIST ccids */
389:
390: IF PG_DEBUG in ('Y', 'C') THEN
391: arp_standard.debug(' ar_misc_cash_distributions rows updated: ' ||
392: SQL%ROWCOUNT);
393: arp_standard.debug(' ARP_CORRECT_CCID.Correct_All_Invalid_CCID()-');
394: END IF;
395:
396: EXCEPTION
397: WHEN OTHERS THEN
395:
396: EXCEPTION
397: WHEN OTHERS THEN
398: IF PG_DEBUG in ('Y', 'C') THEN
399: arp_standard.debug('EXCEPTION: ARP_CORRECT_CCID.Correct_All_Invalid_CCID()');
400: END IF;
401:
402: END Correct_All_Invalid_CCID;
403:
401:
402: END Correct_All_Invalid_CCID;
403:
404:
405: END ARP_CORRECT_CCID;