[Home] [Help]
PACKAGE BODY: APPS.PA_PROJ_STRUCTURE_TYPES_PKG
Source
1 package body PA_PROJ_STRUCTURE_TYPES_PKG as
2 /*$Header: PAXPSTTB.pls 120.1 2005/08/19 17:18:23 mwasowic noship $*/
3
4 -- API name : insert_row
5 -- Type : Table Handlers
6 --
7 -- History
8 --
9 -- 25-JUN-01 HSIU -Created
10 --
11 --
12
13
14 procedure insert_row
15 (
16 X_ROWID IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
17 , X_PROJ_STRUCTURE_TYPE_ID IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
18 , X_PROJ_ELEMENT_ID NUMBER
19 , X_STRUCTURE_TYPE_ID NUMBER
20 , X_RECORD_VERSION_NUMBER NUMBER
21 , X_ATTRIBUTE_CATEGORY VARCHAR2
22 , X_ATTRIBUTE1 VARCHAR2
23 , X_ATTRIBUTE2 VARCHAR2
24 , X_ATTRIBUTE3 VARCHAR2
25 , X_ATTRIBUTE4 VARCHAR2
26 , X_ATTRIBUTE5 VARCHAR2
27 , X_ATTRIBUTE6 VARCHAR2
28 , X_ATTRIBUTE7 VARCHAR2
29 , X_ATTRIBUTE8 VARCHAR2
30 , X_ATTRIBUTE9 VARCHAR2
31 , X_ATTRIBUTE10 VARCHAR2
32 , X_ATTRIBUTE11 VARCHAR2
33 , X_ATTRIBUTE12 VARCHAR2
34 , X_ATTRIBUTE13 VARCHAR2
35 , X_ATTRIBUTE14 VARCHAR2
36 , X_ATTRIBUTE15 VARCHAR2
37 )
38 IS
39 cursor c is select rowid from pa_proj_structure_types
40 where proj_structure_type_id = X_PROJ_STRUCTURE_TYPE_ID;
41 cursor c2 is select pa_proj_structure_types_s.nextval from sys.dual;
42 BEGIN
43 if (X_PROJ_STRUCTURE_TYPE_ID IS NULL) then
44 open c2;
45 fetch c2 into X_PROJ_STRUCTURE_TYPE_ID;
46 close c2;
47 end if;
48
49 INSERT INTO PA_PROJ_STRUCTURE_TYPES(
50 PROJ_STRUCTURE_TYPE_ID
51 ,PROJ_ELEMENT_ID
52 ,STRUCTURE_TYPE_ID
53 ,CREATION_DATE
54 ,CREATED_BY
55 ,LAST_UPDATE_DATE
56 ,LAST_UPDATED_BY
57 ,LAST_UPDATE_LOGIN
58 ,RECORD_VERSION_NUMBER
59 ,ATTRIBUTE_CATEGORY
60 ,ATTRIBUTE1
61 ,ATTRIBUTE2
62 ,ATTRIBUTE3
63 ,ATTRIBUTE4
64 ,ATTRIBUTE5
65 ,ATTRIBUTE6
66 ,ATTRIBUTE7
67 ,ATTRIBUTE8
68 ,ATTRIBUTE9
69 ,ATTRIBUTE10
70 ,ATTRIBUTE11
71 ,ATTRIBUTE12
72 ,ATTRIBUTE13
73 ,ATTRIBUTE14
74 ,ATTRIBUTE15
75 ) VALUES (
76 X_PROJ_STRUCTURE_TYPE_ID
77 , X_PROJ_ELEMENT_ID
78 , X_STRUCTURE_TYPE_ID
79 , sysdate
80 , FND_GLOBAL.USER_ID
81 , sysdate
82 , FND_GLOBAL.USER_ID
83 , FND_GLOBAL.LOGIN_ID
84 , X_RECORD_VERSION_NUMBER
85 , X_ATTRIBUTE_CATEGORY
86 , X_ATTRIBUTE1
87 , X_ATTRIBUTE2
88 , X_ATTRIBUTE3
89 , X_ATTRIBUTE4
90 , X_ATTRIBUTE5
91 , X_ATTRIBUTE6
92 , X_ATTRIBUTE7
93 , X_ATTRIBUTE8
94 , X_ATTRIBUTE9
95 , X_ATTRIBUTE10
96 , X_ATTRIBUTE11
97 , X_ATTRIBUTE12
98 , X_ATTRIBUTE13
99 , X_ATTRIBUTE14
100 , X_ATTRIBUTE15
101 );
102
103 OPEN c;
104 FETCH c INTO X_ROWID;
105 if (C%NOTFOUND) then
106 CLOSE c;
107 Raise NO_DATA_FOUND;
108 end if;
109 CLOSE c;
110
111 END;
112
113
114
115 -- API name : update_row
116 -- Type : Table Handler
117 --
118 -- History
119 --
120 -- 25-JUN-01 HSIU -Created
121 --
122 --
123
124
125 procedure update_row
126 (
127 X_ROWID VARCHAR2
128 , X_PROJ_STRUCTURE_TYPE_ID NUMBER
129 , X_PROJ_ELEMENT_ID NUMBER
130 , X_STRUCTURE_TYPE_ID NUMBER
131 , X_RECORD_VERSION_NUMBER NUMBER
132 , X_ATTRIBUTE_CATEGORY VARCHAR2
133 , X_ATTRIBUTE1 VARCHAR2
134 , X_ATTRIBUTE2 VARCHAR2
135 , X_ATTRIBUTE3 VARCHAR2
136 , X_ATTRIBUTE4 VARCHAR2
137 , X_ATTRIBUTE5 VARCHAR2
138 , X_ATTRIBUTE6 VARCHAR2
139 , X_ATTRIBUTE7 VARCHAR2
140 , X_ATTRIBUTE8 VARCHAR2
141 , X_ATTRIBUTE9 VARCHAR2
142 , X_ATTRIBUTE10 VARCHAR2
143 , X_ATTRIBUTE11 VARCHAR2
144 , X_ATTRIBUTE12 VARCHAR2
145 , X_ATTRIBUTE13 VARCHAR2
146 , X_ATTRIBUTE14 VARCHAR2
147 , X_ATTRIBUTE15 VARCHAR2
148 )
149 IS
150 BEGIN
151 UPDATE PA_PROJ_STRUCTURE_TYPES
152 SET
153 PROJ_STRUCTURE_TYPE_ID = X_PROJ_STRUCTURE_TYPE_ID
154 , PROJ_ELEMENT_ID = X_PROJ_ELEMENT_ID
155 , STRUCTURE_TYPE_ID = X_STRUCTURE_TYPE_ID
156 , LAST_UPDATE_DATE = SYSDATE
157 , LAST_UPDATED_BY = FND_GLOBAL.USER_ID
158 , LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
159 , RECORD_VERSION_NUMBER = NVL(X_RECORD_VERSION_NUMBER,0) + 1
160 , ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY
161 , ATTRIBUTE1 = X_ATTRIBUTE1
162 , ATTRIBUTE2 = X_ATTRIBUTE2
163 , ATTRIBUTE3 = X_ATTRIBUTE3
164 , ATTRIBUTE4 = X_ATTRIBUTE4
165 , ATTRIBUTE5 = X_ATTRIBUTE5
166 , ATTRIBUTE6 = X_ATTRIBUTE6
167 , ATTRIBUTE7 = X_ATTRIBUTE7
168 , ATTRIBUTE8 = X_ATTRIBUTE8
169 , ATTRIBUTE9 = X_ATTRIBUTE9
170 , ATTRIBUTE10 = X_ATTRIBUTE10
171 , ATTRIBUTE11 = X_ATTRIBUTE11
172 , ATTRIBUTE12 = X_ATTRIBUTE12
173 , ATTRIBUTE13 = X_ATTRIBUTE13
174 , ATTRIBUTE14 = X_ATTRIBUTE14
175 , ATTRIBUTE15 = X_ATTRIBUTE15
176 WHERE rowid = X_ROWID;
177
178 if (SQL%NOTFOUND) then
179 Raise NO_DATA_FOUND;
180 end if;
181 END;
182
183
184 -- API name : delete_row
185 -- Type : Table Handler
186 --
187 -- History
188 --
189 -- 25-JUN-01 HSIU -Created
190 --
191 --
192
193
194 procedure delete_row
195 (
196 X_ROWID VARCHAR2
197 )
198 IS
199 BEGIN
200 DELETE FROM PA_PROJ_STRUCTURE_TYPES
201 WHERE ROWID = X_ROWID;
202
203 if (SQL%NOTFOUND) then
204 Raise NO_DATA_FOUND;
205 end if;
206 END;
207
208
209 end PA_PROJ_STRUCTURE_TYPES_PKG;