7982: fetch cur_ledger into l_ledger_name;
7983: close cur_ledger;
7984: END IF;
7985: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_ledger_name: ' || l_ledger_name);
7986: l_parameters := l_parameters || l_new_line || '
7987:
7988:
7989: /* adding org name to parameter list */
7990: IF P_ORG_ID IS NOT NULL THEN
7992: fetch org_cur into l_org_name;
7993: close org_cur;
7994: END IF;
7995: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_org_name: ' || l_org_name);
7996: l_parameters := l_parameters || l_new_line || '
7997:
7998:
7999: /* adding borrower to parameter list */
8000: if P_BORROWER_ID is not null then
8002: fetch borrower_cur into l_borrower;
8003: close borrower_cur;
8004: end if;
8005: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_borrower: ' || l_borrower);
8006: l_parameters := l_parameters || l_new_line || '
8007:
8008: /* adding loan to parameter list */
8009: if P_LOAN_ID is not null then
8010: open loan_cur(P_LOAN_ID);
8070: dbms_lob.writeAppend(g_last_accrual_report, length(l_footer), l_footer);
8071: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Added footer to report');
8072:
8073: /* print report to output file */
8074: LNS_REP_UTILS.PRINT_CLOB(g_last_accrual_report); -- fix for bug 6938098
8075: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Printed report into output file.');
8076:
8077: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
8078:
8241: /* build statement */
8242: l_statement := '
8243:
8244: l_statement := l_statement || l_new_line || '
8245: l_statement := l_statement || l_new_line || '
8246: l_statement := l_statement || l_new_line || '
8247: l_statement := l_statement || l_new_line || '
8248: l_statement := l_statement || l_new_line || '
8249: l_statement := l_statement || l_new_line || '
8252: l_statement := l_statement || l_new_line || '
8253: l_statement := l_statement || l_new_line || '
8254: l_statement := l_statement || l_new_line || '
8255: l_statement := l_statement || l_new_line || '
8256: --l_statement := l_statement || l_new_line || '
8257: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_statement: ' || l_statement);
8258: dbms_lob.write(X_STATEMENT_XML, length(l_statement), 1, l_statement);
8259: dbms_lob.append(X_STATEMENT_XML, l_in_statement);
8260:
8269:
8270: IF P_RESULT in ( 'E', 'W') THEN
8271: WHILE (l_indexNo <= P_ERR_COUNT ) LOOP
8272: fnd_msg_pub.get(l_indexNo, 'F', l_error, l_index);
8273: l_error := LNS_REP_UTILS.REPLACE_SPECIAL_CHARS(l_error);
8274: l_err_msg:= l_err_msg || l_error;
8275: l_indexNo := l_indexNo + 1;
8276: END LOOP;
8277:
8370: /* build error statement */
8371:
8372: WHILE (l_indexNo <= P_ERR_COUNT ) LOOP
8373: fnd_msg_pub.get(l_indexNo, 'F', l_error, l_index);
8374: l_error := LNS_REP_UTILS.REPLACE_SPECIAL_CHARS(l_error);
8375: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_error: ' || l_error);
8376: l_err_msg := l_err_msg || l_error;
8377: l_indexNo := l_indexNo + 1;
8378: END LOOP;
8964: x_statement := x_statement || l_new_line || '
8965:
8966: -- x_statement := x_statement || l_new_line || '
8967:
8968: x_statement := x_statement || l_new_line || '
8969:
8970: x_statement := x_statement || l_new_line || '
8971:
8972: x_statement := x_statement || l_new_line || '
8966: -- x_statement := x_statement || l_new_line || '
8967:
8968: x_statement := x_statement || l_new_line || '
8969:
8970: x_statement := x_statement || l_new_line || '
8971:
8972: x_statement := x_statement || l_new_line || '
8973:
8974: x_statement := x_statement || l_new_line || '
8968: x_statement := x_statement || l_new_line || '
8969:
8970: x_statement := x_statement || l_new_line || '
8971:
8972: x_statement := x_statement || l_new_line || '
8973:
8974: x_statement := x_statement || l_new_line || '
8975:
8976: x_statement := x_statement || l_new_line || '
8970: x_statement := x_statement || l_new_line || '
8971:
8972: x_statement := x_statement || l_new_line || '
8973:
8974: x_statement := x_statement || l_new_line || '
8975:
8976: x_statement := x_statement || l_new_line || '
8977:
8978:
8972: x_statement := x_statement || l_new_line || '
8973:
8974: x_statement := x_statement || l_new_line || '
8975:
8976: x_statement := x_statement || l_new_line || '
8977:
8978:
8979:
8980: