93:
94:
95: BEGIN
96:
97: PNP_DEBUG_PKG.LOG ('pn_var_natural_bp_pkg.build_bkpt_details_main : (+)');
98:
99: IF p_var_rent_id IS NULL THEN
100:
101: PNP_DEBUG_PKG.LOG ('p_var_rent_id IS NULL');
97: PNP_DEBUG_PKG.LOG ('pn_var_natural_bp_pkg.build_bkpt_details_main : (+)');
98:
99: IF p_var_rent_id IS NULL THEN
100:
101: PNP_DEBUG_PKG.LOG ('p_var_rent_id IS NULL');
102: errbuf := 'Var Rent ID is, Please enter Var Rent ID';
103: retcode := 2;
104:
105: ELSE
234: END LOOP;
235: END LOOP;
236: END IF;
237:
238: PNP_DEBUG_PKG.LOG ('pn_var_natural_bp_pkg.build_bkpt_details_main : (-)');
239:
240: END build_bkpt_details_main;
241:
242: -------------------------------------------------------------------------------
415:
416:
417: BEGIN
418:
419: PNP_DEBUG_PKG.LOG ('pn_var_natural_bp_pkg.build_bkpt_details : (+)');
420:
421: IF p_var_rent_id IS NULL AND p_lease_id IS NULL THEN
422: errbuf := 'Lease ID and Var Rent ID are NULL';
423: retcode := 2;
498:
499:
500: EXCEPTION
501: WHEN OTHERS THEN
502: PNP_DEBUG_PKG.LOG(SUBSTR('pn_var_natural_bp_pkg.build_bkpt_details - '||
503: TO_CHAR(SQLCODE)||' : '||SQLERRM, 1, 244));
504: errbuf := SQLERRM;
505: retcode := 2;
506: ROLLBACK;
504: errbuf := SQLERRM;
505: retcode := 2;
506: ROLLBACK;
507:
508: PNP_DEBUG_PKG.LOG ('pn_var_natural_bp_pkg.build_bkpt_details : (-)');
509:
510: END build_bkpt_details;
511:
512:
677:
678:
679: BEGIN
680:
681: pnp_debug_pkg.log('pn_var_natural_bp_pkg.pn_var_nat_to_artificial (+) : ');
682:
683: l_prop_id := p_prop_id;
684: l_loc_id := p_loc_id;
685: l_var_rent_id := p_var_rent_id;
871:
872: l_update_count := l_update_count + 1;
873:
874: ELSE
875: pnp_debug_pkg.log('BAD_CALL_EXCEPTION');
876: RAISE BAD_CALL_EXCEPTION;
877: END IF;
878:
879: END LOOP; /* Headers */
886:
887: END IF;
888:
889: IF p_mode = 'U' and l_update_count > 0 THEN
890: pnp_debug_pkg.log(l_update_count||' records updated' );
891: COMMIT;
892: ELSIF p_mode = 'D' and l_diagnostic > 0 THEN
893: Fnd_File.Put_Line ( Fnd_File.OutPut,' ');
894: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
894: Fnd_File.Put_Line ( Fnd_File.OutPut,'================================================================================');
895: END IF;
896:
897:
898: pnp_debug_pkg.log('pn_var_natural_bp_pkg.pn_var_nat_to_artificial (-) : ');
899:
900: EXCEPTION
901: WHEN BAD_CALL_EXCEPTION
902: THEN