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_MSG_PUB

Line 28: FND_MSG_PUB.ADD;

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);
32: END IF;

Line 66: FND_MSG_PUB.ADD;

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;
70: RETURN (TRUE);

Line 104: FND_MSG_PUB.ADD;

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);
108: END IF;

Line 142: FND_MSG_PUB.ADD;

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 ;
146: RETURN (TRUE);

Line 180: FND_MSG_PUB.ADD;

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);
184: END IF;

Line 218: FND_MSG_PUB.ADD;

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 ;
222: RETURN (TRUE);

Line 286: FND_MSG_PUB.ADD;

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;
290: X_LESSOR_SITE_ORG_ID :=L_LESSOR_SITE_ORG_ID ;

Line 353: FND_MSG_PUB.ADD;

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;
357: X_VENDOR_SITE_ID:=L_VENDOR_SITE_ID;

Line 396: FND_MSG_PUB.ADD;

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);
400: END IF;

Line 426: FND_MSG_PUB.ADD;

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;
430: RETURN (TRUE);

Line 473: FND_MSG_PUB.ADD;

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;
477: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_LEASE_LESSOR_COMBINATION'

Line 506: FND_MSG_PUB.ADD;

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:
510: CLOSE C_CURRENCY_CODE ;

Line 515: FND_MSG_PUB.ADD;

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);
519: END IF;

Line 555: FND_MSG_PUB.ADD;

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);
559: END IF;

Line 604: FND_MSG_PUB.ADD;

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:
608: IF L_VENDOR_ID IS NOT NULL THEN

Line 614: FND_MSG_PUB.ADD;

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:
618: EXCEPTION

Line 661: FND_MSG_PUB.ADD;

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;
665: FA_SRVR_MSG.ADD_SQL_ERROR('GET_LEASE_ID'

Line 691: FND_MSG_PUB.ADD;

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'
695: ,p_log_level_rec => p_log_level_rec);

Line 725: FND_MSG_PUB.ADD;

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'
729: ,p_log_level_rec => p_log_level_rec);

Line 831: FND_MSG_PUB.ADD;

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
835: PX_LEASE_DETAILS_REC.LESSOR_ID:=L_LESSOR_ID;

Line 855: FND_MSG_PUB.ADD;

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
859: PX_LEASE_DETAILS_REC.LESSOR_SITE_ID:=L_LESSOR_SITE_ID;

Line 878: FND_MSG_PUB.ADD;

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
882: PX_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID:=L_PAYMENT_SCHEDULE_ID;

Line 922: FND_MSG_PUB.ADD;

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
926: PX_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID:=L_DIST_CODE_COMBINATION_ID;

Line 944: FND_MSG_PUB.ADD;

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:
948: IF NOT CHECK_LEASE_LESSOR_COMBINATION (PX_LEASE_DETAILS_REC.LESSOR_ID,PX_LEASE_DETAILS_REC.LEASE_NUMBER) THEN

Line 959: FND_MSG_PUB.ADD;

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:
963: IF PX_LEASE_DETAILS_REC.FAIR_VALUE < 1 THEN

Line 966: FND_MSG_PUB.ADD;

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:
970: ---------------------------------

Line 977: FND_MSG_PUB.ADD;

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
981: RAISE VALUE_ERROR_EXCEPTION;

Line 992: FND_MSG_PUB.ADD;

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:
996: --------------------------------------------------------

Line 1008: FND_MSG_PUB.ADD;

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:
1012: ----------------------------------------------------------

Line 1024: FND_MSG_PUB.ADD;

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:
1028: ----------------------------------------------------------

Line 1039: FND_MSG_PUB.ADD;

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;
1043:

Line 1054: FND_MSG_PUB.ADD;

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;
1058:

Line 1073: FND_MSG_PUB.ADD;

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:
1077: --------------------------------------

Line 1084: FND_MSG_PUB.ADD;

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;
1088: END IF;

Line 1098: FND_MSG_PUB.ADD;

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);
1102: WHEN OTHERS THEN

Line 1157: FND_MSG_PUB.ADD;

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
1161: PX_LEASE_DETAILS_REC_NEW.LEASE_ID:=L_LEASE_ID;

Line 1218: FND_MSG_PUB.ADD;

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

Line 1224: FND_MSG_PUB.ADD;

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;
1228: