14: X_Created_By NUMBER,
15: X_Last_Update_Login NUMBER,
16: X_Child_Txn_Header_Id NUMBER
17: ) IS
18: CURSOR C IS SELECT rowid FROM QA_PC_RESULTS_RELATIONSHIP
19: WHERE parent_plan_id = X_Parent_Plan_Id
20: AND parent_collection_id = X_Parent_Collection_Id
21: AND parent_occurrence = X_Parent_Occurrence
22: AND child_plan_id = X_Child_Plan_Id
22: AND child_plan_id = X_Child_Plan_Id
23: AND child_collection_id = X_Child_Collection_Id
24: AND child_occurrence = X_Child_Occurrence;
25: BEGIN
26: INSERT INTO QA_PC_RESULTS_RELATIONSHIP(
27: parent_plan_id,
28: parent_collection_id,
29: parent_occurrence,
30: child_plan_id,
78:
79: ) IS
80: CURSOR C IS
81: SELECT *
82: FROM QA_PC_RESULTS_RELATIONSHIP
83: WHERE rowid = X_Rowid
84: FOR UPDATE of Child_Occurrence NOWAIT;
85: Recinfo C%ROWTYPE;
86:
131: X_Child_Txn_Header_Id NUMBER
132:
133: ) IS
134: BEGIN
135: UPDATE QA_PC_RESULTS_RELATIONSHIP
136: SET
137: parent_plan_id = X_Parent_Plan_Id,
138: parent_collection_id = X_Parent_Collection_Id,
139: parent_occurrence = X_Parent_Occurrence,
155: END Update_Row;
156:
157: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
158: BEGIN
159: DELETE FROM QA_PC_RESULTS_RELATIONSHIP
160: WHERE rowid = X_Rowid;
161:
162: if (SQL%NOTFOUND) then
163: Raise NO_DATA_FOUND;