[Home] [Help]
119: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
120: x_return_status OUT NOCOPY VARCHAR2,
121: x_msg_count OUT NOCOPY NUMBER,
122: x_msg_data OUT NOCOPY VARCHAR2,
123: p_khr_status IN OKC_K_HEADERS_V.STS_CODE%TYPE,
124: p_chr_id IN NUMBER) IS
125: l_api_name CONSTANT VARCHAR2(30) := 'l_change_k_status';
126: BEGIN
127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
227: p_contract_id IN OKC_K_HEADERS_B.ID%TYPE)
228: IS
229:
230: -- Get Contract Details
231: CURSOR c_fetch_k_number(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
232: IS
233: SELECT chrv.contract_number,
234: chrv.sts_code
235: FROM okc_k_headers_v chrv
231: CURSOR c_fetch_k_number(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
232: IS
233: SELECT chrv.contract_number,
234: chrv.sts_code
235: FROM okc_k_headers_v chrv
236: WHERE chrv.id = p_contract_id;
237:
238: -- Get the valid application id from FND
239: CURSOR c_get_app_id_csr
285: l_application_id FND_APPLICATION.APPLICATION_ID%TYPE;
286: l_trans_appl_id AME_CALLING_APPS.APPLICATION_ID%TYPE;
287: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
288:
289: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
290: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
291: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
292:
293: l_requester VARCHAR2(200);
286: l_trans_appl_id AME_CALLING_APPS.APPLICATION_ID%TYPE;
287: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
288:
289: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
290: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
291: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
292:
293: l_requester VARCHAR2(200);
294: l_name VARCHAR2(200);
287: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
288:
289: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
290: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
291: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
292:
293: l_requester VARCHAR2(200);
294: l_name VARCHAR2(200);
295: l_requester_id VARCHAR2(200);
401: IF c_fetch_k_number%NOTFOUND THEN
402: OKL_API.set_message(p_app_name => G_APP_NAME,
403: p_msg_name => G_NO_MATCHING_RECORD,
404: p_token1 => G_COL_NAME_TOKEN,
405: p_token1_value => 'OKC_K_HEADERS_V.ID');
406: RAISE OKL_API.G_EXCEPTION_ERROR;
407: END IF;
408: CLOSE c_fetch_k_number;
409: IF l_sts_code <> G_KHR_STS_COMPLETE THEN
590: l_dummy number;
591: -- end: cklee 31-May-2005 okl.h Lease App IA Authoring
592:
593: -- Changed query as part of Bug#4693302 by zrehman : starts
594: CURSOR l_okl_khr_details_csr(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
595: IS
596: SELECT chrv.contract_number,
597: chrv.sts_code,
598: stsv.meaning,
1140:
1141: l_api_name VARCHAR2(200) := 'Get_Lease_Contract_Approver';
1142:
1143: l_user_id VARCHAR2(200);
1144: l_contract_number OKC_K_HEADERS_V.contract_number%TYPE;
1145:
1146: l_return_status VARCHAR2(1);
1147:
1148: BEGIN
1231: l_parent_key VARCHAR2(240);
1232: l_parent_type VARCHAR2(240);
1233: l_result VARCHAR2(30);
1234: l_api_name VARCHAR2(30) := 'Set_Parent_Attributes';
1235: l_contract_number okc_k_headers_v.contract_number%TYPE;
1236:
1237: BEGIN
1238: SAVEPOINT set_atts;
1239: IF (funcmode = 'RUN') THEN
1321: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1322: l_msg_data VARCHAR2(2000);
1323: l_api_name VARCHAR2(30) := 'update_approval_status';
1324:
1325: l_chrv_id OKC_K_HEADERS_V.ID%TYPE;
1326: l_approved_yn VARCHAR2(30);
1327: l_trx_number VARCHAR2(100);
1328:
1329: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
1714: l_process VARCHAR2(30) := G_APPROVAL_PROCESS_WF;
1715: l_item_type VARCHAR2(10) := G_ITEM_TYPE_WF;
1716:
1717: l_contract_id VARCHAR2(240);
1718: l_contract_number okc_k_headers_v.contract_number%TYPE;
1719: l_requester VARCHAR2(240);
1720: l_requester_id VARCHAR2(240);
1721:
1722: l_api_name VARCHAR2(30) := 'wf_Approval_Process';