1 PACKAGE BODY CHV_ORG_OPTIONS_PKG_S2 as
2 /* $Header: CHVSEO2B.pls 115.0 99/07/17 01:30:49 porting ship $ */
3
4 /*=============================================================================
5
6 PROCEDURE NAME: lock_row()
7
8 =============================================================================*/
9 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
10 X_Organization_Id NUMBER,
11 X_Enable_Cum_Flag VARCHAR2,
12 X_Rtv_Update_Cum_Flag VARCHAR2,
13 X_Plan_Bucket_Pattern_Id NUMBER,
14 X_Ship_Bucket_Pattern_Id NUMBER,
15 X_Plan_Schedule_Type VARCHAR2,
16 X_Ship_Schedule_Type VARCHAR2,
17 X_Mrp_Compile_Designator VARCHAR2,
18 X_Mps_Schedule_Designator VARCHAR2,
19 X_Drp_Compile_Designator VARCHAR2,
20 X_Attribute_Category VARCHAR2,
21 X_Attribute1 VARCHAR2,
22 X_Attribute2 VARCHAR2,
23 X_Attribute3 VARCHAR2,
24 X_Attribute4 VARCHAR2,
25 X_Attribute5 VARCHAR2,
26 X_Attribute6 VARCHAR2,
27 X_Attribute7 VARCHAR2,
28 X_Attribute8 VARCHAR2,
29 X_Attribute9 VARCHAR2,
30 X_Attribute10 VARCHAR2,
31 X_Attribute11 VARCHAR2,
32 X_Attribute12 VARCHAR2,
33 X_Attribute13 VARCHAR2,
34 X_Attribute14 VARCHAR2,
35 X_Attribute15 VARCHAR2
36 ) IS
37 CURSOR C IS
38 SELECT *
39 FROM CHV_ORG_OPTIONS
40 WHERE rowid = X_Rowid
41 FOR UPDATE of Organization_Id NOWAIT;
42 Optioninfo C%ROWTYPE;
43 BEGIN
44 OPEN C;
45 FETCH C INTO Optioninfo;
46 if (C%NOTFOUND) then
47 CLOSE C;
48 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
49 APP_EXCEPTION.Raise_Exception;
50 end if;
51 CLOSE C;
52 if (
53
54 (Optioninfo.organization_id = X_Organization_Id)
55 AND (Optioninfo.enable_cum_flag = X_Enable_Cum_Flag)
56 AND ( (Optioninfo.rtv_update_cum_flag = X_Rtv_Update_Cum_Flag)
57 OR ( (Optioninfo.rtv_update_cum_flag IS NULL)
58 AND (X_Rtv_Update_Cum_Flag IS NULL)))
59 AND ( (Optioninfo.plan_bucket_pattern_id =
60 X_Plan_Bucket_Pattern_Id)
61 OR ( (Optioninfo.plan_bucket_pattern_id IS NULL)
62 AND (X_Plan_Bucket_Pattern_Id IS NULL)))
63 AND ( (Optioninfo.ship_bucket_pattern_id =
64 X_ship_Bucket_Pattern_Id)
65 OR ( (Optioninfo.ship_bucket_pattern_id IS NULL)
66 AND (X_ship_Bucket_Pattern_Id IS NULL)))
67 AND ( (Optioninfo.plan_schedule_type = X_Plan_Schedule_Type)
68 OR ( (Optioninfo.Plan_Schedule_Type IS NULL)
69 AND (X_Plan_Schedule_Type IS NULL)))
70 AND ( (Optioninfo.ship_schedule_type = X_Ship_Schedule_Type)
71 OR ( (Optioninfo.ship_schedule_type IS NULL)
72 AND (X_Ship_Schedule_Type IS NULL)))
73 AND ( (Optioninfo.mrp_compile_designator =
74 X_Mrp_Compile_Designator)
75 OR ( (Optioninfo.mrp_compile_designator IS NULL)
76 AND (X_Mrp_Compile_Designator IS NULL)))
77 AND ( (Optioninfo.mps_schedule_designator =
78 X_Mps_Schedule_Designator)
79 OR ( (Optioninfo.mps_Schedule_designator IS NULL)
80 AND (X_Mps_Schedule_Designator IS NULL)))
81 AND ( (Optioninfo.drp_compile_designator =
82 X_Drp_Compile_Designator)
83 OR ( (Optioninfo.drp_compile_designator IS NULL)
84 AND (X_Drp_Compile_Designator IS NULL)))
85 AND ( (Optioninfo.attribute_category = X_Attribute_Category)
86 OR ( (Optioninfo.attribute_category IS NULL)
87 AND (X_Attribute_Category IS NULL)))
88 AND ( (Optioninfo.attribute1 = X_Attribute1)
89 OR ( (Optioninfo.attribute1 IS NULL)
90 AND (X_Attribute1 IS NULL)))
91 AND ( (Optioninfo.attribute2 = X_Attribute2)
92 OR ( (Optioninfo.attribute2 IS NULL)
93 AND (X_Attribute2 IS NULL)))
94 AND ( (Optioninfo.attribute3 = X_Attribute3)
95 OR ( (Optioninfo.attribute3 IS NULL)
96 AND (X_Attribute3 IS NULL)))
97 AND ( (Optioninfo.attribute4 = X_Attribute4)
98 OR ( (Optioninfo.attribute4 IS NULL)
99 AND (X_Attribute4 IS NULL)))
100 AND ( (Optioninfo.attribute5 = X_Attribute5)
101 OR ( (Optioninfo.attribute5 IS NULL)
102 AND (X_Attribute5 IS NULL)))
103 AND ( (Optioninfo.attribute6 = X_Attribute6)
104 OR ( (Optioninfo.attribute6 IS NULL)
105 AND (X_Attribute6 IS NULL)))
106 AND ( (Optioninfo.attribute7 = X_Attribute7)
107 OR ( (Optioninfo.attribute7 IS NULL)
108 AND (X_Attribute7 IS NULL)))
109 AND ( (Optioninfo.attribute8 = X_Attribute8)
110 OR ( (Optioninfo.attribute8 IS NULL)
111 AND (X_Attribute8 IS NULL)))
112 AND ( (Optioninfo.attribute9 = X_Attribute9)
113 OR ( (Optioninfo.attribute9 IS NULL)
114 AND (X_Attribute9 IS NULL)))
115 AND ( (Optioninfo.attribute10 = X_Attribute10)
116 OR ( (Optioninfo.attribute10 IS NULL)
117 AND (X_Attribute10 IS NULL)))
118 AND ( (Optioninfo.attribute11 = X_Attribute11)
119 OR ( (Optioninfo.attribute11 IS NULL)
120 AND (X_Attribute11 IS NULL)))
121 AND ( (Optioninfo.attribute12 = X_Attribute12)
122 OR ( (Optioninfo.attribute12 IS NULL)
123 AND (X_Attribute12 IS NULL)))
124 AND ( (Optioninfo.attribute13 = X_Attribute13)
125 OR ( (Optioninfo.attribute13 IS NULL)
126 AND (X_Attribute13 IS NULL)))
127 AND ( (Optioninfo.attribute14 = X_Attribute14)
128 OR ( (Optioninfo.attribute14 IS NULL)
129 AND (X_Attribute14 IS NULL)))
130 AND ( (Optioninfo.attribute15 = X_Attribute15)
131 OR ( (Optioninfo.attribute15 IS NULL)
132 AND (X_Attribute15 IS NULL)))
133 ) then
134 return;
135 else
136 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
137 APP_EXCEPTION.RAISE_EXCEPTION;
138 end if;
139 END Lock_Row;
140
141 END CHV_ORG_OPTIONS_PKG_S2;