DBA Data[Home] [Help]

APPS.FA_LEASE_SCHEDULE_PVT dependencies on FND_MESSAGE

Line 38: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_PAYMENT_SCH');

34: RETURN (TRUE);
35:
36: EXCEPTION
37: WHEN PAYMENT_SCHEDULE_FOUND THEN
38: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_PAYMENT_SCH');
39: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE');
40: FND_MSG_PUB.ADD;
41: RETURN (FALSE);
42: WHEN OTHERS THEN

Line 39: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE');

35:
36: EXCEPTION
37: WHEN PAYMENT_SCHEDULE_FOUND THEN
38: FND_MESSAGE.SET_NAME ('OFA','FA_DUPLICATE_PAYMENT_SCH');
39: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_SCHEDULE');
40: FND_MSG_PUB.ADD;
41: RETURN (FALSE);
42: WHEN OTHERS THEN
43: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_PAYMENT_SCHEDULE', p_log_level_rec => p_log_level_rec);

Line 71: FND_MESSAGE.SET_NAME ('OFA','FA_DYN_CURRENCY');

67: RETURN (TRUE);
68:
69: EXCEPTION
70: WHEN NO_DATA_FOUND THEN
71: FND_MESSAGE.SET_NAME ('OFA','FA_DYN_CURRENCY');
72: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
73: FND_MSG_PUB.ADD;
74: RETURN (FALSE);
75: WHEN OTHERS THEN

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

68:
69: EXCEPTION
70: WHEN NO_DATA_FOUND THEN
71: FND_MESSAGE.SET_NAME ('OFA','FA_DYN_CURRENCY');
72: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_CURRENCY_CODE');
73: FND_MSG_PUB.ADD;
74: RETURN (FALSE);
75: WHEN OTHERS THEN
76: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_CURRENCY_CODE', p_log_level_rec => p_log_level_rec);

Line 105: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');

101: RETURN (TRUE);
102:
103: EXCEPTION
104: WHEN NO_DATA_FOUND THEN
105: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
106: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_FREQUENCY');
107: FND_MSG_PUB.ADD;
108: RETURN (FALSE);
109: WHEN OTHERS THEN

Line 106: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_FREQUENCY');

102:
103: EXCEPTION
104: WHEN NO_DATA_FOUND THEN
105: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
106: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_LEASE_FREQUENCY');
107: FND_MSG_PUB.ADD;
108: RETURN (FALSE);
109: WHEN OTHERS THEN
110: FA_SRVR_MSG.ADD_SQL_ERROR('CHECK_LEASE_FREQUENCY', p_log_level_rec => p_log_level_rec);

Line 133: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_NULL');

129: ------------------------------------------------------------
130: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
131:
132: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE IS NULL THEN
133: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_NULL');
134: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
135: FND_MSG_PUB.ADD;
136: L_RETURN_FLAG:=FALSE;
137: GOTO END_OF_LOOP;

Line 134: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');

130: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
131:
132: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE IS NULL THEN
133: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_NULL');
134: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
135: FND_MSG_PUB.ADD;
136: L_RETURN_FLAG:=FALSE;
137: GOTO END_OF_LOOP;
138: END IF;

Line 143: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_BEGIN_OF_PERIOD');

139:
140: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE >= P_LEASE_INCEPTION_DATE THEN
141: IF TO_CHAR(P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE,'DD') = 1 THEN
142: IF (MOD (MONTHS_BETWEEN(P_LEASE_INCEPTION_DATE,P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE),P_MONTHS_PER_PERIOD) <> 0 ) THEN
143: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_BEGIN_OF_PERIOD');
144: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
145: FND_MSG_PUB.ADD;
146: L_RETURN_FLAG:=FALSE;
147: END IF;

Line 144: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');

140: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE >= P_LEASE_INCEPTION_DATE THEN
141: IF TO_CHAR(P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE,'DD') = 1 THEN
142: IF (MOD (MONTHS_BETWEEN(P_LEASE_INCEPTION_DATE,P_LEASE_PAYMENTS_TBL(TBL_INDEX).START_DATE),P_MONTHS_PER_PERIOD) <> 0 ) THEN
143: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_ST_DT_BEGIN_OF_PERIOD');
144: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
145: FND_MSG_PUB.ADD;
146: L_RETURN_FLAG:=FALSE;
147: END IF;
148: ELSE

Line 149: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');

145: FND_MSG_PUB.ADD;
146: L_RETURN_FLAG:=FALSE;
147: END IF;
148: ELSE
149: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
150: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
151: FND_MSG_PUB.ADD;
152: L_RETURN_FLAG:=FALSE;
153: END IF;

Line 150: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');

146: L_RETURN_FLAG:=FALSE;
147: END IF;
148: ELSE
149: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
150: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
151: FND_MSG_PUB.ADD;
152: L_RETURN_FLAG:=FALSE;
153: END IF;
154: ELSE

Line 155: FND_MESSAGE.SET_NAME('OFA','FA_LEASE_ST_LEASE_DATE_OVERLAP');

151: FND_MSG_PUB.ADD;
152: L_RETURN_FLAG:=FALSE;
153: END IF;
154: ELSE
155: FND_MESSAGE.SET_NAME('OFA','FA_LEASE_ST_LEASE_DATE_OVERLAP');
156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
157: FND_MSG_PUB.ADD;
158: L_RETURN_FLAG:=FALSE;
159: END IF;

Line 156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');

152: L_RETURN_FLAG:=FALSE;
153: END IF;
154: ELSE
155: FND_MESSAGE.SET_NAME('OFA','FA_LEASE_ST_LEASE_DATE_OVERLAP');
156: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_START_DATE');
157: FND_MSG_PUB.ADD;
158: L_RETURN_FLAG:=FALSE;
159: END IF;
160:

Line 187: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_AMOUNT');

183: ------------------------------------------------------------
184: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
185: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).PAYMENT_AMOUNT IS NULL OR
186: P_LEASE_PAYMENTS_TBL(TBL_INDEX).PAYMENT_AMOUNT < 0 THEN
187: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_AMOUNT');
188: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_AMOUNT');
189: FND_MSG_PUB.ADD;
190: L_RETURN_FLAG:=FALSE;
191: END IF;

Line 188: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_AMOUNT');

184: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
185: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).PAYMENT_AMOUNT IS NULL OR
186: P_LEASE_PAYMENTS_TBL(TBL_INDEX).PAYMENT_AMOUNT < 0 THEN
187: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_AMOUNT');
188: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_PAYMENT_AMOUNT');
189: FND_MSG_PUB.ADD;
190: L_RETURN_FLAG:=FALSE;
191: END IF;
192: END LOOP;

Line 220: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');

216:
217: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
218:
219: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS IS NULL THEN
220: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');
221: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');
222: FND_MSG_PUB.ADD;
223: L_RETURN_FLAG:=FALSE;
224: ELSIF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS <= 0 THEN

Line 221: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');

217: FOR TBL_INDEX IN 1..P_LEASE_PAYMENTS_TBL.COUNT LOOP
218:
219: IF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS IS NULL THEN
220: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');
221: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');
222: FND_MSG_PUB.ADD;
223: L_RETURN_FLAG:=FALSE;
224: ELSIF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS <= 0 THEN
225: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');

Line 225: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');

221: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');
222: FND_MSG_PUB.ADD;
223: L_RETURN_FLAG:=FALSE;
224: ELSIF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS <= 0 THEN
225: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');
226: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');
227: FND_MSG_PUB.ADD;
228: L_RETURN_FLAG:=FALSE;
229: END IF;

Line 226: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');

222: FND_MSG_PUB.ADD;
223: L_RETURN_FLAG:=FALSE;
224: ELSIF P_LEASE_PAYMENTS_TBL(TBL_INDEX).NUMBER_OF_PAYMENTS <= 0 THEN
225: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_NO_OF_PAYMENTS');
226: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');
227: FND_MSG_PUB.ADD;
228: L_RETURN_FLAG:=FALSE;
229: END IF;
230: END LOOP;

Line 268: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_TYPE');

264: L_PERIOD:=P_LEASE_PAYMENTS_TBL(TBL_INDEX).PAYMENT_TYPE;
265: OPEN C1;
266: FETCH C1 INTO L_PERIOD;
267: IF C1%NOTFOUND THEN
268: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_TYPE');
269: FND_MESSAGE.SET_TOKEN ('CALLING_FN',' CHECK_PERIODS');
270: FND_MSG_PUB.ADD;
271: L_RETURN_FLAG:=FALSE;
272: END IF;

Line 269: FND_MESSAGE.SET_TOKEN ('CALLING_FN',' CHECK_PERIODS');

265: OPEN C1;
266: FETCH C1 INTO L_PERIOD;
267: IF C1%NOTFOUND THEN
268: FND_MESSAGE.SET_NAME('OFA','FA_INCORRECT_PAYMENT_TYPE');
269: FND_MESSAGE.SET_TOKEN ('CALLING_FN',' CHECK_PERIODS');
270: FND_MSG_PUB.ADD;
271: L_RETURN_FLAG:=FALSE;
272: END IF;
273: CLOSE C1;

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

362: RETURN(TRUE);
363:
364: EXCEPTION
365: WHEN C1_NOT_FOUND THEN
366: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
367: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_SCHEDULE_ID');
368: FND_MSG_PUB.ADD;
369: RETURN (FALSE);
370: WHEN OTHERS THEN

Line 367: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_SCHEDULE_ID');

363:
364: EXCEPTION
365: WHEN C1_NOT_FOUND THEN
366: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
367: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_SCHEDULE_ID');
368: FND_MSG_PUB.ADD;
369: RETURN (FALSE);
370: WHEN OTHERS THEN
371: FA_SRVR_MSG.ADD_SQL_ERROR('VALIDATE_SCHEDULE_ID', p_log_level_rec => p_log_level_rec);

Line 730: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');

726: -- VALIDATE PAYMENT SCHEDULE NAME
727: ------------------------------------------------------------
728:
729: IF PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
730: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
731: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
732: FND_MSG_PUB.ADD;
733: RAISE VALUE_ERROR_EXCEPTION;
734:

Line 731: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

727: ------------------------------------------------------------
728:
729: IF PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
730: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
731: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
732: FND_MSG_PUB.ADD;
733: RAISE VALUE_ERROR_EXCEPTION;
734:
735: ELSE

Line 746: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');

742: -- VALIDATE PRESENT VALUE
743: ------------------------------------------------------------
744:
745: IF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE IS NULL THEN
746: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
747: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
748: FND_MSG_PUB.ADD;
749: RAISE VALUE_ERROR_EXCEPTION;
750: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN

Line 747: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

743: ------------------------------------------------------------
744:
745: IF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE IS NULL THEN
746: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
747: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
748: FND_MSG_PUB.ADD;
749: RAISE VALUE_ERROR_EXCEPTION;
750: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
751: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');

Line 751: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');

747: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
748: FND_MSG_PUB.ADD;
749: RAISE VALUE_ERROR_EXCEPTION;
750: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
751: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
753: FND_MSG_PUB.ADD;
754: RAISE VALUE_ERROR_EXCEPTION;
755: END IF;

Line 752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

748: FND_MSG_PUB.ADD;
749: RAISE VALUE_ERROR_EXCEPTION;
750: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
751: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
753: FND_MSG_PUB.ADD;
754: RAISE VALUE_ERROR_EXCEPTION;
755: END IF;
756:

Line 762: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');

758: -- VALIDATE INTEREST RATE
759: ------------------------------------------------------------
760:
761: IF PX_LEASE_SCHEDULES_REC.INTEREST_RATE IS NULL THEN
762: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
763: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
764: FND_MSG_PUB.ADD;
765: RAISE VALUE_ERROR_EXCEPTION;
766: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0

Line 763: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

759: ------------------------------------------------------------
760:
761: IF PX_LEASE_SCHEDULES_REC.INTEREST_RATE IS NULL THEN
762: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
763: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
764: FND_MSG_PUB.ADD;
765: RAISE VALUE_ERROR_EXCEPTION;
766: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
767: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100 ) THEN

Line 768: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');

764: FND_MSG_PUB.ADD;
765: RAISE VALUE_ERROR_EXCEPTION;
766: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
767: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100 ) THEN
768: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
769: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
770: FND_MSG_PUB.ADD;
771: RAISE VALUE_ERROR_EXCEPTION;
772: END IF;

Line 769: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

765: RAISE VALUE_ERROR_EXCEPTION;
766: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
767: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100 ) THEN
768: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
769: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
770: FND_MSG_PUB.ADD;
771: RAISE VALUE_ERROR_EXCEPTION;
772: END IF;
773:

Line 779: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INCEPTION_DATE');

775: -- VALIDATE LEASE INCEPTION DATE
776: ------------------------------------------------------------
777:
778: IF PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE IS NULL THEN
779: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INCEPTION_DATE');
780: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
781: FND_MSG_PUB.ADD;
782: RAISE VALUE_ERROR_EXCEPTION;
783: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN

Line 780: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

776: ------------------------------------------------------------
777:
778: IF PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE IS NULL THEN
779: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INCEPTION_DATE');
780: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
781: FND_MSG_PUB.ADD;
782: RAISE VALUE_ERROR_EXCEPTION;
783: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
784: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');

Line 784: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');

780: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
781: FND_MSG_PUB.ADD;
782: RAISE VALUE_ERROR_EXCEPTION;
783: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
784: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
785: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
786: FND_MSG_PUB.ADD;
787: RAISE VALUE_ERROR_EXCEPTION;
788: END IF;

Line 785: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

781: FND_MSG_PUB.ADD;
782: RAISE VALUE_ERROR_EXCEPTION;
783: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
784: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
785: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
786: FND_MSG_PUB.ADD;
787: RAISE VALUE_ERROR_EXCEPTION;
788: END IF;
789:

Line 795: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_CURRENCY_CODE');

791: -- VALIDATE CURRENCY CODE
792: ------------------------------------------------------------
793:
794: IF PX_LEASE_SCHEDULES_REC.CURRENCY_CODE IS NULL THEN
795: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_CURRENCY_CODE');
796: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
797: FND_MSG_PUB.ADD;
798: RAISE VALUE_ERROR_EXCEPTION;
799: ELSE

Line 796: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

792: ------------------------------------------------------------
793:
794: IF PX_LEASE_SCHEDULES_REC.CURRENCY_CODE IS NULL THEN
795: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_CURRENCY_CODE');
796: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
797: FND_MSG_PUB.ADD;
798: RAISE VALUE_ERROR_EXCEPTION;
799: ELSE
800: IF NOT CHECK_CURRENCY_CODE(PX_LEASE_SCHEDULES_REC.CURRENCY_CODE) THEN

Line 810: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');

806: -- VALIDATE FREQUENCY
807: ------------------------------------------------------------
808:
809: IF PX_LEASE_SCHEDULES_REC.FREQUENCY IS NULL THEN
810: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
811: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
812: FND_MSG_PUB.ADD;
813: RAISE VALUE_ERROR_EXCEPTION;
814: ELSE

Line 811: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

807: ------------------------------------------------------------
808:
809: IF PX_LEASE_SCHEDULES_REC.FREQUENCY IS NULL THEN
810: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
811: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
812: FND_MSG_PUB.ADD;
813: RAISE VALUE_ERROR_EXCEPTION;
814: ELSE
815: IF NOT CHECK_LEASE_FREQUENCY(PX_LEASE_SCHEDULES_REC.FREQUENCY) THEN

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

843: -- ATLEAST ONE PAYMENT ROW MUST EXIST
844: ------------------------------------------------------------
845:
846: IF P_LEASE_PAYMENTS_TBL.COUNT < 1 THEN
847: FND_MESSAGE.SET_NAME ('OFA','FA_ATLEAST_ONE_PAYMENT');
848: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
849: FND_MSG_PUB.ADD;
850: RAISE VALUE_ERROR_EXCEPTION;
851: END IF;

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

844: ------------------------------------------------------------
845:
846: IF P_LEASE_PAYMENTS_TBL.COUNT < 1 THEN
847: FND_MESSAGE.SET_NAME ('OFA','FA_ATLEAST_ONE_PAYMENT');
848: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
849: FND_MSG_PUB.ADD;
850: RAISE VALUE_ERROR_EXCEPTION;
851: END IF;
852:

Line 962: FND_MESSAGE.SET_NAME ('OFA','FA_AMORT_EXISTS');

958: FROM FA_AMORT_SCHEDULES
959: WHERE PAYMENT_SCHEDULE_ID = P_PAYMENT_SCHEDULE_ID;
960:
961: IF L_AMORT_COUNT > 0 THEN
962: FND_MESSAGE.SET_NAME ('OFA','FA_AMORT_EXISTS');
963: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
964: FND_MSG_PUB.ADD;
965: RAISE VALUE_ERROR_EXCEPTION;
966: END IF;

Line 963: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');

959: WHERE PAYMENT_SCHEDULE_ID = P_PAYMENT_SCHEDULE_ID;
960:
961: IF L_AMORT_COUNT > 0 THEN
962: FND_MESSAGE.SET_NAME ('OFA','FA_AMORT_EXISTS');
963: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
964: FND_MSG_PUB.ADD;
965: RAISE VALUE_ERROR_EXCEPTION;
966: END IF;
967:

Line 974: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');

970: -- MAKE SURE THAT PAYMENT SCHEDULE ID IS VALID
971: -------------------------------------------------------------------------------
972:
973: IF P_PAYMENT_SCHEDULE_ID IS NULL THEN
974: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
975: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
976: FND_MSG_PUB.ADD;
977: RAISE VALUE_ERROR_EXCEPTION;
978: END IF;

Line 975: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');

971: -------------------------------------------------------------------------------
972:
973: IF P_PAYMENT_SCHEDULE_ID IS NULL THEN
974: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
975: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
976: FND_MSG_PUB.ADD;
977: RAISE VALUE_ERROR_EXCEPTION;
978: END IF;
979: