[Home] [Help]
16: X_Created_By NUMBER,
17: X_Last_Update_Login NUMBER
18: ) IS
19:
20: CURSOR C1 IS SELECT rowid FROM qa_sampling_plans
21: WHERE sampling_plan_id = X_Sampling_Plan_id;
22:
23: CURSOR C2 IS SELECT qa_sampling_plan_s.nextval FROM dual;
24:
29: FETCH C2 INTO X_Sampling_Plan_id;
30: CLOSE C2;
31: end if;
32:
33: INSERT INTO QA_SAMPLING_PLANS(
34: sampling_plan_id,
35: sampling_plan_code,
36: description,
37: insp_level_code,
159: ) IS
160:
161: BEGIN
162:
163: UPDATE QA_SAMPLING_PLANS
164: SET
165: sampling_plan_id = X_Sampling_Plan_id,
166: sampling_plan_code = X_Sampling_Plan_Code,
167: description = X_Description,
246: ) IS
247:
248: CURSOR C IS
249: SELECT *
250: FROM QA_SAMPLING_PLANS
251: WHERE rowid = X_Rowid
252: FOR UPDATE of sampling_plan_id NOWAIT;
253:
254: Recinfo C%ROWTYPE;
373:
374: PROCEDURE delete_plan_header_row(X_Rowid VARCHAR2) IS
375:
376: BEGIN
377: delete from QA_SAMPLING_PLANS
378: where rowid = X_Rowid;
379:
380: if (SQL%NOTFOUND) then
381: Raise NO_DATA_FOUND;