eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FA_LEASE_PVT dependencies on FND_MESSAGE

Line 26: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');

22: L_VENDOR_ID := C_VENDOR_ID_REC.VENDOR_ID;
23: END LOOP;
24:
25: IF L_VENDOR_ID IS NULL THEN
26: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
27: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_ID');
28: FND_MSG_PUB.ADD;
29: RETURN (FALSE);
30: ELSE

Line 27: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_ID');

23: END LOOP;
24:
25: IF L_VENDOR_ID IS NULL THEN
26: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
27: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_ID');
28: FND_MSG_PUB.ADD;
29: RETURN (FALSE);
30: ELSE
31: RETURN (TRUE);

Line 64: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');

60: L_VENDOR_ID := C_VENDOR_NAME_REC.VENDOR_ID;
61: END LOOP;
62:
63: IF L_VENDOR_ID IS NULL THEN
64: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
65: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_NAME');
66: FND_MSG_PUB.ADD;
67: RETURN (FALSE);
68: ELSE

Line 65: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_NAME');

61: END LOOP;
62:
63: IF L_VENDOR_ID IS NULL THEN
64: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
65: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_NAME');
66: FND_MSG_PUB.ADD;
67: RETURN (FALSE);
68: ELSE
69: X_VENDOR_ID:=L_VENDOR_ID;

Line 102: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');

98: L_PAYMENT_SCHEDULE_ID := C_PAYMENT_SCHEDULE_ID_REC.PAYMENT_SCHEDULE_ID ;
99: END LOOP;
100:
101: IF L_PAYMENT_SCHEDULE_ID IS NULL THEN
102: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
103: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_ID');
104: FND_MSG_PUB.ADD;
105: RETURN (FALSE);
106: ELSE

Line 103: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_ID');

99: END LOOP;
100:
101: IF L_PAYMENT_SCHEDULE_ID IS NULL THEN
102: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
103: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_ID');
104: FND_MSG_PUB.ADD;
105: RETURN (FALSE);
106: ELSE
107: RETURN (TRUE);

Line 140: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');

136: L_PAYMENT_SCHEDULE_ID := C_PAYMENT_SCHEDULE_NAME_REC.PAYMENT_SCHEDULE_ID ;
137: END LOOP;
138:
139: IF L_PAYMENT_SCHEDULE_ID IS NULL THEN
140: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
141: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_NAME');
142: FND_MSG_PUB.ADD;
143: RETURN (FALSE);
144: ELSE

Line 141: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_NAME');

137: END LOOP;
138:
139: IF L_PAYMENT_SCHEDULE_ID IS NULL THEN
140: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
141: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE_NAME');
142: FND_MSG_PUB.ADD;
143: RETURN (FALSE);
144: ELSE
145: X_PAYMENT_SCHEDULE_ID :=L_PAYMENT_SCHEDULE_ID ;

Line 178: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');

174: L_TERMS_ID := C_CHECK_TERMS_ID_REC.TERM_ID ;
175: END LOOP;
176:
177: IF L_TERMS_ID IS NULL THEN
178: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');
179: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_TERMS_ID');
180: FND_MSG_PUB.ADD;
181: RETURN(FALSE);
182: ELSE

Line 179: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_TERMS_ID');

175: END LOOP;
176:
177: IF L_TERMS_ID IS NULL THEN
178: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');
179: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_TERMS_ID');
180: FND_MSG_PUB.ADD;
181: RETURN(FALSE);
182: ELSE
183: RETURN(TRUE);

Line 216: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');

212: L_TERMS_ID := C_CHECK_PAYMENT_TERMS_REC.TERM_ID ;
213: END LOOP;
214:
215: IF L_TERMS_ID IS NULL THEN
216: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');
217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_TERMS');
218: FND_MSG_PUB.ADD;
219: RETURN (FALSE);
220: ELSE

Line 217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_TERMS');

213: END LOOP;
214:
215: IF L_TERMS_ID IS NULL THEN
216: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PAYMENT_TERM');
217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_TERMS');
218: FND_MSG_PUB.ADD;
219: RETURN (FALSE);
220: ELSE
221: X_TERMS_ID := L_TERMS_ID ;

Line 284: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');

280: L_LESSOR_SITE_ORG_ID := C_LESSOR_SITE_ID_REC.LESSOR_SITE_ORG_ID;
281: END LOOP;
282:
283: IF L_VENDOR_SITE_ID IS NULL OR L_CHART_OF_ACCOUNTS_ID IS NULL THEN
284: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
285: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_ID');
286: FND_MSG_PUB.ADD;
287: RETURN (FALSE);
288: ELSE

Line 285: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_ID');

281: END LOOP;
282:
283: IF L_VENDOR_SITE_ID IS NULL OR L_CHART_OF_ACCOUNTS_ID IS NULL THEN
284: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
285: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_ID');
286: FND_MSG_PUB.ADD;
287: RETURN (FALSE);
288: ELSE
289: X_CHART_OF_ACCOUNTS_ID:=L_CHART_OF_ACCOUNTS_ID;

Line 351: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');

347: L_CHART_OF_ACCOUNTS_ID := C_LESSOR_SITE_CODE_REC.COA_ID;
348: END LOOP;
349:
350: IF L_VENDOR_SITE_ID IS NULL OR L_CHART_OF_ACCOUNTS_ID IS NULL THEN
351: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
352: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_CODE');
353: FND_MSG_PUB.ADD;
354: RETURN (FALSE);
355: ELSE

Line 352: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_CODE');

348: END LOOP;
349:
350: IF L_VENDOR_SITE_ID IS NULL OR L_CHART_OF_ACCOUNTS_ID IS NULL THEN
351: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
352: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LESSOR_SITE_CODE');
353: FND_MSG_PUB.ADD;
354: RETURN (FALSE);
355: ELSE
356: X_CHART_OF_ACCOUNTS_ID:=L_CHART_OF_ACCOUNTS_ID;

Line 394: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');

390: L_CODE_COMBINATION_ID := C_CODE_COMBINATION_ID_REC.CODE_COMBINATION_ID;
391: END LOOP;
392:
393: IF L_CODE_COMBINATION_ID IS NULL THEN
394: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
395: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_DIST_CODE_COMBINATION_ID');
396: FND_MSG_PUB.ADD;
397: RETURN (FALSE);
398: ELSE

Line 395: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_DIST_CODE_COMBINATION_ID');

391: END LOOP;
392:
393: IF L_CODE_COMBINATION_ID IS NULL THEN
394: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
395: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_DIST_CODE_COMBINATION_ID');
396: FND_MSG_PUB.ADD;
397: RETURN (FALSE);
398: ELSE
399: RETURN (TRUE);

Line 424: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');

420:
421: L_CODE_COMBINATION_ID := FND_FLEX_EXT.GET_CCID ('SQLGL', 'GL#',P_COA_ID,SYSDATE,P_CON_CODE_COMBINATION);
422:
423: IF L_CODE_COMBINATION_ID = 0 THEN
424: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
425: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CODE_COMBINATION');
426: FND_MSG_PUB.ADD;
427: RETURN (FALSE);
428: ELSE

Line 425: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CODE_COMBINATION');

421: L_CODE_COMBINATION_ID := FND_FLEX_EXT.GET_CCID ('SQLGL', 'GL#',P_COA_ID,SYSDATE,P_CON_CODE_COMBINATION);
422:
423: IF L_CODE_COMBINATION_ID = 0 THEN
424: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
425: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CODE_COMBINATION');
426: FND_MSG_PUB.ADD;
427: RETURN (FALSE);
428: ELSE
429: X_CODE_COMBINATION_ID :=L_CODE_COMBINATION_ID;

Line 471: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');

467:
468: EXCEPTION
469: WHEN DUP_FOUND THEN
470: CLOSE C_LEASE_LESSOR;
471: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
472: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_LESSOR_COMBINATION');
473: FND_MSG_PUB.ADD;
474: RETURN (FALSE);
475: WHEN OTHERS THEN

Line 472: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_LESSOR_COMBINATION');

468: EXCEPTION
469: WHEN DUP_FOUND THEN
470: CLOSE C_LEASE_LESSOR;
471: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
472: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_LESSOR_COMBINATION');
473: FND_MSG_PUB.ADD;
474: RETURN (FALSE);
475: WHEN OTHERS THEN
476: CLOSE C_LEASE_LESSOR;

Line 504: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');

500: FETCH C_CURRENCY_CODE INTO L_CURRENCY_CODE;
501:
502: IF (C_CURRENCY_CODE %NOTFOUND) THEN
503: CLOSE C_CURRENCY_CODE;
504: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
505: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
506: FND_MSG_PUB.ADD;
507: RETURN (FALSE);
508: END IF;

Line 505: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');

501:
502: IF (C_CURRENCY_CODE %NOTFOUND) THEN
503: CLOSE C_CURRENCY_CODE;
504: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
505: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
506: FND_MSG_PUB.ADD;
507: RETURN (FALSE);
508: END IF;
509:

Line 513: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');

509:
510: CLOSE C_CURRENCY_CODE ;
511:
512: IF P_CURRENCY_CODE <> L_CURRENCY_CODE THEN
513: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
514: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
515: FND_MSG_PUB.ADD;
516: RETURN (FALSE);
517: ELSE

Line 514: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');

510: CLOSE C_CURRENCY_CODE ;
511:
512: IF P_CURRENCY_CODE <> L_CURRENCY_CODE THEN
513: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
514: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
515: FND_MSG_PUB.ADD;
516: RETURN (FALSE);
517: ELSE
518: RETURN (TRUE);

Line 553: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');

549: L_LEASE_TYPE := C_LEASE_TYPE_REC.LOOKUP_CODE;
550: END LOOP;
551:
552: IF L_LEASE_TYPE IS NULL THEN
553: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
554: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
555: FND_MSG_PUB.ADD;
556: RETURN (FALSE);
557: ELSE

Line 554: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');

550: END LOOP;
551:
552: IF L_LEASE_TYPE IS NULL THEN
553: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
554: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
555: FND_MSG_PUB.ADD;
556: RETURN (FALSE);
557: ELSE
558: RETURN (TRUE);

Line 602: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');

598: LOOP
599: L_VENDOR_ID := C_VENDOR_NAME_REC.VENDOR_ID;
600: END LOOP;
601: ELSE
602: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');
603: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');
604: FND_MSG_PUB.ADD;
605: RETURN (FALSE);
606: END IF;

Line 603: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');

599: L_VENDOR_ID := C_VENDOR_NAME_REC.VENDOR_ID;
600: END LOOP;
601: ELSE
602: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');
603: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');
604: FND_MSG_PUB.ADD;
605: RETURN (FALSE);
606: END IF;
607:

Line 612: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');

608: IF L_VENDOR_ID IS NOT NULL THEN
609: X_VENDOR_ID:=L_VENDOR_ID;
610: RETURN (TRUE);
611: ELSE
612: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');
613: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');
614: FND_MSG_PUB.ADD;
615: RETURN (FALSE);
616: END IF;

Line 613: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');

609: X_VENDOR_ID:=L_VENDOR_ID;
610: RETURN (TRUE);
611: ELSE
612: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_NAME');
613: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LESSOR');
614: FND_MSG_PUB.ADD;
615: RETURN (FALSE);
616: END IF;
617:

Line 659: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');

655:
656: EXCEPTION
657: WHEN COMB_NOT_FOUND THEN
658: CLOSE C_LEASE_LESSOR;
659: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
660: FND_MESSAGE.SET_TOKEN ('CALLING_FN','GET_LEASE_ID');
661: FND_MSG_PUB.ADD;
662: RETURN (FALSE);
663: WHEN OTHERS THEN

Line 660: FND_MESSAGE.SET_TOKEN ('CALLING_FN','GET_LEASE_ID');

656: EXCEPTION
657: WHEN COMB_NOT_FOUND THEN
658: CLOSE C_LEASE_LESSOR;
659: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
660: FND_MESSAGE.SET_TOKEN ('CALLING_FN','GET_LEASE_ID');
661: FND_MSG_PUB.ADD;
662: RETURN (FALSE);
663: WHEN OTHERS THEN
664: CLOSE C_LEASE_LESSOR;

Line 689: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');

685: RETURN (TRUE);
686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
689: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
690: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LEASE_ID');
691: FND_MSG_PUB.ADD;
692: RETURN (FALSE);
693: WHEN OTHERS THEN

Line 690: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LEASE_ID');

686:
687: EXCEPTION
688: WHEN NO_DATA_FOUND THEN
689: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
690: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LEASE_ID');
691: FND_MSG_PUB.ADD;
692: RETURN (FALSE);
693: WHEN OTHERS THEN
694: FA_SRVR_MSG.ADD_SQL_ERROR('VALIDATE_LEASE_ID'

Line 723: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');

719: END IF;
720:
721: EXCEPTION
722: WHEN NO_DATA_FOUND THEN
723: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
724: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_UPDATE');
725: FND_MSG_PUB.ADD;
726: RETURN ('N');
727: WHEN OTHERS THEN

Line 724: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_UPDATE');

720:
721: EXCEPTION
722: WHEN NO_DATA_FOUND THEN
723: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
724: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_UPDATE');
725: FND_MSG_PUB.ADD;
726: RETURN ('N');
727: WHEN OTHERS THEN
728: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_LEASE_UPDATE'

Line 829: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');

825: -- CHECK FOR LESSOR INFORMATION
826: ---------------------------------------
827: IF PX_LEASE_DETAILS_REC.LESSOR_ID IS NULL THEN
828: IF PX_LEASE_DETAILS_REC.LESSOR_NAME IS NULL THEN
829: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
830: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
831: FND_MSG_PUB.ADD;
832: RAISE VALUE_ERROR_EXCEPTION;
833: ELSE

Line 830: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

826: ---------------------------------------
827: IF PX_LEASE_DETAILS_REC.LESSOR_ID IS NULL THEN
828: IF PX_LEASE_DETAILS_REC.LESSOR_NAME IS NULL THEN
829: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
830: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
831: FND_MSG_PUB.ADD;
832: RAISE VALUE_ERROR_EXCEPTION;
833: ELSE
834: IF CHECK_LESSOR_NAME(PX_LEASE_DETAILS_REC.LESSOR_NAME,L_LESSOR_ID) THEN

Line 853: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');

849:
850: IF PX_LEASE_DETAILS_REC.LESSOR_SITE_ID IS NULL THEN
851: IF PX_LEASE_DETAILS_REC.LESSOR_SITE IS NULL OR
852: PX_LEASE_DETAILS_REC.LESSOR_SITE_ORG_ID IS NULL THEN
853: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
854: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
855: FND_MSG_PUB.ADD;
856: RAISE VALUE_ERROR_EXCEPTION;
857: ELSE

Line 854: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

850: IF PX_LEASE_DETAILS_REC.LESSOR_SITE_ID IS NULL THEN
851: IF PX_LEASE_DETAILS_REC.LESSOR_SITE IS NULL OR
852: PX_LEASE_DETAILS_REC.LESSOR_SITE_ORG_ID IS NULL THEN
853: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
854: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
855: FND_MSG_PUB.ADD;
856: RAISE VALUE_ERROR_EXCEPTION;
857: ELSE
858: IF CHECK_LESSOR_SITE_CODE (PX_LEASE_DETAILS_REC.LESSOR_SITE,PX_LEASE_DETAILS_REC.LESSOR_ID,PX_LEASE_DETAILS_REC.LESSOR_SITE_ORG_ID ,L_LESSOR_SITE_ID,L_COA_ID) THEN

Line 876: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');

872: -----------------------------------
873:
874: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID IS NULL THEN
875: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
876: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
878: FND_MSG_PUB.ADD;
879: RAISE VALUE_ERROR_EXCEPTION;
880: ELSE

Line 877: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

873:
874: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID IS NULL THEN
875: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
876: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
877: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
878: FND_MSG_PUB.ADD;
879: RAISE VALUE_ERROR_EXCEPTION;
880: ELSE
881: IF CHECK_PAYMENT_SCHEDULE_NAME(PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME ,L_PAYMENT_SCHEDULE_ID) THEN

Line 920: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');

916: --------------------------------------------------------------------------------------------------
917:
918: IF PX_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID IS NULL THEN
919: IF PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION IS NULL THEN
920: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
921: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
922: FND_MSG_PUB.ADD;
923: RAISE VALUE_ERROR_EXCEPTION;
924: ELSE

Line 921: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

917:
918: IF PX_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID IS NULL THEN
919: IF PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION IS NULL THEN
920: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
921: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
922: FND_MSG_PUB.ADD;
923: RAISE VALUE_ERROR_EXCEPTION;
924: ELSE
925: IF CHECK_CODE_COMBINATION (PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION,L_COA_ID,L_DIST_CODE_COMBINATION_ID) THEN

Line 942: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_NUMBER');

938: -- CHECK IF LEASE NUMBER AND LESSOR SHOULD HAVE A UNIQUE COMBINATION
939: -----------------------------------------------------------------------
940:
941: IF PX_LEASE_DETAILS_REC.LEASE_NUMBER IS NULL THEN
942: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_NUMBER');
943: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
944: FND_MSG_PUB.ADD;
945: RAISE VALUE_ERROR_EXCEPTION;
946: END IF;

Line 943: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

939: -----------------------------------------------------------------------
940:
941: IF PX_LEASE_DETAILS_REC.LEASE_NUMBER IS NULL THEN
942: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_NUMBER');
943: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
944: FND_MSG_PUB.ADD;
945: RAISE VALUE_ERROR_EXCEPTION;
946: END IF;
947:

Line 957: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');

953: -- CHECK IF FAIR VALUE >= 0
954: -----------------------------------------------------------------------
955:
956: IF PX_LEASE_DETAILS_REC.FAIR_VALUE IS NULL THEN
957: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
958: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
959: FND_MSG_PUB.ADD;
960: RAISE VALUE_ERROR_EXCEPTION;
961: END IF;

Line 958: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

954: -----------------------------------------------------------------------
955:
956: IF PX_LEASE_DETAILS_REC.FAIR_VALUE IS NULL THEN
957: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
958: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
959: FND_MSG_PUB.ADD;
960: RAISE VALUE_ERROR_EXCEPTION;
961: END IF;
962:

Line 964: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');

960: RAISE VALUE_ERROR_EXCEPTION;
961: END IF;
962:
963: IF PX_LEASE_DETAILS_REC.FAIR_VALUE < 1 THEN
964: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
965: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
966: FND_MSG_PUB.ADD;
967: RAISE VALUE_ERROR_EXCEPTION;
968: END IF;

Line 965: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

961: END IF;
962:
963: IF PX_LEASE_DETAILS_REC.FAIR_VALUE < 1 THEN
964: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
965: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
966: FND_MSG_PUB.ADD;
967: RAISE VALUE_ERROR_EXCEPTION;
968: END IF;
969:

Line 975: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');

971: -- CHECK FOR CURRENCY CODE
972: ---------------------------------
973:
974: IF PX_LEASE_DETAILS_REC.CURRENCY_CODE IS NULL THEN
975: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
976: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
977: FND_MSG_PUB.ADD;
978: RAISE VALUE_ERROR_EXCEPTION;
979: ELSE

Line 976: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

972: ---------------------------------
973:
974: IF PX_LEASE_DETAILS_REC.CURRENCY_CODE IS NULL THEN
975: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
976: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
977: FND_MSG_PUB.ADD;
978: RAISE VALUE_ERROR_EXCEPTION;
979: ELSE
980: IF NOT CHECK_CURRENCY_CODE (PX_LEASE_DETAILS_REC.CURRENCY_CODE,PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID) THEN

Line 990: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');

986: -- CHECK FOR DESCRIPTION SHOULD NOT BE NULL
987: -------------------------------------------------
988:
989: IF PX_LEASE_DETAILS_REC.DESCRIPTION IS NULL THEN
990: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
991: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
992: FND_MSG_PUB.ADD;
993: RAISE VALUE_ERROR_EXCEPTION;
994: END IF;

Line 991: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

987: -------------------------------------------------
988:
989: IF PX_LEASE_DETAILS_REC.DESCRIPTION IS NULL THEN
990: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
991: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
992: FND_MSG_PUB.ADD;
993: RAISE VALUE_ERROR_EXCEPTION;
994: END IF;
995:

Line 1006: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_TRANSFER_OWNER');

1002: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP = 'N') THEN
1003: L_TRANSFER_OWNERSHIP:= NVL(PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP,'N') ;
1004: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP:=L_TRANSFER_OWNERSHIP;
1005: ELSE
1006: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_TRANSFER_OWNER');
1007: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1008: FND_MSG_PUB.ADD;
1009: RAISE VALUE_ERROR_EXCEPTION;
1010: END IF;

Line 1007: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1003: L_TRANSFER_OWNERSHIP:= NVL(PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP,'N') ;
1004: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP:=L_TRANSFER_OWNERSHIP;
1005: ELSE
1006: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_TRANSFER_OWNER');
1007: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1008: FND_MSG_PUB.ADD;
1009: RAISE VALUE_ERROR_EXCEPTION;
1010: END IF;
1011:

Line 1022: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_BARGAIN_PURCHASE');

1018: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION = 'N') THEN
1019: L_BARGAIN_PURCHASE_OPTION:= NVL(PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION,'N') ;
1020: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION:=L_BARGAIN_PURCHASE_OPTION;
1021: ELSE
1022: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_BARGAIN_PURCHASE');
1023: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1024: FND_MSG_PUB.ADD;
1025: RAISE VALUE_ERROR_EXCEPTION;
1026: END IF;

Line 1023: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1019: L_BARGAIN_PURCHASE_OPTION:= NVL(PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION,'N') ;
1020: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION:=L_BARGAIN_PURCHASE_OPTION;
1021: ELSE
1022: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_BARGAIN_PURCHASE');
1023: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1024: FND_MSG_PUB.ADD;
1025: RAISE VALUE_ERROR_EXCEPTION;
1026: END IF;
1027:

Line 1037: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ASSET_LIFE');

1033: IF PX_LEASE_DETAILS_REC.ASSET_LIFE IS NULL THEN
1034: PX_LEASE_DETAILS_REC.ASSET_LIFE:=NULL;
1035: ELSE
1036: IF PX_LEASE_DETAILS_REC.ASSET_LIFE < 0 THEN
1037: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ASSET_LIFE');
1038: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1039: FND_MSG_PUB.ADD;
1040: RAISE VALUE_ERROR_EXCEPTION;
1041: END IF;

Line 1038: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1034: PX_LEASE_DETAILS_REC.ASSET_LIFE:=NULL;
1035: ELSE
1036: IF PX_LEASE_DETAILS_REC.ASSET_LIFE < 0 THEN
1037: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ASSET_LIFE');
1038: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1039: FND_MSG_PUB.ADD;
1040: RAISE VALUE_ERROR_EXCEPTION;
1041: END IF;
1042: END IF;

Line 1052: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_TERM');

1048: IF PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1049: PX_LEASE_DETAILS_REC.LEASE_TERM:=NULL;
1050: ELSE
1051: IF PX_LEASE_DETAILS_REC.LEASE_TERM < 0 THEN
1052: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_TERM');
1053: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1054: FND_MSG_PUB.ADD;
1055: RAISE VALUE_ERROR_EXCEPTION;
1056: END IF;

Line 1053: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1049: PX_LEASE_DETAILS_REC.LEASE_TERM:=NULL;
1050: ELSE
1051: IF PX_LEASE_DETAILS_REC.LEASE_TERM < 0 THEN
1052: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_TERM');
1053: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1054: FND_MSG_PUB.ADD;
1055: RAISE VALUE_ERROR_EXCEPTION;
1056: END IF;
1057: END IF;

Line 1071: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ALIFE_LEASE_TERM');

1067: ELSIF PX_LEASE_DETAILS_REC.ASSET_LIFE IS NULL AND
1068: PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1069: NULL;
1070: ELSE
1071: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ALIFE_LEASE_TERM');
1072: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1073: FND_MSG_PUB.ADD;
1074: RAISE VALUE_ERROR_EXCEPTION;
1075: END IF;

Line 1072: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1068: PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1069: NULL;
1070: ELSE
1071: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ALIFE_LEASE_TERM');
1072: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1073: FND_MSG_PUB.ADD;
1074: RAISE VALUE_ERROR_EXCEPTION;
1075: END IF;
1076:

Line 1082: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');

1078: -- CHECK FOR LEASE TYPE
1079: --------------------------------------
1080:
1081: IF PX_LEASE_DETAILS_REC.LEASE_TYPE IS NULL THEN
1082: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
1083: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
1084: FND_MSG_PUB.ADD;
1085: ELSE
1086: IF NOT CHECK_LEASE_TYPE(PX_LEASE_DETAILS_REC.LEASE_TYPE) THEN

Line 1083: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');

1079: --------------------------------------
1080:
1081: IF PX_LEASE_DETAILS_REC.LEASE_TYPE IS NULL THEN
1082: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
1083: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
1084: FND_MSG_PUB.ADD;
1085: ELSE
1086: IF NOT CHECK_LEASE_TYPE(PX_LEASE_DETAILS_REC.LEASE_TYPE) THEN
1087: RAISE VALUE_ERROR_EXCEPTION;

Line 1096: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');

1092:
1093: EXCEPTION
1094: WHEN PRESENT_VALUE_NOT_FOUND THEN
1095: ROLLBACK TO CREATE_LEASE;
1096: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
1097: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1098: FND_MSG_PUB.ADD;
1099: RETURN(FALSE);
1100: WHEN VALUE_ERROR_EXCEPTION THEN

Line 1097: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');

1093: EXCEPTION
1094: WHEN PRESENT_VALUE_NOT_FOUND THEN
1095: ROLLBACK TO CREATE_LEASE;
1096: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
1097: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1098: FND_MSG_PUB.ADD;
1099: RETURN(FALSE);
1100: WHEN VALUE_ERROR_EXCEPTION THEN
1101: RETURN(FALSE);

Line 1155: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');

1151: -- VALIDATE LEASE ID
1152: --------------------------
1153: IF PX_LEASE_DETAILS_REC_NEW.LEASE_ID IS NULL THEN
1154: IF PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER IS NULL THEN
1155: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
1156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1157: FND_MSG_PUB.ADD;
1158: RAISE VALUE_ERROR_EXCEPTION;
1159: ELSE

Line 1156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');

1152: --------------------------
1153: IF PX_LEASE_DETAILS_REC_NEW.LEASE_ID IS NULL THEN
1154: IF PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER IS NULL THEN
1155: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
1156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1157: FND_MSG_PUB.ADD;
1158: RAISE VALUE_ERROR_EXCEPTION;
1159: ELSE
1160: IF GET_LEASE_ID(L_LESSOR_ID,PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER,L_LEASE_ID) THEN

Line 1216: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');

1212: IF L_UPDATE_FLAG = 'Y' THEN
1213: IF VALIDATE_LEASE_LESSOR(L_LEASE_ID,L_LESSOR_ID,L_LESSOR_SITE_ID,L_LESSOR_SITE_ORG_ID) THEN
1214: L_OK_TO_UPDATE_LESSOR :='Y';
1215: ELSE
1216: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1218: FND_MSG_PUB.ADD;
1219: RAISE VALUE_ERROR_EXCEPTION;
1220: END IF;

Line 1217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');

1213: IF VALIDATE_LEASE_LESSOR(L_LEASE_ID,L_LESSOR_ID,L_LESSOR_SITE_ID,L_LESSOR_SITE_ORG_ID) THEN
1214: L_OK_TO_UPDATE_LESSOR :='Y';
1215: ELSE
1216: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1217: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1218: FND_MSG_PUB.ADD;
1219: RAISE VALUE_ERROR_EXCEPTION;
1220: END IF;
1221: ELSE

Line 1222: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');

1218: FND_MSG_PUB.ADD;
1219: RAISE VALUE_ERROR_EXCEPTION;
1220: END IF;
1221: ELSE
1222: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1223: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1224: FND_MSG_PUB.ADD;
1225: RAISE VALUE_ERROR_EXCEPTION;
1226: END IF;

Line 1223: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');

1219: RAISE VALUE_ERROR_EXCEPTION;
1220: END IF;
1221: ELSE
1222: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1223: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1224: FND_MSG_PUB.ADD;
1225: RAISE VALUE_ERROR_EXCEPTION;
1226: END IF;
1227: END IF;