[Home] [Help]
128: p_init_msg_list IN VARCHAR2,
129: x_return_status OUT NOCOPY VARCHAR2,
130: x_msg_count OUT NOCOPY NUMBER,
131: x_msg_data OUT NOCOPY VARCHAR2,
132: p_funding_status IN OKL_TRX_AP_INVOICES_B.TRX_STATUS_CODE%TYPE,
133: p_funding_id IN OKL_TRX_AP_INVOICES_B.ID%TYPE) IS
134:
135: l_tapv_rec tapv_rec_type;
136: x_tapv_rec tapv_rec_type;
129: x_return_status OUT NOCOPY VARCHAR2,
130: x_msg_count OUT NOCOPY NUMBER,
131: x_msg_data OUT NOCOPY VARCHAR2,
132: p_funding_status IN OKL_TRX_AP_INVOICES_B.TRX_STATUS_CODE%TYPE,
133: p_funding_id IN OKL_TRX_AP_INVOICES_B.ID%TYPE) IS
134:
135: l_tapv_rec tapv_rec_type;
136: x_tapv_rec tapv_rec_type;
137: l_api_name CONSTANT VARCHAR2(30) := 'LOCAL_STATUS';
138:
139: funding_line_id number;
140:
141: -- Fix BPD Bug. these columns will be overridden by tapi
142: CURSOR c_tap (p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
143: IS
144: SELECT h.VENDOR_INVOICE_NUMBER,
145: h.PAY_GROUP_LOOKUP_CODE,
146: h.NETTABLE_YN,
145: h.PAY_GROUP_LOOKUP_CODE,
146: h.NETTABLE_YN,
147: h.FUNDING_TYPE_CODE,
148: h.INVOICE_TYPE
149: FROM OKL_TRX_AP_INVOICES_B h
150: WHERE h.id = p_funding_id
151: ;
152:
153: r_tap c_tap%ROWTYPE;
341: p_init_msg_list IN VARCHAR2,
342: x_return_status OUT NOCOPY VARCHAR2,
343: x_msg_count OUT NOCOPY NUMBER,
344: x_msg_data OUT NOCOPY VARCHAR2,
345: p_funding_id IN OKL_TRX_AP_INVOICES_B.ID%TYPE)
346: IS
347:
348: CURSOR c_fetch_funding_number(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
349: IS
344: x_msg_data OUT NOCOPY VARCHAR2,
345: p_funding_id IN OKL_TRX_AP_INVOICES_B.ID%TYPE)
346: IS
347:
348: CURSOR c_fetch_funding_number(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
349: IS
350: SELECT tap.vendor_invoice_number
351: FROM okl_trx_ap_invoices_b tap
352: WHERE tap.id = p_funding_id;
347:
348: CURSOR c_fetch_funding_number(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
349: IS
350: SELECT tap.vendor_invoice_number
351: FROM okl_trx_ap_invoices_b tap
352: WHERE tap.id = p_funding_id;
353:
354: --Added by dpsingh for LE uptake
355: -- sjalasut, modified the cursor to include okl_txl_ap_inv_lns_all_b as khr_id
353:
354: --Added by dpsingh for LE uptake
355: -- sjalasut, modified the cursor to include okl_txl_ap_inv_lns_all_b as khr_id
356: -- now resides in this table. changes made as part of OKLR12B disbursements project
357: CURSOR contract_num_csr (p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE) IS
358: SELECT con.contract_number,con.id
359: FROM OKL_TRX_AP_INVOICES_B ap_inv
360: ,OKC_K_HEADERS_B con
361: ,okl_txl_ap_inv_lns_all_b tpl
355: -- sjalasut, modified the cursor to include okl_txl_ap_inv_lns_all_b as khr_id
356: -- now resides in this table. changes made as part of OKLR12B disbursements project
357: CURSOR contract_num_csr (p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE) IS
358: SELECT con.contract_number,con.id
359: FROM OKL_TRX_AP_INVOICES_B ap_inv
360: ,OKC_K_HEADERS_B con
361: ,okl_txl_ap_inv_lns_all_b tpl
362: WHERE ap_inv.id = tpl.tap_id
363: AND tpl.khr_id = con.id
405: l_application_id FND_APPLICATION.APPLICATION_ID%TYPE;
406: l_trans_appl_id AME_CALLING_APPS.APPLICATION_ID%TYPE;
407: l_trans_type_id AME_CALLING_APPS.TRANSACTION_TYPE_ID%TYPE;
408:
409: l_invoice_number OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER%TYPE;
410: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE;
411:
412: l_requester VARCHAR2(200);
413: l_name VARCHAR2(200);
507: IF c_fetch_funding_number%NOTFOUND THEN
508: OKL_API.set_message(p_app_name => G_APP_NAME,
509: p_msg_name => G_NO_MATCHING_RECORD,
510: p_token1 => G_COL_NAME_TOKEN,
511: p_token1_value => 'OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER');
512: RAISE OKL_API.G_EXCEPTION_ERROR;
513: END IF;
514: CLOSE c_fetch_funding_number;
515:
708: WHERE chrb.id = p_creditline_id
709: ;
710:
711: -- sjalasut, modified the cursor to include okl_txl_ap_inv_lns_all_b
712: -- as references of khr_id is now moved to this table from okl_trx_ap_invoices_b
713: -- changes made as part of OKLR12B disbursments project
714: CURSOR c_funding_req(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
715: IS
716: SELECT h.id,
710:
711: -- sjalasut, modified the cursor to include okl_txl_ap_inv_lns_all_b
712: -- as references of khr_id is now moved to this table from okl_trx_ap_invoices_b
713: -- changes made as part of OKLR12B disbursments project
714: CURSOR c_funding_req(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
715: IS
716: SELECT h.id,
717: h.funding_type_code,
718: h.vendor_invoice_number fund_number,
748: AND look2.LOOKUP_TYPE = 'OKL_FUNDING_TYPE'
749: AND h.id = p_funding_id;
750:
751: -- start: cklee 31-May-2005 okl.h Lease App IA Authoring
752: CURSOR l_okl_list_contents_csr(p_funding_id OKL_TRX_AP_INVOICES_B.ID%TYPE)
753: IS
754: SELECT KHR_ID,
755: TODO_ITEM_CODE,
756: TODO_ITEM_MEANING,
1256:
1257: l_api_name VARCHAR2(200) := 'Get_Approver';
1258:
1259: l_user_id VARCHAR2(200);
1260: l_funding_number OKL_TRX_AP_INVOICES_B.vendor_invoice_number%TYPE;
1261:
1262: l_return_status VARCHAR2(1);
1263:
1264: BEGIN
1329: l_parent_key VARCHAR2(240);
1330: l_parent_type VARCHAR2(240);
1331: l_result VARCHAR2(30);
1332: l_api_name VARCHAR2(30) := 'Set_Parent_Attributes';
1333: l_funding_number okl_trx_ap_invoices_b.vendor_invoice_number%TYPE;
1334:
1335: BEGIN
1336: SAVEPOINT set_atts;
1337: IF (funcmode = 'RUN') THEN
1434: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1435: l_msg_data VARCHAR2(2000);
1436: l_api_name VARCHAR2(30) := 'update_approval_status';
1437:
1438: l_funding_id okl_trx_ap_invoices_b.id%TYPE;
1439: l_approved_yn VARCHAR2(30);
1440: l_trx_number VARCHAR2(100);
1441:
1442: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
1614: resultout OUT NOCOPY VARCHAR2 )
1615: IS
1616: l_approval_option VARCHAR2(5);
1617: l_funding_id VARCHAR2(240);
1618: l_funding_number okl_trx_ap_invoices_b.vendor_invoice_number%TYPE;
1619:
1620: l_api_name VARCHAR2(30) := 'check_approval_process';
1621: l_message VARCHAR2(4000);
1622:
1735: l_process VARCHAR2(30) := G_APPROVAL_PROCESS_WF;
1736: l_item_type VARCHAR2(10) := G_ITEM_TYPE_WF;
1737:
1738: l_funding_id VARCHAR2(240);
1739: l_funding_number okl_trx_ap_invoices_b.vendor_invoice_number%TYPE;
1740: l_requester VARCHAR2(240);
1741: l_requester_id VARCHAR2(240);
1742:
1743: l_api_name VARCHAR2(30) := 'wf_Approval_Process';