21: | |
22: | SCOPE - PRIVATE |
23: | |
24: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
25: | arp_util.debug |
26: | |
27: | ARGUMENTS : IN: |
28: | p_frt_rec |
29: | OUT: |
44: l_frt_count number;
45:
46: BEGIN
47:
48: arp_util.debug('arp_process_freight.check_frt_line_count()+');
49:
50: SELECT count(*)
51: INTO l_frt_count
52: FROM ra_customer_trx_lines ctl
75: fnd_message.set_name('AR', 'AR_RAXTRX-1699');
76: app_exception.raise_exception;
77: END IF;
78:
79: arp_util.debug('arp_process_freight.check_frt_line_count()-');
80:
81: EXCEPTION
82: WHEN OTHERS THEN
83: arp_util.debug('EXCEPTION: arp_process_freight.check_frt_line_count()');
79: arp_util.debug('arp_process_freight.check_frt_line_count()-');
80:
81: EXCEPTION
82: WHEN OTHERS THEN
83: arp_util.debug('EXCEPTION: arp_process_freight.check_frt_line_count()');
84:
85: arp_ctl_pkg.display_line_rec(p_frt_rec);
86:
87: RAISE;
97: | |
98: | SCOPE - PRIVATE |
99: | |
100: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
101: | arp_util.debug |
102: | |
103: | ARGUMENTS : IN: |
104: | p_frt_rec |
105: | OUT: |
119: IS
120:
121: BEGIN
122:
123: arp_util.debug('arp_process_freight.validate_insert_freight()+');
124:
125: -- check if freight is not defined at both header and line level
126: -- if multiple freight lines are being defined at header
127: -- or for each line
130: -- other possible checks
131: -- over-application for CMs
132: -- freight allowed flag on transaction type
133:
134: arp_util.debug('arp_process_freight.validate_insert_freight()-');
135:
136: EXCEPTION
137: WHEN OTHERS THEN
138: arp_util.debug('EXCEPTION: arp_process_freight.validate_insert_freight()');
134: arp_util.debug('arp_process_freight.validate_insert_freight()-');
135:
136: EXCEPTION
137: WHEN OTHERS THEN
138: arp_util.debug('EXCEPTION: arp_process_freight.validate_insert_freight()');
139: RAISE;
140: END;
141:
142: /*===========================================================================+
148: | |
149: | SCOPE - PRIVATE |
150: | |
151: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
152: | arp_util.debug |
153: | |
154: | ARGUMENTS : IN: |
155: | p_frt_rec |
156: | OUT: |
170: IS
171:
172: BEGIN
173:
174: arp_util.debug('arp_process_freight.validate_update_freight()+');
175:
176: arp_util.debug('arp_process_freight.validate_update_freight()-');
177:
178: EXCEPTION
172: BEGIN
173:
174: arp_util.debug('arp_process_freight.validate_update_freight()+');
175:
176: arp_util.debug('arp_process_freight.validate_update_freight()-');
177:
178: EXCEPTION
179: WHEN OTHERS THEN
180: arp_util.debug('EXCEPTION: arp_process_freight.validate_update_freight()');
176: arp_util.debug('arp_process_freight.validate_update_freight()-');
177:
178: EXCEPTION
179: WHEN OTHERS THEN
180: arp_util.debug('EXCEPTION: arp_process_freight.validate_update_freight()');
181: RAISE;
182:
183: END;
184:
192: | |
193: | SCOPE - PRIVATE |
194: | |
195: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
196: | arp_util.debug |
197: | |
198: | ARGUMENTS : IN: |
199: | p_customer_trx_id |
200: | p_customer_trx_line_id |
219: IS
220:
221: BEGIN
222:
223: arp_util.debug('arp_process_freight.validate_delete_freight()+');
224:
225: IF (p_complete_flag = 'Y')
226: THEN
227: -- ensure that this is not the last line to be deleted
227: -- ensure that this is not the last line to be deleted
228: arp_trx_validate.check_has_one_line(p_customer_trx_id);
229: END IF;
230:
231: arp_util.debug('arp_process_freight.validate_delete_freight()-');
232:
233: EXCEPTION
234: WHEN OTHERS THEN
235: arp_util.debug('EXCEPTION: arp_process_freight.validate_delete_freight()');
231: arp_util.debug('arp_process_freight.validate_delete_freight()-');
232:
233: EXCEPTION
234: WHEN OTHERS THEN
235: arp_util.debug('EXCEPTION: arp_process_freight.validate_delete_freight()');
236: RAISE;
237:
238: END;
239:
246: | |
247: | SCOPE - PRIVATE |
248: | |
249: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
250: | arp_util.debug |
251: | |
252: | ARGUMENTS : IN: |
253: | p_new_frt_rec |
254: | p_new_ccid |
282: l_old_gl_date ra_cust_trx_line_gl_dist.gl_date%type;
283: l_old_ccid ra_cust_trx_line_gl_dist.code_combination_id%type;
284:
285: BEGIN
286: arp_util.debug('arp_process_freight.set_flags()+');
287:
288: arp_ctl_pkg.fetch_p(l_old_frt_rec, p_customer_trx_line_id);
289:
290: IF ((p_new_frt_rec.extended_amount <> l_old_frt_rec.extended_amount)
318: ELSE
319: p_gl_date_changed_flag := FALSE;
320: END IF;
321:
322: arp_util.debug('arp_process_freight.set_flags()-');
323:
324: EXCEPTION
325: WHEN OTHERS THEN
326: arp_util.debug('arp_process_freight.set_flags()');
322: arp_util.debug('arp_process_freight.set_flags()-');
323:
324: EXCEPTION
325: WHEN OTHERS THEN
326: arp_util.debug('arp_process_freight.set_flags()');
327: arp_util.debug('customer_trx_line_id : '||
328: p_new_frt_rec.customer_trx_line_id);
329: arp_util.debug('p_new_ccid : '||p_new_ccid);
330: arp_util.debug('p_new_gl_date : '||p_new_gl_date);
323:
324: EXCEPTION
325: WHEN OTHERS THEN
326: arp_util.debug('arp_process_freight.set_flags()');
327: arp_util.debug('customer_trx_line_id : '||
328: p_new_frt_rec.customer_trx_line_id);
329: arp_util.debug('p_new_ccid : '||p_new_ccid);
330: arp_util.debug('p_new_gl_date : '||p_new_gl_date);
331: RAISE;
325: WHEN OTHERS THEN
326: arp_util.debug('arp_process_freight.set_flags()');
327: arp_util.debug('customer_trx_line_id : '||
328: p_new_frt_rec.customer_trx_line_id);
329: arp_util.debug('p_new_ccid : '||p_new_ccid);
330: arp_util.debug('p_new_gl_date : '||p_new_gl_date);
331: RAISE;
332: END;
333:
326: arp_util.debug('arp_process_freight.set_flags()');
327: arp_util.debug('customer_trx_line_id : '||
328: p_new_frt_rec.customer_trx_line_id);
329: arp_util.debug('p_new_ccid : '||p_new_ccid);
330: arp_util.debug('p_new_gl_date : '||p_new_gl_date);
331: RAISE;
332: END;
333:
334:
342: | SCOPE - PRIVATE |
343: | |
344: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
345: | dbms_sql.bind_variable |
346: | arp_util.debug |
347: | |
348: | ARGUMENTS : IN: |
349: | p_form_name |
350: | p_form_version |
395: l_dist_count NUMBER;
396:
397: BEGIN
398:
399: arp_util.debug('arp_process_freight.insert_freight()+');
400:
401: p_status := 'OK';
402:
403: -- check form version to determine IF it is compatible with the
471: pg_trx_header_level_rounding ,
472: 'N',
473: 'N') = 0 -- FALSE
474: THEN
475: arp_util.debug('EXCEPTION: Insert Freight');
476: arp_util.debug(l_error_message);
477: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
478: APP_EXCEPTION.raise_exception;
479: END IF;
472: 'N',
473: 'N') = 0 -- FALSE
474: THEN
475: arp_util.debug('EXCEPTION: Insert Freight');
476: arp_util.debug(l_error_message);
477: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
478: APP_EXCEPTION.raise_exception;
479: END IF;
480: EXCEPTION
490:
491: --
492: -- The payment schedule record will be updated in the post-commit logic
493: --
494: arp_util.debug('arp_process_freight.insert_freight()-');
495:
496: EXCEPTION
497: when OTHERS THEN
498: -- display all relevent information
495:
496: EXCEPTION
497: when OTHERS THEN
498: -- display all relevent information
499: arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
496: EXCEPTION
497: when OTHERS THEN
498: -- display all relevent information
499: arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
504: arp_util.debug(' p_frt_ccid : '||p_frt_ccid);
497: when OTHERS THEN
498: -- display all relevent information
499: arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
504: arp_util.debug(' p_frt_ccid : '||p_frt_ccid);
505:
498: -- display all relevent information
499: arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
504: arp_util.debug(' p_frt_ccid : '||p_frt_ccid);
505:
506: arp_ctl_pkg.display_line_rec(p_frt_rec);
499: arp_util.debug('EXCEPTION: arp_process_freight.insert_freight()');
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
504: arp_util.debug(' p_frt_ccid : '||p_frt_ccid);
505:
506: arp_ctl_pkg.display_line_rec(p_frt_rec);
507: RAISE;
500: arp_util.debug(' p_form_name : '||p_form_name );
501: arp_util.debug(' p_form_version : '||p_form_version);
502: arp_util.debug(' p_trx_class : '||p_trx_class);
503: arp_util.debug(' p_gl_date : '||p_gl_date);
504: arp_util.debug(' p_frt_ccid : '||p_frt_ccid);
505:
506: arp_ctl_pkg.display_line_rec(p_frt_rec);
507: RAISE;
508: END;
517: | SCOPE - PRIVATE |
518: | |
519: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
520: | dbms_sql.bind_variable |
521: | arp_util.debug |
522: | |
523: | ARGUMENTS : IN: |
524: | p_form_name |
525: | p_form_version |
566: l_dist_count NUMBER;
567:
568:
569: BEGIN
570: arp_util.debug('arp_process_freight.update_freight()+');
571:
572: -- check form version to determine IF it is compatible with the
573: -- entity handler.
574: arp_trx_validate.ar_entity_version_check(p_form_name, p_form_version);
650: pg_trx_header_level_rounding ,
651: 'N',
652: 'N') = 0 -- FALSE
653: THEN
654: arp_util.debug('EXCEPTION: Update Freight');
655: arp_util.debug(l_error_message);
656: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
657: APP_EXCEPTION.raise_exception;
658: END IF;
651: 'N',
652: 'N') = 0 -- FALSE
653: THEN
654: arp_util.debug('EXCEPTION: Update Freight');
655: arp_util.debug(l_error_message);
656: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
657: APP_EXCEPTION.raise_exception;
658: END IF;
659:
657: APP_EXCEPTION.raise_exception;
658: END IF;
659:
660:
661: arp_util.debug('arp_process_freight.update_freight()-');
662:
663:
664: EXCEPTION
665: WHEN OTHERS THEN
663:
664: EXCEPTION
665: WHEN OTHERS THEN
666: -- display all relevent information
667: arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
664: EXCEPTION
665: WHEN OTHERS THEN
666: -- display all relevent information
667: arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
665: WHEN OTHERS THEN
666: -- display all relevent information
667: arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
666: -- display all relevent information
667: arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
674: arp_util.debug('p_open_rec_flag : '||p_open_rec_flag);
667: arp_util.debug('EXCEPTION: arp_process_freight.update_freight()');
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
674: arp_util.debug('p_open_rec_flag : '||p_open_rec_flag);
675:
668: arp_util.debug('p_form_name : '||p_form_name );
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
674: arp_util.debug('p_open_rec_flag : '||p_open_rec_flag);
675:
676: arp_ctl_pkg.display_line_p(p_frt_rec.customer_trx_line_id);
669: arp_util.debug('p_form_version : '||p_form_version);
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
674: arp_util.debug('p_open_rec_flag : '||p_open_rec_flag);
675:
676: arp_ctl_pkg.display_line_p(p_frt_rec.customer_trx_line_id);
677:
670: arp_util.debug('p_frt_ccid : '||p_frt_ccid);
671: arp_util.debug('p_gl_date : '||p_gl_date);
672: arp_util.debug('p_trx_class : '||p_trx_class);
673: arp_util.debug('p_complete_flag : '||p_complete_flag);
674: arp_util.debug('p_open_rec_flag : '||p_open_rec_flag);
675:
676: arp_ctl_pkg.display_line_p(p_frt_rec.customer_trx_line_id);
677:
678: RAISE;
688: | SCOPE - PRIVATE |
689: | |
690: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
691: | dbms_sql.bind_variable |
692: | arp_util.debug |
693: | |
694: | ARGUMENTS : IN: |
695: | p_form_name |
696: | p_form_version |
728: l_dist_count NUMBER;
729:
730: BEGIN
731:
732: arp_util.debug('arp_process_freight.delete_freight()+');
733:
734: --
735: -- check form version to determine IF it is compatible with the
736: -- entity handler.
773: pg_trx_header_level_rounding ,
774: 'N',
775: 'N') = 0 -- FALSE
776: THEN
777: arp_util.debug('EXCEPTION: Delete Freight');
778: arp_util.debug(l_error_message);
779: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
780: APP_EXCEPTION.raise_exception;
781: END IF;
774: 'N',
775: 'N') = 0 -- FALSE
776: THEN
777: arp_util.debug('EXCEPTION: Delete Freight');
778: arp_util.debug(l_error_message);
779: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
780: APP_EXCEPTION.raise_exception;
781: END IF;
782:
779: fnd_message.set_name('AR', 'AR_PLCRE_FHLR_CCID');
780: APP_EXCEPTION.raise_exception;
781: END IF;
782:
783: arp_util.debug('arp_process_freight.delete_freight()-');
784:
785: EXCEPTION
786:
787: WHEN OTHERS THEN
785: EXCEPTION
786:
787: WHEN OTHERS THEN
788: -- display all relevent information
789: arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
786:
787: WHEN OTHERS THEN
788: -- display all relevent information
789: arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
787: WHEN OTHERS THEN
788: -- display all relevent information
789: arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
795: arp_util.debug('p_complete_flag : '||p_complete_flag);
788: -- display all relevent information
789: arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
795: arp_util.debug('p_complete_flag : '||p_complete_flag);
796:
789: arp_util.debug('EXCEPTION: ARP_PROCESS_FREIGHT.delete_freight()');
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
795: arp_util.debug('p_complete_flag : '||p_complete_flag);
796:
797: arp_ctl_pkg.display_line_p(p_customer_trx_line_id);
790: arp_util.debug('p_form_name : '||p_form_name );
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
795: arp_util.debug('p_complete_flag : '||p_complete_flag);
796:
797: arp_ctl_pkg.display_line_p(p_customer_trx_line_id);
798: RAISE;
791: arp_util.debug('p_form_version : '||p_form_version);
792: arp_util.debug('p_customer_trx_id : '||p_customer_trx_id);
793: arp_util.debug('p_customer_trx_line_id : '||p_customer_trx_line_id);
794: arp_util.debug('p_trx_class : '||p_trx_class);
795: arp_util.debug('p_complete_flag : '||p_complete_flag);
796:
797: arp_ctl_pkg.display_line_p(p_customer_trx_line_id);
798: RAISE;
799: END;