1: PACKAGE BODY pn_approve_varent_pkg AS
2: -- $Header: PNVRAPPB.pls 120.16.12010000.5 2009/01/21 10:23:29 jsundara ship $
3:
4: --------------------------------------------------------------------------------
5: -- PROCEDURE : approve_payment_term
170:
171: BEGIN
172:
173:
174: pn_variable_amount_pkg.put_log('pn_approve_varent_pkg.approve_payment_term (+)' );
175:
176: fnd_message.set_name ('PN','PN_VRAP_PRM');
177: fnd_message.set_token ('LSNO_FRM',p_lease_num_from);
178: fnd_message.set_token ('LSNO_TO',p_lease_num_to);
365: END IF; --NVL(l_lease_status,'DRAFT') = 'DRAFT'
366:
367: END LOOP;
368:
369: pn_variable_amount_pkg.put_log('pn_approve_varent_pkg.approve_payment_term (-) : ');
370:
371: EXCEPTION
372:
373: WHEN OTHERS THEN
371: EXCEPTION
372:
373: WHEN OTHERS THEN
374: pn_variable_amount_pkg.put_log
375: (SUBSTRB('Error in pn_approve_varent_pkg.approved_payment_term_batch : '||
376: TO_CHAR(sqlcode)||
377: ' - '||
378: sqlerrm ||
379: ' : '||
547:
548: BEGIN
549:
550: pnp_debug_pkg.log('p_rent_type:'||p_rent_type);
551: pn_variable_amount_pkg.put_log('pn_approve_varent_pkg.set_transferred_code (+) : ');
552:
553: l_error := FALSE;
554:
555: IF p_term_status = 'Y' THEN
1018: END LOOP;
1019:
1020: END IF;
1021:
1022: pn_variable_amount_pkg.put_log('pn_approve_varent_pkg.set_transferred_code (-) : ');
1023:
1024: EXCEPTION
1025:
1026: WHEN E_NO_CUST THEN
1030: pn_variable_amount_pkg.put_output('+----------------------------------------------------------+');
1031:
1032: WHEN OTHERS THEN
1033: pn_variable_amount_pkg.put_log
1034: ('Error in pn_approve_varent_pkg.set_transferred_code - '||sqlerrm);
1035:
1036: END set_transferred_code;
1037:
1038: END pn_approve_varent_pkg;
1034: ('Error in pn_approve_varent_pkg.set_transferred_code - '||sqlerrm);
1035:
1036: END set_transferred_code;
1037:
1038: END pn_approve_varent_pkg;