[Home] [Help]
261:
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
276: 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;
306: pvt_debug(g_pkg_name||'-Calling create_auto_space_assign End',3);
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:
313: ELSIF l_action = 'NOVACANT' THEN --Stop
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
319: END IF;
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;
377: p_lease_tenancies_rec.customer_id <> NVL(c_loc_rec.customer_id,-9999) AND
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);
413: pvt_debug(g_pkg_name||'-Calling updaate_auto_space_assign End',3);
414:
415: IF l_action = 'R' THEN --Regenerate
416: fnd_message.set_name('PN', 'PN_REC_AUTO_SPC_AREA_CLS_REG');
417: fnd_msg_pub.ADD;
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;
417: fnd_msg_pub.ADD;
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');
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;
427: RAISE fnd_api.g_exc_error;
428:
429: ELSIF l_action = 'NOVACANT' THEN --Stop
430:
429: ELSIF l_action = 'NOVACANT' THEN --Stop
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
435: END IF;
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);
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';
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
546: p_lease_tenancies_tbl (i).error_flag:='Y';
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:
584: p_lease_tenancies_tbl (i).error_flag:='Y';
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';
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
606: p_lease_tenancies_tbl (i).error_flag:='Y';
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:
644: fnd_message.set_token('START_DATE',get_miss_date_decode(p_lease_rec.lease_commencement_date));
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;
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));
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');
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
712: p_lease_tenancies_tbl (i).error_flag:='Y';
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;*/
754: p_lease_tenancies_tbl (i).error_flag:='Y';
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';
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;
802: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
851: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
910: fnd_message.set_name ('PN', 'PN_COMM_SPACE_ASSIGN');
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;
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));
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';
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));
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:
982: fnd_message.set_name('PN','PN_LOC_DATES_NOT_CONT_EXIST');
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
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;
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);
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;
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)
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');
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');
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');
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;
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;
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'
1341:
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;
1549: fnd_message.set_name ('PN', 'PN_INV_DRVLEASED');
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:
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);
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');
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;
1875: RAISE fnd_api.g_exc_unexpected_error;
1876: END IF;
1877: END IF;
1878:
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;
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');
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;
2239: RAISE fnd_api.g_exc_unexpected_error;
2240: END IF;
2241: END IF;
2242: ----------------------dbms_output.put_line('B4 Update Contact Row');--Rupak
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:
2381:
2382: pvt_debug(g_pkg_name||'-DIRECT_UPDATE_LEASE:Updating the Lease Record by calling the standard Package',3);
2447: THEN
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*/
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);
2511: pvt_debug(g_pkg_name||'-AMEND_LEASE:Inerting into the Lease Changes Package',3);
2512: -- Initialize the return status.
2563: THEN
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*/
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);
2601: -- Initialize the return status.
2602: x_return_status := fnd_api.g_ret_sts_success;
2648: ROLLBACK TO edit_lease_pvt;
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
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
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);
3024: -- l_loc_area := 0;
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');
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);
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;
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:
3385: -- Initialize the return status.
3386: x_return_status := fnd_api.g_ret_sts_success;
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));
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
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));
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
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));
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));
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:
3514: l_error_flag:='Y';
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
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));
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));
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:
3563: l_error_flag:='Y';
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
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;
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);
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;
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)
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');
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');
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);
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;
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.
3892: x_return_status := fnd_api.g_ret_sts_success;
3893: -- Validate Lease Number
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);
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';
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);
3911: fnd_msg_pub.ADD;
3912: RAISE fnd_api.g_exc_unexpected_error;
3913: END IF;
3914:
3915: -----------------------------------------------------------------------------------
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));
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';
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));
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';
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));
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
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));
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';
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));
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;
4055: ----------------------dbms_output.put_line ('PVT:1');--Rupak
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*/
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
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));
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';
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));
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
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));
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';
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));
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
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));
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';
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));
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
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);
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';
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));
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
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));
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));
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:
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));
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';
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));
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:
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));
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';
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));
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:
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));
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';
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));
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
4380: IF l_tcc_status = 'PN_NO_TCC_FOUND' THEN
4381: fnd_message.set_name('PN','PN_NO_TCC_FOUND');
4382: fnd_message.set_token ('API_NAME', l_api_name_full);
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
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);
4392: fnd_msg_pub.ADD;
4393: END IF;
4394:
4395: END IF;
4396:
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));
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';
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));
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;
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;
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';
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));
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:
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);
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';
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);
4610: fnd_msg_pub.ADD;
4611: RAISE fnd_api.g_exc_unexpected_error;
4612: END IF;
4613: END IF;
4614:
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);
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';
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);
4720: fnd_msg_pub.ADD;
4721: RAISE fnd_api.g_exc_unexpected_error;
4722: END IF;
4723: END IF;
4724:
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);
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';
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);
4839: fnd_msg_pub.ADD;
4840: RAISE fnd_api.g_exc_unexpected_error;
4841: END IF;
4842: END IF;
4843:
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;
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);
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;
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)
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');
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');
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');
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
5505: pvt_debug(g_pkg_name||'-VALIDATE_NOTE_FOR_CREATE:NOTE DATE IS NULL',3);
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:
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));
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');
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);
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');
5541: ELSE
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:
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;
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);
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;
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)
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');
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;
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');
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;
5893: l_tbl_flag := 0;
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);
5914: l_tbl_flag := 0;
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)
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));
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;
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));
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;
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));
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');
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);
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');
6374: ELSE
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:
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));
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');
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);
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');
6413: ELSE
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:
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;
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);
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;
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)
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');
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');
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);
6513: fnd_msg_pub.ADD;
6514: RAISE fnd_api.g_exc_unexpected_error;
6515: END IF;
6516: END IF;
6517: END IF;
6725: pvt_debug(g_pkg_name||'-Inside VALIDATE_RIGHT_FOR_UPDATE',3);
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);
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));
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');
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);
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');
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);
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;
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));
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');
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);
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');
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);
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;
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);
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');
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;
6979: RAISE fnd_api.g_exc_unexpected_error;
6980: END IF;
6981: -- END IF;
6982: CLOSE c_right;
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));
7236: fnd_msg_pub.ADD;
7237: RAISE fnd_api.g_exc_error;
7238: END IF;
7239: ELSE
7240: l_tbl_flag := 0;
7240: l_tbl_flag := 0;
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:
7251: pvt_debug(g_pkg_name||'-VALIDATE_OBLIGATION_FOR_CREATE:STATUS AND STATUS CODE:NULL',3);
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:
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));
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');
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);
7285: fnd_msg_pub.ADD;
7286: RAISE fnd_api.g_exc_unexpected_error;
7287: END IF;
7288: ELSE
7289: l_tbl_flag := 0;
7289: l_tbl_flag := 0;
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:
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));
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');
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);
7321: fnd_msg_pub.ADD;
7322: RAISE fnd_api.g_exc_unexpected_error;
7323: END IF;
7324: /*ELSE
7325: l_tbl_flag := 0;
7325: l_tbl_flag := 0;
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:
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));
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');
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);
7357: fnd_msg_pub.ADD;
7358: RAISE fnd_api.g_exc_unexpected_error;
7359: END IF;
7360: /*ELSE
7361: l_tbl_flag := 0;
7361: l_tbl_flag := 0;
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:
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));
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';
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);
7391: fnd_msg_pub.ADD;
7392: RAISE fnd_api.g_exc_unexpected_error;
7393: END IF;
7394: /*ELSE
7395: l_tbl_flag := 0;
7395: l_tbl_flag := 0;
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:
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;
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);
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;
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)
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);
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');
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;
7509: RAISE fnd_api.g_exc_unexpected_error;
7510: END IF;
7511: END IF;
7512: END IF;
7737: l_tbl_flag := 1;
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;
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));
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;
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));
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');
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);
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');
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);
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;
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));
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');
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);
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;
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));
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');
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);
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;
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);
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');
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;
8081: RAISE fnd_api.g_exc_unexpected_error;
8082: END IF;
8083: -- END IF;
8084:
8348: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
8364: l_tbl_flag := 0;
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: ----------------------------------------------------------------------------------------------------------------------------------------------
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);
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;
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));
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;
8399: l_tbl_flag := 0;
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:
8410: l_tbl_flag := 0;
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;
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');
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;
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');
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;
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;
8502: ----------------------dbms_output.put_line('sqlcode: '||sqlcode||'and sqlerrm: '||sqlerrm);
8503: pvt_debug(g_pkg_name||'-VALIDATE_MILESTONE_FOR_CREATE:Exception:'||SQLERRM,3);
8504: END VALIDATE_MILESTONE_FOR_CREATE;
8505:
8710: ----------------------dbms_output.put_line('In Mile Steone:1');
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);
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));
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');
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);
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;
8795: ----------------------dbms_output.put_line('In MIle Stone:1');
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');
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;
9158: IF (p_insurance_tbl(l_index).policy_number IS NULL OR p_insurance_tbl(l_index).policy_number = pn_lease_utils.g_pn_miss_char) THEN
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;
9192: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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';
9210: l_tbl_flag := 0;
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: -------------------------------------------------------------------------------------------------------------------
9233: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
9251: l_tbl_flag := 0;
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: ---------------------------------------------------------------------------------------------------------------------
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);
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');
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);
9282: fnd_msg_pub.ADD;
9283: RAISE fnd_api.g_exc_unexpected_error;
9284: END IF;
9285: ELSE
9286: l_tbl_flag := 0;
9286: l_tbl_flag := 0;
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: ---------------------------------------------------------------------------------------------------------------------------------------------------------
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;
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);
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;
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)
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);
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');
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;
9399: RAISE fnd_api.g_exc_unexpected_error;
9400: END IF;
9401: END IF;
9402: END IF;
9634: l_tbl_flag := 1;
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);
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;
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));
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;
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;
9730: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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';
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
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;
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);
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');
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;
9932: RAISE fnd_api.g_exc_unexpected_error;
9933: END IF;
9934: --END IF;
9935: CLOSE c_insur;
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);
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;
10228: l_tbl_flag := 0;
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: -----------------------------------------------------------------------------------------------------------------------------------------------
10249: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
10265: l_tbl_flag := 0;
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: ---------------------------------------------------------------------------------------------------------------------------------------------
10287: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
10303: l_tbl_flag := 0;
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: --------------------------------------------------------------------------------------------------------------------------------
10325: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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: ----------------------------------------------------------------------------------------------------------------------------------------
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));
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');
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);
10372: fnd_msg_pub.ADD;
10373: RAISE fnd_api.g_exc_unexpected_error;
10374: END IF;
10375: /*ELSE
10376: l_tbl_flag := 0;
10376: l_tbl_flag := 0;
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:
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));
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');
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);
10408: fnd_msg_pub.ADD;
10409: RAISE fnd_api.g_exc_unexpected_error;
10410: END IF;
10411: /*ELSE
10412: l_tbl_flag := 0;
10412: l_tbl_flag := 0;
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: ---------------------------------------------------------------------------------------------------------------------------------------
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;
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);
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;
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)
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);
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');
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);
10509: fnd_msg_pub.ADD;
10510: RAISE fnd_api.g_exc_unexpected_error;
10511: END IF;
10512: END IF;
10513: END IF;
10781: pvt_debug(g_pkg_name||'VALIDATE_OPTION_FOR_UPDATE:OPTION_ID IS NULL',3);
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;
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);
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;
10868: l_tbl_flag := 0;
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;
10891: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
10907: l_tbl_flag := 0;
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;
10937: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
10971: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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;
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));
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;
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));
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');
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);
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;
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);
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');
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;
11165: RAISE fnd_api.g_exc_unexpected_error;
11166: END IF;
11167: -- END IF;
11168: CLOSE c_option;
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
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
11823: THEN
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;
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:
11984:
11985: BEGIN--Lease Check
11995: ----------------------dbms_output.put_line('In Update Private 2');--Rupak
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;
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));
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;
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:
12093: ----------------------dbms_output.put_line ('PVT:1');--Rupak
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*/
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;
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));
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
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));
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
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;
12178: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12179: THEN
12180: fnd_message.set_name ('PN', 'PN_API_UNKNOWN_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);
12183: fnd_msg_pub.ADD;
12184: RAISE fnd_api.g_exc_unexpected_error;
12185: END IF;
12186: END IF;
12187:
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));
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');
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);
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)
12258: p_lease_rec.status := 'Final';
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;
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));
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));
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;
12304: THEN
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)
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));
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
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));
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:
12369: THEN
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
12376: THEN
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
12384: THEN
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
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));
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;
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));
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:
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));
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');
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);
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
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));
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');
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);
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
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;
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));
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;
12645: RAISE fnd_api.g_exc_unexpected_error;
12646: END IF;
12647: END IF;
12648:
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;
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));
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;
12755: RAISE fnd_api.g_exc_unexpected_error;
12756: END IF;
12757: END IF;
12758:
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;
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));
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;
12865: RAISE fnd_api.g_exc_unexpected_error;
12866: END IF;
12867: END IF;
12868:
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);
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');
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);
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;
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;
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');
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;
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
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;
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');
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;
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
13332: --dbms_output.put_line('UPDATE_LEASE:FINALIZE_RECORD called');
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);
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');
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;
13347: END IF;
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
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:
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);
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;
14068: ----------------------dbms_output.put_line('Exception:In Insert:'||SQLERRM);--Rupak
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:
14186: EXCEPTION
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:
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));
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';
14378: IF l_tcc_status = 'PN_NO_TCC_FOUND' THEN
14379: fnd_message.set_name('PN','PN_NO_TCC_FOUND');
14380: fnd_message.set_token ('API_NAME', l_api_name_full);
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
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);
14390: fnd_msg_pub.ADD;
14391: END IF;
14392:
14393: END IF;
14394:
14427: WHEN OTHERS THEN
14428: p_payment_terms_tbl(i).error_flag := 'Y';
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
14444: pvt_debug(g_pkg_name||'VALIDATE_TERMS_TBL:Template Passed is same as the Created Template',3);
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;
14459: IF (l_payment_term_type_code IS NULL) THEN
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;
14472: IF (l_p_ar_term_id IS NULL) THEN
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;
14485: IF(l_cust_trx_type_id IS NULL) THEN
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;
14497: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'START_DATE');
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)
14507: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'END_DATE');
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
14517: IF(l_payment_purpose_code IS NULL) THEN
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;
14529: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'PAYMENT_FREQUENCY');
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
14539: IF(l_schedule_day IS NULL) THEN
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;
14552: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'CURRENCY_CODE');
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;
14565: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'SUPPLIER_NAME');
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;
14578: IF(l_vendor_site_id IS NULL) THEN
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;
14592: IF( l_customer_id IS NULL) THEN
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;
14605: IF( l_customer_site_use_id IS NULL) THEN
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;
14618: --PN_LEASE_UTILS.add_null_parameter_msg (p_token_apiname => p_api_name_full, p_token_nullparam => 'AMOUNT');
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;
14649: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
14686: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
14722: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
14759: fnd_message.set_name ('PN', 'PN_INVALID_LOOKUP_VALUES');
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';
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));
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
14786: THEN
14787: ----------------------dbms_output.put_line('Hello:15');
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:
14797: OR p_payment_terms_tbl(i).schedule_day > 28)
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:
14819: fnd_message.set_name ('PN', 'PN_INVALID_PAYSTART_DATE');
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');
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));
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');
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));
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');
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);
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;
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));
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';
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));
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
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));
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';
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));
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
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));
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';
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));
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
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));
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';
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));
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:
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));
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');
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);
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));
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;
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);
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;
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)
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');
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';
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');
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;
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;
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);
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;
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)
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');
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';
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');
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;
15426: l_error_flag:='Y';
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';
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;
15517: EXCEPTION
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;
15539: 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');
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;
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');
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);
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');
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);
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');
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);
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');
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);
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'
15588: EXCEPTION
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'
15602: EXCEPTION
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'
15617: EXCEPTION
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
15628: EXCEPTION
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'
15643: EXCEPTION
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:
15669: k:= k + p_payment_terms_tbl(i).p_terms_exp_rev_accounts_tbl(j).account_percentage;
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
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;
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);
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;
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);
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;
15735: RAISE fnd_api.g_exc_error;
15736: END IF;
15737:
15738: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
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;
15743: END IF;
15744: END LOOP;
15745: END IF;
15746: ELSE
15773: WHEN OTHERS THEN
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');
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');
15783: fnd_msg_pub.ADD;
15784: RAISE fnd_api.g_exc_error;
15785: END IF;
15786: ELSE
15787: NULL;
15816:
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;
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;
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);
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;
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);
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;
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');
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;
15888: END IF;
15889:
15890: ELSE
15891: IF(p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id IS NOT NULL) THEN
15891: IF(p_payment_terms_tbl(i).p_terms_liab_rcvl_account_tbl(1).account_id IS NOT NULL) THEN
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';
15932: WHEN OTHERS THEN
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;
15943: ELSE
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;
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;
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);
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;
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);
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;
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');
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;
16024: END IF;
16025:
16026: ELSE
16027: IF(p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id IS NOT NULL) THEN
16027: IF(p_payment_terms_tbl(i).p_terms_accrual_account_tbl(1).account_id IS NOT NULL) THEN
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';
16066: WHEN OTHERS THEN
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;*/
16469: ELSE
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;
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:
16774: -- Standard call to check for call compatibility
16775: IF NOT fnd_api.compatible_api_call (l_api_version
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);
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);
16820: OR (l_lease_status = 'F' and (l_lease_context NOT IN ('EDIT','AMEND')))) THEN
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:
16911: IF (p_payment_terms_tbl_update(i).payment_purpose_code IS NOT NULL AND p_payment_terms_tbl_update(i).payment_purpose_code <> r_payment_terms.payment_purpose_code) THEN
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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
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);
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
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);
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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);
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');
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;
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
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;
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:
17794: -- Standard call to check for call compatibility
17795: IF NOT fnd_api.compatible_api_call (l_api_version
17844: ----------dbms_output.put_line('Inside ERROR:l_lease_context'||l_lease_status||l_lease_context);
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
17855: fnd_message.set_name ('PN', 'PN_INV_DRVLEASED');
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
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
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
17908: END IF;
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
18710: IF (c_lease_id%NOTFOUND)
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:
18725: ELSE
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:
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');
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;
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');
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;
18857: IF (c_location_exists%NOTFOUND)
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:
18953: IF (l_request_id = 0 ) THEN
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: