2011: x_imav_rec Okl_ima_pvt.imav_rec_type;
2012:
2013:
2014: p_api_version NUMBER := 1.0;
2015: p_init_msg_list VARCHAR2(1) := Okl_Api.g_false;
2016: x_return_status VARCHAR2(1);
2017: x_msg_count NUMBER;
2018: x_msg_data VARCHAR2(2000);
2019: -- For automatic generation of sequence numbers from
2109: EXCEPTION
2110: --Seed FND_MESSAGE like 'Could NOT CREATE Header RECORD'
2111: WHEN OTHERS THEN
2112: PRINT_TO_LOG('*=> Error Message(H1): '||SQLERRM);
2113: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
2114: p_msg_name => G_OTHERS);
2115: END create_new_invoice;
2116:
2117: --This function checks for the existence of an consolidated invoice line
2234: */
2235: EXCEPTION
2236: WHEN NO_DATA_FOUND THEN
2237: PRINT_TO_LOG('*=> Error Message(L1): '||SQLERRM);
2238: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
2239: p_msg_name => G_NO_DATA_FOUND);
2240:
2241: exists_flag := 'N';
2242: WHEN TOO_MANY_ROWS THEN
2240:
2241: exists_flag := 'N';
2242: WHEN TOO_MANY_ROWS THEN
2243: PRINT_TO_LOG('*=> Error Message(L2): '||SQLERRM);
2244: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
2245: p_msg_name => G_TOO_MANY_ROWS);
2246:
2247: exists_flag := NULL;
2248: WHEN OTHERS THEN
2246:
2247: exists_flag := NULL;
2248: WHEN OTHERS THEN
2249: PRINT_TO_LOG('*=> Error Message(L3): '||SQLERRM);
2250: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
2251: p_msg_name => G_OTHERS);
2252: exists_flag := NULL;
2253:
2254: END line_exist;
2278: p_llnv_tbl Okl_Lln_Pvt.llnv_tbl_type;
2279:
2280:
2281: p_api_version NUMBER := 1.0;
2282: p_init_msg_list VARCHAR2(1) := Okl_Api.g_false;
2283: x_return_status VARCHAR2(1) := 'S';
2284: x_msg_count NUMBER;
2285: x_msg_data VARCHAR2(2000);
2286:
2362: EXCEPTION
2363: --Seed FND_MESSAGE like 'Could NOT CREATE Line RECORD'
2364: WHEN OTHERS THEN
2365: PRINT_TO_LOG('*=> Error Message(L1): '||SQLERRM);
2366: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
2367: p_msg_name => G_OTHERS);
2368: END create_new_line;
2369:
2370:
2413: l_bind_proc VARCHAR2(3000);
2414: l_msg_return VARCHAR2(1);
2415:
2416: p_api_version NUMBER := 1.0;
2417: p_init_msg_list VARCHAR2(1) := Okl_Api.g_false;
2418: x_msg_count NUMBER;
2419: x_msg_data VARCHAR2(2000);
2420: l_cnr_rec cnr_rec_type;
2421: l_lln_rec lln_rec_type;
3016: EXCEPTION
3017: --Seed FND_MESSAGE like 'Could NOT CREATE Stream RECORD'
3018: WHEN OTHERS THEN
3019: PRINT_TO_LOG('*=> Error Message(D1): '||SQLERRM);
3020: Okl_Api.SET_MESSAGE( p_app_name => G_APP_NAME,
3021: p_msg_name => G_OTHERS);
3022: END create_new_streams;
3023:
3024:
3253:
3254: -- rmunjulu R12 Fixes -- comment out entire code and put NULL
3255: NULL;
3256: /*
3257: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3258: PRINT_TO_LOG( 'Total rec count is : '||p_cons_bill_tbl.count);
3259:
3260: g_cons_bill_tbl := p_cons_bill_tbl.count;
3261:
4041: ------------------------------------------------------------
4042:
4043: l_api_version CONSTANT NUMBER := 1;
4044: l_api_name CONSTANT VARCHAR2(30) := 'CONSOLIDATED BILLING';
4045: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
4046:
4047: CURSOR cntrct_csr ( p_id NUMBER ) IS
4048: SELECT contract_number
4049: FROM okc_k_headers_b
4149: ------------------------------------------------------------
4150: -- Start processing
4151: ------------------------------------------------------------
4152:
4153: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4154: */
4155: /*
4156: l_return_status := Okl_Api.START_ACTIVITY(
4157: p_api_name => l_api_name,
4152:
4153: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4154: */
4155: /*
4156: l_return_status := Okl_Api.START_ACTIVITY(
4157: p_api_name => l_api_name,
4158: p_pkg_name => G_PKG_NAME,
4159: p_init_msg_list => p_init_msg_list,
4160: l_api_version => l_api_version,
4161: p_api_version => p_api_version,
4162: p_api_type => '_PVT',
4163: x_return_status => l_return_status);
4164:
4165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4168: RAISE Okl_Api.G_EXCEPTION_ERROR;
4169: END IF;
4162: p_api_type => '_PVT',
4163: x_return_status => l_return_status);
4164:
4165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4168: RAISE Okl_Api.G_EXCEPTION_ERROR;
4169: END IF;
4170: */
4163: x_return_status => l_return_status);
4164:
4165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4168: RAISE Okl_Api.G_EXCEPTION_ERROR;
4169: END IF;
4170: */
4171: /*
4164:
4165: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4167: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4168: RAISE Okl_Api.G_EXCEPTION_ERROR;
4169: END IF;
4170: */
4171: /*
4172: PRINT_TO_LOG( '========== **** BEGIN PROGRAM EXECUTION **** ============');
5157: ------------------------------------------------------------
5158: -- End processing
5159: ------------------------------------------------------------
5160: /*
5161: Okl_Api.END_ACTIVITY (
5162: x_msg_count => x_msg_count,
5163: x_msg_data => x_msg_data);
5164: */
5165:
5167: ------------------------------------------------------------
5168: -- Exception handling
5169: ------------------------------------------------------------
5170:
5171: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5172: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5173: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
5174: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_ERROR');
5175: END IF;
5170:
5171: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5172: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5173: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
5174: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_ERROR');
5175: END IF;
5176:
5177: PRINT_TO_LOG('*=> Error Message(O1): '||SQLERRM);
5178: -- -------------------------------------------
5183: where assigned_process = p_assigned_process;
5184: commit;
5185: end if;
5186:
5187: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
5188: p_api_name => l_api_name,
5189: p_pkg_name => G_PKG_NAME,
5190: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
5191: x_msg_count => x_msg_count,
5186:
5187: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
5188: p_api_name => l_api_name,
5189: p_pkg_name => G_PKG_NAME,
5190: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
5191: x_msg_count => x_msg_count,
5192: x_msg_data => x_msg_data,
5193: p_api_type => '_PVT');
5194:
5191: x_msg_count => x_msg_count,
5192: x_msg_data => x_msg_data,
5193: p_api_type => '_PVT');
5194:
5195: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5196:
5197: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5198: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
5199: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR');
5195: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5196:
5197: IF (L_DEBUG_ENABLED='Y' and FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5198: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'okl_cons_bill',
5199: 'EXCEPTION :'||'Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR');
5200: END IF;
5201:
5202: PRINT_TO_LOG('*=> Error Message(O2): '||SQLERRM);
5203: -- -------------------------------------------
5208: where assigned_process = p_assigned_process;
5209: commit;
5210: end if;
5211:
5212: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
5213: p_api_name => l_api_name,
5214: p_pkg_name => G_PKG_NAME,
5215: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
5216: x_msg_count => x_msg_count,
5211:
5212: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
5213: p_api_name => l_api_name,
5214: p_pkg_name => G_PKG_NAME,
5215: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
5216: x_msg_count => x_msg_count,
5217: x_msg_data => x_msg_data,
5218: p_api_type => '_PVT');
5219:
5232: where assigned_process = p_assigned_process;
5233: commit;
5234: end if;
5235:
5236: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
5237: p_api_name => l_api_name,
5238: p_pkg_name => G_PKG_NAME,
5239: p_exc_name => 'OTHERS',
5240: x_msg_count => x_msg_count,