[Home] [Help]
PACKAGE BODY: APPS.FLM_KANBAN_SUMMARY_PKG
Source
1 PACKAGE BODY FLM_KANBAN_SUMMARY_PKG as
2 /* $Header: FLMKBNSB.pls 115.4 2002/11/27 11:04:08 nrajpal noship $ */
3
4 PROCEDURE Insert_Row(X_rowid IN OUT NOCOPY VARCHAR2,
5 X_summary_id IN OUT NOCOPY NUMBER,
6 X_organization_id NUMBER,
7 X_summary_type NUMBER,
8 X_summary_code VARCHAR2,
9 X_kanban_plan_id NUMBER,
10 X_node_type NUMBER,
11 X_source_organization_id NUMBER,
12 X_supplier_id NUMBER,
13 X_supplier_site_id NUMBER,
14 X_subinventory_name VARCHAR2,
15 X_locator_id NUMBER,
16 X_wip_line_id NUMBER,
17 X_x NUMBER,
18 X_y NUMBER) IS
19
20 CURSOR C1 IS SELECT rowid FROM FLM_KANBAN_SUMMARY
21 WHERE summary_id = X_summary_id;
22 CURSOR C2 IS SELECT flm_kanban_summary_s.nextval FROM sys.dual;
23
24 BEGIN
25 if (X_summary_id is NULL) then
26 OPEN C2;
27 FETCH C2 INTO X_summary_id;
28 CLOSE C2;
29 end if;
30 INSERT INTO FLM_KANBAN_SUMMARY(
31 SUMMARY_ID
32 ,ORGANIZATION_ID
33 ,SUMMARY_TYPE
34 ,SUMMARY_CODE
35 ,KANBAN_PLAN_ID
36 ,CREATED_BY
37 ,CREATION_DATE
38 ,LAST_UPDATED_BY
39 ,LAST_UPDATE_DATE
40 ,LAST_UPDATE_LOGIN
41 ,NODE_TYPE
42 ,SOURCE_ORGANIZATION_ID
43 ,SUPPLIER_ID
44 ,SUPPLIER_SITE_ID
45 ,SUBINVENTORY_NAME
46 ,LOCATOR_ID
47 ,WIP_LINE_ID
48 ,X_COORDINATE
49 ,Y_COORDINATE
50 ) VALUES (
51 X_SUMMARY_ID
52 ,X_ORGANIZATION_ID
53 ,X_SUMMARY_TYPE
54 ,X_SUMMARY_CODE
55 ,X_KANBAN_PLAN_ID
56 ,FND_GLOBAL.USER_ID
57 ,SYSDATE
58 ,FND_GLOBAL.USER_ID
59 ,SYSDATE
60 ,FND_GLOBAL.LOGIN_ID
61 ,X_NODE_TYPE
62 ,X_SOURCE_ORGANIZATION_ID
63 ,X_SUPPLIER_ID
64 ,X_SUPPLIER_SITE_ID
65 ,X_SUBINVENTORY_NAME
66 ,X_LOCATOR_ID
67 ,X_WIP_LINE_ID
68 ,X_X
69 ,X_Y
70 );
71
72 OPEN C1;
73 FETCH C1 INTO X_rowid;
74 if (C1%NOTFOUND) then
75 CLOSE C1;
76 RAISE NO_DATA_FOUND;
77 end if;
78 CLOSE C1;
79 END Insert_Row;
80
81
82 PROCEDURE Lock_Row( X_rowid VARCHAR2,
83 X_summary_id NUMBER,
84 X_organization_id NUMBER,
85 X_summary_type NUMBER,
86 X_summary_code VARCHAR2,
87 X_kanban_plan_id NUMBER,
88 X_node_type NUMBER,
89 X_source_organization_id NUMBER,
90 X_supplier_id NUMBER,
91 X_supplier_site_id NUMBER,
92 X_subinventory_name VARCHAR2,
93 X_locator_id NUMBER,
94 X_wip_line_id NUMBER,
95 X_x NUMBER,
96 X_y NUMBER) IS
97
98 CURSOR C IS
99 SELECT *
100 FROM FLM_KANBAN_SUMMARY
101 WHERE rowid = X_rowid
102 FOR UPDATE of summary_id NOWAIT;
103 Recinfo C%ROWTYPE;
104 BEGIN
105 OPEN C;
106 FETCH C INTO Recinfo;
107 if (C%NOTFOUND) then
108 CLOSE C;
109 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
110 APP_EXCEPTION.RAISE_EXCEPTION;
111 end if;
112 CLOSE C;
113 if (
114 ( (Recinfo.summary_id = X_summary_id)
115 OR ( (Recinfo.summary_id IS NULL)
116 AND (X_summary_id IS NULL)))
117 AND ( (Recinfo.organization_id = X_organization_id)
118 OR ( (Recinfo.organization_id IS NULL)
119 AND (X_organization_id IS NULL)))
120 AND ( (Recinfo.summary_type = X_summary_type)
121 OR ( (Recinfo.summary_type IS NULL)
122 AND (X_summary_type IS NULL)))
123 AND ( (Recinfo.summary_code = X_summary_code)
124 OR ( (Recinfo.summary_code IS NULL)
125 AND (X_summary_code IS NULL)))
126 AND ( (Recinfo.kanban_plan_id = X_kanban_plan_id)
127 OR ( (Recinfo.kanban_plan_id IS NULL)
128 AND (X_kanban_plan_id IS NULL)))
129 AND ( (Recinfo.node_type = X_node_type)
130 OR ( (Recinfo.node_type IS NULL)
131 AND (X_node_type IS NULL)))
132 AND ( (Recinfo.source_organization_id = X_source_organization_id)
133 OR ( (Recinfo.source_organization_id IS NULL)
134 AND (X_source_organization_id IS NULL)))
135 AND ( (Recinfo.supplier_id = X_supplier_id)
136 OR ( (Recinfo.supplier_id IS NULL)
137 AND (X_supplier_id IS NULL)))
138 AND ( (Recinfo.supplier_site_id = X_supplier_site_id)
139 OR ( (Recinfo.supplier_site_id IS NULL)
140 AND (X_supplier_site_id IS NULL)))
141 AND ( (Recinfo.subinventory_name = X_subinventory_name)
142 OR ( (Recinfo.subinventory_name IS NULL)
143 AND (X_subinventory_name IS NULL)))
144 AND ( (Recinfo.locator_id = X_locator_id)
145 OR ( (Recinfo.locator_id IS NULL)
146 AND (X_locator_id IS NULL)))
147 AND ( (Recinfo.wip_line_id = X_wip_line_id)
148 OR ( (Recinfo.wip_line_id IS NULL)
149 AND (X_wip_line_id IS NULL)))
150 AND ( (Recinfo.x_coordinate = X_x)
151 OR ( (Recinfo.x_coordinate IS NULL)
152 AND (X_x IS NULL)))
153 AND ( (Recinfo.y_coordinate = X_y)
154 OR ( (Recinfo.y_coordinate IS NULL)
155 AND (X_y IS NULL)))
156 ) then
157 return;
158 else
159 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
160 APP_EXCEPTION.RAISE_EXCEPTION;
161 end if;
162 END Lock_Row;
163
164
165
166 PROCEDURE Update_Row(X_rowid VARCHAR2,
167 X_summary_id NUMBER,
168 X_organization_id NUMBER,
169 X_summary_type NUMBER,
173 X_source_organization_id NUMBER,
170 X_summary_code VARCHAR2,
171 X_kanban_plan_id NUMBER,
172 X_node_type NUMBER,
174 X_supplier_id NUMBER,
175 X_supplier_site_id NUMBER,
176 X_subinventory_name VARCHAR2,
177 X_locator_id NUMBER,
178 X_wip_line_id NUMBER,
179 X_x NUMBER,
180 X_y NUMBER) IS
181
182 BEGIN
183 UPDATE FLM_KANBAN_SUMMARY
184 SET
185 summary_id = X_summary_id,
186 organization_id = X_organization_id,
187 summary_type = X_summary_type,
188 summary_code = X_summary_code,
189 kanban_plan_id = X_kanban_plan_id,
190 LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
191 LAST_UPDATE_DATE = SYSDATE,
192 LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
193 node_type = X_node_type,
194 source_organization_id = X_source_organization_id,
195 supplier_id = X_supplier_id,
196 supplier_site_id = X_supplier_site_id,
197 subinventory_name = X_subinventory_name,
198 locator_id = X_locator_id,
199 wip_line_id = X_wip_line_id,
200 x_coordinate = X_x,
201 y_coordinate = X_y
202 WHERE rowid = X_rowid;
203
204 if (SQL%NOTFOUND) then
205 RAISE NO_DATA_FOUND;
206 end if;
207
208 END Update_Row;
209
210
211
212 PROCEDURE Delete_Row(X_rowid VARCHAR2) IS
213
214 BEGIN
215 DELETE FROM FLM_KANBAN_SUMMARY
216 WHERE rowid = X_Rowid;
217
218 if (SQL%NOTFOUND) then
219 Raise NO_DATA_FOUND;
220 end if;
221 END Delete_Row;
222
223
224 END FLM_KANBAN_SUMMARY_PKG;