1: PACKAGE BODY AR_ECAPP_PKG AS
2: /*$Header: ARECAPPB.pls 120.6 2011/09/23 10:20:19 vpusulur ship $*/
3:
4: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5:
20: extendRows INTEGER:=1;
21: BEGIN
22:
23: IF PG_DEBUG in ('Y', 'C') THEN
24: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS()+');
25: fnd_file.put_line(FND_FILE.LOG, totalRows);
26: arp_standard.debug ('Inserting record into ar_settlement_errors_gt table');
27: END IF;
28:
69: o_statusindiv_Tab(i) := 'TRUE';
70: END LOOP;
71:
72: IF PG_DEBUG in ('Y', 'C') THEN
73: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS()-');
74: END IF;
75:
76: EXCEPTION
77: WHEN OTHERS THEN
74: END IF;
75:
76: EXCEPTION
77: WHEN OTHERS THEN
78: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.UPDATE_STATUS() - Exception');
79: fnd_file.put_line(FND_FILE.LOG, sqlerrm);
80: END;
81:
82:
82:
83:
84: PROCEDURE correct_settlement_error AS
85:
86: l_cash_receipt_id AR_ECAPP_PKG.t_cash_receipt_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
83:
84: PROCEDURE correct_settlement_error AS
85:
86: l_cash_receipt_id AR_ECAPP_PKG.t_cash_receipt_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
84: PROCEDURE correct_settlement_error AS
85:
86: l_cash_receipt_id AR_ECAPP_PKG.t_cash_receipt_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
85:
86: l_cash_receipt_id AR_ECAPP_PKG.t_cash_receipt_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
93: l_request_id AR_ECAPP_PKG.t_request_id;
86: l_cash_receipt_id AR_ECAPP_PKG.t_cash_receipt_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
93: l_request_id AR_ECAPP_PKG.t_request_id;
94: l_cc_org_id AR_ECAPP_PKG.t_org_id;
87: l_receipt_number AR_ECAPP_PKG.t_receipt_number;
88: l_org_id AR_ECAPP_PKG.t_org_id;
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
93: l_request_id AR_ECAPP_PKG.t_request_id;
94: l_cc_org_id AR_ECAPP_PKG.t_org_id;
95:
89: l_bepcode AR_ECAPP_PKG.t_bepcode;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
93: l_request_id AR_ECAPP_PKG.t_request_id;
94: l_cc_org_id AR_ECAPP_PKG.t_org_id;
95:
96: l_receipt_info AR_RECEIPT_API_PUB.CR_ID_TABLE;
97: l_empty_receipt_info AR_RECEIPT_API_PUB.CR_ID_TABLE;
90: l_bepmessage AR_ECAPP_PKG.t_bepmessage;
91: l_instrtype AR_ECAPP_PKG.t_instrtype;
92:
93: l_request_id AR_ECAPP_PKG.t_request_id;
94: l_cc_org_id AR_ECAPP_PKG.t_org_id;
95:
96: l_receipt_info AR_RECEIPT_API_PUB.CR_ID_TABLE;
97: l_empty_receipt_info AR_RECEIPT_API_PUB.CR_ID_TABLE;
98: l_called_from varchar2(30);
142:
143: BEGIN
144:
145: IF PG_DEBUG in ('Y', 'C') THEN
146: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.correct_settlement_error()+');
147: END IF;
148:
149: l_called_from := 'SUBMIT_OFFLINE';
150:
326: /* ARP_CORRECT_CC_ERRORS code ends here */
327:
328:
329: IF PG_DEBUG in ('Y', 'C') THEN
330: fnd_file.put_line(FND_FILE.LOG,'AR_ECAPP_PKG.correct_settlement_error()-');
331: END IF;
332:
333:
334: EXCEPTION
332:
333:
334: EXCEPTION
335: WHEN OTHERS THEN
336: fnd_file.put_line(FND_FILE.LOG,'Exception AR_ECAPP_PKG.correct_settlement_error ' || sqlerrm);
337: RAISE;
338: END;
339:
340:
338: END;
339:
340:
341:
342: END AR_ECAPP_PKG;