15: IF to_number(p_reporting_level) = 1000 THEN
16: l_ld_sp:= mo_utils.check_ledger_in_sp(TO_NUMBER(p_reporting_entity_id));
17:
18: IF l_ld_sp = 'N' THEN
19: FND_MESSAGE.SET_NAME('FND','FND_MO_RPT_PARTIAL_LEDGER');
20: rp_message:= FND_MESSAGE.get;
21: END IF;
22: END IF;
23:
16: l_ld_sp:= mo_utils.check_ledger_in_sp(TO_NUMBER(p_reporting_entity_id));
17:
18: IF l_ld_sp = 'N' THEN
19: FND_MESSAGE.SET_NAME('FND','FND_MO_RPT_PARTIAL_LEDGER');
20: rp_message:= FND_MESSAGE.get;
21: END IF;
22: END IF;
23:
24:
25:
26: get_boiler_plates ;
27:
28:
29: rp_unavailable:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_UNAVAILABLE');
30: rp_years:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_YEARS');
31: rp_none:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
32: rp_na_upper:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NA_UPPER');
33: rp_no_limit:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NO_LIMIT');
26: get_boiler_plates ;
27:
28:
29: rp_unavailable:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_UNAVAILABLE');
30: rp_years:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_YEARS');
31: rp_none:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
32: rp_na_upper:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NA_UPPER');
33: rp_no_limit:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NO_LIMIT');
34:
27:
28:
29: rp_unavailable:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_UNAVAILABLE');
30: rp_years:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_YEARS');
31: rp_none:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
32: rp_na_upper:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NA_UPPER');
33: rp_no_limit:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NO_LIMIT');
34:
35: get_bucket_data;
28:
29: rp_unavailable:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_UNAVAILABLE');
30: rp_years:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_YEARS');
31: rp_none:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
32: rp_na_upper:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NA_UPPER');
33: rp_no_limit:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NO_LIMIT');
34:
35: get_bucket_data;
36:
29: rp_unavailable:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_UNAVAILABLE');
30: rp_years:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_YEARS');
31: rp_none:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NONE');
32: rp_na_upper:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NA_UPPER');
33: rp_no_limit:= ARP_STANDARD.FND_MESSAGE('AR_REPORTS_NO_LIMIT');
34:
35: get_bucket_data;
36:
37: return (TRUE);
1137: trx_amount
1138: );
1139: if base_amount = -1 then
1140: base_amount:=0;
1141: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
1142: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
1143: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
1144:
1145:
1138: );
1139: if base_amount = -1 then
1140: base_amount:=0;
1141: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
1142: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
1143: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
1144:
1145:
1146: elsif base_amount = -2 then
1139: if base_amount = -1 then
1140: base_amount:=0;
1141: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
1142: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
1143: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
1144:
1145:
1146: elsif base_amount = -2 then
1147: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
1143: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
1144:
1145:
1146: elsif base_amount = -2 then
1147: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
1148: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
1149:
1150: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
1151:
1144:
1145:
1146: elsif base_amount = -2 then
1147: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
1148: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
1149:
1150: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
1151:
1152: end if;
3042: (trx_cur,CP_limit_currency,SYSDATE,'Corporate');
3043:
3044: if Xchg_rate = -1 then
3045:
3046: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3047: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3048: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3049:
3050:
3043:
3044: if Xchg_rate = -1 then
3045:
3046: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3047: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3048: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3049:
3050:
3051:
3044: if Xchg_rate = -1 then
3045:
3046: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3047: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3048: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3049:
3050:
3051:
3052: elsif xchg_rate = -2 then
3049:
3050:
3051:
3052: elsif xchg_rate = -2 then
3053: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3054: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3055:
3056: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3057:
3050:
3051:
3052: elsif xchg_rate = -2 then
3053: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3054: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3055:
3056: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3057:
3058: end if;
3082:
3083: if CP_limit_curr_amt = -1 then
3084: CP_limit_curr_amt:=TO_NUMBER(null);
3085:
3086: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3087: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3088: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3089:
3090: elsif Cp_limit_curr_amt = -2 then
3083: if CP_limit_curr_amt = -1 then
3084: CP_limit_curr_amt:=TO_NUMBER(null);
3085:
3086: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3087: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3088: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3089:
3090: elsif Cp_limit_curr_amt = -2 then
3091: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3084: CP_limit_curr_amt:=TO_NUMBER(null);
3085:
3086: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3087: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3088: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3089:
3090: elsif Cp_limit_curr_amt = -2 then
3091: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3092: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3087: FND_MESSAGE.SET_TOKEN('CC',trx_cur,FALSE);
3088: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3089:
3090: elsif Cp_limit_curr_amt = -2 then
3091: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3092: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3093:
3094: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3095:
3088: /*SRW.MESSAGE(301,FND_MESSAGE.GET);*/null;
3089:
3090: elsif Cp_limit_curr_amt = -2 then
3091: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3092: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3093:
3094: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3095:
3096: end if;
3146: Xchg_rate := gl_currency_api.get_rate_sql
3147: (trx_cur2,limit_currency,SYSDATE,'Corporate');
3148: if Xchg_rate = -1 then
3149:
3150: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3151: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3152: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3153:
3154: elsif xchg_rate = -2 then
3147: (trx_cur2,limit_currency,SYSDATE,'Corporate');
3148: if Xchg_rate = -1 then
3149:
3150: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3151: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3152: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3153:
3154: elsif xchg_rate = -2 then
3155: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3148: if Xchg_rate = -1 then
3149:
3150: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3151: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3152: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3153:
3154: elsif xchg_rate = -2 then
3155: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3156: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3151: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3152: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3153:
3154: elsif xchg_rate = -2 then
3155: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3156: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3157:
3158: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3159:
3152: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3153:
3154: elsif xchg_rate = -2 then
3155: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3156: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3157:
3158: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3159:
3160: end if;
3189: Cp_limit_curr_amt1 := gl_currency_api.convert_amount_sql(trx_cur2,limit_currency,SYSDATE,NULL,CP_adjusted_amount1);
3190:
3191: if Cp_limit_curr_amt1 = -1 then
3192: Cp_limit_curr_amt1:=TO_NUMBER(null);
3193: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3194: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3195: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3196:
3197: elsif Cp_limit_curr_amt1 = -2 then
3190:
3191: if Cp_limit_curr_amt1 = -1 then
3192: Cp_limit_curr_amt1:=TO_NUMBER(null);
3193: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3194: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3195: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3196:
3197: elsif Cp_limit_curr_amt1 = -2 then
3198: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3191: if Cp_limit_curr_amt1 = -1 then
3192: Cp_limit_curr_amt1:=TO_NUMBER(null);
3193: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3194: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3195: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3196:
3197: elsif Cp_limit_curr_amt1 = -2 then
3198: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3199: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3194: FND_MESSAGE.SET_TOKEN('CC',trx_cur2,FALSE);
3195: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3196:
3197: elsif Cp_limit_curr_amt1 = -2 then
3198: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3199: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3200:
3201: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3202:
3195: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3196:
3197: elsif Cp_limit_curr_amt1 = -2 then
3198: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3199: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3200:
3201: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3202:
3203: end if;
3342: trx_amount := trx_rec.ammount_due - l_aging_unapplied_profile - l_aging_on_account_profile;
3343:
3344: base_amount := gl_currency_api.convert_amount_sql(trx_curr,limit_currency,SYSDATE,'Corporate',trx_amount);
3345: IF base_amount = -1 THEN
3346: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3347: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3348: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3349:
3350: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3343:
3344: base_amount := gl_currency_api.convert_amount_sql(trx_curr,limit_currency,SYSDATE,'Corporate',trx_amount);
3345: IF base_amount = -1 THEN
3346: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3347: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3348: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3349:
3350: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3351:
3344: base_amount := gl_currency_api.convert_amount_sql(trx_curr,limit_currency,SYSDATE,'Corporate',trx_amount);
3345: IF base_amount = -1 THEN
3346: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3347: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3348: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3349:
3350: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3351:
3352:
3351:
3352:
3353: END IF;
3354: IF base_amount = -2 THEN
3355: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3356: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3357:
3358: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3359:
3352:
3353: END IF;
3354: IF base_amount = -2 THEN
3355: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3356: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3357:
3358: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3359:
3360: END IF;
3437:
3438: if present <> 0 then
3439: Xchg_rate := gl_currency_api.get_rate_sql(org_trx_cur,limit_currency,SYSDATE,NULL);
3440: if Xchg_rate = -1 then
3441: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3442: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3443: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3444:
3445: elsif xchg_rate = -2 then
3438: if present <> 0 then
3439: Xchg_rate := gl_currency_api.get_rate_sql(org_trx_cur,limit_currency,SYSDATE,NULL);
3440: if Xchg_rate = -1 then
3441: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3442: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3443: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3444:
3445: elsif xchg_rate = -2 then
3446: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3439: Xchg_rate := gl_currency_api.get_rate_sql(org_trx_cur,limit_currency,SYSDATE,NULL);
3440: if Xchg_rate = -1 then
3441: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3442: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3443: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3444:
3445: elsif xchg_rate = -2 then
3446: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3447: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3442: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3443: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3444:
3445: elsif xchg_rate = -2 then
3446: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3447: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3448:
3449: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3450:
3443: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3444:
3445: elsif xchg_rate = -2 then
3446: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3447: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3448:
3449: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3450:
3451: end if;
3480: Cp_limit_curr_amt2 := gl_currency_api.convert_amount_sql(org_trx_cur,limit_currency,SYSDATE,NULL,CP_adjusted_amount2);
3481:
3482: if Cp_limit_curr_amt2 = -1 then
3483: Cp_limit_curr_amt2:=TO_NUMBER(null);
3484: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3485: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3486: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3487:
3488: elsif Cp_limit_curr_amt2 = -2 then
3481:
3482: if Cp_limit_curr_amt2 = -1 then
3483: Cp_limit_curr_amt2:=TO_NUMBER(null);
3484: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3485: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3486: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3487:
3488: elsif Cp_limit_curr_amt2 = -2 then
3489: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3482: if Cp_limit_curr_amt2 = -1 then
3483: Cp_limit_curr_amt2:=TO_NUMBER(null);
3484: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3485: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3486: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3487:
3488: elsif Cp_limit_curr_amt2 = -2 then
3489: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3490: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3485: FND_MESSAGE.SET_TOKEN('CC',org_trx_cur,FALSE);
3486: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3487:
3488: elsif Cp_limit_curr_amt2 = -2 then
3489: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3490: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3491:
3492: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3493:
3486: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3487:
3488: elsif Cp_limit_curr_amt2 = -2 then
3489: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3490: /*SRW.MESSAGE(300,FND_MESSAGE.GET);*/null;
3491:
3492: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3493:
3494: end if;
3804: base_amount := gl_currency_api.convert_amount_sql
3805: (trx_curr,limit_currency,SYSDATE,'Corporate',trx_amount);
3806: IF base_amount = -1 THEN
3807: base_amount := 0;
3808: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3809: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3810: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
3811:
3812: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3805: (trx_curr,limit_currency,SYSDATE,'Corporate',trx_amount);
3806: IF base_amount = -1 THEN
3807: base_amount := 0;
3808: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3809: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3810: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
3811:
3812: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3813:
3806: IF base_amount = -1 THEN
3807: base_amount := 0;
3808: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_EXCHANGE_RATE');
3809: FND_MESSAGE.SET_TOKEN('CC',trx_curr,FALSE);
3810: /*SRW.MESSAGE(201,FND_MESSAGE.GET);*/null;
3811:
3812: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3813:
3814:
3813:
3814:
3815: END IF;
3816: IF base_amount = -2 THEN
3817: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3818: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3819:
3820: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3821:
3814:
3815: END IF;
3816: IF base_amount = -2 THEN
3817: FND_MESSAGE.SET_NAME('AR','AR_CC_INVALID_CURRENCY');
3818: /*SRW.MESSAGE(200,FND_MESSAGE.GET);*/null;
3819:
3820: raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
3821:
3822: END IF;