[Home] [Help]
PACKAGE BODY: APPS.CHV_SCH_HEADERS_PKG_S1
Source
1 PACKAGE BODY CHV_SCH_HEADERS_PKG_S1 as
2 /* $Header: CHVSHDRB.pls 115.0 99/07/17 01:31:05 porting ship $ */
3
4 /*=============================================================================
5
6 PROCEDURE NAME: lock_row()
7
8 =============================================================================*/
9 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
10 X_Schedule_Id NUMBER,
11 X_Vendor_Id NUMBER,
12 X_Vendor_Site_Id NUMBER,
13 X_Schedule_Type VARCHAR2,
14 X_Schedule_Subtype VARCHAR2,
15 X_Schedule_Num VARCHAR2,
16 X_Schedule_Revision NUMBER,
17 X_Schedule_Horizon_Start DATE,
18 X_Schedule_Horizon_End DATE,
19 X_Bucket_Pattern_Id NUMBER,
20 X_Schedule_Owner_Id NUMBER,
21 X_Organization_Id NUMBER,
22 X_MPS_Schedule_Designator VARCHAR2,
23 X_MRP_Compile_Designator VARCHAR2,
24 X_DRP_Compile_Designator VARCHAR2,
25 X_Schedule_Status VARCHAR2,
26 X_Inquiry_Flag VARCHAR2,
27 X_Attribute_Category VARCHAR2,
28 X_Attribute1 VARCHAR2,
29 X_Attribute2 VARCHAR2,
30 X_Attribute3 VARCHAR2,
31 X_Attribute4 VARCHAR2,
32 X_Attribute5 VARCHAR2,
33 X_Attribute6 VARCHAR2,
34 X_Attribute7 VARCHAR2,
35 X_Attribute8 VARCHAR2,
36 X_Attribute9 VARCHAR2,
37 X_Attribute10 VARCHAR2,
38 X_Attribute11 VARCHAR2,
39 X_Attribute12 VARCHAR2,
40 X_Attribute13 VARCHAR2,
41 X_Attribute14 VARCHAR2,
42 X_Attribute15 VARCHAR2
43 ) IS
44 CURSOR C IS
45 SELECT *
46 FROM CHV_SCHEDULE_HEADERS
47 WHERE rowid = X_Rowid
48 FOR UPDATE of Schedule_Id NOWAIT;
49 Hdrrec C%ROWTYPE;
50 BEGIN
51 OPEN C;
52 FETCH C INTO Hdrrec;
53 if (C%NOTFOUND) then
54 CLOSE C;
55 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
56 APP_EXCEPTION.Raise_Exception;
57 end if;
58 CLOSE C;
59 if (
60 (Hdrrec.schedule_id = X_Schedule_Id)
61 AND (Hdrrec.vendor_id = X_Vendor_Id)
62 AND (Hdrrec.vendor_site_id = X_Vendor_site_Id)
63 AND (Hdrrec.schedule_type = X_schedule_type)
64 AND (Hdrrec.schedule_subtype = X_schedule_subtype)
65 AND (Hdrrec.schedule_horizon_start = X_schedule_horizon_start)
66 AND (Hdrrec.schedule_horizon_end = X_schedule_horizon_end)
67 AND (Hdrrec.bucket_pattern_id = X_bucket_pattern_id)
68 AND (Hdrrec.schedule_owner_id = X_Schedule_owner_id)
69 AND ( (Hdrrec.schedule_num = X_schedule_num)
70 OR ( (Hdrrec.schedule_num IS NULL)
71 AND (X_schedule_num IS NULL)))
72 AND ( (Hdrrec.schedule_revision = X_schedule_revision)
73 OR ( (Hdrrec.schedule_revision IS NULL)
74 AND (X_schedule_revision IS NULL)))
75 AND ( (Hdrrec.organization_id = X_organization_id)
76 OR ( (Hdrrec.organization_id IS NULL)
77 AND (X_organization_id IS NULL)))
78 AND ( (Hdrrec.mrp_compile_designator =
79 X_Mrp_Compile_Designator)
80 OR ( (Hdrrec.mrp_compile_designator IS NULL)
81 AND (X_Mrp_Compile_Designator IS NULL)))
82 AND ( (Hdrrec.mps_schedule_designator =
83 X_Mps_Schedule_Designator)
84 OR ( (Hdrrec.mps_Schedule_designator IS NULL)
85 AND (X_Mps_Schedule_Designator IS NULL)))
86 AND ( (Hdrrec.drp_compile_designator =
87 X_Drp_Compile_Designator)
88 OR ( (Hdrrec.drp_compile_designator IS NULL)
89 AND (X_Drp_Compile_Designator IS NULL)))
90 AND ( (Hdrrec.schedule_status = X_schedule_status)
91 OR ( (Hdrrec.schedule_status IS NULL)
92 AND (X_schedule_status IS NULL)))
93 AND ( (Hdrrec.inquiry_flag = X_inquiry_flag)
94 OR ( (Hdrrec.inquiry_flag IS NULL)
95 AND (X_inquiry_flag IS NULL)))
96 AND ( (Hdrrec.attribute_category = X_Attribute_Category)
97 OR ( (Hdrrec.attribute_category IS NULL)
98 AND (X_Attribute_Category IS NULL)))
99 AND ( (Hdrrec.attribute1 = X_Attribute1)
100 OR ( (Hdrrec.attribute1 IS NULL)
101 AND (X_Attribute1 IS NULL)))
102 AND ( (Hdrrec.attribute2 = X_Attribute2)
103 OR ( (Hdrrec.attribute2 IS NULL)
104 AND (X_Attribute2 IS NULL)))
105 AND ( (Hdrrec.attribute3 = X_Attribute3)
106 OR ( (Hdrrec.attribute3 IS NULL)
107 AND (X_Attribute3 IS NULL)))
108 AND ( (Hdrrec.attribute4 = X_Attribute4)
109 OR ( (Hdrrec.attribute4 IS NULL)
110 AND (X_Attribute4 IS NULL)))
111 AND ( (Hdrrec.attribute5 = X_Attribute5)
112 OR ( (Hdrrec.attribute5 IS NULL)
113 AND (X_Attribute5 IS NULL)))
114 AND ( (Hdrrec.attribute6 = X_Attribute6)
115 OR ( (Hdrrec.attribute6 IS NULL)
116 AND (X_Attribute6 IS NULL)))
117 AND ( (Hdrrec.attribute7 = X_Attribute7)
118 OR ( (Hdrrec.attribute7 IS NULL)
119 AND (X_Attribute7 IS NULL)))
120 AND ( (Hdrrec.attribute8 = X_Attribute8)
121 OR ( (Hdrrec.attribute8 IS NULL)
122 AND (X_Attribute8 IS NULL)))
123 AND ( (Hdrrec.attribute9 = X_Attribute9)
124 OR ( (Hdrrec.attribute9 IS NULL)
125 AND (X_Attribute9 IS NULL)))
126 AND ( (Hdrrec.attribute10 = X_Attribute10)
127 OR ( (Hdrrec.attribute10 IS NULL)
128 AND (X_Attribute10 IS NULL)))
129 AND ( (Hdrrec.attribute11 = X_Attribute11)
130 OR ( (Hdrrec.attribute11 IS NULL)
131 AND (X_Attribute11 IS NULL)))
132 AND ( (Hdrrec.attribute12 = X_Attribute12)
133 OR ( (Hdrrec.attribute12 IS NULL)
134 AND (X_Attribute12 IS NULL)))
135 AND ( (Hdrrec.attribute13 = X_Attribute13)
136 OR ( (Hdrrec.attribute13 IS NULL)
137 AND (X_Attribute13 IS NULL)))
138 AND ( (Hdrrec.attribute14 = X_Attribute14)
139 OR ( (Hdrrec.attribute14 IS NULL)
140 AND (X_Attribute14 IS NULL)))
141 AND ( (Hdrrec.attribute15 = X_Attribute15)
142 OR ( (Hdrrec.attribute15 IS NULL)
143 AND (X_Attribute15 IS NULL)))
144 ) then
145 return;
146 else
147 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
148 APP_EXCEPTION.RAISE_EXCEPTION;
149 end if;
150 END Lock_Row;
151
152 /*=============================================================================
153
154 PROCEDURE NAME: update_row()
155
156 =============================================================================*/
157
158 PROCEDURE Update_Row(X_Rowid VARCHAR2,
159 X_Schedule_Num VARCHAR2,
160 X_Schedule_Status VARCHAR2,
161 X_Last_Update_Date DATE,
162 X_Last_Updated_By NUMBER,
163 X_Last_Update_Login NUMBER,
164 X_Attribute_Category VARCHAR2,
165 X_Attribute1 VARCHAR2,
166 X_Attribute2 VARCHAR2,
167 X_Attribute3 VARCHAR2,
168 X_Attribute4 VARCHAR2,
169 X_Attribute5 VARCHAR2,
170 X_Attribute6 VARCHAR2,
171 X_Attribute7 VARCHAR2,
172 X_Attribute8 VARCHAR2,
173 X_Attribute9 VARCHAR2,
174 X_Attribute10 VARCHAR2,
175 X_Attribute11 VARCHAR2,
176 X_Attribute12 VARCHAR2,
177 X_Attribute13 VARCHAR2,
178 X_Attribute14 VARCHAR2,
179 X_Attribute15 VARCHAR2
180 ) IS
181
182 BEGIN
183
184 UPDATE CHV_SCHEDULE_HEADERS
185 SET
186 schedule_num = X_Schedule_num,
187 schedule_status = X_Schedule_status,
188 last_update_date = X_Last_Update_Date,
189 last_updated_by = X_Last_Updated_By,
190 last_update_login = X_Last_Update_Login,
191 attribute_category = X_Attribute_Category,
192 attribute1 = X_Attribute1,
193 attribute2 = X_Attribute2,
194 attribute3 = X_Attribute3,
195 attribute4 = X_Attribute4,
196 attribute5 = X_Attribute5,
197 attribute6 = X_Attribute6,
198 attribute7 = X_Attribute7,
199 attribute8 = X_Attribute8,
200 attribute9 = X_Attribute9,
201 attribute10 = X_Attribute10,
202 attribute11 = X_Attribute11,
203 attribute12 = X_Attribute12,
204 attribute13 = X_Attribute13,
205 attribute14 = X_Attribute14,
206 attribute15 = X_Attribute15
207 WHERE rowid = X_rowid ;
208
209 if (SQL%NOTFOUND) then
210 Raise NO_DATA_FOUND;
211 end if;
212
213 END Update_Row;
214
215 /*===========================================================================
216
217 PROCEDURE NAME: delete_row()
218
219 =============================================================================*/
220 PROCEDURE delete_row(X_RowId VARCHAR2,
221 X_Schedule_Id NUMBER
222 ) IS
223
224 BEGIN
225
226 /* Execute Procedure to delete items associated with this
227 ** schedule header.
228 */
229
230 CHV_SCHEDULE_ITEMS_PKG_S1.delete_row2(X_Schedule_Id) ;
231
232 /* Delete the schedule headers table based on the
233 ** Row_Id
234 */
235
236 DELETE FROM chv_schedule_headers
237 WHERE rowid = X_Rowid ;
238
239
240 if (SQL%NOTFOUND) then
241 Raise NO_DATA_FOUND ;
242 end if ;
243
244 END delete_row ;
245
246 END CHV_SCH_HEADERS_PKG_S1;