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 29: FND_MSG_PUB.ADD;

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

Line 67: FND_MSG_PUB.ADD;

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

Line 106: FND_MSG_PUB.ADD;

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

Line 144: FND_MSG_PUB.ADD;

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

Line 182: FND_MSG_PUB.ADD;

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

Line 220: FND_MSG_PUB.ADD;

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

Line 288: FND_MSG_PUB.ADD;

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

Line 355: FND_MSG_PUB.ADD;

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

Line 398: FND_MSG_PUB.ADD;

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

Line 428: FND_MSG_PUB.ADD;

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

Line 474: FND_MSG_PUB.ADD;

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;
478: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_LEASE_LESSOR_COMBINATION', p_log_level_rec => p_log_level_rec);

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 554: FND_MSG_PUB.ADD;

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

Line 602: FND_MSG_PUB.ADD;

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

Line 612: FND_MSG_PUB.ADD;

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

Line 658: FND_MSG_PUB.ADD;

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;
662: FA_SRVR_MSG.ADD_SQL_ERROR('GET_LEASE_ID', p_log_level_rec => p_log_level_rec);

Line 687: FND_MSG_PUB.ADD;

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);
691: RETURN (FALSE);

Line 719: FND_MSG_PUB.ADD;

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);
723: RETURN ('N');

Line 825: FND_MSG_PUB.ADD;

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

Line 849: FND_MSG_PUB.ADD;

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

Line 872: FND_MSG_PUB.ADD;

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

Line 916: FND_MSG_PUB.ADD;

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

Line 938: FND_MSG_PUB.ADD;

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

Line 953: FND_MSG_PUB.ADD;

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

Line 960: FND_MSG_PUB.ADD;

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

Line 971: FND_MSG_PUB.ADD;

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

Line 986: FND_MSG_PUB.ADD;

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

Line 1002: FND_MSG_PUB.ADD;

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

Line 1018: FND_MSG_PUB.ADD;

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

Line 1033: FND_MSG_PUB.ADD;

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

Line 1048: FND_MSG_PUB.ADD;

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

Line 1067: FND_MSG_PUB.ADD;

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

Line 1078: FND_MSG_PUB.ADD;

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

Line 1092: FND_MSG_PUB.ADD;

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

Line 1150: FND_MSG_PUB.ADD;

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

Line 1211: FND_MSG_PUB.ADD;

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

Line 1217: FND_MSG_PUB.ADD;

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