[Home] [Help]
PACKAGE BODY: APPS.OKC_SALES_CREDIT_PVT
Source
1 PACKAGE BODY OKC_SALES_CREDIT_PVT AS
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;
11
12
13 -- Start of comments
14 --
15 -- Procedure Name : create_Sales_Credit
16 -- Description :
17 -- Business Rules :
18 -- Parameters :
19 -- Version : 1.0
20 -- End of comments
21 procedure create_Sales_Credit(p_api_version IN NUMBER,
22 p_init_msg_list IN VARCHAR2 ,
23 x_return_status OUT NOCOPY VARCHAR2,
24 x_msg_count OUT NOCOPY NUMBER,
25 x_msg_data OUT NOCOPY VARCHAR2,
26 p_scrv_rec IN scrv_rec_type,
27 x_scrv_rec OUT NOCOPY scrv_rec_type) is
28 begin
29 okC_scr_pvt.insert_row(p_api_version => p_api_version,
30 p_init_msg_list => p_init_msg_list,
31 x_msg_count => x_msg_count,
32 x_msg_data => x_msg_data,
33 x_return_status => x_return_status,
34 p_scrv_rec => p_scrv_rec,
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
44 return;
45 end if;
46 end create_Sales_Credit;
47
48
49
50 -- Start of comments
51 --
52 -- Procedure Name : create_Sales_Credit
53 -- Description :
54 -- Business Rules :
55 -- Parameters :
56 -- Version : 1.0
57 -- End of comments
58 procedure create_Sales_Credit(p_api_version IN NUMBER,
59 p_init_msg_list IN VARCHAR2 ,
60 x_return_status OUT NOCOPY VARCHAR2,
61 x_msg_count OUT NOCOPY NUMBER,
62 x_msg_data OUT NOCOPY VARCHAR2,
63 p_scrv_tbl IN scrv_tbl_type,
64 x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
65 begin
66 okC_scr_pvt.insert_row(p_api_version => p_api_version,
67 p_init_msg_list => p_init_msg_list,
68 x_msg_count => x_msg_count,
69 x_msg_data => x_msg_data,
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
79
80
81 -- Start of comments
82 --
83 -- Procedure Name : update_Sales_Credit
84 -- Description :
85 -- Business Rules :
86 -- Parameters :
87 -- Version : 1.0
88 -- End of comments
89 procedure update_Sales_Credit(p_api_version IN NUMBER,
90 p_init_msg_list IN VARCHAR2 ,
91 x_return_status OUT NOCOPY VARCHAR2,
92 x_msg_count OUT NOCOPY NUMBER,
93 x_msg_data OUT NOCOPY VARCHAR2,
94 p_scrv_rec IN scrv_rec_type,
95 x_scrv_rec OUT NOCOPY scrv_rec_type) is
96 begin
97 okC_scr_pvt.update_row(p_api_version => p_api_version,
98 p_init_msg_list => p_init_msg_list,
99 x_msg_count => x_msg_count,
100 x_msg_data => x_msg_data,
101 x_return_status => x_return_status,
102 p_scrv_rec => p_scrv_rec,
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
112 return;
113 end if;
114 end update_Sales_Credit;
115
116 -- Start of comments
117 --
118 -- Procedure Name : delete_Sales_Credit
119 -- Description :
120 -- Business Rules :
121 -- Parameters :
122 -- Version : 1.0
123 -- End of comments
124 procedure delete_Sales_Credit(p_api_version IN NUMBER,
125 p_init_msg_list IN VARCHAR2 ,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2,
129 p_scrv_rec IN scrv_rec_type) is
130 begin
131 okC_scr_pvt.delete_row(p_api_version => p_api_version,
132 p_init_msg_list => p_init_msg_list,
133 x_msg_count => x_msg_count,
134 x_msg_data => x_msg_data,
135 x_return_status => x_return_status,
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
145 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
146 return;
147 end if;
148 exception
149 WHEN OTHERS THEN
150 NULL;
151 end delete_Sales_Credit;
152
153 -- Start of comments
154 --
155 -- Procedure Name : lock_Sales_Credit
156 -- Description :
157 -- Business Rules :
158 -- Parameters :
159 -- Version : 1.0
160 -- End of comments
161 procedure lock_Sales_Credit(p_api_version IN NUMBER,
162 p_init_msg_list IN VARCHAR2 ,
163 x_return_status OUT NOCOPY VARCHAR2,
164 x_msg_count OUT NOCOPY NUMBER,
165 x_msg_data OUT NOCOPY VARCHAR2,
166 p_scrv_rec IN scrv_rec_type) is
167 begin
168 okC_scr_pvt.lock_row(p_api_version => p_api_version,
169 p_init_msg_list => p_init_msg_list,
170 x_msg_count => x_msg_count,
171 x_msg_data => x_msg_data,
172 x_return_status => x_return_status,
173 p_scrv_rec => p_scrv_rec);
174 end lock_Sales_Credit;
175
176 -- Start of comments
177 --
178 -- Procedure Name : validate_Sales_Credit
179 -- Description :
180 -- Business Rules :
181 -- Parameters :
182 -- Version : 1.0
183 -- End of comments
184 procedure validate_Sales_Credit(p_api_version IN NUMBER,
185 p_init_msg_list IN VARCHAR2 ,
186 x_return_status OUT NOCOPY VARCHAR2,
187 x_msg_count OUT NOCOPY NUMBER,
188 x_msg_data OUT NOCOPY VARCHAR2,
189 p_scrv_rec IN scrv_rec_type) is
190 begin
191 okC_scr_pvt.validate_row(p_api_version => p_api_version,
192 p_init_msg_list => p_init_msg_list,
193 x_msg_count => x_msg_count,
194 x_msg_data => x_msg_data,
195 x_return_status => x_return_status,
196 p_scrv_rec => p_scrv_rec);
197 end validate_Sales_Credit;
198
199 end OKC_Sales_Credit_PVT;