[Home] [Help]
118: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
119: x_return_status OUT NOCOPY VARCHAR2,
120: x_msg_count OUT NOCOPY NUMBER,
121: x_msg_data OUT NOCOPY VARCHAR2,
122: p_khr_status IN OKC_K_HEADERS_V.STS_CODE%TYPE,
123: p_chr_id IN NUMBER) IS
124: l_api_name CONSTANT VARCHAR2(30) := 'l_change_k_status';
125: BEGIN
126: x_return_status := OKL_API.G_RET_STS_SUCCESS;
226: p_contract_id IN OKC_K_HEADERS_B.ID%TYPE)
227: IS
228:
229: -- Get Contract Details
230: CURSOR c_fetch_k_number(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
231: IS
232: SELECT chrv.contract_number,
233: chrv.sts_code
234: FROM okc_k_headers_v chrv
230: CURSOR c_fetch_k_number(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
231: IS
232: SELECT chrv.contract_number,
233: chrv.sts_code
234: FROM okc_k_headers_v chrv
235: WHERE chrv.id = p_contract_id;
236:
237: -- Get the valid application id from FND
238: CURSOR c_get_app_id_csr
274: l_application_id FND_APPLICATION.APPLICATION_ID%TYPE;
275: l_trans_appl_id AME_CALLING_APPS.APPLICATION_ID%TYPE;
276: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
277:
278: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
279: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
280: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
281:
282: l_requester VARCHAR2(200);
275: l_trans_appl_id AME_CALLING_APPS.APPLICATION_ID%TYPE;
276: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
277:
278: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
279: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
280: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
281:
282: l_requester VARCHAR2(200);
283: l_name VARCHAR2(200);
276: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
277:
278: l_contract_num OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
279: l_chrv_id OKC_K_HEADERS_V.ID%TYPE := p_contract_id;
280: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
281:
282: l_requester VARCHAR2(200);
283: l_name VARCHAR2(200);
284: l_requester_id VARCHAR2(200);
377: IF c_fetch_k_number%NOTFOUND THEN
378: OKL_API.set_message(p_app_name => G_APP_NAME,
379: p_msg_name => G_NO_MATCHING_RECORD,
380: p_token1 => G_COL_NAME_TOKEN,
381: p_token1_value => 'OKC_K_HEADERS_V.ID');
382: RAISE OKL_API.G_EXCEPTION_ERROR;
383: END IF;
384: CLOSE c_fetch_k_number;
385: IF l_sts_code <> G_KHR_STS_COMPLETE THEN
564: l_dummy number;
565: -- end: cklee 31-May-2005 okl.h Lease App IA Authoring
566:
567: -- Changed query as part of Bug#4693302 by zrehman : starts
568: CURSOR l_okl_khr_details_csr(p_contract_id OKC_K_HEADERS_V.ID%TYPE)
569: IS
570: SELECT chrv.contract_number,
571: chrv.sts_code,
572: stsv.meaning,
1114:
1115: l_api_name VARCHAR2(200) := 'Get_Lease_Contract_Approver';
1116:
1117: l_user_id VARCHAR2(200);
1118: l_contract_number OKC_K_HEADERS_V.contract_number%TYPE;
1119:
1120: l_return_status VARCHAR2(1);
1121:
1122: BEGIN
1186: l_parent_key VARCHAR2(240);
1187: l_parent_type VARCHAR2(240);
1188: l_result VARCHAR2(30);
1189: l_api_name VARCHAR2(30) := 'Set_Parent_Attributes';
1190: l_contract_number okc_k_headers_v.contract_number%TYPE;
1191:
1192: BEGIN
1193: SAVEPOINT set_atts;
1194: IF (funcmode = 'RUN') THEN
1274: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1275: l_msg_data VARCHAR2(2000);
1276: l_api_name VARCHAR2(30) := 'update_approval_status';
1277:
1278: l_chrv_id OKC_K_HEADERS_V.ID%TYPE;
1279: l_approved_yn VARCHAR2(30);
1280: l_trx_number VARCHAR2(100);
1281:
1282: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
1572: l_process VARCHAR2(30) := G_APPROVAL_PROCESS_WF;
1573: l_item_type VARCHAR2(10) := G_ITEM_TYPE_WF;
1574:
1575: l_contract_id VARCHAR2(240);
1576: l_contract_number okc_k_headers_v.contract_number%TYPE;
1577: l_requester VARCHAR2(240);
1578: l_requester_id VARCHAR2(240);
1579:
1580: l_api_name VARCHAR2(30) := 'wf_Approval_Process';