[Home] [Help]
224:
225: BEGIN
226:
227: pvt_debug(g_pkg_name||'-Create_Space_Assign Begin',3);
228: x_return_status := fnd_api.g_ret_sts_success;
229:
230: l_automatic_distrubution := NVL(pn_mo_cache_utils.get_profile_value('PN_AUTOMATIC_SPACE_DISTRIBUTION'
231: , p_lease_tenancies_rec.org_id)
232: ,'N');
262: ELSIF p_lease_tenancies_rec.allow_overlap_space_asg = 'N' THEN -- No
263: l_create_space_assign := 'N';
264: fnd_message.set_name('PN', 'PN_SHARE_OVRLAP_CUST_SPASGN');
265: fnd_msg_pub.ADD;
266: RAISE fnd_api.g_exc_error;
267: END IF;
268:
269: ELSE
270: l_create_space_assign := 'Y';
277: ELSE
278: l_create_space_assign := 'N';
279: fnd_message.set_name('PN', 'PN_DUP_SPC_ASSIGN');
280: fnd_msg_pub.ADD;
281: RAISE fnd_api.g_exc_error;
282: END IF;
283:
284: END IF;
285:
307:
308: IF l_action = 'OVERLAP' THEN --Stop
309: fnd_message.set_name('PN', 'PN_TEN_OVERLAP_EXISTING_ASSIGN');
310: fnd_msg_pub.ADD;
311: RAISE fnd_api.g_exc_error;
312:
313: ELSIF l_action = 'NOVACANT' THEN --Stop
314:
315: IF p_lease_tenancies_rec.allow_zero_space_asg = 'N' THEN
314:
315: IF p_lease_tenancies_rec.allow_zero_space_asg = 'N' THEN
316: fnd_message.set_name('PN', 'PN_ALL_SPACE_ASSIGNED');
317: fnd_msg_pub.ADD;
318: RAISE fnd_api.g_exc_error;
319: END IF;
320:
321: ELSIF l_action = 'DUP_ASSIGN' THEN --Stop
322: fnd_message.set_name('PN', 'PN_SPASGN_CUSTOMER_OVRLAP_MSG');
320:
321: ELSIF l_action = 'DUP_ASSIGN' THEN --Stop
322: fnd_message.set_name('PN', 'PN_SPASGN_CUSTOMER_OVRLAP_MSG');
323: fnd_msg_pub.ADD;
324: RAISE fnd_api.g_exc_error;
325: END IF;
326:
327: END IF;
328: pvt_debug(g_pkg_name||'-Create_Space_Assign End',3);
327: END IF;
328: pvt_debug(g_pkg_name||'-Create_Space_Assign End',3);
329:
330: EXCEPTION
331: WHEN fnd_api.g_exc_error THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: pvt_debug(g_pkg_name||'-Create_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
334:
335: WHEN fnd_api.g_exc_unexpected_error THEN
328: pvt_debug(g_pkg_name||'-Create_Space_Assign End',3);
329:
330: EXCEPTION
331: WHEN fnd_api.g_exc_error THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: pvt_debug(g_pkg_name||'-Create_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
334:
335: WHEN fnd_api.g_exc_unexpected_error THEN
336: x_return_status := fnd_api.g_ret_sts_unexp_error;
331: WHEN fnd_api.g_exc_error THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: pvt_debug(g_pkg_name||'-Create_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
334:
335: WHEN fnd_api.g_exc_unexpected_error THEN
336: x_return_status := fnd_api.g_ret_sts_unexp_error;
337: pvt_debug(g_pkg_name||'-Create_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
338:
339: WHEN OTHERS THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: pvt_debug(g_pkg_name||'-Create_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
334:
335: WHEN fnd_api.g_exc_unexpected_error THEN
336: x_return_status := fnd_api.g_ret_sts_unexp_error;
337: pvt_debug(g_pkg_name||'-Create_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
338:
339: WHEN OTHERS THEN
340: x_return_status := fnd_api.g_ret_sts_error;
336: x_return_status := fnd_api.g_ret_sts_unexp_error;
337: pvt_debug(g_pkg_name||'-Create_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
338:
339: WHEN OTHERS THEN
340: x_return_status := fnd_api.g_ret_sts_error;
341: pvt_debug(g_pkg_name||'-Create_Space_Assign :When Others '||SQLERRM,3);
342: END Create_Space_Assign;
343:
344: PROCEDURE Update_Space_Assign( p_lease_tenancies_rec IN lease_tenancies_rec
353:
354: BEGIN
355:
356: pvt_debug(g_pkg_name||'-Update_Space_Assign Begin',3);
357: x_return_status := fnd_api.g_ret_sts_success;
358:
359: pvt_debug('-p_cust_acnt_id '|| p_lease_tenancies_rec.customer_id,3);
360: pvt_debug('-p_loc_id ' || p_lease_tenancies_rec.location_id,3);
361: pvt_debug('-p_assgn_str_dt ' || NVL(p_lease_tenancies_rec.occupancy_date,p_lease_tenancies_rec.estimated_occupancy_date) ,3);
378: p_lease_tenancies_rec.allow_dup_space_asg = 'N' AND
379: NVL(l_dup_assign_count, 0) > 1 THEN
380: fnd_message.set_name('PN', 'PN_DUP_SPC_ASSIGN');
381: fnd_msg_pub.ADD;
382: RAISE fnd_api.g_exc_error;
383: END IF;
384:
385: pvt_debug(g_pkg_name||'-Calling Update_auto_space_assign Begin',3);
386:
418:
419: ELSIF l_action = 'S' THEN --Stop
420: fnd_message.set_name('PN', 'PN_REC_AUTO_SPC_NO_CHG_DATES');
421: fnd_msg_pub.ADD;
422: RAISE fnd_api.g_exc_error;
423:
424: ELSIF l_action = 'OVERLAP' THEN --Stop
425: fnd_message.set_name('PN', 'PN_TEN_OVERLAP_EXISTING_ASSIGN');
426: fnd_msg_pub.ADD;
423:
424: ELSIF l_action = 'OVERLAP' THEN --Stop
425: fnd_message.set_name('PN', 'PN_TEN_OVERLAP_EXISTING_ASSIGN');
426: fnd_msg_pub.ADD;
427: RAISE fnd_api.g_exc_error;
428:
429: ELSIF l_action = 'NOVACANT' THEN --Stop
430:
431: IF p_lease_tenancies_rec.allow_zero_space_asg = 'N' THEN
430:
431: IF p_lease_tenancies_rec.allow_zero_space_asg = 'N' THEN
432: fnd_message.set_name('PN', 'PN_ALL_SPACE_ASSIGNED');
433: fnd_msg_pub.ADD;
434: RAISE fnd_api.g_exc_error;
435: END IF;
436:
437: ELSIF l_action = 'DUP_ASSIGN' THEN --Stop
438: fnd_message.set_name('PN', 'PN_SPASGN_CUSTOMER_OVRLAP_MSG');
436:
437: ELSIF l_action = 'DUP_ASSIGN' THEN --Stop
438: fnd_message.set_name('PN', 'PN_SPASGN_CUSTOMER_OVRLAP_MSG');
439: fnd_msg_pub.ADD;
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: pvt_debug(g_pkg_name||'-Update_Space_Assign End',3);
444:
442:
443: pvt_debug(g_pkg_name||'-Update_Space_Assign End',3);
444:
445: EXCEPTION
446: WHEN fnd_api.g_exc_error THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: pvt_debug(g_pkg_name||'-Update_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
449:
450: WHEN fnd_api.g_exc_unexpected_error THEN
443: pvt_debug(g_pkg_name||'-Update_Space_Assign End',3);
444:
445: EXCEPTION
446: WHEN fnd_api.g_exc_error THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: pvt_debug(g_pkg_name||'-Update_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
449:
450: WHEN fnd_api.g_exc_unexpected_error THEN
451: x_return_status := fnd_api.g_ret_sts_unexp_error;
446: WHEN fnd_api.g_exc_error THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: pvt_debug(g_pkg_name||'-Update_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
449:
450: WHEN fnd_api.g_exc_unexpected_error THEN
451: x_return_status := fnd_api.g_ret_sts_unexp_error;
452: pvt_debug(g_pkg_name||'-Update_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
453:
454: WHEN OTHERS THEN
447: x_return_status := fnd_api.g_ret_sts_error;
448: pvt_debug(g_pkg_name||'-Update_Space_Assign.G_EXC_ERROR'||SQLERRM,3);
449:
450: WHEN fnd_api.g_exc_unexpected_error THEN
451: x_return_status := fnd_api.g_ret_sts_unexp_error;
452: pvt_debug(g_pkg_name||'-Update_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
453:
454: WHEN OTHERS THEN
455: x_return_status := fnd_api.g_ret_sts_error;
451: x_return_status := fnd_api.g_ret_sts_unexp_error;
452: pvt_debug(g_pkg_name||'-Update_Space_assign.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
453:
454: WHEN OTHERS THEN
455: x_return_status := fnd_api.g_ret_sts_error;
456: pvt_debug(g_pkg_name||'-Update_Space_Assign :When Others '||SQLERRM,3);
457: END Update_Space_Assign;
458:
459: PROCEDURE validate_tenancies_tbl (
486:
487: -- Standard start of API savepoint
488: SAVEPOINT validate_tenancies_tbl;
489: -- Initialize the return status.
490: x_return_status := fnd_api.g_ret_sts_success;
491: l_tenancy_record_cnt := p_lease_tenancies_tbl.COUNT;
492: IF l_tenancy_record_cnt>0
493: THEN
494:
516:
517: ----------------------dbms_output.put_line('TENANCY_USAGE_LOOKUP_CODE:' ||p_lease_tenancies_tbl(i).tenancy_usage_lookup_code);--Rupak
518: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:TENANCY_USAGE_LOOKUP_CODE:'||p_lease_tenancies_tbl(i).tenancy_usage_lookup_code,3);
519:
520: IF (x_return_status = fnd_api.g_ret_sts_error)
521: THEN
522: l_error_flag:='Y';
523: p_lease_tenancies_tbl (i).error_flag:='Y';
524: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
525: fnd_message.set_token ('LOOKUP_TYPE', l_lease_tenancy_usage_lookup);
526: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).tenancy_usage_lookup_name));
527: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).tenancy_usage_lookup_code));
528: fnd_msg_pub.ADD;
529: RAISE fnd_api.g_exc_error;
530: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
531: THEN
532: l_error_flag:='Y';
533: p_lease_tenancies_tbl (i).error_flag:='Y';
526: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).tenancy_usage_lookup_name));
527: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).tenancy_usage_lookup_code));
528: fnd_msg_pub.ADD;
529: RAISE fnd_api.g_exc_error;
530: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
531: THEN
532: l_error_flag:='Y';
533: p_lease_tenancies_tbl (i).error_flag:='Y';
534: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
534: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
535: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_usage,3));
536: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
537: fnd_msg_pub.ADD;
538: RAISE fnd_api.g_exc_unexpected_error;
539: END IF;
540: ELSE
541: IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
542: /* pn_lease_utils.add_null_parameter_msg
547: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
548: fnd_message.set_token ('API_NAME', l_api_name_full);
549: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Usage');
550: fnd_msg_pub.ADD;
551: RAISE fnd_api.g_exc_error;
552: END IF;
553: END IF;
554:
555:
577:
578: ----------------------dbms_output.put_line('LOCATION_ID:' ||p_lease_tenancies_tbl(i).location_id);--Rupak
579: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOCATION_ID:'||p_lease_tenancies_tbl(i).location_id,3);
580:
581: IF (l_return_status = fnd_api.g_ret_sts_error)
582: THEN
583: l_error_flag:='Y';
584: p_lease_tenancies_tbl (i).error_flag:='Y';
585: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
585: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
586: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_tenancies_tbl (i).location_id));
587: fnd_message.set_token ('LOC_CODE',get_miss_char_decode(p_lease_tenancies_tbl (i).location_code));
588: fnd_msg_pub.ADD;
589: RAISE fnd_api.g_exc_error;
590: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
591: THEN
592: l_error_flag:='Y';
593: p_lease_tenancies_tbl (i).error_flag:='Y';
586: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_tenancies_tbl (i).location_id));
587: fnd_message.set_token ('LOC_CODE',get_miss_char_decode(p_lease_tenancies_tbl (i).location_code));
588: fnd_msg_pub.ADD;
589: RAISE fnd_api.g_exc_error;
590: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
591: THEN
592: l_error_flag:='Y';
593: p_lease_tenancies_tbl (i).error_flag:='Y';
594: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
594: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
595: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_location,3));
596: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
597: fnd_msg_pub.ADD;
598: RAISE fnd_api.g_exc_unexpected_error;
599: END IF;
600: ELSE
601: IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
602: /*pn_lease_utils.add_null_parameter_msg
607: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
608: fnd_message.set_token ('API_NAME', l_api_name_full);
609: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Location');
610: fnd_msg_pub.ADD;
611: RAISE fnd_api.g_exc_error;
612: END IF;
613: END IF;
614:
615:
645: fnd_message.set_token('END_DATE',get_miss_date_decode(p_lease_rec.lease_termination_date));
646: l_error_flag:='Y';
647: p_lease_tenancies_tbl (i).error_flag:='Y';
648: fnd_msg_pub.ADD;
649: RAISE fnd_api.g_exc_error;
650: END IF;
651:
652: END IF;
653:
681:
682: --------------dbms_output.put_line(' x_return_status after pn_lease_utils.validate_tenancy_dates ' || x_return_status);--Rupak
683: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:X_RETURN_STATUS for pn_lease_utils.VALIDATE_TENANCY_DATES '||x_return_status,3);
684:
685: IF (x_return_status = fnd_api.g_ret_sts_error)
686: THEN
687: ----------------------dbms_output.put_line('H:fnd_api.g_ret_sts_error' || x_return_status);--Rupak
688: l_error_flag:='Y';
689: p_lease_tenancies_tbl (i).error_flag:='Y';
683: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:X_RETURN_STATUS for pn_lease_utils.VALIDATE_TENANCY_DATES '||x_return_status,3);
684:
685: IF (x_return_status = fnd_api.g_ret_sts_error)
686: THEN
687: ----------------------dbms_output.put_line('H:fnd_api.g_ret_sts_error' || x_return_status);--Rupak
688: l_error_flag:='Y';
689: p_lease_tenancies_tbl (i).error_flag:='Y';
690: fnd_message.set_name ('PN', 'PN_INV_ESTOCC_DATE');
691: fnd_message.set_token ('ESTOCC_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).estimated_occupancy_date));
691: fnd_message.set_token ('ESTOCC_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).estimated_occupancy_date));
692: fnd_message.set_token ('OCCP_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).occupancy_date));
693: fnd_message.set_token ('TRMN_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).expiration_date));
694: fnd_msg_pub.ADD;
695: RAISE fnd_api.g_exc_error;
696: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
697: THEN
698: l_error_flag:='Y';
699: p_lease_tenancies_tbl (i).error_flag:='Y';
692: fnd_message.set_token ('OCCP_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).occupancy_date));
693: fnd_message.set_token ('TRMN_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).expiration_date));
694: fnd_msg_pub.ADD;
695: RAISE fnd_api.g_exc_error;
696: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
697: THEN
698: l_error_flag:='Y';
699: p_lease_tenancies_tbl (i).error_flag:='Y';
700: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
700: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
701: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_dates,3));
702: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
703: fnd_msg_pub.ADD;
704: RAISE fnd_api.g_exc_unexpected_error;
705: END IF;
706: ELSE
707: IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
708: /* pn_lease_utils.add_null_parameter_msg(p_token_apiname => l_api_name_full
713: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
714: fnd_message.set_token ('API_NAME', l_api_name_full);
715: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Dates');
716: fnd_msg_pub.ADD;
717: RAISE fnd_api.g_exc_error;
718: /*ELSIF(p_lease_tenancies_tbl (i).occupancy_date IS NULL AND trim(p_operation) = 'UPDATE_TENANCY') THEN
719: --------------dbms_output.put_line('Inside Occ:'||p_lease_tenancies_tbl (i).occupancy_date);
720: p_lease_tenancies_tbl (i).occupancy_date := NULL;*/
721: END IF;
747: );
748: ----------------------dbms_output.put_line(' p_lease_tenancies_tbl (i).customer_id :'||p_lease_tenancies_tbl (i).customer_id||x_return_status );--Rupak
749: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:Tenancy Customer ID Returned:'||p_lease_tenancies_tbl (i).customer_id,3);
750:
751: IF (x_return_status = fnd_api.g_ret_sts_error)
752: THEN
753: l_error_flag:='Y';
754: p_lease_tenancies_tbl (i).error_flag:='Y';
755: fnd_message.set_name ('PN', 'PN_TENANCY_CUSTOMER');
755: fnd_message.set_name ('PN', 'PN_TENANCY_CUSTOMER');
756: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_tenancies_tbl (i).customer_name));
757: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_tenancies_tbl (i).customer_id));
758: fnd_msg_pub.ADD;
759: RAISE fnd_api.g_exc_error;
760: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
761: THEN
762: l_error_flag:='Y';
763: p_lease_tenancies_tbl (i).error_flag:='Y';
756: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_tenancies_tbl (i).customer_name));
757: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_tenancies_tbl (i).customer_id));
758: fnd_msg_pub.ADD;
759: RAISE fnd_api.g_exc_error;
760: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
761: THEN
762: l_error_flag:='Y';
763: p_lease_tenancies_tbl (i).error_flag:='Y';
764: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
764: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
765: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_customer,3));
766: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
767: fnd_msg_pub.ADD;
768: RAISE fnd_api.g_exc_unexpected_error;
769: END IF;
770: --ELSE
771: /*IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
772: l_error_flag:='Y';
773: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
774: fnd_message.set_token ('API_NAME', l_api_name_full);
775: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Customer_id');
776: fnd_msg_pub.ADD;
777: RAISE fnd_api.g_exc_error;
778: END IF;*/
779:
780: END IF;
781: ----------------------dbms_output.put_line('Validate : Tenancy:1');--Rupak
795: , x_lookup_type_code => p_lease_tenancies_tbl (i).recovery_type_code
796: , x_return_status => x_return_status
797: );
798: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:RECOVERY_TYPE_CODE:'|| p_lease_tenancies_tbl (i).recovery_type_code,3);
799: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
800: l_error_flag:='Y';
801: p_lease_tenancies_tbl (i).error_flag:='Y';
802: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
803: fnd_message.set_token ('LOOKUP_TYPE', l_tenancy_recovery_lookup_type);
803: fnd_message.set_token ('LOOKUP_TYPE', l_tenancy_recovery_lookup_type);
804: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_type_meaning));
805: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_type_code));
806: fnd_msg_pub.ADD;
807: RAISE fnd_api.g_exc_error;
808: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
809: l_error_flag:='Y';
810: p_lease_tenancies_tbl (i).error_flag:='Y';
811: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
804: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_type_meaning));
805: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_type_code));
806: fnd_msg_pub.ADD;
807: RAISE fnd_api.g_exc_error;
808: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
809: l_error_flag:='Y';
810: p_lease_tenancies_tbl (i).error_flag:='Y';
811: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
812: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_recovery_type,3));
811: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
812: fnd_message.set_token ('COLUMN', SUBSTR(l_param_tenancy_recovery_type,3));
813: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
814: fnd_msg_pub.ADD;
815: RAISE fnd_api.g_exc_unexpected_error;
816: END IF;
817: /*ELSE
818: IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
819: l_error_flag:='Y';
820: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
821: fnd_message.set_token ('API_NAME', l_api_name_full);
822: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Recovery_type');
823: fnd_msg_pub.ADD;
824: RAISE fnd_api.g_exc_error;
825: END IF;*/
826: END IF;
827: ----------------------dbms_output.put_line('Validate : Tenancy:2');--Rupak
828: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:After Validating RECOVERY_TYPE_CODE',3);
844: , x_return_status => x_return_status
845: );
846: ----------------------dbms_output.put_line ( 'RECOVERY_SPACE_STD_CODE: '|| p_lease_tenancies_tbl (i).recovery_space_std_code);--Rupak
847: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:RECOVERY_SPACE_STD_CODE:'|| p_lease_tenancies_tbl (i).recovery_space_std_code,3);
848: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
849: l_error_flag:='Y';
850: p_lease_tenancies_tbl (i).error_flag:='Y';
851: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
852: fnd_message.set_token ('LOOKUP_TYPE', l_recovery_space_std_lkp_type);
852: fnd_message.set_token ('LOOKUP_TYPE', l_recovery_space_std_lkp_type);
853: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_space_std_meaning));
854: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_space_std_code));
855: fnd_msg_pub.ADD;
856: RAISE fnd_api.g_exc_error;
857: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
858: l_error_flag:='Y';
859: p_lease_tenancies_tbl (i).error_flag:='Y';
860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
853: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_space_std_meaning));
854: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_tenancies_tbl (i).recovery_space_std_code));
855: fnd_msg_pub.ADD;
856: RAISE fnd_api.g_exc_error;
857: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
858: l_error_flag:='Y';
859: p_lease_tenancies_tbl (i).error_flag:='Y';
860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
861: fnd_message.set_token ('COLUMN', SUBSTR(l_param_recovery_space_std,3));
860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
861: fnd_message.set_token ('COLUMN', SUBSTR(l_param_recovery_space_std,3));
862: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'||SQLERRM);
863: fnd_msg_pub.ADD;
864: RAISE fnd_api.g_exc_unexpected_error;
865: END IF;
866: /*ELSE
867: IF (trim(p_operation) <> 'UPDATE_TENANCY') THEN
868: l_error_flag:='Y';
869: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
870: fnd_message.set_token ('API_NAME', l_api_name_full);
871: fnd_message.set_token ('NULL_PARAM', 'Tenancy_Recovery_Space_Std');
872: fnd_msg_pub.ADD;
873: RAISE fnd_api.g_exc_error;
874: END IF;*/
875: END IF;
876: ----------------------dbms_output.put_line('Validate : Tenancy:3');--Rupak
877:
911: fnd_message.set_token('LOCATION_CODE',get_miss_char_decode(p_lease_tenancies_tbl(i).location_code));
912: l_error_flag:='Y';
913: p_lease_tenancies_tbl (i).error_flag:='Y';
914: fnd_msg_pub.ADD;
915: RAISE fnd_api.g_exc_error;
916: END IF;
917:
918: END IF;
919:
933: ----------------------dbms_output.put_line ( 'FIN_OBLIG_END_DATE: '|| p_lease_tenancies_tbl (i).fin_oblig_end_date);--Rupak
934: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:FIN_OBLIG_END_DATE:'||p_lease_tenancies_tbl (i).fin_oblig_end_date,3);
935: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:EXPIRATION_DATE:'||p_lease_tenancies_tbl (i).expiration_date,3);
936:
937: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
938: l_error_flag:='Y';
939: p_lease_tenancies_tbl (i).error_flag:='Y';
940: fnd_message.set_name ('PN', 'PN_FIN_OBLIGATION_DATE');
941: fnd_message.set_token ('FIN_OBLIGATION_DATE', get_miss_date_decode(p_lease_tenancies_tbl (i).fin_oblig_end_date));
940: fnd_message.set_name ('PN', 'PN_FIN_OBLIGATION_DATE');
941: fnd_message.set_token ('FIN_OBLIGATION_DATE', get_miss_date_decode(p_lease_tenancies_tbl (i).fin_oblig_end_date));
942: fnd_message.set_token ('EXPIRE_DATE', get_miss_date_decode(p_lease_tenancies_tbl (i).expiration_date));
943: fnd_msg_pub.ADD;
944: RAISE fnd_api.g_exc_error;
945: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
946: l_error_flag:='Y';
947: p_lease_tenancies_tbl (i).error_flag:='Y';
948: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
941: fnd_message.set_token ('FIN_OBLIGATION_DATE', get_miss_date_decode(p_lease_tenancies_tbl (i).fin_oblig_end_date));
942: fnd_message.set_token ('EXPIRE_DATE', get_miss_date_decode(p_lease_tenancies_tbl (i).expiration_date));
943: fnd_msg_pub.ADD;
944: RAISE fnd_api.g_exc_error;
945: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
946: l_error_flag:='Y';
947: p_lease_tenancies_tbl (i).error_flag:='Y';
948: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
949: fnd_message.set_token ('COLUMN', SUBSTR(l_param_oblig_end_date,3));
948: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
949: fnd_message.set_token ('COLUMN', SUBSTR(l_param_oblig_end_date,3));
950: fnd_message.set_token ('P_TEXT', l_api_name_full||'-'||SQLERRM);
951: fnd_msg_pub.ADD;
952: RAISE fnd_api.g_exc_unexpected_error;
953: END IF;
954: END IF;
955:
956:
983: fnd_message.set_token('LOCATION_CODE',get_miss_char_decode(p_lease_tenancies_tbl (i).location_code));
984: fnd_message.set_token('START_DATE',get_miss_date_decode(p_lease_tenancies_tbl (i).estimated_occupancy_date));
985: fnd_message.set_token('END_DATE',l_loc_check_end_date);
986: fnd_msg_pub.ADD;
987: RAISE fnd_api.g_exc_error;
988: END IF;
989: /*******************************/
990: IF (RTRIM(LTRIM(p_operation)) = 'CREATE_TENANCIES') THEN
991: ----------------------dbms_output.put_line('Validate : Tenancy:6');--Rupak
1139: ,p_lease_tenancies_tbl(i).attribute14
1140: ,p_lease_tenancies_tbl(i).attribute15
1141: ,x_return_status
1142: );
1143: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
1144: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1145: fnd_message.set_token ('API_NAME', l_api_name_full);
1146: fnd_message.set_token ('NULL_PARAM','Required attribute in Locations/Tenancies is NULL');
1147: fnd_msg_pub.ADD;
1144: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1145: fnd_message.set_token ('API_NAME', l_api_name_full);
1146: fnd_message.set_token ('NULL_PARAM','Required attribute in Locations/Tenancies is NULL');
1147: fnd_msg_pub.ADD;
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1150: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1151: fnd_message.set_token ('API_NAME', l_api_name_full);
1152: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Locations/Tenancies is NULL');
1145: fnd_message.set_token ('API_NAME', l_api_name_full);
1146: fnd_message.set_token ('NULL_PARAM','Required attribute in Locations/Tenancies is NULL');
1147: fnd_msg_pub.ADD;
1148: RAISE fnd_api.g_exc_error;
1149: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1150: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1151: fnd_message.set_token ('API_NAME', l_api_name_full);
1152: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Locations/Tenancies is NULL');
1153: fnd_msg_pub.ADD;
1150: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1151: fnd_message.set_token ('API_NAME', l_api_name_full);
1152: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Locations/Tenancies is NULL');
1153: fnd_msg_pub.ADD;
1154: RAISE fnd_api.g_exc_unexpected_error;
1155: ELSE*/
1156: IF NOT ((p_lease_tenancies_tbl(i).attribute_category = pn_lease_utils.g_pn_miss_char OR p_lease_tenancies_tbl(i).attribute_category IS NULL)
1157: AND (p_lease_tenancies_tbl(i).attribute1 = pn_lease_utils.g_pn_miss_char OR p_lease_tenancies_tbl(i).attribute1 IS NULL)
1158: AND (p_lease_tenancies_tbl(i).attribute2 = pn_lease_utils.g_pn_miss_char OR p_lease_tenancies_tbl(i).attribute2 IS NULL)
1194: , p_resp_id => fnd_global.resp_id
1195: , p_return_status => x_return_status
1196: );
1197:
1198: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1199: p_lease_tenancies_tbl (i).error_flag:='Y';
1200: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1201: fnd_message.set_token ('API_NAME', l_api_name_full);
1202: fnd_message.set_token ('NULL_PARAM','Required attribute in Tenancies/Locations is NULL');
1200: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1201: fnd_message.set_token ('API_NAME', l_api_name_full);
1202: fnd_message.set_token ('NULL_PARAM','Required attribute in Tenancies/Locations is NULL');
1203: fnd_msg_pub.ADD;
1204: RAISE fnd_api.g_exc_error;
1205: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1206: p_lease_tenancies_tbl (i).error_flag:='Y';
1207: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1208: fnd_message.set_token ('API_NAME', l_api_name_full);
1201: fnd_message.set_token ('API_NAME', l_api_name_full);
1202: fnd_message.set_token ('NULL_PARAM','Required attribute in Tenancies/Locations is NULL');
1203: fnd_msg_pub.ADD;
1204: RAISE fnd_api.g_exc_error;
1205: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1206: p_lease_tenancies_tbl (i).error_flag:='Y';
1207: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1208: fnd_message.set_token ('API_NAME', l_api_name_full);
1209: fnd_message.set_token ('NULL_PARAM','Required attribute in Tenancies/Locations is NULL');
1207: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
1208: fnd_message.set_token ('API_NAME', l_api_name_full);
1209: fnd_message.set_token ('NULL_PARAM','Required attribute in Tenancies/Locations is NULL');
1210: fnd_msg_pub.ADD;
1211: RAISE fnd_api.g_exc_unexpected_error;
1212: END IF;
1213: END IF; -- End of attributes valitions in create tenancies
1214: END IF;
1215: END IF;
1225: , p_lease_rec => p_lease_rec
1226: , p_lease_context => p_lease_context
1227: , x_return_status => x_return_status);
1228:
1229: IF (x_return_status = fnd_api.g_ret_sts_success AND
1230: p_lease_rec.lease_class_code IS NOT NULL AND
1231: p_lease_rec.lease_class_code <> pn_lease_utils.g_pn_miss_char AND
1232: p_lease_rec.lease_class_code <> 'DIRECT' AND
1233: p_lease_tenancies_tbl(i).customer_id IS NOT NULL AND
1238: , x_return_status => x_return_status);
1239: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:Calling Create_Space_Assign End with Status '|| x_return_status,3);
1240: END IF;
1241:
1242: IF (x_return_status = fnd_api.g_ret_sts_error)
1243: THEN
1244: l_error_flag:='Y';
1245: RAISE fnd_api.g_exc_error;
1246: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1241:
1242: IF (x_return_status = fnd_api.g_ret_sts_error)
1243: THEN
1244: l_error_flag:='Y';
1245: RAISE fnd_api.g_exc_error;
1246: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1247: THEN
1248: l_error_flag:='Y';
1249: RAISE fnd_api.g_exc_unexpected_error;
1242: IF (x_return_status = fnd_api.g_ret_sts_error)
1243: THEN
1244: l_error_flag:='Y';
1245: RAISE fnd_api.g_exc_error;
1246: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1247: THEN
1248: l_error_flag:='Y';
1249: RAISE fnd_api.g_exc_unexpected_error;
1250: END IF;
1245: RAISE fnd_api.g_exc_error;
1246: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1247: THEN
1248: l_error_flag:='Y';
1249: RAISE fnd_api.g_exc_unexpected_error;
1250: END IF;
1251: END IF;
1252: --x_return_status := fnd_api.g_ret_sts_success;
1253: EXCEPTION
1248: l_error_flag:='Y';
1249: RAISE fnd_api.g_exc_unexpected_error;
1250: END IF;
1251: END IF;
1252: --x_return_status := fnd_api.g_ret_sts_success;
1253: EXCEPTION
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1250: END IF;
1251: END IF;
1252: --x_return_status := fnd_api.g_ret_sts_success;
1253: EXCEPTION
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1251: END IF;
1252: --x_return_status := fnd_api.g_ret_sts_success;
1253: EXCEPTION
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1252: --x_return_status := fnd_api.g_ret_sts_success;
1253: EXCEPTION
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1253: EXCEPTION
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1254: WHEN fnd_api.g_exc_error THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1262: WHEN OTHERS THEN
1255: x_return_status := fnd_api.g_ret_sts_error;
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1262: WHEN OTHERS THEN
1263: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);--Rupak
1256: -----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);--Rupak
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1262: WHEN OTHERS THEN
1263: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);--Rupak
1264: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
1257: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1258: WHEN fnd_api.g_exc_unexpected_error THEN
1259: x_return_status := fnd_api.g_ret_sts_unexp_error;
1260: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1262: WHEN OTHERS THEN
1263: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);--Rupak
1264: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
1265: x_return_status := fnd_api.g_ret_sts_error;
1261: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
1262: WHEN OTHERS THEN
1263: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);--Rupak
1264: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
1265: x_return_status := fnd_api.g_ret_sts_error;
1266: END;
1267: END LOOP;
1268: ELSE
1269: x_return_status := fnd_api.g_ret_sts_error;
1265: x_return_status := fnd_api.g_ret_sts_error;
1266: END;
1267: END LOOP;
1268: ELSE
1269: x_return_status := fnd_api.g_ret_sts_error;
1270: END IF;
1271: END validate_tenancies_tbl;
1272:
1273:
1295: BEGIN
1296: ----------------------dbms_output.put_line ( 'p_lease_tenancies_rec.tenancy_id'|| p_lease_tenancies_rec.tenancy_id);--Rupak
1297: pvt_debug(g_pkg_name||'-UPDATE_TENANCIES_ROW:Tenancy ID'||p_lease_tenancies_rec.tenancy_id,3);
1298: -- Initialize the return status.
1299: x_return_status := fnd_api.g_ret_sts_success;
1300:
1301: IF p_lease_tenancies_rec.org_id IS NULL OR NVL(pn_mo_cache_utils.check_valid_org(p_lease_tenancies_rec.org_id), 'N') <> 'Y' THEN
1302: fnd_message.set_name('MO', 'MO_ORG_INVALID');
1303: fnd_msg_pub.ADD;
1300:
1301: IF p_lease_tenancies_rec.org_id IS NULL OR NVL(pn_mo_cache_utils.check_valid_org(p_lease_tenancies_rec.org_id), 'N') <> 'Y' THEN
1302: fnd_message.set_name('MO', 'MO_ORG_INVALID');
1303: fnd_msg_pub.ADD;
1304: RAISE fnd_api.g_exc_error;
1305: END IF;
1306:
1307: l_mutiple_lease := NVL(pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION'
1308: , p_lease_tenancies_rec.org_id)
1342: fnd_message.set_name('PN', 'PN_LOC_VACANT_AREA_LESSER');
1343: fnd_message.set_token('LOCATION_CODE',l_location_code);
1344: fnd_message.set_token('MAX_AREA',l_min_pct + l_allocated_pct);
1345: fnd_msg_pub.ADD;
1346: RAISE fnd_api.g_exc_error;
1347:
1348: END IF;
1349: p_lease_tenancies_rec.allocated_area := l_loc_area;
1350: END IF;
1413: EXCEPTION
1414: WHEN OTHERS
1415: THEN
1416: ----------------------dbms_output.put_line ( 'at l_LEASE tenancies EXCEPTION: '|| SQLERRM);--Rupak
1417: x_return_status := fnd_api.g_ret_sts_error;
1418: pvt_debug(g_pkg_name||'-UPDATE_TENANCIES_ROW:Exception while updating:'||SQLERRM,3);
1419: END update_tenancies_row;
1420:
1421:
1467:
1468:
1469: PROCEDURE update_tenancies (
1470: p_api_version IN NUMBER
1471: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1472: , p_commit IN VARCHAR2 := fnd_api.g_false
1473: , p_validate IN VARCHAR2 := fnd_api.g_false
1474: , p_lease_tenancies_tbl IN OUT NOCOPY lease_tenancies_tbl
1475: , p_lease_id IN NUMBER
1468:
1469: PROCEDURE update_tenancies (
1470: p_api_version IN NUMBER
1471: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1472: , p_commit IN VARCHAR2 := fnd_api.g_false
1473: , p_validate IN VARCHAR2 := fnd_api.g_false
1474: , p_lease_tenancies_tbl IN OUT NOCOPY lease_tenancies_tbl
1475: , p_lease_id IN NUMBER
1476: , p_lease_change_id IN NUMBER
1469: PROCEDURE update_tenancies (
1470: p_api_version IN NUMBER
1471: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1472: , p_commit IN VARCHAR2 := fnd_api.g_false
1473: , p_validate IN VARCHAR2 := fnd_api.g_false
1474: , p_lease_tenancies_tbl IN OUT NOCOPY lease_tenancies_tbl
1475: , p_lease_id IN NUMBER
1476: , p_lease_change_id IN NUMBER
1477: , p_lease_context IN VARCHAR2
1514: pvt_debug(g_pkg_name||'-UPDATE_TENANCIES_TBL:Procedure Begin',3);
1515:
1516: -- Standard start of API savepoint
1517: -- Initialize the return status.
1518: x_return_status := fnd_api.g_ret_sts_success;
1519:
1520: l_lease_rec.lease_id := p_lease_id;
1521: l_lease_rec.lease_change_id := p_lease_change_id;
1522: --------------------------------------------------
1525: IF p_lease_id IS NULL
1526: THEN
1527: pn_lease_utils.add_null_parameter_msg (p_token_apiname => l_api_name_full
1528: , p_token_nullparam => 'LEASE_ID_NULL');
1529: RAISE fnd_api.g_exc_error;
1530: ELSE
1531: BEGIN
1532: SELECT pla.lease_class_code
1533: , pld.lease_commencement_date
1550: fnd_message.set_token ('API_NAME', l_api_name_full);
1551: fnd_message.set_token ('LEASE_ID', p_lease_id);
1552: fnd_message.set_token ('SQLERRM', SQLERRM);
1553: fnd_msg_pub.ADD;
1554: RAISE fnd_api.g_exc_error;
1555: END;
1556: END IF;
1557:
1558: ----------------------dbms_output.put_line('In Update_Tenancies:B4 validate_tenancies_tbl'||p_lease_tenancies_tbl(1).location_id);--Rupak
1859: , p_resp_id => fnd_global.resp_id
1860: , p_return_status => x_return_status
1861: );
1862:
1863: IF (x_return_status = fnd_api.g_ret_sts_error)
1864: THEN
1865: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1866: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1867: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1865: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1866: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1867: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1868: fnd_msg_pub.ADD;
1869: RAISE fnd_api.g_exc_error;
1870: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1871: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1872: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1873: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1866: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1867: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1868: fnd_msg_pub.ADD;
1869: RAISE fnd_api.g_exc_error;
1870: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1871: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1872: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1873: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1874: fnd_msg_pub.ADD;
1871: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
1872: fnd_message.set_token ('COLUMN', 'PN_TENANCIES_DESC_FILEDS');
1873: fnd_message.set_token ('P_TEXT', 'PN_TENANCIES'|| '-'|| SQLERRM);
1874: fnd_msg_pub.ADD;
1875: RAISE fnd_api.g_exc_unexpected_error;
1876: END IF;
1877: END IF;
1878:
1879: ----------------------dbms_output.put_line('In Update tenancies B4 Update tenancy');--Rupak
1883: , p_lease_context => p_lease_context
1884: , x_return_status => x_return_status
1885: );
1886:
1887: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1888:
1889: IF l_lease_rec.lease_class_code <> 'DIRECT' AND
1890: (nvl(p_lease_tenancies_tbl_update(i).location_id,-99) <> nvl(c_loc_rec.location_id,-99) OR
1891: (nvl(p_lease_tenancies_tbl_update(i).occupancy_date,p_lease_tenancies_tbl_update(i).estimated_occupancy_date) <>
1904: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES:Calling Update_Space_Assign End with Status '|| x_return_status,3);
1905: END IF;
1906: END IF;
1907:
1908: IF (x_return_status = fnd_api.g_ret_sts_error)
1909: THEN
1910: RAISE fnd_api.g_exc_error;
1911: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1912: THEN
1906: END IF;
1907:
1908: IF (x_return_status = fnd_api.g_ret_sts_error)
1909: THEN
1910: RAISE fnd_api.g_exc_error;
1911: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1912: THEN
1913: RAISE fnd_api.g_exc_unexpected_error;
1914: END IF;
1907:
1908: IF (x_return_status = fnd_api.g_ret_sts_error)
1909: THEN
1910: RAISE fnd_api.g_exc_error;
1911: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1912: THEN
1913: RAISE fnd_api.g_exc_unexpected_error;
1914: END IF;
1915:
1909: THEN
1910: RAISE fnd_api.g_exc_error;
1911: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
1912: THEN
1913: RAISE fnd_api.g_exc_unexpected_error;
1914: END IF;
1915:
1916: l_assign_flag := 'Y';
1917: END IF;
1915:
1916: l_assign_flag := 'Y';
1917: END IF;
1918: EXCEPTION
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1922: WHEN OTHERS THEN
1923: x_return_status := fnd_api.g_ret_sts_unexp_error;
1916: l_assign_flag := 'Y';
1917: END IF;
1918: EXCEPTION
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1922: WHEN OTHERS THEN
1923: x_return_status := fnd_api.g_ret_sts_unexp_error;
1924: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:'||SQLERRM,3);
1917: END IF;
1918: EXCEPTION
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1922: WHEN OTHERS THEN
1923: x_return_status := fnd_api.g_ret_sts_unexp_error;
1924: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:'||SQLERRM,3);
1925: END;
1919: WHEN fnd_api.g_exc_error THEN
1920: x_return_status := fnd_api.g_ret_sts_error;
1921: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
1922: WHEN OTHERS THEN
1923: x_return_status := fnd_api.g_ret_sts_unexp_error;
1924: pvt_debug(g_pkg_name||'-update_tenancies:LOOOPING:EXCEPTION:'||SQLERRM,3);
1925: END;
1926:
1927: END LOOP;
1956: END IF;
1957: EXCEPTION
1958: WHEN OTHERS THEN
1959: pvt_debug(g_pkg_name||'-update_tenancies:MAIN:EXCEPTION'||SQLERRM,3);
1960: x_return_status := fnd_api.g_ret_sts_error;
1961: END update_tenancies;
1962:
1963:
1964: PROCEDURE update_contacts (
1962:
1963:
1964: PROCEDURE update_contacts (
1965: p_api_version IN NUMBER
1966: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1967: , p_commit IN VARCHAR2 := fnd_api.g_false
1968: , p_validate IN VARCHAR2 := fnd_api.g_false
1969: , p_lease_contacts_tbl IN OUT NOCOPY lease_contacts_tbl
1970: , p_lease_id IN NUMBER
1963:
1964: PROCEDURE update_contacts (
1965: p_api_version IN NUMBER
1966: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1967: , p_commit IN VARCHAR2 := fnd_api.g_false
1968: , p_validate IN VARCHAR2 := fnd_api.g_false
1969: , p_lease_contacts_tbl IN OUT NOCOPY lease_contacts_tbl
1970: , p_lease_id IN NUMBER
1971: , p_lease_change_id IN NUMBER
1964: PROCEDURE update_contacts (
1965: p_api_version IN NUMBER
1966: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1967: , p_commit IN VARCHAR2 := fnd_api.g_false
1968: , p_validate IN VARCHAR2 := fnd_api.g_false
1969: , p_lease_contacts_tbl IN OUT NOCOPY lease_contacts_tbl
1970: , p_lease_id IN NUMBER
1971: , p_lease_change_id IN NUMBER
1972: , p_lease_context IN VARCHAR2
2224: , p_resp_appl_id => fnd_global.resp_appl_id
2225: ,p_resp_id => fnd_global.resp_id
2226: , p_return_status => x_return_status
2227: );
2228: IF (x_return_status = fnd_api.g_ret_sts_error)THEN
2229: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2230: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2231: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2232: fnd_msg_pub.ADD;
2229: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2230: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2231: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2232: fnd_msg_pub.ADD;
2233: RAISE fnd_api.g_exc_error;
2234: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2235: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2236: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2237: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2230: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2231: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2232: fnd_msg_pub.ADD;
2233: RAISE fnd_api.g_exc_error;
2234: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2235: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2236: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2237: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2238: fnd_msg_pub.ADD;
2235: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2236: fnd_message.set_token ('COLUMN','PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
2237: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
2238: fnd_msg_pub.ADD;
2239: RAISE fnd_api.g_exc_unexpected_error;
2240: END IF;
2241: END IF;
2242: ----------------------dbms_output.put_line('B4 Update Contact Row');--Rupak
2243: pvt_debug(g_pkg_name||'-UPDATE_CONTACTS:Initialize the values to NULL and Call the UPDATE_CONTACTS_ROW',3);
2249: , p_lease_id => p_lease_id
2250: , p_lease_context => p_lease_context
2251: , x_return_status => x_return_status);
2252:
2253: IF (x_return_status = fnd_api.g_ret_sts_error)
2254: THEN
2255: RAISE fnd_api.g_exc_error;
2256: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2257: THEN
2251: , x_return_status => x_return_status);
2252:
2253: IF (x_return_status = fnd_api.g_ret_sts_error)
2254: THEN
2255: RAISE fnd_api.g_exc_error;
2256: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2257: THEN
2258: RAISE fnd_api.g_exc_unexpected_error;
2259: END IF;
2252:
2253: IF (x_return_status = fnd_api.g_ret_sts_error)
2254: THEN
2255: RAISE fnd_api.g_exc_error;
2256: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2257: THEN
2258: RAISE fnd_api.g_exc_unexpected_error;
2259: END IF;
2260:
2254: THEN
2255: RAISE fnd_api.g_exc_error;
2256: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
2257: THEN
2258: RAISE fnd_api.g_exc_unexpected_error;
2259: END IF;
2260:
2261: l_assign_flag := 'Y';
2262: ELSE
2264: ------------------------dbms_output.put_line('In Update Contacts:ELSE PART :p_lease_contacts_tbl_update(i).contact_assignment_id'||p_lease_contacts_tbl_update(i).contact_assignment_id);
2265: ------------------------dbms_output.put_line('In Update Contacts:ELSE PART :r_contact_details.contact_assignment_id'||r_contact_details.contact_assignment_id);
2266: END IF;
2267: EXCEPTION
2268: WHEN fnd_api.g_exc_error THEN
2269: --l_error_count_err := l_error_count_err+1;
2270: x_return_status := fnd_api.g_ret_sts_error;
2271: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2272: WHEN OTHERS THEN
2266: END IF;
2267: EXCEPTION
2268: WHEN fnd_api.g_exc_error THEN
2269: --l_error_count_err := l_error_count_err+1;
2270: x_return_status := fnd_api.g_ret_sts_error;
2271: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2272: WHEN OTHERS THEN
2273: --l_error_count_uerr := l_error_count_uerr+1;
2274: x_return_status := fnd_api.g_ret_sts_unexp_error;
2267: EXCEPTION
2268: WHEN fnd_api.g_exc_error THEN
2269: --l_error_count_err := l_error_count_err+1;
2270: x_return_status := fnd_api.g_ret_sts_error;
2271: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2272: WHEN OTHERS THEN
2273: --l_error_count_uerr := l_error_count_uerr+1;
2274: x_return_status := fnd_api.g_ret_sts_unexp_error;
2275: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:'||SQLERRM,3);
2270: x_return_status := fnd_api.g_ret_sts_error;
2271: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2272: WHEN OTHERS THEN
2273: --l_error_count_uerr := l_error_count_uerr+1;
2274: x_return_status := fnd_api.g_ret_sts_unexp_error;
2275: pvt_debug(g_pkg_name||'-update_contacts:LOOOPING:EXCEPTION:'||SQLERRM,3);
2276: END;
2277: END LOOP;
2278: ELSE
2311: END update_contacts;
2312:
2313: /* Update Lease API*/
2314: PROCEDURE direct_update_lease (
2315: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2316: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2317: , x_return_status OUT NOCOPY VARCHAR2
2318: , x_msg_count OUT NOCOPY NUMBER
2319: , x_msg_data OUT NOCOPY VARCHAR2
2312:
2313: /* Update Lease API*/
2314: PROCEDURE direct_update_lease (
2315: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2316: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2317: , x_return_status OUT NOCOPY VARCHAR2
2318: , x_msg_count OUT NOCOPY NUMBER
2319: , x_msg_data OUT NOCOPY VARCHAR2
2320: , p_lease_id IN NUMBER
2372: -- Standard start of API savepoint
2373: SAVEPOINT update_lease_pvt;
2374:
2375: -- Initialize message list if p_init_msg_list is set to TRUE
2376: IF fnd_api.to_boolean (p_init_msg_list)
2377: THEN
2378: fnd_msg_pub.initialize;
2379: END IF;
2380:
2380:
2381:
2382: pvt_debug(g_pkg_name||'-DIRECT_UPDATE_LEASE:Updating the Lease Record by calling the standard Package',3);
2383: -- Initialize the return status.
2384: x_return_status := fnd_api.g_ret_sts_success;
2385: l_lastupdatedate := p_last_update_date;
2386: l_leasecommencementdate := p_lease_commencement_date;
2387: l_leaseterminationdate := p_lease_termination_date;
2388: l_leaseexecutiondate := p_lease_execution_date;
2438: );
2439:
2440: pvt_debug(g_pkg_name||'-DIRECT_UPDATE_LEASE:Update of the Record Successful',3);
2441: EXCEPTION
2442: WHEN fnd_api.g_exc_error
2443: THEN
2444: ROLLBACK TO update_lease_pvt;
2445: x_return_status := fnd_api.g_ret_sts_error;
2446: WHEN OTHERS
2441: EXCEPTION
2442: WHEN fnd_api.g_exc_error
2443: THEN
2444: ROLLBACK TO update_lease_pvt;
2445: x_return_status := fnd_api.g_ret_sts_error;
2446: WHEN OTHERS
2447: THEN
2448: ROLLBACK TO update_lease_pvt;
2449: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2448: ROLLBACK TO update_lease_pvt;
2449: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2450: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.direct_update_lease'|| SQLERRM);
2451: fnd_msg_pub.ADD;
2452: x_return_status := fnd_api.g_ret_sts_unexp_error;
2453: END direct_update_lease;
2454:
2455: /*Amend Lease*/
2456: PROCEDURE amend_lease (
2453: END direct_update_lease;
2454:
2455: /*Amend Lease*/
2456: PROCEDURE amend_lease (
2457: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2458: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2459: , x_return_status OUT NOCOPY VARCHAR2
2460: , x_msg_count OUT NOCOPY NUMBER
2461: , x_msg_data OUT NOCOPY VARCHAR2
2454:
2455: /*Amend Lease*/
2456: PROCEDURE amend_lease (
2457: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2458: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2459: , x_return_status OUT NOCOPY VARCHAR2
2460: , x_msg_count OUT NOCOPY NUMBER
2461: , x_msg_data OUT NOCOPY VARCHAR2
2462: , p_lease_name IN VARCHAR2
2502: -- Standard start of API savepoint
2503: SAVEPOINT amend_lease_pvt;
2504:
2505: -- Initialize message list if p_init_msg_list is set to TRUE
2506: IF fnd_api.to_boolean (p_init_msg_list)
2507: THEN
2508: fnd_msg_pub.initialize;
2509: END IF;
2510: ----------------------dbms_output.put_line('IN AMEND PROC'||p_lease_name);
2509: END IF;
2510: ----------------------dbms_output.put_line('IN AMEND PROC'||p_lease_name);
2511: pvt_debug(g_pkg_name||'-AMEND_LEASE:Inerting into the Lease Changes Package',3);
2512: -- Initialize the return status.
2513: x_return_status := fnd_api.g_ret_sts_success;
2514: l_org_id := p_org_id;
2515: l_lastupdatedate := p_last_update_date;
2516: l_creationdate := p_creation_date;
2517: l_changecommencementdate := p_lease_commencement_date;
2554: pvt_debug(g_pkg_name||'-AMEND_LEASE:Insertion into the table successful',3);
2555: x_lease_change_id := l_leasechangeid;
2556: x_lease_change_num := l_leasechangenumber;
2557: EXCEPTION
2558: WHEN fnd_api.g_exc_error
2559: THEN
2560: ROLLBACK TO amend_lease_pvt;
2561: x_return_status := fnd_api.g_ret_sts_error;
2562: WHEN OTHERS
2557: EXCEPTION
2558: WHEN fnd_api.g_exc_error
2559: THEN
2560: ROLLBACK TO amend_lease_pvt;
2561: x_return_status := fnd_api.g_ret_sts_error;
2562: WHEN OTHERS
2563: THEN
2564: ROLLBACK TO amend_lease_pvt;
2565: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2564: ROLLBACK TO amend_lease_pvt;
2565: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2566: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.amend_lease'|| SQLERRM);
2567: fnd_msg_pub.ADD;
2568: x_return_status := fnd_api.g_ret_sts_unexp_error;
2569: END amend_lease;
2570:
2571: /*Edit Lease*/
2572: PROCEDURE edit_lease (
2569: END amend_lease;
2570:
2571: /*Edit Lease*/
2572: PROCEDURE edit_lease (
2573: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2574: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2575: , x_return_status OUT NOCOPY VARCHAR2
2576: , x_msg_count OUT NOCOPY NUMBER
2577: , x_msg_data OUT NOCOPY VARCHAR2
2570:
2571: /*Edit Lease*/
2572: PROCEDURE edit_lease (
2573: p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
2574: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
2575: , x_return_status OUT NOCOPY VARCHAR2
2576: , x_msg_count OUT NOCOPY NUMBER
2577: , x_msg_data OUT NOCOPY VARCHAR2
2578: , p_lease_id IN NUMBER
2592: -- Standard start of API savepoint
2593: SAVEPOINT edit_lease_pvt;
2594:
2595: -- Initialize message list if p_init_msg_list is set to TRUE
2596: IF fnd_api.to_boolean (p_init_msg_list)
2597: THEN
2598: fnd_msg_pub.initialize;
2599: END IF;
2600: pvt_debug(g_pkg_name||'-EDIT_LEASE:Inerting into the Lease Changes Package',3);
2598: fnd_msg_pub.initialize;
2599: END IF;
2600: pvt_debug(g_pkg_name||'-EDIT_LEASE:Inerting into the Lease Changes Package',3);
2601: -- Initialize the return status.
2602: x_return_status := fnd_api.g_ret_sts_success;
2603: l_org_id := p_org_id;
2604: pn_lease_changes_pkg.insert_row (x_rowid => l_rowid
2605: , x_lease_change_id => l_leasechangeid
2606: , x_lease_id => p_lease_id
2634: , x_last_updated_by => fnd_global.user_id
2635: , x_last_update_login => fnd_global.login_id
2636: , x_org_id => l_org_id);
2637: pvt_debug(g_pkg_name||'-EDIT_LEASE:Insertion into the table successful',3);
2638: x_return_status := fnd_api.g_ret_sts_success;
2639: x_lease_change_id := l_leasechangeid;
2640: x_lease_change_num := l_leasechangenumber;
2641: EXCEPTION
2642: WHEN fnd_api.g_exc_error
2638: x_return_status := fnd_api.g_ret_sts_success;
2639: x_lease_change_id := l_leasechangeid;
2640: x_lease_change_num := l_leasechangenumber;
2641: EXCEPTION
2642: WHEN fnd_api.g_exc_error
2643: THEN
2644: ROLLBACK TO edit_lease_pvt;
2645: x_return_status := fnd_api.g_ret_sts_error;
2646: WHEN OTHERS
2641: EXCEPTION
2642: WHEN fnd_api.g_exc_error
2643: THEN
2644: ROLLBACK TO edit_lease_pvt;
2645: x_return_status := fnd_api.g_ret_sts_error;
2646: WHEN OTHERS
2647: THEN
2648: ROLLBACK TO edit_lease_pvt;
2649: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2649: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
2650: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.edit_lease'
2651: || SQLERRM);
2652: fnd_msg_pub.ADD;
2653: x_return_status := fnd_api.g_ret_sts_unexp_error;
2654: END edit_lease;
2655:
2656: PROCEDURE INIT_TENANCIES_REC( p_lease_tenancies_rec IN OUT NOCOPY lease_tenancies_rec
2657: , p_lease_context IN VARCHAR2
2661:
2662: BEGIN
2663: pvt_debug(g_pkg_name||'-Inside INIT_TENANCIES_REC',3);
2664: -- Initialize the return status.
2665: x_return_status := fnd_api.g_ret_sts_success;
2666: IF p_lease_tenancies_rec.tenancy_id = pn_lease_utils.g_pn_miss_num
2667: THEN
2668: p_lease_tenancies_rec.tenancy_id:= NULL;
2669: END IF;
2920: END IF;
2921: EXCEPTION
2922: WHEN OTHERS
2923: THEN
2924: x_return_status := fnd_api.g_ret_sts_error;
2925: pvt_debug(g_pkg_name||'- INIT_TENANCIES_REC:Exception in INIT_TENANCIES_REC'||SQLERRM,3);
2926: END INIT_TENANCIES_REC;
2927:
2928: PROCEDURE insert_tenancies_row (
2962:
2963: BEGIN
2964: ----------------------dbms_output.put_line ('In Insert INSERT_TENNANCIES_ROW');
2965: -- Initialize the return status.
2966: x_return_status := fnd_api.g_ret_sts_success;
2967: /*********************************************************************************************************************************************/
2968: IF p_lease_tenancies_rec.org_id IS NULL OR
2969: NVL(pn_mo_cache_utils.check_valid_org(p_lease_tenancies_rec.org_id), 'N') <> 'Y'
2970: THEN
2969: NVL(pn_mo_cache_utils.check_valid_org(p_lease_tenancies_rec.org_id), 'N') <> 'Y'
2970: THEN
2971: fnd_message.set_name('MO', 'MO_ORG_INVALID');
2972: fnd_msg_pub.ADD;
2973: RAISE fnd_api.g_exc_error;
2974: END IF;
2975:
2976: pvt_debug(g_pkg_name||'-Inside INSERT_TENANCIES_ROW',3);
2977: l_mutiple_lease := NVL(pn_mo_cache_utils.get_profile_value('PN_MULTIPLE_LEASE_FOR_LOCATION'
3025: --ELSIF l_answer = 2 THEN -- Cancel
3026: -- Raise Form_trigger_failure;
3027: --END IF;
3028: fnd_msg_pub.ADD;
3029: RAISE fnd_api.g_exc_error;
3030:
3031: ELSIF l_min_pct > 0 THEN
3032: fnd_message.set_name('PN', 'PN_LOC_VACANT_AREA_LESSER');
3033: fnd_message.set_token('LOCATION_CODE',p_lease_tenancies_rec.location_code);
3032: fnd_message.set_name('PN', 'PN_LOC_VACANT_AREA_LESSER');
3033: fnd_message.set_token('LOCATION_CODE',p_lease_tenancies_rec.location_code);
3034: fnd_message.set_token('MAX_AREA',nvl(l_min_pct,0));
3035: fnd_msg_pub.ADD;
3036: RAISE fnd_api.g_exc_error;
3037:
3038: END IF;
3039: END IF;
3040: p_lease_tenancies_rec.allocated_area := l_loc_area;
3113: EXCEPTION
3114: WHEN OTHERS
3115: THEN
3116: NULL;
3117: x_return_status := fnd_api.g_ret_sts_error;
3118: ----------------------dbms_output.put_line ( 'IN INSERT_TENANCIES_ROW EXCEPTION: '|| SQLERRM);--Rupak
3119: pvt_debug(g_pkg_name||'- INSERT_TENANCIES_ROW:Exception in Insertion into tenancies table'||SQLERRM,3);
3120:
3121: END insert_tenancies_row;
3376: -- Standard start of API savepoint
3377: SAVEPOINT validate_contacts_tbl;
3378:
3379: -- Initialize message list if p_init_msg_list is set to TRUE
3380: -- IF fnd_api.to_boolean (p_init_msg_list)
3381: -- THEN
3382: -- FND_MSG_PUB.INITIALIZE;
3383: -- END IF;
3384:
3382: -- FND_MSG_PUB.INITIALIZE;
3383: -- END IF;
3384:
3385: -- Initialize the return status.
3386: x_return_status := fnd_api.g_ret_sts_success;
3387: l_contact_record_cnt := p_lease_contacts_tbl.COUNT;
3388: IF l_contact_record_cnt >0
3389: THEN
3390: ----------------------dbms_output.put_line('Private Contacts:1');--Rupak
3413:
3414:
3415: ----------------------dbms_output.put_line ( 'Contact Role: ' || p_lease_contacts_tbl (i).role_code);--Rupak
3416: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Contact Role:'||p_lease_contacts_tbl (i).role_code,3);
3417: IF (x_return_status = fnd_api.g_ret_sts_error)
3418: THEN
3419: ----------------------dbms_output.put_line ( 'Contact Role:fnd_api.g_ret_sts_error ' || p_lease_contacts_tbl (i).role_code);--Rupak
3420: l_error_flag:='Y';
3421: p_lease_contacts_tbl (i).error_flag := 'Y';
3415: ----------------------dbms_output.put_line ( 'Contact Role: ' || p_lease_contacts_tbl (i).role_code);--Rupak
3416: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Contact Role:'||p_lease_contacts_tbl (i).role_code,3);
3417: IF (x_return_status = fnd_api.g_ret_sts_error)
3418: THEN
3419: ----------------------dbms_output.put_line ( 'Contact Role:fnd_api.g_ret_sts_error ' || p_lease_contacts_tbl (i).role_code);--Rupak
3420: l_error_flag:='Y';
3421: p_lease_contacts_tbl (i).error_flag := 'Y';
3422: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
3423: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_role_lookup_type));
3423: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_role_lookup_type));
3424: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_contacts_tbl (i).role));
3425: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_contacts_tbl (i).role_code));
3426: fnd_msg_pub.ADD;
3427: RAISE fnd_api.g_exc_error;
3428: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3429: THEN
3430: ----------------------dbms_output.put_line ( 'Contact Role:fnd_api.g_ret_sts_unexp_error ' || p_lease_contacts_tbl (i).role_code);--Rupak
3431: l_error_flag:='Y';
3424: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_contacts_tbl (i).role));
3425: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_contacts_tbl (i).role_code));
3426: fnd_msg_pub.ADD;
3427: RAISE fnd_api.g_exc_error;
3428: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3429: THEN
3430: ----------------------dbms_output.put_line ( 'Contact Role:fnd_api.g_ret_sts_unexp_error ' || p_lease_contacts_tbl (i).role_code);--Rupak
3431: l_error_flag:='Y';
3432: p_lease_contacts_tbl (i).error_flag := 'Y';
3426: fnd_msg_pub.ADD;
3427: RAISE fnd_api.g_exc_error;
3428: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3429: THEN
3430: ----------------------dbms_output.put_line ( 'Contact Role:fnd_api.g_ret_sts_unexp_error ' || p_lease_contacts_tbl (i).role_code);--Rupak
3431: l_error_flag:='Y';
3432: p_lease_contacts_tbl (i).error_flag := 'Y';
3433: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
3434: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_role_lookup_type));
3434: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_role_lookup_type));
3435: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_contacts_tbl (i).role));
3436: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_contacts_tbl (i).role_code));
3437: fnd_msg_pub.ADD;
3438: RAISE fnd_api.g_exc_unexpected_error;
3439: END IF;
3440:
3441: ELSE
3442: IF (trim(p_operation) <> 'UPDATE_CONTACTS') THEN
3443: pn_lease_utils.add_null_parameter_msg
3444: (p_token_apiname => l_api_name_full
3445: , p_token_nullparam => 'CONTACT_ROLE');
3446: l_error_flag:='Y';
3447: RAISE fnd_api.g_exc_error;
3448: END IF;
3449: END IF;
3450:
3451: IF (trim(p_operation) = 'UPDATE_CONTACTS' AND ( (p_lease_contacts_tbl (i).role_code IS NULL OR p_lease_contacts_tbl (i).role_code = pn_lease_utils.g_pn_miss_char)
3484: ------------------dbms_output.put_line ( 'Contacts Private:Company Id: ' || p_lease_contacts_tbl (i).company_id||'-'||x_return_status);--Rupak
3485: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Company ID'||p_lease_contacts_tbl (i).company_id,3);
3486:
3487:
3488: IF (x_return_status = fnd_api.g_ret_sts_error)
3489: THEN
3490: l_error_flag:='Y';
3491: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
3492: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_name));
3492: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_name));
3493: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_id));
3494: fnd_msg_pub.ADD;
3495: p_lease_contacts_tbl (i).error_flag := 'Y';
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3498: THEN
3499: l_error_flag:='Y';
3500: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
3493: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_id));
3494: fnd_msg_pub.ADD;
3495: p_lease_contacts_tbl (i).error_flag := 'Y';
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3498: THEN
3499: l_error_flag:='Y';
3500: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
3501: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_name));
3501: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_name));
3502: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_id));
3503: fnd_msg_pub.ADD;
3504: p_lease_contacts_tbl (i).error_flag := 'Y';
3505: RAISE fnd_api.g_exc_unexpected_error;
3506: END IF;
3507:
3508: ELSE
3509: IF (trim(p_operation) <> 'UPDATE_CONTACTS') THEN
3515: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3516: fnd_message.set_token ('API_NAME', l_api_name_full);
3517: fnd_message.set_token ('NULL_PARAM', 'CONTACT_CUSTOMER');
3518: fnd_msg_pub.ADD;
3519: RAISE fnd_api.g_exc_error;
3520: END IF;
3521: END IF;
3522: ----------------------dbms_output.put_line('Private Contacts:6');--Rupak
3523: IF ( ( p_lease_contacts_tbl (i).company_site_id IS NOT NULL
3534: , x_company_site_id => p_lease_contacts_tbl (i).company_site_id
3535: );
3536: ----------------------dbms_output.put_line ( 'Company site Id: '|| p_lease_contacts_tbl (i).company_site_id);
3537: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Company Site ID'||p_lease_contacts_tbl (i).company_site_id,3);
3538: IF (x_return_status = fnd_api.g_ret_sts_error)
3539: THEN
3540: l_error_flag:='Y';
3541: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY_SITE');
3542: fnd_message.set_token ('COMPANY_SITE_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_site_name));
3542: fnd_message.set_token ('COMPANY_SITE_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_site_name));
3543: fnd_message.set_token ('COMPANY_SITE_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_site_id));
3544: fnd_msg_pub.ADD;
3545: p_lease_contacts_tbl (i).error_flag := 'Y';
3546: RAISE fnd_api.g_exc_error;
3547: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3548: THEN
3549: l_error_flag:='Y';
3550: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY_SITE');
3543: fnd_message.set_token ('COMPANY_SITE_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_site_id));
3544: fnd_msg_pub.ADD;
3545: p_lease_contacts_tbl (i).error_flag := 'Y';
3546: RAISE fnd_api.g_exc_error;
3547: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3548: THEN
3549: l_error_flag:='Y';
3550: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY_SITE');
3551: fnd_message.set_token ('COMPANY_SITE_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_site_name));
3551: fnd_message.set_token ('COMPANY_SITE_NAME', get_miss_char_decode(p_lease_contacts_tbl (i).company_site_name));
3552: fnd_message.set_token ('COMPANY_SITE_ID', get_miss_num_decode(p_lease_contacts_tbl (i).company_site_id));
3553: fnd_msg_pub.ADD;
3554: p_lease_contacts_tbl (i).error_flag := 'Y';
3555: RAISE fnd_api.g_exc_unexpected_error;
3556: END IF;
3557:
3558: ELSE
3559: IF (trim(p_operation) <> 'UPDATE_CONTACTS') THEN
3564: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3565: fnd_message.set_token ('API_NAME', l_api_name_full);
3566: fnd_message.set_token ('NULL_PARAM', 'CONTACT_CUSTOMER_SITE');
3567: fnd_msg_pub.ADD;
3568: RAISE fnd_api.g_exc_error;
3569: END IF;
3570: END IF;
3571: IF(RTRIM(LTRIM(p_operation)) = 'CREATE_LEASE') THEN
3572: ----------------------dbms_output.put_line('Private Contacts:7');--Rupak
3716: ,p_lease_contacts_tbl(i).attribute14
3717: ,p_lease_contacts_tbl(i).attribute15
3718: ,x_return_status
3719: );
3720: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
3721: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3722: fnd_message.set_token ('API_NAME', l_api_name_full);
3723: fnd_message.set_token ('NULL_PARAM','Required attribute in Contacts is NULL');
3724: fnd_msg_pub.ADD;
3721: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3722: fnd_message.set_token ('API_NAME', l_api_name_full);
3723: fnd_message.set_token ('NULL_PARAM','Required attribute in Contacts is NULL');
3724: fnd_msg_pub.ADD;
3725: RAISE fnd_api.g_exc_error;
3726: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3727: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3728: fnd_message.set_token ('API_NAME', l_api_name_full);
3729: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Contacts is NULL');
3722: fnd_message.set_token ('API_NAME', l_api_name_full);
3723: fnd_message.set_token ('NULL_PARAM','Required attribute in Contacts is NULL');
3724: fnd_msg_pub.ADD;
3725: RAISE fnd_api.g_exc_error;
3726: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3727: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3728: fnd_message.set_token ('API_NAME', l_api_name_full);
3729: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Contacts is NULL');
3730: fnd_msg_pub.ADD;
3727: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3728: fnd_message.set_token ('API_NAME', l_api_name_full);
3729: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Contacts is NULL');
3730: fnd_msg_pub.ADD;
3731: RAISE fnd_api.g_exc_unexpected_error;
3732: ELSE*/
3733: IF NOT ((p_lease_contacts_tbl(i).attribute_category = pn_lease_utils.g_pn_miss_char OR p_lease_contacts_tbl(i).attribute_category IS NULL)
3734: AND (p_lease_contacts_tbl(i).attribute1 = pn_lease_utils.g_pn_miss_char OR p_lease_contacts_tbl(i).attribute1 IS NULL)
3735: AND (p_lease_contacts_tbl(i).attribute2 = pn_lease_utils.g_pn_miss_char OR p_lease_contacts_tbl(i).attribute2 IS NULL)
3771: , p_resp_id => fnd_global.resp_id
3772: , p_return_status => x_return_status
3773: );
3774:
3775: IF (x_return_status = fnd_api.g_ret_sts_error)
3776: THEN
3777: --l_error_flag:='Y';
3778: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3779: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3778: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3779: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3780: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
3781: fnd_msg_pub.ADD;
3782: RAISE fnd_api.g_exc_error;
3783: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3784: THEN
3785: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3786: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3779: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3780: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
3781: fnd_msg_pub.ADD;
3782: RAISE fnd_api.g_exc_error;
3783: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3784: THEN
3785: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3786: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3787: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
3785: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3786: fnd_message.set_token ('COLUMN', 'PN_CONTACT_ASSIGNMENTS_DESC_FIELDS');
3787: fnd_message.set_token ('P_TEXT', 'PN_CONTACT_ASSIGNMENTS'|| '-'|| SQLERRM);
3788: fnd_msg_pub.ADD;
3789: RAISE fnd_api.g_exc_unexpected_error;
3790: END IF;
3791: END IF; -- End of attributes valitions in create contacts
3792: END IF;
3793: END IF;
3811: , p_lease_context => p_lease_context
3812: , x_return_status => x_return_status);
3813: ----------------------dbms_output.put_line('pn_lease_pvt.insert_contacts_row RETURN STATUS: '||x_return_status);
3814: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Return Status of the INSERT_CONTACTS_ROW'||x_return_status,3);
3815: IF (x_return_status = fnd_api.g_ret_sts_error)
3816: THEN
3817: l_error_flag:='Y';
3818:
3819: RAISE fnd_api.g_exc_error;
3815: IF (x_return_status = fnd_api.g_ret_sts_error)
3816: THEN
3817: l_error_flag:='Y';
3818:
3819: RAISE fnd_api.g_exc_error;
3820: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3821: THEN
3822: l_error_flag:='Y';
3823:
3816: THEN
3817: l_error_flag:='Y';
3818:
3819: RAISE fnd_api.g_exc_error;
3820: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3821: THEN
3822: l_error_flag:='Y';
3823:
3824: RAISE fnd_api.g_exc_unexpected_error;
3820: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3821: THEN
3822: l_error_flag:='Y';
3823:
3824: RAISE fnd_api.g_exc_unexpected_error;
3825: END IF;
3826: END IF;
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3824: RAISE fnd_api.g_exc_unexpected_error;
3825: END IF;
3826: END IF;
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3829: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3830: l_err_contact_count := l_err_contact_count +1;
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3825: END IF;
3826: END IF;
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3829: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3830: l_err_contact_count := l_err_contact_count +1;
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3833: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3827: EXCEPTION
3828: WHEN fnd_api.g_exc_error THEN
3829: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3830: l_err_contact_count := l_err_contact_count +1;
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3833: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3834: l_err_contact_count := l_err_contact_count +1;
3835: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3828: WHEN fnd_api.g_exc_error THEN
3829: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3830: l_err_contact_count := l_err_contact_count +1;
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3833: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3834: l_err_contact_count := l_err_contact_count +1;
3835: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3836: WHEN OTHERS THEN
3829: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3830: l_err_contact_count := l_err_contact_count +1;
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3833: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3834: l_err_contact_count := l_err_contact_count +1;
3835: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3836: WHEN OTHERS THEN
3837: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
3831: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3832: WHEN fnd_api.g_exc_unexpected_error THEN
3833: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
3834: l_err_contact_count := l_err_contact_count +1;
3835: pvt_debug(g_pkg_name||'-VALIDATE_TENANCIES_TBL:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3836: WHEN OTHERS THEN
3837: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
3838: l_err_contact_count := l_err_contact_count +1;
3839: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
3842: END LOOP;
3843:
3844: ELSE
3845: -- Retrun error status when table has no records
3846: --x_return_status := fnd_api.g_ret_sts_error;
3847: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:No Contacts Records Passed'||SQLERRM,3);
3848: END IF;
3849: IF(l_err_contact_count = 0) THEN
3850: x_return_status := fnd_api.g_ret_sts_success;
3846: --x_return_status := fnd_api.g_ret_sts_error;
3847: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:No Contacts Records Passed'||SQLERRM,3);
3848: END IF;
3849: IF(l_err_contact_count = 0) THEN
3850: x_return_status := fnd_api.g_ret_sts_success;
3851: ELSE
3852: x_return_status := fnd_api.g_ret_sts_error;
3853: END IF;
3854: EXCEPTION
3848: END IF;
3849: IF(l_err_contact_count = 0) THEN
3850: x_return_status := fnd_api.g_ret_sts_success;
3851: ELSE
3852: x_return_status := fnd_api.g_ret_sts_error;
3853: END IF;
3854: EXCEPTION
3855: WHEN OTHERS THEN
3856: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Exception'||SQLERRM,3);
3853: END IF;
3854: EXCEPTION
3855: WHEN OTHERS THEN
3856: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:Exception'||SQLERRM,3);
3857: x_return_status := fnd_api.g_ret_sts_error;
3858: END validate_contacts_tbl;
3859:
3860:
3861:
3883: pvt_debug(g_pkg_name||'-Inside VALIDATE_LEASE_REC:'||x_return_status,3);
3884: -- Standard start of API savepoint
3885: SAVEPOINT validate_lease_rec;
3886: -- Initialize message list if p_init_msg_list is set to TRUE
3887: -- IF fnd_api.to_boolean (p_init_msg_list)
3888: -- THEN
3889: -- FND_MSG_PUB.INITIALIZE;
3890: -- END IF;
3891: -- Initialize the return status.
3888: -- THEN
3889: -- FND_MSG_PUB.INITIALIZE;
3890: -- END IF;
3891: -- Initialize the return status.
3892: x_return_status := fnd_api.g_ret_sts_success;
3893: -- Validate Lease Number
3894: pn_leases_pkg.check_unique_lease_number (x_return_status
3895: , p_lease_rec.lease_id
3896: , p_lease_rec.lease_num
3895: , p_lease_rec.lease_id
3896: , p_lease_rec.lease_num
3897: , l_org_id);
3898:
3899: IF (x_return_status = fnd_api.g_ret_sts_error)
3900: THEN
3901: --l_error_flag:='Y';
3902: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3903: fnd_message.set_token('LEASE_NUMBER', p_lease_rec.lease_num);
3901: --l_error_flag:='Y';
3902: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3903: fnd_message.set_token('LEASE_NUMBER', p_lease_rec.lease_num);
3904: fnd_msg_pub.ADD;
3905: RAISE fnd_api.g_exc_error;
3906: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3907: THEN
3908: --l_error_flag:='Y';
3909: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3902: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3903: fnd_message.set_token('LEASE_NUMBER', p_lease_rec.lease_num);
3904: fnd_msg_pub.ADD;
3905: RAISE fnd_api.g_exc_error;
3906: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3907: THEN
3908: --l_error_flag:='Y';
3909: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3910: fnd_message.set_token('LEASE_NUMBER', p_lease_rec.lease_num);
3908: --l_error_flag:='Y';
3909: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
3910: fnd_message.set_token('LEASE_NUMBER', p_lease_rec.lease_num);
3911: fnd_msg_pub.ADD;
3912: RAISE fnd_api.g_exc_unexpected_error;
3913: END IF;
3914:
3915: -----------------------------------------------------------------------------------
3916: /* -- Validate Lease name
3924:
3925: ----------------------dbms_output.put_line('Lease_name: '|| p_lease_rec.lease_name);
3926: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
3927:
3928: IF (x_return_status = fnd_api.g_ret_sts_error)
3929: THEN
3930: RAISE FND_API.G_EXC_ERROR;
3931: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3932: THEN
3926: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
3927:
3928: IF (x_return_status = fnd_api.g_ret_sts_error)
3929: THEN
3930: RAISE FND_API.G_EXC_ERROR;
3931: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3932: THEN
3933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3934: END IF;
3927:
3928: IF (x_return_status = fnd_api.g_ret_sts_error)
3929: THEN
3930: RAISE FND_API.G_EXC_ERROR;
3931: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3932: THEN
3933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3934: END IF;
3935: */
3929: THEN
3930: RAISE FND_API.G_EXC_ERROR;
3931: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3932: THEN
3933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3934: END IF;
3935: */
3936:
3937: -- Validate Lease Type
3943: , x_return_status => x_return_status);
3944: ----------------------dbms_output.put_line ( 'Lease_TYPE: '|| p_lease_rec.lease_type_code);--Rupak
3945: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Lease Type Code:'||p_lease_rec.lease_type_code,3);
3946:
3947: IF (x_return_status = fnd_api.g_ret_sts_error)
3948: THEN
3949: l_error_flag:='Y';
3950: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
3951: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leasetype_lookup_type));
3951: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leasetype_lookup_type));
3952: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_type));
3953: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_type_code));
3954: fnd_msg_pub.ADD;
3955: RAISE fnd_api.g_exc_error;
3956: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3957: THEN
3958: l_error_flag:='Y';
3959: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3952: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_type));
3953: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_type_code));
3954: fnd_msg_pub.ADD;
3955: RAISE fnd_api.g_exc_error;
3956: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3957: THEN
3958: l_error_flag:='Y';
3959: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3960: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_type,3));
3958: l_error_flag:='Y';
3959: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3960: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_type,3));
3961: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
3962: RAISE fnd_api.g_exc_unexpected_error;
3963: END IF;
3964: -- Validate Lease Class
3965: pn_lease_utils.get_lookup_code (p_parameter_name => l_param_lease_class
3966: , p_operation => p_operation
3971:
3972: ----------------------dbms_output.put_line ( 'Lease_CLASS: '|| p_lease_rec.lease_class_code);--Rupak
3973: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Lease Class Code:'||p_lease_rec.lease_class_code,3);
3974: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
3975: IF (x_return_status = fnd_api.g_ret_sts_error)
3976: THEN
3977: l_error_flag:='Y';
3978: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
3979: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leaseclass_lookup_type));
3979: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leaseclass_lookup_type));
3980: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_class));
3981: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_class_code));
3982: fnd_msg_pub.ADD;
3983: RAISE fnd_api.g_exc_error;
3984: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3985: THEN
3986: l_error_flag:='Y';
3987: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3980: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_class));
3981: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_class_code));
3982: fnd_msg_pub.ADD;
3983: RAISE fnd_api.g_exc_error;
3984: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
3985: THEN
3986: l_error_flag:='Y';
3987: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3988: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_class,3));
3987: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
3988: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_class,3));
3989: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
3990: fnd_msg_pub.ADD;
3991: RAISE fnd_api.g_exc_unexpected_error;
3992: END IF;
3993:
3994: -- Validate Master_Lease
3995: IF p_lease_rec.lease_class_code = 'SUB_LEASE'
4004: );
4005:
4006: ----------------------dbms_output.put_line ( 'GET_MASTERLEASE_ID: '|| p_lease_rec.parent_lease_id);--Rupak
4007: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Master Lease ID:'||p_lease_rec.parent_lease_id,3);
4008: IF (x_return_status = fnd_api.g_ret_sts_error)
4009: THEN
4010: l_error_flag:='Y';
4011: fnd_message.set_name ('PN', 'PN_INVALID_MASTERLEASE');
4012: fnd_message.set_token ('MASTER_LEASE_ID',get_miss_num_decode(p_lease_rec.parent_lease_id));
4011: fnd_message.set_name ('PN', 'PN_INVALID_MASTERLEASE');
4012: fnd_message.set_token ('MASTER_LEASE_ID',get_miss_num_decode(p_lease_rec.parent_lease_id));
4013: fnd_message.set_token ('MASTER_LEASE_NAME', get_miss_char_decode(p_lease_rec.parent_lease_name));
4014: fnd_msg_pub.ADD;
4015: RAISE fnd_api.g_exc_error;
4016: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4017: THEN
4018: l_error_flag:='Y';
4019: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4012: fnd_message.set_token ('MASTER_LEASE_ID',get_miss_num_decode(p_lease_rec.parent_lease_id));
4013: fnd_message.set_token ('MASTER_LEASE_NAME', get_miss_char_decode(p_lease_rec.parent_lease_name));
4014: fnd_msg_pub.ADD;
4015: RAISE fnd_api.g_exc_error;
4016: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4017: THEN
4018: l_error_flag:='Y';
4019: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4020: fnd_message.set_token ('COLUMN', SUBSTR(l_param_master_lease,3));
4019: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4020: fnd_message.set_token ('COLUMN', SUBSTR(l_param_master_lease,3));
4021: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4022: fnd_msg_pub.ADD;
4023: RAISE fnd_api.g_exc_unexpected_error;
4024: END IF;
4025: ELSE
4026: p_lease_rec.parent_lease_name := NULL;
4027: p_lease_rec.parent_lease_id := NULL;
4048: );
4049:
4050: ----------------dbms_output.put_line ( 'GET_CUSTOMER_ID: '|| p_lease_rec.customer_id);--Rupak
4051: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Customer ID:'||p_lease_rec.customer_id,3);
4052: IF (x_return_status = fnd_api.g_ret_sts_error)
4053: THEN
4054: --l_error_flag:='Y';
4055: ----------------------dbms_output.put_line ('PVT:1');--Rupak
4056: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
4056: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
4057: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_rec.customer_name));
4058: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_rec.customer_id));
4059: fnd_msg_pub.ADD;
4060: RAISE fnd_api.g_exc_error;
4061: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4062: THEN
4063: --l_error_flag:='Y';
4064: /*--------------------dbms_output.put_line ('PVT:2');--Rupak*/
4057: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_rec.customer_name));
4058: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_rec.customer_id));
4059: fnd_msg_pub.ADD;
4060: RAISE fnd_api.g_exc_error;
4061: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4062: THEN
4063: --l_error_flag:='Y';
4064: /*--------------------dbms_output.put_line ('PVT:2');--Rupak*/
4065: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4065: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4066: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_customer,3));
4067: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4068: fnd_msg_pub.ADD;
4069: RAISE fnd_api.g_exc_unexpected_error;
4070: END IF;
4071: END IF;
4072: ELSE
4073: p_lease_rec.customer_name := NULL;
4090: , x_return_status => x_return_status);
4091:
4092: ----------------------dbms_output.put_line ( 'ABSTRACTED BY: ' || p_lease_rec.abstracted_by_user_id);--Rupak
4093: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Abstracted By:'||p_lease_rec.abstracted_by_user_id,3);
4094: IF (x_return_status = fnd_api.g_ret_sts_error)
4095: THEN
4096: l_error_flag:='Y';
4097: fnd_message.set_name ('PN', 'PN_INVALID_USER');
4098: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
4097: fnd_message.set_name ('PN', 'PN_INVALID_USER');
4098: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
4099: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.abstracted_by_user_id));
4100: fnd_msg_pub.ADD;
4101: RAISE fnd_api.g_exc_error;
4102: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4103: THEN
4104: l_error_flag:='Y';
4105: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4098: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
4099: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.abstracted_by_user_id));
4100: fnd_msg_pub.ADD;
4101: RAISE fnd_api.g_exc_error;
4102: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4103: THEN
4104: l_error_flag:='Y';
4105: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4106: fnd_message.set_token ('COLUMN', SUBSTR(l_param_abstracted_by,3));
4105: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4106: fnd_message.set_token ('COLUMN', SUBSTR(l_param_abstracted_by,3));
4107: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4108: fnd_msg_pub.ADD;
4109: RAISE fnd_api.g_exc_unexpected_error;
4110: END IF;
4111:
4112: --IF p_lease_rec.abstracted_by_user_id = PN_LEASE_UTILS.G_PN_MISS_NUM
4113: --THEN
4124: , x_return_status => x_return_status);
4125:
4126: ----------------------dbms_output.put_line ( 'APPROVAL STATUS: '|| p_lease_rec.status_code);--Rupak
4127: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Approval Status Code:'||p_lease_rec.status_code,3);
4128: IF (x_return_status = fnd_api.g_ret_sts_error)
4129: THEN
4130: l_error_flag:='Y';
4131: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
4132: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
4132: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
4133: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
4134: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
4135: fnd_msg_pub.ADD;
4136: RAISE fnd_api.g_exc_error;
4137: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4138: THEN
4139: l_error_flag:='Y';
4140: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4133: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
4134: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
4135: fnd_msg_pub.ADD;
4136: RAISE fnd_api.g_exc_error;
4137: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4138: THEN
4139: l_error_flag:='Y';
4140: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4141: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
4140: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4141: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
4142: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4143: fnd_msg_pub.ADD;
4144: RAISE fnd_api.g_exc_unexpected_error;
4145: END IF;
4146:
4147: -- Validate Lease status
4148: pn_lease_utils.get_lookup_code (p_parameter_name => l_param_lease_status
4153: , x_return_status => x_return_status);
4154:
4155: ----------------------dbms_output.put_line ( 'LEASE STATUS: '|| p_lease_rec.lease_status_code);--Rupak
4156: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Lease Status Code:'||p_lease_rec.lease_status_code,3);
4157: IF (x_return_status = fnd_api.g_ret_sts_error)
4158: THEN
4159: l_error_flag:='Y';
4160: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
4161: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
4161: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
4162: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
4163: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
4164: fnd_msg_pub.ADD;
4165: RAISE fnd_api.g_exc_error;
4166: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4167: THEN
4168: l_error_flag:='Y';
4169: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4162: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
4163: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
4164: fnd_msg_pub.ADD;
4165: RAISE fnd_api.g_exc_error;
4166: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4167: THEN
4168: l_error_flag:='Y';
4169: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4170: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_status,3));
4169: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4170: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_status,3));
4171: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4172: fnd_msg_pub.ADD;
4173: RAISE fnd_api.g_exc_unexpected_error;
4174: END IF;
4175:
4176: -- Validate Lease Execution, Commencement and Termination dates
4177: pn_lease_utils.crossval_leasedates (p_parameter_name => l_param_lease_dates
4183:
4184:
4185: ----------------------dbms_output.put_line('CROSSVAL_LEASEDATES x_return_status: '|| x_return_status);--Rupak
4186: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Cross Val Lease Dates Status:'||x_return_status,3);
4187: IF (x_return_status = fnd_api.g_ret_sts_error)
4188: THEN
4189: l_error_flag:='Y';
4190: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
4191: fnd_message.set_token ('TERMINATION_DATE', p_lease_rec.lease_termination_date);
4190: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
4191: fnd_message.set_token ('TERMINATION_DATE', p_lease_rec.lease_termination_date);
4192: fnd_message.set_token ('COMMENCEMENT_DATE', p_lease_rec.lease_commencement_date);
4193: fnd_msg_pub.ADD;
4194: RAISE fnd_api.g_exc_error;
4195: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4196: THEN
4197: l_error_flag:='Y';
4198: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4191: fnd_message.set_token ('TERMINATION_DATE', p_lease_rec.lease_termination_date);
4192: fnd_message.set_token ('COMMENCEMENT_DATE', p_lease_rec.lease_commencement_date);
4193: fnd_msg_pub.ADD;
4194: RAISE fnd_api.g_exc_error;
4195: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4196: THEN
4197: l_error_flag:='Y';
4198: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4199: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_dates,3));
4198: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4199: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_dates,3));
4200: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4201: fnd_msg_pub.ADD;
4202: RAISE fnd_api.g_exc_unexpected_error;
4203: END IF;
4204:
4205: -- Validate Location_id
4206: IF ( ( p_lease_rec.location_id IS NOT NULL
4221:
4222:
4223: ----------------------dbms_output.put_line('get_location_id x_return_status: '|| x_return_status);--Rupak
4224: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Location ID Return Status:'||x_return_status,3);
4225: IF (x_return_status = fnd_api.g_ret_sts_error)
4226: THEN
4227: l_error_flag:='Y';
4228: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
4229: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_rec.location_id));
4228: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
4229: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_rec.location_id));
4230: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_lease_rec.location_code));
4231: fnd_msg_pub.ADD;
4232: RAISE fnd_api.g_exc_error;
4233:
4234: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4235: THEN
4236: l_error_flag:='Y';
4230: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_lease_rec.location_code));
4231: fnd_msg_pub.ADD;
4232: RAISE fnd_api.g_exc_error;
4233:
4234: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4235: THEN
4236: l_error_flag:='Y';
4237: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4238: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_location,3));
4237: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4238: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_location,3));
4239: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4240: fnd_msg_pub.ADD;
4241: RAISE fnd_api.g_exc_unexpected_error;
4242: END IF;
4243: END IF;
4244:
4245: -- IF p_lease_rec.location_id = pn_lease_utils.g_pn_miss_num
4256:
4257: ----------------------dbms_output.put_line ( 'USER RESPONSIBLE: '|| p_lease_rec.responsible_user);--Rupak
4258: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:User Responsible:'||p_lease_rec.responsible_user,3);
4259:
4260: IF (x_return_status = fnd_api.g_ret_sts_error)
4261: THEN
4262: l_error_flag:='Y';
4263: fnd_message.set_name ('PN', 'PN_INVALID_USER');
4264: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
4263: fnd_message.set_name ('PN', 'PN_INVALID_USER');
4264: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
4265: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.responsible_user_id));
4266: fnd_msg_pub.ADD;
4267: RAISE fnd_api.g_exc_error;
4268: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4269: THEN
4270: l_error_flag:='Y';
4271: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4264: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
4265: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.responsible_user_id));
4266: fnd_msg_pub.ADD;
4267: RAISE fnd_api.g_exc_error;
4268: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4269: THEN
4270: l_error_flag:='Y';
4271: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4272: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
4271: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4272: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
4273: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4274: fnd_msg_pub.ADD;
4275: RAISE fnd_api.g_exc_unexpected_error;
4276: END IF;
4277:
4278:
4279: --IF p_lease_rec.responsible_user_id = pn_lease_utils.g_pn_miss_num
4297: );
4298:
4299: ----------------------dbms_output.put_line ( '_PRORATION_RULE: ' || p_lease_rec.pymt_term_pro_rule_id||x_return_status);--Rupak
4300: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:PRORATION_RULE:'||p_lease_rec.pymt_term_pro_rule_id,3);
4301: IF (x_return_status = fnd_api.g_ret_sts_error)
4302: THEN
4303: l_error_flag:='Y';
4304: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
4305: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_proration_rule_lookup_type));
4305: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_proration_rule_lookup_type));
4306: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule));
4307: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule_id));
4308: fnd_msg_pub.ADD;
4309: RAISE fnd_api.g_exc_error;
4310: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4311: THEN
4312: l_error_flag:='Y';
4313: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4306: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule));
4307: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule_id));
4308: fnd_msg_pub.ADD;
4309: RAISE fnd_api.g_exc_error;
4310: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4311: THEN
4312: l_error_flag:='Y';
4313: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4314: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
4313: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4314: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
4315: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4316: fnd_msg_pub.ADD;
4317: RAISE fnd_api.g_exc_unexpected_error;
4318: END IF;
4319: END IF;
4320:
4321: ----------------------dbms_output.put_line ( 'After proration rule');--Rupak
4352:
4353: ----------------------dbms_output.put_line ('GET_TERM_TEMPLATE_ID: '||p_lease_rec.term_template_id);--Rupak
4354: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Deriving Template ID:'||p_lease_rec.term_template_id,3);
4355: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
4356: IF (x_return_status = fnd_api.g_ret_sts_error)
4357: THEN
4358: --l_error_flag:='Y';
4359: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
4360: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_lease_rec.term_template_id));
4359: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
4360: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_lease_rec.term_template_id));
4361: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_lease_rec.term_template_name));
4362: fnd_msg_pub.ADD;
4363: RAISE fnd_api.g_exc_error;
4364: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4365: THEN
4366: --l_error_flag:='Y';
4367: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4360: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_lease_rec.term_template_id));
4361: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_lease_rec.term_template_name));
4362: fnd_msg_pub.ADD;
4363: RAISE fnd_api.g_exc_error;
4364: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4365: THEN
4366: --l_error_flag:='Y';
4367: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4368: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_template,3));
4367: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4368: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_template,3));
4369: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4370: fnd_msg_pub.ADD;
4371: RAISE fnd_api.g_exc_unexpected_error;
4372: END IF;
4373:
4374: IF x_return_status = fnd_api.g_ret_sts_success
4375: THEN
4370: fnd_msg_pub.ADD;
4371: RAISE fnd_api.g_exc_unexpected_error;
4372: END IF;
4373:
4374: IF x_return_status = fnd_api.g_ret_sts_success
4375: THEN
4376: IF pn_r12_util_pkg.is_r12
4377: THEN
4378:
4383: fnd_message.set_token ('R12_FLAG', p_lease_rec.term_template_id);
4384: fnd_msg_pub.ADD;
4385:
4386: l_error_flag:='Y';
4387: RAISE fnd_api.g_exc_error;
4388: ELSIF l_tcc_status = 'PN_UPG_TCC' THEN
4389: fnd_message.set_name('PN','PN_UPG_TCC_FOUND');
4390: fnd_message.set_token ('API_NAME', l_api_name_full);
4391: fnd_message.set_token ('R12_FLAG', p_lease_rec.term_template_id);
4427: );
4428: ----------------------dbms_output.put_line ('GET_GROUPING_RULE: '||p_lease_rec.grouping_rule_id);--Rupak
4429: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Grouping Rule ID:'||p_lease_rec.grouping_rule_id,3);
4430:
4431: IF (x_return_status = fnd_api.g_ret_sts_error)
4432: THEN
4433: --l_error_flag:='Y';
4434: fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
4435: fnd_message.set_token ('GROUPING_ID', get_miss_num_decode(p_lease_rec.grouping_rule_id));
4434: fnd_message.set_name ('PN', 'PN_INVOICE_GROUPING_RULE');
4435: fnd_message.set_token ('GROUPING_ID', get_miss_num_decode(p_lease_rec.grouping_rule_id));
4436: fnd_message.set_token ('GROUPING_RULE', get_miss_char_decode(p_lease_rec.grouping_rule_name));
4437: fnd_msg_pub.ADD;
4438: RAISE fnd_api.g_exc_error;
4439: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4440: THEN
4441: --l_error_flag:='Y';
4442: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4435: fnd_message.set_token ('GROUPING_ID', get_miss_num_decode(p_lease_rec.grouping_rule_id));
4436: fnd_message.set_token ('GROUPING_RULE', get_miss_char_decode(p_lease_rec.grouping_rule_name));
4437: fnd_msg_pub.ADD;
4438: RAISE fnd_api.g_exc_error;
4439: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4440: THEN
4441: --l_error_flag:='Y';
4442: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4443: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_grouping_rule,3));
4442: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4443: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_grouping_rule,3));
4444: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4445: fnd_msg_pub.ADD;
4446: RAISE fnd_api.g_exc_unexpected_error;
4447: END IF;
4448: END IF;
4449: END IF;
4450:
4471: ----------------------dbms_output.put_line ('p_lease_rec.cal_start: '||p_lease_rec.cal_start);--Rupak
4472: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Cal Start Date:'||p_lease_rec.cal_start,3);
4473: ----------------------dbms_output.put_line('PN_LEASE_UTILS.GET_CAL_START_DATE x_return_status: '|| x_return_status);
4474:
4475: IF (x_return_status = fnd_api.g_ret_sts_error)
4476: THEN
4477: --l_error_flag:='Y';
4478: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
4479: fnd_msg_pub.ADD;
4476: THEN
4477: --l_error_flag:='Y';
4478: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
4479: fnd_msg_pub.ADD;
4480: RAISE fnd_api.g_exc_error;
4481: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4482: THEN
4483: --l_error_flag:='Y';
4484: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4477: --l_error_flag:='Y';
4478: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
4479: fnd_msg_pub.ADD;
4480: RAISE fnd_api.g_exc_error;
4481: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4482: THEN
4483: --l_error_flag:='Y';
4484: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4485: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_cal_start,3));
4484: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
4485: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_cal_start,3));
4486: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
4487: fnd_msg_pub.ADD;
4488: RAISE fnd_api.g_exc_unexpected_error;
4489: END IF;
4490: END IF;
4491:
4492:
4594: );
4595: ----------------------dbms_output.put_line ( 'GET_EXP_REC_ACCOUNT_ID: '|| p_lease_exp_rev_accounts_rec.account_id);
4596: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Expense-Revenue Account ID'||p_lease_exp_rev_accounts_rec.account_id,3);
4597: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
4598: IF (x_return_status = fnd_api.g_ret_sts_error)
4599: THEN
4600: l_error_flag:='Y';
4601: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4602: fnd_message.set_token ('ACCOUNT_ID', p_lease_exp_rev_accounts_rec.account_id);
4600: l_error_flag:='Y';
4601: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4602: fnd_message.set_token ('ACCOUNT_ID', p_lease_exp_rev_accounts_rec.account_id);
4603: fnd_msg_pub.ADD;
4604: RAISE fnd_api.g_exc_error;
4605: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4606: THEN
4607: l_error_flag:='Y';
4608: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4601: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4602: fnd_message.set_token ('ACCOUNT_ID', p_lease_exp_rev_accounts_rec.account_id);
4603: fnd_msg_pub.ADD;
4604: RAISE fnd_api.g_exc_error;
4605: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4606: THEN
4607: l_error_flag:='Y';
4608: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4609: fnd_message.set_token ('ACCOUNT_ID', p_lease_exp_rev_accounts_rec.account_id);
4607: l_error_flag:='Y';
4608: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4609: fnd_message.set_token ('ACCOUNT_ID', p_lease_exp_rev_accounts_rec.account_id);
4610: fnd_msg_pub.ADD;
4611: RAISE fnd_api.g_exc_unexpected_error;
4612: END IF;
4613: END IF;
4614:
4615: -- IF p_lease_exp_rev_accounts_rec.account_id = pn_lease_utils.g_pn_miss_num
4704:
4705: ----------------------dbms_output.put_line ( 'GET_ACCRLC_ACCOUNT_ID: '|| p_lease_accrual_account_rec.account_id);
4706: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Accrual Account ID'||p_lease_accrual_account_rec.account_id,3);
4707:
4708: IF (x_return_status = fnd_api.g_ret_sts_error)
4709: THEN
4710: l_error_flag:='Y';
4711: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4712: fnd_message.set_token ('ACCOUNT_ID', p_lease_accrual_account_rec.account_id);
4710: l_error_flag:='Y';
4711: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4712: fnd_message.set_token ('ACCOUNT_ID', p_lease_accrual_account_rec.account_id);
4713: fnd_msg_pub.ADD;
4714: RAISE fnd_api.g_exc_error;
4715: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4716: THEN
4717: l_error_flag:='Y';
4718: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4711: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4712: fnd_message.set_token ('ACCOUNT_ID', p_lease_accrual_account_rec.account_id);
4713: fnd_msg_pub.ADD;
4714: RAISE fnd_api.g_exc_error;
4715: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4716: THEN
4717: l_error_flag:='Y';
4718: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4719: fnd_message.set_token ('ACCOUNT_ID', p_lease_accrual_account_rec.account_id);
4717: l_error_flag:='Y';
4718: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4719: fnd_message.set_token ('ACCOUNT_ID', p_lease_accrual_account_rec.account_id);
4720: fnd_msg_pub.ADD;
4721: RAISE fnd_api.g_exc_unexpected_error;
4722: END IF;
4723: END IF;
4724:
4725:
4823:
4824: ----------------------dbms_output.put_line ( 'GET_LIAB_RVCL_ACCOUNT_ID: '|| p_lease_liab_rcvl_account_rec.account_id);
4825: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Liability-Receivable Account ID'||p_lease_liab_rcvl_account_rec.account_id,3);
4826:
4827: IF (x_return_status = fnd_api.g_ret_sts_error)
4828: THEN
4829: l_error_flag:='Y';
4830: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4831: fnd_message.set_token ('ACCOUNT_ID', p_lease_liab_rcvl_account_rec.account_id);
4829: l_error_flag:='Y';
4830: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4831: fnd_message.set_token ('ACCOUNT_ID', p_lease_liab_rcvl_account_rec.account_id);
4832: fnd_msg_pub.ADD;
4833: RAISE fnd_api.g_exc_error;
4834: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4835: THEN
4836: l_error_flag:='Y';
4837: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4830: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4831: fnd_message.set_token ('ACCOUNT_ID', p_lease_liab_rcvl_account_rec.account_id);
4832: fnd_msg_pub.ADD;
4833: RAISE fnd_api.g_exc_error;
4834: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
4835: THEN
4836: l_error_flag:='Y';
4837: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4838: fnd_message.set_token ('ACCOUNT_ID', p_lease_liab_rcvl_account_rec.account_id);
4836: l_error_flag:='Y';
4837: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
4838: fnd_message.set_token ('ACCOUNT_ID', p_lease_liab_rcvl_account_rec.account_id);
4839: fnd_msg_pub.ADD;
4840: RAISE fnd_api.g_exc_unexpected_error;
4841: END IF;
4842: END IF;
4843:
4844: -- IF p_lease_liab_rcvl_account_rec.account_id = pn_lease_utils.g_pn_miss_num
5008: , p_lease_rec.attribute14
5009: , p_lease_rec.attribute15
5010: ,x_return_status
5011: );
5012: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5013: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5014: fnd_message.set_token ('API_NAME', l_api_name_full);
5015: fnd_message.set_token ('NULL_PARAM','Required attribute in Lease is NULL');
5016: fnd_msg_pub.ADD;
5013: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5014: fnd_message.set_token ('API_NAME', l_api_name_full);
5015: fnd_message.set_token ('NULL_PARAM','Required attribute in Lease is NULL');
5016: fnd_msg_pub.ADD;
5017: RAISE fnd_api.g_exc_error;
5018: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5019: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5020: fnd_message.set_token ('API_NAME', l_api_name_full);
5021: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Lease is NULL');
5014: fnd_message.set_token ('API_NAME', l_api_name_full);
5015: fnd_message.set_token ('NULL_PARAM','Required attribute in Lease is NULL');
5016: fnd_msg_pub.ADD;
5017: RAISE fnd_api.g_exc_error;
5018: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5019: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5020: fnd_message.set_token ('API_NAME', l_api_name_full);
5021: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Lease is NULL');
5022: fnd_msg_pub.ADD;
5019: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5020: fnd_message.set_token ('API_NAME', l_api_name_full);
5021: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Lease is NULL');
5022: fnd_msg_pub.ADD;
5023: RAISE fnd_api.g_exc_unexpected_error;
5024: ELSE*/
5025: IF NOT ((p_lease_rec.attribute_category = pn_lease_utils.g_pn_miss_char OR p_lease_rec.attribute_category IS NULL)
5026: AND (p_lease_rec.attribute1 = pn_lease_utils.g_pn_miss_char OR p_lease_rec.attribute1 IS NULL)
5027: AND (p_lease_rec.attribute2 = pn_lease_utils.g_pn_miss_char OR p_lease_rec.attribute2 IS NULL)
5061: , p_resp_appl_id => fnd_global.resp_appl_id
5062: , p_resp_id => fnd_global.resp_id
5063: , p_return_status => x_return_status
5064: );
5065: IF (x_return_status = fnd_api.g_ret_sts_error)
5066: THEN
5067: fnd_message.set_name ('PN', 'PN_API_LEASE_DETAILS_DESC_FLEX_ERR');
5068: fnd_message.set_token ('API_NAME',l_api_name_full);
5069: fnd_message.set_token ('DESC_FLEX_MSG', 'Lease Details Descriptive Fields Error');
5067: fnd_message.set_name ('PN', 'PN_API_LEASE_DETAILS_DESC_FLEX_ERR');
5068: fnd_message.set_token ('API_NAME',l_api_name_full);
5069: fnd_message.set_token ('DESC_FLEX_MSG', 'Lease Details Descriptive Fields Error');
5070: fnd_msg_pub.ADD;
5071: RAISE fnd_api.g_exc_error;
5072: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
5073: THEN
5074: fnd_message.set_name ('PN', 'PN_API_LEASE_DETAILS_DESC_FLEX_ERR');
5075: fnd_message.set_token ('API_NAME',l_api_name_full);
5068: fnd_message.set_token ('API_NAME',l_api_name_full);
5069: fnd_message.set_token ('DESC_FLEX_MSG', 'Lease Details Descriptive Fields Error');
5070: fnd_msg_pub.ADD;
5071: RAISE fnd_api.g_exc_error;
5072: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
5073: THEN
5074: fnd_message.set_name ('PN', 'PN_API_LEASE_DETAILS_DESC_FLEX_ERR');
5075: fnd_message.set_token ('API_NAME',l_api_name_full);
5076: fnd_message.set_token ('DESC_FLEX_MSG', 'Lease Details Descriptive Fields Error');
5074: fnd_message.set_name ('PN', 'PN_API_LEASE_DETAILS_DESC_FLEX_ERR');
5075: fnd_message.set_token ('API_NAME',l_api_name_full);
5076: fnd_message.set_token ('DESC_FLEX_MSG', 'Lease Details Descriptive Fields Error');
5077: fnd_msg_pub.ADD;
5078: RAISE fnd_api.g_exc_unexpected_error;
5079: END IF;
5080: END IF;
5081: END IF; -- End of attributes valitions in create lease
5082:
5081: END IF; -- End of attributes valitions in create lease
5082:
5083:
5084: EXCEPTION
5085: WHEN fnd_api.g_exc_error THEN
5086: x_return_status := fnd_api.g_ret_sts_error;
5087: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:FND_API.G_RET_STS_ERROR:Exception:'||SQLERRM,3);
5088: WHEN OTHERS
5089: THEN
5082:
5083:
5084: EXCEPTION
5085: WHEN fnd_api.g_exc_error THEN
5086: x_return_status := fnd_api.g_ret_sts_error;
5087: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:FND_API.G_RET_STS_ERROR:Exception:'||SQLERRM,3);
5088: WHEN OTHERS
5089: THEN
5090: x_return_status := fnd_api.g_ret_sts_unexp_error;
5083:
5084: EXCEPTION
5085: WHEN fnd_api.g_exc_error THEN
5086: x_return_status := fnd_api.g_ret_sts_error;
5087: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:FND_API.G_RET_STS_ERROR:Exception:'||SQLERRM,3);
5088: WHEN OTHERS
5089: THEN
5090: x_return_status := fnd_api.g_ret_sts_unexp_error;
5091: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC;Exception:'||SQLERRM,3);
5086: x_return_status := fnd_api.g_ret_sts_error;
5087: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:FND_API.G_RET_STS_ERROR:Exception:'||SQLERRM,3);
5088: WHEN OTHERS
5089: THEN
5090: x_return_status := fnd_api.g_ret_sts_unexp_error;
5091: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC;Exception:'||SQLERRM,3);
5092: END validate_lease_rec;
5093:
5094: PROCEDURE INIT_LEASE_REC( p_lease_rec IN OUT NOCOPY lease_rec
5099:
5100: BEGIN
5101: pvt_debug(g_pkg_name||'-Inside INIT_LEASE_REC',3);
5102: ----------------------dbms_output.put_line('INIT_LEASE_REC:1');--Rupak
5103: x_return_status := fnd_api.g_ret_sts_success;
5104: IF p_lease_rec.lease_id = pn_lease_utils.g_pn_miss_num
5105: THEN
5106: p_lease_rec.lease_id:= NULL;
5107: END IF;
5319: EXCEPTION
5320: WHEN OTHERS THEN
5321: ----------------------dbms_output.put_line('IN EXCEPTION:INIT_LEASE_REC PROC'||SQLERRM);
5322: pvt_debug(g_pkg_name||'-Exception:INIT_LEASE_REC'||SQLERRM,3);
5323: x_return_status := fnd_api.g_ret_sts_error;
5324: END INIT_LEASE_REC;
5325:
5326: PROCEDURE lease_insert_row (
5327: p_lease_rec IN OUT NOCOPY lease_rec
5327: p_lease_rec IN OUT NOCOPY lease_rec
5328: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY lease_account_rec
5329: , p_lease_accrual_account_rec IN OUT NOCOPY lease_account_rec
5330: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY lease_account_rec
5331: , p_location_exist IN VARCHAR2 := fnd_api.g_false
5332: , p_lease_context IN VARCHAR2
5333: , x_return_status OUT NOCOPY VARCHAR2)
5334: IS
5335: l_rowid VARCHAR2 (18) := NULL;
5454: , x_customer_id => p_lease_rec.customer_id
5455: , x_grouping_rule_id => p_lease_rec.grouping_rule_id
5456: , x_calendar_year_start_date => p_lease_rec.cal_start
5457: );
5458: x_return_status := fnd_api.g_ret_sts_success;
5459: ----------------------dbms_output.put_line('p_lease_rec.lease_id'||p_lease_rec.lease_id);--Rupak
5460: pvt_debug(g_pkg_name||'-LEASE_INSERT_ROW:PN_LEASES_PKG.INSERT_ROW Successful',3);
5461: EXCEPTION
5462: WHEN OTHERS
5462: WHEN OTHERS
5463: THEN
5464: --NULL;
5465: ----------------------dbms_output.put_line ( 'In LEASE INSERT EXCEPTION: '|| SQLERRM);
5466: x_return_status := fnd_api.g_ret_sts_error;
5467: pvt_debug(g_pkg_name||'-LEASE_INSERT_ROW:Exception'||SQLERRM,3);
5468: END lease_insert_row;
5469:
5470: /*-----------------------------------------SUNITHA Begins----------------------------*/
5475: ,x_return_status IN OUT NOCOPY VARCHAR2
5476:
5477: )
5478: IS
5479: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5480: l_index BINARY_INTEGER;
5481: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
5482: l_lookup_code PN_NOTE_HEADERS.NOTE_TYPE_LOOKUP_CODE%TYPE := pn_lease_utils.g_pn_miss_char;
5483: l_cur_id NUMBER;
5487: l_api_name VARCHAR2(30) := 'CREATE_NOTES';
5488: l_err_note_count NUMBER:=0;
5489: BEGIN
5490: ----------------------dbms_output.put_line('VALIDATION FOR NOTES CREATION STARTED');
5491: x_return_status := fnd_api.g_ret_sts_success;
5492: pvt_debug(g_pkg_name||'-Inside VALIDATE_NOTE_FOR_CREATE',3);
5493: for l_index in p_note_tbl.FIRST.. p_note_tbl.LAST LOOP
5494: BEGIN
5495: l_tbl_flag := 1;
5506: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5507: fnd_message.set_token ('API_NAME', l_api_name);
5508: fnd_message.set_token ('NULL_PARAM', 'NOTE DATE');
5509: fnd_msg_pub.ADD;
5510: RAISE fnd_api.g_exc_error;
5511: END IF;
5512:
5513:
5514: -------------------------------------------------------------------------------------------------
5521: , p_lookup_type => l_pn_note_type--'PN_NOTE_TYPE'
5522: , x_return_status => x_return_status
5523: , x_lookup_type_code => p_note_tbl(l_index).note_type_lookup_code
5524: );
5525: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5526: --p_lease_contacts_tbl (i).error_flag := 'Y';
5527: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
5528: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_note_type));
5529: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_note_tbl(l_index).note_type));
5528: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_note_type));
5529: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_note_tbl(l_index).note_type));
5530: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_note_tbl(l_index).note_type_lookup_code));
5531: fnd_msg_pub.ADD;
5532: RAISE fnd_api.g_exc_error;
5533: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5534: --p_lease_contacts_tbl (i).error_flag := 'Y';
5535: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5536: fnd_message.set_token ('COLUMN', SUBSTR(l_param_note_type,3));
5529: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_note_tbl(l_index).note_type));
5530: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_note_tbl(l_index).note_type_lookup_code));
5531: fnd_msg_pub.ADD;
5532: RAISE fnd_api.g_exc_error;
5533: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5534: --p_lease_contacts_tbl (i).error_flag := 'Y';
5535: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5536: fnd_message.set_token ('COLUMN', SUBSTR(l_param_note_type,3));
5537: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
5535: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5536: fnd_message.set_token ('COLUMN', SUBSTR(l_param_note_type,3));
5537: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
5538: fnd_msg_pub.ADD;
5539: RAISE fnd_api.g_exc_unexpected_error;
5540: END IF;
5541: ELSE
5542: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5543: fnd_message.set_token ('API_NAME', l_api_name);
5542: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5543: fnd_message.set_token ('API_NAME', l_api_name);
5544: fnd_message.set_token ('NULL_PARAM', l_pn_note_type);
5545: fnd_msg_pub.ADD;
5546: RAISE fnd_api.g_exc_error;
5547: END IF;
5548:
5549:
5550: -- dff validations
5570: ,p_note_tbl(l_index).attribute15
5571: ,x_return_status
5572: );
5573: ----------dbms_output.put_line('NOTE HEADER:2'||x_return_status);
5574: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5575: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5576: fnd_message.set_token ('API_NAME', l_api_name);
5577: fnd_message.set_token ('NULL_PARAM','Required attribute in Notes is NULL');
5578: fnd_msg_pub.ADD;
5575: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5576: fnd_message.set_token ('API_NAME', l_api_name);
5577: fnd_message.set_token ('NULL_PARAM','Required attribute in Notes is NULL');
5578: fnd_msg_pub.ADD;
5579: RAISE fnd_api.g_exc_error;
5580: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5581: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5582: fnd_message.set_token ('API_NAME', l_api_name);
5583: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Notes is NULL');
5576: fnd_message.set_token ('API_NAME', l_api_name);
5577: fnd_message.set_token ('NULL_PARAM','Required attribute in Notes is NULL');
5578: fnd_msg_pub.ADD;
5579: RAISE fnd_api.g_exc_error;
5580: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5581: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5582: fnd_message.set_token ('API_NAME', l_api_name);
5583: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Notes is NULL');
5584: fnd_msg_pub.ADD;
5581: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5582: fnd_message.set_token ('API_NAME', l_api_name);
5583: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Notes is NULL');
5584: fnd_msg_pub.ADD;
5585: RAISE fnd_api.g_exc_unexpected_error;
5586: ELSE*/
5587: IF NOT ((p_note_tbl(l_index).attribute_category = pn_lease_utils.g_pn_miss_char OR p_note_tbl(l_index).attribute_category IS NULL)
5588: AND (p_note_tbl(l_index).attribute1 = pn_lease_utils.g_pn_miss_char OR p_note_tbl(l_index).attribute1 IS NULL)
5589: AND (p_note_tbl(l_index).attribute2 = pn_lease_utils.g_pn_miss_char OR p_note_tbl(l_index).attribute2 IS NULL)
5625: , p_resp_id => fnd_global.resp_id
5626: , p_return_status=> x_return_status
5627: );
5628: ----------dbms_output.put_line('NOTE HDR:x_return_status'||x_return_status);
5629: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5630: ----------dbms_output.put_line('NOTES:1'||x_return_status);
5631: l_tbl_flag := 0;
5632: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5633: fnd_message.set_token ('COLUMN', 'PN_NOTE_HEADERS_DESC_FIELDS');
5632: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5633: fnd_message.set_token ('COLUMN', 'PN_NOTE_HEADERS_DESC_FIELDS');
5634: fnd_message.set_token ('P_TEXT', 'PN_NOTE_HEADERS'|| '-'|| SQLERRM);
5635: fnd_msg_pub.ADD;
5636: RAISE fnd_api.g_exc_error;
5637: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5638: ----------dbms_output.put_line('NOTES:2'||x_return_status);
5639: l_tbl_flag := 0;
5640: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5633: fnd_message.set_token ('COLUMN', 'PN_NOTE_HEADERS_DESC_FIELDS');
5634: fnd_message.set_token ('P_TEXT', 'PN_NOTE_HEADERS'|| '-'|| SQLERRM);
5635: fnd_msg_pub.ADD;
5636: RAISE fnd_api.g_exc_error;
5637: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5638: ----------dbms_output.put_line('NOTES:2'||x_return_status);
5639: l_tbl_flag := 0;
5640: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5641: fnd_message.set_token ('COLUMN', 'PN_NOTE_HEADERS_DESC_FIELDS');
5640: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5641: fnd_message.set_token ('COLUMN', 'PN_NOTE_HEADERS_DESC_FIELDS');
5642: fnd_message.set_token ('P_TEXT', 'PN_NOTE_HEADERS'|| '-'|| SQLERRM);
5643: fnd_msg_pub.ADD;
5644: RAISE fnd_api.g_exc_unexpected_error;
5645: END IF;
5646: END IF;
5647: END IF;
5648: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
5646: END IF;
5647: END IF;
5648: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
5649: EXCEPTION
5650: WHEN fnd_api.g_exc_error THEN
5651: l_err_note_count := l_err_note_count+1;
5652: --pvt_debug(g_pkg_name||'-VALIDATE_NOTE_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5653: WHEN fnd_api.g_exc_unexpected_error THEN
5654: l_err_note_count := l_err_note_count+1;
5648: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
5649: EXCEPTION
5650: WHEN fnd_api.g_exc_error THEN
5651: l_err_note_count := l_err_note_count+1;
5652: --pvt_debug(g_pkg_name||'-VALIDATE_NOTE_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5653: WHEN fnd_api.g_exc_unexpected_error THEN
5654: l_err_note_count := l_err_note_count+1;
5655: WHEN OTHERS THEN
5656: l_err_note_count := l_err_note_count+1;
5649: EXCEPTION
5650: WHEN fnd_api.g_exc_error THEN
5651: l_err_note_count := l_err_note_count+1;
5652: --pvt_debug(g_pkg_name||'-VALIDATE_NOTE_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5653: WHEN fnd_api.g_exc_unexpected_error THEN
5654: l_err_note_count := l_err_note_count+1;
5655: WHEN OTHERS THEN
5656: l_err_note_count := l_err_note_count+1;
5657: END;
5656: l_err_note_count := l_err_note_count+1;
5657: END;
5658: END LOOP;
5659: IF (l_err_note_count = 0 ) THEN
5660: x_return_status := fnd_api.g_ret_sts_success;
5661: ELSE
5662: x_return_status := fnd_api.g_ret_sts_error;
5663: END IF;
5664:
5658: END LOOP;
5659: IF (l_err_note_count = 0 ) THEN
5660: x_return_status := fnd_api.g_ret_sts_success;
5661: ELSE
5662: x_return_status := fnd_api.g_ret_sts_error;
5663: END IF;
5664:
5665: x_tbl := l_tbl;
5666:
5665: x_tbl := l_tbl;
5666:
5667: ----------------------dbms_output.put_line('VALIDATION FOR NOTE CREATION COMPLETED');
5668: EXCEPTION
5669: WHEN fnd_api.g_exc_error THEN
5670: x_return_status := fnd_api.g_ret_sts_error;
5671: WHEN fnd_api.g_exc_unexpected_error THEN
5672: x_return_status := fnd_api.g_ret_sts_unexp_error;
5673: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5666:
5667: ----------------------dbms_output.put_line('VALIDATION FOR NOTE CREATION COMPLETED');
5668: EXCEPTION
5669: WHEN fnd_api.g_exc_error THEN
5670: x_return_status := fnd_api.g_ret_sts_error;
5671: WHEN fnd_api.g_exc_unexpected_error THEN
5672: x_return_status := fnd_api.g_ret_sts_unexp_error;
5673: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5674: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5667: ----------------------dbms_output.put_line('VALIDATION FOR NOTE CREATION COMPLETED');
5668: EXCEPTION
5669: WHEN fnd_api.g_exc_error THEN
5670: x_return_status := fnd_api.g_ret_sts_error;
5671: WHEN fnd_api.g_exc_unexpected_error THEN
5672: x_return_status := fnd_api.g_ret_sts_unexp_error;
5673: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5674: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5675: pvt_debug(g_pkg_name||'-Unexpected:Exception:VALIDATE_NOTE_FOR_CREATE'||SQLERRM,3);
5668: EXCEPTION
5669: WHEN fnd_api.g_exc_error THEN
5670: x_return_status := fnd_api.g_ret_sts_error;
5671: WHEN fnd_api.g_exc_unexpected_error THEN
5672: x_return_status := fnd_api.g_ret_sts_unexp_error;
5673: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5674: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5675: pvt_debug(g_pkg_name||'-Unexpected:Exception:VALIDATE_NOTE_FOR_CREATE'||SQLERRM,3);
5676: WHEN OTHERS THEN
5673: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5674: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5675: pvt_debug(g_pkg_name||'-Unexpected:Exception:VALIDATE_NOTE_FOR_CREATE'||SQLERRM,3);
5676: WHEN OTHERS THEN
5677: x_return_status := fnd_api.g_ret_sts_unexp_error;
5678: ----------------------dbms_output.put_line('NOTE VALIDATION FAILED');
5679: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5680: pvt_debug(g_pkg_name||'-OTHERS:Exception:VALIDATE_NOTE_FOR_CREATE'||SQLERRM,3);
5681: END VALIDATE_NOTE_FOR_CREATE;
5765: END IF;
5766: END IF;
5767: -- END IF; --Commented Rupak
5768: END loop;
5769: x_return_status := fnd_api.g_ret_sts_success;
5770: EXCEPTION
5771: WHEN OTHERS THEN
5772: ROLLBACK;
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5769: x_return_status := fnd_api.g_ret_sts_success;
5770: EXCEPTION
5771: WHEN OTHERS THEN
5772: ROLLBACK;
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5774: ----------------------dbms_output.put_line('INSERT FOR NOTE CREATION FAILED') ;
5775: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
5776: END NOTE_INSERT_ROW;
5777:
5785: -- , x_msg_count OUT NUMBER
5786: -- , x_msg_data OUT VARCHAR2
5787: )
5788: IS
5789: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5790:
5791: x_out_tbl temp_tbl_type;
5792: l_api_name VARCHAR2(100):='NOTES CREATION';
5793: BEGIN
5797: ,x_tbl => x_out_tbl
5798: ,x_return_status => x_return_status
5799: );
5800: pvt_debug(g_pkg_name||'-CREATE_NOTE:Cal to VALIDATE_NOTE_FOR_CREATE Status:'||x_return_status,3);
5801: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
5802: ----------------------dbms_output.put_line('In Create_Note:3');--Rupak
5803: pvt_debug(g_pkg_name||'-CREATE_NOTE:Calling NOTE_INSERT_ROW',3);
5804: NOTE_INSERT_ROW( p_note_tbl => p_note_tbl
5805: ,p_lease_id => p_lease_id
5807: ,p_tbl => x_out_tbl
5808: ,p_commit => p_commit
5809: );
5810: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
5811: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5812: RAISE fnd_api.g_exc_error;
5813: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5814: RAISE fnd_api.g_exc_unexpected_error;
5815: END IF;
5808: ,p_commit => p_commit
5809: );
5810: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
5811: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5812: RAISE fnd_api.g_exc_error;
5813: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5814: RAISE fnd_api.g_exc_unexpected_error;
5815: END IF;
5816:
5809: );
5810: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
5811: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5812: RAISE fnd_api.g_exc_error;
5813: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5814: RAISE fnd_api.g_exc_unexpected_error;
5815: END IF;
5816:
5817: ELSE
5810: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
5811: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
5812: RAISE fnd_api.g_exc_error;
5813: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5814: RAISE fnd_api.g_exc_unexpected_error;
5815: END IF;
5816:
5817: ELSE
5818: ----------------------dbms_output.put_line('In Create_Note:5');--Rupak
5815: END IF;
5816:
5817: ELSE
5818: ----------------------dbms_output.put_line('In Create_Note:5');--Rupak
5819: RAISE fnd_api.g_exc_error;
5820: END IF;
5821:
5822: --x_return_status := l_return_status;
5823: EXCEPTION
5820: END IF;
5821:
5822: --x_return_status := l_return_status;
5823: EXCEPTION
5824: WHEN fnd_api.g_exc_error THEN
5825: x_return_status := fnd_api.g_ret_sts_error;
5826: --------------------dbms_output.put_line('NOTES CREATION FAILED'||SQLERRM); --Rupak
5827: WHEN OTHERS THEN
5828: x_return_status := fnd_api.g_ret_sts_unexp_error;
5821:
5822: --x_return_status := l_return_status;
5823: EXCEPTION
5824: WHEN fnd_api.g_exc_error THEN
5825: x_return_status := fnd_api.g_ret_sts_error;
5826: --------------------dbms_output.put_line('NOTES CREATION FAILED'||SQLERRM); --Rupak
5827: WHEN OTHERS THEN
5828: x_return_status := fnd_api.g_ret_sts_unexp_error;
5829: pvt_debug(g_pkg_name||'-CREATE_NOTE:Exception:NOTE_INSERT_ROW',3);
5824: WHEN fnd_api.g_exc_error THEN
5825: x_return_status := fnd_api.g_ret_sts_error;
5826: --------------------dbms_output.put_line('NOTES CREATION FAILED'||SQLERRM); --Rupak
5827: WHEN OTHERS THEN
5828: x_return_status := fnd_api.g_ret_sts_unexp_error;
5829: pvt_debug(g_pkg_name||'-CREATE_NOTE:Exception:NOTE_INSERT_ROW',3);
5830: END CREATE_NOTE;
5831:
5832: PROCEDURE VALIDATE_NOTE_FOR_UPDATE(
5836: ,x_return_status IN OUT NOCOPY VARCHAR2
5837:
5838: )
5839: IS
5840: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5841: l_index BINARY_INTEGER;
5842: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
5843: l_lookup_code PN_NOTE_HEADERS.NOTE_TYPE_LOOKUP_CODE%TYPE := pn_lease_utils.g_pn_miss_char;
5844: l_cur_id NUMBER;
5878: FROM pn_note_headers
5879: WHERE note_header_id = l_cur_id;
5880: lcu_note_hdr_rec c_note%ROWTYPE;
5881: BEGIN
5882: l_return_status := fnd_api.g_ret_sts_success ;
5883: -- --------------------dbms_output.put_line('In Note Validate PROC'||p_note_tbl(1).note_header_id);--Rupak
5884: pvt_debug(g_pkg_name||'-Inside VALIDATE_NOTE_FOR_UPDATE',3);
5885: for l_index IN 1..p_note_tbl.COUNT --in p_note_tbl.FIRST..p_note_tbl.LAST loop
5886: LOOP
5894: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5895: fnd_message.set_token ('API_NAME', l_api_name);
5896: fnd_message.set_token ('NULL_PARAM', 'NOTE ID');
5897: fnd_msg_pub.ADD;
5898: RAISE fnd_api.g_exc_error;
5899: ELSE
5900: l_tbl_flag := 2;
5901: pvt_debug(g_pkg_name||'-Validation:VALIDATE_NOTE_FOR_UPDATE',3);
5902: l_cur_id := p_note_tbl(l_index).note_header_id;
5915: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
5916: fnd_message.set_token ('API_NAME', l_api_name);
5917: fnd_message.set_token ('NULL_PARAM', 'NOTE DATE : NULL');
5918: fnd_msg_pub.ADD;
5919: RAISE fnd_api.g_exc_error;
5920: END IF;
5921:
5922: IF ( (p_note_tbl(l_index).note_type IS NOT NULL AND p_note_tbl(l_index).note_type <> pn_lease_utils.g_pn_miss_char)
5923: OR(p_note_tbl(l_index).note_type_lookup_code IS NOT NULL AND p_note_tbl(l_index).note_type_lookup_code <> pn_lease_utils.g_pn_miss_char)
5928: , p_lookup_type => l_pn_note_type--'PN_NOTE_TYPE'
5929: , x_return_status => x_return_status
5930: , x_lookup_type_code => p_note_tbl(l_index).note_type_lookup_code
5931: );
5932: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
5933: --p_lease_contacts_tbl (i).error_flag := 'Y';
5934: l_tbl_flag := 0;
5935: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
5936: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_note_type));
5936: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_note_type));
5937: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_note_tbl(l_index).note_type));
5938: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_note_tbl(l_index).note_type_lookup_code));
5939: fnd_msg_pub.ADD;
5940: RAISE fnd_api.g_exc_error;
5941: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5942: --p_lease_contacts_tbl (i).error_flag := 'Y';
5943: l_tbl_flag := 0;
5944: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5937: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_note_tbl(l_index).note_type));
5938: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_note_tbl(l_index).note_type_lookup_code));
5939: fnd_msg_pub.ADD;
5940: RAISE fnd_api.g_exc_error;
5941: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5942: --p_lease_contacts_tbl (i).error_flag := 'Y';
5943: l_tbl_flag := 0;
5944: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5945: fnd_message.set_token ('COLUMN', SUBSTR(l_param_note_type,3));
5944: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
5945: fnd_message.set_token ('COLUMN', SUBSTR(l_param_note_type,3));
5946: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
5947: fnd_msg_pub.ADD;
5948: RAISE fnd_api.g_exc_unexpected_error;
5949: END IF;
5950: ELSIF(p_note_tbl(l_index).note_type IS NULL OR p_note_tbl(l_index).note_type_lookup_code IS NULL) THEN
5951: p_note_tbl(l_index).note_type_lookup_code := NULL;
5952: ELSE
6044: , p_resp_id => fnd_global.RESP_ID
6045: , p_return_status => l_return_status
6046: );
6047: ----------------------dbms_output.put_line('dff validated');
6048: IF (l_return_status = fnd_api.g_ret_sts_error)
6049: THEN
6050: l_tbl_flag := 0;
6051: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6052: THEN
6047: ----------------------dbms_output.put_line('dff validated');
6048: IF (l_return_status = fnd_api.g_ret_sts_error)
6049: THEN
6050: l_tbl_flag := 0;
6051: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6052: THEN
6053: l_tbl_flag := 0;
6054: RAISE fnd_api.g_exc_unexpected_error;
6055: END IF;
6050: l_tbl_flag := 0;
6051: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6052: THEN
6053: l_tbl_flag := 0;
6054: RAISE fnd_api.g_exc_unexpected_error;
6055: END IF;
6056: -- END IF;
6057: CLOSE c_note;
6058:
6058:
6059: END IF;
6060: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6061: EXCEPTION
6062: WHEN fnd_api.g_exc_error THEN
6063: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
6064: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6065: WHEN OTHERS THEN
6066: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
6059: END IF;
6060: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6061: EXCEPTION
6062: WHEN fnd_api.g_exc_error THEN
6063: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
6064: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6065: WHEN OTHERS THEN
6066: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
6067: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
6060: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6061: EXCEPTION
6062: WHEN fnd_api.g_exc_error THEN
6063: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
6064: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6065: WHEN OTHERS THEN
6066: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
6067: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
6068: END;
6070: END LOOP;
6071:
6072: --------------------dbms_output.put_line('Outside For Loop');
6073: x_tbl := l_tbl;
6074: x_return_status := fnd_api.g_ret_sts_success;
6075: EXCEPTION
6076: WHEN OTHERS THEN
6077: x_return_status := fnd_api.g_ret_sts_unexp_error;
6078: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6073: x_tbl := l_tbl;
6074: x_return_status := fnd_api.g_ret_sts_success;
6075: EXCEPTION
6076: WHEN OTHERS THEN
6077: x_return_status := fnd_api.g_ret_sts_unexp_error;
6078: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6079: pvt_debug(g_pkg_name||'-Exception:VALIDATE_NOTE_FOR_UPDATE'||SQLERRM,3);
6080: END VALIDATE_NOTE_FOR_UPDATE;
6081:
6086: ,p_tbl IN temp_tbl_type
6087: ,p_commit IN VARCHAR2
6088: )
6089: IS
6090: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6091: l_index BINARY_INTEGER;
6092: l_dt_row_id VARCHAR2(100);
6093: l_note_detail_id PN_NOTE_DETAILS.NOTE_DETAIL_ID%TYPE;
6094: l_err_note_count NUMBER:=0;
6126: , x_attribute13 => p_note_tbl(l_index).attribute13
6127: , x_attribute14 => p_note_tbl(l_index).attribute14
6128: , x_attribute15 => p_note_tbl(l_index).attribute15
6129: );
6130: --x_return_status:=fnd_api.g_ret_sts_success;
6131:
6132: l_flag := 'Y';
6133: ----------------------dbms_output.put_line('NOTE HEADER UPDATED WITH NOTE HEADER ID : '||p_note_tbl(l_index).note_header_id );--Rupak
6134: pvt_debug(g_pkg_name||'-NOTE_UPDATE_ROW:Calling PN_NOTE_HEADERS_PKG.UPDATE_ROW Succesful',3);
6162: , x_last_update_login => fnd_global.user_id
6163: );
6164:
6165: IF (l_flag = 'Y') THEN
6166: x_return_status:=fnd_api.g_ret_sts_success;
6167: END IF;
6168:
6169: pvt_debug(g_pkg_name||'-NOTE_UPDATE_ROW:NOTE DETAIL UPDATED WITH NOTE DETAIL ID'||p_note_tbl(l_index).note_detail_id,3);
6170: ----------------------dbms_output.put_line('NOTE DETAIL UPDATED WITH NOTE DETAIL ID : '||p_note_tbl(l_index).note_detail_id);--Rupak
6186: , x_last_update_login => fnd_global.user_id
6187: );
6188:
6189: IF (l_flag = 'Y') THEN
6190: x_return_status:=fnd_api.g_ret_sts_success;
6191: END IF;
6192: ----------------------dbms_output.put_line('NOTE DETAIL CREATED WITH NOTE DETAIL ID :'||l_note_detail_id);--Rupak
6193: pvt_debug(g_pkg_name||'-NOTE_UPDATE_ROW:PN_NOTE_DETAILS_PKG.INSERT_ROW Succesful'||l_note_detail_id,3);
6194: END IF;
6199: END;
6200: END loop;
6201:
6202: IF (l_err_note_count = 0) THEN
6203: x_return_status := fnd_api.g_ret_sts_success;
6204: ELSE
6205: x_return_status := fnd_api.g_ret_sts_error;
6206: END IF;
6207: EXCEPTION
6201:
6202: IF (l_err_note_count = 0) THEN
6203: x_return_status := fnd_api.g_ret_sts_success;
6204: ELSE
6205: x_return_status := fnd_api.g_ret_sts_error;
6206: END IF;
6207: EXCEPTION
6208: WHEN OTHERS THEN
6209: x_return_status := fnd_api.g_ret_sts_unexp_error;
6205: x_return_status := fnd_api.g_ret_sts_error;
6206: END IF;
6207: EXCEPTION
6208: WHEN OTHERS THEN
6209: x_return_status := fnd_api.g_ret_sts_unexp_error;
6210: ------------------dbms_output.put_line('NOTE UPDATION FAILED'||SQLERRM);
6211: END NOTE_UPDATE_ROW;
6212:
6213: PROCEDURE UPDATE_NOTE (
6219: -- , x_msg_count OUT NUMBER
6220: -- , x_msg_data OUT VARCHAR2
6221: )
6222: IS
6223: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
6224: -- x_msg_count NUMBER ;
6225: -- x_msg_data VARCHAR2(2000) ;
6226: x_out_tbl temp_tbl_type;
6227: l_api_name VARCHAR2(30) := 'UPDATE NOTES';
6231: m NUMBER;
6232: n NUMBER;
6233: l_err_notes_cnt NUMBER:=0;
6234: BEGIN
6235: x_return_status := fnd_api.g_ret_sts_success;
6236: pvt_debug(g_pkg_name||'-Inside UPDATE_NOTE',3);
6237:
6238: m:=1;
6239: n:=1;
6258: ,x_return_status => x_return_status
6259: );
6260: ----------------dbms_output.put_line('In UPDATE_NOTE:0'||x_return_status);--OOPS
6261: pvt_debug(g_pkg_name||'-UPDATE_NOTE:VALIDATE_NOTE_FOR_UPDATE Return Status:'||x_return_status,3);
6262: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
6263: --------------------dbms_output.put_line('In Note Update:2 IN IF'||p_note_tbl(1).note_header_id);--Rupak
6264: NOTE_UPDATE_ROW(
6265: p_note_tbl => p_note_tbl_update
6266: , p_lease_id => p_lease_id
6268: , p_tbl => x_out_tbl
6269: , p_commit => p_commit
6270: );
6271: pvt_debug(g_pkg_name||'-UPDATE_NOTE:NOTE_UPDATE_ROW Return Status:'||x_return_status,3);
6272: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6273: --x_return_status := fnd_api.g_ret_sts_unexp_error;
6274: l_err_notes_cnt := l_err_notes_cnt + 1;
6275: ELSE
6276: --x_return_status := fnd_api.g_ret_sts_error;
6269: , p_commit => p_commit
6270: );
6271: pvt_debug(g_pkg_name||'-UPDATE_NOTE:NOTE_UPDATE_ROW Return Status:'||x_return_status,3);
6272: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6273: --x_return_status := fnd_api.g_ret_sts_unexp_error;
6274: l_err_notes_cnt := l_err_notes_cnt + 1;
6275: ELSE
6276: --x_return_status := fnd_api.g_ret_sts_error;
6277: l_err_notes_cnt := l_err_notes_cnt + 1;
6272: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6273: --x_return_status := fnd_api.g_ret_sts_unexp_error;
6274: l_err_notes_cnt := l_err_notes_cnt + 1;
6275: ELSE
6276: --x_return_status := fnd_api.g_ret_sts_error;
6277: l_err_notes_cnt := l_err_notes_cnt + 1;
6278: END IF;
6279: END IF;
6280:
6284: ,x_tbl => x_out_tbl
6285: ,x_return_status => x_return_status
6286: );
6287: pvt_debug(g_pkg_name||'-CREATE_NOTE:Cal to VALIDATE_NOTE_FOR_CREATE Status:'||x_return_status,3);
6288: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
6289: ----------------------dbms_output.put_line('In Create_Note:3');--Rupak
6290: pvt_debug(g_pkg_name||'-CREATE_NOTE:Calling NOTE_INSERT_ROW',3);
6291: NOTE_INSERT_ROW( p_note_tbl => p_note_tbl_create
6292: ,p_lease_id => p_lease_id
6294: ,p_tbl => x_out_tbl
6295: ,p_commit => p_commit
6296: );
6297: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
6298: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
6299: l_err_notes_cnt := l_err_notes_cnt + 1;
6300: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6301: l_err_notes_cnt := l_err_notes_cnt + 1;
6302: END IF;
6296: );
6297: pvt_debug(g_pkg_name||'-CREATE_NOTE:Call to NOTE_INSERT_ROW Succesful',3);
6298: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
6299: l_err_notes_cnt := l_err_notes_cnt + 1;
6300: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6301: l_err_notes_cnt := l_err_notes_cnt + 1;
6302: END IF;
6303:
6304: ELSE
6307: END IF;
6308: END IF;
6309:
6310: IF(l_err_notes_cnt = 0) THEN
6311: x_return_status := fnd_api.g_ret_sts_success;
6312: ELSE
6313: x_return_status := fnd_api.g_ret_sts_error;
6314: END IF;
6315:
6309:
6310: IF(l_err_notes_cnt = 0) THEN
6311: x_return_status := fnd_api.g_ret_sts_success;
6312: ELSE
6313: x_return_status := fnd_api.g_ret_sts_error;
6314: END IF;
6315:
6316: EXCEPTION
6317: WHEN fnd_api.g_exc_error THEN
6313: x_return_status := fnd_api.g_ret_sts_error;
6314: END IF;
6315:
6316: EXCEPTION
6317: WHEN fnd_api.g_exc_error THEN
6318: x_return_status := fnd_api.g_ret_sts_error;
6319: WHEN OTHERS THEN
6320: x_return_status := fnd_api.g_ret_sts_unexp_error;
6321: ----------------------dbms_output.put_line ('NOTES UPDATION FAILED');--Rupak
6314: END IF;
6315:
6316: EXCEPTION
6317: WHEN fnd_api.g_exc_error THEN
6318: x_return_status := fnd_api.g_ret_sts_error;
6319: WHEN OTHERS THEN
6320: x_return_status := fnd_api.g_ret_sts_unexp_error;
6321: ----------------------dbms_output.put_line ('NOTES UPDATION FAILED');--Rupak
6322: ----------------dbms_output.put_line('In UPDATE_NOTE:2'||x_return_status||SQLERRM);--OOPS
6316: EXCEPTION
6317: WHEN fnd_api.g_exc_error THEN
6318: x_return_status := fnd_api.g_ret_sts_error;
6319: WHEN OTHERS THEN
6320: x_return_status := fnd_api.g_ret_sts_unexp_error;
6321: ----------------------dbms_output.put_line ('NOTES UPDATION FAILED');--Rupak
6322: ----------------dbms_output.put_line('In UPDATE_NOTE:2'||x_return_status||SQLERRM);--OOPS
6323: pvt_debug(g_pkg_name||'-UPDATE_NOTE:Unexpected Exception:'||SQLERRM,3);
6324: END UPDATE_NOTE;
6327: PROCEDURE VALIDATE_RIGHT_FOR_CREATE (p_right_tbl IN OUT NOCOPY lease_right_tbl_type
6328: ,x_tbl OUT NOCOPY temp_tbl_type
6329: ,x_return_status IN OUT NOCOPY VARCHAR2
6330: )IS
6331: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6332: l_index BINARY_INTEGER;
6333: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
6334: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
6335: l_cur_id NUMBER;
6355: , p_lookup_type => l_pn_rights_type
6356: , x_return_status => x_return_status
6357: , x_lookup_type_code => p_right_tbl(l_index).right_type_code
6358: );
6359: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6360: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
6361: fnd_message.set_token ('LOOKUP_TYPE', l_pn_rights_type);
6362: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6363: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6361: fnd_message.set_token ('LOOKUP_TYPE', l_pn_rights_type);
6362: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6363: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6364: fnd_msg_pub.ADD;
6365: RAISE fnd_api.g_exc_error;
6366: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6367: --l_error_flag:='Y';
6368: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6369: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6362: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6363: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6364: fnd_msg_pub.ADD;
6365: RAISE fnd_api.g_exc_error;
6366: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6367: --l_error_flag:='Y';
6368: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6369: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6370: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6368: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6369: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6370: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6371: fnd_msg_pub.ADD;
6372: RAISE fnd_api.g_exc_unexpected_error;
6373: END IF;
6374: ELSE
6375: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6376: fnd_message.set_token ('API_NAME', l_api_name);
6375: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6376: fnd_message.set_token ('API_NAME', l_api_name);
6377: fnd_message.set_token ('NULL_PARAM', l_pn_rights_type);
6378: fnd_msg_pub.ADD;
6379: RAISE fnd_api.g_exc_error;
6380: END IF;
6381:
6382:
6383:
6394: , p_lookup_type => l_pn_right_status_type
6395: , x_return_status => x_return_status
6396: , x_lookup_type_code => p_right_tbl(l_index).right_status_code
6397: );
6398: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6399: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
6400: fnd_message.set_token ('LOOKUP_TYPE', l_pn_right_status_type);
6401: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6402: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6400: fnd_message.set_token ('LOOKUP_TYPE', l_pn_right_status_type);
6401: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6402: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6403: fnd_msg_pub.ADD;
6404: RAISE fnd_api.g_exc_error;
6405: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6406: --l_error_flag:='Y';
6407: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6408: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6401: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6402: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6403: fnd_msg_pub.ADD;
6404: RAISE fnd_api.g_exc_error;
6405: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6406: --l_error_flag:='Y';
6407: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6408: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6409: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6407: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6408: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6409: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6410: fnd_msg_pub.ADD;
6411: RAISE fnd_api.g_exc_unexpected_error;
6412: END IF;
6413: ELSE
6414: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6415: fnd_message.set_token ('API_NAME', l_api_name);
6414: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6415: fnd_message.set_token ('API_NAME', l_api_name);
6416: fnd_message.set_token ('NULL_PARAM', l_pn_right_status_type);
6417: fnd_msg_pub.ADD;
6418: RAISE fnd_api.g_exc_error;
6419: END IF;
6420:
6421:
6422:
6442: ,p_right_tbl(l_index).attribute14
6443: ,p_right_tbl(l_index).attribute15
6444: ,x_return_status
6445: );
6446: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
6447: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6448: fnd_message.set_token ('API_NAME', l_api_name);
6449: fnd_message.set_token ('NULL_PARAM','Required attribute in Rights is NULL');
6450: fnd_msg_pub.ADD;
6447: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6448: fnd_message.set_token ('API_NAME', l_api_name);
6449: fnd_message.set_token ('NULL_PARAM','Required attribute in Rights is NULL');
6450: fnd_msg_pub.ADD;
6451: RAISE fnd_api.g_exc_error;
6452: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6453: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6454: fnd_message.set_token ('API_NAME', l_api_name);
6455: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Rights is NULL');
6448: fnd_message.set_token ('API_NAME', l_api_name);
6449: fnd_message.set_token ('NULL_PARAM','Required attribute in Rights is NULL');
6450: fnd_msg_pub.ADD;
6451: RAISE fnd_api.g_exc_error;
6452: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6453: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6454: fnd_message.set_token ('API_NAME', l_api_name);
6455: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Rights is NULL');
6456: fnd_msg_pub.ADD;
6453: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6454: fnd_message.set_token ('API_NAME', l_api_name);
6455: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Rights is NULL');
6456: fnd_msg_pub.ADD;
6457: RAISE fnd_api.g_exc_unexpected_error;
6458: ELSE*/
6459: IF NOT ((p_right_tbl(l_index).attribute_category = pn_lease_utils.g_pn_miss_char OR p_right_tbl(l_index).attribute_category IS NULL)
6460: AND (p_right_tbl(l_index).attribute1 = pn_lease_utils.g_pn_miss_char OR p_right_tbl(l_index).attribute1 IS NULL)
6461: AND (p_right_tbl(l_index).attribute2 = pn_lease_utils.g_pn_miss_char OR p_right_tbl(l_index).attribute2 IS NULL)
6496: , p_resp_appl_id => fnd_global.RESP_APPL_ID
6497: , p_resp_id => fnd_global.RESP_ID
6498: , p_return_status => x_return_status
6499: );
6500: IF (x_return_status = fnd_api.g_ret_sts_error)
6501: THEN
6502: l_tbl_flag := 0;
6503: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6504: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6503: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6504: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6505: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6506: fnd_msg_pub.ADD;
6507: RAISE fnd_api.g_exc_error;
6508: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
6509: THEN
6510: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6511: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6504: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6505: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6506: fnd_msg_pub.ADD;
6507: RAISE fnd_api.g_exc_error;
6508: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
6509: THEN
6510: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6511: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6512: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6510: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6511: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6512: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6513: fnd_msg_pub.ADD;
6514: RAISE fnd_api.g_exc_unexpected_error;
6515: END IF;
6516: END IF;
6517: END IF;
6518: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6516: END IF;
6517: END IF;
6518: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6519: EXCEPTION
6520: WHEN fnd_api.g_exc_error THEN
6521: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6522: WHEN OTHERS THEN
6523: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
6524: END;
6517: END IF;
6518: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6519: EXCEPTION
6520: WHEN fnd_api.g_exc_error THEN
6521: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6522: WHEN OTHERS THEN
6523: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
6524: END;
6525: END LOOP;
6524: END;
6525: END LOOP;
6526: ----------------------dbms_output.put_line('VALIDATIONS FOR RIGHTS CREATION COMPLETED');
6527: x_tbl := l_tbl;
6528: x_return_status := fnd_api.g_ret_sts_success;
6529:
6530: EXCEPTION
6531: WHEN OTHERS THEN
6532: x_return_status := fnd_api.g_ret_sts_unexp_error;
6528: x_return_status := fnd_api.g_ret_sts_success;
6529:
6530: EXCEPTION
6531: WHEN OTHERS THEN
6532: x_return_status := fnd_api.g_ret_sts_unexp_error;
6533: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6534: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_CREATE:Exception'||SQLERRM,3);
6535: END VALIDATE_RIGHT_FOR_CREATE;
6536:
6607: END;
6608: -- END IF;
6609: END loop;
6610:
6611: x_return_status := fnd_api.g_ret_sts_success;
6612: ----------------------dbms_output.put_line('INSERT OF RIGHTS COMPLETED');
6613: p_right_tbl := p_right_tbl;
6614:
6615: EXCEPTION
6613: p_right_tbl := p_right_tbl;
6614:
6615: EXCEPTION
6616: WHEN OTHERS THEN
6617: x_return_status := fnd_api.g_ret_sts_unexp_error;
6618: ----------------------dbms_output.put_line('INSERT PROCEDURE FAILED FOR RIGHTS CREATION') ;
6619: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6620: pvt_debug(g_pkg_name||'-RIGHT_INSERT_ROW::Exception'||SQLERRM,3);
6621: END RIGHT_INSERT_ROW;
6630: -- , x_msg_count OUT NUMBER
6631: -- , x_msg_data OUT VARCHAR2
6632: )
6633: IS
6634: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6635: x_out_tbl temp_tbl_type;
6636: BEGIN
6637: ----------------------dbms_output.put_line('CREATION OF RIGHT PROCESS STARTED');--Rupak
6638: pvt_debug(g_pkg_name||'-Inside CREATE_RIGHT',3);
6639: VALIDATE_RIGHT_FOR_CREATE(p_right_tbl => p_right_tbl
6640: ,x_tbl => x_out_tbl
6641: ,x_return_status => x_return_status
6642: );
6643: IF NVL(p_validate,'F') <>'T' and x_return_status = fnd_api.g_ret_sts_success THEN
6644: RIGHT_INSERT_ROW(p_right_tbl => p_right_tbl
6645: ,p_lease_id => p_lease_id
6646: ,p_lease_change_id => p_lease_change_id
6647: ,x_return_status => x_return_status
6649: ,p_commit => p_commit
6650: );
6651: pvt_debug(g_pkg_name||'-CREATE_RIGHT:RIGHT_INSERT_ROW Return Status:'||l_return_status,3);
6652: ELSE
6653: RAISE fnd_api.g_exc_error;
6654: END IF;
6655:
6656: --x_return_status := l_return_status;
6657: ----------------------dbms_output.put_line('CREATION OF RIGHT PROCESS COMPLETED');
6656: --x_return_status := l_return_status;
6657: ----------------------dbms_output.put_line('CREATION OF RIGHT PROCESS COMPLETED');
6658: EXCEPTION
6659: WHEN OTHERS THEN
6660: x_return_status := fnd_api.g_ret_sts_unexp_error;
6661: ----------------------dbms_output.put_line('CREATION OF RIGHTS FAILED');
6662: pvt_debug(g_pkg_name||'-CREATE_RIGHT:Exception'||SQLERRM,3);
6663: END CREATE_RIGHT;
6664:
6672: ,x_return_status IN OUT NOCOPY VARCHAR2
6673: ,p_commit IN VARCHAR2
6674: )
6675: IS
6676: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6677: l_index BINARY_INTEGER;
6678: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
6679: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
6680: l_cur_id NUMBER;
6714: FROM pn_rights_all
6715: WHERE right_id = p_right_id;
6716: lcu_right_rec c_right%ROWTYPE;
6717: BEGIN
6718: l_return_status := fnd_api.g_ret_sts_success ;
6719:
6720: FOR l_index in p_right_tbl.FIRST..p_right_tbl.LAST LOOP
6721: BEGIN
6722: l_tbl_index := l_index;
6726: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6727: fnd_message.set_token ('API_NAME', l_api_name);
6728: fnd_message.set_token ('NULL_PARAM', 'RIGHT ID IS NULL');
6729: fnd_msg_pub.ADD;
6730: RAISE fnd_api.g_exc_error;
6731: ELSE
6732: --------------------dbms_output.put_line ('VALIDATIONS FOR RIGHT UPDATE STARTEDIN ELSE');--Rupak
6733: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:ELSE Part',3);
6734: l_tbl_flag := 2;
6770: , p_lookup_type => l_pn_rights_type
6771: , x_return_status => x_return_status
6772: , x_lookup_type_code => p_right_tbl(l_index).right_type_code
6773: );
6774: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6775: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
6776: fnd_message.set_token ('LOOKUP_TYPE', l_pn_rights_type);
6777: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6778: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6776: fnd_message.set_token ('LOOKUP_TYPE', l_pn_rights_type);
6777: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6778: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6779: fnd_msg_pub.ADD;
6780: RAISE fnd_api.g_exc_error;
6781: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6782: --l_error_flag:='Y';
6783: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6784: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6777: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_type));
6778: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode( p_right_tbl(l_index).right_type_code));
6779: fnd_msg_pub.ADD;
6780: RAISE fnd_api.g_exc_error;
6781: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6782: --l_error_flag:='Y';
6783: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6784: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6785: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6783: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6784: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_type,3));
6785: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6786: fnd_msg_pub.ADD;
6787: RAISE fnd_api.g_exc_unexpected_error;
6788: END IF;
6789: ELSIF(p_right_tbl(l_index).right_type IS NULL OR p_right_tbl(l_index).right_type_code IS NULL) THEN
6790: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6791: fnd_message.set_token ('API_NAME', l_api_name);
6790: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6791: fnd_message.set_token ('API_NAME', l_api_name);
6792: fnd_message.set_token ('NULL_PARAM', 'RIGHT_TYPE AND RIGHT_TYPE_CODE CANNOT BE NULL');
6793: fnd_msg_pub.ADD;
6794: RAISE fnd_api.g_exc_error;
6795: ELSE
6796: p_right_tbl(l_index).right_type_code := lcu_right_rec.right_type_code;
6797: END IF;
6798: -------------------------------------------------------------------------------------------------------------------------------------------------------------
6807: , p_lookup_type => l_pn_right_status_type
6808: , x_return_status => x_return_status
6809: , x_lookup_type_code => p_right_tbl(l_index).right_status_code
6810: );
6811: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6812: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
6813: fnd_message.set_token ('LOOKUP_TYPE', l_pn_right_status_type);
6814: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6815: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6813: fnd_message.set_token ('LOOKUP_TYPE', l_pn_right_status_type);
6814: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6815: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6816: fnd_msg_pub.ADD;
6817: RAISE fnd_api.g_exc_error;
6818: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6819: --l_error_flag:='Y';
6820: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6821: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6814: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_right_tbl(l_index).right_status));
6815: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_right_tbl(l_index).right_status_code));
6816: fnd_msg_pub.ADD;
6817: RAISE fnd_api.g_exc_error;
6818: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6819: --l_error_flag:='Y';
6820: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6821: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6822: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6820: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6821: fnd_message.set_token ('COLUMN', SUBSTR(l_param_right_status,3));
6822: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
6823: fnd_msg_pub.ADD;
6824: RAISE fnd_api.g_exc_unexpected_error;
6825: END IF;
6826: ELSIF(p_right_tbl(l_index).right_status IS NULL OR p_right_tbl(l_index).right_status_code IS NULL) THEN
6827: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6828: fnd_message.set_token ('API_NAME', l_api_name);
6827: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6828: fnd_message.set_token ('API_NAME', l_api_name);
6829: fnd_message.set_token ('NULL_PARAM', 'RIGHT_STATUS AND RIGHT_STATUS_CODE CANNOT BE NULL');
6830: fnd_msg_pub.ADD;
6831: RAISE fnd_api.g_exc_error;
6832: ELSE
6833: p_right_tbl(l_index).right_status_code := lcu_right_rec.right_status_code;
6834: END IF;
6835:
6963: , p_resp_id => fnd_global.resp_id
6964: , p_return_status => x_return_status
6965: );
6966: --------------------dbms_output.put_line('dff validated');
6967: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
6968: l_tbl_flag := 0;
6969: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6970: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6971: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6969: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6970: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6971: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6972: fnd_msg_pub.ADD;
6973: RAISE fnd_api.g_exc_error;
6974: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6975: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6976: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6977: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6970: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6971: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6972: fnd_msg_pub.ADD;
6973: RAISE fnd_api.g_exc_error;
6974: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6975: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6976: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6977: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6978: fnd_msg_pub.ADD;
6975: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
6976: fnd_message.set_token ('COLUMN', 'PN_RIGHTS_DESC_FIELDS');
6977: fnd_message.set_token ('P_TEXT', 'PN_RIGHTS'|| '-'|| SQLERRM);
6978: fnd_msg_pub.ADD;
6979: RAISE fnd_api.g_exc_unexpected_error;
6980: END IF;
6981: -- END IF;
6982: CLOSE c_right;
6983: ------------------dbms_output.put_line ('VALIDATIONS FOR RIGHT UPDATE COMPLETED');--Rupak
6983: ------------------dbms_output.put_line ('VALIDATIONS FOR RIGHT UPDATE COMPLETED');--Rupak
6984: END IF;
6985: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6986: EXCEPTION
6987: WHEN fnd_api.g_exc_error THEN
6988: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6989: WHEN OTHERS THEN
6990: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
6991: END;
6984: END IF;
6985: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
6986: EXCEPTION
6987: WHEN fnd_api.g_exc_error THEN
6988: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
6989: WHEN OTHERS THEN
6990: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
6991: END;
6992: END LOOP;
6990: pvt_debug(g_pkg_name||'-VALIDATE_RIGHT_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
6991: END;
6992: END LOOP;
6993: x_tbl := l_tbl;
6994: x_return_status := fnd_api.g_ret_sts_success;
6995: EXCEPTION
6996: WHEN OTHERS THEN
6997: x_return_status := fnd_api.g_ret_sts_unexp_error;
6998: --------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6993: x_tbl := l_tbl;
6994: x_return_status := fnd_api.g_ret_sts_success;
6995: EXCEPTION
6996: WHEN OTHERS THEN
6997: x_return_status := fnd_api.g_ret_sts_unexp_error;
6998: --------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
6999: END VALIDATE_RIGHT_FOR_UPDATE;
7000:
7001: PROCEDURE RIGHT_UPDATE_ROW( p_right_tbl IN OUT NOCOPY lease_right_tbl_type
7005: ,p_tbl IN temp_tbl_type
7006: ,p_commit IN VARCHAR2
7007: )
7008: IS
7009: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7010: l_index BINARY_INTEGER;
7011: l_right_count NUMBER:=0;
7012: BEGIN
7013: ----------------------dbms_output.put_line (' RIGHT_UPDATE_ROW :RIGHT_UPDATE_ROW');--Rupak
7063: pvt_debug(g_pkg_name||'-RIGHT_INSERT_ROW:PN_RIGHTS_PKG.INSERT_ROW:Exception'||SQLERRM,3);
7064: END;
7065: END LOOP;
7066: IF l_right_count = 0 THEN
7067: x_return_status := fnd_api.g_ret_sts_success;
7068: ELSE
7069: x_return_status := fnd_api.g_ret_sts_error;
7070: END IF;
7071: EXCEPTION
7065: END LOOP;
7066: IF l_right_count = 0 THEN
7067: x_return_status := fnd_api.g_ret_sts_success;
7068: ELSE
7069: x_return_status := fnd_api.g_ret_sts_error;
7070: END IF;
7071: EXCEPTION
7072: WHEN OTHERS THEN
7073: x_return_status := fnd_api.g_ret_sts_unexp_error;
7069: x_return_status := fnd_api.g_ret_sts_error;
7070: END IF;
7071: EXCEPTION
7072: WHEN OTHERS THEN
7073: x_return_status := fnd_api.g_ret_sts_unexp_error;
7074: ----------------------dbms_output.put_line ('RECORD NOT UPDATED FOR RIGHTS');
7075: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
7076: pvt_debug(g_pkg_name||'-RIGHT_UPDATE_ROW:Exception'||SQLERRM,3);
7077: END RIGHT_UPDATE_ROW;
7086: -- , x_msg_count OUT NUMBER
7087: -- , x_msg_data OUT VARCHAR2
7088: )
7089: IS
7090: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
7091: l_msg_count NUMBER;
7092: l_msg_data VARCHAR2(2000) ;
7093: x_out_tbl temp_tbl_type;
7094:
7097: m NUMBER;
7098: n NUMBER;
7099: l_err_right_cnt NUMBER:=0;
7100: BEGIN
7101: x_return_status := fnd_api.g_ret_sts_success;
7102: pvt_debug(g_pkg_name||'-Inside UPDATE_RIGHT:Calling VALIDATE_RIGHT_FOR_UPDATE',3);
7103: m:=1;
7104: n:=1;
7105:
7127: ,x_return_status => x_return_status
7128: ,p_commit => p_commit
7129: );
7130:
7131: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
7132:
7133: ----------------------dbms_output.put_line ('CALLING UPDATE PROCEDURE OF RIGHTS:p_lease_change_id'||p_lease_change_id);--Rupak
7134: pvt_debug(g_pkg_name||'-Inside UPDATE_RIGHT:Calling RIGHT_UPDATE_ROW',3);
7135:
7142: , p_commit => p_commit
7143: );
7144: pvt_debug(g_pkg_name||'-UPDATE_RIGHT:RIGHT_UPDATE_ROW Successful',3);
7145:
7146: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7147: --x_return_status := fnd_api.g_ret_sts_unexp_error;
7148: l_err_right_cnt := l_err_right_cnt + 1;
7149: ELSE
7150: --x_return_status := fnd_api.g_ret_sts_error;
7143: );
7144: pvt_debug(g_pkg_name||'-UPDATE_RIGHT:RIGHT_UPDATE_ROW Successful',3);
7145:
7146: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7147: --x_return_status := fnd_api.g_ret_sts_unexp_error;
7148: l_err_right_cnt := l_err_right_cnt + 1;
7149: ELSE
7150: --x_return_status := fnd_api.g_ret_sts_error;
7151: l_err_right_cnt := l_err_right_cnt + 1;
7146: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7147: --x_return_status := fnd_api.g_ret_sts_unexp_error;
7148: l_err_right_cnt := l_err_right_cnt + 1;
7149: ELSE
7150: --x_return_status := fnd_api.g_ret_sts_error;
7151: l_err_right_cnt := l_err_right_cnt + 1;
7152: END IF;
7153: END IF;
7154:
7158: VALIDATE_RIGHT_FOR_CREATE(p_right_tbl => p_right_tbl_create
7159: ,x_tbl => x_out_tbl
7160: ,x_return_status => x_return_status
7161: );
7162: IF NVL(p_validate,'F') <>'T' and x_return_status = fnd_api.g_ret_sts_success THEN
7163: RIGHT_INSERT_ROW(p_right_tbl => p_right_tbl_create
7164: ,p_lease_id => p_lease_id
7165: ,p_lease_change_id => p_lease_change_id
7166: ,x_return_status => x_return_status
7167: ,p_tbl => x_out_tbl
7168: ,p_commit => p_commit
7169: );
7170: pvt_debug(g_pkg_name||'-CREATE_RIGHT:RIGHT_INSERT_ROW Return Status:'||l_return_status,3);
7171: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7172: --RAISE fnd_api.g_exc_error;
7173: l_err_right_cnt := l_err_right_cnt + 1;
7174: END IF;
7175: ELSE
7168: ,p_commit => p_commit
7169: );
7170: pvt_debug(g_pkg_name||'-CREATE_RIGHT:RIGHT_INSERT_ROW Return Status:'||l_return_status,3);
7171: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7172: --RAISE fnd_api.g_exc_error;
7173: l_err_right_cnt := l_err_right_cnt + 1;
7174: END IF;
7175: ELSE
7176: --RAISE fnd_api.g_exc_error;
7172: --RAISE fnd_api.g_exc_error;
7173: l_err_right_cnt := l_err_right_cnt + 1;
7174: END IF;
7175: ELSE
7176: --RAISE fnd_api.g_exc_error;
7177: l_err_right_cnt := l_err_right_cnt + 1;
7178: END IF;
7179: END IF;
7180:
7178: END IF;
7179: END IF;
7180:
7181: IF(l_err_right_cnt = 0) THEN
7182: x_return_status := fnd_api.g_ret_sts_success;
7183: ELSE
7184: x_return_status := fnd_api.g_ret_sts_error;
7185: END IF;
7186:
7180:
7181: IF(l_err_right_cnt = 0) THEN
7182: x_return_status := fnd_api.g_ret_sts_success;
7183: ELSE
7184: x_return_status := fnd_api.g_ret_sts_error;
7185: END IF;
7186:
7187: EXCEPTION
7188: WHEN OTHERS THEN
7185: END IF;
7186:
7187: EXCEPTION
7188: WHEN OTHERS THEN
7189: x_return_status := fnd_api.g_ret_sts_unexp_error;
7190: ----------------------dbms_output.put_line('UPDATION OF RIGHTS FAILED'||SQLERRM);--Rupak
7191: pvt_debug(g_pkg_name||'-UPDATE_RIGHT:Exception:'||SQLERRM,3);
7192: END UPDATE_RIGHT;
7193:
7199: ,x_tbl OUT NOCOPY temp_tbl_type
7200: ,x_return_status IN OUT NOCOPY VARCHAR2
7201: )
7202: IS
7203: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7204: l_index BINARY_INTEGER ;
7205: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE ;
7206: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE ;
7207: l_company_id NUMBER ;
7227: , p_lease_comm_date => p_obligation_tbl(l_index).start_date
7228: , p_lease_term_date => p_obligation_tbl(l_index).end_date
7229: , x_return_status => x_return_status
7230: );
7231: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7232: l_tbl_flag := 0;
7233: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
7234: fnd_message.set_token ('COMMENCEMENT_DATE',get_miss_date_decode(p_obligation_tbl(l_index).start_date));
7235: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_obligation_tbl(l_index).end_date));
7233: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
7234: fnd_message.set_token ('COMMENCEMENT_DATE',get_miss_date_decode(p_obligation_tbl(l_index).start_date));
7235: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_obligation_tbl(l_index).end_date));
7236: fnd_msg_pub.ADD;
7237: RAISE fnd_api.g_exc_error;
7238: END IF;
7239: ELSE
7240: l_tbl_flag := 0;
7241: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7241: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7242: fnd_message.set_token ('API_NAME', l_api_name);
7243: fnd_message.set_token ('NULL_PARAM', 'START DATE END DATE NULL');
7244: fnd_msg_pub.ADD;
7245: RAISE fnd_api.g_exc_error;
7246:
7247: END IF;
7248:
7249: IF (p_obligation_tbl(l_index).status IS NULL AND p_obligation_tbl(l_index).status NOT IN ('A','I','n')) THEN
7252: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7253: fnd_message.set_token ('API_NAME', l_api_name);
7254: fnd_message.set_token ('NULL_PARAM', l_pn_status);
7255: fnd_msg_pub.ADD;
7256: RAISE fnd_api.g_exc_error;
7257: END IF;
7258:
7259:
7260:
7268: , p_lookup_type => l_pn_landlord_service_type
7269: , x_return_status => x_return_status
7270: , x_lookup_type_code => p_obligation_tbl(l_index).service_type_lookup_code
7271: );
7272: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7273: --l_error_flag:='Y';
7274: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7275: fnd_message.set_token ('LOOKUP_TYPE', l_pn_landlord_service_type);
7276: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7275: fnd_message.set_token ('LOOKUP_TYPE', l_pn_landlord_service_type);
7276: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7277: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).service_type_lookup_code));
7278: fnd_msg_pub.ADD;
7279: RAISE fnd_api.g_exc_error;
7280: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7281: --l_error_flag:='Y';
7282: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7283: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7276: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7277: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).service_type_lookup_code));
7278: fnd_msg_pub.ADD;
7279: RAISE fnd_api.g_exc_error;
7280: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7281: --l_error_flag:='Y';
7282: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7283: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7284: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7282: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7283: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7284: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7285: fnd_msg_pub.ADD;
7286: RAISE fnd_api.g_exc_unexpected_error;
7287: END IF;
7288: ELSE
7289: l_tbl_flag := 0;
7290: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7290: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7291: fnd_message.set_token ('API_NAME', l_api_name);
7292: fnd_message.set_token ('NULL_PARAM', l_pn_landlord_service_type);
7293: fnd_msg_pub.ADD;
7294: RAISE fnd_api.g_exc_error;
7295: END IF;
7296:
7297:
7298: --------------------------------------------------------------------------------------------------------------------------------------------------------------
7304: ,p_lookup_type => l_pn_obligation_resp_type
7305: ,x_return_status => x_return_status
7306: ,x_lookup_type_code => p_obligation_tbl(l_index).responsibility_code
7307: );
7308: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7309: --l_error_flag:='Y';
7310: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7311: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_resp_type);
7312: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7311: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_resp_type);
7312: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7313: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).responsibility_code));
7314: fnd_msg_pub.ADD;
7315: RAISE fnd_api.g_exc_error;
7316: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7317: --l_error_flag:='Y';
7318: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7319: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7312: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7313: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).responsibility_code));
7314: fnd_msg_pub.ADD;
7315: RAISE fnd_api.g_exc_error;
7316: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7317: --l_error_flag:='Y';
7318: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7319: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7320: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7318: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7319: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7320: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7321: fnd_msg_pub.ADD;
7322: RAISE fnd_api.g_exc_unexpected_error;
7323: END IF;
7324: /*ELSE
7325: l_tbl_flag := 0;
7326: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7326: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7327: fnd_message.set_token ('API_NAME', l_api_name);
7328: fnd_message.set_token ('NULL_PARAM', l_pn_obligation_resp_type);
7329: fnd_msg_pub.ADD;
7330: RAISE fnd_api.g_exc_error;*/
7331: END IF;
7332:
7333:
7334: ------------------------------------------------------------------------------------------------------------------------------------------------------------
7340: , p_lookup_type => l_pn_obligation_fin_resp_type
7341: , x_return_status => x_return_status
7342: , x_lookup_type_code => p_obligation_tbl(l_index).financial_resp_party_code
7343: );
7344: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7345: --l_error_flag:='Y';
7346: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7347: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_fin_resp_type);
7348: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7347: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_fin_resp_type);
7348: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7349: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party_code));
7350: fnd_msg_pub.ADD;
7351: RAISE fnd_api.g_exc_error;
7352: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7353: --l_error_flag:='Y';
7354: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7355: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7348: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7349: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party_code));
7350: fnd_msg_pub.ADD;
7351: RAISE fnd_api.g_exc_error;
7352: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7353: --l_error_flag:='Y';
7354: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7355: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7356: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7354: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7355: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7356: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7357: fnd_msg_pub.ADD;
7358: RAISE fnd_api.g_exc_unexpected_error;
7359: END IF;
7360: /*ELSE
7361: l_tbl_flag := 0;
7362: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7362: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7363: fnd_message.set_token ('API_NAME', l_api_name);
7364: fnd_message.set_token ('NULL_PARAM', l_pn_obligation_fin_resp_type);
7365: fnd_msg_pub.ADD;
7366: RAISE fnd_api.g_exc_error;*/
7367: END IF;
7368:
7369:
7370:
7374: pn_lease_utils.validate_company_id(p_company_name => p_obligation_tbl(l_index).company_name
7375: , x_company_id => p_obligation_tbl(l_index).company_id
7376: , x_return_status => x_return_status
7377: );
7378: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7379: --l_error_flag:='Y';
7380: fnd_message.set_name ('PN', 'PN_INVALID_COMPANY');
7381: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_obligation_tbl(l_index).company_name));
7382: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_obligation_tbl(l_index).company_id));
7381: fnd_message.set_token ('COMPANY_NAME', get_miss_char_decode(p_obligation_tbl(l_index).company_name));
7382: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_obligation_tbl(l_index).company_id));
7383: fnd_msg_pub.ADD;
7384: --p_lease_contacts_tbl (i).error_flag := 'Y';
7385: RAISE fnd_api.g_exc_error;
7386: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7387: --l_error_flag:='Y';
7388: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7389: fnd_message.set_token ('COLUMN', SUBSTR(l_param_company,3));
7382: fnd_message.set_token ('COMPANY_ID', get_miss_num_decode(p_obligation_tbl(l_index).company_id));
7383: fnd_msg_pub.ADD;
7384: --p_lease_contacts_tbl (i).error_flag := 'Y';
7385: RAISE fnd_api.g_exc_error;
7386: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7387: --l_error_flag:='Y';
7388: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7389: fnd_message.set_token ('COLUMN', SUBSTR(l_param_company,3));
7390: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7388: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7389: fnd_message.set_token ('COLUMN', SUBSTR(l_param_company,3));
7390: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7391: fnd_msg_pub.ADD;
7392: RAISE fnd_api.g_exc_unexpected_error;
7393: END IF;
7394: /*ELSE
7395: l_tbl_flag := 0;
7396: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7396: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7397: fnd_message.set_token ('API_NAME', l_api_name);
7398: fnd_message.set_token ('NULL_PARAM', l_param_company);
7399: fnd_msg_pub.ADD;
7400: RAISE fnd_api.g_exc_error;*/
7401: END IF;
7402:
7403:
7404: --------------------------------------------------------------------------------------------------------------------------------------------------------------
7438: ,p_obligation_tbl(l_index).attribute14
7439: ,p_obligation_tbl(l_index).attribute15
7440: ,x_return_status
7441: );
7442: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
7443: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7444: fnd_message.set_token ('API_NAME', l_api_name);
7445: fnd_message.set_token ('NULL_PARAM','Required attribute in Obligations is NULL');
7446: fnd_msg_pub.ADD;
7443: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7444: fnd_message.set_token ('API_NAME', l_api_name);
7445: fnd_message.set_token ('NULL_PARAM','Required attribute in Obligations is NULL');
7446: fnd_msg_pub.ADD;
7447: RAISE fnd_api.g_exc_error;
7448: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7450: fnd_message.set_token ('API_NAME', l_api_name);
7451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Obligations is NULL');
7444: fnd_message.set_token ('API_NAME', l_api_name);
7445: fnd_message.set_token ('NULL_PARAM','Required attribute in Obligations is NULL');
7446: fnd_msg_pub.ADD;
7447: RAISE fnd_api.g_exc_error;
7448: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7450: fnd_message.set_token ('API_NAME', l_api_name);
7451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Obligations is NULL');
7452: fnd_msg_pub.ADD;
7449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7450: fnd_message.set_token ('API_NAME', l_api_name);
7451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Obligations is NULL');
7452: fnd_msg_pub.ADD;
7453: RAISE fnd_api.g_exc_unexpected_error;
7454: ELSE*/
7455: IF NOT ((p_obligation_tbl(l_index).attribute_category = pn_lease_utils.g_pn_miss_char OR p_obligation_tbl(l_index).attribute_category IS NULL)
7456: AND (p_obligation_tbl(l_index).attribute1 = pn_lease_utils.g_pn_miss_char OR p_obligation_tbl(l_index).attribute1 IS NULL)
7457: AND (p_obligation_tbl(l_index).attribute2 = pn_lease_utils.g_pn_miss_char OR p_obligation_tbl(l_index).attribute2 IS NULL)
7493: , p_resp_id => fnd_global.resp_id
7494: , p_return_status => x_return_status
7495: );
7496: ----------------------dbms_output.put_line('dff validated');
7497: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7498: l_tbl_flag := 0;
7499: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7500: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7501: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7499: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7500: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7501: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7502: fnd_msg_pub.ADD;
7503: RAISE fnd_api.g_exc_error;
7504: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7505: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7506: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7507: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7500: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7501: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7502: fnd_msg_pub.ADD;
7503: RAISE fnd_api.g_exc_error;
7504: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7505: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7506: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7507: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7508: fnd_msg_pub.ADD;
7505: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7506: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
7507: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
7508: fnd_msg_pub.ADD;
7509: RAISE fnd_api.g_exc_unexpected_error;
7510: END IF;
7511: END IF;
7512: END IF;
7513: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
7511: END IF;
7512: END IF;
7513: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
7514: EXCEPTION
7515: WHEN fnd_api.g_exc_error THEN
7516: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
7517: WHEN OTHERS THEN
7518: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
7519: END;
7512: END IF;
7513: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
7514: EXCEPTION
7515: WHEN fnd_api.g_exc_error THEN
7516: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
7517: WHEN OTHERS THEN
7518: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
7519: END;
7520: END LOOP;
7518: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
7519: END;
7520: END LOOP;
7521: x_tbl := l_tbl;
7522: x_return_status := fnd_api.g_ret_sts_success;
7523:
7524: EXCEPTION
7525: WHEN fnd_api.g_exc_error THEN
7526: x_return_status := fnd_api.g_ret_sts_error;
7521: x_tbl := l_tbl;
7522: x_return_status := fnd_api.g_ret_sts_success;
7523:
7524: EXCEPTION
7525: WHEN fnd_api.g_exc_error THEN
7526: x_return_status := fnd_api.g_ret_sts_error;
7527: ----------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
7528: WHEN OTHERS THEN
7529: x_return_status := fnd_api.g_ret_sts_unexp_error;
7522: x_return_status := fnd_api.g_ret_sts_success;
7523:
7524: EXCEPTION
7525: WHEN fnd_api.g_exc_error THEN
7526: x_return_status := fnd_api.g_ret_sts_error;
7527: ----------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
7528: WHEN OTHERS THEN
7529: x_return_status := fnd_api.g_ret_sts_unexp_error;
7530: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:OTHERS:EXCEPTION:'||SQLERRM,3);
7525: WHEN fnd_api.g_exc_error THEN
7526: x_return_status := fnd_api.g_ret_sts_error;
7527: ----------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
7528: WHEN OTHERS THEN
7529: x_return_status := fnd_api.g_ret_sts_unexp_error;
7530: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:OTHERS:EXCEPTION:'||SQLERRM,3);
7531: END VALIDATE_OBLIGATION_FOR_CREATE;
7532:
7533: PROCEDURE OBLIGATION_INSERT_ROW(p_obligation_tbl IN OUT NOCOPY LEASE_OBLIGATION_TBL_TYPE
7609: END loop;
7610: -- END IF;
7611: EXCEPTION
7612: WHEN OTHERS THEN
7613: x_return_status := fnd_api.g_ret_sts_unexp_error;
7614: ----------------------dbms_output.put_line('INSERT INTO OBLIGATIONS FAILED') ;
7615: ----------------------dbms_output.put_line('In OBLIGATION INSERT ROW PROC:sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);--Rupak
7616: pvt_debug(g_pkg_name||'-OBLIGATION_INSERT_ROW:Exception:PN_LANDLORD_SERVICES_PKG.INSERT_ROW',3);
7617: END OBLIGATION_INSERT_ROW;
7626: -- , x_msg_count OUT NUMBER
7627: -- , x_msg_data OUT VARCHAR2
7628: )
7629: IS
7630: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7631: l_msg_count NUMBER ;
7632: l_msg_data VARCHAR2(2000) ;
7633: x_out_tbl temp_tbl_type ;
7634: BEGIN
7640: ,p_lease_change_id => p_lease_change_id
7641: ,x_tbl => x_out_tbl
7642: ,x_return_status => x_return_status
7643: );
7644: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
7645: OBLIGATION_INSERT_ROW(
7646: p_obligation_tbl => p_obligation_tbl
7647: ,p_lease_id => p_lease_id
7648: ,p_lease_change_id => p_lease_change_id
7650: ,p_tbl => x_out_tbl
7651: ,p_commit => p_commit
7652: );
7653: ELSE
7654: RAISE fnd_api.g_exc_error;
7655: END IF;
7656: ----------------------dbms_output.put_line('In Create Obligation:PVT After OBLIGATION_INSERT_ROW');--Rupak
7657: pvt_debug(g_pkg_name||'-CREATE_OBLIGATION:VALIDATE_OBLIGATION_FOR_CREATE Return Status:'||l_return_status,3);
7658: EXCEPTION
7655: END IF;
7656: ----------------------dbms_output.put_line('In Create Obligation:PVT After OBLIGATION_INSERT_ROW');--Rupak
7657: pvt_debug(g_pkg_name||'-CREATE_OBLIGATION:VALIDATE_OBLIGATION_FOR_CREATE Return Status:'||l_return_status,3);
7658: EXCEPTION
7659: WHEN fnd_api.g_exc_error THEN
7660: x_return_status := fnd_api.g_ret_sts_error;
7661: WHEN OTHERS THEN
7662: x_return_status := fnd_api.g_ret_sts_unexp_error;
7663: ----------------------dbms_output.put_line('CREATION OF RIGHTS FAILED');
7656: ----------------------dbms_output.put_line('In Create Obligation:PVT After OBLIGATION_INSERT_ROW');--Rupak
7657: pvt_debug(g_pkg_name||'-CREATE_OBLIGATION:VALIDATE_OBLIGATION_FOR_CREATE Return Status:'||l_return_status,3);
7658: EXCEPTION
7659: WHEN fnd_api.g_exc_error THEN
7660: x_return_status := fnd_api.g_ret_sts_error;
7661: WHEN OTHERS THEN
7662: x_return_status := fnd_api.g_ret_sts_unexp_error;
7663: ----------------------dbms_output.put_line('CREATION OF RIGHTS FAILED');
7664: pvt_debug(g_pkg_name||'-CREATE_OBLIGATION:Exception'||SQLERRM,3);
7658: EXCEPTION
7659: WHEN fnd_api.g_exc_error THEN
7660: x_return_status := fnd_api.g_ret_sts_error;
7661: WHEN OTHERS THEN
7662: x_return_status := fnd_api.g_ret_sts_unexp_error;
7663: ----------------------dbms_output.put_line('CREATION OF RIGHTS FAILED');
7664: pvt_debug(g_pkg_name||'-CREATE_OBLIGATION:Exception'||SQLERRM,3);
7665: END CREATE_OBLIGATION;
7666:
7672: ,x_tbl OUT NOCOPY temp_tbl_type
7673: ,x_return_status IN OUT NOCOPY VARCHAR2
7674: )
7675: IS
7676: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7677: l_index BINARY_INTEGER;
7678: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
7679: l_landlord_service_id PN_LANDLORD_SERVICES_ALL.LANDLORD_SERVICE_ID%TYPE;
7680: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
7724: FROM pn_landlord_services_all
7725: WHERE landlord_service_id = p_landlord_service_id;
7726: lcu_oblg_rec c_oblg%ROWTYPE;
7727: BEGIN
7728: l_return_status := fnd_api.g_ret_sts_success ;
7729:
7730: pvt_debug(g_pkg_name||'-Inside VALIDATE_OBLIGATION_FOR_UPDATE',3);
7731: for l_index in p_obligation_tbl.FIRST..p_obligation_tbl.LAST LOOP
7732: BEGIN
7738: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7739: fnd_message.set_token ('API_NAME', l_api_name);
7740: fnd_message.set_token ('NULL_PARAM', 'OBLIATION_ID NULL');
7741: fnd_msg_pub.ADD;
7742: RAISE fnd_api.g_exc_error;
7743: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:landlord_service_id IS NULL',3);
7744: ELSE
7745: l_tbl_flag := 2;
7746: l_lookup_code := NULL;
7785: , p_lease_comm_date => p_obligation_tbl(l_index).start_date
7786: , p_lease_term_date => p_obligation_tbl(l_index).end_date
7787: , x_return_status => x_return_status
7788: );
7789: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7790: l_tbl_flag := 0;
7791: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
7792: fnd_message.set_token ('COMMENCEMENT_DATE',get_miss_date_decode(p_obligation_tbl(l_index).start_date));
7793: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_obligation_tbl(l_index).end_date));
7791: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
7792: fnd_message.set_token ('COMMENCEMENT_DATE',get_miss_date_decode(p_obligation_tbl(l_index).start_date));
7793: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_obligation_tbl(l_index).end_date));
7794: fnd_msg_pub.ADD;
7795: RAISE fnd_api.g_exc_error;
7796: END IF;
7797: ELSE
7798: p_obligation_tbl(l_index).start_date := lcu_oblg_rec.start_date;
7799: p_obligation_tbl(l_index).end_date := lcu_oblg_rec.end_date;
7811: PN_LEASE_UTILS.VALIDATE_COMPANY_ID ( p_company_name => p_obligation_tbl(l_index).company_name
7812: , x_company_id => p_obligation_tbl(l_index).company_id
7813: , x_return_status => x_return_status
7814: );
7815: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7816: RAISE fnd_api.g_exc_error;
7817: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7818: RAISE fnd_api.g_exc_unexpected_error;
7819: END IF;
7812: , x_company_id => p_obligation_tbl(l_index).company_id
7813: , x_return_status => x_return_status
7814: );
7815: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7816: RAISE fnd_api.g_exc_error;
7817: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7818: RAISE fnd_api.g_exc_unexpected_error;
7819: END IF;
7820: ELSIF (p_obligation_tbl(l_index).company_name IS NULL OR p_obligation_tbl(l_index).company_id IS NULL) THEN
7813: , x_return_status => x_return_status
7814: );
7815: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7816: RAISE fnd_api.g_exc_error;
7817: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7818: RAISE fnd_api.g_exc_unexpected_error;
7819: END IF;
7820: ELSIF (p_obligation_tbl(l_index).company_name IS NULL OR p_obligation_tbl(l_index).company_id IS NULL) THEN
7821: p_obligation_tbl(l_index).company_id := NULL;
7814: );
7815: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7816: RAISE fnd_api.g_exc_error;
7817: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7818: RAISE fnd_api.g_exc_unexpected_error;
7819: END IF;
7820: ELSIF (p_obligation_tbl(l_index).company_name IS NULL OR p_obligation_tbl(l_index).company_id IS NULL) THEN
7821: p_obligation_tbl(l_index).company_id := NULL;
7822: ELSE
7846: , x_return_status => x_return_status
7847: , x_lookup_type_code => p_obligation_tbl(l_index).service_type_lookup_code
7848: );
7849: ------------------dbms_output.put_line('In Resp:1'||x_return_status);
7850: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7851: --l_error_flag:='Y';
7852: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7853: fnd_message.set_token ('LOOKUP_TYPE', l_pn_landlord_service_type);
7854: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7853: fnd_message.set_token ('LOOKUP_TYPE', l_pn_landlord_service_type);
7854: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7855: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).service_type_lookup_code));
7856: fnd_msg_pub.ADD;
7857: RAISE fnd_api.g_exc_error;
7858: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7859: --l_error_flag:='Y';
7860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7861: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7854: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).service_type));
7855: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).service_type_lookup_code));
7856: fnd_msg_pub.ADD;
7857: RAISE fnd_api.g_exc_error;
7858: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7859: --l_error_flag:='Y';
7860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7861: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7862: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7860: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7861: fnd_message.set_token ('COLUMN', SUBSTR(l_param_service_type,3));
7862: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7863: fnd_msg_pub.ADD;
7864: RAISE fnd_api.g_exc_unexpected_error;
7865: END IF;
7866: ELSIF(p_obligation_tbl(l_index).service_type IS NULL OR p_obligation_tbl(l_index).service_type_lookup_code IS NULL) THEN
7867: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7868: fnd_message.set_token ('API_NAME', l_api_name);
7867: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
7868: fnd_message.set_token ('API_NAME', l_api_name);
7869: fnd_message.set_token ('NULL_PARAM', 'SERVICE_TYPE AND SERVICE_TYPE_LOOKUP_CODE CANNOT BE NULL');
7870: fnd_msg_pub.ADD;
7871: RAISE fnd_api.g_exc_error;
7872: ELSE
7873: p_obligation_tbl(l_index).service_type_lookup_code := lcu_oblg_rec.service_type_lookup_code;
7874: END IF;
7875:
7884: ,x_return_status => x_return_status
7885: ,x_lookup_type_code => p_obligation_tbl(l_index).responsibility_code
7886: );
7887: ----------------dbms_output.put_line('In Resp:123'||x_return_status);
7888: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7889: --l_error_flag:='Y';
7890: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7891: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_resp_type);
7892: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7891: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_resp_type);
7892: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7893: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).responsibility_code));
7894: fnd_msg_pub.ADD;
7895: RAISE fnd_api.g_exc_error;
7896: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7897: --l_error_flag:='Y';
7898: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7899: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7892: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).responsibility));
7893: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).responsibility_code));
7894: fnd_msg_pub.ADD;
7895: RAISE fnd_api.g_exc_error;
7896: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7897: --l_error_flag:='Y';
7898: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7899: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7900: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7898: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7899: fnd_message.set_token ('COLUMN', SUBSTR(l_param_responsibility,3));
7900: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7901: fnd_msg_pub.ADD;
7902: RAISE fnd_api.g_exc_unexpected_error;
7903: END IF;
7904: ELSIF(p_obligation_tbl(l_index).responsibility IS NULL OR p_obligation_tbl(l_index).responsibility_code IS NULL) THEN
7905: p_obligation_tbl(l_index).responsibility_code := NULL;
7906: ELSE
7918: , p_lookup_type => l_pn_obligation_fin_resp_type
7919: , x_return_status => x_return_status
7920: , x_lookup_type_code => p_obligation_tbl(l_index).financial_resp_party_code
7921: );
7922: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7923: --l_error_flag:='Y';
7924: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
7925: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_fin_resp_type);
7926: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7925: fnd_message.set_token ('LOOKUP_TYPE', l_pn_obligation_fin_resp_type);
7926: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7927: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party_code));
7928: fnd_msg_pub.ADD;
7929: RAISE fnd_api.g_exc_error;
7930: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7931: --l_error_flag:='Y';
7932: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7933: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7926: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party));
7927: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_obligation_tbl(l_index).financial_resp_party_code));
7928: fnd_msg_pub.ADD;
7929: RAISE fnd_api.g_exc_error;
7930: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7931: --l_error_flag:='Y';
7932: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7933: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7934: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7932: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
7933: fnd_message.set_token ('COLUMN', SUBSTR(l_param_financial_resp_party,3));
7934: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
7935: fnd_msg_pub.ADD;
7936: RAISE fnd_api.g_exc_unexpected_error;
7937: END IF;
7938: ELSIF(p_obligation_tbl(l_index).financial_resp_party IS NULL OR p_obligation_tbl(l_index).financial_resp_party_code IS NULL) THEN
7939: p_obligation_tbl(l_index).financial_resp_party_code := NULL;
7940: ELSE
8065: , p_resp_id => fnd_global.resp_id
8066: , p_return_status=> x_return_status
8067: );
8068: --------------------dbms_output.put_line('dff validated');
8069: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8070: l_tbl_flag := 0;
8071: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8072: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8073: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8071: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8072: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8073: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8074: fnd_msg_pub.ADD;
8075: RAISE fnd_api.g_exc_error;
8076: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8077: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8078: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8079: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8072: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8073: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8074: fnd_msg_pub.ADD;
8075: RAISE fnd_api.g_exc_error;
8076: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8077: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8078: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8079: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8080: fnd_msg_pub.ADD;
8077: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8078: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8079: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8080: fnd_msg_pub.ADD;
8081: RAISE fnd_api.g_exc_unexpected_error;
8082: END IF;
8083: -- END IF;
8084:
8085: CLOSE c_oblg;
8086: END IF;
8087: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8088: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8089: EXCEPTION
8090: WHEN fnd_api.g_exc_error THEN
8091: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8092: WHEN OTHERS THEN
8093: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8094: END;
8087: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8088: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8089: EXCEPTION
8090: WHEN fnd_api.g_exc_error THEN
8091: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8092: WHEN OTHERS THEN
8093: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8094: END;
8095: END loop;
8093: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8094: END;
8095: END loop;
8096: x_tbl := l_tbl;
8097: x_return_status := fnd_api.g_ret_sts_success;
8098: EXCEPTION
8099: WHEN fnd_api.g_exc_error THEN
8100: x_return_status := fnd_api.g_ret_sts_error;
8101: --------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
8095: END loop;
8096: x_tbl := l_tbl;
8097: x_return_status := fnd_api.g_ret_sts_success;
8098: EXCEPTION
8099: WHEN fnd_api.g_exc_error THEN
8100: x_return_status := fnd_api.g_ret_sts_error;
8101: --------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
8102: WHEN OTHERS THEN
8103: x_return_status := fnd_api.g_ret_sts_unexp_error;
8096: x_tbl := l_tbl;
8097: x_return_status := fnd_api.g_ret_sts_success;
8098: EXCEPTION
8099: WHEN fnd_api.g_exc_error THEN
8100: x_return_status := fnd_api.g_ret_sts_error;
8101: --------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
8102: WHEN OTHERS THEN
8103: x_return_status := fnd_api.g_ret_sts_unexp_error;
8104: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:OTHERS:EXCEPTION:'||SQLERRM,3);
8099: WHEN fnd_api.g_exc_error THEN
8100: x_return_status := fnd_api.g_ret_sts_error;
8101: --------------------dbms_output.put_line('OBLIGATION VALIDATION FAILED');
8102: WHEN OTHERS THEN
8103: x_return_status := fnd_api.g_ret_sts_unexp_error;
8104: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_UPDATE:OTHERS:EXCEPTION:'||SQLERRM,3);
8105: END VALIDATE_OBLIGATION_FOR_UPDATE;
8106:
8107: PROCEDURE OBLIGATION_UPDATE_ROW (p_obligation_tbl IN OUT NOCOPY lease_obligation_tbl_type
8111: ,p_tbl IN temp_tbl_type
8112: ,p_commit IN VARCHAR2
8113: )
8114: IS
8115: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8116: l_index BINARY_INTEGER;
8117: l_landlord_service_id pn_landlord_services_all.LANDLORD_SERVICE_ID%TYPE;
8118: l_err_obg_count NUMBER:=0;
8119:
8175: null;
8176: END;
8177: END IF;
8178: EXCEPTION
8179: WHEN fnd_api.g_exc_error THEN
8180: l_err_obg_count :=l_err_obg_count+1;
8181: WHEN OTHERS THEN
8182: l_err_obg_count :=l_err_obg_count+1;
8183: END;
8184:
8185: END LOOP;
8186:
8187: IF (l_err_obg_count = 0) THEN
8188: x_return_status:= fnd_api.g_ret_sts_success;
8189: ELSE
8190: x_return_status:= fnd_api.g_ret_sts_error;
8191: END IF;
8192:
8186:
8187: IF (l_err_obg_count = 0) THEN
8188: x_return_status:= fnd_api.g_ret_sts_success;
8189: ELSE
8190: x_return_status:= fnd_api.g_ret_sts_error;
8191: END IF;
8192:
8193:
8194: EXCEPTION
8192:
8193:
8194: EXCEPTION
8195: WHEN OTHERS THEN
8196: x_return_status := fnd_api.g_ret_sts_unexp_error;
8197: ----------------------dbms_output.put_line ('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
8198: pvt_debug(g_pkg_name||'-OBLIGATION_UPDATE_ROW:Exception:'||SQLERRM,3);
8199: END OBLIGATION_UPDATE_ROW;
8200:
8208: -- , x_msg_count OUT NUMBER
8209: -- , x_msg_data OUT VARCHAR2
8210: )
8211: IS
8212: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
8213: l_msg_count NUMBER ;
8214: l_msg_data VARCHAR2(2000) ;
8215: x_out_tbl temp_tbl_type;
8216:
8220: n NUMBER;
8221: l_err_obligation_cnt NUMBER:=0;
8222:
8223: BEGIN
8224: x_return_status := fnd_api.g_ret_sts_success;
8225: ----------------------dbms_output.put_line('In Obligation:1');--Rupak
8226: m:=1;
8227: n:=1;
8228: FOR i IN 1..p_obligation_tbl.COUNT
8247: ,x_tbl => x_out_tbl
8248: ,x_return_status => x_return_status
8249: );
8250: ----------------------dbms_output.put_line('In Obligation:2');--Rupak
8251: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
8252: ----------------------dbms_output.put_line('In Obligation:3');--Rupak
8253: OBLIGATION_UPDATE_ROW(
8254: p_obligation_tbl => p_obligation_tbl_update
8255: , p_lease_id => p_lease_id
8258: , p_tbl => x_out_tbl
8259: , p_commit => p_commit
8260: );
8261: pvt_debug(g_pkg_name||'-UPDATE_OBLIGATION:RETURN STATUS:'||x_return_status,3);
8262: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8263: --x_return_status := fnd_api.g_ret_sts_unexp_error;
8264: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8265: ELSE
8266: --x_return_status := fnd_api.g_ret_sts_error;
8259: , p_commit => p_commit
8260: );
8261: pvt_debug(g_pkg_name||'-UPDATE_OBLIGATION:RETURN STATUS:'||x_return_status,3);
8262: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8263: --x_return_status := fnd_api.g_ret_sts_unexp_error;
8264: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8265: ELSE
8266: --x_return_status := fnd_api.g_ret_sts_error;
8267: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8262: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8263: --x_return_status := fnd_api.g_ret_sts_unexp_error;
8264: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8265: ELSE
8266: --x_return_status := fnd_api.g_ret_sts_error;
8267: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8268: END IF;
8269: END IF;
8270:
8275: ,p_lease_change_id => p_lease_change_id
8276: ,x_tbl => x_out_tbl
8277: ,x_return_status => x_return_status
8278: );
8279: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
8280: OBLIGATION_INSERT_ROW(
8281: p_obligation_tbl => p_obligation_tbl_create
8282: ,p_lease_id => p_lease_id
8283: ,p_lease_change_id => p_lease_change_id
8284: ,x_return_status => x_return_status
8285: ,p_tbl => x_out_tbl
8286: ,p_commit => p_commit
8287: );
8288: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8289: --RAISE fnd_api.g_exc_error;
8290: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8291: END IF;
8292: ELSE
8285: ,p_tbl => x_out_tbl
8286: ,p_commit => p_commit
8287: );
8288: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8289: --RAISE fnd_api.g_exc_error;
8290: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8291: END IF;
8292: ELSE
8293: --RAISE fnd_api.g_exc_error;
8289: --RAISE fnd_api.g_exc_error;
8290: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8291: END IF;
8292: ELSE
8293: --RAISE fnd_api.g_exc_error;
8294: l_err_obligation_cnt := l_err_obligation_cnt + 1;
8295: END IF;
8296:
8297: END IF;
8295: END IF;
8296:
8297: END IF;
8298: IF(l_err_obligation_cnt = 0) THEN
8299: x_return_status := fnd_api.g_ret_sts_success;
8300: ELSE
8301: x_return_status := fnd_api.g_ret_sts_error;
8302: END IF;
8303:
8297: END IF;
8298: IF(l_err_obligation_cnt = 0) THEN
8299: x_return_status := fnd_api.g_ret_sts_success;
8300: ELSE
8301: x_return_status := fnd_api.g_ret_sts_error;
8302: END IF;
8303:
8304: EXCEPTION
8305: WHEN fnd_api.g_exc_unexpected_error THEN
8301: x_return_status := fnd_api.g_ret_sts_error;
8302: END IF;
8303:
8304: EXCEPTION
8305: WHEN fnd_api.g_exc_unexpected_error THEN
8306: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8307: WHEN OTHERS THEN
8308: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8309: END UPDATE_OBLIGATION;
8302: END IF;
8303:
8304: EXCEPTION
8305: WHEN fnd_api.g_exc_unexpected_error THEN
8306: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8307: WHEN OTHERS THEN
8308: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8309: END UPDATE_OBLIGATION;
8310:
8304: EXCEPTION
8305: WHEN fnd_api.g_exc_unexpected_error THEN
8306: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8307: WHEN OTHERS THEN
8308: x_return_status:= fnd_api.g_ret_sts_unexp_error;
8309: END UPDATE_OBLIGATION;
8310:
8311: PROCEDURE VALIDATE_MILESTONE_FOR_CREATE(
8312: p_milestone_tbl IN OUT NOCOPY lease_milestone_tbl_type
8314: ,x_return_status OUT NOCOPY VARCHAR2
8315:
8316:
8317: )IS
8318: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8319: l_index BINARY_INTEGER;
8320: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
8321: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
8322: l_user_id NUMBER;
8341: , p_lookup_type => l_pn_milestones_type
8342: , x_return_status => x_return_status
8343: , x_lookup_type_code => p_milestone_tbl(l_index).milestone_type_code
8344: );
8345: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8346: --l_error_flag:='Y';
8347: l_tbl_flag := 0;
8348: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
8349: fnd_message.set_token ('LOOKUP_TYPE', l_pn_milestones_type);
8349: fnd_message.set_token ('LOOKUP_TYPE', l_pn_milestones_type);
8350: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type));
8351: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type_code));
8352: fnd_msg_pub.ADD;
8353: RAISE fnd_api.g_exc_error;
8354: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8355: --l_error_flag:='Y';
8356: l_tbl_flag := 0;
8357: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8350: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type));
8351: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type_code));
8352: fnd_msg_pub.ADD;
8353: RAISE fnd_api.g_exc_error;
8354: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8355: --l_error_flag:='Y';
8356: l_tbl_flag := 0;
8357: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8358: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_type,3));
8357: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8358: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_type,3));
8359: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
8360: fnd_msg_pub.ADD;
8361: RAISE fnd_api.g_exc_unexpected_error;
8362: END IF;
8363: ELSE
8364: l_tbl_flag := 0;
8365: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8365: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8366: fnd_message.set_token ('API_NAME', l_api_name);
8367: fnd_message.set_token ('NULL_PARAM', l_pn_milestones_type);
8368: fnd_msg_pub.ADD;
8369: RAISE fnd_api.g_exc_error;
8370: END IF;
8371:
8372: ----------------------------------------------------------------------------------------------------------------------------------------------
8373:
8377: , p_user_name => p_milestone_tbl(l_index).user_name
8378: , x_user_id => p_milestone_tbl(l_index).user_id
8379: , x_return_status => x_return_status
8380: );
8381: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8382: --l_error_flag:='Y';
8383: l_tbl_flag := 0;
8384: fnd_message.set_name ('PN', 'PN_INVALID_USER');
8385: fnd_message.set_token ('USER_NAME', p_milestone_tbl(l_index).user_name);
8384: fnd_message.set_name ('PN', 'PN_INVALID_USER');
8385: fnd_message.set_token ('USER_NAME', p_milestone_tbl(l_index).user_name);
8386: fnd_message.set_token ('USER_ID', p_milestone_tbl(l_index).user_id);
8387: fnd_msg_pub.ADD;
8388: RAISE fnd_api.g_exc_error;
8389: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8390: --l_error_flag:='Y';
8391: l_tbl_flag := 0;
8392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8385: fnd_message.set_token ('USER_NAME', p_milestone_tbl(l_index).user_name);
8386: fnd_message.set_token ('USER_ID', p_milestone_tbl(l_index).user_id);
8387: fnd_msg_pub.ADD;
8388: RAISE fnd_api.g_exc_error;
8389: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8390: --l_error_flag:='Y';
8391: l_tbl_flag := 0;
8392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8393: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_user_name,3));
8392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8393: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_user_name,3));
8394: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
8395: fnd_msg_pub.ADD;
8396: RAISE fnd_api.g_exc_unexpected_error;
8397: END IF;
8398: ELSE
8399: l_tbl_flag := 0;
8400: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8400: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8401: fnd_message.set_token ('API_NAME', l_api_name);
8402: fnd_message.set_token ('NULL_PARAM', 'User Name or User ID NULL');
8403: fnd_msg_pub.ADD;
8404: RAISE fnd_api.g_exc_error;
8405: END IF;
8406:
8407:
8408: ----------------------------------------------------------------------------------------------------------------------------------------------------------
8411: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8412: fnd_message.set_token ('API_NAME', l_api_name);
8413: fnd_message.set_token ('NULL_PARAM', 'Action Due Date:NULL');
8414: fnd_msg_pub.ADD;
8415: RAISE fnd_api.g_exc_error;
8416: /*PN_LEASE_UTILS.ADD_NULL_PARAMETER_MSG (p_token_apiname => l_api_name
8417: ,p_token_nullparam =>'ACTION DUE DATE' );*/
8418: END IF;
8419: ------------------------------------------------------------------------------------------------------------------------------------------------------------
8418: END IF;
8419: ------------------------------------------------------------------------------------------------------------------------------------------------------------
8420:
8421: -- dff validations
8422: IF NOT ( (p_milestone_tbl(l_index).attribute_category = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8419: ------------------------------------------------------------------------------------------------------------------------------------------------------------
8420:
8421: -- dff validations
8422: IF NOT ( (p_milestone_tbl(l_index).attribute_category = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8420:
8421: -- dff validations
8422: IF NOT ( (p_milestone_tbl(l_index).attribute_category = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8421: -- dff validations
8422: IF NOT ( (p_milestone_tbl(l_index).attribute_category = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8422: IF NOT ( (p_milestone_tbl(l_index).attribute_category = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8423: AND (p_milestone_tbl(l_index).attribute1 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8424: AND (p_milestone_tbl(l_index).attribute2 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8425: AND (p_milestone_tbl(l_index).attribute3 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8426: AND (p_milestone_tbl(l_index).attribute4 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8427: AND (p_milestone_tbl(l_index).attribute5 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8428: AND (p_milestone_tbl(l_index).attribute6 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8429: AND (p_milestone_tbl(l_index).attribute7 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8437: AND (p_milestone_tbl(l_index).attribute15 = fnd_api.g_null_char)
8430: AND (p_milestone_tbl(l_index).attribute8 = fnd_api.g_null_char)
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8437: AND (p_milestone_tbl(l_index).attribute15 = fnd_api.g_null_char)
8438: ) THEN
8431: AND (p_milestone_tbl(l_index).attribute9 = fnd_api.g_null_char)
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8437: AND (p_milestone_tbl(l_index).attribute15 = fnd_api.g_null_char)
8438: ) THEN
8439: PN_LEASE_UTILS.validate_desc_flex (
8432: AND (p_milestone_tbl(l_index).attribute10 = fnd_api.g_null_char)
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8437: AND (p_milestone_tbl(l_index).attribute15 = fnd_api.g_null_char)
8438: ) THEN
8439: PN_LEASE_UTILS.validate_desc_flex (
8440: p_api_name => 'PN_API'--l_api_name_full
8433: AND (p_milestone_tbl(l_index).attribute11 = fnd_api.g_null_char)
8434: AND (p_milestone_tbl(l_index).attribute12 = fnd_api.g_null_char)
8435: AND (p_milestone_tbl(l_index).attribute13 = fnd_api.g_null_char)
8436: AND (p_milestone_tbl(l_index).attribute14 = fnd_api.g_null_char)
8437: AND (p_milestone_tbl(l_index).attribute15 = fnd_api.g_null_char)
8438: ) THEN
8439: PN_LEASE_UTILS.validate_desc_flex (
8440: p_api_name => 'PN_API'--l_api_name_full
8441: , p_application_short_name => 'PN'
8459: , p_resp_appl_id => fnd_global.RESP_APPL_ID
8460: , p_resp_id => fnd_global.RESP_ID
8461: , p_return_status => x_return_status
8462: );
8463: IF (x_return_status = fnd_api.g_ret_sts_error)
8464: THEN
8465: l_tbl_flag := 0;
8466: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8467: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8466: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8467: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8468: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8469: fnd_msg_pub.ADD;
8470: RAISE fnd_api.g_exc_error;
8471: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8472: THEN
8473: l_tbl_flag := 0;
8474: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8467: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8468: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8469: fnd_msg_pub.ADD;
8470: RAISE fnd_api.g_exc_error;
8471: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8472: THEN
8473: l_tbl_flag := 0;
8474: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8475: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8474: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8475: fnd_message.set_token ('COLUMN', 'PN_LANDLORD_SERVICES_DESC_FIELDS');
8476: fnd_message.set_token ('P_TEXT', 'PN_LANDLORD_SERVICES'|| '-'|| SQLERRM);
8477: fnd_msg_pub.ADD;
8478: RAISE fnd_api.g_exc_unexpected_error;
8479: END IF;
8480: END IF;
8481: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8482: EXCEPTION
8479: END IF;
8480: END IF;
8481: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8482: EXCEPTION
8483: WHEN fnd_api.g_exc_error THEN
8484: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
8485: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8486: WHEN OTHERS THEN
8487: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
8480: END IF;
8481: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8482: EXCEPTION
8483: WHEN fnd_api.g_exc_error THEN
8484: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
8485: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8486: WHEN OTHERS THEN
8487: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
8488: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8481: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8482: EXCEPTION
8483: WHEN fnd_api.g_exc_error THEN
8484: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
8485: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8486: WHEN OTHERS THEN
8487: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
8488: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8489: END;
8489: END;
8490: ----------------------dbms_output.put_line('Private Contacts:13');--Rupak
8491: END LOOP;
8492: x_tbl := l_tbl;
8493: x_return_status := fnd_api.g_ret_sts_success;
8494:
8495: EXCEPTION
8496: WHEN OTHERS THEN
8497: x_return_status := fnd_api.g_ret_sts_unexp_error;
8493: x_return_status := fnd_api.g_ret_sts_success;
8494:
8495: EXCEPTION
8496: WHEN OTHERS THEN
8497: x_return_status := fnd_api.g_ret_sts_unexp_error;
8498: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8499: fnd_message.set_token ('COLUMN', SUBSTR('MILE STONE UNEXP',3));
8500: fnd_message.set_token ('P_TEXT', 'VALIDATE_MILESTONE_FOR_CREATE'|| '-'|| SQLERRM);
8501: fnd_msg_pub.ADD;
8573: p_milestone_tbl(l_index).lease_milestone_id := l_milestone_id;
8574: END IF;
8575: END loop;
8576:
8577: x_return_status := fnd_api.g_ret_sts_success;
8578:
8579: EXCEPTION
8580: WHEN OTHERS THEN
8581: x_return_status := fnd_api.g_ret_sts_unexp_error;
8577: x_return_status := fnd_api.g_ret_sts_success;
8578:
8579: EXCEPTION
8580: WHEN OTHERS THEN
8581: x_return_status := fnd_api.g_ret_sts_unexp_error;
8582: ----------------------dbms_output.put_line('INSERT PROCEDURE FAILED FOR MILESTONE CREATION') ;
8583: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
8584: pvt_debug(g_pkg_name||'-MILESTONE_INSERT_ROW:Exception'||SQLERRM,3);
8585: END MILESTONE_INSERT_ROW;
8597: -- , x_msg_count OUT NUMBER
8598: -- , x_msg_data OUT VARCHAR2
8599: )
8600: IS
8601: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success ;
8602: l_msg_count NUMBER ;
8603: l_msg_data VARCHAR2(2000) ;
8604: x_out_tbl temp_tbl_type ;
8605: BEGIN
8608: ,x_tbl => x_out_tbl
8609: ,x_return_status => l_return_status
8610: );
8611: pvt_debug(g_pkg_name||'-Inside CREATE_MILESTONE',3);
8612: IF NVL(p_validate,'F') <> 'T' and l_return_status = fnd_api.g_ret_sts_success THEN
8613: ----------------------dbms_output.put_line('B4 MileStone insert');--Rupak
8614: MILESTONE_INSERT_ROW(p_milestone_tbl => p_milestone_tbl
8615: ,p_lease_id => p_lease_id
8616: ,p_lease_change_id => p_lease_change_id
8621: ,p_tbl => x_out_tbl
8622: ,p_commit => p_commit
8623: );
8624: ----------------------dbms_output.put_line('CREATE_MILESTONE:after calling MILESTONE_INSERT_ROW');
8625: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) then
8626: RAISE fnd_api.g_exc_unexpected_error;
8627: END IF;
8628:
8629: x_return_status := l_return_status;
8622: ,p_commit => p_commit
8623: );
8624: ----------------------dbms_output.put_line('CREATE_MILESTONE:after calling MILESTONE_INSERT_ROW');
8625: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) then
8626: RAISE fnd_api.g_exc_unexpected_error;
8627: END IF;
8628:
8629: x_return_status := l_return_status;
8630: EXCEPTION
8628:
8629: x_return_status := l_return_status;
8630: EXCEPTION
8631: WHEN OTHERS THEN
8632: x_return_status := fnd_api.g_ret_sts_unexp_error;
8633: ----------------------dbms_output.put_line('CREATION OF MILESTONES FAILED');--Rupak
8634: pvt_debug(g_pkg_name||'-CREATE_MILESTONE:Exception'||SQLERRM,3);
8635: END CREATE_MILESTONE;
8636:
8647: ,x_return_status IN OUT NOCOPY VARCHAR2
8648: ,p_commit IN VARCHAR2
8649: )
8650: IS
8651: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8652: l_index BINARY_INTEGER;
8653: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
8654: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
8655: l_user_id PN_LEASE_MILESTONES_ALL.USER_ID%TYPE;
8699:
8700: l_error_count_err NUMBER :=0;
8701: l_error_count_uerr NUMBER :=0;
8702: BEGIN
8703: x_return_status := fnd_api.g_ret_sts_success ;
8704:
8705: For l_index in p_milestone_tbl.FIRST..p_milestone_tbl.LAST LOOP
8706: BEGIN
8707: l_tbl_index := l_index;
8711: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
8712: fnd_message.set_token ('API_NAME', l_api_name);
8713: fnd_message.set_token ('NULL_PARAM', 'MILE STONE ID : NULL');
8714: fnd_msg_pub.ADD;
8715: RAISE fnd_api.g_exc_error;
8716: ELSE
8717: -----------------------dbms_output.put_line('In Mile Steone:1');
8718: pvt_debug(g_pkg_name||'-Inside VALIDATE_MILESTONE_FOR_UPDATE',3);
8719: l_tbl_flag := 2;
8755: , x_lookup_type_code => p_milestone_tbl(l_index).milestone_type_code
8756: );
8757: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_UPDATE:MILESTONE TYPE Code'||p_milestone_tbl(l_index).milestone_type_code,3);
8758: ----------------------dbms_output.put_line (' MILESTONE TYPE :1'||p_milestone_tbl(l_index).milestone_type_code);--Rupak
8759: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8760: -----------------------dbms_output.put_line (' MILESTONE TYPE :2');--Rupak
8761: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
8762: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_milestones_type));
8763: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type));
8762: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_pn_milestones_type));
8763: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type));
8764: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type_code));
8765: fnd_msg_pub.ADD;
8766: RAISE fnd_api.g_exc_error;
8767: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8768: -- --------------------dbms_output.put_line (' MILESTONE TYPE :3');--Rupak
8769: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8770: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_type,3));
8763: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type));
8764: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_milestone_tbl(l_index).milestone_type_code));
8765: fnd_msg_pub.ADD;
8766: RAISE fnd_api.g_exc_error;
8767: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8768: -- --------------------dbms_output.put_line (' MILESTONE TYPE :3');--Rupak
8769: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8770: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_type,3));
8771: fnd_message.set_token ('P_TEXT', l_api_name|| '-'|| SQLERRM);
8769: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8770: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_type,3));
8771: fnd_message.set_token ('P_TEXT', l_api_name|| '-'|| SQLERRM);
8772: fnd_msg_pub.ADD;
8773: RAISE fnd_api.g_exc_unexpected_error;
8774: END IF;
8775: ELSE
8776: p_milestone_tbl(l_index).milestone_type_code := lcu_milestone_rec.milestone_type_code;
8777: END IF;
8788: , x_user_id => p_milestone_tbl(l_index).user_id
8789: , x_return_status => x_return_status
8790: );
8791: -- --------------------dbms_output.put_line('In MIle Stone:p_milestone_tbl(l_index).user_id'||p_milestone_tbl(l_index).user_id);
8792: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8793: --l_error_flag:='Y';
8794: l_tbl_flag := 0;
8795: ----------------------dbms_output.put_line('In MIle Stone:1');
8796: fnd_message.set_name ('PN', 'PN_INVALID_USER');
8796: fnd_message.set_name ('PN', 'PN_INVALID_USER');
8797: fnd_message.set_token ('USER_NAME', get_miss_char_decode(p_milestone_tbl(l_index).user_name));
8798: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_milestone_tbl(l_index).user_id));
8799: fnd_msg_pub.ADD;
8800: RAISE fnd_api.g_exc_error;
8801: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8802: --l_error_flag:='Y';
8803: l_tbl_flag := 0;
8804: ----------------------dbms_output.put_line('In MIle Stone:2');
8797: fnd_message.set_token ('USER_NAME', get_miss_char_decode(p_milestone_tbl(l_index).user_name));
8798: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_milestone_tbl(l_index).user_id));
8799: fnd_msg_pub.ADD;
8800: RAISE fnd_api.g_exc_error;
8801: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8802: --l_error_flag:='Y';
8803: l_tbl_flag := 0;
8804: ----------------------dbms_output.put_line('In MIle Stone:2');
8805: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8805: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
8806: fnd_message.set_token ('COLUMN', SUBSTR(l_param_milestone_user_name,3));
8807: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
8808: fnd_msg_pub.ADD;
8809: RAISE fnd_api.g_exc_unexpected_error;
8810: END IF;
8811: ELSE
8812: p_milestone_tbl(l_index).user_id := lcu_milestone_rec.user_id;
8813: END IF;
8937: , p_resp_id => fnd_global.resp_id
8938: , p_return_status=> x_return_status
8939: );
8940: ----------------------dbms_output.put_line('dff validatedMILESTONES');--Rupak
8941: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8942: l_tbl_flag := 0;
8943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8944: THEN
8945: RAISE fnd_api.g_exc_unexpected_error;
8939: );
8940: ----------------------dbms_output.put_line('dff validatedMILESTONES');--Rupak
8941: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8942: l_tbl_flag := 0;
8943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8944: THEN
8945: RAISE fnd_api.g_exc_unexpected_error;
8946: END IF;
8947: END IF;
8941: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8942: l_tbl_flag := 0;
8943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8944: THEN
8945: RAISE fnd_api.g_exc_unexpected_error;
8946: END IF;
8947: END IF;
8948: CLOSE c_milestone;
8949: ----------------------dbms_output.put_line ('VALIDATIONS FOR MILESTONES UPDATE COMPLETED');
8949: ----------------------dbms_output.put_line ('VALIDATIONS FOR MILESTONES UPDATE COMPLETED');
8950: END IF;
8951: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8952: EXCEPTION
8953: WHEN fnd_api.g_exc_error THEN
8954: l_error_count_err := l_error_count_err+1;
8955: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8956: WHEN OTHERS THEN
8957: l_error_count_uerr := l_error_count_uerr+1;
8951: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
8952: EXCEPTION
8953: WHEN fnd_api.g_exc_error THEN
8954: l_error_count_err := l_error_count_err+1;
8955: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
8956: WHEN OTHERS THEN
8957: l_error_count_uerr := l_error_count_uerr+1;
8958: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
8959: END;
8959: END;
8960: END LOOP;
8961: ----------------------dbms_output.put_line('Count Mile Stone errors'||l_error_count_err||l_error_count_uerr);--Rupak
8962: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
8963: x_return_status := fnd_api.g_ret_sts_error;
8964: ELSE
8965: x_return_status := fnd_api.g_ret_sts_success;
8966: ----------------------dbms_output.put_line('Count Mile Stone errors:1'||x_return_status);--Rupak
8967: END IF;
8961: ----------------------dbms_output.put_line('Count Mile Stone errors'||l_error_count_err||l_error_count_uerr);--Rupak
8962: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
8963: x_return_status := fnd_api.g_ret_sts_error;
8964: ELSE
8965: x_return_status := fnd_api.g_ret_sts_success;
8966: ----------------------dbms_output.put_line('Count Mile Stone errors:1'||x_return_status);--Rupak
8967: END IF;
8968: x_tbl := l_tbl;
8969: EXCEPTION
8967: END IF;
8968: x_tbl := l_tbl;
8969: EXCEPTION
8970: WHEN OTHERS THEN
8971: x_return_status := fnd_api.g_ret_sts_unexp_error;
8972: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);--Rupak
8973: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_UPDATE:Exception:'||SQLERRM,3);
8974: END VALIDATE_MILESTONE_FOR_UPDATE;
8975:
8985: ,p_tbl IN temp_tbl_type
8986: ,p_commit IN VARCHAR2
8987: )
8988: IS
8989: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8990: l_index BINARY_INTEGER;
8991: BEGIN
8992:
8993:
9046: pvt_debug(g_pkg_name||'-MILESTONE_UPDATE_ROW:PN_LEASE_MILESTONES_PKG.UPDATE_ROW:Exception'||SQLERRM,3);
9047: END;
9048: END IF;
9049: END loop;
9050: x_return_status := fnd_api.g_ret_sts_success;
9051: EXCEPTION
9052: WHEN OTHERS THEN
9053: x_return_status := fnd_api.g_ret_sts_unexp_error;
9054: ----------------------dbms_output.put_line ('RECORD NOT UPDATED FOR MILESTONES');
9049: END loop;
9050: x_return_status := fnd_api.g_ret_sts_success;
9051: EXCEPTION
9052: WHEN OTHERS THEN
9053: x_return_status := fnd_api.g_ret_sts_unexp_error;
9054: ----------------------dbms_output.put_line ('RECORD NOT UPDATED FOR MILESTONES');
9055: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
9056: pvt_debug(g_pkg_name||'-MILESTONE_UPDATE_ROW:Exception'||SQLERRM,3);
9057: END MILESTONE_UPDATE_ROW;
9069: -- , x_msg_count OUT NUMBER
9070: -- , x_msg_data OUT VARCHAR2
9071: )
9072: IS
9073: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
9074: l_msg_count NUMBER ;
9075: l_msg_data VARCHAR2(2000) ;
9076: x_out_tbl temp_tbl_type;
9077: BEGIN
9088: ,p_commit => p_commit
9089: );
9090: ----------------------dbms_output.put_line ('IN UPDATE PROCEDURE OF MILESTONE AFTER VALIDATE_MILESTONE_FOR_UPDATE'||x_return_status);--Rupak
9091: pvt_debug(g_pkg_name||'-UPDATE_MILESTONE:VALIDATE_MILESTONE_FOR_UPDATE Return Status:'||l_return_status,3);
9092: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
9093:
9094: ----------------------dbms_output.put_line ('CALLING UPDATE PROCEDURE OF MILESTONE');--Rupak
9095: pvt_debug(g_pkg_name||'-UPDATE_MILESTONE:Calling MILESTONE_UPDATE_ROW:',3);
9096: MILESTONE_UPDATE_ROW(
9115: ,x_return_status => l_return_status
9116: ,p_tbl => x_out_tbl
9117: ,p_commit => p_commit
9118: );*/
9119: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9120: RAISE fnd_api.g_exc_unexpected_error;
9121: ELSE
9122: RAISE fnd_api.g_exc_error;
9123: END IF;
9116: ,p_tbl => x_out_tbl
9117: ,p_commit => p_commit
9118: );*/
9119: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9120: RAISE fnd_api.g_exc_unexpected_error;
9121: ELSE
9122: RAISE fnd_api.g_exc_error;
9123: END IF;
9124:
9118: );*/
9119: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9120: RAISE fnd_api.g_exc_unexpected_error;
9121: ELSE
9122: RAISE fnd_api.g_exc_error;
9123: END IF;
9124:
9125: EXCEPTION
9126: WHEN fnd_api.g_exc_error THEN
9122: RAISE fnd_api.g_exc_error;
9123: END IF;
9124:
9125: EXCEPTION
9126: WHEN fnd_api.g_exc_error THEN
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: WHEN fnd_api.g_exc_unexpected_error THEN
9129: x_return_status := fnd_api.g_ret_sts_unexp_error;
9130: WHEN OTHERS THEN
9123: END IF;
9124:
9125: EXCEPTION
9126: WHEN fnd_api.g_exc_error THEN
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: WHEN fnd_api.g_exc_unexpected_error THEN
9129: x_return_status := fnd_api.g_ret_sts_unexp_error;
9130: WHEN OTHERS THEN
9131: x_return_status := fnd_api.g_ret_sts_unexp_error;
9124:
9125: EXCEPTION
9126: WHEN fnd_api.g_exc_error THEN
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: WHEN fnd_api.g_exc_unexpected_error THEN
9129: x_return_status := fnd_api.g_ret_sts_unexp_error;
9130: WHEN OTHERS THEN
9131: x_return_status := fnd_api.g_ret_sts_unexp_error;
9132: ----------------------dbms_output.put_line('UPDATE OF MILESTONE FAILED');
9125: EXCEPTION
9126: WHEN fnd_api.g_exc_error THEN
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: WHEN fnd_api.g_exc_unexpected_error THEN
9129: x_return_status := fnd_api.g_ret_sts_unexp_error;
9130: WHEN OTHERS THEN
9131: x_return_status := fnd_api.g_ret_sts_unexp_error;
9132: ----------------------dbms_output.put_line('UPDATE OF MILESTONE FAILED');
9133: pvt_debug(g_pkg_name||'-UPDATE_MILESTONE:Exception'||SQLERRM,3);
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: WHEN fnd_api.g_exc_unexpected_error THEN
9129: x_return_status := fnd_api.g_ret_sts_unexp_error;
9130: WHEN OTHERS THEN
9131: x_return_status := fnd_api.g_ret_sts_unexp_error;
9132: ----------------------dbms_output.put_line('UPDATE OF MILESTONE FAILED');
9133: pvt_debug(g_pkg_name||'-UPDATE_MILESTONE:Exception'||SQLERRM,3);
9134: END UPDATE_MILESTONE;
9135:
9137: PROCEDURE VALIDATE_INSURANCE_FOR_CREATE (p_insurance_tbl IN OUT NOCOPY lease_insurance_tbl_type
9138: ,x_tbl OUT NOCOPY temp_tbl_type
9139: ,x_return_status IN OUT NOCOPY VARCHAR2
9140: )IS
9141: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9142: l_index BINARY_INTEGER;
9143: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
9144: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
9145: l_cur_id NUMBER;
9159: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9160: fnd_message.set_token ('API_NAME', l_api_name);
9161: fnd_message.set_token ('NULL_PARAM', 'POLICY NUMBER IS NULL');
9162: fnd_msg_pub.ADD;
9163: RAISE fnd_api.g_exc_error;
9164: END IF;
9165: IF (p_insurance_tbl(l_index).insurer_name IS NULL OR p_insurance_tbl(l_index).insurer_name = pn_lease_utils.g_pn_miss_char) THEN
9166: p_insurance_tbl(l_index).insurer_name := NULL;
9167: END IF;
9185: , p_lookup_type => l_pn_status
9186: , x_return_status => x_return_status
9187: , x_lookup_type_code => p_insurance_tbl(l_index).status_code
9188: );
9189: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9190: --l_error_flag:='Y';
9191: l_tbl_flag := 0;
9192: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
9193: fnd_message.set_token ('LOOKUP_TYPE', l_pn_status);
9193: fnd_message.set_token ('LOOKUP_TYPE', l_pn_status);
9194: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).status));
9195: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).status_code));
9196: fnd_msg_pub.ADD;
9197: RAISE fnd_api.g_exc_error;
9198: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9199: --l_error_flag:='Y';
9200: l_tbl_flag := 0;
9201: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9194: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).status));
9195: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).status_code));
9196: fnd_msg_pub.ADD;
9197: RAISE fnd_api.g_exc_error;
9198: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9199: --l_error_flag:='Y';
9200: l_tbl_flag := 0;
9201: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9202: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9201: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9202: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9203: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9204: fnd_msg_pub.ADD;
9205: RAISE fnd_api.g_exc_unexpected_error;
9206: END IF;
9207: ELSIF(p_insurance_tbl(l_index).status IS NOT NULL OR p_insurance_tbl(l_index).status_code IS NULL) THEN
9208: p_insurance_tbl(l_index).status_code :='N';
9209: ELSE
9211: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9212: fnd_message.set_token ('API_NAME', l_api_name);
9213: fnd_message.set_token ('NULL_PARAM', l_pn_status);
9214: fnd_msg_pub.ADD;
9215: RAISE fnd_api.g_exc_error;
9216: END IF;
9217:
9218: -------------------------------------------------------------------------------------------------------------------
9219:
9226: , p_lookup_type => l_pn_insurance_type
9227: , x_return_status => x_return_status
9228: , x_lookup_type_code => p_insurance_tbl(l_index).insurance_type_lookup_code
9229: );
9230: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9231: --l_error_flag:='Y';
9232: l_tbl_flag := 0;
9233: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
9234: fnd_message.set_token ('LOOKUP_TYPE', l_pn_insurance_type);
9234: fnd_message.set_token ('LOOKUP_TYPE', l_pn_insurance_type);
9235: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type));
9236: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type_lookup_code));
9237: fnd_msg_pub.ADD;
9238: RAISE fnd_api.g_exc_error;
9239: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9240: --l_error_flag:='Y';
9241: l_tbl_flag := 0;
9242: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9235: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type));
9236: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type_lookup_code));
9237: fnd_msg_pub.ADD;
9238: RAISE fnd_api.g_exc_error;
9239: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9240: --l_error_flag:='Y';
9241: l_tbl_flag := 0;
9242: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9243: fnd_message.set_token ('COLUMN', SUBSTR(l_param_insurance_type,3));
9242: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9243: fnd_message.set_token ('COLUMN', SUBSTR(l_param_insurance_type,3));
9244: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9245: fnd_msg_pub.ADD;
9246: RAISE fnd_api.g_exc_unexpected_error;
9247: END IF;
9248: ELSIF(p_insurance_tbl(l_index).insurance_type IS NULL OR p_insurance_tbl(l_index).insurance_type_lookup_code IS NULL) THEN
9249: p_insurance_tbl(l_index).insurance_type_lookup_code := NULL;
9250: ELSE
9252: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9253: fnd_message.set_token ('API_NAME', l_api_name);
9254: fnd_message.set_token ('NULL_PARAM', l_pn_insurance_type);
9255: fnd_msg_pub.ADD;
9256: RAISE fnd_api.g_exc_error;
9257: END IF;
9258:
9259: ---------------------------------------------------------------------------------------------------------------------
9260: IF ( (p_insurance_tbl(l_index).policy_start_date IS NOT NULL AND p_insurance_tbl(l_index).policy_start_date <> pn_lease_utils.g_pn_miss_date)
9266: , p_lease_comm_date => p_insurance_tbl(l_index).policy_start_date
9267: , p_lease_term_date => p_insurance_tbl(l_index).policy_expiration_date
9268: , x_return_status => x_return_status
9269: );
9270: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9271: l_tbl_flag := 0;
9272: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
9273: fnd_message.set_token ('TERMINATION_DATE', p_insurance_tbl(l_index).policy_expiration_date);
9274: fnd_message.set_token ('COMMENCEMENT_DATE', p_insurance_tbl(l_index).policy_start_date);
9272: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
9273: fnd_message.set_token ('TERMINATION_DATE', p_insurance_tbl(l_index).policy_expiration_date);
9274: fnd_message.set_token ('COMMENCEMENT_DATE', p_insurance_tbl(l_index).policy_start_date);
9275: fnd_msg_pub.ADD;
9276: RAISE fnd_api.g_exc_error;
9277: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9278: l_tbl_flag := 0;
9279: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9280: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_date,3));
9273: fnd_message.set_token ('TERMINATION_DATE', p_insurance_tbl(l_index).policy_expiration_date);
9274: fnd_message.set_token ('COMMENCEMENT_DATE', p_insurance_tbl(l_index).policy_start_date);
9275: fnd_msg_pub.ADD;
9276: RAISE fnd_api.g_exc_error;
9277: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9278: l_tbl_flag := 0;
9279: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9280: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_date,3));
9281: fnd_message.set_token ('P_TEXT', l_api_name|| '-'|| SQLERRM);
9279: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9280: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_date,3));
9281: fnd_message.set_token ('P_TEXT', l_api_name|| '-'|| SQLERRM);
9282: fnd_msg_pub.ADD;
9283: RAISE fnd_api.g_exc_unexpected_error;
9284: END IF;
9285: ELSE
9286: l_tbl_flag := 0;
9287: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9287: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9288: fnd_message.set_token ('API_NAME', l_api_name);
9289: fnd_message.set_token ('NULL_PARAM', 'Policy Start and End Date NULL');
9290: fnd_msg_pub.ADD;
9291: RAISE fnd_api.g_exc_error;
9292: END IF;
9293:
9294: ---------------------------------------------------------------------------------------------------------------------------------------------------------
9295: -- dff validations
9328: ,p_insurance_tbl(l_index).attribute14
9329: ,p_insurance_tbl(l_index).attribute15
9330: ,x_return_status
9331: );
9332: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
9333: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9334: fnd_message.set_token ('API_NAME', l_api_name);
9335: fnd_message.set_token ('NULL_PARAM','Required attribute in Insurance is NULL');
9336: fnd_msg_pub.ADD;
9333: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9334: fnd_message.set_token ('API_NAME', l_api_name);
9335: fnd_message.set_token ('NULL_PARAM','Required attribute in Insurance is NULL');
9336: fnd_msg_pub.ADD;
9337: RAISE fnd_api.g_exc_error;
9338: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9339: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9340: fnd_message.set_token ('API_NAME', l_api_name);
9341: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Insurance is NULL');
9334: fnd_message.set_token ('API_NAME', l_api_name);
9335: fnd_message.set_token ('NULL_PARAM','Required attribute in Insurance is NULL');
9336: fnd_msg_pub.ADD;
9337: RAISE fnd_api.g_exc_error;
9338: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9339: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9340: fnd_message.set_token ('API_NAME', l_api_name);
9341: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Insurance is NULL');
9342: fnd_msg_pub.ADD;
9339: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9340: fnd_message.set_token ('API_NAME', l_api_name);
9341: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Insurance is NULL');
9342: fnd_msg_pub.ADD;
9343: RAISE fnd_api.g_exc_unexpected_error;
9344: ELSE*/
9345: IF NOT ((p_insurance_tbl(l_index).attribute_category = pn_lease_utils.g_pn_miss_char OR p_insurance_tbl(l_index).attribute_category IS NULL)
9346: AND (p_insurance_tbl(l_index).attribute1 = pn_lease_utils.g_pn_miss_char OR p_insurance_tbl(l_index).attribute1 IS NULL)
9347: AND (p_insurance_tbl(l_index).attribute2 = pn_lease_utils.g_pn_miss_char OR p_insurance_tbl(l_index).attribute2 IS NULL)
9383: , p_resp_id => fnd_global.resp_id
9384: , p_return_status => x_return_status
9385: );
9386:
9387: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9388: l_tbl_flag := 0;
9389: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9390: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9391: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9389: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9390: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9391: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9392: fnd_msg_pub.ADD;
9393: RAISE fnd_api.g_exc_error;
9394: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9395: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9396: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9397: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9390: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9391: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9392: fnd_msg_pub.ADD;
9393: RAISE fnd_api.g_exc_error;
9394: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9395: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9396: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9397: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9398: fnd_msg_pub.ADD;
9395: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9396: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9397: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9398: fnd_msg_pub.ADD;
9399: RAISE fnd_api.g_exc_unexpected_error;
9400: END IF;
9401: END IF;
9402: END IF;
9403: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9402: END IF;
9403: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9404: ----------------------dbms_output.put_line('l_tbl_flag : ---'||l_tbl_flag);
9405: EXCEPTION
9406: WHEN fnd_api.g_exc_error THEN
9407: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9408: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9409: WHEN OTHERS THEN
9410: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9403: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9404: ----------------------dbms_output.put_line('l_tbl_flag : ---'||l_tbl_flag);
9405: EXCEPTION
9406: WHEN fnd_api.g_exc_error THEN
9407: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9408: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9409: WHEN OTHERS THEN
9410: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9411: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9404: ----------------------dbms_output.put_line('l_tbl_flag : ---'||l_tbl_flag);
9405: EXCEPTION
9406: WHEN fnd_api.g_exc_error THEN
9407: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9408: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9409: WHEN OTHERS THEN
9410: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9411: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9412: END;
9411: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9412: END;
9413: END LOOP;
9414: x_tbl := l_tbl;
9415: x_return_status := fnd_api.g_ret_sts_success;
9416: ----------------------dbms_output.put_line('validation for insurance creation completed');
9417: EXCEPTION
9418: WHEN fnd_api.g_exc_error THEN
9419: x_return_status := fnd_api.g_ret_sts_error;
9414: x_tbl := l_tbl;
9415: x_return_status := fnd_api.g_ret_sts_success;
9416: ----------------------dbms_output.put_line('validation for insurance creation completed');
9417: EXCEPTION
9418: WHEN fnd_api.g_exc_error THEN
9419: x_return_status := fnd_api.g_ret_sts_error;
9420: WHEN OTHERS THEN
9421: x_return_status := fnd_api.g_ret_sts_unexp_error;
9422: ----------------------dbms_output.put_line('INSURANCE VALIDATION FAILED');
9415: x_return_status := fnd_api.g_ret_sts_success;
9416: ----------------------dbms_output.put_line('validation for insurance creation completed');
9417: EXCEPTION
9418: WHEN fnd_api.g_exc_error THEN
9419: x_return_status := fnd_api.g_ret_sts_error;
9420: WHEN OTHERS THEN
9421: x_return_status := fnd_api.g_ret_sts_unexp_error;
9422: ----------------------dbms_output.put_line('INSURANCE VALIDATION FAILED');
9423: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
9417: EXCEPTION
9418: WHEN fnd_api.g_exc_error THEN
9419: x_return_status := fnd_api.g_ret_sts_error;
9420: WHEN OTHERS THEN
9421: x_return_status := fnd_api.g_ret_sts_unexp_error;
9422: ----------------------dbms_output.put_line('INSURANCE VALIDATION FAILED');
9423: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
9424: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_CREATE:Insurance Type Code'||l_lookup_code,3);
9425: -----------------------------------------------------------------------------------------------------------------------------------------------------
9515: END loop;
9516:
9517: EXCEPTION
9518: WHEN OTHERS THEN
9519: x_return_status := fnd_api.g_ret_sts_unexp_error;
9520: ----------------------dbms_output.put_line('Insert procedure for insur creation failed') ;
9521: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
9522: pvt_debug(g_pkg_name||'-INSURANCE_INSERT_ROW:Exception'||SQLERRM,3);
9523: END INSURANCE_INSERT_ROW;
9532: -- , x_msg_count OUT NUMBER
9533: -- , x_msg_data OUT VARCHAR2
9534: )
9535: IS
9536: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success ;
9537: l_msg_count NUMBER;
9538: l_msg_data VARCHAR2(4000) ;
9539: x_out_tbl temp_tbl_type ;
9540: BEGIN
9543: VALIDATE_INSURANCE_FOR_CREATE(p_insurance_tbl => p_insurance_tbl
9544: ,x_tbl => x_out_tbl
9545: ,x_return_status => x_return_status
9546: );
9547: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
9548: ----------------------dbms_output.put_line('RETURN STATUS OF VALIDATION :--'||l_return_status);
9549: ----------------------dbms_output.put_line('CALLING INSURANCE INSERT ROW PROC');
9550: INSURANCE_INSERT_ROW(p_insurance_tbl => p_insurance_tbl
9551: ,p_lease_id => p_lease_id
9554: ,p_tbl => x_out_tbl
9555: ,p_commit => p_commit
9556: ,p_validate => p_validate );
9557: ELSE
9558: RAISE fnd_api.g_exc_error;
9559: END IF;
9560: EXCEPTION
9561: WHEN fnd_api.g_exc_error THEN
9562: x_return_status:=fnd_api.g_ret_sts_error;
9557: ELSE
9558: RAISE fnd_api.g_exc_error;
9559: END IF;
9560: EXCEPTION
9561: WHEN fnd_api.g_exc_error THEN
9562: x_return_status:=fnd_api.g_ret_sts_error;
9563: WHEN OTHERS THEN
9564: x_return_status := fnd_api.g_ret_sts_unexp_error;
9565: END CREATE_INSURANCE;
9558: RAISE fnd_api.g_exc_error;
9559: END IF;
9560: EXCEPTION
9561: WHEN fnd_api.g_exc_error THEN
9562: x_return_status:=fnd_api.g_ret_sts_error;
9563: WHEN OTHERS THEN
9564: x_return_status := fnd_api.g_ret_sts_unexp_error;
9565: END CREATE_INSURANCE;
9566: --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9560: EXCEPTION
9561: WHEN fnd_api.g_exc_error THEN
9562: x_return_status:=fnd_api.g_ret_sts_error;
9563: WHEN OTHERS THEN
9564: x_return_status := fnd_api.g_ret_sts_unexp_error;
9565: END CREATE_INSURANCE;
9566: --------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9567:
9568:
9573: p_lease_id IN pn_leases_all.lease_id%TYPE,
9574: p_lease_change_id IN pn_lease_changes_all.lease_change_id%TYPE
9575: )
9576: IS
9577: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9578: l_index BINARY_INTEGER;
9579: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
9580: l_api_name VARCHAR2(30) := 'UPDATE_INSURANCE';
9581: l_cur_id NUMBER;
9620: from PN_INSURANCE_REQUIREMENTS_ALL
9621: where insurance_requirement_id = l_cur_id;
9622: lcu_insur_rec c_insur%ROWTYPE;
9623: BEGIN
9624: l_return_status := fnd_api.g_ret_sts_success ;
9625: l_tbl_flag := 2;
9626:
9627: pvt_debug(g_pkg_name||'-Inside VALIDATE_INSURANCE_FOR_UPDATE',3);
9628: For l_index in p_insurance_tbl.FIRST..p_insurance_tbl.LAST LOOP
9635: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
9636: fnd_message.set_token ('API_NAME', l_api_name);
9637: fnd_message.set_token ('NULL_PARAM', 'INSURANCE_ID');
9638: fnd_msg_pub.ADD;
9639: RAISE fnd_api.g_exc_error;
9640: ELSE
9641: l_cur_id := p_insurance_tbl(l_index).insurance_requirement_id;
9642: OPEN c_insur(l_cur_id);
9643: ----------------------dbms_output.put_line('cursor opened for update');
9655: , p_lease_term_date => p_insurance_tbl(l_index).policy_expiration_date
9656: , x_return_status => x_return_status
9657: );
9658: pvt_debug(g_pkg_name||'-Inside VALIDATE_INSURANCE_FOR_UPDATE:CROSSVAL_LEASEDATES Return Status'||x_return_status,3);
9659: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9660: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
9661: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_expiration_date));
9662: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_start_date));
9663: fnd_msg_pub.ADD;
9660: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
9661: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_expiration_date));
9662: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_start_date));
9663: fnd_msg_pub.ADD;
9664: RAISE fnd_api.g_exc_error;
9665: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9666: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9667: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9668: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9661: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_expiration_date));
9662: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_insurance_tbl(l_index).policy_start_date));
9663: fnd_msg_pub.ADD;
9664: RAISE fnd_api.g_exc_error;
9665: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9666: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9667: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9668: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9669: fnd_msg_pub.ADD;
9666: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9667: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9668: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9669: fnd_msg_pub.ADD;
9670: RAISE fnd_api.g_exc_unexpected_error;
9671: END IF;
9672: ELSE
9673: p_insurance_tbl(l_index).policy_start_date := lcu_insur_rec.policy_start_date;
9674: p_insurance_tbl(l_index).policy_expiration_date := lcu_insur_rec.policy_expiration_date;
9723: , x_return_status => x_return_status
9724: , x_lookup_type_code => p_insurance_tbl(l_index).status_code
9725: );
9726: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:Insurance Status:'||p_insurance_tbl(l_index).status_code,3);
9727: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9728: --l_error_flag:='Y';
9729: l_tbl_flag := 0;
9730: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
9731: fnd_message.set_token ('LOOKUP_TYPE', l_pn_status);
9731: fnd_message.set_token ('LOOKUP_TYPE', l_pn_status);
9732: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).status));
9733: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).status_code));
9734: fnd_msg_pub.ADD;
9735: RAISE fnd_api.g_exc_error;
9736: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9737: --l_error_flag:='Y';
9738: l_tbl_flag := 0;
9739: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9732: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).status));
9733: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).status_code));
9734: fnd_msg_pub.ADD;
9735: RAISE fnd_api.g_exc_error;
9736: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9737: --l_error_flag:='Y';
9738: l_tbl_flag := 0;
9739: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9740: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9739: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9740: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status,3));
9741: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9742: fnd_msg_pub.ADD;
9743: RAISE fnd_api.g_exc_unexpected_error;
9744: END IF;
9745: ELSIF(p_insurance_tbl(l_index).status IS NULL OR p_insurance_tbl(l_index).status_code IS NULL) THEN
9746: p_insurance_tbl(l_index).status_code := 'N';
9747: ELSE
9764: , x_lookup_type_code => p_insurance_tbl(l_index).insurance_type_lookup_code
9765: );
9766: ------------------dbms_output.put_line (' INSURANCE CODE AND INSURANCE TYPE :'||x_return_status||p_insurance_tbl(l_index).insurance_type_lookup_code);--Rupak
9767: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:Insurance Type:'||p_insurance_tbl(l_index).insurance_type_lookup_code,3);
9768: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9769: --l_error_flag:='Y';
9770: ------------------dbms_output.put_line (' INSURANCE :HI:1');--Rupak
9771: l_tbl_flag := 0;
9772: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
9773: fnd_message.set_token ('LOOKUP_TYPE', l_pn_insurance_type);
9774: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type));
9775: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type_lookup_code));
9776: fnd_msg_pub.ADD;
9777: RAISE fnd_api.g_exc_error;
9778: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9779: --l_error_flag:='Y';
9780: l_tbl_flag := 0;
9781: ------------------dbms_output.put_line (' INSURANCE :HI:2');--Rupak
9774: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type));
9775: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_insurance_tbl(l_index).insurance_type_lookup_code));
9776: fnd_msg_pub.ADD;
9777: RAISE fnd_api.g_exc_error;
9778: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9779: --l_error_flag:='Y';
9780: l_tbl_flag := 0;
9781: ------------------dbms_output.put_line (' INSURANCE :HI:2');--Rupak
9782: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9782: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9783: fnd_message.set_token ('COLUMN', SUBSTR(l_param_insurance_type,3));
9784: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
9785: fnd_msg_pub.ADD;
9786: RAISE fnd_api.g_exc_unexpected_error;
9787: END IF;
9788: ELSIF(p_insurance_tbl(l_index).insurance_type IS NULL OR p_insurance_tbl(l_index).insurance_type_lookup_code IS NULL) THEN
9789: p_insurance_tbl(l_index).insurance_type_lookup_code := NULL;
9790: ELSE
9916: , p_resp_id => fnd_global.resp_id
9917: , p_return_status=> x_return_status
9918: );
9919: ----------------------dbms_output.put_line('dff validated');--Rupak
9920: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9921: l_tbl_flag := 0;
9922: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9923: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9924: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9922: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9923: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9924: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9925: fnd_msg_pub.ADD;
9926: RAISE fnd_api.g_exc_error;
9927: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9928: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9929: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9930: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9923: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9924: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9925: fnd_msg_pub.ADD;
9926: RAISE fnd_api.g_exc_error;
9927: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9928: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9929: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9930: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9931: fnd_msg_pub.ADD;
9928: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
9929: fnd_message.set_token ('COLUMN', 'PN_INSURANCE_REQUIREMENTS_DESC_FIELDS');
9930: fnd_message.set_token ('P_TEXT', 'PN_INSURANCE_REQUIREMENTS'|| '-'|| SQLERRM);
9931: fnd_msg_pub.ADD;
9932: RAISE fnd_api.g_exc_unexpected_error;
9933: END IF;
9934: --END IF;
9935: CLOSE c_insur;
9936: END IF;
9935: CLOSE c_insur;
9936: END IF;
9937: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9938: EXCEPTION
9939: WHEN fnd_api.g_exc_error THEN
9940: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9941: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9942: WHEN OTHERS THEN
9943: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9936: END IF;
9937: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9938: EXCEPTION
9939: WHEN fnd_api.g_exc_error THEN
9940: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9941: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9942: WHEN OTHERS THEN
9943: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9944: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9937: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
9938: EXCEPTION
9939: WHEN fnd_api.g_exc_error THEN
9940: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
9941: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
9942: WHEN OTHERS THEN
9943: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
9944: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9945: END;
9944: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
9945: END;
9946: END LOOP;
9947: x_tbl := l_tbl;
9948: x_return_status := fnd_api.g_ret_sts_success;
9949: ----------------------dbms_output.put_line('VALIDATIONS FOR UPDATE OF INSURANCE COMPLETED');
9950: EXCEPTION
9951: WHEN fnd_api.g_exc_error THEN
9952: x_return_status := fnd_api.g_ret_sts_error;
9947: x_tbl := l_tbl;
9948: x_return_status := fnd_api.g_ret_sts_success;
9949: ----------------------dbms_output.put_line('VALIDATIONS FOR UPDATE OF INSURANCE COMPLETED');
9950: EXCEPTION
9951: WHEN fnd_api.g_exc_error THEN
9952: x_return_status := fnd_api.g_ret_sts_error;
9953: WHEN OTHERS THEN
9954: x_return_status := fnd_api.g_ret_sts_unexp_error;
9955: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:Exception'||SQLERRM,3);
9948: x_return_status := fnd_api.g_ret_sts_success;
9949: ----------------------dbms_output.put_line('VALIDATIONS FOR UPDATE OF INSURANCE COMPLETED');
9950: EXCEPTION
9951: WHEN fnd_api.g_exc_error THEN
9952: x_return_status := fnd_api.g_ret_sts_error;
9953: WHEN OTHERS THEN
9954: x_return_status := fnd_api.g_ret_sts_unexp_error;
9955: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:Exception'||SQLERRM,3);
9956: ------------------dbms_output.put_line('Exception:VALIDATE_INSURANCE_FOR_UPDATE'||SQLERRM);
9950: EXCEPTION
9951: WHEN fnd_api.g_exc_error THEN
9952: x_return_status := fnd_api.g_ret_sts_error;
9953: WHEN OTHERS THEN
9954: x_return_status := fnd_api.g_ret_sts_unexp_error;
9955: pvt_debug(g_pkg_name||'-VALIDATE_INSURANCE_FOR_UPDATE:Exception'||SQLERRM,3);
9956: ------------------dbms_output.put_line('Exception:VALIDATE_INSURANCE_FOR_UPDATE'||SQLERRM);
9957: END VALIDATE_INSURANCE_FOR_UPDATE;
9958:
9964: ,p_commit IN VARCHAR2
9965: ,p_validate IN VARCHAR2
9966: )
9967: IS
9968: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9969: l_index BINARY_INTEGER;
9970: l_insurance_requirement_id PN_INSURANCE_REQUIREMENTS_ALL.insurance_requirement_id%TYPE;
9971: x_msg_count NUMBER;
9972: x_msg_data VARCHAR2(5000);
10044: END IF;
10045: END LOOP;
10046: EXCEPTION
10047: WHEN OTHERS THEN
10048: x_return_status := fnd_api.g_ret_sts_unexp_error;
10049: pvt_debug(g_pkg_name||'-INSURANCE_UPDATE_ROW:Exception:'||SQLERRM,3);
10050: END INSURANCE_UPDATE_ROW;
10051:
10052: PROCEDURE UPDATE_INSURANCE (
10059: -- , x_msg_count OUT NUMBER
10060: -- , x_msg_data OUT VARCHAR2
10061: )
10062: IS
10063: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
10064: l_msg_count NUMBER ;
10065: l_msg_data VARCHAR2(2000) ;
10066: x_out_tbl temp_tbl_type;
10067:
10070: m NUMBER;
10071: n NUMBER;
10072: l_err_insurance_cnt NUMBER:=0;
10073: BEGIN
10074: x_return_status := fnd_api.g_ret_sts_success;
10075:
10076: m:=1;
10077: n:=1;
10078: FOR i IN 1..p_insurance_tbl.COUNT
10097: ,x_return_status => x_return_status
10098: );
10099: ------------------dbms_output.put_line('B4 Insurance Update'||x_return_status);--Rupak
10100: pvt_debug(g_pkg_name||'-Inside UPDATE_INSURANCE:',3);
10101: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
10102: ------------------dbms_output.put_line('B4 Insurance Update IN IF ');--Rupak
10103: INSURANCE_UPDATE_ROW(
10104: p_insurance_tbl => p_insurance_tbl_update--p_insurance_tbl
10105: , p_lease_id => p_lease_id
10110: , p_validate => p_validate
10111: );
10112: pvt_debug(g_pkg_name||'-UPDATE_INSURANCE:INSURANCE_UPDATE_ROW Return Status:'||x_return_status,3);
10113: ------------------dbms_output.put_line('After Insurance Update:'||x_return_status);--Rupak
10114: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10115: --x_return_status := fnd_api.g_ret_sts_unexp_error;
10116: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10117: ELSE
10118: --x_return_status := fnd_api.g_ret_sts_error;
10111: );
10112: pvt_debug(g_pkg_name||'-UPDATE_INSURANCE:INSURANCE_UPDATE_ROW Return Status:'||x_return_status,3);
10113: ------------------dbms_output.put_line('After Insurance Update:'||x_return_status);--Rupak
10114: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10115: --x_return_status := fnd_api.g_ret_sts_unexp_error;
10116: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10117: ELSE
10118: --x_return_status := fnd_api.g_ret_sts_error;
10119: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10114: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10115: --x_return_status := fnd_api.g_ret_sts_unexp_error;
10116: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10117: ELSE
10118: --x_return_status := fnd_api.g_ret_sts_error;
10119: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10120: END IF;
10121: END IF;
10122: IF(p_insurance_tbl_create.COUNT > 0) THEN
10124: ,x_tbl => x_out_tbl
10125: ,x_return_status => x_return_status
10126: );
10127: pvt_debug(g_pkg_name||'Inside UPDATE_INSURANCE:VALIDATE_INSURANCE_FOR_CREATE Return Status'||x_return_status,3);
10128: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
10129: ----------------------dbms_output.put_line('RETURN STATUS OF VALIDATION :--'||l_return_status);
10130: ----------------------dbms_output.put_line('CALLING INSURANCE INSERT ROW PROC');
10131: INSURANCE_INSERT_ROW(p_insurance_tbl => p_insurance_tbl_create
10132: ,p_lease_id => p_lease_id
10135: ,p_tbl => x_out_tbl
10136: ,p_commit => p_commit
10137: ,p_validate => p_validate );
10138: pvt_debug(g_pkg_name||'Inside UPDATE_INSURANCE:INSURANCE_INSERT_ROW Return Status'||x_return_status,3);
10139: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10140: --RAISE fnd_api.g_exc_error;
10141: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10142: END IF;
10143: ELSE
10136: ,p_commit => p_commit
10137: ,p_validate => p_validate );
10138: pvt_debug(g_pkg_name||'Inside UPDATE_INSURANCE:INSURANCE_INSERT_ROW Return Status'||x_return_status,3);
10139: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10140: --RAISE fnd_api.g_exc_error;
10141: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10142: END IF;
10143: ELSE
10144: l_err_insurance_cnt := l_err_insurance_cnt + 1;
10145: END IF;
10146: END IF;
10147:
10148: IF(l_err_insurance_cnt = 0) THEN
10149: x_return_status := fnd_api.g_ret_sts_success;
10150: ELSE
10151: x_return_status := fnd_api.g_ret_sts_error;
10152: END IF;
10153:
10147:
10148: IF(l_err_insurance_cnt = 0) THEN
10149: x_return_status := fnd_api.g_ret_sts_success;
10150: ELSE
10151: x_return_status := fnd_api.g_ret_sts_error;
10152: END IF;
10153:
10154: EXCEPTION
10155: WHEN fnd_api.g_exc_error THEN
10151: x_return_status := fnd_api.g_ret_sts_error;
10152: END IF;
10153:
10154: EXCEPTION
10155: WHEN fnd_api.g_exc_error THEN
10156: ------------------dbms_output.put_line('In Insrance:hi:Exception:'||x_return_status);
10157: x_return_status:=fnd_api.g_ret_sts_error;
10158: WHEN OTHERS THEN
10159: x_return_status := fnd_api.g_ret_sts_unexp_error;
10153:
10154: EXCEPTION
10155: WHEN fnd_api.g_exc_error THEN
10156: ------------------dbms_output.put_line('In Insrance:hi:Exception:'||x_return_status);
10157: x_return_status:=fnd_api.g_ret_sts_error;
10158: WHEN OTHERS THEN
10159: x_return_status := fnd_api.g_ret_sts_unexp_error;
10160: END UPDATE_INSURANCE;
10161:
10155: WHEN fnd_api.g_exc_error THEN
10156: ------------------dbms_output.put_line('In Insrance:hi:Exception:'||x_return_status);
10157: x_return_status:=fnd_api.g_ret_sts_error;
10158: WHEN OTHERS THEN
10159: x_return_status := fnd_api.g_ret_sts_unexp_error;
10160: END UPDATE_INSURANCE;
10161:
10162:
10163: PROCEDURE VALIDATE_OPTION_FOR_CREATE ( p_option_tbl IN OUT NOCOPY lease_option_tbl_type
10165: ,x_return_status IN OUT NOCOPY VARCHAR2
10166:
10167: )
10168: IS
10169: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
10170: l_index BINARY_INTEGER;
10171: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
10172: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE := pn_lease_utils.g_pn_miss_char;
10173: l_cur_id NUMBER;
10203: , p_lookup_type => l_pn_lease_option_type
10204: , x_return_status => x_return_status
10205: , x_lookup_type_code => p_option_tbl(l_index).option_type_code
10206: );
10207: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10208: --l_error_flag:='Y';
10209: l_tbl_flag := 0;
10210: --------------------dbms_output.put_line('In :1 '||x_return_status);
10211: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10212: fnd_message.set_token ('LOOKUP_TYPE', l_pn_lease_option_type);
10213: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_type));
10214: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_type_code));
10215: fnd_msg_pub.ADD;
10216: RAISE fnd_api.g_exc_error;
10217: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10218: --l_error_flag:='Y';
10219: l_tbl_flag := 0;
10220: --------------------dbms_output.put_line('In :2 '||x_return_status);
10213: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_type));
10214: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_type_code));
10215: fnd_msg_pub.ADD;
10216: RAISE fnd_api.g_exc_error;
10217: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10218: --l_error_flag:='Y';
10219: l_tbl_flag := 0;
10220: --------------------dbms_output.put_line('In :2 '||x_return_status);
10221: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10221: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10222: fnd_message.set_token ('COLUMN', SUBSTR(l_param_option_type,3));
10223: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10224: fnd_msg_pub.ADD;
10225: RAISE fnd_api.g_exc_unexpected_error;
10226: END IF;
10227: ELSE
10228: l_tbl_flag := 0;
10229: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10229: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10230: fnd_message.set_token ('API_NAME', l_api_name);
10231: fnd_message.set_token ('NULL_PARAM', l_param_option_type);
10232: fnd_msg_pub.ADD;
10233: RAISE fnd_api.g_exc_error;
10234: END IF;
10235:
10236: -----------------------------------------------------------------------------------------------------------------------------------------------
10237: IF (( p_option_tbl(l_index).option_status_type IS NOT NULL OR p_option_tbl(l_index).option_status_lookup_code IS NOT NULL)
10242: , p_lookup_type => l_pn_option_status_type
10243: , x_return_status => x_return_status
10244: , x_lookup_type_code => p_option_tbl(l_index).option_status_lookup_code
10245: );
10246: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10247: --l_error_flag:='Y';
10248: l_tbl_flag := 0;
10249: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10250: fnd_message.set_token ('LOOKUP_TYPE', l_pn_option_status_type);
10250: fnd_message.set_token ('LOOKUP_TYPE', l_pn_option_status_type);
10251: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_status_type));
10252: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_status_lookup_code));
10253: fnd_msg_pub.ADD;
10254: RAISE fnd_api.g_exc_error;
10255: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10256: --l_error_flag:='Y';
10257: l_tbl_flag := 0;
10258: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10251: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_status_type));
10252: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_status_lookup_code));
10253: fnd_msg_pub.ADD;
10254: RAISE fnd_api.g_exc_error;
10255: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10256: --l_error_flag:='Y';
10257: l_tbl_flag := 0;
10258: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10259: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status_type,3));
10258: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10259: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status_type,3));
10260: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10261: fnd_msg_pub.ADD;
10262: RAISE fnd_api.g_exc_unexpected_error;
10263: END IF;
10264: ELSE
10265: l_tbl_flag := 0;
10266: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10266: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10267: fnd_message.set_token ('API_NAME', l_api_name);
10268: fnd_message.set_token ('NULL_PARAM', l_pn_option_status_type);
10269: fnd_msg_pub.ADD;
10270: RAISE fnd_api.g_exc_error;
10271: END IF;
10272:
10273: ---------------------------------------------------------------------------------------------------------------------------------------------
10274:
10280: , p_lookup_type => l_pn_yes_no
10281: , x_return_status => x_return_status
10282: , x_lookup_type_code => p_option_tbl(l_index).option_notice_reqd
10283: );
10284: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10285: --l_error_flag:='Y';
10286: l_tbl_flag := 0;
10287: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10288: fnd_message.set_token ('LOOKUP_TYPE', l_pn_yes_no);
10288: fnd_message.set_token ('LOOKUP_TYPE', l_pn_yes_no);
10289: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd_type));
10290: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd));
10291: fnd_msg_pub.ADD;
10292: RAISE fnd_api.g_exc_error;
10293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10294: --l_error_flag:='Y';
10295: l_tbl_flag := 0;
10296: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10289: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd_type));
10290: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd));
10291: fnd_msg_pub.ADD;
10292: RAISE fnd_api.g_exc_error;
10293: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10294: --l_error_flag:='Y';
10295: l_tbl_flag := 0;
10296: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10297: fnd_message.set_token ('COLUMN', SUBSTR(l_param_notice_given_type,3));
10296: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10297: fnd_message.set_token ('COLUMN', SUBSTR(l_param_notice_given_type,3));
10298: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10299: fnd_msg_pub.ADD;
10300: RAISE fnd_api.g_exc_unexpected_error;
10301: END IF;
10302: ELSE
10303: l_tbl_flag := 0;
10304: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10304: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10305: fnd_message.set_token ('API_NAME', l_api_name);
10306: fnd_message.set_token ('NULL_PARAM', l_pn_yes_no);
10307: fnd_msg_pub.ADD;
10308: RAISE fnd_api.g_exc_error;
10309: END IF;
10310:
10311: --------------------------------------------------------------------------------------------------------------------------------
10312:
10318: , p_lookup_type => l_pn_units_of_measures
10319: , x_return_status => x_return_status
10320: , x_lookup_type_code => p_option_tbl(l_index).uom_code
10321: );
10322: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10323: --l_error_flag:='Y';
10324: l_tbl_flag := 0;
10325: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10326: fnd_message.set_token ('LOOKUP_TYPE', l_pn_units_of_measures);
10326: fnd_message.set_token ('LOOKUP_TYPE', l_pn_units_of_measures);
10327: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).uom_type));
10328: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).uom_code));
10329: fnd_msg_pub.ADD;
10330: RAISE fnd_api.g_exc_error;
10331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10332: --l_error_flag:='Y';
10333: l_tbl_flag := 0;
10334: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10327: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).uom_type));
10328: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).uom_code));
10329: fnd_msg_pub.ADD;
10330: RAISE fnd_api.g_exc_error;
10331: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10332: --l_error_flag:='Y';
10333: l_tbl_flag := 0;
10334: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10335: fnd_message.set_token ('COLUMN', SUBSTR(l_param_uom_type,3));
10334: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10335: fnd_message.set_token ('COLUMN', SUBSTR(l_param_uom_type,3));
10336: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10337: fnd_msg_pub.ADD;
10338: RAISE fnd_api.g_exc_unexpected_error;
10339: END IF;
10340: END IF;
10341: /* ELSE
10342: l_tbl_flag := 0;
10343: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10344: fnd_message.set_token ('API_NAME', l_api_name);
10345: fnd_message.set_token ('NULL_PARAM', l_pn_units_of_measures);
10346: fnd_msg_pub.ADD;
10347: RAISE fnd_api.g_exc_error;
10348: END IF;*/
10349:
10350: ----------------------------------------------------------------------------------------------------------------------------------------
10351: IF p_option_tbl(l_index).start_date IS NOT NULL AND p_option_tbl(l_index).expiration_date IS NOT NULL THEN
10356: , p_lease_term_date => p_option_tbl(l_index).expiration_date
10357: , x_return_status => x_return_status
10358: );
10359: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:Validate Cross Lease dates Return Status'||x_return_status,3);
10360: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10361: l_tbl_flag := 0;
10362: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
10363: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
10364: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
10362: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
10363: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
10364: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
10365: fnd_msg_pub.ADD;
10366: RAISE fnd_api.g_exc_error;
10367: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10368: l_tbl_flag := 0;
10369: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10370: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
10363: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
10364: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
10365: fnd_msg_pub.ADD;
10366: RAISE fnd_api.g_exc_error;
10367: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10368: l_tbl_flag := 0;
10369: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10370: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
10371: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10369: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10370: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
10371: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10372: fnd_msg_pub.ADD;
10373: RAISE fnd_api.g_exc_unexpected_error;
10374: END IF;
10375: /*ELSE
10376: l_tbl_flag := 0;
10377: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10377: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10378: fnd_message.set_token ('API_NAME', l_api_name);
10379: fnd_message.set_token ('NULL_PARAM', 'Options Start And End Dates NULL');
10380: fnd_msg_pub.ADD;
10381: RAISE fnd_api.g_exc_error;*/
10382: END IF;
10383:
10384:
10385:
10392: , p_lease_term_date => p_option_tbl(l_index).option_exer_end_date
10393: , x_return_status => x_return_status
10394: );
10395: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:Validate Excercise Cross Lease dates Return Status'||x_return_status,3);
10396: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10397: l_tbl_flag := 0;
10398: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
10399: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_end_date));
10400: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_start_date));
10398: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
10399: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_end_date));
10400: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_start_date));
10401: fnd_msg_pub.ADD;
10402: RAISE fnd_api.g_exc_error;
10403: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10404: l_tbl_flag := 0;
10405: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10406: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exercise_dates,3));
10399: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_end_date));
10400: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).option_exer_start_date));
10401: fnd_msg_pub.ADD;
10402: RAISE fnd_api.g_exc_error;
10403: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10404: l_tbl_flag := 0;
10405: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10406: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exercise_dates,3));
10407: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10405: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10406: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exercise_dates,3));
10407: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10408: fnd_msg_pub.ADD;
10409: RAISE fnd_api.g_exc_unexpected_error;
10410: END IF;
10411: /*ELSE
10412: l_tbl_flag := 0;
10413: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10413: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10414: fnd_message.set_token ('API_NAME', l_api_name);
10415: fnd_message.set_token ('NULL_PARAM', 'Exercise Options Start And End Dates NULL');
10416: fnd_msg_pub.ADD;
10417: RAISE fnd_api.g_exc_error;*/
10418: END IF;
10419:
10420: ---------------------------------------------------------------------------------------------------------------------------------------
10421: -- dff validations
10438: ,p_option_tbl(l_index).attribute14
10439: ,p_option_tbl(l_index).attribute15
10440: ,x_return_status
10441: );
10442: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
10443: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10444: fnd_message.set_token ('API_NAME', l_api_name);
10445: fnd_message.set_token ('NULL_PARAM','Required attribute in Options is NULL');
10446: fnd_msg_pub.ADD;
10443: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10444: fnd_message.set_token ('API_NAME', l_api_name);
10445: fnd_message.set_token ('NULL_PARAM','Required attribute in Options is NULL');
10446: fnd_msg_pub.ADD;
10447: RAISE fnd_api.g_exc_error;
10448: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10450: fnd_message.set_token ('API_NAME', l_api_name);
10451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Options is NULL');
10444: fnd_message.set_token ('API_NAME', l_api_name);
10445: fnd_message.set_token ('NULL_PARAM','Required attribute in Options is NULL');
10446: fnd_msg_pub.ADD;
10447: RAISE fnd_api.g_exc_error;
10448: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10450: fnd_message.set_token ('API_NAME', l_api_name);
10451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Options is NULL');
10452: fnd_msg_pub.ADD;
10449: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10450: fnd_message.set_token ('API_NAME', l_api_name);
10451: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Options is NULL');
10452: fnd_msg_pub.ADD;
10453: RAISE fnd_api.g_exc_unexpected_error;
10454: ELSE*/
10455: IF NOT ((p_option_tbl(l_index).attribute_category = pn_lease_utils.g_pn_miss_char OR p_option_tbl(l_index).attribute_category IS NULL)
10456: AND (p_option_tbl(l_index).attribute1 = pn_lease_utils.g_pn_miss_char OR p_option_tbl(l_index).attribute1 IS NULL)
10457: AND (p_option_tbl(l_index).attribute2 = pn_lease_utils.g_pn_miss_char OR p_option_tbl(l_index).attribute2 IS NULL)
10493: , p_resp_id => fnd_global.resp_id
10494: , p_return_status => x_return_status
10495: );
10496: ----------------------dbms_output.put_line('DFF VALIDATED');
10497: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10498: l_tbl_flag := 0;
10499: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10500: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10501: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
10499: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10500: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10501: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
10502: fnd_msg_pub.ADD;
10503: RAISE fnd_api.g_exc_error;
10504: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10505: l_tbl_flag := 0;
10506: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10507: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10500: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10501: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
10502: fnd_msg_pub.ADD;
10503: RAISE fnd_api.g_exc_error;
10504: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10505: l_tbl_flag := 0;
10506: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10507: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10508: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
10506: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10507: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
10508: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
10509: fnd_msg_pub.ADD;
10510: RAISE fnd_api.g_exc_unexpected_error;
10511: END IF;
10512: END IF;
10513: END IF;
10514: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
10512: END IF;
10513: END IF;
10514: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
10515: EXCEPTION
10516: WHEN fnd_api.g_exc_error THEN
10517: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
10518: l_err_options_count := l_err_options_count +1;
10519: --pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
10520: WHEN OTHERS THEN
10513: END IF;
10514: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
10515: EXCEPTION
10516: WHEN fnd_api.g_exc_error THEN
10517: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
10518: l_err_options_count := l_err_options_count +1;
10519: --pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
10520: WHEN OTHERS THEN
10521: l_err_options_count := l_err_options_count +1;
10515: EXCEPTION
10516: WHEN fnd_api.g_exc_error THEN
10517: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
10518: l_err_options_count := l_err_options_count +1;
10519: --pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
10520: WHEN OTHERS THEN
10521: l_err_options_count := l_err_options_count +1;
10522: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
10523: -- pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
10524: END;
10525: ----------------------dbms_output.put_line('Private Contacts:13');--Rupak
10526: END LOOP;
10527: IF (l_err_options_count = 0) THEN
10528: x_return_status := fnd_api.g_ret_sts_success;
10529: ELSE
10530: x_return_status := fnd_api.g_ret_sts_error;
10531: END IF;
10532: x_tbl := l_tbl;
10526: END LOOP;
10527: IF (l_err_options_count = 0) THEN
10528: x_return_status := fnd_api.g_ret_sts_success;
10529: ELSE
10530: x_return_status := fnd_api.g_ret_sts_error;
10531: END IF;
10532: x_tbl := l_tbl;
10533:
10534: EXCEPTION
10531: END IF;
10532: x_tbl := l_tbl;
10533:
10534: EXCEPTION
10535: WHEN fnd_api.g_exc_unexpected_error THEN
10536: x_return_status := fnd_api.g_ret_sts_unexp_error;
10537: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:Exception:'||SQLERRM,3);
10538: END VALIDATE_OPTION_FOR_CREATE;
10539:
10532: x_tbl := l_tbl;
10533:
10534: EXCEPTION
10535: WHEN fnd_api.g_exc_unexpected_error THEN
10536: x_return_status := fnd_api.g_ret_sts_unexp_error;
10537: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:Exception:'||SQLERRM,3);
10538: END VALIDATE_OPTION_FOR_CREATE;
10539:
10540:
10551: l_index BINARY_INTEGER;
10552: t_index BINARY_INTEGER;
10553: l_row_id VARCHAR2(100) ;
10554: l_option_id PN_OPTIONS_ALL.option_id%type;
10555: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
10556: x_msg_count NUMBER ;
10557: x_msg_data VARCHAR2(2000) ;
10558: BEGIN
10559: pvt_debug(g_pkg_name||'-Inside OPTION_INSERT_ROW',3);
10638: p_option_tbl(l_index).option_id := l_option_id;
10639: END IF;
10640: END loop;
10641:
10642: x_return_status := fnd_api.g_ret_sts_success;
10643: p_option_tbl := p_option_tbl;
10644:
10645:
10646: EXCEPTION
10644:
10645:
10646: EXCEPTION
10647: WHEN OTHERS THEN
10648: x_return_status := fnd_api.g_ret_sts_unexp_error;
10649: ----------------------dbms_output.put_line('INSERT PROCEDURE FAILED FOR OPTIONS CREATION') ;
10650: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
10651: pvt_debug(g_pkg_name||'OPTION_INSERT_ROW:CREATE_MILESTONE:Exception:'||SQLERRM,3);
10652: END OPTION_INSERT_ROW;
10662: -- , x_msg_count OUT NUMBER
10663: -- , x_msg_data OUT VARCHAR2
10664: )
10665: IS
10666: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success ;
10667: l_msg_count NUMBER ;
10668: l_msg_data VARCHAR2(2000) ;
10669: x_out_tbl temp_tbl_type ;
10670: l_api_name VARCHAR2(100) := 'NOTES CREATION' ;
10675: ,x_return_status => x_return_status
10676: );
10677: pvt_debug(g_pkg_name||'Inside CREATE_OPTION:VALIDATE_OPTION_FOR_CREATE Return Status'||x_return_status,3);
10678: --------------------dbms_output.put_line('OPTIONS:x_return_status'||x_return_status);--OOPS
10679: IF (NVL(p_validate,'F') <> 'T' AND x_return_status = fnd_api.g_ret_sts_success)THEN
10680: OPTION_INSERT_ROW( p_option_tbl => p_option_tbl
10681: ,p_lease_id => p_lease_id
10682: ,p_lease_change_id => p_lease_change_id
10683: ,x_return_status => x_return_status
10686: ,p_validate => p_validate
10687: );
10688: pvt_debug(g_pkg_name||'Inside CREATE_OPTION:OPTION_INSERT_ROW Return Status'||x_return_status,3);
10689: --------------------dbms_output.put_line('OPTIONS:x_return_status:OPTION_INSERT_ROW:'||x_return_status);--OOPS
10690: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10691: RAISE fnd_api.g_exc_error;
10692: END IF;
10693: ELSE
10694: RAISE fnd_api.g_exc_error;
10687: );
10688: pvt_debug(g_pkg_name||'Inside CREATE_OPTION:OPTION_INSERT_ROW Return Status'||x_return_status,3);
10689: --------------------dbms_output.put_line('OPTIONS:x_return_status:OPTION_INSERT_ROW:'||x_return_status);--OOPS
10690: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10691: RAISE fnd_api.g_exc_error;
10692: END IF;
10693: ELSE
10694: RAISE fnd_api.g_exc_error;
10695: END IF;
10690: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10691: RAISE fnd_api.g_exc_error;
10692: END IF;
10693: ELSE
10694: RAISE fnd_api.g_exc_error;
10695: END IF;
10696:
10697: EXCEPTION
10698: WHEN fnd_api.g_exc_error THEN
10694: RAISE fnd_api.g_exc_error;
10695: END IF;
10696:
10697: EXCEPTION
10698: WHEN fnd_api.g_exc_error THEN
10699: x_return_status := fnd_api.g_ret_sts_error;
10700: WHEN fnd_api.g_exc_unexpected_error THEN
10701: x_return_status := fnd_api.g_ret_sts_unexp_error;
10702: WHEN OTHERS THEN
10695: END IF;
10696:
10697: EXCEPTION
10698: WHEN fnd_api.g_exc_error THEN
10699: x_return_status := fnd_api.g_ret_sts_error;
10700: WHEN fnd_api.g_exc_unexpected_error THEN
10701: x_return_status := fnd_api.g_ret_sts_unexp_error;
10702: WHEN OTHERS THEN
10703: x_return_status := fnd_api.g_ret_sts_unexp_error;
10696:
10697: EXCEPTION
10698: WHEN fnd_api.g_exc_error THEN
10699: x_return_status := fnd_api.g_ret_sts_error;
10700: WHEN fnd_api.g_exc_unexpected_error THEN
10701: x_return_status := fnd_api.g_ret_sts_unexp_error;
10702: WHEN OTHERS THEN
10703: x_return_status := fnd_api.g_ret_sts_unexp_error;
10704: END CREATE_OPTION;
10697: EXCEPTION
10698: WHEN fnd_api.g_exc_error THEN
10699: x_return_status := fnd_api.g_ret_sts_error;
10700: WHEN fnd_api.g_exc_unexpected_error THEN
10701: x_return_status := fnd_api.g_ret_sts_unexp_error;
10702: WHEN OTHERS THEN
10703: x_return_status := fnd_api.g_ret_sts_unexp_error;
10704: END CREATE_OPTION;
10705:
10699: x_return_status := fnd_api.g_ret_sts_error;
10700: WHEN fnd_api.g_exc_unexpected_error THEN
10701: x_return_status := fnd_api.g_ret_sts_unexp_error;
10702: WHEN OTHERS THEN
10703: x_return_status := fnd_api.g_ret_sts_unexp_error;
10704: END CREATE_OPTION;
10705:
10706:
10707:
10713: ,x_return_status IN OUT NOCOPY VARCHAR2
10714: ,p_commit IN VARCHAR2
10715: )
10716: IS
10717: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
10718: l_index BINARY_INTEGER;
10719: l_lookup_meaning FND_LOOKUPS.MEANING%TYPE;
10720: l_lookup_code FND_LOOKUPS.LOOKUP_CODE%TYPE;
10721: l_cur_id NUMBER;
10770: FROM PN_OPTIONS_ALL
10771: where option_id = p_option_id;
10772: lcu_option_rec c_option%ROWTYPE;
10773: BEGIN
10774: l_return_status := fnd_api.g_ret_sts_success ;
10775: pvt_debug(g_pkg_name||'Inside VALIDATE_OPTION_FOR_UPDATE',3);
10776: For l_index in p_option_tbl.FIRST..p_option_tbl.LAST LOOP
10777: BEGIN
10778: l_tbl_index := l_index;
10782: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10783: fnd_message.set_token ('API_NAME', l_api_name);
10784: fnd_message.set_token ('NULL_PARAM', 'OPTION ID: NULL');
10785: fnd_msg_pub.ADD;
10786: RAISE fnd_api.g_exc_error;
10787: ELSE
10788: l_tbl_flag := 2;
10789: l_cur_id := p_option_tbl(l_index).option_id;
10790:
10843: , x_return_status => x_return_status
10844: , x_lookup_type_code => p_option_tbl(l_index).option_type_code
10845: );
10846:
10847: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10848: --l_error_flag:='Y';
10849: l_tbl_flag := 0;
10850: ----------------------dbms_output.put_line('In :1 '||x_return_status);
10851: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10852: fnd_message.set_token ('LOOKUP_TYPE', l_pn_lease_option_type);
10853: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_type));
10854: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_type_code));
10855: fnd_msg_pub.ADD;
10856: RAISE fnd_api.g_exc_error;
10857: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10858: --l_error_flag:='Y';
10859: l_tbl_flag := 0;
10860: --------------------dbms_output.put_line('In :2 '||x_return_status);
10853: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_type));
10854: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_type_code));
10855: fnd_msg_pub.ADD;
10856: RAISE fnd_api.g_exc_error;
10857: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10858: --l_error_flag:='Y';
10859: l_tbl_flag := 0;
10860: --------------------dbms_output.put_line('In :2 '||x_return_status);
10861: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10861: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10862: fnd_message.set_token ('COLUMN', SUBSTR(l_param_option_type,3));
10863: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10864: fnd_msg_pub.ADD;
10865: RAISE fnd_api.g_exc_unexpected_error;
10866: END IF;
10867: ELSIF(p_option_tbl(l_index).option_type IS NULL OR p_option_tbl(l_index).option_type_code IS NULL) THEN
10868: l_tbl_flag := 0;
10869: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10869: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10870: fnd_message.set_token ('API_NAME', l_api_name);
10871: fnd_message.set_token ('NULL_PARAM', l_param_option_type);
10872: fnd_msg_pub.ADD;
10873: RAISE fnd_api.g_exc_error;
10874: ELSE
10875: p_option_tbl(l_index).option_type_code := lcu_option_rec.option_type_code;
10876: END IF;
10877: -----------------------------------------------------------------------------------------------------------------------------------------------
10884: , p_lookup_type => l_pn_option_status_type
10885: , x_return_status => x_return_status
10886: , x_lookup_type_code => p_option_tbl(l_index).option_status_lookup_code
10887: );
10888: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10889: --l_error_flag:='Y';
10890: l_tbl_flag := 0;
10891: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10892: fnd_message.set_token ('LOOKUP_TYPE', l_pn_option_status_type);
10892: fnd_message.set_token ('LOOKUP_TYPE', l_pn_option_status_type);
10893: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_status_type));
10894: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_status_lookup_code));
10895: fnd_msg_pub.ADD;
10896: RAISE fnd_api.g_exc_error;
10897: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10898: --l_error_flag:='Y';
10899: l_tbl_flag := 0;
10900: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10893: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_status_type));
10894: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_status_lookup_code));
10895: fnd_msg_pub.ADD;
10896: RAISE fnd_api.g_exc_error;
10897: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10898: --l_error_flag:='Y';
10899: l_tbl_flag := 0;
10900: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10901: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status_type,3));
10900: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10901: fnd_message.set_token ('COLUMN', SUBSTR(l_param_status_type,3));
10902: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10903: fnd_msg_pub.ADD;
10904: RAISE fnd_api.g_exc_unexpected_error;
10905: END IF;
10906: ELSIF(p_option_tbl(l_index).option_status_type IS NULL OR p_option_tbl(l_index).option_status_lookup_code IS NULL) THEN
10907: l_tbl_flag := 0;
10908: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10908: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
10909: fnd_message.set_token ('API_NAME', l_api_name);
10910: fnd_message.set_token ('NULL_PARAM', l_pn_option_status_type);
10911: fnd_msg_pub.ADD;
10912: RAISE fnd_api.g_exc_error;
10913: ELSE
10914: p_option_tbl(l_index).option_status_lookup_code:= lcu_option_rec.option_status_lookup_code;
10915: END IF;
10916: ---------------------------------------------------------------------------------------------------------------------------------------------
10930: , p_lookup_type => l_pn_yes_no
10931: , x_return_status => x_return_status
10932: , x_lookup_type_code => p_option_tbl(l_index).option_notice_reqd
10933: );
10934: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10935: --l_error_flag:='Y';
10936: l_tbl_flag := 0;
10937: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10938: fnd_message.set_token ('LOOKUP_TYPE', l_pn_yes_no);
10938: fnd_message.set_token ('LOOKUP_TYPE', l_pn_yes_no);
10939: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd_type));
10940: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd));
10941: fnd_msg_pub.ADD;
10942: RAISE fnd_api.g_exc_error;
10943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10944: --l_error_flag:='Y';
10945: l_tbl_flag := 0;
10946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10939: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd_type));
10940: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).option_notice_reqd));
10941: fnd_msg_pub.ADD;
10942: RAISE fnd_api.g_exc_error;
10943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10944: --l_error_flag:='Y';
10945: l_tbl_flag := 0;
10946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10947: fnd_message.set_token ('COLUMN', SUBSTR(l_param_notice_given_type,3));
10946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10947: fnd_message.set_token ('COLUMN', SUBSTR(l_param_notice_given_type,3));
10948: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10949: fnd_msg_pub.ADD;
10950: RAISE fnd_api.g_exc_unexpected_error;
10951: END IF;
10952: ELSIF(p_option_tbl(l_index).option_notice_reqd_type IS NULL OR p_option_tbl(l_index).option_notice_reqd IS NULL) THEN
10953: p_option_tbl(l_index).option_notice_reqd := NULL;
10954: ELSE
10964: , p_lookup_type => l_pn_units_of_measures
10965: , x_return_status => x_return_status
10966: , x_lookup_type_code => p_option_tbl(l_index).uom_code
10967: );
10968: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
10969: --l_error_flag:='Y';
10970: l_tbl_flag := 0;
10971: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
10972: fnd_message.set_token ('LOOKUP_TYPE', l_pn_units_of_measures);
10972: fnd_message.set_token ('LOOKUP_TYPE', l_pn_units_of_measures);
10973: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).uom_type));
10974: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).uom_code));
10975: fnd_msg_pub.ADD;
10976: RAISE fnd_api.g_exc_error;
10977: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10978: --l_error_flag:='Y';
10979: l_tbl_flag := 0;
10980: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10973: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_option_tbl(l_index).uom_type));
10974: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_option_tbl(l_index).uom_code));
10975: fnd_msg_pub.ADD;
10976: RAISE fnd_api.g_exc_error;
10977: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10978: --l_error_flag:='Y';
10979: l_tbl_flag := 0;
10980: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10981: fnd_message.set_token ('COLUMN', SUBSTR(l_param_uom_type,3));
10980: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
10981: fnd_message.set_token ('COLUMN', SUBSTR(l_param_uom_type,3));
10982: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
10983: fnd_msg_pub.ADD;
10984: RAISE fnd_api.g_exc_unexpected_error;
10985: END IF;
10986: ELSIF( p_option_tbl(l_index).uom_type IS NULL OR p_option_tbl(l_index).uom_code IS NULL) THEN
10987: p_option_tbl(l_index).uom_code := NULL;
10988: ELSE
11001: , p_lease_term_date => p_option_tbl(l_index).expiration_date
11002: , x_return_status => x_return_status
11003: );
11004: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_CREATE:Validate Cross Lease dates Return Status'||x_return_status,3);
11005: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11006: l_tbl_flag := 0;
11007: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
11008: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
11009: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
11007: fnd_message.set_name ('PN','PN_INVALID_TERMINATION_DT');
11008: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
11009: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
11010: fnd_msg_pub.ADD;
11011: RAISE fnd_api.g_exc_error;
11012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11013: l_tbl_flag := 0;
11014: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11015: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
11008: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_option_tbl(l_index).expiration_date));
11009: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_option_tbl(l_index).start_date));
11010: fnd_msg_pub.ADD;
11011: RAISE fnd_api.g_exc_error;
11012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11013: l_tbl_flag := 0;
11014: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11015: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
11016: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
11014: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11015: fnd_message.set_token ('COLUMN', SUBSTR(l_param_start_end_options_date,3));
11016: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
11017: fnd_msg_pub.ADD;
11018: RAISE fnd_api.g_exc_unexpected_error;
11019: END IF;
11020: ELSIF(p_option_tbl(l_index).start_date IS NULL OR p_option_tbl(l_index).expiration_date IS NULL ) THEN
11021: p_option_tbl(l_index).start_date := NULL;
11022: p_option_tbl(l_index).expiration_date := NULL;
11149: , p_resp_appl_id => fnd_global.resp_appl_id
11150: , p_resp_id => fnd_global.resp_id
11151: , p_return_status => x_return_status
11152: );
11153: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
11154: l_tbl_flag := 0;
11155: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11156: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11157: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11155: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11156: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11157: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11158: fnd_msg_pub.ADD;
11159: RAISE fnd_api.g_exc_error;
11160: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11161: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11162: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11163: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11156: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11157: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11158: fnd_msg_pub.ADD;
11159: RAISE fnd_api.g_exc_error;
11160: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11161: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11162: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11163: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11164: fnd_msg_pub.ADD;
11161: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
11162: fnd_message.set_token ('COLUMN', 'PN_OPTIONS_DESC_FIELDS');
11163: fnd_message.set_token ('P_TEXT', 'PN_OPTIONS'|| '-'|| SQLERRM);
11164: fnd_msg_pub.ADD;
11165: RAISE fnd_api.g_exc_unexpected_error;
11166: END IF;
11167: -- END IF;
11168: CLOSE c_option;
11169: ----------------------dbms_output.put_line ('VALIDATIONS FOR option UPDATE COMPLETED');--Rupak
11169: ----------------------dbms_output.put_line ('VALIDATIONS FOR option UPDATE COMPLETED');--Rupak
11170: END IF;
11171: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
11172: EXCEPTION
11173: WHEN fnd_api.g_exc_error THEN
11174: l_error_count_err := l_error_count_err+1;
11175: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
11176: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
11177: WHEN OTHERS THEN
11171: l_tbl(l_tbl_index).temp_flag := l_tbl_flag;
11172: EXCEPTION
11173: WHEN fnd_api.g_exc_error THEN
11174: l_error_count_err := l_error_count_err+1;
11175: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
11176: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
11177: WHEN OTHERS THEN
11178: l_error_count_uerr := l_error_count_uerr+1;
11179: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
11172: EXCEPTION
11173: WHEN fnd_api.g_exc_error THEN
11174: l_error_count_err := l_error_count_err+1;
11175: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
11176: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_UPDATE:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
11177: WHEN OTHERS THEN
11178: l_error_count_uerr := l_error_count_uerr+1;
11179: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
11180: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
11180: pvt_debug(g_pkg_name||'-VALIDATE_OPTION_FOR_UPDATE:LOOOPING:EXCEPTION:'||SQLERRM,3);
11181: END;
11182: END LOOP;
11183: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
11184: x_return_status := fnd_api.g_ret_sts_error;
11185: ELSE
11186: x_return_status := fnd_api.g_ret_sts_success;
11187: END IF;
11188: x_tbl := l_tbl;
11182: END LOOP;
11183: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
11184: x_return_status := fnd_api.g_ret_sts_error;
11185: ELSE
11186: x_return_status := fnd_api.g_ret_sts_success;
11187: END IF;
11188: x_tbl := l_tbl;
11189:
11190: EXCEPTION
11188: x_tbl := l_tbl;
11189:
11190: EXCEPTION
11191: WHEN OTHERS THEN
11192: x_return_status := fnd_api.g_ret_sts_unexp_error;
11193: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
11194: pvt_debug(g_pkg_name||'VALIDATE_OPTION_FOR_UPDATE:Exception:'||SQLERRM,3);
11195: END VALIDATE_OPTION_FOR_UPDATE;
11196:
11203: ,p_commit IN VARCHAR2
11204: ,p_validate IN VARCHAR2
11205: )
11206: IS
11207: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11208: l_index BINARY_INTEGER;
11209: l_option_id PN_OPTIONS_ALL.OPTION_ID%type;
11210: x_msg_count NUMBER ;
11211: x_msg_data VARCHAR2(2000) ;
11289: END IF;
11290:
11291: END IF;
11292: EXCEPTION
11293: WHEN fnd_api.g_exc_error THEN
11294: l_error_count_err := l_error_count_err+1;
11295: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
11296: WHEN OTHERS THEN
11297: l_error_count_uerr := l_error_count_uerr+1;
11291: END IF;
11292: EXCEPTION
11293: WHEN fnd_api.g_exc_error THEN
11294: l_error_count_err := l_error_count_err+1;
11295: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
11296: WHEN OTHERS THEN
11297: l_error_count_uerr := l_error_count_uerr+1;
11298: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
11299: pvt_debug(g_pkg_name||'-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
11300: END;
11301: END LOOP;
11302: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
11303: --------------------dbms_output.put_line('OPTION_UPDATE_ROW:COUNT:'||l_error_count_err||l_error_count_uerr);
11304: x_return_status := fnd_api.g_ret_sts_error;
11305: ELSE
11306: x_return_status := fnd_api.g_ret_sts_success;
11307: END IF;
11308:
11302: IF ( l_error_count_err <> 0 OR l_error_count_uerr <> 0) THEN
11303: --------------------dbms_output.put_line('OPTION_UPDATE_ROW:COUNT:'||l_error_count_err||l_error_count_uerr);
11304: x_return_status := fnd_api.g_ret_sts_error;
11305: ELSE
11306: x_return_status := fnd_api.g_ret_sts_success;
11307: END IF;
11308:
11309:
11310: EXCEPTION
11308:
11309:
11310: EXCEPTION
11311: WHEN OTHERS THEN
11312: x_return_status := fnd_api.g_ret_sts_unexp_error;
11313: pvt_debug(g_pkg_name||'OPTION_UPDATE_ROW:Exception:'||SQLERRM,3);
11314: END OPTION_UPDATE_ROW;
11315:
11316: PROCEDURE UPDATE_OPTION (
11323: -- , x_msg_count OUT NUMBER
11324: -- , x_msg_data OUT VARCHAR2
11325: )
11326: IS
11327: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
11328: l_msg_count NUMBER ;
11329: l_msg_data VARCHAR2(2000) ;
11330: x_out_tbl temp_tbl_type;
11331: p_option_tbl_create lease_option_tbl_type;
11333: m NUMBER;
11334: n NUMBER;
11335: l_err_option_cnt NUMBER:=0;
11336: BEGIN
11337: x_return_status := fnd_api.g_ret_sts_success;
11338: ----------------------dbms_output.put_line('In UPDATE_OPTION:1');--Rupak
11339: m:=1;
11340: n:=1;
11341: FOR i IN 1..p_option_tbl.COUNT
11364: ,x_return_status => x_return_status
11365: ,p_commit => p_commit
11366: );
11367: ----------------------dbms_output.put_line('In UPDATE_OPTION:2'||x_return_status||p_validate);--Rupak
11368: IF NVL(p_validate,'F') <> 'T' and x_return_status = fnd_api.g_ret_sts_success THEN
11369:
11370: ----------------------dbms_output.put_line ('CALLING UPDATE PROCEDURE OF OPTIONS');--Rupak
11371: pvt_debug(g_pkg_name||'Inside UPDATE_OPTION',3);
11372: OPTION_UPDATE_ROW(
11380: );
11381: pvt_debug(g_pkg_name||'UPDATE_OPTION:OPTION_UPDATE_ROW Return Status:'||x_return_status,3);
11382: ----------------------dbms_output.put_line('In UPDATE_OPTION:3'||x_return_status);--Rupak
11383:
11384: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11385: --x_return_status := fnd_api.g_ret_sts_unexp_error;
11386: l_err_option_cnt := l_err_option_cnt + 1;
11387: ELSE
11388: --x_return_status := fnd_api.g_ret_sts_error;
11381: pvt_debug(g_pkg_name||'UPDATE_OPTION:OPTION_UPDATE_ROW Return Status:'||x_return_status,3);
11382: ----------------------dbms_output.put_line('In UPDATE_OPTION:3'||x_return_status);--Rupak
11383:
11384: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11385: --x_return_status := fnd_api.g_ret_sts_unexp_error;
11386: l_err_option_cnt := l_err_option_cnt + 1;
11387: ELSE
11388: --x_return_status := fnd_api.g_ret_sts_error;
11389: l_err_option_cnt := l_err_option_cnt + 1;
11384: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11385: --x_return_status := fnd_api.g_ret_sts_unexp_error;
11386: l_err_option_cnt := l_err_option_cnt + 1;
11387: ELSE
11388: --x_return_status := fnd_api.g_ret_sts_error;
11389: l_err_option_cnt := l_err_option_cnt + 1;
11390: END IF;
11391: END IF;
11392: IF(p_option_tbl_create.COUNT > 0) THEN
11397: );
11398:
11399: pvt_debug(g_pkg_name||'Inside UPUDATE_OPTION:VALIDATE_OPTION_FOR_CREATE Return Status'||x_return_status,3);
11400: --------------------dbms_output.put_line('OPTIONS:x_return_status'||x_return_status);--OOPS
11401: IF (NVL(p_validate,'F') <> 'T' AND x_return_status = fnd_api.g_ret_sts_success)THEN
11402: OPTION_INSERT_ROW( p_option_tbl => p_option_tbl_create
11403: ,p_lease_id => p_lease_id
11404: ,p_lease_change_id => p_lease_change_id
11405: ,x_return_status => x_return_status
11408: ,p_validate => p_validate
11409: );
11410: pvt_debug(g_pkg_name||'Inside UPDATE_OPTION:OPTION_INSERT_ROW Return Status'||x_return_status,3);
11411: --------------------dbms_output.put_line('OPTIONS:x_return_status:OPTION_INSERT_ROW:'||x_return_status);--OOPS
11412: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11413: --RAISE fnd_api.g_exc_error;
11414: l_err_option_cnt := l_err_option_cnt + 1;
11415: END IF;
11416: ELSE
11409: );
11410: pvt_debug(g_pkg_name||'Inside UPDATE_OPTION:OPTION_INSERT_ROW Return Status'||x_return_status,3);
11411: --------------------dbms_output.put_line('OPTIONS:x_return_status:OPTION_INSERT_ROW:'||x_return_status);--OOPS
11412: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11413: --RAISE fnd_api.g_exc_error;
11414: l_err_option_cnt := l_err_option_cnt + 1;
11415: END IF;
11416: ELSE
11417: --RAISE fnd_api.g_exc_error;
11413: --RAISE fnd_api.g_exc_error;
11414: l_err_option_cnt := l_err_option_cnt + 1;
11415: END IF;
11416: ELSE
11417: --RAISE fnd_api.g_exc_error;
11418: l_err_option_cnt := l_err_option_cnt + 1;
11419: END IF;
11420:
11421: END IF;
11419: END IF;
11420:
11421: END IF;
11422: IF(l_err_option_cnt = 0) THEN
11423: x_return_status := fnd_api.g_ret_sts_success;
11424: ELSE
11425: x_return_status := fnd_api.g_ret_sts_error;
11426: END IF;
11427: EXCEPTION
11421: END IF;
11422: IF(l_err_option_cnt = 0) THEN
11423: x_return_status := fnd_api.g_ret_sts_success;
11424: ELSE
11425: x_return_status := fnd_api.g_ret_sts_error;
11426: END IF;
11427: EXCEPTION
11428: WHEN OTHERS THEN
11429: x_return_status := fnd_api.g_ret_sts_unexp_error;
11425: x_return_status := fnd_api.g_ret_sts_error;
11426: END IF;
11427: EXCEPTION
11428: WHEN OTHERS THEN
11429: x_return_status := fnd_api.g_ret_sts_unexp_error;
11430: pvt_debug(g_pkg_name||'UPDATE_OPTION:Exception:'||SQLERRM,3);
11431: ----------------------dbms_output.put_line('CREATION OF OPTION FAILED');
11432: END UPDATE_OPTION;
11433:
11470: , p_lease_context => p_lease_context
11471: , x_return_status => x_return_status);
11472: pvt_debug(g_pkg_name||'-CREATE_LEASE:VALIDATE_LEASE_REC Return Status:'||x_return_status,3);
11473: ----------------------dbms_output.put_line('In Private: Create Lease:After validate_lease_rec'||x_return_status);--Rupak
11474: IF (x_return_status = fnd_api.g_ret_sts_error)
11475: THEN
11476: l_error_count := l_error_count+1;
11477: RAISE fnd_api.g_exc_error;
11478: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11473: ----------------------dbms_output.put_line('In Private: Create Lease:After validate_lease_rec'||x_return_status);--Rupak
11474: IF (x_return_status = fnd_api.g_ret_sts_error)
11475: THEN
11476: l_error_count := l_error_count+1;
11477: RAISE fnd_api.g_exc_error;
11478: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11479: THEN
11480: l_error_count := l_error_count+1;
11481: RAISE fnd_api.g_exc_unexpected_error;
11474: IF (x_return_status = fnd_api.g_ret_sts_error)
11475: THEN
11476: l_error_count := l_error_count+1;
11477: RAISE fnd_api.g_exc_error;
11478: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11479: THEN
11480: l_error_count := l_error_count+1;
11481: RAISE fnd_api.g_exc_unexpected_error;
11482: END IF;
11477: RAISE fnd_api.g_exc_error;
11478: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11479: THEN
11480: l_error_count := l_error_count+1;
11481: RAISE fnd_api.g_exc_unexpected_error;
11482: END IF;
11483: --g_class_code := p_lease_rec.lease_class_code;
11484: IF x_return_status=fnd_api.g_ret_sts_success
11485: AND NVL(p_validate,'F')<>'T'
11480: l_error_count := l_error_count+1;
11481: RAISE fnd_api.g_exc_unexpected_error;
11482: END IF;
11483: --g_class_code := p_lease_rec.lease_class_code;
11484: IF x_return_status=fnd_api.g_ret_sts_success
11485: AND NVL(p_validate,'F')<>'T'
11486: THEN
11487: ----------------------dbms_output.put_line('In Create lease procedure before calling LEASE_INSERT_ROW');--Rupak
11488:
11489: lease_insert_row ( p_lease_rec => p_lease_rec
11490: , p_lease_exp_rev_accounts_rec => p_lease_exp_rev_accounts_rec
11491: , p_lease_accrual_account_rec => p_lease_accrual_account_rec
11492: , p_lease_liab_rcvl_account_rec => p_lease_liab_rcvl_account_rec
11493: , p_location_exist => fnd_api.g_false
11494: , p_lease_context => p_lease_context
11495: , x_return_status => x_return_status);
11496: pvt_debug(g_pkg_name||'-CREATE_LEASE:LEASE_INSERT_ROW Return Status:'||x_return_status,3);
11497: IF (x_return_status = fnd_api.g_ret_sts_error)
11493: , p_location_exist => fnd_api.g_false
11494: , p_lease_context => p_lease_context
11495: , x_return_status => x_return_status);
11496: pvt_debug(g_pkg_name||'-CREATE_LEASE:LEASE_INSERT_ROW Return Status:'||x_return_status,3);
11497: IF (x_return_status = fnd_api.g_ret_sts_error)
11498: THEN
11499: RAISE fnd_api.g_exc_error;
11500: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11501: THEN
11495: , x_return_status => x_return_status);
11496: pvt_debug(g_pkg_name||'-CREATE_LEASE:LEASE_INSERT_ROW Return Status:'||x_return_status,3);
11497: IF (x_return_status = fnd_api.g_ret_sts_error)
11498: THEN
11499: RAISE fnd_api.g_exc_error;
11500: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11501: THEN
11502: RAISE fnd_api.g_exc_unexpected_error;
11503: END IF;
11496: pvt_debug(g_pkg_name||'-CREATE_LEASE:LEASE_INSERT_ROW Return Status:'||x_return_status,3);
11497: IF (x_return_status = fnd_api.g_ret_sts_error)
11498: THEN
11499: RAISE fnd_api.g_exc_error;
11500: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11501: THEN
11502: RAISE fnd_api.g_exc_unexpected_error;
11503: END IF;
11504: END IF;
11498: THEN
11499: RAISE fnd_api.g_exc_error;
11500: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11501: THEN
11502: RAISE fnd_api.g_exc_unexpected_error;
11503: END IF;
11504: END IF;
11505:
11506: --BEGIN
11515: );
11516: ----------------------dbms_output.put_line('After calling validate_contacts_tbl'||x_return_status);--Rupak
11517: pvt_debug(g_pkg_name||'-CREATE_LEASE:VALIDATE_CONTACTS_TBL Return Status:'||x_return_status,3);
11518:
11519: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11520: l_error_count := l_error_count+1;
11521: END IF;
11522: END IF;
11523: /*ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN--RHIA
11519: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11520: l_error_count := l_error_count+1;
11521: END IF;
11522: END IF;
11523: /*ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN--RHIA
11524: /*--------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_error:'||x_return_status);--Rupak
11525: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
11526: , p_count => x_msg_count
11527: , p_data => x_msg_data
11520: l_error_count := l_error_count+1;
11521: END IF;
11522: END IF;
11523: /*ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN--RHIA
11524: /*--------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_error:'||x_return_status);--Rupak
11525: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
11526: , p_count => x_msg_count
11527: , p_data => x_msg_data
11528: );
11521: END IF;
11522: END IF;
11523: /*ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN--RHIA
11524: /*--------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_error:'||x_return_status);--Rupak
11525: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
11526: , p_count => x_msg_count
11527: , p_data => x_msg_data
11528: );
11529: --------------------dbms_output.put_line('123:contacts:x_msg_data:'||x_msg_data);--Rupak
11527: , p_data => x_msg_data
11528: );
11529: --------------------dbms_output.put_line('123:contacts:x_msg_data:'||x_msg_data);--Rupak
11530: --------------------dbms_output.put_line('123:contacts:x_msg_count'||x_msg_count);--Rupak
11531: -- RAISE fnd_api.g_exc_error;
11532: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11533: THEN
11534: --------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_unexp_error:'||x_return_status);--Rupak
11535: RAISE fnd_api.g_exc_unexpected_error;
11528: );
11529: --------------------dbms_output.put_line('123:contacts:x_msg_data:'||x_msg_data);--Rupak
11530: --------------------dbms_output.put_line('123:contacts:x_msg_count'||x_msg_count);--Rupak
11531: -- RAISE fnd_api.g_exc_error;
11532: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11533: THEN
11534: --------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_unexp_error:'||x_return_status);--Rupak
11535: RAISE fnd_api.g_exc_unexpected_error;
11536: END IF;*/
11530: --------------------dbms_output.put_line('123:contacts:x_msg_count'||x_msg_count);--Rupak
11531: -- RAISE fnd_api.g_exc_error;
11532: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11533: THEN
11534: --------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_unexp_error:'||x_return_status);--Rupak
11535: RAISE fnd_api.g_exc_unexpected_error;
11536: END IF;*/
11537: /*EXCEPTION
11538: WHEN OTHERS THEN
11531: -- RAISE fnd_api.g_exc_error;
11532: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11533: THEN
11534: --------------------dbms_output.put_line('After calling validate_contacts_tbl:fnd_api.g_ret_sts_unexp_error:'||x_return_status);--Rupak
11535: RAISE fnd_api.g_exc_unexpected_error;
11536: END IF;*/
11537: /*EXCEPTION
11538: WHEN OTHERS THEN
11539: --------------------dbms_output.put_line('EXCEPTION:After calling validate_contacts_tbl'||SQLERRM);--Rupak
11554: , x_return_status => x_return_status
11555: );
11556: pvt_debug(g_pkg_name||'-CREATE_LEASE:VALIDATE_TENANCIES_TBL Return Status:'||x_return_status,3);
11557:
11558: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11559: l_error_count := l_error_count+1;
11560: END IF;
11561: END IF;
11562: /*IF (x_return_status = fnd_api.g_ret_sts_error)
11558: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11559: l_error_count := l_error_count+1;
11560: END IF;
11561: END IF;
11562: /*IF (x_return_status = fnd_api.g_ret_sts_error)
11563: THEN
11564: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
11565: , p_count => x_msg_count
11566: , p_data => x_msg_data
11560: END IF;
11561: END IF;
11562: /*IF (x_return_status = fnd_api.g_ret_sts_error)
11563: THEN
11564: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
11565: , p_count => x_msg_count
11566: , p_data => x_msg_data
11567: );
11568: --------------------dbms_output.put_line('123:tenancies:x_msg_data:'||x_msg_data);--Rupak
11566: , p_data => x_msg_data
11567: );
11568: --------------------dbms_output.put_line('123:tenancies:x_msg_data:'||x_msg_data);--Rupak
11569: --------------------dbms_output.put_line('123:tenancies:x_msg_count:'||x_msg_count);--Rupak
11570: --RAISE fnd_api.g_exc_error;
11571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11572: THEN
11573: RAISE fnd_api.g_exc_unexpected_error;
11574: END IF;*/
11567: );
11568: --------------------dbms_output.put_line('123:tenancies:x_msg_data:'||x_msg_data);--Rupak
11569: --------------------dbms_output.put_line('123:tenancies:x_msg_count:'||x_msg_count);--Rupak
11570: --RAISE fnd_api.g_exc_error;
11571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11572: THEN
11573: RAISE fnd_api.g_exc_unexpected_error;
11574: END IF;*/
11575:
11569: --------------------dbms_output.put_line('123:tenancies:x_msg_count:'||x_msg_count);--Rupak
11570: --RAISE fnd_api.g_exc_error;
11571: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11572: THEN
11573: RAISE fnd_api.g_exc_unexpected_error;
11574: END IF;*/
11575:
11576: ----------dbms_output.put_line(' B4 Calling Create Terms'||p_lease_context);--Rupak
11577: IF p_lease_payment_term_tbl.count<>0 THEN
11585: , x_return_status => x_return_status
11586: , x_msg_count => x_msg_count
11587: , x_msg_data => x_msg_data
11588: );
11589: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11590: l_error_count := l_error_count+1;
11591: END IF;
11592: ----------------------dbms_output.put_line('After CallingCreate Terms;x_return_status'||x_return_status);--Rupak
11593: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_TERMS Return Status:'||x_return_status,3);
11606: -- , x_msg_data => x_msg_data
11607: );
11608: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_NOTE Return Status:'||x_return_status,3);
11609:
11610: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11611: l_error_count := l_error_count+1;
11612: END IF;
11613: END IF;
11614: ----------------------dbms_output.put_line('B4 Calling Create Rights:'||p_right_tbl.count);--Rupak
11624: -- , x_msg_data OUT VARCHAR2
11625: );
11626: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_RIGHT Return Status:'||x_return_status,3);
11627:
11628: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11629: l_error_count := l_error_count+1;
11630: END IF;
11631: END IF;
11632: ----------------------dbms_output.put_line('B4 Calling Create Obligation:'||p_obligation_tbl.count);--Rupak
11643: -- x_msg_data OUT VARCHAR2
11644: );
11645: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_OBLIGATION Return Status:'||x_return_status,3);
11646:
11647: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11648: l_error_count := l_error_count+1;
11649: END IF;
11650: END IF;
11651: IF p_insurance_tbl.count<>0 THEN
11661: );
11662: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_INSURANCE Return Status:'||x_return_status,3);
11663:
11664:
11665: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11666: l_error_count := l_error_count+1;
11667: END IF;
11668: END IF;
11669: IF p_option_tbl.count<>0 THEN
11678: -- , x_msg_data OUT VARCHAR2
11679: );
11680: pvt_debug(g_pkg_name||'-CREATE_LEASE:CREATE_OPTION Return Status:'||x_return_status,3);
11681:
11682: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11683: l_error_count := l_error_count+1;
11684: END IF;
11685: END IF;
11686: ------------------dbms_output.put_line('Error Count:'||l_error_count);
11684: END IF;
11685: END IF;
11686: ------------------dbms_output.put_line('Error Count:'||l_error_count);
11687: IF (l_error_count = 0) THEN
11688: x_return_status := fnd_api.g_ret_sts_success;
11689: ELSE
11690: x_return_status := fnd_api.g_ret_sts_error;
11691: END IF;
11692: ---------------------------------------------------SUNITA'S CODE ENDS --------------------
11686: ------------------dbms_output.put_line('Error Count:'||l_error_count);
11687: IF (l_error_count = 0) THEN
11688: x_return_status := fnd_api.g_ret_sts_success;
11689: ELSE
11690: x_return_status := fnd_api.g_ret_sts_error;
11691: END IF;
11692: ---------------------------------------------------SUNITA'S CODE ENDS --------------------
11693:
11694:
11694:
11695:
11696: EXCEPTION
11697: WHEN OTHERS THEN
11698: x_return_status := fnd_api.g_ret_sts_unexp_error;
11699: pvt_debug(g_pkg_name||'-CREATE_LEASE:Exception:'||SQLERRM,3);
11700: RAISE;
11701: END create_lease;
11702:
11824: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
11825: fnd_message.set_token ('API_NAME', p_api_name
11826: || '-SubmitSchedulesConcProgram');
11827: fnd_msg_pub.ADD;
11828: RAISE fnd_api.g_exc_error;
11829: END IF;
11830:
11831: RETURN l_requestid;
11832: END submit_program;
11835: /* Update Lease API*/
11836:
11837: PROCEDURE update_lease (
11838: p_api_version IN NUMBER
11839: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
11840: , p_commit IN VARCHAR2 := fnd_api.g_false
11841: , p_validate IN VARCHAR2 := fnd_api.g_false
11842: , p_lease_rec IN OUT NOCOPY lease_rec
11843: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY lease_account_rec
11836:
11837: PROCEDURE update_lease (
11838: p_api_version IN NUMBER
11839: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
11840: , p_commit IN VARCHAR2 := fnd_api.g_false
11841: , p_validate IN VARCHAR2 := fnd_api.g_false
11842: , p_lease_rec IN OUT NOCOPY lease_rec
11843: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY lease_account_rec
11844: , p_lease_accrual_account_rec IN OUT NOCOPY lease_account_rec
11837: PROCEDURE update_lease (
11838: p_api_version IN NUMBER
11839: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
11840: , p_commit IN VARCHAR2 := fnd_api.g_false
11841: , p_validate IN VARCHAR2 := fnd_api.g_false
11842: , p_lease_rec IN OUT NOCOPY lease_rec
11843: , p_lease_exp_rev_accounts_rec IN OUT NOCOPY lease_account_rec
11844: , p_lease_accrual_account_rec IN OUT NOCOPY lease_account_rec
11845: , p_lease_liab_rcvl_account_rec IN OUT NOCOPY lease_account_rec
11975: -- Standard start of API savepoint
11976: SAVEPOINT update_lease_pvt;
11977:
11978: -- Initialize message list if p_init_msg_list is set to TRUE
11979: IF fnd_api.to_boolean (p_init_msg_list)
11980: THEN
11981: fnd_msg_pub.initialize;
11982: END IF;
11983:
11996: fnd_message.set_name ('PN', 'PN_INVALID_LEASE');
11997: fnd_message.set_token ('API_NAME', l_api_name_full);
11998: fnd_message.set_token ('LEASE_ID', p_lease_rec.lease_id);
11999: fnd_msg_pub.ADD;
12000: x_return_status := fnd_api.g_ret_sts_error;
12001: ELSE
12002: -- --------------------dbms_output.put_line('In Update Private 3');--Rupak
12003: l_lease_status := l_lease_hdr_rec.lease_status;
12004: l_payment_term_proration_rule := l_lease_hdr_rec.payment_term_proration_rule;
12049: , x_return_status => x_return_status
12050: );
12051: pvt_debug(g_pkg_name||'-UPDATE_LEASE:Lease Type Code'||p_lease_rec.lease_type_code,3);
12052: l_lease_hdr_rec.lease_type_code := p_lease_rec.lease_type_code;
12053: IF (x_return_status = fnd_api.g_ret_sts_error)
12054: THEN
12055: --l_lease_hdr_rec.lease_type_code := p_lease_rec.lease_type_code;
12056: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12057: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leasetype_lookup_type));
12057: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_leasetype_lookup_type));
12058: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_type));
12059: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_type_code));
12060: fnd_msg_pub.ADD;
12061: RAISE fnd_api.g_exc_error;
12062:
12063: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12064: THEN
12065: --l_lease_hdr_rec.lease_type_code := p_lease_rec.lease_type_code;
12059: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_type_code));
12060: fnd_msg_pub.ADD;
12061: RAISE fnd_api.g_exc_error;
12062:
12063: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12064: THEN
12065: --l_lease_hdr_rec.lease_type_code := p_lease_rec.lease_type_code;
12066: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12067: fnd_message.set_token ('COLUMN', SUBSTR(l_leasetype_lookup_type,3));
12066: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12067: fnd_message.set_token ('COLUMN', SUBSTR(l_leasetype_lookup_type,3));
12068: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12069: fnd_msg_pub.ADD;
12070: RAISE fnd_api.g_exc_unexpected_error;
12071: END IF;
12072: END IF;
12073:
12074: --Customer Validation
12086: );
12087: l_lease_hdr_rec.customer_id := p_lease_rec.customer_id;
12088: ------------------dbms_output.put_line ( 'GET_CUSTOMER_ID: '|| p_lease_rec.customer_id);--Rupak
12089: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Customer ID:'||l_lease_hdr_rec.customer_id,3);
12090: IF (x_return_status = fnd_api.g_ret_sts_error)
12091: THEN
12092: --l_error_flag:='Y';
12093: ----------------------dbms_output.put_line ('PVT:1');--Rupak
12094: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
12094: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
12095: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_rec.customer_name));
12096: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_rec.customer_id));
12097: fnd_msg_pub.ADD;
12098: RAISE fnd_api.g_exc_error;
12099: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12100: THEN
12101: --l_error_flag:='Y';
12102: /*--------------------dbms_output.put_line ('PVT:2');--Rupak*/
12095: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_lease_rec.customer_name));
12096: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_lease_rec.customer_id));
12097: fnd_msg_pub.ADD;
12098: RAISE fnd_api.g_exc_error;
12099: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12100: THEN
12101: --l_error_flag:='Y';
12102: /*--------------------dbms_output.put_line ('PVT:2');--Rupak*/
12103: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12103: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12104: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_customer,3));
12105: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12106: fnd_msg_pub.ADD;
12107: RAISE fnd_api.g_exc_unexpected_error;
12108: END IF;
12109: ELSIF(p_lease_rec.customer_name IS NULL OR p_lease_rec.customer_id IS NULL) THEN
12110: l_lease_hdr_rec.customer_id := NULL;
12111: END IF;
12132: );
12133: ----------------------dbms_output.put_line('-UPDATE_LEASE:ABSTRACTED_BY_USERNAME:'||p_lease_rec.abstracted_by_user_id);--Rupak
12134: pvt_debug(g_pkg_name||'-UPDATE_LEASE:ABSTRACTED_BY_USERNAME:'||p_lease_rec.abstracted_by_user_id,3);
12135: l_lease_hdr_rec.abstracted_by_user := p_lease_rec.abstracted_by_user_id;
12136: IF (x_return_status = fnd_api.g_ret_sts_error)
12137: THEN
12138: -- --------------------dbms_output.put_line('Hi:1'||p_lease_rec.abstracted_by_user_id||x_return_status);--Rupak
12139: fnd_message.set_name ('PN', 'PN_INVALID_USER');
12140: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
12139: fnd_message.set_name ('PN', 'PN_INVALID_USER');
12140: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
12141: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.abstracted_by_user_id));
12142: fnd_msg_pub.ADD;
12143: RAISE fnd_api.g_exc_error;
12144: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12145: THEN
12146: ----------------------dbms_output.put_line('Hi:2'||p_lease_rec.abstracted_by_user_id);--Rupak
12147: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12140: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.abstracted_by_user));
12141: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.abstracted_by_user_id));
12142: fnd_msg_pub.ADD;
12143: RAISE fnd_api.g_exc_error;
12144: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12145: THEN
12146: ----------------------dbms_output.put_line('Hi:2'||p_lease_rec.abstracted_by_user_id);--Rupak
12147: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12148: fnd_message.set_token ('COLUMN', SUBSTR('LEASE ABSTARCTED BY',3));
12147: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12148: fnd_message.set_token ('COLUMN', SUBSTR('LEASE ABSTARCTED BY',3));
12149: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12150: fnd_msg_pub.ADD;
12151: RAISE fnd_api.g_exc_unexpected_error;
12152: END IF;
12153: END IF;
12154: /* EXCEPTION
12155: WHEN OTHERS THEN
12169: , x_return_status => x_return_status
12170: );
12171: l_lease_hdr_rec.cal_start := p_lease_rec.cal_start;
12172: pvt_debug(g_pkg_name||'-UPDATE_LEASE:GET_CAL_START_DATE Return Status:'||x_return_status,3);
12173: IF (x_return_status = fnd_api.g_ret_sts_error)
12174: THEN
12175: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
12176: fnd_msg_pub.ADD;
12177: RAISE fnd_api.g_exc_error;
12173: IF (x_return_status = fnd_api.g_ret_sts_error)
12174: THEN
12175: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
12176: fnd_msg_pub.ADD;
12177: RAISE fnd_api.g_exc_error;
12178: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12179: THEN
12180: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12181: fnd_message.set_token ('COLUMN', SUBSTR('LEASE CAL START DATE',3));
12174: THEN
12175: fnd_message.set_name ('PN', 'PN_CAL_INVALID_DATE');
12176: fnd_msg_pub.ADD;
12177: RAISE fnd_api.g_exc_error;
12178: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12179: THEN
12180: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12181: fnd_message.set_token ('COLUMN', SUBSTR('LEASE CAL START DATE',3));
12182: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12180: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12181: fnd_message.set_token ('COLUMN', SUBSTR('LEASE CAL START DATE',3));
12182: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12183: fnd_msg_pub.ADD;
12184: RAISE fnd_api.g_exc_unexpected_error;
12185: END IF;
12186: END IF;
12187:
12188: ----------------------dbms_output.put_line('In Update Private 5.2');--Rupak
12214: , x_return_status => x_return_status
12215: );
12216: pvt_debug(g_pkg_name||'-UPDATE_LEASE:Proration Rule ID:'||l_lease_hdr_rec.payment_term_proration_rule,3);
12217: l_lease_hdr_rec.payment_term_proration_rule := p_lease_rec.pymt_term_pro_rule_id;
12218: IF (x_return_status = fnd_api.g_ret_sts_error)
12219: THEN
12220: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12221: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_proration_rule_lookup_type));
12222: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule));
12221: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_proration_rule_lookup_type));
12222: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule));
12223: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule_id));
12224: fnd_msg_pub.ADD;
12225: RAISE fnd_api.g_exc_error;
12226: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
12227: THEN
12228: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12229: fnd_message.set_token ('COLUMN', SUBSTR(l_param_propration_rule,3));
12222: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule));
12223: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.pymt_term_pro_rule_id));
12224: fnd_msg_pub.ADD;
12225: RAISE fnd_api.g_exc_error;
12226: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
12227: THEN
12228: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12229: fnd_message.set_token ('COLUMN', SUBSTR(l_param_propration_rule,3));
12230: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12228: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12229: fnd_message.set_token ('COLUMN', SUBSTR(l_param_propration_rule,3));
12230: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12231: fnd_msg_pub.ADD;
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: END IF;
12234: END IF;
12235:
12236: ------dbms_output.put_line('l_lease_hdr_rec.status'||l_lease_hdr_rec.status||'-l_lease_context'||l_lease_context);
12237: IF (l_lease_hdr_rec.status = 'F' AND l_lease_context = 'UPD') THEN
12238: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
12239: fnd_message.set_token('ERR_MSG', 'Lease Context must be passed as ED OR AM when the lease is in finalized State');
12240: fnd_msg_pub.ADD;
12241: RAISE fnd_api.g_exc_error;
12242: END IF;
12243:
12244: IF ( ( p_lease_rec.status IS NOT NULL AND p_lease_rec.status <> pn_lease_utils.g_pn_miss_char)
12245: OR (p_lease_rec.status_code IS NOT NULL AND p_lease_rec.status_code <> pn_lease_utils.g_pn_miss_char)
12259: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Draft Lease Status upon Final cannot be honoured',3);
12260: /*fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
12261: fnd_message.set_token('ERR_MSG', 'You are trying to update an existing finalized lease by passing status as Draft. Please provide valid lease status');
12262: fnd_msg_pub.ADD;*/
12263: --RAISE fnd_api.g_exc_error;
12264: ELSE
12265: pvt_debug(g_pkg_name||'-VALIDATE_LEASE_REC:Approval Status Code:'||p_lease_rec.status_code,3);
12266: l_lease_hdr_rec.status := p_lease_rec.status_code;
12267: END IF;
12266: l_lease_hdr_rec.status := p_lease_rec.status_code;
12267: END IF;
12268:
12269:
12270: IF (x_return_status = fnd_api.g_ret_sts_error)
12271: THEN
12272: --l_error_flag:='Y';
12273: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12274: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
12274: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
12275: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
12276: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
12277: fnd_msg_pub.ADD;
12278: RAISE fnd_api.g_exc_error;
12279: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12280: THEN
12281: --l_error_flag:='Y';
12282: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12275: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
12276: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
12277: fnd_msg_pub.ADD;
12278: RAISE fnd_api.g_exc_error;
12279: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12280: THEN
12281: --l_error_flag:='Y';
12282: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12283: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
12283: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_status_lookup_type));
12284: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.status));
12285: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.status_code));
12286: fnd_msg_pub.ADD;
12287: RAISE fnd_api.g_exc_unexpected_error;
12288: END IF;
12289: END IF;
12290: g_status:=l_lease_hdr_rec.status;
12291:
12305: fnd_message.set_name ('PN', 'PN_INVALID_LEASE');
12306: fnd_message.set_token ('API_NAME', l_api_name_full);
12307: fnd_message.set_token ('LEASE_ID', get_miss_num_decode(p_lease_rec.lease_id));
12308: fnd_msg_pub.ADD;
12309: x_return_status := fnd_api.g_ret_sts_error;
12310: ELSE
12311: --Validating the Location Code OR Location ID
12312: IF ( (p_lease_rec.location_code IS NOT NULL)
12313: AND (p_lease_rec.location_code <> pn_lease_utils.g_pn_miss_char)
12334: IF (p_lease_rec.location_id = pn_lease_utils.g_pn_miss_num) THEN
12335: p_lease_rec.location_id := NULL;
12336: END IF;
12337: l_lease_hdr_rec.location_id := p_lease_rec.location_id;
12338: IF (x_return_status = fnd_api.g_ret_sts_error)
12339: THEN
12340: ----------------------dbms_output.put_line('In Update Private 5.23');--Rupak
12341: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
12342: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_rec.location_id));
12341: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
12342: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_rec.location_id));
12343: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_lease_rec.location_code));
12344: fnd_msg_pub.ADD;
12345: RAISE fnd_api.g_exc_error;
12346: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12347: THEN
12348: ----------------------dbms_output.put_line('In Update Private 5.23');--Rupak
12349: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12342: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_lease_rec.location_id));
12343: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_lease_rec.location_code));
12344: fnd_msg_pub.ADD;
12345: RAISE fnd_api.g_exc_error;
12346: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12347: THEN
12348: ----------------------dbms_output.put_line('In Update Private 5.23');--Rupak
12349: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12350: fnd_message.set_token ('COLUMN', SUBSTR('LEASE LOCATION',3));
12349: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12350: fnd_message.set_token ('COLUMN', SUBSTR('LEASE LOCATION',3));
12351: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12352: fnd_msg_pub.ADD;
12353: RAISE fnd_api.g_exc_unexpected_error;
12354: END IF;
12355: END IF;
12356:
12357: ----------------------dbms_output.put_line('In Detail Cursor:2');--Rupak
12370: -- --------------------dbms_output.put_line('In Detail Cursor:4');--Rupak
12371: fnd_message.set_name ('PN', 'PN_INVALID_LEASECON');
12372: fnd_message.set_token ('API_NAME', l_api_name_full||'-ValidateLeaseContext');
12373: fnd_msg_pub.ADD;
12374: RAISE fnd_api.g_exc_error;
12375: ELSIF (l_lease_hdr_rec.lease_status <> l_lease_status)
12376: THEN
12377: ----------------------dbms_output.put_line('In Detail Cursor:5');--Rupak
12378: fnd_message.set_name ('PN', 'PN_INVALID_LEASECON');
12377: ----------------------dbms_output.put_line('In Detail Cursor:5');--Rupak
12378: fnd_message.set_name ('PN', 'PN_INVALID_LEASECON');
12379: fnd_message.set_token ('API_NAME', l_api_name_full||'-ValidateLeaseContext');
12380: fnd_msg_pub.ADD;
12381: RAISE fnd_api.g_exc_error;
12382: ELSIF ( (l_lease_hdr_rec.abstracted_by_user <> l_abstracted_by_user)
12383: OR (l_payment_term_proration_rule <>l_lease_hdr_rec.payment_term_proration_rule))
12384: THEN
12385: ----------------------dbms_output.put_line('In Detail Cursor:6');--Rupak
12385: ----------------------dbms_output.put_line('In Detail Cursor:6');--Rupak
12386: fnd_message.set_name ('PN', 'PN_INVALID_LEASECON');
12387: fnd_message.set_token ('API_NAME', l_api_name_full|| '-ValidateLeaseContext');
12388: fnd_msg_pub.ADD;
12389: RAISE fnd_api.g_exc_error;
12390: END IF;
12391: END IF;
12392: ----------------------dbms_output.put_line('In Detail Cursor:7');--Rupak
12393: l_leaseextensionenddate := p_lease_rec.lease_extension_date;
12414: ----------------------dbms_output.put_line('-UPDATE_LEASE:Lease Status:'||l_lease_hdr_rec.lease_status);
12415: pvt_debug(g_pkg_name||'-UPDATE_LEASE:Lease Status:'||p_lease_rec.lease_status,3);
12416: l_lease_hdr_rec.lease_status := p_lease_rec.lease_status_code;
12417: l_lease_status_new := p_lease_rec.lease_status_code;
12418: IF (x_return_status = fnd_api.g_ret_sts_error)
12419: THEN
12420: --l_lease_hdr_rec.lease_status:=p_lease_rec.lease_status_code;
12421: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
12422: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_status_lookup_type));
12422: fnd_message.set_token ('LOOKUP_TYPE', get_miss_char_decode(l_lease_status_lookup_type));
12423: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_status));
12424: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_status_code ));
12425: fnd_msg_pub.ADD;
12426: RAISE fnd_api.g_exc_error;
12427: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12428: THEN
12429: --l_lease_hdr_rec.lease_status:=p_lease_rec.lease_status_code;
12430: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12423: fnd_message.set_token ('LOOKUP_MEANING', get_miss_char_decode(p_lease_rec.lease_status));
12424: fnd_message.set_token ('LOOKUP_CODE', get_miss_char_decode(p_lease_rec.lease_status_code ));
12425: fnd_msg_pub.ADD;
12426: RAISE fnd_api.g_exc_error;
12427: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12428: THEN
12429: --l_lease_hdr_rec.lease_status:=p_lease_rec.lease_status_code;
12430: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12431: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_status,3));
12430: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12431: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_status,3));
12432: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12433: fnd_msg_pub.ADD;
12434: RAISE fnd_api.g_exc_unexpected_error;
12435: END IF;
12436: END IF;
12437:
12438:
12452: , x_user_id => p_lease_rec.responsible_user_id--l_lease_dtl_rec.responsible_user
12453: );
12454: pvt_debug(g_pkg_name||'-UPDATE_LEASE:RESPONSIBLE_USER:'||p_lease_rec.responsible_user_id,3);
12455: l_lease_dtl_rec.responsible_user := p_lease_rec.responsible_user_id;
12456: IF (x_return_status = fnd_api.g_ret_sts_error)
12457: THEN
12458: fnd_message.set_name ('PN', 'PN_INVALID_USER');
12459: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
12460: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.responsible_user_id));
12458: fnd_message.set_name ('PN', 'PN_INVALID_USER');
12459: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
12460: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.responsible_user_id));
12461: fnd_msg_pub.ADD;
12462: RAISE fnd_api.g_exc_error;
12463: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12464: THEN
12465: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12466: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12459: fnd_message.set_token ('USER_NAME',get_miss_char_decode(p_lease_rec.responsible_user));
12460: fnd_message.set_token ('USER_ID', get_miss_num_decode(p_lease_rec.responsible_user_id));
12461: fnd_msg_pub.ADD;
12462: RAISE fnd_api.g_exc_error;
12463: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12464: THEN
12465: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12466: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12467: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12465: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12466: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12467: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12468: fnd_msg_pub.ADD;
12469: RAISE fnd_api.g_exc_unexpected_error;
12470: END IF;
12471: END IF;
12472: ----------------------dbms_output.put_line('In Update Private 9');--Rupak
12473: --Commencement,Termination,Execution Date
12511: , p_lease_term_date => l_lease_dtl_rec.lease_termination_date
12512: , x_return_status => x_return_status
12513: );
12514: pvt_debug(g_pkg_name||'-UPDATE_LEASE:PN_LEASE_UTILS.CROSSVAL_LEASEDATES Return Status:'||x_return_status,3);
12515: IF (x_return_status = fnd_api.g_ret_sts_error)
12516: THEN
12517: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
12518: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_lease_rec.lease_termination_date));
12519: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_lease_rec.lease_commencement_date));
12517: fnd_message.set_name ('PN', 'PN_INVALID_TERMINATION_DT');
12518: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_lease_rec.lease_termination_date));
12519: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_lease_rec.lease_commencement_date));
12520: fnd_msg_pub.ADD;
12521: RAISE fnd_api.g_exc_error;
12522: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12523: THEN
12524: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12525: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12518: fnd_message.set_token ('TERMINATION_DATE', get_miss_date_decode(p_lease_rec.lease_termination_date));
12519: fnd_message.set_token ('COMMENCEMENT_DATE', get_miss_date_decode(p_lease_rec.lease_commencement_date));
12520: fnd_msg_pub.ADD;
12521: RAISE fnd_api.g_exc_error;
12522: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12523: THEN
12524: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12525: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12526: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12524: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12525: fnd_message.set_token ('COLUMN', SUBSTR(l_param_reponsible_user,3));
12526: fnd_message.set_token ('P_TEXT', l_api_name|| '-'||SQLERRM);
12527: fnd_msg_pub.ADD;
12528: RAISE fnd_api.g_exc_unexpected_error;
12529: END IF;
12530: /*ELSE
12531: ----------------------dbms_output.put_line('Inside ELSE Condition:Dates');--Rupak
12532: pn_lease_utils.add_null_parameter_msg
12531: ----------------------dbms_output.put_line('Inside ELSE Condition:Dates');--Rupak
12532: pn_lease_utils.add_null_parameter_msg
12533: (p_token_apiname => l_api_name_full
12534: , p_token_nullparam => 'p_lease_exec_date - p_lease_comm_date - p_lease_term_date');
12535: RAISE fnd_api.g_exc_error;*/
12536: END IF;
12537: ----------------------dbms_output.put_line('In Update Private 11');--Rupak
12538: --------Validation of Key Flex Fields-----------Begin-----------
12539: IF ( ( p_lease_exp_rev_accounts_rec.account_id IS NOT NULL
12631: l_lease_dtl_rec.expense_account_id := p_lease_exp_rev_accounts_rec.account_id;
12632:
12633: ------------------------dbms_output.put_line('UPDATE_GET_EXP_REC_ACCOUNT_ID: '|| p_lease_exp_rev_accounts_rec.account_id );
12634: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
12635: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12636: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12637: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode(p_lease_exp_rev_accounts_rec.account_id));
12638: fnd_msg_pub.ADD;
12639: RAISE fnd_api.g_exc_error;
12635: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12636: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12637: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode(p_lease_exp_rev_accounts_rec.account_id));
12638: fnd_msg_pub.ADD;
12639: RAISE fnd_api.g_exc_error;
12640: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12641: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12642: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exp_rev_acct,3));
12643: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12636: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12637: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode(p_lease_exp_rev_accounts_rec.account_id));
12638: fnd_msg_pub.ADD;
12639: RAISE fnd_api.g_exc_error;
12640: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12641: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12642: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exp_rev_acct,3));
12643: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12644: fnd_msg_pub.ADD;
12641: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12642: fnd_message.set_token ('COLUMN', SUBSTR(l_param_exp_rev_acct,3));
12643: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12644: fnd_msg_pub.ADD;
12645: RAISE fnd_api.g_exc_unexpected_error;
12646: END IF;
12647: END IF;
12648:
12649: IF ( ( p_lease_accrual_account_rec.account_id IS NOT NULL
12741: l_lease_dtl_rec.accrual_account_id := p_lease_accrual_account_rec.account_id;
12742:
12743: ------------------------dbms_output.put_line('ACCRUAL_GET_ACCRLC_ACCOUNT_ID: '|| p_lease_accrual_account_rec.account_id );
12744: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
12745: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12746: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12747: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12748: fnd_msg_pub.ADD;
12749: RAISE fnd_api.g_exc_error;
12745: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12746: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12747: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12748: fnd_msg_pub.ADD;
12749: RAISE fnd_api.g_exc_error;
12750: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12751: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12752: fnd_message.set_token ('COLUMN', SUBSTR(l_param_accrual_acct,3));
12753: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12746: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12747: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12748: fnd_msg_pub.ADD;
12749: RAISE fnd_api.g_exc_error;
12750: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12751: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12752: fnd_message.set_token ('COLUMN', SUBSTR(l_param_accrual_acct,3));
12753: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12754: fnd_msg_pub.ADD;
12751: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12752: fnd_message.set_token ('COLUMN', SUBSTR(l_param_accrual_acct,3));
12753: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12754: fnd_msg_pub.ADD;
12755: RAISE fnd_api.g_exc_unexpected_error;
12756: END IF;
12757: END IF;
12758:
12759: IF ( ( p_lease_liab_rcvl_account_rec.account_id IS NOT NULL
12851: l_lease_dtl_rec.receivable_account_id := p_lease_liab_rcvl_account_rec.account_id;
12852:
12853: ------------------------dbms_output.put_line('UPDATE_GET_LIAB_RVCL_ACCOUNT_ID: '|| p_lease_liab_rcvl_account_rec.account_id );
12854: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
12855: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12856: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12857: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12858: fnd_msg_pub.ADD;
12859: RAISE fnd_api.g_exc_error;
12855: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12856: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12857: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12858: fnd_msg_pub.ADD;
12859: RAISE fnd_api.g_exc_error;
12860: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12861: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12862: fnd_message.set_token ('COLUMN', SUBSTR(l_param_liab_rvbl_acct,3));
12863: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12856: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
12857: fnd_message.set_token ('ACCOUNT_ID',get_miss_num_decode( p_lease_accrual_account_rec.account_id));
12858: fnd_msg_pub.ADD;
12859: RAISE fnd_api.g_exc_error;
12860: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12861: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12862: fnd_message.set_token ('COLUMN', SUBSTR(l_param_liab_rvbl_acct,3));
12863: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12864: fnd_msg_pub.ADD;
12861: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
12862: fnd_message.set_token ('COLUMN', SUBSTR(l_param_liab_rvbl_acct,3));
12863: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
12864: fnd_msg_pub.ADD;
12865: RAISE fnd_api.g_exc_unexpected_error;
12866: END IF;
12867: END IF;
12868:
12869: ----------------------------------------------------------------
13035: );
13036: pvt_debug(g_pkg_name||'UPDATE_LEASE:ATTRIBUTES: Return Status:'||x_return_status,3);
13037:
13038: ----------------------dbms_output.put_line('AFTER ATRR SETTING:2');--Rupak
13039: IF (x_return_status = fnd_api.g_ret_sts_error)
13040: THEN
13041: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
13042: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13043: fnd_message.set_token ('P_TEXT', 'PN_LEASE_DETAILS'|| '-'|| SQLERRM);
13041: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
13042: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13043: fnd_message.set_token ('P_TEXT', 'PN_LEASE_DETAILS'|| '-'|| SQLERRM);
13044: fnd_msg_pub.ADD;
13045: RAISE fnd_api.g_exc_error;
13046: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13047: THEN
13048: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
13049: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13042: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13043: fnd_message.set_token ('P_TEXT', 'PN_LEASE_DETAILS'|| '-'|| SQLERRM);
13044: fnd_msg_pub.ADD;
13045: RAISE fnd_api.g_exc_error;
13046: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13047: THEN
13048: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
13049: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13050: fnd_message.set_token ('P_TEXT', 'PN_LEASE_DETAILS'|| '-'|| SQLERRM);
13048: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
13049: fnd_message.set_token ('COLUMN', 'PN_LEASE_DETAILS_DESC_FIELDS');
13050: fnd_message.set_token ('P_TEXT', 'PN_LEASE_DETAILS'|| '-'|| SQLERRM);
13051: fnd_msg_pub.ADD;
13052: RAISE fnd_api.g_exc_unexpected_error;
13053: END IF;
13054: -- pn_lease_pub.test_lease(2,'In Private:9');
13055: END IF;
13056: END IF;
13104: THEN
13105: ----------------------dbms_output.put_line('In Edit Lease');--Rupak
13106: --Call Edit lease PVT API
13107: pvt_debug(g_pkg_name||'UPDATE_LEASE:Calling Edit Lease',3);
13108: edit_lease (p_init_msg_list => fnd_api.g_false
13109: , p_commit => fnd_api.g_false
13110: , x_return_status => x_return_status
13111: , x_msg_count => x_msg_count
13112: , x_msg_data => x_msg_data
13105: ----------------------dbms_output.put_line('In Edit Lease');--Rupak
13106: --Call Edit lease PVT API
13107: pvt_debug(g_pkg_name||'UPDATE_LEASE:Calling Edit Lease',3);
13108: edit_lease (p_init_msg_list => fnd_api.g_false
13109: , p_commit => fnd_api.g_false
13110: , x_return_status => x_return_status
13111: , x_msg_count => x_msg_count
13112: , x_msg_data => x_msg_data
13113: , p_lease_id => l_lease_hdr_rec.lease_id
13126: IF (p_lease_rec.amend_lease_name IS NULL OR p_lease_rec.amend_lease_name = pn_lease_utils.g_pn_miss_char) THEN
13127: p_lease_rec.amend_lease_name := p_lease_rec.lease_name;
13128: END IF;
13129: pvt_debug(g_pkg_name||'UPDATE_LEASE:Calling Amend Lease',3);
13130: amend_lease (p_init_msg_list => fnd_api.g_false
13131: , p_commit => fnd_api.g_false
13132: , x_return_status => x_return_status
13133: , x_msg_count => x_msg_count
13134: , x_msg_data => x_msg_data
13127: p_lease_rec.amend_lease_name := p_lease_rec.lease_name;
13128: END IF;
13129: pvt_debug(g_pkg_name||'UPDATE_LEASE:Calling Amend Lease',3);
13130: amend_lease (p_init_msg_list => fnd_api.g_false
13131: , p_commit => fnd_api.g_false
13132: , x_return_status => x_return_status
13133: , x_msg_count => x_msg_count
13134: , x_msg_data => x_msg_data
13135: , p_lease_name => p_lease_rec.amend_lease_name
13161: , p_user_id => g_user_id
13162: , x_lease_change_id => l_leasechangeid
13163: , x_lease_change_num => l_lease_change_num);
13164: pvt_debug(g_pkg_name||'UPDATE_LEASE:Amend Lease Return Status'||l_return_status,3);
13165: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13166: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13167: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is E');
13168: fnd_msg_pub.ADD;
13169: RAISE fnd_api.g_exc_error;
13165: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13166: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13167: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is E');
13168: fnd_msg_pub.ADD;
13169: RAISE fnd_api.g_exc_error;
13170: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13171: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13172: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is U');
13173: fnd_msg_pub.ADD;
13166: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13167: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is E');
13168: fnd_msg_pub.ADD;
13169: RAISE fnd_api.g_exc_error;
13170: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13171: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13172: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is U');
13173: fnd_msg_pub.ADD;
13174: RAISE fnd_api.g_exc_unexpected_error;
13170: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13171: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13172: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is U');
13173: fnd_msg_pub.ADD;
13174: RAISE fnd_api.g_exc_unexpected_error;
13175: ELSIF(x_return_status = fnd_api.g_ret_sts_success) THEN
13176: IF( l_lease_status_new <> l_lease_status_db) THEN
13177: BEGIN
13178: pvt_debug(g_pkg_name||'UPDATE_LEASE:Raising the Business Event in Amend Mode',3);
13171: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13172: fnd_message.set_token('ERR_MSG', 'Return Status from the Amend Lease Procedure is U');
13173: fnd_msg_pub.ADD;
13174: RAISE fnd_api.g_exc_unexpected_error;
13175: ELSIF(x_return_status = fnd_api.g_ret_sts_success) THEN
13176: IF( l_lease_status_new <> l_lease_status_db) THEN
13177: BEGIN
13178: pvt_debug(g_pkg_name||'UPDATE_LEASE:Raising the Business Event in Amend Mode',3);
13179: pn_am_wf.raise_business_event( p_transaction_id => p_lease_rec.lease_id
13286: --End of insert logic
13287: g_lease_change_id := l_leasechangeid;
13288:
13289:
13290: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13291: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13292: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is E');
13293: fnd_msg_pub.ADD;
13294: RAISE fnd_api.g_exc_error;
13290: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13291: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13292: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is E');
13293: fnd_msg_pub.ADD;
13294: RAISE fnd_api.g_exc_error;
13295: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13296: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13297: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is U');
13298: fnd_msg_pub.ADD;
13291: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13292: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is E');
13293: fnd_msg_pub.ADD;
13294: RAISE fnd_api.g_exc_error;
13295: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13296: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13297: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is U');
13298: fnd_msg_pub.ADD;
13299: RAISE fnd_api.g_exc_unexpected_error;
13295: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13296: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13297: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is U');
13298: fnd_msg_pub.ADD;
13299: RAISE fnd_api.g_exc_unexpected_error;
13300: ELSIF(x_return_status = fnd_api.g_ret_sts_success) THEN
13301: IF( l_lease_status_new <> l_lease_status_db) THEN
13302: BEGIN
13303: pvt_debug(g_pkg_name||'UPDATE_LEASE:Raising the Business Event',3);
13296: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13297: fnd_message.set_token('ERR_MSG', 'Return Status from the Lease Procedure is U');
13298: fnd_msg_pub.ADD;
13299: RAISE fnd_api.g_exc_unexpected_error;
13300: ELSIF(x_return_status = fnd_api.g_ret_sts_success) THEN
13301: IF( l_lease_status_new <> l_lease_status_db) THEN
13302: BEGIN
13303: pvt_debug(g_pkg_name||'UPDATE_LEASE:Raising the Business Event',3);
13304: --dbms_output.put_line('UPDATE_LEASE:Raising the Business Event');
13333: IF (x_request_id = 0) THEN
13334: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
13335: fnd_message.set_token ('API_NAME', l_api_name_full|| '-SubmitSchedulesConcProgram');
13336: fnd_msg_pub.ADD;
13337: RAISE fnd_api.g_exc_error;
13338: END IF;
13339: ELSE
13340: pvt_debug(g_pkg_name||'UPDATE_LEASE:Tenancies are needed to make the lease Final',3);
13341: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13340: pvt_debug(g_pkg_name||'UPDATE_LEASE:Tenancies are needed to make the lease Final',3);
13341: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
13342: fnd_message.set_token('ERR_MSG', 'Please provide the tenancies to finalize the lease');
13343: fnd_msg_pub.ADD;
13344: RAISE fnd_api.g_exc_error;
13345: END IF;
13346: END IF;
13347: END IF;
13348: ELSE
13348: ELSE
13349: fnd_message.set_name ('PN', 'PN_INVALID_CHANGEID');
13350: fnd_message.set_token ('API_NAME', l_api_name_full|| '-ValidateLeaseCHangeId');
13351: fnd_msg_pub.ADD;
13352: RAISE fnd_api.g_exc_error;
13353: END IF;
13354:
13355: -- Standard check of p_commit
13356: ----------------------dbms_output.put_line('In Update Private 11');--Rupak
13354:
13355: -- Standard check of p_commit
13356: ----------------------dbms_output.put_line('In Update Private 11');--Rupak
13357:
13358: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
13359: , p_count => x_msg_count
13360: , p_data => x_msg_data
13361: );
13362:
13361: );
13362:
13363:
13364: EXCEPTION
13365: WHEN fnd_api.g_exc_error THEN
13366: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
13367: , p_count => x_msg_count
13368: , p_data => x_msg_data
13369: );
13362:
13363:
13364: EXCEPTION
13365: WHEN fnd_api.g_exc_error THEN
13366: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
13367: , p_count => x_msg_count
13368: , p_data => x_msg_data
13369: );
13370: pvt_debug(g_pkg_name||'-CREATE_LEASE:Exception:g_exc_error:'||SQLERRM,3);
13368: , p_data => x_msg_data
13369: );
13370: pvt_debug(g_pkg_name||'-CREATE_LEASE:Exception:g_exc_error:'||SQLERRM,3);
13371: l_error_count := l_error_count + 1;
13372: x_return_status := fnd_api.g_ret_sts_error;
13373: WHEN OTHERS THEN
13374: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
13375: , p_count => x_msg_count
13376: , p_data => x_msg_data
13370: pvt_debug(g_pkg_name||'-CREATE_LEASE:Exception:g_exc_error:'||SQLERRM,3);
13371: l_error_count := l_error_count + 1;
13372: x_return_status := fnd_api.g_ret_sts_error;
13373: WHEN OTHERS THEN
13374: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
13375: , p_count => x_msg_count
13376: , p_data => x_msg_data
13377: );
13378: l_error_count := l_error_count + 1;
13375: , p_count => x_msg_count
13376: , p_data => x_msg_data
13377: );
13378: l_error_count := l_error_count + 1;
13379: x_return_status := fnd_api.g_ret_sts_unexp_error;
13380: pvt_debug(g_pkg_name||'-CREATE_LEASE:Exception:'||SQLERRM,3);
13381:
13382: END;
13383:
13400: , x_return_status => x_return_status
13401: , x_msg_count => x_msg_count
13402: , x_msg_data => x_msg_data
13403: );
13404: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13405: l_error_count := l_error_count + 1;
13406: END IF;
13407: END IF;
13408: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_CONTACTS Return Status'||x_return_status,3);
13420: , x_return_status => x_return_status
13421: -- , x_msg_count => x_msg_count
13422: -- , x_msg_data => x_msg_data
13423: );
13424: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13425: l_error_count := l_error_count + 1;
13426: END IF;
13427: END IF;
13428: --------------------dbms_output.put_line('After Update_lease:1:x_msg_count:'||x_msg_count);--OOPS
13441: , x_return_status => x_return_status
13442: , x_msg_count => x_msg_count
13443: , x_msg_data => x_msg_data
13444: );
13445: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13446: l_error_count := l_error_count + 1;
13447: END IF;
13448: END IF;
13449: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_terms Return Status:'||x_return_status,3);
13459: -- , x_msg_count => x_msg_count
13460: -- , x_msg_data => x_msg_data
13461: );
13462: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_NOTE Return Status'||x_return_status,3);
13463: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13464: l_error_count := l_error_count + 1;
13465: END IF;
13466: END IF;
13467: ------------------dbms_output.put_line('UPDATE_LEASE:UPDATE_NOTE:Return Status:'||x_return_status);
13477: -- , x_msg_count => x_msg_count
13478: -- , x_msg_data => x_msg_data
13479: );
13480: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_RIGHT Return Status'||x_return_status,3);
13481: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13482: l_error_count := l_error_count + 1;
13483: END IF;
13484: END IF;
13485: ------------------dbms_output.put_line('UPDATE_LEASE:UPDATE_RIGHT:Return Status:'||x_return_status);
13495: -- , x_msg_count => x_msg_count
13496: -- , x_msg_data => x_msg_data
13497: );
13498: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_OBLIGATION Return Status'||x_return_status,3);
13499: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13500: l_error_count := l_error_count + 1;
13501: END IF;
13502: END IF;
13503: ------------------dbms_output.put_line('UPDATE_LEASE:UPDATE_OBLIATIONS:Return Status:'||x_return_status);
13512: x_return_status => x_return_status
13513: -- x_msg_count => x_msg_count,
13514: -- x_msg_data => x_msg_data
13515: );
13516: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13517: l_error_count := l_error_count + 1;
13518: END IF;
13519: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_INSURANCE Return Status:'||x_return_status,3);
13520: END IF;
13529: , x_return_status => x_return_status
13530: -- , x_msg_count => x_msg_count
13531: -- , x_msg_data => x_msg_data
13532: );
13533: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
13534: l_error_count := l_error_count + 1;
13535: END IF;
13536: pvt_debug(g_pkg_name||'UPDATE_LEASE: UPDATE_OPTION Return Status:'||x_return_status,3);
13537: END IF;
13537: END IF;
13538: ----------------------- Sunitha end ------------------------------------------
13539:
13540: IF (l_error_count = 0) THEN
13541: x_return_status := fnd_api.g_ret_sts_success;
13542: ELSE
13543: x_return_status := fnd_api.g_ret_sts_error;
13544: END IF;
13545: ------------------dbms_output.put_line('Error Count:Update_lease:'||l_error_count);
13539:
13540: IF (l_error_count = 0) THEN
13541: x_return_status := fnd_api.g_ret_sts_success;
13542: ELSE
13543: x_return_status := fnd_api.g_ret_sts_error;
13544: END IF;
13545: ------------------dbms_output.put_line('Error Count:Update_lease:'||l_error_count);
13546: EXCEPTION
13547: WHEN OTHERS THEN
13544: END IF;
13545: ------------------dbms_output.put_line('Error Count:Update_lease:'||l_error_count);
13546: EXCEPTION
13547: WHEN OTHERS THEN
13548: x_return_status := fnd_api.g_ret_sts_unexp_error;
13549: pvt_debug(g_pkg_name||'-UPDATE_LEASE:Exception:'||SQLERRM,3);
13550: --RAISE;
13551: END update_lease;
13552: ------------------------------------------------------------Terms Begin---------------------------------------------------------------------------
14061: , x_opex_type => p_lease_terms_rec.opex_type
14062: );
14063: pvt_debug(g_pkg_name||'INSERT_PAYMENT_TERMS_ROW:Calling PNT_PAYMENT_TERMS_PKG.INSERT_ROW Succesful',3);
14064:
14065: x_return_status := fnd_api.g_ret_sts_success;
14066: EXCEPTION
14067: WHEN OTHERS THEN
14068: ----------------------dbms_output.put_line('Exception:In Insert:'||SQLERRM);--Rupak
14069: pvt_debug(g_pkg_name||'INSERT_PAYMENT_TERMS_ROW:Exception:'||SQLERRM,3);
14069: pvt_debug(g_pkg_name||'INSERT_PAYMENT_TERMS_ROW:Exception:'||SQLERRM,3);
14070: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14071: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt:create_payment' || SQLERRM);
14072: fnd_msg_pub.ADD;
14073: x_return_status := fnd_api.g_ret_sts_unexp_error;
14074:
14075: END insert_payment_terms_row;
14076:
14077: PROCEDURE update_payment_terms_row (
14083: )
14084: IS
14085: BEGIN
14086: ----------------------dbms_output.put_line('IN UPDATE : p_lease_terms_rec.payment_term_id'||p_lease_terms_rec.payment_term_id);--Rupak
14087: x_return_status := fnd_api.g_ret_sts_success;
14088: pnt_payment_terms_pkg.update_row (x_payment_term_id => p_lease_terms_rec.payment_term_id
14089: , x_payment_purpose_code => p_lease_terms_rec.payment_purpose_code
14090: , x_payment_term_type_code => p_lease_terms_rec.payment_term_type_code
14091: , x_frequency_code => p_lease_terms_rec.frequency_code
14187: WHEN OTHERS THEN
14188: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14189: fnd_message.set_token ('P_TEXT', 'pn_lease_pvt.update_payment' || SQLERRM);
14190: fnd_msg_pub.ADD;
14191: x_return_status := fnd_api.g_ret_sts_unexp_error;
14192: pvt_debug(g_pkg_name||'UPDATE_PAYMENT_TERMS_ROW:PNT_PAYMENT_TERMS_PKG.UPDATE_ROW:Exception'||SQLERRM,3);
14193: END update_payment_terms_row;
14194:
14195: PROCEDURE validate_payment_terms_tbl
14303: --.put_line('In validate_payment_terms_tbl:1');--Rupak
14304: -- Standard start of API savepoint
14305: SAVEPOINT validate_payment_terms_tbl;
14306: -- Initialize the return status.
14307: x_return_status := FND_API.G_RET_STS_SUCCESS;--OOPS(RHIA)
14308:
14309: l_terms_record_cnt := p_payment_terms_tbl.COUNT;
14310: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:2;l_terms_record_cnt'||l_terms_record_cnt);--Rupak
14311:
14351:
14352: ----------------------dbms_output.put_line ('GET_TERM_TEMPLATE_ID: '||p_lease_rec.term_template_id);--Rupak
14353: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:Deriving Template ID:'||p_payment_terms_tbl(i).term_template_id,3);
14354: ------------------------dbms_output.put_line('x_return_status: '|| x_return_status);
14355: IF (x_return_status = fnd_api.g_ret_sts_error)
14356: THEN
14357: --l_error_flag:='Y';
14358: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
14359: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
14358: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
14359: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
14360: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_payment_terms_tbl(i).term_template_name));
14361: fnd_msg_pub.ADD;
14362: RAISE fnd_api.g_exc_error;
14363: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14364: THEN
14365: --l_error_flag:='Y';
14366: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14359: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
14360: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_payment_terms_tbl(i).term_template_name));
14361: fnd_msg_pub.ADD;
14362: RAISE fnd_api.g_exc_error;
14363: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14364: THEN
14365: --l_error_flag:='Y';
14366: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14367: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_template,3));
14365: --l_error_flag:='Y';
14366: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14367: fnd_message.set_token ('COLUMN', SUBSTR(l_param_lease_template,3));
14368: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14369: RAISE fnd_api.g_exc_unexpected_error;
14370: END IF;
14371:
14372: IF x_return_status = fnd_api.g_ret_sts_success
14373: THEN
14368: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14369: RAISE fnd_api.g_exc_unexpected_error;
14370: END IF;
14371:
14372: IF x_return_status = fnd_api.g_ret_sts_success
14373: THEN
14374: IF pn_r12_util_pkg.is_r12
14375: THEN
14376:
14381: fnd_message.set_token ('R12_FLAG', p_payment_terms_tbl(i).term_template_id);
14382: fnd_msg_pub.ADD;
14383:
14384: l_error_flag:='Y';
14385: RAISE fnd_api.g_exc_error;
14386: ELSIF l_tcc_status = 'PN_UPG_TCC' THEN
14387: fnd_message.set_name('PN','PN_UPG_TCC_FOUND');
14388: fnd_message.set_token ('API_NAME', l_api_name_full);
14389: fnd_message.set_token ('R12_FLAG', p_payment_terms_tbl(i).term_template_id);
14429: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14430: fnd_message.set_token ('COLUMN', 'INVALID TEMPLATE ID');
14431: fnd_msg_pub.ADD;
14432: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14433: RAISE fnd_api.g_exc_unexpected_error;
14434: END;
14435: ELSE
14436: ------dbms_output.put_line('TermTemplate:HELLO:3'||p_operation);
14437: SELECT COUNT(1)
14445: ELSIF(l_count_template=0) THEN
14446: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
14447: fnd_message.set_token('ERR_MSG', 'Template Name/ID is non-updatable in Update Mode');
14448: fnd_msg_pub.ADD;
14449: RAISE fnd_api.g_exc_error;
14450: END IF;
14451:
14452: END IF;
14453: END IF;
14460: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14461: fnd_message.set_token ('API_NAME', p_api_name_full);
14462: fnd_message.set_token ('NULL_PARAM', 'PAYMENT_TERM_TYPE');
14463: fnd_msg_pub.ADD;
14464: RAISE fnd_api.g_exc_error;
14465: ELSE
14466: p_payment_terms_tbl(i).payment_term_type_code := l_payment_term_type_code;
14467: END IF;
14468: END IF;
14473: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14474: fnd_message.set_token ('API_NAME', p_api_name_full);
14475: fnd_message.set_token ('NULL_PARAM', 'PAYMENT_TERM');
14476: fnd_msg_pub.ADD;
14477: RAISE fnd_api.g_exc_error;
14478: ELSE
14479: p_payment_terms_tbl(i).ap_ar_term_id:= l_p_ar_term_id;
14480: END IF;
14481: END IF;
14486: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14487: fnd_message.set_token ('API_NAME', p_api_name_full);
14488: fnd_message.set_token ('NULL_PARAM', 'TRANSACTION_TYPE');
14489: fnd_msg_pub.ADD;
14490: RAISE fnd_api.g_exc_error;
14491: ELSE
14492: p_payment_terms_tbl(i).cust_trx_type_id := l_cust_trx_type_id;
14493: END IF;
14494: END IF;
14498: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14499: fnd_message.set_token ('API_NAME', p_api_name_full);
14500: fnd_message.set_token ('NULL_PARAM', 'START_DATE');
14501: fnd_msg_pub.ADD;
14502: RAISE fnd_api.g_exc_error;
14503: END IF;
14504:
14505: IF (p_payment_terms_tbl(i).end_date IS NULL)
14506: THEN
14508: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14509: fnd_message.set_token ('API_NAME', p_api_name_full);
14510: fnd_message.set_token ('NULL_PARAM', 'END_DATE');
14511: fnd_msg_pub.ADD;
14512: RAISE fnd_api.g_exc_error;
14513: END IF;
14514:
14515: IF (p_payment_terms_tbl(i).payment_purpose_code IS NULL AND p_payment_terms_tbl(i).payment_purpose IS NULL) THEN
14516: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'PAYMENT_PURPOSE');
14518: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14519: fnd_message.set_token ('API_NAME', p_api_name_full);
14520: fnd_message.set_token ('NULL_PARAM', 'PAYMENT_PURPOSE');
14521: fnd_msg_pub.ADD;
14522: RAISE fnd_api.g_exc_error;
14523: ELSE
14524: p_payment_terms_tbl(i).payment_purpose_code := l_payment_purpose_code;
14525: END IF;
14526: END IF;
14530: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14531: fnd_message.set_token ('API_NAME', p_api_name_full);
14532: fnd_message.set_token ('NULL_PARAM', 'PAYMENT_FREQUENCY');
14533: fnd_msg_pub.ADD;
14534: RAISE fnd_api.g_exc_error;
14535: END IF;
14536: ----------------------dbms_output.put_line('Hello:4');--Rupak
14537: IF (p_payment_terms_tbl(i).schedule_day IS NULL) THEN
14538: -- PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'SCHEDULE_DAY');
14540: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14541: fnd_message.set_token ('API_NAME', p_api_name_full);
14542: fnd_message.set_token ('NULL_PARAM', 'SCHEDULE_DAY');
14543: fnd_msg_pub.ADD;
14544: RAISE fnd_api.g_exc_error;
14545: ELSE
14546: p_payment_terms_tbl(i).schedule_day := l_schedule_day;
14547: END IF;
14548: END IF;
14553: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14554: fnd_message.set_token ('API_NAME', p_api_name_full);
14555: fnd_message.set_token ('NULL_PARAM', 'CURRENCY_CODE');
14556: fnd_msg_pub.ADD;
14557: RAISE fnd_api.g_exc_error;
14558: ELSE
14559: p_payment_terms_tbl(i).currency_code := l_currency_code;
14560: END IF;
14561: END IF;
14566: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14567: fnd_message.set_token ('API_NAME', p_api_name_full);
14568: fnd_message.set_token ('NULL_PARAM', 'SUPPLIER_NAME');
14569: fnd_msg_pub.ADD;
14570: RAISE fnd_api.g_exc_error;
14571: ELSE
14572: p_payment_terms_tbl(i).vendor_id := l_vendor_id;
14573: END IF;
14574: END IF;
14579: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14580: fnd_message.set_token ('API_NAME', p_api_name_full);
14581: fnd_message.set_token ('NULL_PARAM', 'SUPPLIER_SITE');
14582: fnd_msg_pub.ADD;
14583: RAISE fnd_api.g_exc_error;
14584: ELSE
14585: p_payment_terms_tbl(i).vendor_site_id := l_vendor_site_id;
14586: END IF;
14587: END IF;
14593: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14594: fnd_message.set_token ('API_NAME', p_api_name_full);
14595: fnd_message.set_token ('NULL_PARAM', 'CUSTOMER_NAME');
14596: fnd_msg_pub.ADD;
14597: RAISE fnd_api.g_exc_error;
14598: ELSE
14599: p_payment_terms_tbl(i).customer_id := l_customer_id;
14600: END IF;
14601: END IF;
14606: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14607: fnd_message.set_token ('API_NAME', p_api_name_full);
14608: fnd_message.set_token ('NULL_PARAM', 'CUSTOMER_SITE');
14609: fnd_msg_pub.ADD;
14610: RAISE fnd_api.g_exc_error;
14611: ELSE
14612: p_payment_terms_tbl(i).customer_site_use_id := l_customer_site_use_id;
14613: END IF;
14614: END IF;
14619: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
14620: fnd_message.set_token ('API_NAME', p_api_name_full);
14621: fnd_message.set_token ('NULL_PARAM', 'AMOUNT');
14622: fnd_msg_pub.ADD;
14623: RAISE fnd_api.g_exc_error;
14624: END IF;
14625: ----------------------dbms_output.put_line('Hello:9');--Rupak
14626: END IF;
14627:
14642: , x_lookup_type_code => p_payment_terms_tbl(i).payment_term_type_code
14643: , x_return_status => x_return_status
14644: );
14645: pvt_debug(g_pkg_name||'VALIDATE_PAYMENT_TERMS_TBL:PAYMENT_TYPE CODE:'||p_payment_terms_tbl(i).payment_term_type_code,3);
14646: IF (x_return_status = fnd_api.g_ret_sts_error)
14647: THEN
14648: p_payment_terms_tbl(i).error_flag := 'Y';
14649: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
14650: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_term_type);
14650: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_term_type);
14651: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).payment_term_type));
14652: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).payment_term_type_code));
14653: fnd_msg_pub.ADD;
14654: RAISE FND_API.G_EXC_ERROR;
14655: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14656: THEN
14657: p_payment_terms_tbl(i).error_flag := 'Y';
14658: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14651: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).payment_term_type));
14652: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).payment_term_type_code));
14653: fnd_msg_pub.ADD;
14654: RAISE FND_API.G_EXC_ERROR;
14655: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14656: THEN
14657: p_payment_terms_tbl(i).error_flag := 'Y';
14658: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14659: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_type,3));
14658: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14659: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_type,3));
14660: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14661: fnd_msg_pub.ADD;
14662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14663: END IF;
14664: END IF;
14665: --.put_line('In validate_payment_terms_tbl:3');--Rupak
14666: -- Validate the Payment Purpose
14679: , x_return_status => x_return_status
14680: );
14681: pvt_debug(g_pkg_name||'VALIDATE_PAYMENT_TERMS_TBL:PAYMENT_PURPOSE CODE:'||p_payment_terms_tbl(i).payment_purpose_code,3);
14682:
14683: IF (x_return_status = fnd_api.g_ret_sts_error)
14684: THEN
14685: p_payment_terms_tbl(i).error_flag := 'Y';
14686: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
14687: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_purpose_type);
14687: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_purpose_type);
14688: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).payment_purpose));
14689: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).payment_purpose_code));
14690: fnd_msg_pub.ADD;
14691: RAISE FND_API.G_EXC_ERROR;
14692: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14693: THEN
14694: p_payment_terms_tbl(i).error_flag := 'Y';
14695: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14688: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).payment_purpose));
14689: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).payment_purpose_code));
14690: fnd_msg_pub.ADD;
14691: RAISE FND_API.G_EXC_ERROR;
14692: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14693: THEN
14694: p_payment_terms_tbl(i).error_flag := 'Y';
14695: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14696: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_purpose,3));
14695: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14696: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_purpose,3));
14697: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14698: fnd_msg_pub.ADD;
14699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14700: END IF;
14701: END IF;
14702: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:4');--Rupak
14703: -- Validate the Payment Frequency
14715: , x_lookup_type_code => p_payment_terms_tbl(i).frequency_code
14716: , x_return_status => x_return_status
14717: );
14718: pvt_debug(g_pkg_name||'VALIDATE_PAYMENT_TERMS_TBL:PAYMENT_FREQUENCY CODE:'||p_payment_terms_tbl(i).frequency_code,3);
14719: IF (x_return_status = fnd_api.g_ret_sts_error)
14720: THEN
14721: p_payment_terms_tbl(i).error_flag := 'Y';
14722: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
14723: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_frequency_type);
14723: fnd_message.set_token ('LOOKUP_TYPE', l_pn_payment_frequency_type);
14724: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).frequency));
14725: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).frequency_code));
14726: fnd_msg_pub.ADD;
14727: RAISE FND_API.G_EXC_ERROR;
14728: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14729: THEN
14730: p_payment_terms_tbl(i).error_flag := 'Y';
14731: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14724: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).frequency));
14725: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).frequency_code));
14726: fnd_msg_pub.ADD;
14727: RAISE FND_API.G_EXC_ERROR;
14728: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14729: THEN
14730: p_payment_terms_tbl(i).error_flag := 'Y';
14731: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14732: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_frequency,3));
14731: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14732: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_frequency,3));
14733: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14734: fnd_msg_pub.ADD;
14735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14736: END IF;
14737: END IF;
14738: --.put_line('In validate_payment_terms_tbl:5');--Rupak
14739: -- Validate the Payment Source
14752: , x_return_status => x_return_status
14753: );
14754: pvt_debug(g_pkg_name||'VALIDATE_PAYMENT_TERMS_TBL:PAYMENT_SOURCE CODE:'||p_payment_terms_tbl(i).source_code,3);
14755:
14756: IF (x_return_status = fnd_api.g_ret_sts_error)
14757: THEN
14758: p_payment_terms_tbl(i).error_flag := 'Y';
14759: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
14760: fnd_message.set_token ('LOOKUP_TYPE', l_pn_term_source_module);
14760: fnd_message.set_token ('LOOKUP_TYPE', l_pn_term_source_module);
14761: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).source_name));
14762: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).source_code));
14763: fnd_msg_pub.ADD;
14764: RAISE FND_API.G_EXC_ERROR;
14765: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14766: THEN
14767: p_payment_terms_tbl(i).error_flag := 'Y';
14768: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14761: fnd_message.set_token ('LOOKUP_MEANING',get_miss_char_decode(p_payment_terms_tbl(i).source_name));
14762: fnd_message.set_token ('LOOKUP_CODE',get_miss_char_decode(p_payment_terms_tbl(i).source_code));
14763: fnd_msg_pub.ADD;
14764: RAISE FND_API.G_EXC_ERROR;
14765: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14766: THEN
14767: p_payment_terms_tbl(i).error_flag := 'Y';
14768: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14769: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_source,3));
14768: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14769: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_source,3));
14770: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14771: fnd_msg_pub.ADD;
14772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14773: END IF;
14774: END IF;
14775: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:6');--Rupak
14776: --Customer Payment Terms and Invoice Transaction Type
14788: fnd_message.set_name ('PN', 'PN_INVALID_TERMS');
14789: fnd_message.set_token ('API_NAME', p_api_name_full || '-Validate_Term_Transaction');
14790: fnd_msg_pub.ADD;
14791: -- ----------------------dbms_output.put_line('In validate_payment_terms_tbl::Customer Payment Terms and Invoice Transaction Type-2'||p_lease_class_code);
14792: RAISE fnd_api.g_exc_error;
14793: END IF;*/--review comments (Kranti) End
14794:
14795: --Payment Schedule Day
14796: IF ( p_payment_terms_tbl(i).schedule_day < 1
14798: THEN
14799: fnd_message.set_name ('PN', 'PN_INVALID_SCHEDULEDAY');
14800: fnd_message.set_token ('API_NAME', l_api_name_full || '-ValidateScheduleDay');
14801: fnd_msg_pub.ADD;
14802: RAISE fnd_api.g_exc_error;
14803: END IF;
14804: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:7');--Rupak
14805:
14806: --Payment Dates
14820: fnd_message.set_token ('START_DATE', get_miss_date_decode(p_payment_terms_tbl(i).start_date));
14821: fnd_message.set_token ('COMM_DATE', get_miss_date_decode(p_lease_commencement_date));
14822: fnd_message.set_token ('TERM_DATE', get_miss_date_decode(p_lease_termination_date));
14823: fnd_msg_pub.ADD;
14824: RAISE fnd_api.g_exc_error;
14825: ELSIF(x_return_status = 'Y') THEN
14826: p_payment_terms_tbl(i).error_flag := 'Y';
14827: fnd_message.set_name ('PN', 'PN_INVALID_PAYEND_DATE');
14828: fnd_message.set_token ('END_DATE', get_miss_date_decode(p_payment_terms_tbl(i).end_date));
14828: fnd_message.set_token ('END_DATE', get_miss_date_decode(p_payment_terms_tbl(i).end_date));
14829: fnd_message.set_token ('COMM_DATE', p_lease_commencement_date);
14830: fnd_message.set_token ('TERM_DATE', p_lease_termination_date);
14831: fnd_msg_pub.ADD;
14832: RAISE fnd_api.g_exc_error;
14833: ELSIF (x_return_status = fnd_api.g_ret_sts_error) THEN
14834: p_payment_terms_tbl(i).error_flag := 'Y';
14835: fnd_message.set_name ('PN', 'PN_INVALID_PAYMENT_DATES');
14836: fnd_message.set_token ('START_DATE', get_miss_date_decode(p_payment_terms_tbl(i).start_date));
14829: fnd_message.set_token ('COMM_DATE', p_lease_commencement_date);
14830: fnd_message.set_token ('TERM_DATE', p_lease_termination_date);
14831: fnd_msg_pub.ADD;
14832: RAISE fnd_api.g_exc_error;
14833: ELSIF (x_return_status = fnd_api.g_ret_sts_error) THEN
14834: p_payment_terms_tbl(i).error_flag := 'Y';
14835: fnd_message.set_name ('PN', 'PN_INVALID_PAYMENT_DATES');
14836: fnd_message.set_token ('START_DATE', get_miss_date_decode(p_payment_terms_tbl(i).start_date));
14837: fnd_message.set_token ('END_DATE', get_miss_date_decode(p_payment_terms_tbl(i).end_date));
14835: fnd_message.set_name ('PN', 'PN_INVALID_PAYMENT_DATES');
14836: fnd_message.set_token ('START_DATE', get_miss_date_decode(p_payment_terms_tbl(i).start_date));
14837: fnd_message.set_token ('END_DATE', get_miss_date_decode(p_payment_terms_tbl(i).end_date));
14838: fnd_msg_pub.ADD;
14839: RAISE fnd_api.g_exc_error;
14840: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
14841: p_payment_terms_tbl(i).error_flag := 'Y';
14842: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14843: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_dates,3));
14836: fnd_message.set_token ('START_DATE', get_miss_date_decode(p_payment_terms_tbl(i).start_date));
14837: fnd_message.set_token ('END_DATE', get_miss_date_decode(p_payment_terms_tbl(i).end_date));
14838: fnd_msg_pub.ADD;
14839: RAISE fnd_api.g_exc_error;
14840: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
14841: p_payment_terms_tbl(i).error_flag := 'Y';
14842: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14843: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_dates,3));
14844: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14842: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14843: fnd_message.set_token ('COLUMN', SUBSTR(l_param_payment_dates,3));
14844: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14845: fnd_msg_pub.ADD;
14846: RAISE fnd_api.g_exc_unexpected_error;
14847: END IF;
14848: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:8');--Rupak
14849: END IF;
14850: IF ( ( p_payment_terms_tbl(i).vendor_name IS NOT NULL AND p_termtemp_type = 'PAYMENT')
14861: , x_return_status => x_return_status
14862: , x_vendor_id => p_payment_terms_tbl(i).vendor_id
14863: );
14864: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_VENDOR_ID:'||p_payment_terms_tbl(i).vendor_id,3);
14865: IF (x_return_status = fnd_api.g_ret_sts_error)
14866: THEN
14867: p_payment_terms_tbl(i).error_flag := 'Y';
14868: fnd_message.set_name ('PN', 'PN_INVALID_VENDOR');
14869: fnd_message.set_token ('VENDOR_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_name));
14868: fnd_message.set_name ('PN', 'PN_INVALID_VENDOR');
14869: fnd_message.set_token ('VENDOR_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_name));
14870: fnd_message.set_token ('VENDOR_ID', get_miss_num_decode(p_payment_terms_tbl(i).vendor_id));
14871: fnd_msg_pub.ADD;
14872: RAISE fnd_api.g_exc_error;
14873: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14874: THEN
14875: p_payment_terms_tbl(i).error_flag := 'Y';
14876: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14869: fnd_message.set_token ('VENDOR_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_name));
14870: fnd_message.set_token ('VENDOR_ID', get_miss_num_decode(p_payment_terms_tbl(i).vendor_id));
14871: fnd_msg_pub.ADD;
14872: RAISE fnd_api.g_exc_error;
14873: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14874: THEN
14875: p_payment_terms_tbl(i).error_flag := 'Y';
14876: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14877: fnd_message.set_token ('COLUMN', SUBSTR(l_param_vendor_name,3));
14876: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14877: fnd_message.set_token ('COLUMN', SUBSTR(l_param_vendor_name,3));
14878: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14879: fnd_msg_pub.ADD;
14880: RAISE fnd_api.g_exc_unexpected_error;
14881: END IF;
14882: END IF;
14883: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:9');--Rupak
14884: IF ( ( p_payment_terms_tbl(i).vendor_name IS NOT NULL AND p_payment_terms_tbl(i).vendor_site_code IS NOT NULL AND p_termtemp_type = 'PAYMENT')
14896: , x_return_status => x_return_status
14897: , x_vendor_site_id => p_payment_terms_tbl(i).vendor_site_id
14898: );
14899: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_VENDOR_SITE_ID:'||p_payment_terms_tbl(i).vendor_site_id,3);
14900: IF (x_return_status = fnd_api.g_ret_sts_error)
14901: THEN
14902: p_payment_terms_tbl(i).error_flag := 'Y';
14903: fnd_message.set_name ('PN', 'PN_INVALID_VENDOR_SITE');
14904: fnd_message.set_token ('VENDOR_SITE_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_site_code));
14903: fnd_message.set_name ('PN', 'PN_INVALID_VENDOR_SITE');
14904: fnd_message.set_token ('VENDOR_SITE_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_site_code));
14905: fnd_message.set_token ('VENDOR_SITE_ID', get_miss_num_decode(p_payment_terms_tbl(i).vendor_site_id));
14906: fnd_msg_pub.ADD;
14907: RAISE fnd_api.g_exc_error;
14908: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14909: THEN
14910: p_payment_terms_tbl(i).error_flag := 'Y';
14911: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14904: fnd_message.set_token ('VENDOR_SITE_NAME', get_miss_char_decode(p_payment_terms_tbl(i).vendor_site_code));
14905: fnd_message.set_token ('VENDOR_SITE_ID', get_miss_num_decode(p_payment_terms_tbl(i).vendor_site_id));
14906: fnd_msg_pub.ADD;
14907: RAISE fnd_api.g_exc_error;
14908: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14909: THEN
14910: p_payment_terms_tbl(i).error_flag := 'Y';
14911: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14912: fnd_message.set_token ('COLUMN', SUBSTR(l_param_vendor_site,3));
14911: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14912: fnd_message.set_token ('COLUMN', SUBSTR(l_param_vendor_site,3));
14913: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14914: fnd_msg_pub.ADD;
14915: RAISE fnd_api.g_exc_unexpected_error;
14916: END IF;
14917: END IF;
14918: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:10');--Rupak
14919: --Payment Customer
14931: , x_return_status => x_return_status
14932: , x_customer_id => p_payment_terms_tbl(i).customer_id
14933: );
14934: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_PAY_CUSTOMER_ID:'||p_payment_terms_tbl(i).customer_id,3);
14935: IF (x_return_status = fnd_api.g_ret_sts_error)
14936: THEN
14937: p_payment_terms_tbl(i).error_flag := 'Y';
14938: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
14939: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_payment_terms_tbl(i).customer_name));
14938: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER');
14939: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_payment_terms_tbl(i).customer_name));
14940: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_payment_terms_tbl(i).customer_id));
14941: fnd_msg_pub.ADD;
14942: RAISE fnd_api.g_exc_error;
14943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14944: THEN
14945: p_payment_terms_tbl(i).error_flag := 'Y';
14946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14939: fnd_message.set_token ('CUSTOMER_NAME', get_miss_char_decode(p_payment_terms_tbl(i).customer_name));
14940: fnd_message.set_token ('CUSTOMER_ID', get_miss_num_decode(p_payment_terms_tbl(i).customer_id));
14941: fnd_msg_pub.ADD;
14942: RAISE fnd_api.g_exc_error;
14943: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14944: THEN
14945: p_payment_terms_tbl(i).error_flag := 'Y';
14946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14947: fnd_message.set_token ('COLUMN', SUBSTR(l_param_customer_name,3));
14946: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14947: fnd_message.set_token ('COLUMN', SUBSTR(l_param_customer_name,3));
14948: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14949: fnd_msg_pub.ADD;
14950: RAISE fnd_api.g_exc_unexpected_error;
14951: END IF;
14952: END IF;
14953: ----------------------dbms_output.put_line('In validate_payment_terms_tbl:11');--Rupak
14954: --Payment Customer Site
14967: , x_return_status => x_return_status
14968: , x_customer_site_id => p_payment_terms_tbl(i).customer_site_use_id
14969: );
14970: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_PAY_CUSTOMER_SITE_ID:'||p_payment_terms_tbl(i).customer_site_use_id,3);
14971: IF (x_return_status = fnd_api.g_ret_sts_error)
14972: THEN
14973: p_payment_terms_tbl(i).error_flag := 'Y';
14974: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER_SITE');
14975: fnd_message.set_token ('CUSTOMER_SITE', get_miss_char_decode(p_payment_terms_tbl(i).customer_site_code));
14974: fnd_message.set_name ('PN', 'PN_INVALID_CUSTOMER_SITE');
14975: fnd_message.set_token ('CUSTOMER_SITE', get_miss_char_decode(p_payment_terms_tbl(i).customer_site_code));
14976: fnd_message.set_token ('CUSTOMER_SITE_ID',get_miss_num_decode(p_payment_terms_tbl(i).customer_site_use_id));
14977: fnd_msg_pub.ADD;
14978: RAISE fnd_api.g_exc_error;
14979: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14980: THEN
14981: p_payment_terms_tbl(i).error_flag := 'Y';
14982: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14975: fnd_message.set_token ('CUSTOMER_SITE', get_miss_char_decode(p_payment_terms_tbl(i).customer_site_code));
14976: fnd_message.set_token ('CUSTOMER_SITE_ID',get_miss_num_decode(p_payment_terms_tbl(i).customer_site_use_id));
14977: fnd_msg_pub.ADD;
14978: RAISE fnd_api.g_exc_error;
14979: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14980: THEN
14981: p_payment_terms_tbl(i).error_flag := 'Y';
14982: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14983: fnd_message.set_token ('COLUMN', SUBSTR(l_param_customer_site,3));
14982: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
14983: fnd_message.set_token ('COLUMN', SUBSTR(l_param_customer_site,3));
14984: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
14985: fnd_msg_pub.ADD;
14986: RAISE fnd_api.g_exc_unexpected_error;
14987: END IF;
14988: END IF;
14989:
14990: --Validating Term Template
15002: , x_termtemp_id => p_payment_terms_tbl(i).term_template_id
15003: );
15004: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_TERM_TEMPLATE_ID:'||p_payment_terms_tbl(i).term_template_id,3);
15005:
15006: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15007: p_payment_terms_tbl(i).error_flag := 'Y';
15008: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
15009: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
15010: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_payment_terms_tbl(i).term_template_name));
15008: fnd_message.set_name ('PN', 'PN_INVALID_TERM_TEMPLATE');
15009: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
15010: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_payment_terms_tbl(i).term_template_name));
15011: fnd_msg_pub.ADD;
15012: RAISE fnd_api.g_exc_error;
15013: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15014: p_payment_terms_tbl(i).error_flag := 'Y';
15015: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15016: fnd_message.set_token ('COLUMN', SUBSTR(l_param_term_template,3));
15009: fnd_message.set_token ('TERM_TEMPLATE_ID', get_miss_num_decode(p_payment_terms_tbl(i).term_template_id));
15010: fnd_message.set_token ('TERM_TEMPLATE', get_miss_char_decode(p_payment_terms_tbl(i).term_template_name));
15011: fnd_msg_pub.ADD;
15012: RAISE fnd_api.g_exc_error;
15013: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15014: p_payment_terms_tbl(i).error_flag := 'Y';
15015: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15016: fnd_message.set_token ('COLUMN', SUBSTR(l_param_term_template,3));
15017: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15015: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15016: fnd_message.set_token ('COLUMN', SUBSTR(l_param_term_template,3));
15017: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15018: fnd_msg_pub.ADD;
15019: RAISE fnd_api.g_exc_unexpected_error;
15020: ELSIF (x_return_status = fnd_api.g_ret_sts_success) THEN
15021: ----------------------dbms_output.put_line('Hello:GET_TERM_TEMPLATE_ID:SUCCESS'||p_payment_terms_tbl(i).term_template_id);--Rupak
15022: GET_TEMPLATE_DEFAULTS ( p_payment_terms_tbl(i));
15023: l_default_flag := 'Y';
15016: fnd_message.set_token ('COLUMN', SUBSTR(l_param_term_template,3));
15017: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15018: fnd_msg_pub.ADD;
15019: RAISE fnd_api.g_exc_unexpected_error;
15020: ELSIF (x_return_status = fnd_api.g_ret_sts_success) THEN
15021: ----------------------dbms_output.put_line('Hello:GET_TERM_TEMPLATE_ID:SUCCESS'||p_payment_terms_tbl(i).term_template_id);--Rupak
15022: GET_TEMPLATE_DEFAULTS ( p_payment_terms_tbl(i));
15023: l_default_flag := 'Y';
15024: END IF;
15138: ,p_payment_terms_tbl(i).attribute14
15139: ,p_payment_terms_tbl(i).attribute15
15140: ,x_return_status
15141: );
15142: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
15143: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15144: fnd_message.set_token ('API_NAME', l_api_name_full);
15145: fnd_message.set_token ('NULL_PARAM','Required attribute in Payments is NULL');
15146: fnd_msg_pub.ADD;
15143: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15144: fnd_message.set_token ('API_NAME', l_api_name_full);
15145: fnd_message.set_token ('NULL_PARAM','Required attribute in Payments is NULL');
15146: fnd_msg_pub.ADD;
15147: RAISE fnd_api.g_exc_error;
15148: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15149: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15150: fnd_message.set_token ('API_NAME', l_api_name_full);
15151: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Payments is NULL');
15144: fnd_message.set_token ('API_NAME', l_api_name_full);
15145: fnd_message.set_token ('NULL_PARAM','Required attribute in Payments is NULL');
15146: fnd_msg_pub.ADD;
15147: RAISE fnd_api.g_exc_error;
15148: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15149: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15150: fnd_message.set_token ('API_NAME', l_api_name_full);
15151: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Payments is NULL');
15152: fnd_msg_pub.ADD;
15149: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15150: fnd_message.set_token ('API_NAME', l_api_name_full);
15151: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Payments is NULL');
15152: fnd_msg_pub.ADD;
15153: RAISE fnd_api.g_exc_unexpected_error;
15154: ELSE*/
15155: IF NOT ((p_payment_terms_tbl(i).attribute_category = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).attribute_category IS NULL)
15156: AND (p_payment_terms_tbl(i).attribute1 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).attribute1 IS NULL)
15157: AND (p_payment_terms_tbl(i).attribute2 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).attribute2 IS NULL)
15193: , p_resp_id => fnd_global.resp_id
15194: , p_return_status => x_return_status
15195: );
15196:
15197: IF (x_return_status = fnd_api.g_ret_sts_error)
15198: THEN
15199: p_payment_terms_tbl(i).error_flag:='Y';
15200: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15201: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15200: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15201: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15202: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15203: fnd_msg_pub.ADD;
15204: RAISE fnd_api.g_exc_error;
15205: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15206: THEN
15207: p_payment_terms_tbl(i).error_flag:='Y';
15208: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15201: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15202: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15203: fnd_msg_pub.ADD;
15204: RAISE fnd_api.g_exc_error;
15205: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15206: THEN
15207: p_payment_terms_tbl(i).error_flag:='Y';
15208: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15209: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15208: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15209: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15210: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15211: fnd_msg_pub.ADD;
15212: RAISE fnd_api.g_exc_unexpected_error;
15213: END IF;
15214: END IF; -- End of attributes valitions in create_terms
15215: END IF;
15216:
15322: ,p_payment_terms_tbl(i).project_attribute14
15323: ,p_payment_terms_tbl(i).project_attribute15
15324: ,x_return_status
15325: );
15326: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
15327: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15328: fnd_message.set_token ('API_NAME', l_api_name_full);
15329: fnd_message.set_token ('NULL_PARAM','Required attribute in Project Payments is NULL');
15330: fnd_msg_pub.ADD;
15327: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15328: fnd_message.set_token ('API_NAME', l_api_name_full);
15329: fnd_message.set_token ('NULL_PARAM','Required attribute in Project Payments is NULL');
15330: fnd_msg_pub.ADD;
15331: RAISE fnd_api.g_exc_error;
15332: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15333: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15334: fnd_message.set_token ('API_NAME', l_api_name_full);
15335: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Project Payments is NULL');
15328: fnd_message.set_token ('API_NAME', l_api_name_full);
15329: fnd_message.set_token ('NULL_PARAM','Required attribute in Project Payments is NULL');
15330: fnd_msg_pub.ADD;
15331: RAISE fnd_api.g_exc_error;
15332: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15333: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15334: fnd_message.set_token ('API_NAME', l_api_name_full);
15335: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Project Payments is NULL');
15336: fnd_msg_pub.ADD;
15333: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15334: fnd_message.set_token ('API_NAME', l_api_name_full);
15335: fnd_message.set_token ('NULL_PARAM', 'Required attribute in Project Payments is NULL');
15336: fnd_msg_pub.ADD;
15337: RAISE fnd_api.g_exc_unexpected_error;
15338: ELSE*/
15339: IF NOT ((p_payment_terms_tbl(i).project_attribute_category = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).project_attribute_category IS NULL)
15340: AND (p_payment_terms_tbl(i).project_attribute1 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).project_attribute1 IS NULL)
15341: AND (p_payment_terms_tbl(i).project_attribute2 = pn_lease_utils.g_pn_miss_char OR p_payment_terms_tbl(i).project_attribute2 IS NULL)
15377: , p_resp_id => fnd_global.resp_id
15378: , p_return_status => x_return_status
15379: );
15380:
15381: IF (x_return_status = fnd_api.g_ret_sts_error)
15382: THEN
15383: p_payment_terms_tbl(i).error_flag:='Y';
15384: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15385: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15384: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15385: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15386: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15387: fnd_msg_pub.ADD;
15388: RAISE fnd_api.g_exc_error;
15389: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15390: THEN
15391: p_payment_terms_tbl(i).error_flag:='Y';
15392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15385: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15386: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15387: fnd_msg_pub.ADD;
15388: RAISE fnd_api.g_exc_error;
15389: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15390: THEN
15391: p_payment_terms_tbl(i).error_flag:='Y';
15392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15393: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15392: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15393: fnd_message.set_token ('COLUMN', 'PAYMENT_DESC_FIELDS');
15394: fnd_message.set_token ('P_TEXT', 'PN_PAYMENT_TERMS'|| '-'||SQLERRM);
15395: fnd_msg_pub.ADD;
15396: RAISE fnd_api.g_exc_unexpected_error;
15397: END IF;
15398: END IF; -- End of project_attributes valitions in create_terms
15399: END IF;
15400: ---------------------------------------
15419: , x_location_id => p_payment_terms_tbl(i).location_id
15420: );
15421: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:PN_LEASE_UTILS.GET_LOCATION_ID:'||p_payment_terms_tbl(i).location_id,3);
15422: ----------------------dbms_output.put_line('Terms LOCATION_ID:' ||p_payment_terms_tbl(i).location_id);--Rupak
15423: IF (x_return_status = fnd_api.g_ret_sts_error)
15424: THEN
15425: p_payment_terms_tbl(i).error_flag := 'Y';
15426: l_error_flag:='Y';
15427: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
15427: fnd_message.set_name ('PN', 'PN_INVALID_LOCATION');
15428: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_payment_terms_tbl(i).location_id));
15429: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_payment_terms_tbl(i).location_code));
15430: fnd_msg_pub.ADD;
15431: RAISE fnd_api.g_exc_error;
15432: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15433: THEN
15434: p_payment_terms_tbl(i).error_flag := 'Y';
15435: l_error_flag:='Y';
15428: fnd_message.set_token ('LOC_ID', get_miss_num_decode(p_payment_terms_tbl(i).location_id));
15429: fnd_message.set_token ('LOC_CODE', get_miss_char_decode(p_payment_terms_tbl(i).location_code));
15430: fnd_msg_pub.ADD;
15431: RAISE fnd_api.g_exc_error;
15432: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15433: THEN
15434: p_payment_terms_tbl(i).error_flag := 'Y';
15435: l_error_flag:='Y';
15436: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15436: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15437: fnd_message.set_token ('COLUMN', SUBSTR(l_param_location_code,3));
15438: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15439: fnd_msg_pub.ADD;
15440: RAISE fnd_api.g_exc_unexpected_error;
15441: END IF;
15442: END IF;
15443: l_expense_account_id := NULL;
15444: l_receivable_account_id := NULL;
15518: WHEN OTHERS THEN
15519: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15520: fnd_message.set_token('ERR_MSG', 'Exception in Retrieving the Project Information');
15521: fnd_msg_pub.ADD;
15522: RAISE fnd_api.g_exc_error;
15523: END;
15524: IF ( p_payment_terms_tbl(i).project_id IS NULL) THEN
15525: p_payment_terms_tbl(i).project_id := l_term_project_id;
15526: END IF;
15540: IF(p_payment_terms_tbl(i).project_id IS NULL) THEN
15541: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15542: fnd_message.set_token('ERR_MSG', 'Account Information not Passed.Please Pass the Account Related Information');
15543: fnd_msg_pub.ADD;
15544: RAISE fnd_api.g_exc_error;
15545: /*fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15546: fnd_message.set_token ('API_NAME', p_api_name_full);
15547: fnd_message.set_token ('NULL_PARAM', 'PROJECT_ID');
15548: fnd_msg_pub.ADD;
15545: /*fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15546: fnd_message.set_token ('API_NAME', p_api_name_full);
15547: fnd_message.set_token ('NULL_PARAM', 'PROJECT_ID');
15548: fnd_msg_pub.ADD;
15549: RAISE fnd_api.g_exc_error;*/
15550: ELSE
15551: IF(p_payment_terms_tbl(i).task_id IS NULL) THEN
15552: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15553: fnd_message.set_token ('API_NAME', p_api_name_full);
15552: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15553: fnd_message.set_token ('API_NAME', p_api_name_full);
15554: fnd_message.set_token ('NULL_PARAM', 'TASK_ID');
15555: fnd_msg_pub.ADD;
15556: RAISE fnd_api.g_exc_error;
15557: ELSE
15558: IF(p_payment_terms_tbl(i).organization_id IS NULL) THEN
15559: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15560: fnd_message.set_token ('API_NAME', p_api_name_full);
15559: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15560: fnd_message.set_token ('API_NAME', p_api_name_full);
15561: fnd_message.set_token ('NULL_PARAM', 'EXPENDITURE_ORGANIZATION_ID');
15562: fnd_msg_pub.ADD;
15563: RAISE fnd_api.g_exc_error;
15564: ELSE
15565: IF(p_payment_terms_tbl(i).expenditure_type IS NULL) THEN
15566: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15567: fnd_message.set_token ('API_NAME', p_api_name_full);
15566: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15567: fnd_message.set_token ('API_NAME', p_api_name_full);
15568: fnd_message.set_token ('NULL_PARAM', 'EXPENDITURE_TYPE');
15569: fnd_msg_pub.ADD;
15570: RAISE fnd_api.g_exc_error;
15571: ELSE
15572: IF(p_payment_terms_tbl(i).expenditure_item_date IS NULL) THEN
15573: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15574: fnd_message.set_token ('API_NAME', p_api_name_full);
15573: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
15574: fnd_message.set_token ('API_NAME', p_api_name_full);
15575: fnd_message.set_token ('NULL_PARAM', 'EXPENDITURE_ITEM_DATE');
15576: fnd_msg_pub.ADD;
15577: RAISE fnd_api.g_exc_error;
15578: ELSE
15579: BEGIN
15580: SELECT 'x'
15581: INTO l_check
15589: WHEN OTHERS THEN
15590: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15591: fnd_message.set_token('ERR_MSG', 'Invalid Project ID for the Payment ID:'||p_payment_terms_tbl(i).payment_term_id);
15592: fnd_msg_pub.ADD;
15593: RAISE fnd_api.g_exc_error;
15594: END;
15595: BEGIN
15596: SELECT 'x'
15597: INTO l_check
15603: WHEN OTHERS THEN
15604: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15605: fnd_message.set_token('ERR_MSG', 'Invalid Task ID for the Payment ID:'||p_payment_terms_tbl(i).payment_term_id);
15606: fnd_msg_pub.ADD;
15607: RAISE fnd_api.g_exc_error;
15608: END;
15609: BEGIN
15610: SELECT 'x'
15611: INTO l_check
15618: WHEN OTHERS THEN
15619: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15620: fnd_message.set_token('ERR_MSG', 'Invalid Expenditure Type for the Payment ID:'||p_payment_terms_tbl(i).payment_term_id);
15621: fnd_msg_pub.ADD;
15622: RAISE fnd_api.g_exc_error;
15623: END;
15624: BEGIN
15625: SELECT p_payment_terms_tbl(i).expenditure_item_date
15626: INTO l_check_date
15629: WHEN OTHERS THEN
15630: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15631: fnd_message.set_token('ERR_MSG', 'Invalid Expenditure Date for the Payment ID:'||p_payment_terms_tbl(i).payment_term_id);
15632: fnd_msg_pub.ADD;
15633: RAISE fnd_api.g_exc_error;
15634: END;
15635: BEGIN
15636: SELECT 'x'
15637: INTO l_check
15644: WHEN OTHERS THEN
15645: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15646: fnd_message.set_token('ERR_MSG', 'Invalid Organization ID for the Payment ID:'||p_payment_terms_tbl(i).payment_term_id);
15647: fnd_msg_pub.ADD;
15648: RAISE fnd_api.g_exc_error;
15649: END;
15650: END IF;
15651:
15652: END IF;
15670: ELSE
15671: pvt_debug(g_pkg_name||'Please Specify the Account Percentage',3);
15672: fnd_message.set_name ('PN', 'PN_DIST_PRCNT_TTL_MSG');
15673: fnd_msg_pub.ADD;
15674: RAISE fnd_api.g_exc_error;
15675: END IF;
15676: END LOOP;
15677:
15678: IF (k <> 100) THEN
15679: ------------------dbms_output.put_line('Total Account is not 100%');--Rupak
15680: pvt_debug(g_pkg_name||'VALIDATE_PAYMENTS:Total Account is not 100%',3);
15681: fnd_message.set_name ('PN', 'PN_DIST_PRCNT_TTL_MSG');
15682: fnd_msg_pub.ADD;
15683: RAISE fnd_api.g_exc_error;
15684: ELSE
15685:
15686: FOR j in 1..p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl.COUNT
15687: LOOP
15716: , p_account_segment20 => p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_segment20
15717: , x_return_status => x_return_status
15718: );
15719:
15720: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15721: IF ((p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
15722: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
15723: fnd_message.set_token ('ACCOUNT_CONC_SEGS','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs);
15724: fnd_msg_pub.ADD;
15721: IF ((p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
15722: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
15723: fnd_message.set_token ('ACCOUNT_CONC_SEGS','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs);
15724: fnd_msg_pub.ADD;
15725: RAISE fnd_api.g_exc_error;
15726: ELSIF((p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
15727: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15728: fnd_message.set_token ('ACCOUNT_ID','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id);
15729: fnd_msg_pub.ADD;
15726: ELSIF((p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
15727: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15728: fnd_message.set_token ('ACCOUNT_ID','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_id);
15729: fnd_msg_pub.ADD;
15730: RAISE fnd_api.g_exc_error;
15731: ELSE
15732: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
15733: fnd_message.set_token ('ACCOUNT_SEGMENTS','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs);
15734: fnd_msg_pub.ADD;
15731: ELSE
15732: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
15733: fnd_message.set_token ('ACCOUNT_SEGMENTS','Expense or Revenue'||p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_conc_segs);
15734: fnd_msg_pub.ADD;
15735: RAISE fnd_api.g_exc_error;
15736: END IF;
15737:
15738: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15739: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15734: fnd_msg_pub.ADD;
15735: RAISE fnd_api.g_exc_error;
15736: END IF;
15737:
15738: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15739: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15740: fnd_message.set_token ('COLUMN', SUBSTR(l_exp_rev||'ACCOUNT INFORMATION',3));
15741: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15742: fnd_msg_pub.ADD;
15774: pvt_debug(g_pkg_name||'Revenue/Expense Account ID NULL:'||SQLERRM,3);
15775: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15776: fnd_message.set_token ('ACCOUNT_ID', l_exp_rev||' ACCOUNT ID IS NULL');
15777: fnd_msg_pub.ADD;
15778: RAISE fnd_api.g_exc_error;
15779: END;
15780: ELSE
15781: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15782: fnd_message.set_token ('ACCOUNT_ID', l_exp_rev||' ACCOUNT ID IS NULL');
15780: ELSE
15781: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15782: fnd_message.set_token ('ACCOUNT_ID', l_exp_rev||' ACCOUNT ID IS NULL');
15783: fnd_msg_pub.ADD;
15784: RAISE fnd_api.g_exc_error;
15785: END IF;
15786: ELSE
15787: NULL;
15788: END IF;
15817: ELSE
15818: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15819: fnd_message.set_token ('ACCOUNT_ID', l_exp_rev||' ACCOUNT ID IS NULL');
15820: fnd_msg_pub.ADD;
15821: RAISE fnd_api.g_exc_error;
15822: END IF;
15823: ELSE
15824: NULL;
15825: END IF;
15862: , p_account_segment19 => p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_segment19
15863: , p_account_segment20 => p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_segment20
15864: , x_return_status => x_return_status
15865: );
15866: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15867: IF ((p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
15868: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
15869: fnd_message.set_token ('ACCOUNT_CONC_SEGS', p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs);
15870: fnd_msg_pub.ADD;
15867: IF ((p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
15868: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
15869: fnd_message.set_token ('ACCOUNT_CONC_SEGS', p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs);
15870: fnd_msg_pub.ADD;
15871: RAISE fnd_api.g_exc_error;
15872: ELSIF((p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
15873: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15874: fnd_message.set_token ('ACCOUNT_ID', 'Receivable or Liability Account:'||p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id);
15875: fnd_msg_pub.ADD;
15872: ELSIF((p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
15873: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15874: fnd_message.set_token ('ACCOUNT_ID', 'Receivable or Liability Account:'||p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id);
15875: fnd_msg_pub.ADD;
15876: RAISE fnd_api.g_exc_error;
15877: ELSE
15878: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
15879: fnd_message.set_token ('ACCOUNT_SEGMENTS','Receivable or Liability Account:'||p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs);
15880: fnd_msg_pub.ADD;
15877: ELSE
15878: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
15879: fnd_message.set_token ('ACCOUNT_SEGMENTS','Receivable or Liability Account:'||p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs);
15880: fnd_msg_pub.ADD;
15881: RAISE fnd_api.g_exc_error;
15882: END IF;
15883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15884: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15885: fnd_message.set_token ('COLUMN', SUBSTR(l_lia_rec||'ACCOUNT INFORMATION',3));
15879: fnd_message.set_token ('ACCOUNT_SEGMENTS','Receivable or Liability Account:'||p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_conc_segs);
15880: fnd_msg_pub.ADD;
15881: RAISE fnd_api.g_exc_error;
15882: END IF;
15883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15884: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
15885: fnd_message.set_token ('COLUMN', SUBSTR(l_lia_rec||'ACCOUNT INFORMATION',3));
15886: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
15887: fnd_msg_pub.ADD;
15892: fnd_message.set_name ('PN', 'PN_DUP_ACCOUNT_IN_DIST');
15893: fnd_message.set_token ('ACCOUNT_CLASS',l_lia_rec);
15894: fnd_message.set_token ('ACCOUNT_CLASS_A',l_lia_rec);
15895: fnd_msg_pub.ADD;
15896: RAISE fnd_api.g_exc_error;
15897: ELSE
15898: IF (p_lease_class_code ='DIRECT') THEN
15899: p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_code := 'LIA';
15900: ELSE
15933: IF( p_lease_class_code <> 'DIRECT') THEN
15934: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15935: fnd_message.set_token ('ACCOUNT_ID', l_lia_rec||' ACCOUNT ID IS NULL');
15936: fnd_msg_pub.ADD;
15937: RAISE fnd_api.g_exc_error;
15938: ELSE
15939: p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id := NULL;
15940: p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_percentage := NULL;
15941: END IF;
15944: IF( p_lease_class_code <> 'DIRECT') THEN
15945: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
15946: fnd_message.set_token ('ACCOUNT_ID', l_lia_rec||' ACCOUNT ID IS NULL');
15947: fnd_msg_pub.ADD;
15948: RAISE fnd_api.g_exc_error;
15949: ELSE
15950: p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id := NULL;
15951: p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_percentage := NULL;
15952: END IF;
15998: , p_account_segment20 => p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_segment20
15999: , x_return_status => x_return_status
16000: );
16001: --dbms_output.put_line('HELLO:GETTING ACCOUNTID'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id);
16002: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16003: IF ((p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
16004: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
16005: fnd_message.set_token ('ACCOUNT_CONC_SEGS','Accrued Account:'|| p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs);
16006: fnd_msg_pub.ADD;
16003: IF ((p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs <> pn_lease_utils.g_pn_miss_char)) THEN
16004: fnd_message.set_name ('PN', 'PN_ACCOUNT_CONC_SEGS');
16005: fnd_message.set_token ('ACCOUNT_CONC_SEGS','Accrued Account:'|| p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs);
16006: fnd_msg_pub.ADD;
16007: RAISE fnd_api.g_exc_error;
16008: ELSIF((p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
16009: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
16010: fnd_message.set_token ('ACCOUNT_ID', 'Accrued Account:'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id);
16011: fnd_msg_pub.ADD;
16008: ELSIF((p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id IS NOT NULL) AND (p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id <> pn_lease_utils.g_pn_miss_num)) THEN
16009: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
16010: fnd_message.set_token ('ACCOUNT_ID', 'Accrued Account:'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id);
16011: fnd_msg_pub.ADD;
16012: RAISE fnd_api.g_exc_error;
16013: ELSE
16014: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
16015: fnd_message.set_token ('ACCOUNT_SEGMENTS', 'Accrued Account:'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs);
16016: fnd_msg_pub.ADD;
16013: ELSE
16014: fnd_message.set_name ('PN', 'PN_ACCOUNT_SEGMENTS');
16015: fnd_message.set_token ('ACCOUNT_SEGMENTS', 'Accrued Account:'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs);
16016: fnd_msg_pub.ADD;
16017: RAISE fnd_api.g_exc_error;
16018: END IF;
16019: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16020: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
16021: fnd_message.set_token ('COLUMN', SUBSTR(l_accrued||'ACCOUNT INFORMATION',3));
16015: fnd_message.set_token ('ACCOUNT_SEGMENTS', 'Accrued Account:'||p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_conc_segs);
16016: fnd_msg_pub.ADD;
16017: RAISE fnd_api.g_exc_error;
16018: END IF;
16019: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16020: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
16021: fnd_message.set_token ('COLUMN', SUBSTR(l_accrued||'ACCOUNT INFORMATION',3));
16022: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
16023: fnd_msg_pub.ADD;
16028: fnd_message.set_name ('PN', 'PN_DUP_ACCOUNT_IN_DIST');
16029: fnd_message.set_token ('ACCOUNT_CLASS',l_accrued);
16030: fnd_message.set_token ('ACCOUNT_CLASS_A',l_accrued);
16031: fnd_msg_pub.ADD;
16032: RAISE fnd_api.g_exc_error;
16033: ELSE
16034: IF (p_lease_class_code ='DIRECT') THEN
16035: p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_code := 'ACC';
16036: ELSE
16067: /*IF(p_lease_class_code <> 'THIRD_PARTY') THEN
16068: fnd_message.set_name ('PN', 'PN_ACCOUNT_ID');
16069: fnd_message.set_token ('ACCOUNT_ID', l_accrued||' ACCOUNT ID IS NULL');
16070: fnd_msg_pub.ADD;
16071: RAISE fnd_api.g_exc_error;
16072: ELSE
16073: NULL;
16074: END IF;*/
16075: p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id := NULL;
16098: , x_return_status => x_return_status
16099: );
16100: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:INSERT_PAYMENT_TERMS_ROW Return Status:'||x_return_status,3);
16101: ------------------dbms_output.put_line('Create Success:'||x_return_status||i);--Rupak
16102: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
16103: IF(l_project_info = 'N') THEN
16104: FOR m in 1..p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl.COUNT
16105: LOOP
16106: x_distribution_id := NULL;
16256: END LOOP;
16257: -------------------------------------
16258: END IF;--Success Status
16259:
16260: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16261: l_error_flag:='Y';
16262: RAISE fnd_api.g_exc_error;
16263: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16264: l_error_flag:='Y';
16258: END IF;--Success Status
16259:
16260: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16261: l_error_flag:='Y';
16262: RAISE fnd_api.g_exc_error;
16263: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16264: l_error_flag:='Y';
16265: RAISE fnd_api.g_exc_unexpected_error;
16266: END IF;
16259:
16260: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16261: l_error_flag:='Y';
16262: RAISE fnd_api.g_exc_error;
16263: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16264: l_error_flag:='Y';
16265: RAISE fnd_api.g_exc_unexpected_error;
16266: END IF;
16267:
16261: l_error_flag:='Y';
16262: RAISE fnd_api.g_exc_error;
16263: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16264: l_error_flag:='Y';
16265: RAISE fnd_api.g_exc_unexpected_error;
16266: END IF;
16267:
16268:
16269:
16470: pvt_debug(g_pkg_name||'PN_DISTRIBUTIONS_PKG.Cannot delete the Liability and Receivable for Revenue/Sublease',3);
16471: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16472: fnd_message.set_token('ERR_MSG', 'Cannot make the Liability/Receivable ID to NULL');
16473: fnd_msg_pub.ADD;
16474: RAISE fnd_api.g_exc_error;
16475: END IF;
16476: END IF;
16477: END LOOP;
16478: END LOOP;
16666: END IF;--CREATE_TERMS-UPDATE_TERMS Check
16667: END IF; --l_project_info Check
16668: --OOPS-1
16669: EXCEPTION
16670: WHEN fnd_api.g_exc_error THEN
16671: l_err_payment_count := l_err_payment_count + 1;
16672: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
16673: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
16674: WHEN OTHERS THEN
16668: --OOPS-1
16669: EXCEPTION
16670: WHEN fnd_api.g_exc_error THEN
16671: l_err_payment_count := l_err_payment_count + 1;
16672: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
16673: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
16674: WHEN OTHERS THEN
16675: l_err_payment_count := l_err_payment_count + 1;
16676: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
16669: EXCEPTION
16670: WHEN fnd_api.g_exc_error THEN
16671: l_err_payment_count := l_err_payment_count + 1;
16672: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM);
16673: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENTS_TBL:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
16674: WHEN OTHERS THEN
16675: l_err_payment_count := l_err_payment_count + 1;
16676: ----------------------dbms_output.put_line('-VALIDATE_CONTACTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM);
16677: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENTS_TBL:LOOOPING:EXCEPTION:'||SQLERRM,3);
16678: END;
16679: END LOOP;
16680:
16681: IF ( l_err_payment_count = 0) THEN
16682: x_return_status := fnd_api.g_ret_sts_success;
16683: ELSE
16684: x_return_status := fnd_api.g_ret_sts_error;
16685: END IF;
16686:
16680:
16681: IF ( l_err_payment_count = 0) THEN
16682: x_return_status := fnd_api.g_ret_sts_success;
16683: ELSE
16684: x_return_status := fnd_api.g_ret_sts_error;
16685: END IF;
16686:
16687: EXCEPTION
16688: WHEN OTHERS THEN
16685: END IF;
16686:
16687: EXCEPTION
16688: WHEN OTHERS THEN
16689: x_return_status := fnd_api.g_ret_sts_unexp_error;
16690: pvt_debug(g_pkg_name||'-VALIDATE_PAYMENT_TERMS_TBL:Exception:'||SQLERRM,3);
16691:
16692: END validate_payment_terms_tbl;
16693:
16692: END validate_payment_terms_tbl;
16693:
16694: PROCEDURE update_terms (
16695: p_api_version IN NUMBER
16696: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16697: , p_commit IN VARCHAR2 := FND_API.G_FALSE
16698: , p_validate IN VARCHAR2 := FND_API.G_FALSE
16699: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
16700: , p_lease_id IN NUMBER
16693:
16694: PROCEDURE update_terms (
16695: p_api_version IN NUMBER
16696: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16697: , p_commit IN VARCHAR2 := FND_API.G_FALSE
16698: , p_validate IN VARCHAR2 := FND_API.G_FALSE
16699: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
16700: , p_lease_id IN NUMBER
16701: , p_lease_context IN VARCHAR2
16694: PROCEDURE update_terms (
16695: p_api_version IN NUMBER
16696: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16697: , p_commit IN VARCHAR2 := FND_API.G_FALSE
16698: , p_validate IN VARCHAR2 := FND_API.G_FALSE
16699: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
16700: , p_lease_id IN NUMBER
16701: , p_lease_context IN VARCHAR2
16702: , x_return_status OUT NOCOPY VARCHAR2
16759: p_payment_terms_tbl_update lease_terms_tbl;
16760: q NUMBER :=NULL;
16761: BEGIN
16762: ----------------------dbms_output.put_line (' IN Private :In Procedure:update_lease FIRST');--Rupak
16763: x_return_status := fnd_api.g_ret_sts_success;
16764: pvt_debug(g_pkg_name||'-Inside UPDATE_TERMS:',3);
16765: -- Standard start of API savepoint
16766: SAVEPOINT update_payment_pvt;
16767:
16765: -- Standard start of API savepoint
16766: SAVEPOINT update_payment_pvt;
16767:
16768: -- Initialize message list if p_init_msg_list is set to TRUE
16769: IF fnd_api.to_boolean (p_init_msg_list)
16770: THEN
16771: fnd_msg_pub.initialize;
16772: END IF;
16773:
16771: fnd_msg_pub.initialize;
16772: END IF;
16773:
16774: -- Standard call to check for call compatibility
16775: IF NOT fnd_api.compatible_api_call (l_api_version
16776: , p_api_version
16777: , l_api_name
16778: , g_pkg_name
16779: )
16777: , l_api_name
16778: , g_pkg_name
16779: )
16780: THEN
16781: RAISE fnd_api.g_exc_error;
16782: END IF;
16783:
16784: -- Initialize the return status.
16785: x_return_status := fnd_api.g_ret_sts_success;
16781: RAISE fnd_api.g_exc_error;
16782: END IF;
16783:
16784: -- Initialize the return status.
16785: x_return_status := fnd_api.g_ret_sts_success;
16786:
16787: IF p_lease_id IS NULL THEN
16788: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
16789: fnd_message.set_token ('API_NAME', l_api_name_full);
16788: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
16789: fnd_message.set_token ('API_NAME', l_api_name_full);
16790: fnd_message.set_token ('NULL_PARAM', 'LEASE_ID');
16791: fnd_msg_pub.ADD;
16792: RAISE fnd_api.g_exc_error;
16793: ELSE
16794: BEGIN
16795: l_lease_context := PN_LEASE_UTILS.get_lease_context(p_lease_id,g_org_id);
16796: SELECT pla.lease_class_code
16821: fnd_message.set_name ('PN', 'PN_INV_LEASECONT');
16822: fnd_message.set_token ('API_NAME', l_api_name_full);
16823: fnd_message.set_token ('LEASE_ID', p_lease_id);
16824: fnd_msg_pub.ADD;
16825: RAISE fnd_api.g_exc_error;
16826: END IF;*/
16827:
16828: EXCEPTION
16829: WHEN OTHERS THEN
16830: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_ERROR');
16831: fnd_message.set_token ('COLUMN', 'Unable to derive the Lease Information');
16832: fnd_message.set_token ('P_TEXT', l_api_name_full|| '-'|| SQLERRM);
16833: fnd_msg_pub.ADD;
16834: RAISE fnd_api.g_exc_unexpected_error;
16835: END;
16836: END IF;
16837:
16838:
16868: , p_operation => 'UPDATE_TERMS'
16869: , x_return_status => x_return_status
16870: );
16871: pvt_debug(g_pkg_name||'-UPDATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status'||x_return_status,3);
16872: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16873: ----------------------dbms_output.put_line('Private 2 After validate_payment_terms_tbl');--Rupak
16874: RAISE FND_API.G_EXC_ERROR;
16875: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16876: ----------------------dbms_output.put_line('Private 3 After validate_payment_terms_tbl');--Rupak
16870: );
16871: pvt_debug(g_pkg_name||'-UPDATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status'||x_return_status,3);
16872: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16873: ----------------------dbms_output.put_line('Private 2 After validate_payment_terms_tbl');--Rupak
16874: RAISE FND_API.G_EXC_ERROR;
16875: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16876: ----------------------dbms_output.put_line('Private 3 After validate_payment_terms_tbl');--Rupak
16877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16878: END IF;
16871: pvt_debug(g_pkg_name||'-UPDATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status'||x_return_status,3);
16872: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16873: ----------------------dbms_output.put_line('Private 2 After validate_payment_terms_tbl');--Rupak
16874: RAISE FND_API.G_EXC_ERROR;
16875: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16876: ----------------------dbms_output.put_line('Private 3 After validate_payment_terms_tbl');--Rupak
16877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16878: END IF;
16879: /*EXCEPTION
16873: ----------------------dbms_output.put_line('Private 2 After validate_payment_terms_tbl');--Rupak
16874: RAISE FND_API.G_EXC_ERROR;
16875: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16876: ----------------------dbms_output.put_line('Private 3 After validate_payment_terms_tbl');--Rupak
16877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16878: END IF;
16879: /*EXCEPTION
16880: WHEN fnd_api.g_exc_error THEN
16881: pvt_debug(g_pkg_name||'-UPDATE_TERMS:validate_payment_terms_tbl:Exception:'||SQLERRM,3);
16876: ----------------------dbms_output.put_line('Private 3 After validate_payment_terms_tbl');--Rupak
16877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
16878: END IF;
16879: /*EXCEPTION
16880: WHEN fnd_api.g_exc_error THEN
16881: pvt_debug(g_pkg_name||'-UPDATE_TERMS:validate_payment_terms_tbl:Exception:'||SQLERRM,3);
16882: WHEN OTHERS THEN
16883: pvt_debug(g_pkg_name||'-UPDATE_TERMS:validate_payment_terms_tbl:Unexpected Exception:'||SQLERRM,3);
16884: ----------------------dbms_output.put_line('Private 4'||SQLERRM);
16912: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:payment_purpose_code',3);
16913: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16914: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:payment_purpose_code was being updated');
16915: fnd_msg_pub.ADD;
16916: RAISE fnd_api.g_exc_error;--e_invalid_mode;
16917: END IF;
16918: IF(p_payment_terms_tbl_update(i).payment_term_type_code IS NOT NULL AND p_payment_terms_tbl_update(i).payment_term_type_code <> r_payment_terms.payment_term_type_code) THEN
16919: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:payment_term_type_code',3);
16920: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16919: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:payment_term_type_code',3);
16920: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16921: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:payment_term_type_code was being updated');
16922: fnd_msg_pub.ADD;
16923: RAISE fnd_api.g_exc_error;
16924: END IF;
16925: IF(p_payment_terms_tbl_update(i).frequency_code IS NOT NULL AND p_payment_terms_tbl_update(i).frequency_code <> r_payment_terms.frequency_code) THEN
16926: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:frequency_code',3);
16927: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16926: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:frequency_code',3);
16927: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16928: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:frequency_code was being updated');
16929: fnd_msg_pub.ADD;
16930: RAISE fnd_api.g_exc_error;
16931: END IF;
16932: IF(p_payment_terms_tbl_update(i).lease_id IS NOT NULL AND p_payment_terms_tbl_update(i).lease_id <> r_payment_terms.lease_id) THEN
16933: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:lease_id',3);
16934: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16933: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:lease_id',3);
16934: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16935: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:lease_id was being updated');
16936: fnd_msg_pub.ADD;
16937: RAISE fnd_api.g_exc_error;
16938: END IF;
16939: IF(p_payment_terms_tbl_update(i).start_date IS NOT NULL AND p_payment_terms_tbl_update(i).start_date <> r_payment_terms.start_date) THEN
16940: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:start_date',3);
16941: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16940: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:start_date',3);
16941: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16942: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:start_date was being updated');
16943: fnd_msg_pub.ADD;
16944: RAISE fnd_api.g_exc_error;
16945: END IF;
16946: IF(p_payment_terms_tbl_update(i).code_combination_id IS NOT NULL AND p_payment_terms_tbl_update(i).code_combination_id <> r_payment_terms.code_combination_id) THEN
16947: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:code_combination_id',3);
16948: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16947: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:code_combination_id',3);
16948: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16949: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:code_combination_id was being updated');
16950: fnd_msg_pub.ADD;
16951: RAISE fnd_api.g_exc_error;
16952: END IF;
16953: IF(p_payment_terms_tbl_update(i).vendor_site_id IS NOT NULL AND p_payment_terms_tbl_update(i).vendor_site_id <> r_payment_terms.vendor_site_id) THEN
16954: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:vendor_site_id',3);
16955: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16954: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:vendor_site_id',3);
16955: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16956: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:vendor_site_id was being updated');
16957: fnd_msg_pub.ADD;
16958: RAISE fnd_api.g_exc_error;
16959: END IF;
16960: IF(p_payment_terms_tbl_update(i).target_date IS NOT NULL AND p_payment_terms_tbl_update(i).target_date <> r_payment_terms.target_date) THEN
16961: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:target_date',3);
16962: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16961: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:target_date',3);
16962: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16963: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:target_date was being updated');
16964: fnd_msg_pub.ADD;
16965: RAISE fnd_api.g_exc_error;
16966: END IF;
16967: IF(p_payment_terms_tbl_update(i).actual_amount IS NOT NULL AND p_payment_terms_tbl_update(i).actual_amount <> r_payment_terms.actual_amount) THEN
16968: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:actual_amount',3);
16969: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16968: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:actual_amount',3);
16969: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16970: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:actual_amount was being updated');
16971: fnd_msg_pub.ADD;
16972: RAISE fnd_api.g_exc_error;
16973: END IF;
16974: IF(p_payment_terms_tbl_update(i).estimated_amount IS NOT NULL AND p_payment_terms_tbl_update(i).estimated_amount <> r_payment_terms.estimated_amount) THEN
16975: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:estimated_amount',3);
16976: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16975: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:estimated_amount',3);
16976: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16977: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:estimated_amount was being updated');
16978: fnd_msg_pub.ADD;
16979: RAISE fnd_api.g_exc_error;
16980: END IF;
16981: IF(p_payment_terms_tbl_update(i).set_of_books_id IS NOT NULL AND p_payment_terms_tbl_update(i).set_of_books_id <> r_payment_terms.set_of_books_id) THEN
16982: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:set_of_books_id',3);
16983: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16982: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:set_of_books_id',3);
16983: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16984: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:set_of_books_id was being updated');
16985: fnd_msg_pub.ADD;
16986: RAISE fnd_api.g_exc_error;
16987: END IF;
16988: IF(p_payment_terms_tbl_update(i).currency_code IS NOT NULL AND p_payment_terms_tbl_update(i).currency_code <> r_payment_terms.currency_code) THEN
16989: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:currency_code',3);
16990: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16989: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:currency_code',3);
16990: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16991: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:currency_code was being updated');
16992: fnd_msg_pub.ADD;
16993: RAISE fnd_api.g_exc_error;
16994: END IF;
16995: IF(p_payment_terms_tbl_update(i).rate IS NOT NULL AND p_payment_terms_tbl_update(i).rate <> r_payment_terms.rate) THEN
16996: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:rate',3);
16997: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16996: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:rate',3);
16997: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
16998: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:rate was being updated');
16999: fnd_msg_pub.ADD;
17000: RAISE fnd_api.g_exc_error;
17001: END IF;
17002: IF(p_payment_terms_tbl_update(i).normalize IS NOT NULL AND p_payment_terms_tbl_update(i).normalize <> r_payment_terms.normalize) THEN
17003: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:normalize',3);
17004: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17003: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:normalize',3);
17004: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17005: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:normalize was being updated');
17006: fnd_msg_pub.ADD;
17007: RAISE fnd_api.g_exc_error;
17008: END IF;
17009:
17010: IF(p_payment_terms_tbl_update(i).schedule_day IS NOT NULL AND p_payment_terms_tbl_update(i).schedule_day <> r_payment_terms.schedule_day) THEN
17011: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:schedule_day',3);
17011: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:schedule_day',3);
17012: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17013: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:schedule_day was being updated');
17014: fnd_msg_pub.ADD;
17015: RAISE fnd_api.g_exc_error;
17016: END IF;
17017:
17018: IF(p_payment_terms_tbl_update(i).project_id IS NOT NULL AND p_payment_terms_tbl_update(i).project_id <> r_payment_terms.project_id) THEN
17019: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:project_id',3);
17019: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:project_id',3);
17020: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17021: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:project_id was being updated');
17022: fnd_msg_pub.ADD;
17023: RAISE fnd_api.g_exc_error;
17024: END IF;
17025: IF(p_payment_terms_tbl_update(i).task_id IS NOT NULL AND p_payment_terms_tbl_update(i).task_id <> r_payment_terms.task_id) THEN
17026: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:task_id',3);
17027: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17026: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:task_id',3);
17027: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17028: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:task_id was being updated');
17029: fnd_msg_pub.ADD;
17030: RAISE fnd_api.g_exc_error;
17031: END IF;
17032: IF(p_payment_terms_tbl_update(i).organization_id IS NOT NULL AND p_payment_terms_tbl_update(i).organization_id <> r_payment_terms.organization_id) THEN
17033: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:organization_id',3);
17034: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17033: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:organization_id',3);
17034: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17035: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:organization_id was being updated');
17036: fnd_msg_pub.ADD;
17037: RAISE fnd_api.g_exc_error;
17038: END IF;
17039: IF(p_payment_terms_tbl_update(i).expenditure_type IS NOT NULL AND p_payment_terms_tbl_update(i).expenditure_type <> r_payment_terms.expenditure_type) THEN
17040: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:expenditure_type',3);
17041: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17040: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:expenditure_type',3);
17041: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17042: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:expenditure_type was being updated');
17043: fnd_msg_pub.ADD;
17044: RAISE fnd_api.g_exc_error;
17045: END IF;
17046: IF(p_payment_terms_tbl_update(i).expenditure_item_date IS NOT NULL AND p_payment_terms_tbl_update(i).expenditure_item_date <> r_payment_terms.expenditure_item_date) THEN
17047: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:expenditure_item_date',3);
17048: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17047: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:expenditure_item_date',3);
17048: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17049: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:expenditure_item_date was being updated');
17050: fnd_msg_pub.ADD;
17051: RAISE fnd_api.g_exc_error;
17052: END IF;
17053: IF(p_payment_terms_tbl_update(i).tax_group_id IS NOT NULL AND p_payment_terms_tbl_update(i).tax_group_id <> r_payment_terms.tax_group_id) THEN
17054: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_group_id',3);
17055: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17054: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_group_id',3);
17055: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17056: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:tax_group_id was being updated');
17057: fnd_msg_pub.ADD;
17058: RAISE fnd_api.g_exc_error;
17059: END IF;
17060: IF(p_payment_terms_tbl_update(i).tax_code_id IS NOT NULL AND p_payment_terms_tbl_update(i).tax_code_id <> r_payment_terms.tax_code_id) THEN
17061: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_code_id',3);
17062: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17061: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_code_id',3);
17062: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17063: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:tax_code_id was being updated');
17064: fnd_msg_pub.ADD;
17065: RAISE fnd_api.g_exc_error;
17066: END IF;
17067: IF(p_payment_terms_tbl_update(i).tax_included IS NOT NULL AND p_payment_terms_tbl_update(i).tax_included <> r_payment_terms.tax_included) THEN
17068: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_included',3);
17069: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17068: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_included',3);
17069: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17070: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:tax_included was being updated');
17071: fnd_msg_pub.ADD;
17072: RAISE fnd_api.g_exc_error;
17073: END IF;
17074: IF(p_payment_terms_tbl_update(i).distribution_set_id IS NOT NULL AND p_payment_terms_tbl_update(i).distribution_set_id <> r_payment_terms.distribution_set_id) THEN
17075: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:distribution_set_id',3);
17076: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17075: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:distribution_set_id',3);
17076: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17077: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:distribution_set_id was being updated');
17078: fnd_msg_pub.ADD;
17079: RAISE fnd_api.g_exc_error;
17080: END IF;
17081: IF(p_payment_terms_tbl_update(i).inv_rule_id IS NOT NULL AND p_payment_terms_tbl_update(i).inv_rule_id <> r_payment_terms.inv_rule_id) THEN
17082: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:inv_rule_id',3);
17083: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17082: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:inv_rule_id',3);
17083: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17084: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:inv_rule_id was being updated');
17085: fnd_msg_pub.ADD;
17086: RAISE fnd_api.g_exc_error;
17087: END IF;
17088: IF(p_payment_terms_tbl_update(i).account_rule_id IS NOT NULL AND p_payment_terms_tbl_update(i).account_rule_id <> r_payment_terms.account_rule_id) THEN
17089: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:account_rule_id',3);
17090: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17089: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:account_rule_id',3);
17090: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17091: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:account_rule_id was being updated');
17092: fnd_msg_pub.ADD;
17093: RAISE fnd_api.g_exc_error;
17094: END IF;
17095: IF(p_payment_terms_tbl_update(i).salesrep_id IS NOT NULL AND p_payment_terms_tbl_update(i).salesrep_id <> r_payment_terms.salesrep_id) THEN
17096: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:salesrep_id',3);
17097: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17096: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:salesrep_id',3);
17097: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17098: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:salesrep_id was being updated');
17099: fnd_msg_pub.ADD;
17100: RAISE fnd_api.g_exc_error;
17101: END IF;
17102: IF(p_payment_terms_tbl_update(i).approved_by IS NOT NULL AND p_payment_terms_tbl_update(i).approved_by <> r_payment_terms.approved_by) THEN
17103: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:approved_by',3);
17104: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17103: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:approved_by',3);
17104: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17105: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:approved_by was being updated');
17106: fnd_msg_pub.ADD;
17107: RAISE fnd_api.g_exc_error;
17108: END IF;
17109: IF(p_payment_terms_tbl_update(i).status IS NOT NULL AND p_payment_terms_tbl_update(i).status <> r_payment_terms.status) THEN
17110: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:status',3);
17111: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17110: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:status',3);
17111: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17112: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:status was being updated');
17113: fnd_msg_pub.ADD;
17114: RAISE fnd_api.g_exc_error;
17115: END IF;
17116: IF(p_payment_terms_tbl_update(i).index_period_id IS NOT NULL AND p_payment_terms_tbl_update(i).index_period_id <> r_payment_terms.index_period_id) THEN
17117: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_period_id',3);
17118: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17117: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_period_id',3);
17118: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17119: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:index_period_id was being updated');
17120: fnd_msg_pub.ADD;
17121: RAISE fnd_api.g_exc_error;
17122: END IF;
17123: IF(p_payment_terms_tbl_update(i).index_term_indicator IS NOT NULL AND p_payment_terms_tbl_update(i).index_term_indicator <> r_payment_terms.index_term_indicator) THEN
17124: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_term_indicator',3);
17125: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17124: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_term_indicator',3);
17125: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17126: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:index_term_indicator was being updated');
17127: fnd_msg_pub.ADD;
17128: RAISE fnd_api.g_exc_error;
17129: END IF;
17130: IF(p_payment_terms_tbl_update(i).cust_po_number IS NOT NULL AND p_payment_terms_tbl_update(i).cust_po_number <> r_payment_terms.cust_po_number) THEN
17131: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_term_indicator',3);
17132: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17131: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_term_indicator',3);
17132: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17133: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:index_term_indicator was being updated');
17134: fnd_msg_pub.ADD;
17135: RAISE fnd_api.g_exc_error;
17136: END IF;
17137: IF(p_payment_terms_tbl_update(i).po_header_id IS NOT NULL AND p_payment_terms_tbl_update(i).po_header_id <> r_payment_terms.po_header_id) THEN
17138: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:po_header_id',3);
17139: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17138: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:po_header_id',3);
17139: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17140: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:po_header_id was being updated');
17141: fnd_msg_pub.ADD;
17142: RAISE fnd_api.g_exc_error;
17143: END IF;
17144: IF(p_payment_terms_tbl_update(i).receipt_method_id IS NOT NULL AND p_payment_terms_tbl_update(i).receipt_method_id <> r_payment_terms.receipt_method_id) THEN
17145: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:receipt_method_id',3);
17146: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17145: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:receipt_method_id',3);
17146: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17147: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:receipt_method_id was being updated');
17148: fnd_msg_pub.ADD;
17149: RAISE fnd_api.g_exc_error;
17150: END IF;
17151: IF(p_payment_terms_tbl_update(i).var_rent_inv_id IS NOT NULL AND p_payment_terms_tbl_update(i).var_rent_inv_id <> r_payment_terms.var_rent_inv_id) THEN
17152: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:var_rent_inv_id',3);
17153: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17152: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:var_rent_inv_id',3);
17153: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17154: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:var_rent_inv_id was being updated');
17155: fnd_msg_pub.ADD;
17156: RAISE fnd_api.g_exc_error;
17157: END IF;
17158: IF(p_payment_terms_tbl_update(i).var_rent_type IS NOT NULL AND p_payment_terms_tbl_update(i).var_rent_type <> r_payment_terms.var_rent_type) THEN
17159: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:var_rent_type',3);
17160: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17159: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:var_rent_type',3);
17160: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17161: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:var_rent_type was being updated');
17162: fnd_msg_pub.ADD;
17163: RAISE fnd_api.g_exc_error;
17164: END IF;
17165: IF(p_payment_terms_tbl_update(i).norm_start_date IS NOT NULL AND p_payment_terms_tbl_update(i).norm_start_date <> r_payment_terms.norm_start_date) THEN
17166: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:norm_start_date',3);
17167: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17166: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:norm_start_date',3);
17167: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17168: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:norm_start_date was being updated');
17169: fnd_msg_pub.ADD;
17170: RAISE fnd_api.g_exc_error;
17171: END IF;
17172: IF(p_payment_terms_tbl_update(i).term_template_id IS NOT NULL AND p_payment_terms_tbl_update(i).term_template_id <> r_payment_terms.term_template_id) THEN
17173: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_template_id',3);
17174: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17173: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_template_id',3);
17174: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17175: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:term_template_id was being updated');
17176: fnd_msg_pub.ADD;
17177: RAISE fnd_api.g_exc_error;
17178: END IF;
17179: IF(p_payment_terms_tbl_update(i).event_type_code IS NOT NULL AND p_payment_terms_tbl_update(i).event_type_code <> r_payment_terms.event_type_code) THEN
17180: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:event_type_code',3);
17181: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17180: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:event_type_code',3);
17181: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17182: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:event_type_code was being updated');
17183: fnd_msg_pub.ADD;
17184: RAISE fnd_api.g_exc_error;
17185: END IF;
17186: IF(p_payment_terms_tbl_update(i).lease_status IS NOT NULL AND p_payment_terms_tbl_update(i).lease_status <> r_payment_terms.lease_status) THEN
17187: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:lease_status',3);
17188: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17187: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:lease_status',3);
17188: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17189: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:lease_status was being updated');
17190: fnd_msg_pub.ADD;
17191: RAISE fnd_api.g_exc_error;
17192: END IF;
17193: IF(p_payment_terms_tbl_update(i).norm_end_date IS NOT NULL AND p_payment_terms_tbl_update(i).norm_end_date <> r_payment_terms.norm_end_date) THEN
17194: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:norm_end_date',3);
17195: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17194: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:norm_end_date',3);
17195: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17196: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:norm_end_date was being updated');
17197: fnd_msg_pub.ADD;
17198: RAISE fnd_api.g_exc_error;
17199: END IF;
17200: IF(p_payment_terms_tbl_update(i).recoverable_flag IS NOT NULL AND p_payment_terms_tbl_update(i).recoverable_flag <> r_payment_terms.recoverable_flag) THEN
17201: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:recoverable_flag',3);
17202: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17201: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:recoverable_flag',3);
17202: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17203: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:recoverable_flag was being updated');
17204: fnd_msg_pub.ADD;
17205: RAISE fnd_api.g_exc_error;
17206: END IF;
17207: IF(p_payment_terms_tbl_update(i).period_billrec_id IS NOT NULL AND p_payment_terms_tbl_update(i).period_billrec_id <> r_payment_terms.period_billrec_id) THEN
17208: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:period_billrec_id',3);
17209: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17208: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:period_billrec_id',3);
17209: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17210: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:period_billrec_id was being updated');
17211: fnd_msg_pub.ADD;
17212: RAISE fnd_api.g_exc_error;
17213: END IF;
17214: IF(p_payment_terms_tbl_update(i).amount_type IS NOT NULL AND p_payment_terms_tbl_update(i).amount_type <> r_payment_terms.amount_type) THEN
17215: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:amount_type',3);
17216: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17215: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:amount_type',3);
17216: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17217: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:amount_type was being updated');
17218: fnd_msg_pub.ADD;
17219: RAISE fnd_api.g_exc_error;
17220: END IF;
17221: IF(p_payment_terms_tbl_update(i).rec_agr_line_id IS NOT NULL AND p_payment_terms_tbl_update(i).rec_agr_line_id <> r_payment_terms.rec_agr_line_id) THEN
17222: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:rec_agr_line_id',3);
17223: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17222: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:rec_agr_line_id',3);
17223: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17224: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:rec_agr_line_id was being updated');
17225: fnd_msg_pub.ADD;
17226: RAISE fnd_api.g_exc_error;
17227: END IF;
17228: IF(p_payment_terms_tbl_update(i).grouping_rule_id IS NOT NULL AND p_payment_terms_tbl_update(i).grouping_rule_id <> r_payment_terms.grouping_rule_id) THEN
17229: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:grouping_rule_id',3);
17230: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17229: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:grouping_rule_id',3);
17230: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17231: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:grouping_rule_id was being updated');
17232: fnd_msg_pub.ADD;
17233: RAISE fnd_api.g_exc_error;
17234: END IF;
17235: IF(p_payment_terms_tbl_update(i).area_type_code IS NOT NULL AND p_payment_terms_tbl_update(i).area_type_code <> r_payment_terms.area_type_code) THEN
17236: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:area_type_code',3);
17237: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17236: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:area_type_code',3);
17237: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17238: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:area_type_code was being updated');
17239: fnd_msg_pub.ADD;
17240: RAISE fnd_api.g_exc_error;
17241: END IF;
17242: IF(p_payment_terms_tbl_update(i).area IS NOT NULL AND p_payment_terms_tbl_update(i).area <> r_payment_terms.area) THEN
17243: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:area',3);
17244: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17243: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:area',3);
17244: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17245: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:area was being updated');
17246: fnd_msg_pub.ADD;
17247: RAISE fnd_api.g_exc_error;
17248: END IF;
17249: IF(p_payment_terms_tbl_update(i).term_altered_flag IS NOT NULL AND p_payment_terms_tbl_update(i).term_altered_flag <> r_payment_terms.term_altered_flag) THEN
17250: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_altered_flag',3);
17251: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17250: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_altered_flag',3);
17251: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17252: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:term_altered_flag was being updated');
17253: fnd_msg_pub.ADD;
17254: RAISE fnd_api.g_exc_error;
17255: END IF;
17256: IF(p_payment_terms_tbl_update(i).source_code IS NOT NULL AND p_payment_terms_tbl_update(i).source_code <> r_payment_terms.source_code) THEN
17257: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:source_code',3);
17258: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17257: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:source_code',3);
17258: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17259: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:source_code was being updated');
17260: fnd_msg_pub.ADD;
17261: RAISE fnd_api.g_exc_error;
17262: END IF;
17263: IF(p_payment_terms_tbl_update(i).term_comments IS NOT NULL AND p_payment_terms_tbl_update(i).term_comments <> r_payment_terms.term_comments) THEN
17264: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_comments',3);
17265: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17264: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:term_comments',3);
17265: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17266: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:term_comments was being updated');
17267: fnd_msg_pub.ADD;
17268: RAISE fnd_api.g_exc_error;
17269: END IF;
17270: IF(p_payment_terms_tbl_update(i).legal_entity_id IS NOT NULL AND p_payment_terms_tbl_update(i).legal_entity_id <> r_payment_terms.legal_entity_id) THEN
17271: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:legal_entity_id',3);
17272: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17271: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:legal_entity_id',3);
17272: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17273: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:legal_entity_id was being updated');
17274: fnd_msg_pub.ADD;
17275: RAISE fnd_api.g_exc_error;
17276: END IF;
17277: IF(p_payment_terms_tbl_update(i).tax_classification_code IS NOT NULL AND p_payment_terms_tbl_update(i).tax_classification_code <> r_payment_terms.tax_classification_code) THEN
17278: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_classification_code',3);
17279: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17278: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:tax_classification_code',3);
17279: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17280: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:tax_classification_code was being updated');
17281: fnd_msg_pub.ADD;
17282: RAISE fnd_api.g_exc_error;
17283: END IF;
17284: IF(p_payment_terms_tbl_update(i).index_norm_flag IS NOT NULL AND p_payment_terms_tbl_update(i).index_norm_flag <> r_payment_terms.index_norm_flag) THEN
17285: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_norm_flag',3);
17286: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17285: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:index_norm_flag',3);
17286: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17287: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:index_norm_flag was being updated');
17288: fnd_msg_pub.ADD;
17289: RAISE fnd_api.g_exc_error;
17290: END IF;
17291: IF(p_payment_terms_tbl_update(i).parent_term_id IS NOT NULL AND p_payment_terms_tbl_update(i).parent_term_id <> r_payment_terms.parent_term_id) THEN
17292: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:parent_term_id',3);
17293: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17292: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:parent_term_id',3);
17293: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17294: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:parent_term_id was being updated');
17295: fnd_msg_pub.ADD;
17296: RAISE fnd_api.g_exc_error;
17297: END IF;
17298: IF(p_payment_terms_tbl_update(i).include_in_var_rent IS NOT NULL AND p_payment_terms_tbl_update(i).include_in_var_rent <> r_payment_terms.include_in_var_rent) THEN
17299: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:include_in_var_rent',3);
17300: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17299: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:include_in_var_rent',3);
17300: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17301: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:include_in_var_rent was being updated');
17302: fnd_msg_pub.ADD;
17303: RAISE fnd_api.g_exc_error;
17304: END IF;
17305: IF(p_payment_terms_tbl_update(i).update_nbp_flag IS NOT NULL AND p_payment_terms_tbl_update(i).update_nbp_flag <> r_payment_terms.update_nbp_flag) THEN
17306: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:update_nbp_flag',3);
17307: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17306: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:update_nbp_flag',3);
17307: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17308: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:update_nbp_flag was being updated');
17309: fnd_msg_pub.ADD;
17310: RAISE fnd_api.g_exc_error;
17311: END IF;
17312: IF(p_payment_terms_tbl_update(i).recur_bb_calc_date IS NOT NULL AND p_payment_terms_tbl_update(i).recur_bb_calc_date <> r_payment_terms.recur_bb_calc_date) THEN
17313: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:recur_bb_calc_date',3);
17314: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17313: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:recur_bb_calc_date',3);
17314: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17315: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:recur_bb_calc_date was being updated');
17316: fnd_msg_pub.ADD;
17317: RAISE fnd_api.g_exc_error;
17318: END IF;
17319: IF(p_payment_terms_tbl_update(i).opex_type IS NOT NULL AND p_payment_terms_tbl_update(i).opex_type <> r_payment_terms.opex_type) THEN
17320: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_type',3);
17321: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17320: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_type',3);
17321: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17322: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:opex_type was being updated');
17323: fnd_msg_pub.ADD;
17324: RAISE fnd_api.g_exc_error;
17325: END IF;
17326: IF(p_payment_terms_tbl_update(i).opex_agr_id IS NOT NULL AND p_payment_terms_tbl_update(i).opex_agr_id <> r_payment_terms.opex_agr_id) THEN
17327: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_agr_id',3);
17328: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17327: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_agr_id',3);
17328: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17329: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:opex_agr_id was being updated');
17330: fnd_msg_pub.ADD;
17331: RAISE fnd_api.g_exc_error;
17332: END IF;
17333: IF(p_payment_terms_tbl_update(i).opex_recon_id IS NOT NULL AND p_payment_terms_tbl_update(i).opex_recon_id <> r_payment_terms.opex_recon_id) THEN
17334: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_recon_id',3);
17335: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17334: pvt_debug(g_pkg_name||'-UPDATE_TERMS:In Edit OR AMEND Final Mode.Cant Update the field:opex_recon_id',3);
17335: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17336: fnd_message.set_token('ERR_MSG', 'In Edit OR AMEND Final Mode.Non-Updatable field:opex_recon_id was being updated');
17337: fnd_msg_pub.ADD;
17338: RAISE fnd_api.g_exc_error;
17339: END IF;
17340:
17341: END IF;
17342:
17635: , p_lease_context => p_lease_context
17636: , x_return_status => x_return_status
17637: );
17638: pvt_debug(g_pkg_name||'UPDATE_TERMS:UPDATE_PAYMENT_TERMS_ROW Return Status:'||x_return_status,3);
17639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17640: RAISE fnd_api.g_exc_error;
17641: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17642: RAISE fnd_api.g_exc_unexpected_error;
17643: --ELSIF (x_return_status = fnd_api.g_ret_sts_success AND g_status <>'F' AND l_lease_status = 'F') THEN
17636: , x_return_status => x_return_status
17637: );
17638: pvt_debug(g_pkg_name||'UPDATE_TERMS:UPDATE_PAYMENT_TERMS_ROW Return Status:'||x_return_status,3);
17639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17640: RAISE fnd_api.g_exc_error;
17641: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17642: RAISE fnd_api.g_exc_unexpected_error;
17643: --ELSIF (x_return_status = fnd_api.g_ret_sts_success AND g_status <>'F' AND l_lease_status = 'F') THEN
17644: -- FINALIZE_RECORD ( p_lease_id,l_lease_commencement_date,p_lease_context,g_org_id,l_api_name_full,'U');
17637: );
17638: pvt_debug(g_pkg_name||'UPDATE_TERMS:UPDATE_PAYMENT_TERMS_ROW Return Status:'||x_return_status,3);
17639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17640: RAISE fnd_api.g_exc_error;
17641: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17642: RAISE fnd_api.g_exc_unexpected_error;
17643: --ELSIF (x_return_status = fnd_api.g_ret_sts_success AND g_status <>'F' AND l_lease_status = 'F') THEN
17644: -- FINALIZE_RECORD ( p_lease_id,l_lease_commencement_date,p_lease_context,g_org_id,l_api_name_full,'U');
17645: END IF;
17638: pvt_debug(g_pkg_name||'UPDATE_TERMS:UPDATE_PAYMENT_TERMS_ROW Return Status:'||x_return_status,3);
17639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17640: RAISE fnd_api.g_exc_error;
17641: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17642: RAISE fnd_api.g_exc_unexpected_error;
17643: --ELSIF (x_return_status = fnd_api.g_ret_sts_success AND g_status <>'F' AND l_lease_status = 'F') THEN
17644: -- FINALIZE_RECORD ( p_lease_id,l_lease_commencement_date,p_lease_context,g_org_id,l_api_name_full,'U');
17645: END IF;
17646:
17639: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17640: RAISE fnd_api.g_exc_error;
17641: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17642: RAISE fnd_api.g_exc_unexpected_error;
17643: --ELSIF (x_return_status = fnd_api.g_ret_sts_success AND g_status <>'F' AND l_lease_status = 'F') THEN
17644: -- FINALIZE_RECORD ( p_lease_id,l_lease_commencement_date,p_lease_context,g_org_id,l_api_name_full,'U');
17645: END IF;
17646:
17647: ----------------------dbms_output.put_line('B4 Validate Payment terms');
17663: EXCEPTION
17664: WHEN e_invalid_mode THEN
17665: null;
17666: ----------------------dbms_output.put_line('Into Exception'||SQLERRM);
17667: WHEN fnd_api.g_exc_error THEN
17668: l_error_count_err := l_error_count_err+1;
17669: --x_return_status := fnd_api.g_ret_sts_error;
17670: pvt_debug(g_pkg_name||'-update_terms:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17671: WHEN OTHERS THEN
17665: null;
17666: ----------------------dbms_output.put_line('Into Exception'||SQLERRM);
17667: WHEN fnd_api.g_exc_error THEN
17668: l_error_count_err := l_error_count_err+1;
17669: --x_return_status := fnd_api.g_ret_sts_error;
17670: pvt_debug(g_pkg_name||'-update_terms:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17671: WHEN OTHERS THEN
17672: --l_error_count_uerr := l_error_count_uerr+1;
17673: l_error_count_err := l_error_count_err+1;
17666: ----------------------dbms_output.put_line('Into Exception'||SQLERRM);
17667: WHEN fnd_api.g_exc_error THEN
17668: l_error_count_err := l_error_count_err+1;
17669: --x_return_status := fnd_api.g_ret_sts_error;
17670: pvt_debug(g_pkg_name||'-update_terms:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17671: WHEN OTHERS THEN
17672: --l_error_count_uerr := l_error_count_uerr+1;
17673: l_error_count_err := l_error_count_err+1;
17674: --x_return_status := fnd_api.g_ret_sts_unexp_error;
17670: pvt_debug(g_pkg_name||'-update_terms:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17671: WHEN OTHERS THEN
17672: --l_error_count_uerr := l_error_count_uerr+1;
17673: l_error_count_err := l_error_count_err+1;
17674: --x_return_status := fnd_api.g_ret_sts_unexp_error;
17675: pvt_debug(g_pkg_name||'-update_terms:LOOOPING:EXCEPTION:'||SQLERRM,3);
17676: END;
17677: END LOOP;
17678: EXCEPTION
17713: , x_return_status => x_return_status
17714: , x_msg_count => x_msg_count
17715: , x_msg_data => x_msg_data
17716: );
17717: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
17718: , p_count => x_msg_count
17719: , p_data => x_msg_data
17720: );
17721: EXCEPTION
17719: , p_data => x_msg_data
17720: );
17721: EXCEPTION
17722: WHEN OTHERS THEN
17723: x_return_status := fnd_api.g_ret_sts_error;
17724: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
17725: , p_count => x_msg_count
17726: , p_data => x_msg_data
17727: );
17720: );
17721: EXCEPTION
17722: WHEN OTHERS THEN
17723: x_return_status := fnd_api.g_ret_sts_error;
17724: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
17725: , p_count => x_msg_count
17726: , p_data => x_msg_data
17727: );
17728: END;
17728: END;
17729: END IF;
17730:
17731: IF(l_error_count_err = 0) THEN
17732: x_return_status := fnd_api.g_ret_sts_success;
17733: ELSE
17734: x_return_status := fnd_api.g_ret_sts_error;
17735: END IF;
17736: EXCEPTION
17730:
17731: IF(l_error_count_err = 0) THEN
17732: x_return_status := fnd_api.g_ret_sts_success;
17733: ELSE
17734: x_return_status := fnd_api.g_ret_sts_error;
17735: END IF;
17736: EXCEPTION
17737: WHEN fnd_api.g_exc_error THEN
17738: x_return_status := fnd_api.g_ret_sts_error;
17733: ELSE
17734: x_return_status := fnd_api.g_ret_sts_error;
17735: END IF;
17736: EXCEPTION
17737: WHEN fnd_api.g_exc_error THEN
17738: x_return_status := fnd_api.g_ret_sts_error;
17739: pvt_debug(g_pkg_name||'-update_terms::MAIN EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17740: WHEN OTHERS THEN
17741: x_return_status := fnd_api.g_ret_sts_unexp_error;
17734: x_return_status := fnd_api.g_ret_sts_error;
17735: END IF;
17736: EXCEPTION
17737: WHEN fnd_api.g_exc_error THEN
17738: x_return_status := fnd_api.g_ret_sts_error;
17739: pvt_debug(g_pkg_name||'-update_terms::MAIN EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17740: WHEN OTHERS THEN
17741: x_return_status := fnd_api.g_ret_sts_unexp_error;
17742: pvt_debug(g_pkg_name||'-update_terms:MAIN:EXCEPTION:'||SQLERRM,3);
17735: END IF;
17736: EXCEPTION
17737: WHEN fnd_api.g_exc_error THEN
17738: x_return_status := fnd_api.g_ret_sts_error;
17739: pvt_debug(g_pkg_name||'-update_terms::MAIN EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17740: WHEN OTHERS THEN
17741: x_return_status := fnd_api.g_ret_sts_unexp_error;
17742: pvt_debug(g_pkg_name||'-update_terms:MAIN:EXCEPTION:'||SQLERRM,3);
17743: END update_terms;
17737: WHEN fnd_api.g_exc_error THEN
17738: x_return_status := fnd_api.g_ret_sts_error;
17739: pvt_debug(g_pkg_name||'-update_terms::MAIN EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
17740: WHEN OTHERS THEN
17741: x_return_status := fnd_api.g_ret_sts_unexp_error;
17742: pvt_debug(g_pkg_name||'-update_terms:MAIN:EXCEPTION:'||SQLERRM,3);
17743: END update_terms;
17744:
17745:
17747:
17748: /*Insert payment */
17749: PROCEDURE create_terms (
17750: p_api_version IN NUMBER
17751: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17752: , p_commit IN VARCHAR2 := FND_API.G_FALSE
17753: , p_validate IN VARCHAR2 := FND_API.G_FALSE
17754: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
17755: , p_lease_id IN NUMBER
17748: /*Insert payment */
17749: PROCEDURE create_terms (
17750: p_api_version IN NUMBER
17751: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17752: , p_commit IN VARCHAR2 := FND_API.G_FALSE
17753: , p_validate IN VARCHAR2 := FND_API.G_FALSE
17754: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
17755: , p_lease_id IN NUMBER
17756: , p_lease_context IN VARCHAR2 DEFAULT NULL
17749: PROCEDURE create_terms (
17750: p_api_version IN NUMBER
17751: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
17752: , p_commit IN VARCHAR2 := FND_API.G_FALSE
17753: , p_validate IN VARCHAR2 := FND_API.G_FALSE
17754: , p_payment_terms_tbl IN OUT NOCOPY lease_terms_tbl
17755: , p_lease_id IN NUMBER
17756: , p_lease_context IN VARCHAR2 DEFAULT NULL
17757: , x_return_status OUT NOCOPY VARCHAR2
17785: -- Standard start of API savepoint
17786: SAVEPOINT insert_payment_pvt;
17787:
17788: -- Initialize message list if p_init_msg_list is set to TRUE
17789: IF fnd_api.to_boolean (p_init_msg_list)
17790: THEN
17791: fnd_msg_pub.initialize;
17792: END IF;
17793:
17791: fnd_msg_pub.initialize;
17792: END IF;
17793:
17794: -- Standard call to check for call compatibility
17795: IF NOT fnd_api.compatible_api_call (l_api_version
17796: , p_api_version
17797: , l_api_name
17798: , g_pkg_name
17799: )
17797: , l_api_name
17798: , g_pkg_name
17799: )
17800: THEN
17801: RAISE fnd_api.g_exc_error;
17802: END IF;
17803:
17804: -- Initialize the return status.
17805: x_return_status := fnd_api.g_ret_sts_success;
17801: RAISE fnd_api.g_exc_error;
17802: END IF;
17803:
17804: -- Initialize the return status.
17805: x_return_status := fnd_api.g_ret_sts_success;
17806:
17807: -------------------------------------------
17808: -- Make sure the Lease Number or Lease Id is not null
17809: -- -------------------------------------------
17809: -- -------------------------------------------
17810: IF p_lease_id IS NULL
17811: THEN
17812: pn_lease_utils.add_null_parameter_msg (p_token_apiname => l_api_name_full, p_token_nullparam => 'LEASE_ID');
17813: RAISE fnd_api.g_exc_error;
17814: ELSE
17815: BEGIN
17816: l_lease_context := PN_LEASE_UTILS.get_lease_context(p_lease_id,g_org_id);
17817:
17845: fnd_message.set_name ('PN', 'PN_INV_LEASECONT');
17846: fnd_message.set_token ('API_NAME', l_api_name_full);
17847: fnd_message.set_token ('LEASE_ID', p_lease_id);
17848: fnd_msg_pub.ADD;
17849: RAISE fnd_api.g_exc_error;
17850: END IF;*/
17851:
17852: EXCEPTION
17853: WHEN OTHERS
17856: fnd_message.set_token ('API_NAME', l_api_name_full);
17857: fnd_message.set_token ('LEASE_ID', p_lease_id);
17858: fnd_message.set_token ('SQLERRM', SQLERRM);
17859: fnd_msg_pub.ADD;
17860: RAISE fnd_api.g_exc_error;
17861: END;
17862: END IF;
17863: ----------------------dbms_output.put_line('B4 Calling Validate Payments:p_lease_id'||p_lease_id);--Rupak
17864: ----Not yet Created..Rupak
17877: , p_operation => 'CREATE_TERMS'
17878: , x_return_status => x_return_status
17879: );
17880: pvt_debug(g_pkg_name||'CREATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status:'||x_return_status,3);
17881: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17882: RAISE fnd_api.g_exc_error;
17883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17884: RAISE fnd_api.g_exc_unexpected_error;
17885: END IF;
17878: , x_return_status => x_return_status
17879: );
17880: pvt_debug(g_pkg_name||'CREATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status:'||x_return_status,3);
17881: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17882: RAISE fnd_api.g_exc_error;
17883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17884: RAISE fnd_api.g_exc_unexpected_error;
17885: END IF;
17886: BEGIN
17879: );
17880: pvt_debug(g_pkg_name||'CREATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status:'||x_return_status,3);
17881: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17882: RAISE fnd_api.g_exc_error;
17883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17884: RAISE fnd_api.g_exc_unexpected_error;
17885: END IF;
17886: BEGIN
17887: SELECT COUNT(1)
17880: pvt_debug(g_pkg_name||'CREATE_TERMS:VALIDATE_PAYMENT_TERMS_TBL Return Status:'||x_return_status,3);
17881: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
17882: RAISE fnd_api.g_exc_error;
17883: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
17884: RAISE fnd_api.g_exc_unexpected_error;
17885: END IF;
17886: BEGIN
17887: SELECT COUNT(1)
17888: INTO l_locations_count
17894: pvt_debug(g_pkg_name||'CREATE_TERMS:For Status to be made Final Tenancies are required.',3);
17895: l_locations_count := 0;
17896: END;
17897: pvt_debug('Lease Status:Draft/Final:'||l_lease_status,3);
17898: IF (x_return_status = fnd_api.g_ret_sts_success AND l_lease_status = 'F') THEN
17899: IF(l_locations_count > 0) THEN
17900: pvt_debug(g_pkg_name||'CREATE_TERMS:About to call FINALIZE_RECORD',3);
17901: FINALIZE_RECORD ( p_lease_id,l_lease_commencement_date,p_lease_context,g_org_id,l_api_name_full,'C',x_request_id);
17902: ELSE
17902: ELSE
17903: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
17904: fnd_message.set_token('ERR_MSG', 'Tenancies are not provided for this Lease.Hence cannot be Finalized.');
17905: fnd_msg_pub.ADD;
17906: RAISE fnd_api.g_exc_error;
17907: END IF;
17908: END IF;
17909: IF (x_request_id = 0 ) THEN
17910: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
17909: IF (x_request_id = 0 ) THEN
17910: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
17911: fnd_message.set_token ('API_NAME', l_api_name_full || '-SubmitSchedulesConcProgram');
17912: fnd_msg_pub.ADD;
17913: RAISE fnd_api.g_exc_error;
17914: END IF;
17915:
17916: EXCEPTION
17917: WHEN fnd_api.g_exc_error THEN
17913: RAISE fnd_api.g_exc_error;
17914: END IF;
17915:
17916: EXCEPTION
17917: WHEN fnd_api.g_exc_error THEN
17918: x_return_status := fnd_api.g_ret_sts_error;
17919: WHEN fnd_api.g_exc_unexpected_error THEN
17920: x_return_status := fnd_api.g_ret_sts_unexp_error;
17921: WHEN OTHERS THEN
17914: END IF;
17915:
17916: EXCEPTION
17917: WHEN fnd_api.g_exc_error THEN
17918: x_return_status := fnd_api.g_ret_sts_error;
17919: WHEN fnd_api.g_exc_unexpected_error THEN
17920: x_return_status := fnd_api.g_ret_sts_unexp_error;
17921: WHEN OTHERS THEN
17922: x_return_status := fnd_api.g_ret_sts_unexp_error;
17915:
17916: EXCEPTION
17917: WHEN fnd_api.g_exc_error THEN
17918: x_return_status := fnd_api.g_ret_sts_error;
17919: WHEN fnd_api.g_exc_unexpected_error THEN
17920: x_return_status := fnd_api.g_ret_sts_unexp_error;
17921: WHEN OTHERS THEN
17922: x_return_status := fnd_api.g_ret_sts_unexp_error;
17923: pvt_debug(g_pkg_name||'CREATE_TERMS:Exception:OTHERS:'||SQLERRM,3);
17916: EXCEPTION
17917: WHEN fnd_api.g_exc_error THEN
17918: x_return_status := fnd_api.g_ret_sts_error;
17919: WHEN fnd_api.g_exc_unexpected_error THEN
17920: x_return_status := fnd_api.g_ret_sts_unexp_error;
17921: WHEN OTHERS THEN
17922: x_return_status := fnd_api.g_ret_sts_unexp_error;
17923: pvt_debug(g_pkg_name||'CREATE_TERMS:Exception:OTHERS:'||SQLERRM,3);
17924: END;
17918: x_return_status := fnd_api.g_ret_sts_error;
17919: WHEN fnd_api.g_exc_unexpected_error THEN
17920: x_return_status := fnd_api.g_ret_sts_unexp_error;
17921: WHEN OTHERS THEN
17922: x_return_status := fnd_api.g_ret_sts_unexp_error;
17923: pvt_debug(g_pkg_name||'CREATE_TERMS:Exception:OTHERS:'||SQLERRM,3);
17924: END;
17925:
17926: END create_terms;
18582:
18583: l_err_count NUMBER:=0;
18584:
18585: BEGIN
18586: x_return_status := fnd_api.g_ret_sts_success;
18587: l_err_count :=0;
18588: FOR r_req_status IN cur_req_status(p_desc_name)
18589: LOOP
18590: IF (trim(r_req_status.application_column_name) = 'ATTRIBUTE1' AND (p_attribute1 IS NULL OR p_attribute1 = pn_lease_utils.g_pn_miss_char)) THEN
18619: l_err_count := l_err_count + 1;
18620: END IF;
18621: END LOOP;
18622: IF (l_err_count > 0) THEN
18623: x_return_status := fnd_api.g_ret_sts_error;
18624: ELSE
18625: x_return_status := fnd_api.g_ret_sts_success;
18626: END IF;
18627: EXCEPTION
18621: END LOOP;
18622: IF (l_err_count > 0) THEN
18623: x_return_status := fnd_api.g_ret_sts_error;
18624: ELSE
18625: x_return_status := fnd_api.g_ret_sts_success;
18626: END IF;
18627: EXCEPTION
18628: WHEN OTHERS THEN
18629: x_return_status := fnd_api.g_ret_sts_unexp_error;
18625: x_return_status := fnd_api.g_ret_sts_success;
18626: END IF;
18627: EXCEPTION
18628: WHEN OTHERS THEN
18629: x_return_status := fnd_api.g_ret_sts_unexp_error;
18630: END get_attribute_mandatory_status;
18631:
18632: --------UPDATE_STATUS
18633: PROCEDURE update_status( p_lease_id IN OUT NOCOPY NUMBER
18689:
18690: BEGIN
18691:
18692: g_program_unit := 'UPDATE_STATUS';
18693: x_return_status := fnd_api.g_ret_sts_success;
18694:
18695: pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - Start of status update procedure', 3);
18696:
18697:
18711: THEN
18712: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18713: fnd_message.set_token ('ERR_MSG', 'The provided lease id is invalid. Please provide a valid lease id to update the status');
18714: fnd_msg_pub.ADD;
18715: --x_return_status := fnd_api.g_ret_sts_error;
18716:
18717: RAISE fnd_api.g_exc_error;
18718:
18719: END IF;
18713: fnd_message.set_token ('ERR_MSG', 'The provided lease id is invalid. Please provide a valid lease id to update the status');
18714: fnd_msg_pub.ADD;
18715: --x_return_status := fnd_api.g_ret_sts_error;
18716:
18717: RAISE fnd_api.g_exc_error;
18718:
18719: END IF;
18720:
18721: IF c_lease_id%ISOPEN
18726:
18727: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18728: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease id to update the status');
18729: fnd_msg_pub.ADD;
18730: --x_return_status := fnd_api.g_ret_sts_error;
18731:
18732: RAISE fnd_api.g_exc_error;
18733:
18734: END IF;
18728: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease id to update the status');
18729: fnd_msg_pub.ADD;
18730: --x_return_status := fnd_api.g_ret_sts_error;
18731:
18732: RAISE fnd_api.g_exc_error;
18733:
18734: END IF;
18735:
18736: -- Validate passed p_new_approval_status_code against the FND_LOOKUPS.
18747:
18748: pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - New approval status code ater calling pn_lease_utils.get_lookup_code:' ||p_new_approval_status_code, 3);
18749: --dbms_output.put_line('p_new_approval_status_code:'||p_new_approval_status_code);
18750:
18751: IF (x_return_status = fnd_api.g_ret_sts_error)
18752: THEN
18753: p_new_approval_status_code:=NULL;
18754: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18755: fnd_message.set_token ('ERR_MSG', 'Please provide a valid approval status code to update');
18753: p_new_approval_status_code:=NULL;
18754: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18755: fnd_message.set_token ('ERR_MSG', 'Please provide a valid approval status code to update');
18756: fnd_msg_pub.ADD;
18757: x_return_status := fnd_api.g_ret_sts_success;
18758: --x_return_status := fnd_api.g_ret_sts_error;
18759: --RAISE fnd_api.g_exc_error;
18760: END IF;
18761: END IF;
18754: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18755: fnd_message.set_token ('ERR_MSG', 'Please provide a valid approval status code to update');
18756: fnd_msg_pub.ADD;
18757: x_return_status := fnd_api.g_ret_sts_success;
18758: --x_return_status := fnd_api.g_ret_sts_error;
18759: --RAISE fnd_api.g_exc_error;
18760: END IF;
18761: END IF;
18762:
18755: fnd_message.set_token ('ERR_MSG', 'Please provide a valid approval status code to update');
18756: fnd_msg_pub.ADD;
18757: x_return_status := fnd_api.g_ret_sts_success;
18758: --x_return_status := fnd_api.g_ret_sts_error;
18759: --RAISE fnd_api.g_exc_error;
18760: END IF;
18761: END IF;
18762:
18763: -- Validate passed p_new_lease_status against the FND_LOOKUPS.
18774: pvt_debug (g_pkg_name||'.'|| g_program_unit || ' - New lease status code ater calling pn_lease_utils.get_lookup_code:' ||p_new_lease_status, 3);
18775:
18776: --dbms_output.put_line('p_new_lease_status:'||p_new_lease_status);
18777:
18778: IF (x_return_status = fnd_api.g_ret_sts_error)
18779: THEN
18780: p_new_lease_status:=NULL;
18781: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18782: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease status code to update');
18780: p_new_lease_status:=NULL;
18781: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18782: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease status code to update');
18783: fnd_msg_pub.ADD;
18784: x_return_status := fnd_api.g_ret_sts_success;
18785: --x_return_status := fnd_api.g_ret_sts_error;
18786: --RAISE fnd_api.g_exc_error;
18787: END IF;
18788: END IF;
18781: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18782: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease status code to update');
18783: fnd_msg_pub.ADD;
18784: x_return_status := fnd_api.g_ret_sts_success;
18785: --x_return_status := fnd_api.g_ret_sts_error;
18786: --RAISE fnd_api.g_exc_error;
18787: END IF;
18788: END IF;
18789:
18782: fnd_message.set_token ('ERR_MSG', 'Please provide a valid lease status code to update');
18783: fnd_msg_pub.ADD;
18784: x_return_status := fnd_api.g_ret_sts_success;
18785: --x_return_status := fnd_api.g_ret_sts_error;
18786: --RAISE fnd_api.g_exc_error;
18787: END IF;
18788: END IF;
18789:
18790:
18788: END IF;
18789:
18790:
18791: -- Update associated lease status with the new lease status if old and new statuses are differenct
18792: IF x_return_status = fnd_api.g_ret_sts_success
18793: THEN
18794:
18795: IF NVL(p_new_lease_status,l_lease_status_old) <> l_lease_status_old
18796: AND l_approval_status_old='D'
18809: || g_program_unit
18810: || '-'
18811: || SQLERRM
18812: , 5);
18813: x_return_status := fnd_api.g_ret_sts_unexp_error;
18814: END;
18815: END IF;
18816: END IF;
18817:
18814: END;
18815: END IF;
18816: END IF;
18817:
18818: IF x_return_status = fnd_api.g_ret_sts_success
18819: THEN
18820: --dbms_output.put_line('Before IF check Raising Business Event');
18821: IF NVL(p_new_lease_status,l_lease_status_old) <> l_lease_status_old
18822: AND l_approval_status_old='D'
18842: END IF;
18843:
18844:
18845:
18846: IF x_return_status = fnd_api.g_ret_sts_success
18847: THEN
18848:
18849: -- Check if location exists for the provided lease_id
18850:
18858: THEN
18859: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
18860: fnd_message.set_token ('ERR_MSG', 'Location do not exist for provided lease id');
18861: fnd_msg_pub.ADD;
18862: --RAISE fnd_api.g_exc_error;
18863:
18864: END IF;
18865:
18866: IF c_location_exists%ISOPEN
18893: || g_program_unit
18894: || '-'
18895: || SQLERRM
18896: , 5);
18897: x_return_status := fnd_api.g_ret_sts_unexp_error;
18898: END;
18899:
18900: -- Initiate Approval Workflow
18901: --dbms_output.put_line('Call Approval Workflow');
18924: || g_program_unit
18925: || '-'
18926: || SQLERRM
18927: , 5);
18928: x_return_status := fnd_api.g_ret_sts_unexp_error;
18929: END;
18930:
18931: -- Submit the standard concurrent request to Schedule items
18932:
18954: pn_lease_pvt.pvt_debug(g_pkg_name||'Submit Request Error. Request Id:'||l_request_id,3);
18955: fnd_message.set_name ('PN', 'PN_SUBSCHEDULES_ERR');
18956: fnd_message.set_token ('API_NAME', g_pkg_name||'.'||g_program_unit || '-SubmitSchedulesConcProgram');
18957: fnd_msg_pub.ADD;
18958: RAISE fnd_api.g_exc_error;
18959: END IF;
18960: END IF; --Initiate Approval Workflow
18961:
18962: END IF;-- IF p_new_approval_status_code='F'
18967:
18968:
18969:
18970: EXCEPTION
18971: WHEN fnd_api.g_exc_error
18972: THEN
18973: pn_lease_pvt.pvt_debug ( 'Error occurred in '
18974: || g_pkg_name
18975: || g_program_unit
18975: || g_program_unit
18976: || '-'
18977: || SQLERRM
18978: , 5);
18979: x_return_status := fnd_api.g_ret_sts_error;
18980:
18981: WHEN OTHERS
18982: THEN
18983: pn_lease_pvt.pvt_debug ( 'Exception in '
18985: || g_program_unit
18986: || '-'
18987: || SQLERRM
18988: , 5);
18989: x_return_status := fnd_api.g_ret_sts_unexp_error;
18990:
18991: END update_status;
18992:
18993: END pn_lease_pvt;