1: PACKAGE BODY QA_PC_CRITERIA_PKG as
2: /* $Header: qapccrib.pls 120.2 2005/12/19 04:12:54 srhariha noship $ */
3: PROCEDURE Insert_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
4: X_Criteria_Id IN OUT NOCOPY NUMBER,
5: X_Plan_Relationship_Id NUMBER,
14: X_Creation_Date DATE,
15: X_Created_By NUMBER,
16: X_Last_Update_Login NUMBER
17: ) IS
18: CURSOR C IS SELECT rowid FROM QA_PC_CRITERIA
19: WHERE criteria_id = X_Criteria_Id;
20: CURSOR C2 IS SELECT qa_pc_criteria_s.nextval FROM dual;
21: BEGIN
22: if (X_Criteria_Id is NULL) then
16: X_Last_Update_Login NUMBER
17: ) IS
18: CURSOR C IS SELECT rowid FROM QA_PC_CRITERIA
19: WHERE criteria_id = X_Criteria_Id;
20: CURSOR C2 IS SELECT qa_pc_criteria_s.nextval FROM dual;
21: BEGIN
22: if (X_Criteria_Id is NULL) then
23: OPEN C2;
24: FETCH C2 INTO X_Criteria_Id;
24: FETCH C2 INTO X_Criteria_Id;
25: CLOSE C2;
26: end if;
27:
28: INSERT INTO QA_PC_CRITERIA(
29: criteria_id,
30: plan_relationship_id,
31: char_id,
32: operator,
79:
80: ) IS
81: CURSOR C IS
82: SELECT *
83: FROM QA_PC_CRITERIA
84: WHERE rowid = X_Rowid
85: FOR UPDATE of Criteria_Id NOWAIT;
86: Recinfo C%ROWTYPE;
87:
139: X_Created_By NUMBER,
140: X_Last_Update_Login NUMBER
141: ) IS
142: BEGIN
143: UPDATE QA_PC_CRITERIA
144: SET
145: criteria_id = X_Criteria_Id ,
146: plan_relationship_id = X_Plan_Relationship_Id ,
147: char_id = X_Char_Id,
163: END Update_Row;
164:
165: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
166: BEGIN
167: DELETE FROM QA_PC_CRITERIA
168: WHERE rowid = X_Rowid;
169:
170: if (SQL%NOTFOUND) then
171: Raise NO_DATA_FOUND;
171: Raise NO_DATA_FOUND;
172: end if;
173: END Delete_Row;
174:
175: END QA_PC_CRITERIA_PKG;