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
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);
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
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);
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
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);
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;
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;
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;
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
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;
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
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;
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:
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;
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;
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
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');
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;
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;
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;
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;
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
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);
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:
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
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
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');
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;
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:
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
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
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;
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:
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
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');
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;
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:
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
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
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
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
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;
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:
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;
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:
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;
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: