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 27: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

469: EXCEPTION
470: WHEN DUP_FOUND THEN
471: CLOSE C_LEASE_LESSOR;
472: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
473: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_LESSOR_COMBINATION');
474: FND_MSG_PUB.ADD;
475: RETURN (FALSE);
476: WHEN OTHERS THEN
477: 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 552: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

681: RETURN (TRUE);
682:
683: EXCEPTION
684: WHEN NO_DATA_FOUND THEN
685: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
686: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LEASE_ID');
687: FND_MSG_PUB.ADD;
688: RETURN (FALSE);
689: WHEN OTHERS THEN

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

682:
683: EXCEPTION
684: WHEN NO_DATA_FOUND THEN
685: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
686: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_LEASE_ID');
687: FND_MSG_PUB.ADD;
688: RETURN (FALSE);
689: WHEN OTHERS THEN
690: FA_SRVR_MSG.ADD_SQL_ERROR('VALIDATE_LEASE_ID', p_log_level_rec => p_log_level_rec);

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

713: END IF;
714:
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
718: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_UPDATE');
719: FND_MSG_PUB.ADD;
720: RETURN ('N');
721: WHEN OTHERS THEN

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

714:
715: EXCEPTION
716: WHEN NO_DATA_FOUND THEN
717: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_LEASE');
718: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_UPDATE');
719: FND_MSG_PUB.ADD;
720: RETURN ('N');
721: WHEN OTHERS THEN
722: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_LEASE_UPDATE', p_log_level_rec => p_log_level_rec);

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

819: -- CHECK FOR LESSOR INFORMATION
820: ---------------------------------------
821: IF PX_LEASE_DETAILS_REC.LESSOR_ID IS NULL THEN
822: IF PX_LEASE_DETAILS_REC.LESSOR_NAME IS NULL THEN
823: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
824: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
825: FND_MSG_PUB.ADD;
826: RAISE VALUE_ERROR_EXCEPTION;
827: ELSE

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

820: ---------------------------------------
821: IF PX_LEASE_DETAILS_REC.LESSOR_ID IS NULL THEN
822: IF PX_LEASE_DETAILS_REC.LESSOR_NAME IS NULL THEN
823: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LESSOR_ID');
824: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
825: FND_MSG_PUB.ADD;
826: RAISE VALUE_ERROR_EXCEPTION;
827: ELSE
828: IF CHECK_LESSOR_NAME(PX_LEASE_DETAILS_REC.LESSOR_NAME,L_LESSOR_ID) THEN

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

843:
844: IF PX_LEASE_DETAILS_REC.LESSOR_SITE_ID IS NULL THEN
845: IF PX_LEASE_DETAILS_REC.LESSOR_SITE IS NULL OR
846: PX_LEASE_DETAILS_REC.LESSOR_SITE_ORG_ID IS NULL THEN
847: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
848: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
849: FND_MSG_PUB.ADD;
850: RAISE VALUE_ERROR_EXCEPTION;
851: ELSE

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

844: IF PX_LEASE_DETAILS_REC.LESSOR_SITE_ID IS NULL THEN
845: IF PX_LEASE_DETAILS_REC.LESSOR_SITE IS NULL OR
846: PX_LEASE_DETAILS_REC.LESSOR_SITE_ORG_ID IS NULL THEN
847: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PO_VENDOR_SITE');
848: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
849: FND_MSG_PUB.ADD;
850: RAISE VALUE_ERROR_EXCEPTION;
851: ELSE
852: 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 870: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');

866: -----------------------------------
867:
868: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID IS NULL THEN
869: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
870: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
871: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
872: FND_MSG_PUB.ADD;
873: RAISE VALUE_ERROR_EXCEPTION;
874: ELSE

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

867:
868: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID IS NULL THEN
869: IF PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
870: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
871: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
872: FND_MSG_PUB.ADD;
873: RAISE VALUE_ERROR_EXCEPTION;
874: ELSE
875: IF CHECK_PAYMENT_SCHEDULE_NAME(PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_NAME ,L_PAYMENT_SCHEDULE_ID) THEN

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

910: --------------------------------------------------------------------------------------------------
911:
912: IF PX_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID IS NULL THEN
913: IF PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION IS NULL THEN
914: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
915: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
916: FND_MSG_PUB.ADD;
917: RAISE VALUE_ERROR_EXCEPTION;
918: ELSE

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

911:
912: IF PX_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID IS NULL THEN
913: IF PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION IS NULL THEN
914: FND_MESSAGE.SET_NAME ('OFA','FA_INV_CODE_COMBINATION');
915: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
916: FND_MSG_PUB.ADD;
917: RAISE VALUE_ERROR_EXCEPTION;
918: ELSE
919: IF CHECK_CODE_COMBINATION (PX_LEASE_DETAILS_REC.CON_DIST_CODE_COMBINATION,L_COA_ID,L_DIST_CODE_COMBINATION_ID) THEN

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

932: -- CHECK IF LEASE NUMBER AND LESSOR SHOULD HAVE A UNIQUE COMBINATION
933: -----------------------------------------------------------------------
934:
935: IF PX_LEASE_DETAILS_REC.LEASE_NUMBER IS NULL THEN
936: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_NUMBER');
937: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
938: FND_MSG_PUB.ADD;
939: RAISE VALUE_ERROR_EXCEPTION;
940: END IF;

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

933: -----------------------------------------------------------------------
934:
935: IF PX_LEASE_DETAILS_REC.LEASE_NUMBER IS NULL THEN
936: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_NUMBER');
937: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
938: FND_MSG_PUB.ADD;
939: RAISE VALUE_ERROR_EXCEPTION;
940: END IF;
941:

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

947: -- CHECK IF FAIR VALUE >= 0
948: -----------------------------------------------------------------------
949:
950: IF PX_LEASE_DETAILS_REC.FAIR_VALUE IS NULL THEN
951: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
952: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
953: FND_MSG_PUB.ADD;
954: RAISE VALUE_ERROR_EXCEPTION;
955: END IF;

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

948: -----------------------------------------------------------------------
949:
950: IF PX_LEASE_DETAILS_REC.FAIR_VALUE IS NULL THEN
951: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_FAIR_VALUE');
952: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
953: FND_MSG_PUB.ADD;
954: RAISE VALUE_ERROR_EXCEPTION;
955: END IF;
956:

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

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

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

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

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

965: -- CHECK FOR CURRENCY CODE
966: ---------------------------------
967:
968: IF PX_LEASE_DETAILS_REC.CURRENCY_CODE IS NULL THEN
969: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
970: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
971: FND_MSG_PUB.ADD;
972: RAISE VALUE_ERROR_EXCEPTION;
973: ELSE

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

966: ---------------------------------
967:
968: IF PX_LEASE_DETAILS_REC.CURRENCY_CODE IS NULL THEN
969: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CURRENCY_NOT_MATCH');
970: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
971: FND_MSG_PUB.ADD;
972: RAISE VALUE_ERROR_EXCEPTION;
973: ELSE
974: IF NOT CHECK_CURRENCY_CODE (PX_LEASE_DETAILS_REC.CURRENCY_CODE,PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID,p_log_level_rec) THEN

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

980: -- CHECK FOR DESCRIPTION SHOULD NOT BE NULL
981: -------------------------------------------------
982:
983: IF PX_LEASE_DETAILS_REC.DESCRIPTION IS NULL THEN
984: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
985: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
986: FND_MSG_PUB.ADD;
987: RAISE VALUE_ERROR_EXCEPTION;
988: END IF;

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

981: -------------------------------------------------
982:
983: IF PX_LEASE_DETAILS_REC.DESCRIPTION IS NULL THEN
984: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
985: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
986: FND_MSG_PUB.ADD;
987: RAISE VALUE_ERROR_EXCEPTION;
988: END IF;
989:

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

996: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP = 'N' ) THEN
997: L_TRANSFER_OWNERSHIP:= NVL(PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP,'N') ;
998: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP:=L_TRANSFER_OWNERSHIP;
999: ELSE
1000: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_TRANSFER_OWNER');
1001: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1002: FND_MSG_PUB.ADD;
1003: RAISE VALUE_ERROR_EXCEPTION;
1004: END IF;

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

997: L_TRANSFER_OWNERSHIP:= NVL(PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP,'N') ;
998: PX_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP:=L_TRANSFER_OWNERSHIP;
999: ELSE
1000: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_TRANSFER_OWNER');
1001: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1002: FND_MSG_PUB.ADD;
1003: RAISE VALUE_ERROR_EXCEPTION;
1004: END IF;
1005:

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

1012: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION = 'N' ) THEN
1013: L_BARGAIN_PURCHASE_OPTION:= NVL(PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION,'N') ;
1014: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION:=L_BARGAIN_PURCHASE_OPTION;
1015: ELSE
1016: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_BARGAIN_PURCHASE');
1017: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1018: FND_MSG_PUB.ADD;
1019: RAISE VALUE_ERROR_EXCEPTION;
1020: END IF;

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

1013: L_BARGAIN_PURCHASE_OPTION:= NVL(PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION,'N') ;
1014: PX_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION:=L_BARGAIN_PURCHASE_OPTION;
1015: ELSE
1016: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_BARGAIN_PURCHASE');
1017: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1018: FND_MSG_PUB.ADD;
1019: RAISE VALUE_ERROR_EXCEPTION;
1020: END IF;
1021:

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

1027: IF PX_LEASE_DETAILS_REC.ASSET_LIFE IS NULL THEN
1028: PX_LEASE_DETAILS_REC.ASSET_LIFE:=NULL;
1029: ELSE
1030: IF PX_LEASE_DETAILS_REC.ASSET_LIFE < 0 THEN
1031: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ASSET_LIFE');
1032: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1033: FND_MSG_PUB.ADD;
1034: RAISE VALUE_ERROR_EXCEPTION;
1035: END IF;

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

1028: PX_LEASE_DETAILS_REC.ASSET_LIFE:=NULL;
1029: ELSE
1030: IF PX_LEASE_DETAILS_REC.ASSET_LIFE < 0 THEN
1031: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ASSET_LIFE');
1032: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1033: FND_MSG_PUB.ADD;
1034: RAISE VALUE_ERROR_EXCEPTION;
1035: END IF;
1036: END IF;

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

1042: IF PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1043: PX_LEASE_DETAILS_REC.LEASE_TERM:=NULL;
1044: ELSE
1045: IF PX_LEASE_DETAILS_REC.LEASE_TERM < 0 THEN
1046: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_TERM');
1047: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1048: FND_MSG_PUB.ADD;
1049: RAISE VALUE_ERROR_EXCEPTION;
1050: END IF;

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

1043: PX_LEASE_DETAILS_REC.LEASE_TERM:=NULL;
1044: ELSE
1045: IF PX_LEASE_DETAILS_REC.LEASE_TERM < 0 THEN
1046: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_TERM');
1047: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1048: FND_MSG_PUB.ADD;
1049: RAISE VALUE_ERROR_EXCEPTION;
1050: END IF;
1051: END IF;

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

1061: ELSIF PX_LEASE_DETAILS_REC.ASSET_LIFE IS NULL AND
1062: PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1063: NULL;
1064: ELSE
1065: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ALIFE_LEASE_TERM');
1066: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1067: FND_MSG_PUB.ADD;
1068: RAISE VALUE_ERROR_EXCEPTION;
1069: END IF;

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

1062: PX_LEASE_DETAILS_REC.LEASE_TERM IS NULL THEN
1063: NULL;
1064: ELSE
1065: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_ALIFE_LEASE_TERM');
1066: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1067: FND_MSG_PUB.ADD;
1068: RAISE VALUE_ERROR_EXCEPTION;
1069: END IF;
1070:

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

1072: -- CHECK FOR LEASE TYPE
1073: --------------------------------------
1074:
1075: IF PX_LEASE_DETAILS_REC.LEASE_TYPE IS NULL THEN
1076: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
1077: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
1078: FND_MSG_PUB.ADD;
1079: ELSE
1080: IF NOT CHECK_LEASE_TYPE(PX_LEASE_DETAILS_REC.LEASE_TYPE,p_log_level_rec) THEN

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

1073: --------------------------------------
1074:
1075: IF PX_LEASE_DETAILS_REC.LEASE_TYPE IS NULL THEN
1076: FND_MESSAGE.SET_NAME ('OFA','FA_INV_LEASE_TYPE');
1077: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_TYPE');
1078: FND_MSG_PUB.ADD;
1079: ELSE
1080: IF NOT CHECK_LEASE_TYPE(PX_LEASE_DETAILS_REC.LEASE_TYPE,p_log_level_rec) THEN
1081: RAISE VALUE_ERROR_EXCEPTION;

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

1086:
1087: EXCEPTION
1088: WHEN PRESENT_VALUE_NOT_FOUND THEN
1089: ROLLBACK TO CREATE_LEASE;
1090: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
1091: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1092: FND_MSG_PUB.ADD;
1093: RETURN(FALSE);
1094: WHEN VALUE_ERROR_EXCEPTION THEN

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

1087: EXCEPTION
1088: WHEN PRESENT_VALUE_NOT_FOUND THEN
1089: ROLLBACK TO CREATE_LEASE;
1090: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
1091: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_CREATE_LEASE');
1092: FND_MSG_PUB.ADD;
1093: RETURN(FALSE);
1094: WHEN VALUE_ERROR_EXCEPTION THEN
1095: RETURN(FALSE);

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

1144: -- VALIDATE LEASE ID
1145: --------------------------
1146: IF PX_LEASE_DETAILS_REC_NEW.LEASE_ID IS NULL THEN
1147: IF PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER IS NULL THEN
1148: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
1149: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1150: FND_MSG_PUB.ADD;
1151: RAISE VALUE_ERROR_EXCEPTION;
1152: ELSE

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

1145: --------------------------
1146: IF PX_LEASE_DETAILS_REC_NEW.LEASE_ID IS NULL THEN
1147: IF PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER IS NULL THEN
1148: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_INCORRECT_LEASE_ID');
1149: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1150: FND_MSG_PUB.ADD;
1151: RAISE VALUE_ERROR_EXCEPTION;
1152: ELSE
1153: IF GET_LEASE_ID(L_LESSOR_ID,PX_LEASE_DETAILS_REC_NEW.LEASE_NUMBER,L_LEASE_ID,p_log_level_rec) THEN

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

1205: IF L_UPDATE_FLAG = 'Y' THEN
1206: IF VALIDATE_LEASE_LESSOR(L_LEASE_ID,L_LESSOR_ID,L_LESSOR_SITE_ID,L_LESSOR_SITE_ORG_ID,p_log_level_rec) THEN
1207: L_OK_TO_UPDATE_LESSOR :='Y';
1208: ELSE
1209: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1210: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1211: FND_MSG_PUB.ADD;
1212: RAISE VALUE_ERROR_EXCEPTION;
1213: END IF;

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

1206: IF VALIDATE_LEASE_LESSOR(L_LEASE_ID,L_LESSOR_ID,L_LESSOR_SITE_ID,L_LESSOR_SITE_ORG_ID,p_log_level_rec) THEN
1207: L_OK_TO_UPDATE_LESSOR :='Y';
1208: ELSE
1209: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1210: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1211: FND_MSG_PUB.ADD;
1212: RAISE VALUE_ERROR_EXCEPTION;
1213: END IF;
1214: ELSE

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

1211: FND_MSG_PUB.ADD;
1212: RAISE VALUE_ERROR_EXCEPTION;
1213: END IF;
1214: ELSE
1215: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1216: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1217: FND_MSG_PUB.ADD;
1218: RAISE VALUE_ERROR_EXCEPTION;
1219: END IF;

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

1212: RAISE VALUE_ERROR_EXCEPTION;
1213: END IF;
1214: ELSE
1215: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_CANNOT_BE_UPDATED');
1216: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATION_UPDATE_LEASE');
1217: FND_MSG_PUB.ADD;
1218: RAISE VALUE_ERROR_EXCEPTION;
1219: END IF;
1220: END IF;