1 PACKAGE BODY PO_REQUISITION_LINES_PKG6 as
2 /* $Header: POXRIL6B.pls 120.1 2005/06/02 06:49:36 appldev $ */
3
4
5 PROCEDURE Lock5_Row(X_Rowid VARCHAR2,
6 X_Attribute7 VARCHAR2,
7 X_Attribute8 VARCHAR2,
8 X_Attribute9 VARCHAR2,
9 X_Attribute10 VARCHAR2,
10 X_Attribute11 VARCHAR2,
11 X_Attribute12 VARCHAR2,
12 X_Attribute13 VARCHAR2,
13 X_Attribute14 VARCHAR2,
14 X_Attribute15 VARCHAR2,
15 X_Bom_Resource_Id NUMBER,
16 X_Ussgl_Transaction_Code VARCHAR2,
17 X_Government_Context VARCHAR2,
18 X_Closed_Reason VARCHAR2,
19 X_Closed_Date DATE,
20 X_Transaction_Reason_Code VARCHAR2,
21 X_Quantity_Received NUMBER
22 ) IS
23
24 CURSOR C IS
25 SELECT *
26 FROM PO_REQUISITION_LINES
27 WHERE rowid = X_Rowid
28 FOR UPDATE of Requisition_Line_Id NOWAIT;
29
30 Recinfo C%ROWTYPE;
31 BEGIN
32 OPEN C;
33 FETCH C INTO Recinfo;
34 if (C%NOTFOUND) then
35 CLOSE C;
36 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
37 APP_EXCEPTION.Raise_Exception;
38 end if;
39 CLOSE C;
40
41 if (
42 ( (Recinfo.attribute7 = X_Attribute7)
43 OR ( (Recinfo.attribute7 IS NULL)
44 AND (X_Attribute7 IS NULL)))
45 AND ( (Recinfo.attribute8 = X_Attribute8)
46 OR ( (Recinfo.attribute8 IS NULL)
47 AND (X_Attribute8 IS NULL)))
48 AND ( (Recinfo.attribute9 = X_Attribute9)
49 OR ( (Recinfo.attribute9 IS NULL)
50 AND (X_Attribute9 IS NULL)))
51 AND ( (Recinfo.attribute10 = X_Attribute10)
52 OR ( (Recinfo.attribute10 IS NULL)
53 AND (X_Attribute10 IS NULL)))
54 AND ( (Recinfo.attribute11 = X_Attribute11)
55 OR ( (Recinfo.attribute11 IS NULL)
56 AND (X_Attribute11 IS NULL)))
57 AND ( (Recinfo.attribute12 = X_Attribute12)
58 OR ( (Recinfo.attribute12 IS NULL)
59 AND (X_Attribute12 IS NULL)))
60 AND ( (Recinfo.attribute13 = X_Attribute13)
61 OR ( (Recinfo.attribute13 IS NULL)
62 AND (X_Attribute13 IS NULL)))
63 AND ( (Recinfo.attribute14 = X_Attribute14)
64 OR ( (Recinfo.attribute14 IS NULL)
65 AND (X_Attribute14 IS NULL)))
66 AND ( (Recinfo.attribute15 = X_Attribute15)
67 OR ( (Recinfo.attribute15 IS NULL)
68 AND (X_Attribute15 IS NULL)))
69 AND ( (Recinfo.bom_resource_id = X_Bom_Resource_Id)
70 OR ( (Recinfo.bom_resource_id IS NULL)
71 AND (X_Bom_Resource_Id IS NULL)))
72 AND ( (Recinfo.government_context = X_Government_Context)
73 OR ( (Recinfo.government_context IS NULL)
74 AND (X_Government_Context IS NULL)))
75 AND ( (Recinfo.closed_reason = X_Closed_Reason)
76 OR ( (Recinfo.closed_reason IS NULL)
77 AND (X_Closed_Reason IS NULL)))
78 AND ( (Recinfo.closed_date = X_Closed_Date)
79 OR ( (Recinfo.closed_date IS NULL)
80 AND (X_Closed_Date IS NULL)))
81 AND ( (Recinfo.transaction_reason_code = X_Transaction_Reason_Code)
82 OR ( (Recinfo.transaction_reason_code IS NULL)
83 AND (X_Transaction_Reason_Code IS NULL)))
84 AND
85 ( (Recinfo.quantity_received = X_Quantity_Received)
86 OR ( (Recinfo.quantity_received IS NULL)
87 AND (X_Quantity_Received IS NULL)))
88
89 ) then
90 return;
91 else
92 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
93 APP_EXCEPTION.RAISE_EXCEPTION;
94 end if;
95
96 END Lock5_Row;
97
98 END PO_REQUISITION_LINES_PKG6;