DBA Data[Home] [Help]

APPS.FA_LEASE_SCHEDULE_PVT dependencies on FND_MESSAGE

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

367: RETURN(TRUE);
368:
369: EXCEPTION
370: WHEN C1_NOT_FOUND THEN
371: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
372: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_SCHEDULE_ID');
373: FND_MSG_PUB.ADD;
374: RETURN (FALSE);
375: WHEN OTHERS THEN

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

368:
369: EXCEPTION
370: WHEN C1_NOT_FOUND THEN
371: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_SCHEDULE_NOT_FOUND');
372: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_SCHEDULE_ID');
373: FND_MSG_PUB.ADD;
374: RETURN (FALSE);
375: WHEN OTHERS THEN
376: FA_SRVR_MSG.ADD_SQL_ERROR('VALIDATE_SCHEDULE_ID'

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

747: -- VALIDATE PAYMENT SCHEDULE NAME
748: ------------------------------------------------------------
749:
750: IF PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
751: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
753: FND_MSG_PUB.ADD;
754: RAISE VALUE_ERROR_EXCEPTION;
755:

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

748: ------------------------------------------------------------
749:
750: IF PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_NAME IS NULL THEN
751: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
753: FND_MSG_PUB.ADD;
754: RAISE VALUE_ERROR_EXCEPTION;
755:
756: ELSE

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

763: -- VALIDATE PRESENT VALUE
764: ------------------------------------------------------------
765:
766: IF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE IS NULL THEN
767: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
768: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
769: FND_MSG_PUB.ADD;
770: RAISE VALUE_ERROR_EXCEPTION;
771: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN

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

764: ------------------------------------------------------------
765:
766: IF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE IS NULL THEN
767: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
768: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
769: FND_MSG_PUB.ADD;
770: RAISE VALUE_ERROR_EXCEPTION;
771: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
772: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');

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

768: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
769: FND_MSG_PUB.ADD;
770: RAISE VALUE_ERROR_EXCEPTION;
771: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
772: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
773: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
774: FND_MSG_PUB.ADD;
775: RAISE VALUE_ERROR_EXCEPTION;
776: END IF;

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

769: FND_MSG_PUB.ADD;
770: RAISE VALUE_ERROR_EXCEPTION;
771: ELSIF PX_LEASE_SCHEDULES_REC.PRESENT_VALUE < 0 THEN
772: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_PRESENT_VALUE');
773: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
774: FND_MSG_PUB.ADD;
775: RAISE VALUE_ERROR_EXCEPTION;
776: END IF;
777:

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

779: -- VALIDATE INTEREST RATE
780: ------------------------------------------------------------
781:
782: IF PX_LEASE_SCHEDULES_REC.INTEREST_RATE IS NULL THEN
783: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
784: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
785: FND_MSG_PUB.ADD;
786: RAISE VALUE_ERROR_EXCEPTION;
787: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0

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

780: ------------------------------------------------------------
781:
782: IF PX_LEASE_SCHEDULES_REC.INTEREST_RATE IS NULL THEN
783: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
784: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
785: FND_MSG_PUB.ADD;
786: RAISE VALUE_ERROR_EXCEPTION;
787: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
788: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100) THEN

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

785: FND_MSG_PUB.ADD;
786: RAISE VALUE_ERROR_EXCEPTION;
787: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
788: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100) THEN
789: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
790: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
791: FND_MSG_PUB.ADD;
792: RAISE VALUE_ERROR_EXCEPTION;
793: END IF;

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

786: RAISE VALUE_ERROR_EXCEPTION;
787: ELSIF ( PX_LEASE_SCHEDULES_REC.INTEREST_RATE < 0
788: OR PX_LEASE_SCHEDULES_REC.INTEREST_RATE > 100) THEN
789: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INT_RATE');
790: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
791: FND_MSG_PUB.ADD;
792: RAISE VALUE_ERROR_EXCEPTION;
793: END IF;
794:

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

796: -- VALIDATE LEASE INCEPTION DATE
797: ------------------------------------------------------------
798:
799: IF PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE IS NULL THEN
800: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INCEPTION_DATE');
801: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
802: FND_MSG_PUB.ADD;
803: RAISE VALUE_ERROR_EXCEPTION;
804: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN

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

797: ------------------------------------------------------------
798:
799: IF PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE IS NULL THEN
800: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_INCEPTION_DATE');
801: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
802: FND_MSG_PUB.ADD;
803: RAISE VALUE_ERROR_EXCEPTION;
804: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
805: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');

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

801: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
802: FND_MSG_PUB.ADD;
803: RAISE VALUE_ERROR_EXCEPTION;
804: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
805: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
806: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
807: FND_MSG_PUB.ADD;
808: RAISE VALUE_ERROR_EXCEPTION;
809: END IF;

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

802: FND_MSG_PUB.ADD;
803: RAISE VALUE_ERROR_EXCEPTION;
804: ELSIF TO_CHAR(PX_LEASE_SCHEDULES_REC.LEASE_INCEPTION_DATE ,'DD') <> 1 THEN
805: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DATE_FIRST_OF_MONTH');
806: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
807: FND_MSG_PUB.ADD;
808: RAISE VALUE_ERROR_EXCEPTION;
809: END IF;
810:

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

812: -- VALIDATE CURRENCY CODE
813: ------------------------------------------------------------
814:
815: IF PX_LEASE_SCHEDULES_REC.CURRENCY_CODE IS NULL THEN
816: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_CURRENCY_CODE');
817: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
818: FND_MSG_PUB.ADD;
819: RAISE VALUE_ERROR_EXCEPTION;
820: ELSE

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

813: ------------------------------------------------------------
814:
815: IF PX_LEASE_SCHEDULES_REC.CURRENCY_CODE IS NULL THEN
816: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_CURRENCY_CODE');
817: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
818: FND_MSG_PUB.ADD;
819: RAISE VALUE_ERROR_EXCEPTION;
820: ELSE
821: IF NOT CHECK_CURRENCY_CODE(PX_LEASE_SCHEDULES_REC.CURRENCY_CODE) THEN

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

827: -- VALIDATE FREQUENCY
828: ------------------------------------------------------------
829:
830: IF PX_LEASE_SCHEDULES_REC.FREQUENCY IS NULL THEN
831: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
832: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
833: FND_MSG_PUB.ADD;
834: RAISE VALUE_ERROR_EXCEPTION;
835: ELSE

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

828: ------------------------------------------------------------
829:
830: IF PX_LEASE_SCHEDULES_REC.FREQUENCY IS NULL THEN
831: FND_MESSAGE.SET_NAME ('OFA','FA_INCORRECT_LEASE_FREQUENCY');
832: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
833: FND_MSG_PUB.ADD;
834: RAISE VALUE_ERROR_EXCEPTION;
835: ELSE
836: IF NOT CHECK_LEASE_FREQUENCY(PX_LEASE_SCHEDULES_REC.FREQUENCY) THEN

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

864: -- ATLEAST ONE PAYMENT ROW MUST EXIST
865: ------------------------------------------------------------
866:
867: IF P_LEASE_PAYMENTS_TBL.COUNT < 1 THEN
868: FND_MESSAGE.SET_NAME ('OFA','FA_ATLEAST_ONE_PAYMENT');
869: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
870: FND_MSG_PUB.ADD;
871: RAISE VALUE_ERROR_EXCEPTION;
872: END IF;

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

865: ------------------------------------------------------------
866:
867: IF P_LEASE_PAYMENTS_TBL.COUNT < 1 THEN
868: FND_MESSAGE.SET_NAME ('OFA','FA_ATLEAST_ONE_PAYMENT');
869: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');
870: FND_MSG_PUB.ADD;
871: RAISE VALUE_ERROR_EXCEPTION;
872: END IF;
873:

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

981: FROM FA_AMORT_SCHEDULES
982: WHERE PAYMENT_SCHEDULE_ID = P_PAYMENT_SCHEDULE_ID;
983:
984: IF L_AMORT_COUNT > 0 THEN
985: FND_MESSAGE.SET_NAME ('OFA','FA_AMORT_EXISTS');
986: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
987: FND_MSG_PUB.ADD;
988: RAISE VALUE_ERROR_EXCEPTION;
989: END IF;

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

982: WHERE PAYMENT_SCHEDULE_ID = P_PAYMENT_SCHEDULE_ID;
983:
984: IF L_AMORT_COUNT > 0 THEN
985: FND_MESSAGE.SET_NAME ('OFA','FA_AMORT_EXISTS');
986: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
987: FND_MSG_PUB.ADD;
988: RAISE VALUE_ERROR_EXCEPTION;
989: END IF;
990:

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

993: -- MAKE SURE THAT PAYMENT SCHEDULE ID IS VALID
994: -------------------------------------------------------------------------------
995:
996: IF P_PAYMENT_SCHEDULE_ID IS NULL THEN
997: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
998: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
999: FND_MSG_PUB.ADD;
1000: RAISE VALUE_ERROR_EXCEPTION;
1001: END IF;

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

994: -------------------------------------------------------------------------------
995:
996: IF P_PAYMENT_SCHEDULE_ID IS NULL THEN
997: FND_MESSAGE.SET_NAME ('OFA','FA_NULL_PAYMENT_SCH');
998: FND_MESSAGE.SET_TOKEN ('CALLING_FN','AMORTIZE');
999: FND_MSG_PUB.ADD;
1000: RAISE VALUE_ERROR_EXCEPTION;
1001: END IF;
1002: