APPS.PN_LEASE_DETAILS_SEND_UPD dependencies on PN_LEASE_DETAILS_SEND_UPD

Line 1: PACKAGE BODY pn_lease_details_send_upd AS

1: PACKAGE BODY pn_lease_details_send_upd AS
2: -- $Header: PNUPLEDB.pls 120.2 2005/12/01 10:00:53 appldev noship $
3:
4: -------------------------------------------------------------------------------
5: -- PROCDURE : UPDATE_LEASE_SE

Line 72: pnp_debug_pkg.debug('PN_LEASE_DETAILS_SEND_UPD.UPDATE_LEASE_SE (+)');

68: AND lease_class_code = NVL(p_lease_class,lease_class_code)
69: AND l.status = 'F'
70: AND d.send_entries = 'Y';
71: BEGIN
72: pnp_debug_pkg.debug('PN_LEASE_DETAILS_SEND_UPD.UPDATE_LEASE_SE (+)');
73:
74: -- Get from dirname from db later,
75: -- and use sequence for unique filenames
76: fnd_file.put_names('PNUPLEDB.log', 'PNUPLEDB.out', '/sqlcom/out');

Line 141: pnp_debug_pkg.debug('PN_LEASE_DETAILS_SEND_UPD.update_lease_se (-)');

137: fnd_message.set_token ('NUM',s_count);
138: pnp_debug_pkg.put_log_msg(fnd_message.get);
139: pnp_debug_pkg.put_log_msg('
140: ================================================================================');
141: pnp_debug_pkg.debug('PN_LEASE_DETAILS_SEND_UPD.update_lease_se (-)');
142: EXCEPTION
143: WHEN OTHERS THEN
144: raise_application_error ('-20001','Error ' || TO_CHAR(sqlcode) );
145: Errbuf := SQLERRM;

Line 149: END pn_lease_details_send_upd;

145: Errbuf := SQLERRM;
146: Retcode := 2;
147: END update_lease_se;
148:
149: END pn_lease_details_send_upd;