683: L_Currency_Code VARCHAR2(30);
684:
685: CURSOR C ( P_ID NUMBER ) IS
686: SELECT currency_code
687: FROM okc_k_headers_b
688: WHERE id =P_ID ;
689:
690:
691: Diff_Currency_Code EXCEPTION;
1942: l_inv_Org NUMBER;
1943:
1944: CURSOR get_inventory_org (p_chr NUMBER) IS
1945: SELECT inv_organization_id
1946: FROM OKC_K_HEADERS_B
1947: WHERE ID = p_chr;
1948:
1949:
1950: BEGIN
2425: l_del_rec OKE_CONTRACT_PUB.del_rec_type;
2426:
2427: CURSOR get_inv_org IS
2428: SELECT INV_ORGANIZATION_ID
2429: FROM OKC_K_HEADERS_B
2430: WHERE ID = p_del_rec.k_header_id;
2431:
2432: CURSOR get_intent IS
2433: SELECT BUY_OR_SELL
2430: WHERE ID = p_del_rec.k_header_id;
2431:
2432: CURSOR get_intent IS
2433: SELECT BUY_OR_SELL
2434: FROM OKC_K_HEADERS_B
2435: WHERE ID = p_del_rec.k_header_id;
2436: l_sts_code VARCHAR2(30);
2437:
2438: Cursor l_sts_csr Is
3770:
3771:
3772: CURSOR get_inventory_org (p_chr NUMBER) IS
3773: SELECT inv_organization_id
3774: FROM OKC_K_HEADERS_B
3775: WHERE ID = p_chr;
3776:
3777: l_value VARCHAR2(1);
3778:
4788: l_del_rec OKE_CONTRACT_PUB.del_rec_type;
4789:
4790: CURSOR get_inv_org IS
4791: SELECT INV_ORGANIZATION_ID
4792: FROM OKC_K_HEADERS_B
4793: WHERE ID = p_del_rec.k_header_id;
4794:
4795: CURSOR get_intent IS
4796: SELECT BUY_OR_SELL
4793: WHERE ID = p_del_rec.k_header_id;
4794:
4795: CURSOR get_intent IS
4796: SELECT BUY_OR_SELL
4797: FROM OKC_K_HEADERS_B
4798: WHERE ID = p_del_rec.k_header_id;
4799:
4800: l_intent VARCHAR2(10);
4801: