[Home] [Help]
PACKAGE BODY: APPS.OKS_REV_DISTR_PVT
Source
1 Package Body OKS_REV_DISTR_PVT AS
2 /* $Header: OKSCRDSB.pls 120.0 2005/05/25 18:11:29 appldev noship $ */
3
4 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
5 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_REV_DISTR_PVT';
6 G_CHILD_RECORD_FOUND CONSTANT varchar2(200) := 'OKC_CHILD_RECORD_FOUND';
7 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
8 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
9
10
11 procedure create_Revenue_Distr(p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 p_rdsv_rec IN rdsv_rec_type,
17 x_rdsv_rec OUT NOCOPY rdsv_rec_type) is
18 begin
19 oks_rds_pvt.insert_row(p_api_version => p_api_version,
20 p_init_msg_list => p_init_msg_list,
21 x_msg_count => x_msg_count,
22 x_msg_data => x_msg_data,
23 x_return_status => x_return_status,
24 p_rdsv_rec => p_rdsv_rec,
25 x_rdsv_rec => x_rdsv_rec);
26 --V
27 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
28 return;
29 end if;
30 end create_Revenue_Distr;
31
32
33 procedure update_Revenue_Distr(p_api_version IN NUMBER,
34 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
35 x_return_status OUT NOCOPY VARCHAR2,
36 x_msg_count OUT NOCOPY NUMBER,
37 x_msg_data OUT NOCOPY VARCHAR2,
38 p_rdsv_rec IN rdsv_rec_type,
39 x_rdsv_rec OUT NOCOPY rdsv_rec_type) is
40 begin
41 oks_rds_pvt.update_row(p_api_version => p_api_version,
42 p_init_msg_list => p_init_msg_list,
43 x_msg_count => x_msg_count,
44 x_msg_data => x_msg_data,
45 x_return_status => x_return_status,
46 p_rdsv_rec => p_rdsv_rec,
47 x_rdsv_rec => x_rdsv_rec);
48 --V
49 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
50 return;
51 end if;
52 end update_Revenue_Distr;
53
54
55
56
57 procedure delete_Revenue_Distr(p_api_version IN NUMBER,
58 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
59 x_return_status OUT NOCOPY VARCHAR2,
60 x_msg_count OUT NOCOPY NUMBER,
61 x_msg_data OUT NOCOPY VARCHAR2,
62 p_rdsv_rec IN rdsv_rec_type) is
63 begin
64 oks_rds_pvt.delete_row(p_api_version => p_api_version,
65 p_init_msg_list => p_init_msg_list,
66 x_msg_count => x_msg_count,
67 x_msg_data => x_msg_data,
68 x_return_status => x_return_status,
69 p_rdsv_rec => p_rdsv_rec);
70 --V
71 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
72 return;
73 end if;
74 exception
75 WHEN OTHERS THEN
76 NULL;
77 end delete_Revenue_Distr;
78
79
80 procedure lock_Revenue_Distr(p_api_version IN NUMBER,
81 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
82 x_return_status OUT NOCOPY VARCHAR2,
83 x_msg_count OUT NOCOPY NUMBER,
84 x_msg_data OUT NOCOPY VARCHAR2,
85 p_rdsv_rec IN rdsv_rec_type) is
86 begin
87 oks_rds_pvt.lock_row(p_api_version => p_api_version,
88 p_init_msg_list => p_init_msg_list,
89 x_msg_count => x_msg_count,
90 x_msg_data => x_msg_data,
91 x_return_status => x_return_status,
92 p_rdsv_rec => p_rdsv_rec);
93 end lock_Revenue_Distr;
94
95
96
97 procedure validate_Revenue_Distr(p_api_version IN NUMBER,
98 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
99 x_return_status OUT NOCOPY VARCHAR2,
100 x_msg_count OUT NOCOPY NUMBER,
101 x_msg_data OUT NOCOPY VARCHAR2,
102 p_rdsv_rec IN rdsv_rec_type) is
103 begin
104 oks_rds_pvt.validate_row(p_api_version => p_api_version,
105 p_init_msg_list => p_init_msg_list,
106 x_msg_count => x_msg_count,
107 x_msg_data => x_msg_data,
108 x_return_status => x_return_status,
109 p_rdsv_rec => p_rdsv_rec);
110 end validate_Revenue_Distr;
111
112
113 END OKS_REV_DISTR_PVT ;