DBA Data[Home] [Help]

APPS.FA_LEASE_SCHEDULE_PVT dependencies on FND_MSG_PUB

Line 39: FND_MSG_PUB.ADD;

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'
43: ,p_log_level_rec => p_log_level_rec);

Line 72: FND_MSG_PUB.ADD;

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'
76: ,p_log_level_rec => p_log_level_rec);

Line 106: FND_MSG_PUB.ADD;

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'
110: ,p_log_level_rec => p_log_level_rec);

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

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

Line 224: FND_MSG_PUB.ADD;

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

Line 229: 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;
233:

Line 273: FND_MSG_PUB.ADD;

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

Line 373: FND_MSG_PUB.ADD;

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'
377: ,p_log_level_rec => p_log_level_rec);

Line 753: FND_MSG_PUB.ADD;

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

Line 769: FND_MSG_PUB.ADD;

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

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

Line 785: FND_MSG_PUB.ADD;

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

Line 791: FND_MSG_PUB.ADD;

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

Line 802: FND_MSG_PUB.ADD;

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

Line 807: 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:
811: ------------------------------------------------------------

Line 818: FND_MSG_PUB.ADD;

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

Line 833: FND_MSG_PUB.ADD;

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

Line 870: FND_MSG_PUB.ADD;

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

Line 987: FND_MSG_PUB.ADD;

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

Line 999: FND_MSG_PUB.ADD;

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