[Home] [Help]
316: End;
317:
318: PROCEDURE IB_New(
319: P_instance_rec Instance_rec_type,
320: x_inst_dtls_tbl OUT NOCOPY OKS_IHD_PVT.ihdv_tbl_type,
321: x_return_status OUT NoCopy Varchar2,
322: x_msg_count OUT NOCOPY Number,
323: x_msg_data OUT NOCOPY VARCHAR2
324: )
501: p_contact_tbl OKS_EXTWARPRGM_PVT .contact_tbl;
502: l_SalesCredit_tbl OKS_EXTWARPRGM_PVT.SalesCredit_tbl;
503: l_SalesCredit_tbl_hdr OKS_EXTWARPRGM_PVT.SalesCredit_tbl; --mmadhavi bug 4174921
504: l_pricing_attributes_in OKS_EXTWARPRGM_PVT.Pricing_attributes_Type;
505: l_inst_dtls_tbl OKS_IHD_PVT.ihdv_tbl_type ;
506: l_insthist_rec OKS_INS_PVT.insv_rec_type;
507:
508:
509:
2036: k_upd_tbl OKS_EXTWARPRGM_PVT.Contract_tbl;
2037:
2038:
2039: l_return_status Varchar2(1):= OKC_API.G_RET_STS_SUCCESS;
2040: l_inst_dtls_tbl OKS_IHD_PVT.ihdv_tbl_type ;
2041: l_subscr_instance Varchar2(1);
2042: l_ref_num Varchar2(30);
2043: l_temp Number;
2044: l_parameters Varchar2(2000);
2044: l_parameters Varchar2(2000);
2045: l_insthist_rec OKS_INS_PVT.insv_rec_type;
2046: x_insthist_rec OKS_INS_PVT.insv_rec_type;
2047: l_instparent_id Number;
2048: x_inst_dtls_tbl OKS_IHD_PVT.ihdv_tbl_type ;
2049:
2050: l_access_mode Varchar2(10);
2051: l_org_id Number;
2052: l_process_status Varchar2(1);
2229: l_inst_dtls_tbl(l_ctr).ins_id := l_instparent_id;
2230: End loop;
2231:
2232: --oks_inst_history_details
2233: OKS_IHD_PVT.insert_row(
2234: p_api_version => 1.0 ,
2235: p_init_msg_list => 'T',
2236: x_return_status => l_return_status,
2237: x_msg_count => x_msg_count,
2240: x_ihdv_tbl => x_inst_dtls_tbl
2241: );
2242: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2243: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.IB_INTERFACE.instance history details',
2244: 'oks_ihd_pvt.insert_row(Return status = '||l_return_status ||')' );
2245: End If;
2246: x_return_status := l_return_status;
2247: If not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2248: x_return_status := l_return_status;