[Home] [Help]
PACKAGE: APPS.OKC_CVM_PVT
Source
1 Package OKC_CVM_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKCSCVMS.pls 120.1 2006/05/24 23:05:31 tweichen noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6 -- Global transaction id
7 g_trans_id VARCHAR2(100) := 'XXX';
8
9 TYPE okc_k_vers_numbers_h_rec_type IS RECORD (
10 chr_id NUMBER := OKC_API.G_MISS_NUM,
11 major_version NUMBER := OKC_API.G_MISS_NUM,
12 minor_version NUMBER := OKC_API.G_MISS_NUM,
13 object_version_number NUMBER := OKC_API.G_MISS_NUM,
14 created_by NUMBER := OKC_API.G_MISS_NUM,
15 creation_date OKC_K_VERS_NUMBERS_H.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE,
16 last_updated_by NUMBER := OKC_API.G_MISS_NUM,
17 last_update_date OKC_K_VERS_NUMBERS_H.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
18 last_update_login NUMBER := OKC_API.G_MISS_NUM);
19 GMissOkcKVersNumbersHRec okc_k_vers_numbers_h_rec_type;
20 TYPE okc_k_vers_numbers_h_tbl_type IS TABLE OF okc_k_vers_numbers_h_rec_type
21 INDEX BY BINARY_INTEGER;
22 TYPE cvm_rec_type IS RECORD (
23 chr_id NUMBER := OKC_API.G_MISS_NUM,
24 major_version NUMBER := OKC_API.G_MISS_NUM,
25 minor_version NUMBER := OKC_API.G_MISS_NUM,
26 object_version_number NUMBER := OKC_API.G_MISS_NUM,
27 created_by NUMBER := OKC_API.G_MISS_NUM,
28 creation_date OKC_K_VERS_NUMBERS.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE,
29 last_updated_by NUMBER := OKC_API.G_MISS_NUM,
30 last_update_date OKC_K_VERS_NUMBERS.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
31 last_update_login NUMBER := OKC_API.G_MISS_NUM);
32 g_miss_cvm_rec cvm_rec_type;
33 TYPE cvm_tbl_type IS TABLE OF cvm_rec_type
34 INDEX BY BINARY_INTEGER;
35 TYPE cvmv_rec_type IS RECORD (
36 chr_id NUMBER := OKC_API.G_MISS_NUM,
37 object_version_number NUMBER := OKC_API.G_MISS_NUM,
38 major_version NUMBER := OKC_API.G_MISS_NUM,
39 minor_version NUMBER := OKC_API.G_MISS_NUM,
40 created_by NUMBER := OKC_API.G_MISS_NUM,
41 creation_date OKC_K_VERS_NUMBERS_V.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE,
42 last_updated_by NUMBER := OKC_API.G_MISS_NUM,
43 last_update_date OKC_K_VERS_NUMBERS_V.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
44 last_update_login NUMBER := OKC_API.G_MISS_NUM);
45 g_miss_cvmv_rec cvmv_rec_type;
46 TYPE cvmv_tbl_type IS TABLE OF cvmv_rec_type
47 INDEX BY BINARY_INTEGER;
48 ---------------------------------------------------------------------------
49 -- GLOBAL MESSAGE CONSTANTS
50 ---------------------------------------------------------------------------
51 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
52 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
53 G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
54 G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
55 G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
56 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
57 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
58 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
59 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
60 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
61 ---------------------------------------------------------------------------
62 -- GLOBAL VARIABLES
63 ---------------------------------------------------------------------------
64 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_CVM_PVT';
65 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
66 ---------------------------------------------------------------------------
67 -- Procedures and Functions
68 ---------------------------------------------------------------------------
69
70 PROCEDURE insert_row(
71 p_api_version IN NUMBER,
72 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
73 x_return_status OUT NOCOPY VARCHAR2,
74 x_msg_count OUT NOCOPY NUMBER,
75 x_msg_data OUT NOCOPY VARCHAR2,
76 p_cvmv_rec IN cvmv_rec_type,
77 x_cvmv_rec OUT NOCOPY cvmv_rec_type);
78
79 PROCEDURE lock_row(
80 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_cvmv_rec IN cvmv_rec_type);
86
87 PROCEDURE lock_row(
88 p_api_version IN NUMBER,
89 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
90 x_return_status OUT NOCOPY VARCHAR2,
91 x_msg_count OUT NOCOPY NUMBER,
92 x_msg_data OUT NOCOPY VARCHAR2,
93 p_cvmv_tbl IN cvmv_tbl_type);
94
95 PROCEDURE update_row(
96 p_api_version IN NUMBER,
97 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
98 x_return_status OUT NOCOPY VARCHAR2,
99 x_msg_count OUT NOCOPY NUMBER,
100 x_msg_data OUT NOCOPY VARCHAR2,
101 p_cvmv_rec IN cvmv_rec_type,
102 x_cvmv_rec OUT NOCOPY cvmv_rec_type);
103
104 PROCEDURE delete_row(
105 p_api_version IN NUMBER,
106 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
107 x_return_status OUT NOCOPY VARCHAR2,
108 x_msg_count OUT NOCOPY NUMBER,
109 x_msg_data OUT NOCOPY VARCHAR2,
110 p_cvmv_rec IN cvmv_rec_type);
111
112 PROCEDURE create_contract_version(
113 p_api_version IN NUMBER,
114 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
115 x_return_status OUT NOCOPY VARCHAR2,
116 x_msg_count OUT NOCOPY NUMBER,
117 x_msg_data OUT NOCOPY VARCHAR2,
118 p_cvmv_rec IN cvmv_rec_type,
119 x_cvmv_rec OUT NOCOPY cvmv_rec_type);
120
121
122 PROCEDURE update_contract_version(
123 p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2,
128 p_cvmv_rec IN cvmv_rec_type,
129 x_cvmv_rec OUT NOCOPY cvmv_rec_type);
130
131 PROCEDURE version_contract_version(
132 p_api_version IN NUMBER,
133 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
134 x_return_status OUT NOCOPY VARCHAR2,
135 x_msg_count OUT NOCOPY NUMBER,
136 x_msg_data OUT NOCOPY VARCHAR2,
137 p_cvmv_rec IN cvmv_rec_type,
138 x_cvmv_rec OUT NOCOPY cvmv_rec_type);
139
140 PROCEDURE delete_contract_version(
141 p_api_version IN NUMBER,
142 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
143 x_return_status OUT NOCOPY VARCHAR2,
144 x_msg_count OUT NOCOPY NUMBER,
145 x_msg_data OUT NOCOPY VARCHAR2,
146 p_cvmv_rec IN cvmv_rec_type);
147
148 PROCEDURE clear_g_transaction_id; --added for bug 3658108
149
150
151 /*
152 Bug 5218723, added this procedure to defer minor version update
153 in procedure update_contract_version.
154
155 If this procedure is called with param p_defer = 'T',
156 then subsequent calls to update_contract_version() will do nothing.
157
158 Calling modules should then call with param p_defer = 'F', before
159 calling update_contract_version() to update contract minor version
160
161 This is to resolve record locking issues in Bug 5218723. The default
162 value of param p_defer is equal to 'F', so that existing modules
163 are not impacted.
164
165 Param
166 p_defer : sets the update mode, valid values are 'T' and 'F'
167 */
168 PROCEDURE defer_minor_version_update(p_defer IN VARCHAR2 DEFAULT FND_API.G_FALSE);
169
170 /* Utility function for updating minor version of a contract */
171
172 FUNCTION Update_Minor_Version(p_chr_id IN NUMBER) RETURN VARCHAR2;
173
174 END OKC_CVM_PVT;