[Home] [Help]
PACKAGE: APPS.OKL_SVC_PVT
Source
1 PACKAGE OKL_SVC_PVT AS
2 /* $Header: OKLSSVCS.pls 120.0 2005/11/30 17:18:23 stmathew noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_SVC_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(30) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_USER_ID CONSTANT NUMBER := FND_GLOBAL.USER_ID;
11 G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.LOGIN_ID;
12 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17 G_DB_ERROR CONSTANT VARCHAR2(30) := 'OKL_DB_ERROR';
18 G_COL_ERROR CONSTANT VARCHAR2(30) := 'OKL_COL_ERROR';
19 G_OVN_ERROR CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR';
20 G_OVN_ERROR2 CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR2';
21 G_OVN_ERROR3 CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR3';
22 G_PKG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PKG_NAME';
23 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PROG_NAME';
24 G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := 'COL_NAME';
25 G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'SQLCODE';
26 G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'SQLERRM';
27
28 ------------------
29 -- DATA STRUCTURES
30 ------------------
31
32 -- Do not include WHO columns in the base table record structure
33 TYPE svc_rec_type IS RECORD (
34 id okl_services_b.id%TYPE
35 ,object_version_number okl_services_b.object_version_number%TYPE
36 ,attribute_category okl_services_b.attribute_category%TYPE
37 ,attribute1 okl_services_b.attribute1%TYPE
38 ,attribute2 okl_services_b.attribute2%TYPE
39 ,attribute3 okl_services_b.attribute3%TYPE
40 ,attribute4 okl_services_b.attribute4%TYPE
41 ,attribute5 okl_services_b.attribute5%TYPE
42 ,attribute6 okl_services_b.attribute6%TYPE
43 ,attribute7 okl_services_b.attribute7%TYPE
44 ,attribute8 okl_services_b.attribute8%TYPE
45 ,attribute9 okl_services_b.attribute9%TYPE
46 ,attribute10 okl_services_b.attribute10%TYPE
47 ,attribute11 okl_services_b.attribute11%TYPE
48 ,attribute12 okl_services_b.attribute12%TYPE
49 ,attribute13 okl_services_b.attribute13%TYPE
50 ,attribute14 okl_services_b.attribute14%TYPE
51 ,attribute15 okl_services_b.attribute15%TYPE
52 ,inv_item_id okl_services_b.inv_item_id%TYPE
53 ,parent_object_code okl_services_b.parent_object_code%TYPE
54 ,parent_object_id okl_services_b.parent_object_id%TYPE
55 ,effective_from okl_services_b.effective_from%TYPE
56 ,supplier_id okl_services_b.supplier_id%TYPE
57 );
58
59 -- Do not include WHO, LANGUAGE and SFWT_FLAG columns in the _TL record structure
60 TYPE svctl_rec_type IS RECORD (
61 id okl_services_tl.id%TYPE
62 ,short_description okl_services_tl.short_description%TYPE
63 ,description okl_services_tl.description%TYPE
64 ,comments okl_services_tl.comments%TYPE
65 );
66
67 -- view record structure
68 TYPE svcv_rec_type IS RECORD (
69 id okl_services_b.id%TYPE
70 ,object_version_number okl_services_b.object_version_number%TYPE
71 ,attribute_category okl_services_b.attribute_category%TYPE
72 ,attribute1 okl_services_b.attribute1%TYPE
73 ,attribute2 okl_services_b.attribute2%TYPE
74 ,attribute3 okl_services_b.attribute3%TYPE
75 ,attribute4 okl_services_b.attribute4%TYPE
76 ,attribute5 okl_services_b.attribute5%TYPE
77 ,attribute6 okl_services_b.attribute6%TYPE
78 ,attribute7 okl_services_b.attribute7%TYPE
79 ,attribute8 okl_services_b.attribute8%TYPE
80 ,attribute9 okl_services_b.attribute9%TYPE
81 ,attribute10 okl_services_b.attribute10%TYPE
82 ,attribute11 okl_services_b.attribute11%TYPE
83 ,attribute12 okl_services_b.attribute12%TYPE
84 ,attribute13 okl_services_b.attribute13%TYPE
85 ,attribute14 okl_services_b.attribute14%TYPE
86 ,attribute15 okl_services_b.attribute15%TYPE
87 ,inv_item_id okl_services_b.inv_item_id%TYPE
88 ,parent_object_code okl_services_b.parent_object_code%TYPE
89 ,parent_object_id okl_services_b.parent_object_id%TYPE
90 ,effective_from okl_services_b.effective_from%TYPE
91 ,supplier_id okl_services_b.supplier_id%TYPE
92 ,short_description okl_services_tl.short_description%TYPE
93 ,description okl_services_tl.description%TYPE
94 ,comments okl_services_tl.comments%TYPE
95 );
96
97 TYPE svcv_tbl_type IS TABLE OF svcv_rec_type INDEX BY BINARY_INTEGER;
98
99 ----------------
100 -- PROGRAM UNITS
101 ----------------
102 PROCEDURE add_language;
103
104 PROCEDURE insert_row(
105 p_api_version IN NUMBER,
106 p_init_msg_list IN VARCHAR2,
107 x_return_status OUT NOCOPY VARCHAR2,
108 x_msg_count OUT NOCOPY NUMBER,
109 x_msg_data OUT NOCOPY VARCHAR2,
110 p_svcv_tbl IN svcv_tbl_type,
111 x_svcv_tbl OUT NOCOPY svcv_tbl_type);
112
113 PROCEDURE update_row(
114 p_api_version IN NUMBER,
115 p_init_msg_list IN VARCHAR2,
116 x_return_status OUT NOCOPY VARCHAR2,
117 x_msg_count OUT NOCOPY NUMBER,
118 x_msg_data OUT NOCOPY VARCHAR2,
119 p_svcv_tbl IN svcv_tbl_type,
120 x_svcv_tbl OUT NOCOPY svcv_tbl_type);
121
122 PROCEDURE delete_row(
123 p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2,
128 p_svcv_tbl IN svcv_tbl_type);
129
130 PROCEDURE insert_row(
131 p_api_version IN NUMBER,
132 p_init_msg_list IN VARCHAR2,
133 x_return_status OUT NOCOPY VARCHAR2,
134 x_msg_count OUT NOCOPY NUMBER,
135 x_msg_data OUT NOCOPY VARCHAR2,
136 p_svcv_rec IN svcv_rec_type,
137 x_svcv_rec OUT NOCOPY svcv_rec_type);
138
139 PROCEDURE update_row(
140 p_api_version IN NUMBER,
141 p_init_msg_list IN VARCHAR2,
142 x_return_status OUT NOCOPY VARCHAR2,
143 x_msg_count OUT NOCOPY NUMBER,
144 x_msg_data OUT NOCOPY VARCHAR2,
145 p_svcv_rec IN svcv_rec_type,
146 x_svcv_rec OUT NOCOPY svcv_rec_type);
147
148 PROCEDURE delete_row(
149 p_api_version IN NUMBER,
150 p_init_msg_list IN VARCHAR2,
151 x_return_status OUT NOCOPY VARCHAR2,
152 x_msg_count OUT NOCOPY NUMBER,
153 x_msg_data OUT NOCOPY VARCHAR2,
154 p_svcv_rec IN svcv_rec_type);
155
156 END OKL_SVC_PVT;