2: /* $Header: OKCCSCRB.pls 120.0 2005/05/25 22:45:43 appldev noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_SALES_CREDIT_PVT';
8: G_CHILD_RECORD_FOUND CONSTANT varchar2(200) := 'OKC_CHILD_RECORD_FOUND';
9: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
10: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
5:
6: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_SALES_CREDIT_PVT';
8: G_CHILD_RECORD_FOUND CONSTANT varchar2(200) := 'OKC_CHILD_RECORD_FOUND';
9: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
10: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
11:
12:
13: -- Start of comments
6: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_SALES_CREDIT_PVT';
8: G_CHILD_RECORD_FOUND CONSTANT varchar2(200) := 'OKC_CHILD_RECORD_FOUND';
9: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
10: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
11:
12:
13: -- Start of comments
14: --
35: x_scrv_rec => x_scrv_rec);
36: --V
37:
38: -- Update minor version
39: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
40: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(x_scrv_rec.dnz_chr_id);
41: End If;
42:
43: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
39: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
40: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(x_scrv_rec.dnz_chr_id);
41: End If;
42:
43: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
44: return;
45: end if;
46: end create_Sales_Credit;
47:
70: x_return_status => x_return_status,
71: p_scrv_tbl => p_scrv_tbl,
72: x_scrv_tbl => x_scrv_tbl);
73: --V
74: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
75: return;
76: end if;
77: end create_Sales_Credit;
78:
103: x_scrv_rec => x_scrv_rec);
104: --V
105:
106: -- Update minor version
107: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
108: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(x_scrv_rec.dnz_chr_id);
109: End If;
110:
111: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
107: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
108: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(x_scrv_rec.dnz_chr_id);
109: End If;
110:
111: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
112: return;
113: end if;
114: end update_Sales_Credit;
115:
136: p_scrv_rec => p_scrv_rec);
137: --V
138:
139: -- Update minor version
140: If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
141: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(p_scrv_rec.dnz_chr_id);
142: End If;
143:
144:
141: x_return_status := OKC_CONTRACT_PUB.Increment_Minor_Version(p_scrv_rec.dnz_chr_id);
142: End If;
143:
144:
145: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
146: return;
147: end if;
148: exception
149: WHEN OTHERS THEN