[Home] [Help]
PACKAGE BODY: APPS.CS_TP_LOOKUPS_PKG
Source
1 package body CS_TP_LOOKUPS_PKG as
2 /* $Header: cstplokb.pls 115.4 2002/12/04 03:15:59 wzli noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_LOOKUP_ID in NUMBER,
6 X_LOOKUP_TYPE in VARCHAR2,
7 X_DEFAULT_VALUE in VARCHAR2,
8 X_CREATION_DATE in DATE,
9 X_CREATED_BY in NUMBER,
10 X_LAST_UPDATE_DATE in DATE,
11 X_LAST_UPDATED_BY in NUMBER,
12 X_LAST_UPDATE_LOGIN in NUMBER,
13 X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
14 X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
15 X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
16 X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
17 X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
18 X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
19 X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
20 X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
21 X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
22 X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
23 X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
24 X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
25 X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
26 X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
27 X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
28 X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
29 X_START_DATE_ACTIVE in DATE,
30 X_END_DATE_ACTIVE in DATE
31 )
32 is
33 cursor c is SELECT ROWID from CS_TP_LOOKUPS
34 where LOOKUP_ID = X_LOOKUP_ID;
35
36 begin
37 insert into CS_TP_LOOKUPS (
38 LOOKUP_ID ,
39 LOOKUP_TYPE ,
40 DEFAULT_VALUE ,
41 CREATION_DATE ,
42 CREATED_BY ,
43 LAST_UPDATE_DATE ,
44 LAST_UPDATED_BY ,
45 LAST_UPDATE_LOGIN ,
46 ATTRIBUTE_CATEGORY ,
47 ATTRIBUTE1 ,
48 ATTRIBUTE2 ,
49 ATTRIBUTE3 ,
50 ATTRIBUTE4 ,
51 ATTRIBUTE5 ,
52 ATTRIBUTE6 ,
53 ATTRIBUTE7 ,
54 ATTRIBUTE8 ,
55 ATTRIBUTE9 ,
56 ATTRIBUTE10 ,
57 ATTRIBUTE11 ,
58 ATTRIBUTE12 ,
59 ATTRIBUTE13 ,
60 ATTRIBUTE14 ,
61 ATTRIBUTE15 ,
62 START_DATE_ACTIVE ,
63 END_DATE_ACTIVE )
64 values (
65 X_LOOKUP_ID ,
66 X_LOOKUP_TYPE ,
67 X_DEFAULT_VALUE ,
68 X_CREATION_DATE ,
69 X_CREATED_BY ,
70 X_LAST_UPDATE_DATE ,
71 X_LAST_UPDATED_BY ,
72 X_LAST_UPDATE_LOGIN ,
73 X_ATTRIBUTE_CATEGORY ,
74 X_ATTRIBUTE1 ,
75 X_ATTRIBUTE2 ,
76 X_ATTRIBUTE3 ,
77 X_ATTRIBUTE4 ,
78 X_ATTRIBUTE5 ,
79 X_ATTRIBUTE6 ,
80 X_ATTRIBUTE7 ,
81 X_ATTRIBUTE8 ,
82 X_ATTRIBUTE9 ,
83 X_ATTRIBUTE10 ,
84 X_ATTRIBUTE11 ,
85 X_ATTRIBUTE12 ,
86 X_ATTRIBUTE13 ,
87 X_ATTRIBUTE14 ,
88 X_ATTRIBUTE15 ,
89 X_START_DATE_ACTIVE ,
90 X_END_DATE_ACTIVE );
91
92 open c;
93 fetch c into X_ROWID;
94 if (c%notfound) then
95 close c;
96 raise no_data_found;
97 end if;
98 close c;
99
100 end INSERT_ROW;
101
102
103
104 procedure UPDATE_ROW (
105 X_ROWID in out NOCOPY VARCHAR2,
106 X_LOOKUP_ID in NUMBER,
107 X_LOOKUP_TYPE in VARCHAR2,
108 X_DEFAULT_VALUE in VARCHAR2,
109 X_CREATION_DATE in DATE,
110 X_CREATED_BY in NUMBER,
111 X_LAST_UPDATE_DATE in DATE,
112 X_LAST_UPDATED_BY in NUMBER,
113 X_LAST_UPDATE_LOGIN in NUMBER,
114 X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
115 X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
116 X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
117 X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
118 X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
119 X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
120 X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
121 X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
122 X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
123 X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
124 X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
125 X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
126 X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
127 X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
128 X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
129 X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
130 X_START_DATE_ACTIVE in DATE,
131 X_END_DATE_ACTIVE in DATE
132 ) is
133 begin
134 update CS_TP_LOOKUPS set
135
136 LOOKUP_TYPE = X_LOOKUP_TYPE,
137 DEFAULT_VALUE = X_DEFAULT_VALUE,
138 CREATION_DATE = X_CREATION_DATE,
139 CREATED_BY = X_CREATED_BY,
140 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
141 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
142 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
143 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
144 ATTRIBUTE1 = X_ATTRIBUTE1,
145 ATTRIBUTE2 = X_ATTRIBUTE2,
146 ATTRIBUTE3 = X_ATTRIBUTE3,
147 ATTRIBUTE4 = X_ATTRIBUTE4,
148 ATTRIBUTE5 = X_ATTRIBUTE5,
149 ATTRIBUTE6 =X_ATTRIBUTE6,
150 ATTRIBUTE7 = X_ATTRIBUTE7,
151 ATTRIBUTE8 = X_ATTRIBUTE8,
152 ATTRIBUTE9 = X_ATTRIBUTE9,
153 ATTRIBUTE10 = X_ATTRIBUTE10,
154 ATTRIBUTE11 = X_ATTRIBUTE11,
155 ATTRIBUTE12 = X_ATTRIBUTE12,
156 ATTRIBUTE13 = X_ATTRIBUTE13,
157 ATTRIBUTE14 = X_ATTRIBUTE14,
158 ATTRIBUTE15 = X_ATTRIBUTE15,
159 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
160 END_DATE_ACTIVE = X_END_DATE_ACTIVE
161 where LOOKUP_ID = X_LOOKUP_ID;
162 if (sql%notfound) then
163 raise no_data_found;
164 end if;
165 end UPDATE_ROW;
166
167 procedure DELETE_ROW (
168 X_LOOKUP_ID in NUMBER
169 ) is
170 begin
171 delete from CS_TP_LOOKUPS where
172 LOOKUP_ID = X_LOOKUP_ID;
173
174 if (sql%notfound) then
175 raise no_data_found;
176 end if;
177 end DELETE_ROW;
178
179 end CS_TP_LOOKUPS_PKG;