[Home] [Help]
PACKAGE BODY: APPS.QA_PC_RESULTS_REL_PKG
Source
1 PACKAGE BODY QA_PC_RESULTS_REL_PKG as
2 /* $Header: qapcresb.pls 115.5 2003/08/26 13:55:41 rponnusa ship $ */
3 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
4 X_Parent_Plan_Id NUMBER,
5 X_Parent_Collection_Id NUMBER,
6 X_Parent_Occurrence NUMBER,
7 X_Child_Plan_Id NUMBER,
8 X_Child_Collection_Id NUMBER,
9 X_Child_Occurrence NUMBER,
10 X_Enabled_Flag NUMBER,
11 X_Last_Update_Date DATE,
12 X_Last_Updated_By NUMBER,
13 X_Creation_Date DATE,
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
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,
31 child_collection_id,
32 child_occurrence,
33 enabled_flag,
34 last_update_date,
35 last_updated_by,
36 creation_date,
37 created_by,
38 last_update_login,
39 child_txn_header_id
40 )VALUES(
41 X_Parent_Plan_Id,
42 X_Parent_Collection_Id,
43 X_Parent_Occurrence,
44 X_Child_Plan_Id,
45 X_Child_Collection_Id,
46 X_Child_Occurrence,
47 X_Enabled_Flag,
48 X_Last_Update_Date,
49 X_Last_Updated_By,
50 X_Creation_Date,
51 X_Created_By,
52 X_Last_Update_Login,
53 X_Child_Txn_Header_Id
54 );
55 OPEN C;
56 FETCH C INTO X_Rowid;
57 if (C%NOTFOUND) then
58 CLOSE C;
59 Raise NO_DATA_FOUND;
60 end if;
61 CLOSE C;
62 END Insert_Row;
63
64
65 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
66 X_Parent_Plan_Id NUMBER,
67 X_Parent_Collection_Id NUMBER,
68 X_Parent_Occurrence NUMBER,
69 X_Child_Plan_Id NUMBER,
70 X_Child_Collection_Id NUMBER,
71 X_Child_Occurrence NUMBER,
72 X_Enabled_Flag NUMBER,
73 X_Last_Update_Date DATE,
74 X_Last_Updated_By NUMBER,
75 X_Creation_Date DATE,
76 X_Created_By NUMBER,
77 X_Child_Txn_Header_Id NUMBER
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
87 BEGIN
88 OPEN C;
89 FETCH C INTO Recinfo;
90 if (C%NOTFOUND) then
91 CLOSE C;
92 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
93 APP_EXCEPTION.Raise_Exception;
94 end if;
95 CLOSE C;
96 if (
97 (Recinfo.parent_plan_id = X_Parent_Plan_Id)
98 AND (Recinfo.parent_collection_id = X_Parent_Collection_Id)
99 AND (Recinfo.parent_occurrence = X_Parent_Occurrence)
100 AND (Recinfo.child_plan_id = X_Child_Plan_Id)
101 AND (Recinfo.child_collection_id = X_Child_Collection_Id)
102 AND (Recinfo.child_occurrence = X_Child_Occurrence)
103 AND (Recinfo.enabled_flag = X_Enabled_Flag)
104 AND (Recinfo.last_update_date = X_Last_Update_Date)
105 AND (Recinfo.last_updated_by = X_Last_Updated_By)
106 AND (Recinfo.creation_date = X_Creation_Date)
107 AND (Recinfo.created_by = X_Created_By)
108 AND (Recinfo.child_txn_header_id = X_Child_Txn_Header_Id)
109 ) then
110 return;
111 else
112 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
113 APP_EXCEPTION.Raise_Exception;
114 end if;
115
116 END Lock_Row;
117
118 PROCEDURE Update_Row(X_Rowid VARCHAR2,
119 X_Parent_Plan_Id NUMBER,
120 X_Parent_Collection_Id NUMBER,
121 X_Parent_Occurrence NUMBER,
122 X_Child_Plan_Id NUMBER,
123 X_Child_Collection_Id NUMBER,
124 X_Child_Occurrence NUMBER,
125 X_Enabled_Flag NUMBER,
126 X_Last_Update_Date DATE,
127 X_Last_Updated_By NUMBER,
128 X_Creation_Date DATE,
129 X_Created_By NUMBER,
130 X_Last_Update_Login NUMBER,
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,
140 child_plan_id = X_Child_Plan_Id,
141 child_collection_id = X_Child_Collection_Id,
142 child_occurrence = X_Child_Occurrence,
143 enabled_flag = X_Enabled_Flag,
144 last_update_date = X_Last_Update_Date,
145 last_updated_by = X_Last_Updated_By,
146 creation_date = X_Creation_Date,
147 created_by = X_Created_By,
148 last_update_login = X_Last_Update_Login,
149 child_txn_header_id = X_Child_Txn_Header_Id
150 WHERE rowid = X_Rowid;
151
152 if (SQL%NOTFOUND) then
153 Raise NO_DATA_FOUND;
154 end if;
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;
164 end if;
165 END Delete_Row;
166
167
168 END QA_PC_RESULTS_REL_PKG;