DBA Data[Home] [Help]

APPS.FA_LEASE_SCHEDULE_PVT dependencies on FND_MSG_PUB

Line 40: FND_MSG_PUB.ADD;

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

Line 73: FND_MSG_PUB.ADD;

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

Line 107: FND_MSG_PUB.ADD;

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

Line 135: FND_MSG_PUB.ADD;

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:

Line 145: FND_MSG_PUB.ADD;

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

Line 151: FND_MSG_PUB.ADD;

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

Line 157: FND_MSG_PUB.ADD;

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:
161: END LOOP;

Line 189: FND_MSG_PUB.ADD;

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

Line 222: FND_MSG_PUB.ADD;

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');
226: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CHECK_NO_OF_PAYMENTS');

Line 227: 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;
231:

Line 270: FND_MSG_PUB.ADD;

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

Line 368: FND_MSG_PUB.ADD;

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

Line 732: FND_MSG_PUB.ADD;

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
736: IF NOT CHECK_PAYMENT_SCHEDULE(PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_NAME) THEN

Line 748: FND_MSG_PUB.ADD;

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');
752: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

Line 753: 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:
757: ------------------------------------------------------------

Line 764: FND_MSG_PUB.ADD;

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

Line 770: FND_MSG_PUB.ADD;

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

Line 781: FND_MSG_PUB.ADD;

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');
785: FND_MESSAGE.SET_TOKEN ('CALLING_FN','VALIDATE_PAYMENTS');

Line 786: 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:
790: ------------------------------------------------------------

Line 797: FND_MSG_PUB.ADD;

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

Line 812: FND_MSG_PUB.ADD;

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

Line 849: FND_MSG_PUB.ADD;

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

Line 964: FND_MSG_PUB.ADD;

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

Line 976: FND_MSG_PUB.ADD;

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:
980: IF NOT VALIDATE_SCHEDULE_ID(P_PAYMENT_SCHEDULE_ID,L_MONTHS_PER_PERIOD,L_CURRENCY_PRECISION,L_PERIODS_PER_YEAR, p_log_level_rec) THEN