130: AND pl.org_id = p_org_id
131: AND pl.lease_num = p_lease_num;
132: --AND pl.status = 'F';
133: BEGIN
134: x_return_status := fnd_api.g_ret_sts_success;
135:
136: IF (x_lease_id IS NOT NULL)
137: THEN
138: OPEN c_lease_id;
149: /*fnd_message.set_name ('PN'
150: , 'PN_VAR_INV_LEASE'
151: ); -- message
152: fnd_msg_pub.ADD;*/
153: x_return_status := fnd_api.g_ret_sts_error;
154: ELSE
155: x_return_status := fnd_api.g_ret_sts_success;
156: END IF;
157:
151: ); -- message
152: fnd_msg_pub.ADD;*/
153: x_return_status := fnd_api.g_ret_sts_error;
154: ELSE
155: x_return_status := fnd_api.g_ret_sts_success;
156: END IF;
157:
158: IF c_lease_id%ISOPEN
159: THEN
175: /*fnd_message.set_name ('PN'
176: , 'PN_VAR_INV_LEASE'
177: ); -- message
178: fnd_msg_pub.ADD;*/
179: x_return_status := fnd_api.g_ret_sts_error;
180: ELSE
181: x_return_status := fnd_api.g_ret_sts_success;
182: END IF;
183:
177: ); -- message
178: fnd_msg_pub.ADD;*/
179: x_return_status := fnd_api.g_ret_sts_error;
180: ELSE
181: x_return_status := fnd_api.g_ret_sts_success;
182: END IF;
183:
184: IF c_lease_name%ISOPEN
185: THEN
201: /*fnd_message.set_name ('PN'
202: , 'PN_VAR_INV_LEASE'
203: ); -- message
204: fnd_msg_pub.ADD;*/
205: x_return_status := fnd_api.g_ret_sts_error;
206: ELSE
207: x_return_status := fnd_api.g_ret_sts_success;
208: END IF;
209:
203: ); -- message
204: fnd_msg_pub.ADD;*/
205: x_return_status := fnd_api.g_ret_sts_error;
206: ELSE
207: x_return_status := fnd_api.g_ret_sts_success;
208: END IF;
209:
210: IF c_lease_num%ISOPEN
211: THEN
214: END IF;
215: EXCEPTION
216: WHEN OTHERS
217: THEN
218: x_return_status := fnd_api.g_ret_sts_error;
219: END validate_lease;
220:
221: --------------------------------------------------------------------------------
222: -- NAME : VALIDATE_RENT_NUM
254: WHERE UPPER (rent_num) = UPPER (x_rent_num)
255: AND lease_id = p_lease_id
256: AND org_id = p_org_id;
257: BEGIN
258: x_return_status := fnd_api.g_ret_sts_success;
259:
260: OPEN c_rent_num;
261:
262: FETCH c_rent_num
263: INTO x_var_rent_id;
264:
265: IF (x_var_rent_id IS NOT NULL)
266: THEN
267: x_return_status := fnd_api.g_ret_sts_error;
268: RAISE fnd_api.g_exc_error;
269: ELSE
270: --check the system profile option
271: SELECT auto_var_rent_num_gen
264:
265: IF (x_var_rent_id IS NOT NULL)
266: THEN
267: x_return_status := fnd_api.g_ret_sts_error;
268: RAISE fnd_api.g_exc_error;
269: ELSE
270: --check the system profile option
271: SELECT auto_var_rent_num_gen
272: INTO l_auto_var_rent_num_gen
282: IF (l_auto_var_rent_num_gen = 'Y')
283: THEN
284: --both rent num and rent_id would be sequence value
285: x_rent_num := x_var_rent_id;
286: x_return_status := fnd_api.g_ret_sts_success;
287: ELSIF ( x_rent_num IS NULL
288: AND l_auto_var_rent_num_gen = 'N')
289: THEN
290: x_return_status := fnd_api.g_ret_sts_error;
286: x_return_status := fnd_api.g_ret_sts_success;
287: ELSIF ( x_rent_num IS NULL
288: AND l_auto_var_rent_num_gen = 'N')
289: THEN
290: x_return_status := fnd_api.g_ret_sts_error;
291: ELSE
292: IF c_rent_num%NOTFOUND
293: THEN
294: --Not combination of lease, org and var rent exist
292: IF c_rent_num%NOTFOUND
293: THEN
294: --Not combination of lease, org and var rent exist
295: x_return_status :=
296: fnd_api.g_ret_sts_success;
297: ELSE
298: --combination of lease, org and var rent exist, provide new rent num
299: x_return_status := fnd_api.g_ret_sts_error;
300: END IF;
295: x_return_status :=
296: fnd_api.g_ret_sts_success;
297: ELSE
298: --combination of lease, org and var rent exist, provide new rent num
299: x_return_status := fnd_api.g_ret_sts_error;
300: END IF;
301: END IF;
302: END IF;
303: EXCEPTION
302: END IF;
303: EXCEPTION
304: WHEN OTHERS
305: THEN
306: x_return_status := fnd_api.g_ret_sts_unexp_error;
307: END validate_rent_num;
308:
309: --------------------------------------------------------------------------------
310: -- NAME : VALIDATE_LOCATION
366: AND flg_lkp.lookup_type = 'PN_YES_NO'
367: AND pt.lease_id = p_lease_id
368: AND pl.location_code = x_location_code;
369: BEGIN
370: x_return_status := fnd_api.g_ret_sts_success;
371:
372: IF ( x_location_id IS NOT NULL
373: AND x_location_id <> g_pn_miss_num)
374: THEN
378: INTO x_location_id;
379:
380: IF c_location_id%NOTFOUND
381: THEN
382: x_return_status := fnd_api.g_ret_sts_error;
383: ELSE
384: x_return_status := fnd_api.g_ret_sts_success;
385: END IF;
386:
380: IF c_location_id%NOTFOUND
381: THEN
382: x_return_status := fnd_api.g_ret_sts_error;
383: ELSE
384: x_return_status := fnd_api.g_ret_sts_success;
385: END IF;
386:
387: IF c_location_id%ISOPEN
388: THEN
397: INTO x_location_code;
398:
399: IF c_location_code%NOTFOUND
400: THEN
401: x_return_status := fnd_api.g_ret_sts_error;
402: ELSE
403: x_return_status := fnd_api.g_ret_sts_success;
404: END IF;
405:
399: IF c_location_code%NOTFOUND
400: THEN
401: x_return_status := fnd_api.g_ret_sts_error;
402: ELSE
403: x_return_status := fnd_api.g_ret_sts_success;
404: END IF;
405:
406: IF c_location_code%ISOPEN
407: THEN
410: END IF;
411: EXCEPTION
412: WHEN OTHERS
413: THEN
414: x_return_status := fnd_api.g_ret_sts_error;
415: END validate_location;
416:
417: --------------------------------------------------------------------------------
418: -- NAME : VALIDATE_LOCATION
464: )) AND TRUNC (NVL (end_date_active
465: , SYSDATE
466: ));
467: BEGIN
468: x_return_status := fnd_api.g_ret_sts_success;
469:
470: IF ( x_lookup_code IS NULL
471: OR x_lookup_code = g_pn_miss_char)
472: THEN
481: fnd_message.set_name ('PN'
482: , 'PN_VAR_INVLKP_MEANING'
483: );
484: fnd_msg_pub.ADD;
485: x_return_status := fnd_api.g_ret_sts_error;
486: ELSE
487: x_return_status := fnd_api.g_ret_sts_success;
488: END IF;
489:
483: );
484: fnd_msg_pub.ADD;
485: x_return_status := fnd_api.g_ret_sts_error;
486: ELSE
487: x_return_status := fnd_api.g_ret_sts_success;
488: END IF;
489:
490: IF c_lookup_type%ISOPEN
491: THEN
503: fnd_message.set_name ('PN'
504: , 'PN_VAR_INVLKP_CODE'
505: );
506: fnd_msg_pub.ADD;
507: x_return_status := fnd_api.g_ret_sts_error;
508: ELSE
509: x_return_status := fnd_api.g_ret_sts_success;
510: END IF;
511:
505: );
506: fnd_msg_pub.ADD;
507: x_return_status := fnd_api.g_ret_sts_error;
508: ELSE
509: x_return_status := fnd_api.g_ret_sts_success;
510: END IF;
511:
512: IF c_lookup_code%ISOPEN
513: THEN
516: END IF;
517: EXCEPTION
518: WHEN OTHERS
519: THEN
520: x_return_status := fnd_api.g_ret_sts_unexp_error;
521:
522: -- fnd_msg_pub.ADD;
523: IF c_lookup_type%ISOPEN
524: THEN
572: AND term_template_id = NVL(x_term_template_id,term_template_id))
573: AND term.term_template_type IN ('NEUTRAL', 'PAYMENT')
574: AND org_id = p_org_id;
575: BEGIN
576: x_return_status := fnd_api.g_ret_sts_success;
577:
578: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
579: /*
580: IF ( ( x_term_template_id IS NOT NULL
599: , x_term_template_name;
600:
601: IF (c_term_template%NOTFOUND)
602: THEN
603: x_return_status := fnd_api.g_ret_sts_error;
604: ELSE
605: x_return_status := fnd_api.g_ret_sts_success;
606: END IF;
607:
601: IF (c_term_template%NOTFOUND)
602: THEN
603: x_return_status := fnd_api.g_ret_sts_error;
604: ELSE
605: x_return_status := fnd_api.g_ret_sts_success;
606: END IF;
607:
608: IF (c_term_template%ISOPEN)
609: THEN
612: END IF;
613: EXCEPTION
614: WHEN OTHERS
615: THEN
616: x_return_status := fnd_api.g_ret_sts_unexp_error;
617: END validate_term_template;
618:
619: --------------------------------------------------------------------------------
620: -- NAME : VALIDATE_ABST_USER
662: , SYSDATE
663: ));
664:
665: BEGIN
666: x_return_status := fnd_api.g_ret_sts_success;
667:
668: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
669: /*
670: IF ( ( x_user_id IS NOT NULL
687: , x_user_name;
688:
689: IF c_abstracted_user%NOTFOUND
690: THEN
691: x_return_status := fnd_api.g_ret_sts_error;
692: ELSE
693: x_return_status := fnd_api.g_ret_sts_success;
694: END IF;
695:
689: IF c_abstracted_user%NOTFOUND
690: THEN
691: x_return_status := fnd_api.g_ret_sts_error;
692: ELSE
693: x_return_status := fnd_api.g_ret_sts_success;
694: END IF;
695:
696: IF c_abstracted_user%ISOPEN
697: THEN
700: END IF;
701: EXCEPTION
702: WHEN OTHERS
703: THEN
704: x_return_status := fnd_api.g_ret_sts_unexp_error;
705: END validate_abst_user;
706:
707: --------------------------------------------------------------------------------
708: -- NAME : VALIDATE_CURRENCY
722: )
723: AS
724: l_count NUMBER;
725: BEGIN
726: x_return_status := fnd_api.g_ret_sts_success;
727:
728: SELECT COUNT (1)
729: INTO l_count
730: FROM pn_currencies pn
733: AND currency_code = p_currency_code;
734:
735: IF l_count = 1
736: THEN
737: x_return_status := fnd_api.g_ret_sts_success;
738: END IF;
739: EXCEPTION
740: WHEN NO_DATA_FOUND
741: THEN
738: END IF;
739: EXCEPTION
740: WHEN NO_DATA_FOUND
741: THEN
742: x_return_status := fnd_api.g_ret_sts_error;
743: WHEN OTHERS
744: THEN
745: x_return_status := fnd_api.g_ret_sts_unexp_error;
746: END validate_currency;
741: THEN
742: x_return_status := fnd_api.g_ret_sts_error;
743: WHEN OTHERS
744: THEN
745: x_return_status := fnd_api.g_ret_sts_unexp_error;
746: END validate_currency;
747:
748: --------------------------------------------------------------------------------
749: -- NAME : VALIDATE_PERIODS
798: , SYSDATE
799: ));
800: -- New SQL added by Vivek on 02-DEC-2010
801: BEGIN
802: x_return_status := fnd_api.g_ret_sts_success;
803:
804: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
805: /*
806: IF ( ( x_lookup_meaning IS NOT NULL
835: , x_lookup_code;
836:
837: IF (c_lookup%NOTFOUND)
838: THEN
839: x_return_status := fnd_api.g_ret_sts_error;
840: ELSE
841: x_return_status := fnd_api.g_ret_sts_success;
842: END IF;
843:
837: IF (c_lookup%NOTFOUND)
838: THEN
839: x_return_status := fnd_api.g_ret_sts_error;
840: ELSE
841: x_return_status := fnd_api.g_ret_sts_success;
842: END IF;
843:
844: CLOSE c_lookup;
845:
850: END IF;
851: EXCEPTION
852: WHEN OTHERS
853: THEN
854: x_return_status := fnd_api.g_ret_sts_unexp_error;
855: END validate_periods;
856:
857: --------------------------------------------------------------------------------
858: -- NAME : VALIDATE_CALENDAR_DATE
913: IF (NVL (p_use_gl_calendar
914: , 'N'
915: ) = 'N')
916: THEN
917: x_return_status := fnd_api.g_ret_sts_success;
918:
919: IF (p_year_start_date > p_commencement_date)
920: THEN
921: p_year_start_date :=
928: );
929: END IF;
930: ELSIF (p_use_gl_calendar = 'Y')
931: THEN
932: x_return_status := fnd_api.g_ret_sts_success;
933:
934: BEGIN
935: SELECT period_type
936: INTO p_period_type
941: , period_set_name;
942: EXCEPTION
943: WHEN OTHERS
944: THEN
945: x_return_status := fnd_api.g_ret_sts_error;
946: END;
947: END IF;
948: EXCEPTION
949: WHEN OTHERS
947: END IF;
948: EXCEPTION
949: WHEN OTHERS
950: THEN
951: x_return_status := fnd_api.g_ret_sts_error;
952: END validate_calendar_date;
953:
954: --------------------------------------------------------------------------------
955: -- NAME : CHECK_PRORA_CUM_COMB
988: THEN
989: fnd_message.set_name ('PN'
990: , 'PN_VAR_CALC_PRO_CODE'
991: );
992: x_return_status := fnd_api.g_ret_sts_error;
993: ELSE
994: x_return_status := fnd_api.g_ret_sts_success;
995: END IF;
996: END check_prora_cum_comb;
990: , 'PN_VAR_CALC_PRO_CODE'
991: );
992: x_return_status := fnd_api.g_ret_sts_error;
993: ELSE
994: x_return_status := fnd_api.g_ret_sts_success;
995: END IF;
996: END check_prora_cum_comb;
997:
998: --------------------------------------------------------------------------------
1028: THEN
1029: fnd_message.set_name ('PN'
1030: , 'PN_VAR_FOR_PRO_CODE'
1031: );
1032: x_return_status := fnd_api.g_ret_sts_error;
1033: ELSE
1034: x_return_status := fnd_api.g_ret_sts_success;
1035: END IF;
1036: END check_prora_invon_comb;
1030: , 'PN_VAR_FOR_PRO_CODE'
1031: );
1032: x_return_status := fnd_api.g_ret_sts_error;
1033: ELSE
1034: x_return_status := fnd_api.g_ret_sts_success;
1035: END IF;
1036: END check_prora_invon_comb;
1037:
1038: --------------------------------------------------------------------------------
1064: THEN
1065: fnd_message.set_name ('PN'
1066: , 'PN_VAR_CALC_REPTG_FREQ'
1067: );
1068: x_return_status := fnd_api.g_ret_sts_error;
1069: ELSE
1070: x_return_status := fnd_api.g_ret_sts_success;
1071: END IF;
1072: END check_calc_rept_freq_comb;
1066: , 'PN_VAR_CALC_REPTG_FREQ'
1067: );
1068: x_return_status := fnd_api.g_ret_sts_error;
1069: ELSE
1070: x_return_status := fnd_api.g_ret_sts_success;
1071: END IF;
1072: END check_calc_rept_freq_comb;
1073:
1074: --------------------------------------------------------------------------------
1100: THEN
1101: fnd_message.set_name ('PN'
1102: , 'PN_VAR_INVG_CALC_FREQ'
1103: );
1104: x_return_status := fnd_api.g_ret_sts_error;
1105: ELSE
1106: x_return_status := fnd_api.g_ret_sts_success;
1107: END IF;
1108: END check_calc_inv_freq_comb;
1102: , 'PN_VAR_INVG_CALC_FREQ'
1103: );
1104: x_return_status := fnd_api.g_ret_sts_error;
1105: ELSE
1106: x_return_status := fnd_api.g_ret_sts_success;
1107: END IF;
1108: END check_calc_inv_freq_comb;
1109:
1110: --------------------------------------------------------------------------------
1205: --OR UPPER (agreement_template) = UPPER (x_agreement_template) -- Commented by Vivek on 08-Dec-2010 as NULL value and mutliple rows are not handled
1206: AND UPPER (agreement_template) = UPPER (NVL(x_agreement_template,agreement_template)) -- Added by Vivek on 08-Dec-2010 to handle NULL value and mutliple row cases
1207: AND org_id = p_org_id;
1208: BEGIN
1209: x_return_status := fnd_api.g_ret_sts_success;
1210:
1211: IF ( ( x_agreement_template_id IS NOT NULL
1212: AND x_agreement_template_id <> g_pn_miss_num)
1213: OR ( x_agreement_template IS NOT NULL
1243: , x_comments;
1244:
1245: IF c_agreement_temp%NOTFOUND
1246: THEN
1247: x_return_status := fnd_api.g_ret_sts_error;
1248: ELSE
1249: x_return_status := fnd_api.g_ret_sts_success;
1250: END IF;
1251:
1245: IF c_agreement_temp%NOTFOUND
1246: THEN
1247: x_return_status := fnd_api.g_ret_sts_error;
1248: ELSE
1249: x_return_status := fnd_api.g_ret_sts_success;
1250: END IF;
1251:
1252: IF c_agreement_temp%ISOPEN
1253: THEN
1256: END IF;
1257: EXCEPTION
1258: WHEN OTHERS
1259: THEN
1260: x_return_status := fnd_api.g_ret_sts_unexp_error;
1261: NULL;
1262: END validate_agreement_temp;
1263:
1264: --------------------------------------------------------------------------------
1293: FROM pn_var_rents_all
1294: WHERE var_rent_id = p_var_rent_id
1295: AND org_id = p_org_id;
1296:
1297: x_return_status := fnd_api.g_ret_sts_success;
1298: EXCEPTION
1299: WHEN OTHERS
1300: THEN
1301: x_return_status := fnd_api.g_ret_sts_error;
1297: x_return_status := fnd_api.g_ret_sts_success;
1298: EXCEPTION
1299: WHEN OTHERS
1300: THEN
1301: x_return_status := fnd_api.g_ret_sts_error;
1302: END var_rent_details;
1303:
1304: --------------------------------------------------------------------------------
1305: -- NAME : VALIDATE_FLEX_FIELDS
1354: IS
1355: l_dummy VARCHAR2 (1);
1356: l_r VARCHAR2 (2000);
1357: BEGIN
1358: x_return_status := fnd_api.g_ret_sts_success;
1359: -- DEFINE ID COLUMNS
1360:
1361:
1362: IF ( p_attribute_category
1396:
1397:
1398: IF NOT (fnd_flex_descval.validate_desccols ('PN',p_desc_flex_name)) THEN
1399: x_return_msg := fnd_flex_descval.error_message;
1400: x_return_status := fnd_api.g_ret_sts_error;
1401: END IF;
1402: END IF;
1403:
1404: EXCEPTION
1402: END IF;
1403:
1404: EXCEPTION
1405: WHEN OTHERS THEN
1406: x_return_status := fnd_api.g_ret_sts_unexp_error;
1407: END validate_flex_fields;
1408:
1409: --------------------------------------------------------------------------------
1410: -- NAME : VAL_RENT_DETAILS
1441: , location_id
1442: FROM pn_var_rents_all
1443: WHERE UPPER (rent_num) = UPPER (p_rent_num);
1444: BEGIN
1445: x_return_status := fnd_api.g_ret_sts_success;
1446:
1447: OPEN c_rent_details;
1448:
1449: FETCH c_rent_details
1453:
1454: IF c_rent_details%FOUND
1455: THEN
1456: --Not combination of lease, org and var rent exist
1457: x_return_status := fnd_api.g_ret_sts_success;
1458: ELSE
1459: --combination of lease, org and var rent exist, provide new rent num
1460: x_return_status := fnd_api.g_ret_sts_error;
1461: END IF;
1456: --Not combination of lease, org and var rent exist
1457: x_return_status := fnd_api.g_ret_sts_success;
1458: ELSE
1459: --combination of lease, org and var rent exist, provide new rent num
1460: x_return_status := fnd_api.g_ret_sts_error;
1461: END IF;
1462:
1463: IF c_rent_details%ISOPEN
1464: THEN
1466: END IF;
1467: EXCEPTION
1468: WHEN OTHERS
1469: THEN
1470: x_return_status := fnd_api.g_ret_sts_unexp_error;
1471: END val_rent_details;
1472: */
1473: -- The below procedure code has been added by Vivek on 08-Dec-2010
1474: PROCEDURE val_rent_details (
1493: AND var_rent_id= NVL(x_var_rent_id,var_rent_id);
1494: BEGIN
1495:
1496:
1497: x_return_status := fnd_api.g_ret_sts_success;
1498:
1499: IF (p_rent_num IS NOT NULL AND p_rent_num <> g_pn_miss_char)
1500: OR (x_var_rent_id IS NOT NULL AND x_var_rent_id<> g_pn_miss_num)
1501: THEN
1516:
1517: IF c_rent_details%FOUND
1518: THEN
1519: --Not combination of lease, org and var rent exist
1520: x_return_status := fnd_api.g_ret_sts_success;
1521: ELSE
1522: --combination of lease, org and var rent exist, provide new rent num
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: END IF;
1519: --Not combination of lease, org and var rent exist
1520: x_return_status := fnd_api.g_ret_sts_success;
1521: ELSE
1522: --combination of lease, org and var rent exist, provide new rent num
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: END IF;
1525:
1526: IF c_rent_details%ISOPEN
1527: THEN
1530: END IF;
1531: EXCEPTION
1532: WHEN OTHERS
1533: THEN
1534: x_return_status := fnd_api.g_ret_sts_unexp_error;
1535: END val_rent_details;
1536:
1537: --------------------------------------------------------------------------------
1538: -- NAME : PVT_DEBUG
1585: IS
1586: l_period_type pn_var_rent_dates_all.period_type%TYPE;
1587: l_gl_period_set_name pn_var_rent_dates_all.gl_period_set_name%TYPE;
1588: BEGIN
1589: x_return_status := fnd_api.g_ret_sts_success;
1590:
1591: SELECT period_type
1592: , period_set_name
1593: INTO l_period_type
1602: AND l_gl_period_set_name IS NOT NULL)
1603: THEN
1604: p_period_type := l_period_type;
1605: p_gl_period_set_name := l_gl_period_set_name;
1606: x_return_status := fnd_api.g_ret_sts_success;
1607: ELSE
1608: x_return_status := fnd_api.g_ret_sts_error;
1609: END IF;
1610: EXCEPTION
1604: p_period_type := l_period_type;
1605: p_gl_period_set_name := l_gl_period_set_name;
1606: x_return_status := fnd_api.g_ret_sts_success;
1607: ELSE
1608: x_return_status := fnd_api.g_ret_sts_error;
1609: END IF;
1610: EXCEPTION
1611: WHEN OTHERS
1612: THEN
1609: END IF;
1610: EXCEPTION
1611: WHEN OTHERS
1612: THEN
1613: x_return_status := fnd_api.g_ret_sts_error;
1614: END validate_period_set_type;
1615:
1616: --------------------------------------------------------------------------------
1617: -- NAME : BREAKPOINT_EXT
1633: )
1634: IS
1635: --l_bkpt_exist NUMBER := 0;
1636: BEGIN
1637: x_return_status := fnd_api.g_ret_sts_success;
1638:
1639: SELECT COUNT (1)
1640: INTO x_bkpt_exist --l_bkpt_exist
1641: FROM pn_var_bkpts_head_all
1642: WHERE var_rent_id = p_var_rent_id;
1643: EXCEPTION
1644: WHEN OTHERS
1645: THEN
1646: x_return_status := fnd_api.g_ret_sts_error;
1647: END breakpoint_ext;
1648:
1649: --------------------------------------------------------------------------------
1650: -- NAME : CONSTR_EXT
1665: , x_return_status OUT NOCOPY VARCHAR2
1666: )
1667: IS
1668: BEGIN
1669: x_return_status := fnd_api.g_ret_sts_success;
1670:
1671: SELECT COUNT (1)
1672: INTO x_constr_count
1673: FROM pn_var_constr_defaults_all
1674: WHERE var_rent_id = p_var_rent_id;
1675: EXCEPTION
1676: WHEN OTHERS
1677: THEN
1678: x_return_status := fnd_api.g_ret_sts_error;
1679: END constr_ext;
1680:
1681: -- Below Procedure has been added by Vivek on 08-Dec-2010 to validate lease during update flow
1682: PROCEDURE validate_lease_id (
1699: AND PLA.lease_id=p_lease_id;
1700:
1701: BEGIN
1702:
1703: x_return_status := fnd_api.g_ret_sts_success;
1704:
1705: IF (p_lease_id IS NOT NULL AND p_lease_id <> g_pn_miss_num)
1706: THEN
1707:
1714: , x_lease_termination_date;
1715:
1716: IF c_lease_id%FOUND
1717: THEN
1718: x_return_status := fnd_api.g_ret_sts_success;
1719: ELSE
1720: x_return_status := fnd_api.g_ret_sts_error;
1721: END IF;
1722:
1716: IF c_lease_id%FOUND
1717: THEN
1718: x_return_status := fnd_api.g_ret_sts_success;
1719: ELSE
1720: x_return_status := fnd_api.g_ret_sts_error;
1721: END IF;
1722:
1723: IF c_lease_id%ISOPEN
1724: THEN
1732: THEN
1733: CLOSE c_lease_id;
1734: END IF;
1735:
1736: x_return_status := fnd_api.g_ret_sts_unexp_error;
1737:
1738: END validate_lease_id;
1739: END pn_varen_util;