170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
171: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
172:
173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
174: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
175: FND_MSG_PUB.ADD;
176: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178: END IF;
216: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
217: if (l_return_status <> 'S') then
218:
219: x_return_status := FND_API.G_RET_STS_ERROR;
220: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
221: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
222: FND_MSG_PUB.ADD;
223: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
224: RAISE FND_API.G_EXC_ERROR;
217: if (l_return_status <> 'S') then
218:
219: x_return_status := FND_API.G_RET_STS_ERROR;
220: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
221: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
222: FND_MSG_PUB.ADD;
223: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
224: RAISE FND_API.G_EXC_ERROR;
225:
368: ,p_col_name => 'LOAN_ID'
369: ,p_table_name => 'LNS_LOAN_HEADERS');
370:
371: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
372: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
373: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
374: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
375: FND_MSG_PUB.ADD;
376: RAISE FND_API.G_EXC_ERROR;
369: ,p_table_name => 'LNS_LOAN_HEADERS');
370:
371: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
372: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
373: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
374: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
375: FND_MSG_PUB.ADD;
376: RAISE FND_API.G_EXC_ERROR;
377: end if;
370:
371: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
372: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
373: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
374: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
375: FND_MSG_PUB.ADD;
376: RAISE FND_API.G_EXC_ERROR;
377: end if;
378:
398: ,p_col_name => 'LOAN_AMOUNT_ADJ_ID'
399: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
400:
401: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
402: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
403: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
404: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
405: FND_MSG_PUB.ADD;
406: RAISE FND_API.G_EXC_ERROR;
399: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
400:
401: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
402: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
403: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
404: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
405: FND_MSG_PUB.ADD;
406: RAISE FND_API.G_EXC_ERROR;
407: end if;
400:
401: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
402: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
403: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
404: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
405: FND_MSG_PUB.ADD;
406: RAISE FND_API.G_EXC_ERROR;
407: end if;
408:
582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_disbusement_id = ' || l_disbursement_id);
583:
584: -- Bug#6711479 We can't check funds without valid disbursement
585: IF (l_disbursement_id IS NULL) THEN
586: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_FUND_DISB_INVALID');
587: FND_MSG_PUB.ADD;
588: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
589: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
590: FND_MSG_PUB.ADD;
585: IF (l_disbursement_id IS NULL) THEN
586: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_FUND_DISB_INVALID');
587: FND_MSG_PUB.ADD;
588: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
589: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
590: FND_MSG_PUB.ADD;
591: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
592: RAISE FND_API.G_EXC_ERROR;
593: END IF;
626: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
627: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || x_event_id);
628:
629: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
630: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
631: FND_MSG_PUB.ADD;
632: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
701:
702: if (l_return_status <> 'S' ) then
703:
704: l_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
706: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
707: FND_MSG_PUB.ADD;
708: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
709: RAISE FND_API.G_EXC_ERROR;
702: if (l_return_status <> 'S' ) then
703:
704: l_return_status := FND_API.G_RET_STS_ERROR;
705: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
706: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
707: FND_MSG_PUB.ADD;
708: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
709: RAISE FND_API.G_EXC_ERROR;
710:
717: x_budgetary_status_code := l_status_code;
718: x_return_status := l_return_status;
719:
720: /*
721: FND_MESSAGE.SET_NAME('LNS', 'LNS_APPROVAL_NO_BUDGET');
722: FND_MSG_PUB.ADD_DETAIL(p_message_type => FND_MSG_PUB.G_WARNING_MSG );
723: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
724: */
725:
733:
734: /*
735: if l_status_code NOT IN ('SUCCESS','ADVISORY') then
736: IF (l_status_code = 'PARTIAL') THEN
737: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_CHK_PARTIAL');
738: FND_MSG_PUB.ADD;
739: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
740: RAISE FND_API.G_EXC_ERROR;
741: ELSE
738: FND_MSG_PUB.ADD;
739: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
740: RAISE FND_API.G_EXC_ERROR;
741: ELSE
742: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
743: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
744: FND_MSG_PUB.ADD;
745: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
746: RAISE FND_API.G_EXC_ERROR;
739: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
740: RAISE FND_API.G_EXC_ERROR;
741: ELSE
742: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
743: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
744: FND_MSG_PUB.ADD;
745: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
746: RAISE FND_API.G_EXC_ERROR;
747: END IF;
750: if p_budgetary_control_mode = 'R' then
751: if (l_status_code = 'ADVISORY' or l_status_code = 'SUCCESS') then
752: l_loan_header_rec.FUNDS_RESERVED_FLAG := 'Y';
753: else
754: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_RSRV_FAILED');
755: FND_MSG_PUB.ADD;
756: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
757: end if;
758: end if;
772: ,X_MSG_DATA => l_msg_data);
773: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'update loan status = ' || l_return_status);
774:
775: if l_return_status <> 'S' then
776: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
777: FND_MSG_PUB.ADD;
778: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
779: RAISE FND_API.G_EXC_ERROR;
780: end if;
940: end loop;
941:
942: else
943:
944: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
945: FND_MSG_PUB.ADD;
946: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
947: RAISE FND_API.G_EXC_ERROR;
948:
1331: close sql_cur;
1332:
1333: exception
1334: when no_data_found then
1335: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
1336: FND_MSG_PUB.ADD;
1337: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1338: RAISE FND_API.G_EXC_ERROR;
1339: End; -- c_default_info cursor
1478: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
1479: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
1480:
1481: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1482: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
1483: FND_MSG_PUB.ADD;
1484: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: ELSE
1607:
1608: Exception
1609: When others then
1610: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'failed to retrieve replacement natural account');
1611: FND_MESSAGE.SET_NAME('LNS', 'LNS_MFAR_CONFIGURATION_ERROR');
1612: FND_MSG_PUB.ADD;
1613: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1614: RAISE FND_API.G_EXC_ERROR;
1615:
1674: ,p_original_cc_id
1675: ,l_num_segments
1676: ,l_original_segments))
1677: Then
1678: FND_MESSAGE.SET_NAME('LNS', 'LNS_ERR_BUILDING_SEGMENTS');
1679: FND_MSG_PUB.ADD;
1680: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1681: RAISE FND_API.G_EXC_ERROR;
1682: END IF;
1711: l_num_segments,
1712: l_new_segments,
1713: l_new_cc_id))
1714: Then
1715: FND_MESSAGE.SET_NAME('LNS', 'LNS_CODE_COMBINATION_ERROR');
1716: FND_MSG_PUB.ADD;
1717: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1718: RAISE FND_API.G_EXC_ERROR;
1719:
1791: close c_mfar_nat_acct;
1792:
1793: Exception
1794: When others then
1795: FND_MESSAGE.SET_NAME('LNS', 'LNS_MFAR_CONFIGURATION_ERROR');
1796: FND_MSG_PUB.ADD;
1797: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1798: RAISE FND_API.G_EXC_ERROR;
1799: End;
1807: ,structure_number=> l_ledger_details.chart_of_accounts_id
1808: ,flex_qual_name => 'GL_ACCOUNT'
1809: ,segment_number => l_nat_acct_seg_number))
1810: THEN
1811: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
1812: FND_MSG_PUB.ADD;
1813: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1814: RAISE FND_API.G_EXC_ERROR;
1815:
2552: return l_ledger_details;
2553:
2554: exception
2555: when others then
2556: FND_MESSAGE.SET_NAME('LNS', 'LNS_LEDGER_DETAILS_FAIL');
2557: FND_MSG_PUB.ADD;
2558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
2559: RAISE FND_API.G_EXC_ERROR;
2560: end;
3257: close c_num_receivables_acc;
3258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'num is: ' || l_num_receivables_acc);
3259:
3260: if l_num_receivables_acc <> l_num_receivables_ers then
3261: FND_MESSAGE.Set_Name('LNS', 'LNS_AR_RECEIVABLES_UNACC');
3262: FND_MSG_PUB.Add;
3263: RAISE FND_API.G_EXC_ERROR;
3264: end if;
3265: */
3272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables count');
3273: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination Count = ' || l_loan_receivables_orig.count );
3274: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing Count = ' || l_loan_receivables_bill.count);
3275: if l_loan_receivables_orig.count <> l_loan_receivables_bill.count then
3276: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INVALID_RECEIVABLES');
3277: FND_MSG_PUB.Add;
3278: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3279: RAISE FND_API.G_EXC_ERROR;
3280: end if;
3287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables cc_ids');
3288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination cc_id = ' || l_loan_receivables_orig(j).code_combination_id );
3289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing cc_id = ' || l_loan_receivables_bill(j).code_combination_id);
3290: if l_loan_receivables_orig(j).code_combination_id <> l_loan_receivables_bill(j).code_combination_id then
3291: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_CCIDS_UNMATCH');
3292: FND_MSG_PUB.Add;
3293: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3294: RAISE FND_API.G_EXC_ERROR;
3295: end if;
3298: if j < l_loan_receivables_orig.count then
3299: if (l_loan_receivables_orig(j).code_combination_id = l_loan_receivables_orig(j+1).code_combination_id)
3300: then
3301: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3302: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3303: FND_MSG_PUB.Add;
3304: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3305: RAISE FND_API.G_EXC_ERROR;
3306: end if;
3312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'comparing origination receivables to billing receivables percentages');
3313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables origination percent = ' || l_loan_receivables_orig(j).distribution_percent );
3314: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables billing percent = ' || l_loan_receivables_bill(j).distribution_percent);
3315: if l_loan_receivables_orig(j).distribution_percent <> l_loan_receivables_bill(j).distribution_percent then
3316: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_LOAN_REC_PER_UNMATCH');
3317: FND_MSG_PUB.Add;
3318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3319: RAISE FND_API.G_EXC_ERROR;
3320: end if;
3340:
3341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking ERS Prin Billing receivables total percentages');
3342: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Prin Billing loan recivables total percent: ' || l_dist_percent_rec_bill);
3343: if l_dist_percent_rec_bill <> 100 then
3344: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3345: FND_MSG_PUB.Add;
3346: RAISE FND_API.G_EXC_ERROR;
3347: end if;
3348:
3360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clear origination cc_id at '||p||' = ' || l_loan_clearing_orig(p).code_combination_id );
3361: if p < l_loan_clearing_orig.count then
3362: if (l_loan_clearing_orig(p).code_combination_id = l_loan_clearing_orig(p+1).code_combination_id) then
3363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found duplicate IDs');
3364: FND_MESSAGE.Set_Name('LNS', 'LNS_UNIQUE_CC_IDS');
3365: FND_MSG_PUB.Add;
3366: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3367: RAISE FND_API.G_EXC_ERROR;
3368: end if;
3377:
3378: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination receivables total percentages');
3379: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent = ' || l_dist_percent_rec_orig);
3380: if l_dist_percent_rec_orig <> 100 then
3381: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_REC_PER_INVALID');
3382: FND_MSG_PUB.Add;
3383: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3384: RAISE FND_API.G_EXC_ERROR;
3385: end if;
3388:
3389: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking origination clearing total percentages');
3390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3391: if l_dist_percent_clear_orig <> 100 then
3392: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3393: FND_MSG_PUB.Add;
3394: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3395: RAISE FND_API.G_EXC_ERROR;
3396: end if;
3401: /*
3402: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking billing receivables total percentages');
3403: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan recivables total percent: ' || l_dist_percent_rec_bill);
3404: if l_dist_percent_rec_bill <> 100 then
3405: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
3406: FND_MSG_PUB.Add;
3407: RAISE FND_API.G_EXC_ERROR;
3408: end if;
3409:
3412: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan clearing total percent = ' || l_dist_percent_clear_orig);
3413:
3414:
3415: if l_dist_percent_clear_orig <> 100 then
3416: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_ORIG_CLR_PER_INVALID');
3417: FND_MSG_PUB.Add;
3418: RAISE FND_API.G_EXC_ERROR;
3419: end if;
3420: */
3422: -- account
3423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking principal receivables count');
3424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal receivables count = ' || l_prin_receivables_bill.count);
3425: if l_prin_receivables_bill.count <> 1 then
3426: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_PRIN_RECEIVABLE');
3427: FND_MSG_PUB.Add;
3428: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3429: RAISE FND_API.G_EXC_ERROR;
3430: end if;
3433: -- account
3434: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest receivables count');
3435: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest receivables count = ' || l_int_receivables_bill.count);
3436: if l_int_receivables_bill.count <> 1 then
3437: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_MULT_INT_RECEIVABLE');
3438: FND_MSG_PUB.Add;
3439: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3440: RAISE FND_API.G_EXC_ERROR;
3441: end if;
3443: -- I. There may be multiple Interest Income accounts
3444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income count');
3445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income count = ' || l_int_income_bill.count);
3446: if l_int_income_bill.count < 1 then
3447: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_NO_INTEREST_INCOME');
3448: FND_MSG_PUB.Add;
3449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3450: RAISE FND_API.G_EXC_ERROR;
3451: end if;
3457:
3458: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'checking Interest Income percentage');
3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Income percentage = ' || l_dist_percent_int_income);
3460: if l_dist_percent_int_income <> 100 then
3461: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_INT_INCOME_PER_INVALID');
3462: FND_MSG_PUB.Add;
3463: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3464: RAISE FND_API.G_EXC_ERROR;
3465: end if;
4387: ,x_msg_data => l_msg_data);
4388:
4389: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4391: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
4392: FND_MSG_PUB.ADD;
4393: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4394: RAISE FND_API.G_EXC_ERROR;
4395: end if;
4420: fetch c_subsidy_rate into l_subsidy_rate;
4421: close c_subsidy_rate;
4422: exception
4423: when no_data_found then
4424: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_SUBSIDY_RATE');
4425: FND_MSG_PUB.ADD;
4426: RAISE FND_API.G_EXC_ERROR;
4427: end;
4428:
4442: ,X_MSG_COUNT => l_msg_count
4443: ,X_MSG_DATA => l_msg_data);
4444: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' update loan status = ' || l_return_status);
4445: if l_return_status <> 'S' then
4446: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
4447: FND_MSG_PUB.ADD;
4448: RAISE FND_API.G_EXC_ERROR;
4449: end if;
4450: */
4526: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
4527: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
4528:
4529: if l_return_status <> 'S' then
4530: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
4531: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4532: FND_MSG_PUB.ADD;
4533: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4534: RAISE FND_API.G_EXC_ERROR;
4527: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
4528:
4529: if l_return_status <> 'S' then
4530: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
4531: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4532: FND_MSG_PUB.ADD;
4533: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4534: RAISE FND_API.G_EXC_ERROR;
4535: else
4533: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4534: RAISE FND_API.G_EXC_ERROR;
4535: else
4536: if l_upgrade_status <> 'Y' then
4537: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
4538: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4539: FND_MSG_PUB.ADD;
4540: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4541: RAISE FND_API.G_EXC_ERROR;
4534: RAISE FND_API.G_EXC_ERROR;
4535: else
4536: if l_upgrade_status <> 'Y' then
4537: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
4538: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
4539: FND_MSG_PUB.ADD;
4540: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4541: RAISE FND_API.G_EXC_ERROR;
4542: end if;
4597:
4598: l_error_counter := l_error_counter + 1;
4599:
4600: if l_error_counter = 1 then
4601: FND_MESSAGE.SET_NAME('LNS', 'LNS_ONLINE_ACCOUNTING_FAILED');
4602: FND_MSG_PUB.Add;
4603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4604: end if;
4605:
4602: FND_MSG_PUB.Add;
4603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4604: end if;
4605:
4606: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4608: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
4609: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
4610: FND_MSG_PUB.Add;
4603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4604: end if;
4605:
4606: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4608: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
4609: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
4610: FND_MSG_PUB.Add;
4611: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4604: end if;
4605:
4606: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4608: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
4609: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
4610: FND_MSG_PUB.Add;
4611: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4612:
4605:
4606: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
4607: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
4608: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
4609: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
4610: FND_MSG_PUB.Add;
4611: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4612:
4613: END LOOP;
4639: ,structure_number=> l_ledger_details.chart_of_accounts_id
4640: ,flex_qual_name => 'GL_ACCOUNT'
4641: ,segment_number => l_nat_acct_seg_number))
4642: THEN
4643: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
4644: FND_MSG_PUB.ADD;
4645: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4646: RAISE FND_API.G_EXC_ERROR;
4647: END IF;
4685: end loop; -- loan clearing loop
4686: exception
4687: when others then
4688: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
4689: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4690: FND_MSG_PUB.ADD;
4691: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4692: RAISE FND_API.G_EXC_ERROR;
4693: end;
4706:
4707: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'Default Adjustment CCID is '||l_code_combination_id);
4708:
4709: IF l_code_combination_id IS NULL THEN
4710: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4711: FND_MSG_PUB.ADD;
4712: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4713: RAISE FND_API.G_EXC_ERROR;
4714: END IF;
4823:
4824: exception
4825: when others then
4826: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
4827: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
4828: FND_MSG_PUB.ADD;
4829: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
4830: RAISE FND_API.G_EXC_ERROR;
4831: end;
4997: ,x_msg_data => l_msg_data);
4998:
4999: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5000: if l_return_status <> 'S' then
5001: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
5002: FND_MSG_PUB.ADD;
5003: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5004: RAISE FND_API.G_EXC_ERROR;
5005: end if;
5234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_accounting_batch_id = ' || l_accounting_batch_id);
5235:
5236: if l_retcode = 0 then
5237:
5238: --FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCT_SUCCESS');
5239: --FND_MSG_PUB.Add;
5240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'online accounting SUCCESS! ');
5241:
5242: elsif l_retcode = 2 then
5240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'online accounting SUCCESS! ');
5241:
5242: elsif l_retcode = 2 then
5243:
5244: FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCTG_ERROR');
5245: FND_MSG_PUB.Add;
5246: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5247: RAISE FND_API.G_EXC_ERROR;
5248:
5263:
5264: l_error_counter := l_error_counter + 1;
5265:
5266: if l_error_counter = 1 then
5267: FND_MESSAGE.SET_NAME('XLA', 'XLA_ONLINE_ACCT_WARNING');
5268: FND_MSG_PUB.Add;
5269: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5270: end if;
5271:
5268: FND_MSG_PUB.Add;
5269: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5270: end if;
5271:
5272: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5274: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
5275: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
5276: FND_MSG_PUB.Add;
5269: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5270: end if;
5271:
5272: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5274: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
5275: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
5276: FND_MSG_PUB.Add;
5277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5270: end if;
5271:
5272: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5274: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
5275: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
5276: FND_MSG_PUB.Add;
5277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5278:
5271:
5272: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
5273: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
5274: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
5275: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
5276: FND_MSG_PUB.Add;
5277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5278:
5279: END LOOP;
5385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_ID = ' || P_LOAN_ID);
5386: if P_LOAN_ID is null then
5387:
5388: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan must be set.');
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
5390: FND_MSG_PUB.Add;
5391: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5392: RAISE FND_API.G_EXC_ERROR;
5393:
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'event_id = ' || x_event_id);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5426:
5427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5428: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5429: FND_MSG_PUB.ADD;
5430: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
5431: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5528: null);
5529:
5530: if l_request_id = 0 then
5531: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5532: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
5533: FND_MSG_PUB.Add;
5534: l_last_api_called := 'FND_REQUEST.SUBMIT_REQUEST for 0th installment billing';
5535: RAISE FND_API.G_EXC_ERROR;
5536: else
5621: ,x_msg_data => l_msg_data);
5622:
5623: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Accounting status is ' || l_return_status);
5624: if l_return_status <> 'S' then
5625: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
5626: FND_MSG_PUB.ADD;
5627: RAISE FND_API.G_EXC_ERROR;
5628: end if;
5629:
5652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
5653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
5654:
5655: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5656: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
5657: FND_MSG_PUB.ADD;
5658: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
5659: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5785: ,p_col_name => 'LOAN_ID'
5786: ,p_table_name => 'LNS_LOAN_HEADERS');
5787:
5788: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5790: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
5791: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
5792: FND_MSG_PUB.ADD;
5793: RAISE FND_API.G_EXC_ERROR;
5786: ,p_table_name => 'LNS_LOAN_HEADERS');
5787:
5788: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5790: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
5791: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
5792: FND_MSG_PUB.ADD;
5793: RAISE FND_API.G_EXC_ERROR;
5794: end if;
5787:
5788: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5790: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
5791: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
5792: FND_MSG_PUB.ADD;
5793: RAISE FND_API.G_EXC_ERROR;
5794: end if;
5795:
5803:
5804:
5805: -- We can't default distributions without valid loan adjustment
5806: IF (l_loan_amount_adj_id IS NULL) THEN
5807: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5808: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5809: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5810: FND_MSG_PUB.ADD;
5811: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5804:
5805: -- We can't default distributions without valid loan adjustment
5806: IF (l_loan_amount_adj_id IS NULL) THEN
5807: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5808: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5809: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5810: FND_MSG_PUB.ADD;
5811: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5812: RAISE FND_API.G_EXC_ERROR;
5805: -- We can't default distributions without valid loan adjustment
5806: IF (l_loan_amount_adj_id IS NULL) THEN
5807: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5808: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5809: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5810: FND_MSG_PUB.ADD;
5811: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
5812: RAISE FND_API.G_EXC_ERROR;
5813: END IF;
5827: ,p_col_name => 'LOAN_AMOUNT_ADJ_ID'
5828: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
5829:
5830: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5831: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5832: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5833: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
5834: FND_MSG_PUB.ADD;
5835: RAISE FND_API.G_EXC_ERROR;
5828: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
5829:
5830: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5831: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5832: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5833: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
5834: FND_MSG_PUB.ADD;
5835: RAISE FND_API.G_EXC_ERROR;
5836: end if;
5829:
5830: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
5831: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5832: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5833: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
5834: FND_MSG_PUB.ADD;
5835: RAISE FND_API.G_EXC_ERROR;
5836: end if;
5837:
5852:
5853: IF l_adj_status in ('APPROVED', 'REJECTED', 'DELETED') THEN
5854: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'The distributions of adjustment with status '||l_adj_status||' cant be deleted');
5855:
5856: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5857: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5858: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5859: FND_MSG_PUB.ADD;
5860: RAISE FND_API.G_EXC_ERROR;
5853: IF l_adj_status in ('APPROVED', 'REJECTED', 'DELETED') THEN
5854: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'The distributions of adjustment with status '||l_adj_status||' cant be deleted');
5855:
5856: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5857: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5858: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5859: FND_MSG_PUB.ADD;
5860: RAISE FND_API.G_EXC_ERROR;
5861:
5854: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'The distributions of adjustment with status '||l_adj_status||' cant be deleted');
5855:
5856: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
5857: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
5858: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
5859: FND_MSG_PUB.ADD;
5860: RAISE FND_API.G_EXC_ERROR;
5861:
5862: ELSE
6060: ,p_col_name => 'LOAN_ID'
6061: ,p_table_name => 'LNS_LOAN_HEADERS');
6062:
6063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6064: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6065: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6066: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
6067: FND_MSG_PUB.ADD;
6068: RAISE FND_API.G_EXC_ERROR;
6061: ,p_table_name => 'LNS_LOAN_HEADERS');
6062:
6063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6064: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6065: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6066: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
6067: FND_MSG_PUB.ADD;
6068: RAISE FND_API.G_EXC_ERROR;
6069: end if;
6062:
6063: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6064: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6065: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6066: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
6067: FND_MSG_PUB.ADD;
6068: RAISE FND_API.G_EXC_ERROR;
6069: end if;
6070:
6075: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_loan_amount_adj_id = ' || l_loan_amount_adj_id);
6076:
6077: -- We can't check funds without valid loan adjustment
6078: IF (l_loan_amount_adj_id IS NULL) THEN
6079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6081: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
6082: FND_MSG_PUB.ADD;
6083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6076:
6077: -- We can't check funds without valid loan adjustment
6078: IF (l_loan_amount_adj_id IS NULL) THEN
6079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6081: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
6082: FND_MSG_PUB.ADD;
6083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6084: RAISE FND_API.G_EXC_ERROR;
6077: -- We can't check funds without valid loan adjustment
6078: IF (l_loan_amount_adj_id IS NULL) THEN
6079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6081: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_amount_adj_id);
6082: FND_MSG_PUB.ADD;
6083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6084: RAISE FND_API.G_EXC_ERROR;
6085: END IF;
6099: ,p_col_name => 'LOAN_AMOUNT_ADJ_ID'
6100: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
6101:
6102: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6103: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6104: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6105: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
6106: FND_MSG_PUB.ADD;
6107: RAISE FND_API.G_EXC_ERROR;
6100: ,p_table_name => 'LNS_LOAN_AMOUNT_ADJS');
6101:
6102: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6103: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6104: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6105: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
6106: FND_MSG_PUB.ADD;
6107: RAISE FND_API.G_EXC_ERROR;
6108: end if;
6101:
6102: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6103: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6104: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_AMOUNT_ADJ_ID');
6105: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_amount_adj_id);
6106: FND_MSG_PUB.ADD;
6107: RAISE FND_API.G_EXC_ERROR;
6108: end if;
6109:
6119: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_adj_amount = ' || l_adj_amount);
6120:
6121:
6122: IF l_adj_status <> 'PENDING' THEN
6123: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_PENDING_ADJ');
6124: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6125: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_id);
6126: FND_MSG_PUB.ADD;
6127: RAISE FND_API.G_EXC_ERROR;
6120:
6121:
6122: IF l_adj_status <> 'PENDING' THEN
6123: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_PENDING_ADJ');
6124: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6125: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_id);
6126: FND_MSG_PUB.ADD;
6127: RAISE FND_API.G_EXC_ERROR;
6128: END IF;
6121:
6122: IF l_adj_status <> 'PENDING' THEN
6123: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_PENDING_ADJ');
6124: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6125: FND_MESSAGE.SET_TOKEN('VALUE', l_loan_id);
6126: FND_MSG_PUB.ADD;
6127: RAISE FND_API.G_EXC_ERROR;
6128: END IF;
6129:
6173: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || x_return_status);
6174: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
6175:
6176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6177: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
6178: FND_MSG_PUB.ADD;
6179: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6181: END IF;
6229:
6230: if (l_return_status <> 'S' ) then
6231:
6232: l_return_status := FND_API.G_RET_STS_ERROR;
6233: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6234: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6235: FND_MSG_PUB.ADD;
6236: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6237: RAISE FND_API.G_EXC_ERROR;
6230: if (l_return_status <> 'S' ) then
6231:
6232: l_return_status := FND_API.G_RET_STS_ERROR;
6233: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6234: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6235: FND_MSG_PUB.ADD;
6236: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6237: RAISE FND_API.G_EXC_ERROR;
6238:
6255:
6256: /*
6257: if l_status_code NOT IN ('SUCCESS','ADVISORY') then
6258: IF (l_status_code = 'PARTIAL') THEN
6259: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_CHK_PARTIAL');
6260: FND_MSG_PUB.ADD;
6261: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6262: RAISE FND_API.G_EXC_ERROR;
6263: ELSE
6260: FND_MSG_PUB.ADD;
6261: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6262: RAISE FND_API.G_EXC_ERROR;
6263: ELSE
6264: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6265: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6266: FND_MSG_PUB.ADD;
6267: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6268: RAISE FND_API.G_EXC_ERROR;
6261: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6262: RAISE FND_API.G_EXC_ERROR;
6263: ELSE
6264: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
6265: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
6266: FND_MSG_PUB.ADD;
6267: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6268: RAISE FND_API.G_EXC_ERROR;
6269: END IF;
6286: ,X_MSG_DATA => l_msg_data);
6287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'update loan status = ' || l_return_status);
6288:
6289: if l_return_status <> 'S' then
6290: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6291: FND_MSG_PUB.ADD;
6292: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6293: RAISE FND_API.G_EXC_ERROR;
6294: end if;
6425: end loop;
6426:
6427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_dist_percent_rec_bill = ' || l_dist_percent_rec_bill);
6428: if l_dist_percent_rec_bill <> 100 then
6429: FND_MESSAGE.Set_Name('LNS', 'LNS_ACC_BILL_REC_PER_INVALID');
6430: FND_MSG_PUB.Add;
6431: RAISE FND_API.G_EXC_ERROR;
6432: end if;
6433:
6735: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input p_loan_line_id = ' || p_loan_line_id);
6736:
6737: if P_LOAN_ID is null then
6738:
6739: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6740: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
6741: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6742: RAISE FND_API.G_EXC_ERROR;
6743:
6736:
6737: if P_LOAN_ID is null then
6738:
6739: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6740: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
6741: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6742: RAISE FND_API.G_EXC_ERROR;
6743:
6744: end if;
6744: end if;
6745:
6746: if P_LOAN_LINE_ID is null then
6747:
6748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6749: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_LINE_ID' );
6750: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6751: RAISE FND_API.G_EXC_ERROR;
6752:
6745:
6746: if P_LOAN_LINE_ID is null then
6747:
6748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
6749: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_LINE_ID' );
6750: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6751: RAISE FND_API.G_EXC_ERROR;
6752:
6753: end if;
6778: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_return_status = ' || l_return_status);
6779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
6780:
6781: if l_return_status <> 'S' then
6782: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
6783: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6784: FND_MSG_PUB.ADD;
6785: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6786: RAISE FND_API.G_EXC_ERROR;
6779: logMessage(FND_LOG.level_statement, G_PKG_NAME, 'l_upgrade_status = ' || l_upgrade_status);
6780:
6781: if l_return_status <> 'S' then
6782: FND_MESSAGE.SET_NAME('LNS', 'LNS_CHK_UPG_FAIL');
6783: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6784: FND_MSG_PUB.ADD;
6785: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6786: RAISE FND_API.G_EXC_ERROR;
6787: else
6785: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6786: RAISE FND_API.G_EXC_ERROR;
6787: else
6788: if l_upgrade_status <> 'Y' then
6789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
6790: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6791: FND_MSG_PUB.ADD;
6792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6793: RAISE FND_API.G_EXC_ERROR;
6786: RAISE FND_API.G_EXC_ERROR;
6787: else
6788: if l_upgrade_status <> 'Y' then
6789: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_TRX');
6790: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_trx_number);
6791: FND_MSG_PUB.ADD;
6792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6793: RAISE FND_API.G_EXC_ERROR;
6794: end if;
6849:
6850: l_error_counter := l_error_counter + 1;
6851:
6852: if l_error_counter = 1 then
6853: FND_MESSAGE.SET_NAME('LNS', 'LNS_ONLINE_ACCOUNTING_FAILED');
6854: FND_MSG_PUB.Add;
6855: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6856: end if;
6857:
6854: FND_MSG_PUB.Add;
6855: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6856: end if;
6857:
6858: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6860: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
6861: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
6862: FND_MSG_PUB.Add;
6855: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6856: end if;
6857:
6858: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6860: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
6861: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
6862: FND_MSG_PUB.Add;
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6856: end if;
6857:
6858: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6860: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
6861: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
6862: FND_MSG_PUB.Add;
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6864:
6857:
6858: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACC_DOC_FAIL');
6859: FND_MESSAGE.SET_TOKEN('DOC_NUM', l_invoice_number);
6860: FND_MESSAGE.SET_TOKEN('DOC_TYPE', l_entity_code);
6861: FND_MESSAGE.SET_TOKEN('ACC_ERR', l_error_message);
6862: FND_MSG_PUB.Add;
6863: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6864:
6865: END LOOP;
6891: ,structure_number=> l_ledger_details.chart_of_accounts_id
6892: ,flex_qual_name => 'GL_ACCOUNT'
6893: ,segment_number => l_nat_acct_seg_number))
6894: THEN
6895: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_NATURAL_ACCOUNT_SEGMENT');
6896: FND_MSG_PUB.ADD;
6897: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6898: RAISE FND_API.G_EXC_ERROR;
6899: END IF;
6935: end loop; -- loan clearing loop
6936: exception
6937: when others then
6938: --logMessage(FND_LOG.LEVEL_UNEX, G_PKG_NAME, 'Failed to inherit receivables distributions');
6939: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
6940: FND_MSG_PUB.ADD;
6941: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
6942: RAISE FND_API.G_EXC_ERROR;
6943: end;
7117:
7118: exception
7119: when others then
7120: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'failed to inherit receivables distributions');
7121: FND_MESSAGE.SET_NAME('LNS', 'LNS_INHERIT_DIST_NOT_FOUND');
7122: FND_MSG_PUB.ADD;
7123: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7124: RAISE FND_API.G_EXC_ERROR;
7125: end;
7216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7218:
7219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7220: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7221: FND_MSG_PUB.ADD;
7222: --l_last_api_called := 'LNS_XLA_EVENTS.create_event';
7223: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7249:
7250: WHEN FND_API.G_EXC_ERROR THEN
7251: x_return_status := FND_API.G_RET_STS_ERROR;
7252: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7253: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7254: FND_MSG_PUB.ADD;
7255: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7256: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7257: ROLLBACK TO createDistrForAddRec;
7258:
7259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7260: x_return_status := FND_API.G_RET_STS_ERROR;
7261: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7262: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7263: FND_MSG_PUB.ADD;
7264: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7266: ROLLBACK TO createDistrForAddRec;
7267:
7268: WHEN OTHERS THEN
7269: x_return_status := FND_API.G_RET_STS_ERROR;
7270: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7271: FND_MESSAGE.SET_NAME('LNS', 'LNS_ADD_REC_ACC_FAIL');
7272: FND_MSG_PUB.ADD;
7273: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7274: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7275: ROLLBACK TO createDistrForAddRec;
7432: ,p_col_name => 'LOAN_ID'
7433: ,p_table_name => 'LNS_LOAN_HEADERS');
7434:
7435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7436: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
7437: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
7438: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
7439: FND_MSG_PUB.ADD;
7440: RAISE FND_API.G_EXC_ERROR;
7433: ,p_table_name => 'LNS_LOAN_HEADERS');
7434:
7435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7436: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
7437: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
7438: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
7439: FND_MSG_PUB.ADD;
7440: RAISE FND_API.G_EXC_ERROR;
7441: END IF;
7434:
7435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7436: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
7437: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
7438: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_id);
7439: FND_MSG_PUB.ADD;
7440: RAISE FND_API.G_EXC_ERROR;
7441: END IF;
7442:
7779: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status = ' || l_return_status);
7780: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_id = ' || l_event_id);
7781:
7782: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7783: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
7784: FND_MSG_PUB.ADD;
7785: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7786: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7787: END IF;
7827: -- we want to commit ONLY in the case of SUCCESS or ADVISORY
7828: if (l_return_status <> 'S') then
7829:
7830: x_return_status := FND_API.G_RET_STS_ERROR;
7831: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
7832: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
7833: FND_MSG_PUB.ADD;
7834: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7835: RAISE FND_API.G_EXC_ERROR;
7828: if (l_return_status <> 'S') then
7829:
7830: x_return_status := FND_API.G_RET_STS_ERROR;
7831: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
7832: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to PSA_BC_XLA_PUB.Budgetary_Control failed with Status Code = ' || l_status_code);
7833: FND_MSG_PUB.ADD;
7834: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
7835: RAISE FND_API.G_EXC_ERROR;
7836:
8653: OPEN loan_cur(p_loan_id);
8654: FETCH loan_cur INTO l_loan_num;
8655: CLOSE loan_cur;
8656:
8657: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
8658: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
8659: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', p_accrual_date);
8660: FND_MSG_PUB.Add;
8661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
8654: FETCH loan_cur INTO l_loan_num;
8655: CLOSE loan_cur;
8656:
8657: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
8658: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
8659: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', p_accrual_date);
8660: FND_MSG_PUB.Add;
8661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
8662:
8655: CLOSE loan_cur;
8656:
8657: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
8658: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
8659: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', p_accrual_date);
8660: FND_MSG_PUB.Add;
8661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
8662:
8663: RAISE FND_API.G_EXC_ERROR;
9185:
9186: x_statement_xml := x_statement_xml || l_new_line || '
9187:
9188: IF l_disable_int_accrual_flag = 'Y' THEN
9189: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_DISABLED');
9190: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9191: FND_MSG_PUB.Add;
9192: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9193:
9186: x_statement_xml := x_statement_xml || l_new_line || '
9187:
9188: IF l_disable_int_accrual_flag = 'Y' THEN
9189: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_DISABLED');
9190: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9191: FND_MSG_PUB.Add;
9192: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9193:
9194: RAISE FND_API.G_EXC_ERROR;
9195: END IF;
9196:
9197: IF (l_last_accrued_date IS NOT NULL AND p_accrual_date <= l_last_accrued_date) THEN
9198:
9199: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
9200: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9201: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9202: FND_MSG_PUB.Add;
9203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9196:
9197: IF (l_last_accrued_date IS NOT NULL AND p_accrual_date <= l_last_accrued_date) THEN
9198:
9199: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
9200: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9201: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9202: FND_MSG_PUB.Add;
9203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9204:
9197: IF (l_last_accrued_date IS NOT NULL AND p_accrual_date <= l_last_accrued_date) THEN
9198:
9199: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUED_ALREADY');
9200: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9201: FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9202: FND_MSG_PUB.Add;
9203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9204:
9205: RAISE FND_API.G_EXC_ERROR;
9241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_exist_event_id = ' || l_exist_event_id);
9242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_status_code = ' || l_event_status_code);
9243:
9244: IF l_event_status_code in ('P', 'R') THEN
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9246: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9247: -- FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9248: FND_MSG_PUB.Add;
9249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_event_status_code = ' || l_event_status_code);
9243:
9244: IF l_event_status_code in ('P', 'R') THEN
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9246: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9247: -- FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9248: FND_MSG_PUB.Add;
9249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9250:
9243:
9244: IF l_event_status_code in ('P', 'R') THEN
9245: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUAL_FINAL_ACCOUNTED');
9246: FND_MESSAGE.SET_TOKEN('LOAN_NUMBER', l_loan_num);
9247: -- FND_MESSAGE.SET_TOKEN('LAST_ACCRUAL_DATE', l_last_accrued_date);
9248: FND_MSG_PUB.Add;
9249: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9250:
9251: RAISE FND_API.G_EXC_ERROR;
9336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_return_status = ' || l_return_status);
9337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_event_id ' || l_event_id);
9338:
9339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9340: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCOUNTING_EVENT_ERROR');
9341: FND_MSG_PUB.ADD;
9342: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9344: END IF;
9704: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ledger ID: ' || l_ledger_id);
9705:
9706: ELSE
9707:
9708: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9709: FND_MSG_PUB.Add;
9710: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9711: RAISE FND_API.G_EXC_ERROR;
9712:
9746: l_is_period_end := 'N';
9747: l_accrual_date := p_accrual_date;
9748: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'It is NOT Period End Accrual - l_is_period_end: '||l_is_period_end );
9749: ELSE
9750: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PARAMS');
9751: FND_MSG_PUB.Add;
9752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9753: RAISE FND_API.G_EXC_ERROR;
9754: END IF;
9763:
9764: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Last day of period '||p_period_name||' is '||l_accrual_date );
9765:
9766: IF l_accrual_date is NULL THEN
9767: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PERIOD');
9768: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',p_period_name);
9769: FND_MSG_PUB.Add;
9770: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9771: RAISE FND_API.G_EXC_ERROR;
9764: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Last day of period '||p_period_name||' is '||l_accrual_date );
9765:
9766: IF l_accrual_date is NULL THEN
9767: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_PERIOD');
9768: FND_MESSAGE.SET_TOKEN('PERIOD_NAME',p_period_name);
9769: FND_MSG_PUB.Add;
9770: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9771: RAISE FND_API.G_EXC_ERROR;
9772: END IF;
9785:
9786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'The GL Period status is '||l_gl_period_status||' for period '||l_gl_period_name);
9787:
9788: IF l_gl_period_status NOT IN ( 'O') THEN
9789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUE_GL_PERIOD_CLOSED');
9790: FND_MESSAGE.SET_TOKEN('ACCRUAL_DATE', l_accrual_date);
9791: FND_MSG_PUB.Add;
9792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9793: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking BUILD_ACCRUAL_ERR_STMT() API');
9786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'The GL Period status is '||l_gl_period_status||' for period '||l_gl_period_name);
9787:
9788: IF l_gl_period_status NOT IN ( 'O') THEN
9789: FND_MESSAGE.SET_NAME('LNS', 'LNS_ACCRUE_GL_PERIOD_CLOSED');
9790: FND_MESSAGE.SET_TOKEN('ACCRUAL_DATE', l_accrual_date);
9791: FND_MSG_PUB.Add;
9792: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
9793: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Invoking BUILD_ACCRUAL_ERR_STMT() API');
9794: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
10339:
10340:
10341: EXCEPTION
10342: when no_data_found then
10343: FND_MESSAGE.SET_NAME('LNS', 'LNS_DEFAULT_DIST_NOT_FOUND');
10344: FND_MSG_PUB.ADD;
10345: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
10346: RAISE FND_API.G_EXC_ERROR;
10347: END; -- c_default_info cursor
10718:
10719:
10720: --get the decoded fnd error message
10721: if (l_fb_error_msg is not null) then
10722: fnd_message.set_encoded(l_fb_error_msg);
10723: l_fb_error_msg := fnd_message.get;
10724: end if;
10725:
10726:
10719:
10720: --get the decoded fnd error message
10721: if (l_fb_error_msg is not null) then
10722: fnd_message.set_encoded(l_fb_error_msg);
10723: l_fb_error_msg := fnd_message.get;
10724: end if;
10725:
10726:
10727: WF_ENGINE_UTIL.CLEARCACHE;