[Home] [Help]
PACKAGE BODY: APPS.OKC_VERSION_PUB
Source
1 package body okc_version_pub as
2 /* $Header: OKCPVERB.pls 120.0 2005/05/26 09:32:37 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5
6 PROCEDURE version_contract(
7 p_api_version IN NUMBER,
8 p_init_msg_list IN VARCHAR2 ,
9 x_return_status OUT NOCOPY VARCHAR2,
10 x_msg_count OUT NOCOPY NUMBER,
11 x_msg_data OUT NOCOPY VARCHAR2,
12 p_cvmv_rec IN cvmv_rec_type,
13 p_commit IN VARCHAR2 ,
14 x_cvmv_rec OUT NOCOPY cvmv_rec_type) IS
15
16 BEGIN
17 OKC_VERSION_PVT.version_contract(
18 p_api_version => p_api_version,
19 p_init_msg_list => p_init_msg_list,
20 x_return_status => x_return_status,
21 x_msg_count => x_msg_count,
22 x_msg_data => x_msg_data,
23 p_cvmv_rec => p_cvmv_rec,
24 p_commit => p_commit,
25 x_cvmv_rec => x_cvmv_rec);
26
27 END Version_Contract;
28
29 PROCEDURE version_contract(
30 p_api_version IN NUMBER,
31 p_init_msg_list IN VARCHAR2 ,
32 x_return_status OUT NOCOPY VARCHAR2,
33 x_msg_count OUT NOCOPY NUMBER,
34 x_msg_data OUT NOCOPY VARCHAR2,
35 p_cvmv_tbl IN cvmv_tbl_type,
36 p_commit IN VARCHAR2 ,
37 x_cvmv_tbl OUT NOCOPY cvmv_tbl_type) IS
38 i NUMBER := 0;
39 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
40
41 BEGIN
42 x_return_status := OKC_API.G_RET_STS_SUCCESS;
43 IF p_cvmv_tbl.COUNT > 0 THEN
44 i := p_cvmv_tbl.FIRST;
45 LOOP
46 version_contract(
47 p_api_version => p_api_version,
48 p_init_msg_list => p_init_msg_list,
49 x_return_status => l_return_status,
50 x_msg_count => x_msg_count,
51 x_msg_data => x_msg_data,
52 p_cvmv_rec => p_cvmv_tbl(i),
53 p_commit => p_commit,
54 x_cvmv_rec => x_cvmv_tbl(i));
55 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
56 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
57 x_return_status := l_return_status;
58 raise G_EXCEPTION_HALT_PROCESSING;
59 ELSE
60 x_return_status := l_return_status;
61 END IF;
62 END IF;
63 EXIT WHEN (i = p_cvmv_tbl.LAST);
64 i := p_cvmv_tbl.NEXT(i);
65 END LOOP;
66 END IF;
67 EXCEPTION
68 WHEN G_EXCEPTION_HALT_PROCESSING THEN
69 NULL;
70 WHEN OTHERS THEN
71 OKC_API.set_message(p_app_name => g_app_name,
72 p_msg_name => g_unexpected_error,
73 p_token1 => g_sqlcode_token,
74 p_token1_value => sqlcode,
75 p_token2 => g_sqlerrm_token,
76 p_token2_value => sqlerrm);
77 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
78 END Version_Contract;
79
80 PROCEDURE save_version(
81 p_chr_id IN NUMBER,
82 p_api_version IN NUMBER,
83 p_init_msg_list IN VARCHAR2 ,
84 x_return_status OUT NOCOPY VARCHAR2,
85 x_msg_count OUT NOCOPY NUMBER,
86 p_commit IN VARCHAR2 ,
87 x_msg_data OUT NOCOPY VARCHAR2) is
88 begin
89 okc_version_pvt.save_version(
90 p_chr_id => p_chr_id,
91 p_api_version => p_api_version,
92 p_init_msg_list => p_init_msg_list,
93 x_return_status => x_return_status,
94 x_msg_count => x_msg_count,
95 p_commit => p_commit,
96 x_msg_data => x_msg_data);
97 end;
98
99 PROCEDURE erase_saved_version(
100 p_chr_id IN NUMBER,
101 p_api_version IN NUMBER,
102 p_init_msg_list IN VARCHAR2 ,
103 x_return_status OUT NOCOPY VARCHAR2,
104 x_msg_count OUT NOCOPY NUMBER,
105 p_commit IN VARCHAR2 ,
106 x_msg_data OUT NOCOPY VARCHAR2) is
107 begin
108 okc_version_pvt.erase_saved_version(
109 p_chr_id => p_chr_id,
110 p_api_version => p_api_version,
111 p_init_msg_list => p_init_msg_list,
112 x_return_status => x_return_status,
113 x_msg_count => x_msg_count,
114 p_commit => p_commit,
115 x_msg_data => x_msg_data);
116 end;
117
118 PROCEDURE restore_version(
119 p_chr_id IN NUMBER,
120 p_api_version IN NUMBER,
121 p_init_msg_list IN VARCHAR2 ,
122 x_return_status OUT NOCOPY VARCHAR2,
123 x_msg_count OUT NOCOPY NUMBER,
124 p_commit IN VARCHAR2 ,
125 x_msg_data OUT NOCOPY VARCHAR2) is
126 begin
127 okc_version_pvt.restore_version(
128 p_chr_id => p_chr_id,
129 p_api_version => p_api_version,
130 p_init_msg_list => p_init_msg_list,
131 x_return_status => x_return_status,
132 x_msg_count => x_msg_count,
133 p_commit => p_commit,
134 x_msg_data => x_msg_data);
135 end;
136
137
138 END okc_version_pub;