[Home] [Help]
30: --3 = Dynamic Entry at inventory receipt.)
31: IF (nvl(p_serial_number_control,0) IN (2,5,6)) THEN
32: -- serial number is mandatory.
33: IF (p_serial_number IS NULL) OR (p_serial_number = FND_API.G_MISS_CHAR) THEN
34: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_NULL');
35: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
36: FND_MSG_PUB.add;
37: --dbms_output.put_line('Serial Number is null');
38: ELSE
31: IF (nvl(p_serial_number_control,0) IN (2,5,6)) THEN
32: -- serial number is mandatory.
33: IF (p_serial_number IS NULL) OR (p_serial_number = FND_API.G_MISS_CHAR) THEN
34: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_NULL');
35: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
36: FND_MSG_PUB.add;
37: --dbms_output.put_line('Serial Number is null');
38: ELSE
39: /**
42: IF (p_serialnum_tag_code = 'INVENTORY') THEN
43: OPEN mtl_serial_numbers_csr(p_inventory_id,p_Serial_Number);
44: FETCH mtl_serial_numbers_csr INTO l_junk;
45: IF (mtl_serial_numbers_csr%NOTFOUND) THEN
46: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_INVALID');
47: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
48: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
49: FND_MSG_PUB.add;
50: --dbms_output.put_line('Serial Number does not exist in master ');
43: OPEN mtl_serial_numbers_csr(p_inventory_id,p_Serial_Number);
44: FETCH mtl_serial_numbers_csr INTO l_junk;
45: IF (mtl_serial_numbers_csr%NOTFOUND) THEN
46: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_INVALID');
47: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
48: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
49: FND_MSG_PUB.add;
50: --dbms_output.put_line('Serial Number does not exist in master ');
51: END IF;
44: FETCH mtl_serial_numbers_csr INTO l_junk;
45: IF (mtl_serial_numbers_csr%NOTFOUND) THEN
46: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_INVALID');
47: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
48: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
49: FND_MSG_PUB.add;
50: --dbms_output.put_line('Serial Number does not exist in master ');
51: END IF;
52: CLOSE mtl_serial_numbers_csr;
53: END IF;
54: **/
55: -- Check quantity.
56: IF (nvl(p_quantity,0) <> 1) THEN
57: FND_MESSAGE.set_name('AHL','AHL_UC_SRLQTY_MISMATCH');
58: FND_MESSAGE.set_token('QTY',p_quantity);
59: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
60: FND_MSG_PUB.add;
61: --dbms_output.put_line('For serialized items Quantity must be 1');
54: **/
55: -- Check quantity.
56: IF (nvl(p_quantity,0) <> 1) THEN
57: FND_MESSAGE.set_name('AHL','AHL_UC_SRLQTY_MISMATCH');
58: FND_MESSAGE.set_token('QTY',p_quantity);
59: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
60: FND_MSG_PUB.add;
61: --dbms_output.put_line('For serialized items Quantity must be 1');
62: END IF;
55: -- Check quantity.
56: IF (nvl(p_quantity,0) <> 1) THEN
57: FND_MESSAGE.set_name('AHL','AHL_UC_SRLQTY_MISMATCH');
58: FND_MESSAGE.set_token('QTY',p_quantity);
59: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
60: FND_MSG_PUB.add;
61: --dbms_output.put_line('For serialized items Quantity must be 1');
62: END IF;
63: END IF;
63: END IF;
64: ELSE
65: -- if not serialized item, then serial number must be null.
66: IF (p_serial_number <> FND_API.G_MISS_CHAR) AND (p_serial_number IS NOT NULL) THEN
67: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_NOTNULL');
68: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
69: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
70: FND_MSG_PUB.add;
71: --dbms_output.put_line('Serial Number is not null');
64: ELSE
65: -- if not serialized item, then serial number must be null.
66: IF (p_serial_number <> FND_API.G_MISS_CHAR) AND (p_serial_number IS NOT NULL) THEN
67: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_NOTNULL');
68: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
69: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
70: FND_MSG_PUB.add;
71: --dbms_output.put_line('Serial Number is not null');
72: END IF;
65: -- if not serialized item, then serial number must be null.
66: IF (p_serial_number <> FND_API.G_MISS_CHAR) AND (p_serial_number IS NOT NULL) THEN
67: FND_MESSAGE.set_name('AHL','AHL_UC_SERIAL_NOTNULL');
68: FND_MESSAGE.set_token('SERIAL',p_Serial_Number);
69: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
70: FND_MSG_PUB.add;
71: --dbms_output.put_line('Serial Number is not null');
72: END IF;
73: END IF; /* for serial number control */
81: p_concatenated_segments IN VARCHAR2) IS
82: BEGIN
83: --Validate quantity and UOM code.
84: IF (p_quantity = FND_API.G_MISS_NUM OR p_quantity IS NULL) THEN
85: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_NULL');
86: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
87: FND_MSG_PUB.add;
88: --dbms_output.put_line('Quantity is null.');
89: ELSIF (p_quantity <= 0) THEN
82: BEGIN
83: --Validate quantity and UOM code.
84: IF (p_quantity = FND_API.G_MISS_NUM OR p_quantity IS NULL) THEN
85: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_NULL');
86: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
87: FND_MSG_PUB.add;
88: --dbms_output.put_line('Quantity is null.');
89: ELSIF (p_quantity <= 0) THEN
90: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_INVALID');
86: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
87: FND_MSG_PUB.add;
88: --dbms_output.put_line('Quantity is null.');
89: ELSIF (p_quantity <= 0) THEN
90: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_INVALID');
91: FND_MESSAGE.set_token('QTY',p_quantity);
92: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
93: FND_MSG_PUB.add;
94: --dbms_output.put_line('Quantity is less than or equal to zero.');
87: FND_MSG_PUB.add;
88: --dbms_output.put_line('Quantity is null.');
89: ELSIF (p_quantity <= 0) THEN
90: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_INVALID');
91: FND_MESSAGE.set_token('QTY',p_quantity);
92: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
93: FND_MSG_PUB.add;
94: --dbms_output.put_line('Quantity is less than or equal to zero.');
95: ELSE
88: --dbms_output.put_line('Quantity is null.');
89: ELSIF (p_quantity <= 0) THEN
90: FND_MESSAGE.set_name('AHL','AHL_UC_QTY_INVALID');
91: FND_MESSAGE.set_token('QTY',p_quantity);
92: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
93: FND_MSG_PUB.add;
94: --dbms_output.put_line('Quantity is less than or equal to zero.');
95: ELSE
96: --Call inv function to validate uom.
97: IF NOT(inv_convert.validate_Item_Uom(p_item_id => p_inventory_id,
98: p_organization_id => p_organization_id,
99: p_uom_code => p_uom_code))
100: THEN
101: FND_MESSAGE.set_name('AHL','AHL_UC_UOM_INVALID');
102: FND_MESSAGE.set_token('UOM',p_uom_code);
103: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
104: FND_MSG_PUB.add;
105: --dbms_output.put_line('Invalid UOM code for the item');
98: p_organization_id => p_organization_id,
99: p_uom_code => p_uom_code))
100: THEN
101: FND_MESSAGE.set_name('AHL','AHL_UC_UOM_INVALID');
102: FND_MESSAGE.set_token('UOM',p_uom_code);
103: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
104: FND_MSG_PUB.add;
105: --dbms_output.put_line('Invalid UOM code for the item');
106: END IF;
99: p_uom_code => p_uom_code))
100: THEN
101: FND_MESSAGE.set_name('AHL','AHL_UC_UOM_INVALID');
102: FND_MESSAGE.set_token('UOM',p_uom_code);
103: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
104: FND_MSG_PUB.add;
105: --dbms_output.put_line('Invalid UOM code for the item');
106: END IF;
107: END IF; /* for p_quantity */
126: BEGIN
127: -- Validate Lot number.(1 = No lot control; 2 = Full lot control)
128: IF (nvl(p_lot_control_code,0) = 2) THEN
129: IF (p_lot_number IS NULL) OR (p_lot_number = FND_API.G_MISS_CHAR) THEN
130: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_NULL');
131: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
132: FND_MSG_PUB.add;
133: --dbms_output.put_line('Lot Number is null');
134: ELSE
127: -- Validate Lot number.(1 = No lot control; 2 = Full lot control)
128: IF (nvl(p_lot_control_code,0) = 2) THEN
129: IF (p_lot_number IS NULL) OR (p_lot_number = FND_API.G_MISS_CHAR) THEN
130: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_NULL');
131: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
132: FND_MSG_PUB.add;
133: --dbms_output.put_line('Lot Number is null');
134: ELSE
135: OPEN mtl_lot_numbers_csr(p_inventory_id,p_organization_id, p_lot_number);
134: ELSE
135: OPEN mtl_lot_numbers_csr(p_inventory_id,p_organization_id, p_lot_number);
136: FETCH mtl_lot_numbers_csr INTO l_junk;
137: IF (mtl_lot_numbers_csr%NOTFOUND) THEN
138: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_INVALID');
139: FND_MESSAGE.set_token('LOT',p_Lot_number);
140: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
141: FND_MSG_PUB.add;
142: --dbms_output.put_line('Lot number does not exist in master');
135: OPEN mtl_lot_numbers_csr(p_inventory_id,p_organization_id, p_lot_number);
136: FETCH mtl_lot_numbers_csr INTO l_junk;
137: IF (mtl_lot_numbers_csr%NOTFOUND) THEN
138: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_INVALID');
139: FND_MESSAGE.set_token('LOT',p_Lot_number);
140: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
141: FND_MSG_PUB.add;
142: --dbms_output.put_line('Lot number does not exist in master');
143: END IF;
136: FETCH mtl_lot_numbers_csr INTO l_junk;
137: IF (mtl_lot_numbers_csr%NOTFOUND) THEN
138: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_INVALID');
139: FND_MESSAGE.set_token('LOT',p_Lot_number);
140: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
141: FND_MSG_PUB.add;
142: --dbms_output.put_line('Lot number does not exist in master');
143: END IF;
144: CLOSE mtl_lot_numbers_csr;
145: END IF;
146: ELSIF (p_Lot_number <> FND_API.G_MISS_CHAR) AND (p_lot_Number IS NOT NULL) THEN
147:
148: -- If lot number not controlled; then lot num must be null.
149: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_NOTNULL');
150: --FND_MESSAGE.set_token('LOT',p_Lot_Number);
151: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
152: FND_MSG_PUB.add;
153: --dbms_output.put_line('Lot Number is not null');
146: ELSIF (p_Lot_number <> FND_API.G_MISS_CHAR) AND (p_lot_Number IS NOT NULL) THEN
147:
148: -- If lot number not controlled; then lot num must be null.
149: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_NOTNULL');
150: --FND_MESSAGE.set_token('LOT',p_Lot_Number);
151: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
152: FND_MSG_PUB.add;
153: --dbms_output.put_line('Lot Number is not null');
154: END IF; /* for lot_control_code */
147:
148: -- If lot number not controlled; then lot num must be null.
149: FND_MESSAGE.set_name('AHL','AHL_UC_LOT_NOTNULL');
150: --FND_MESSAGE.set_token('LOT',p_Lot_Number);
151: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
152: FND_MSG_PUB.add;
153: --dbms_output.put_line('Lot Number is not null');
154: END IF; /* for lot_control_code */
155: END validate_lotnumber;
172: BEGIN
173: --Validate Revision.
174: IF (nvl(p_revision_qty_control_code,0) = 2) THEN
175: IF (p_revision IS NULL) OR (p_revision = FND_API.G_MISS_CHAR) THEN
176: FND_MESSAGE.set_name('AHL','AHL_UC_REV_NULL');
177: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
178: FND_MSG_PUB.add;
179: --dbms_output.put_line('Revision is null');
180: ELSE
173: --Validate Revision.
174: IF (nvl(p_revision_qty_control_code,0) = 2) THEN
175: IF (p_revision IS NULL) OR (p_revision = FND_API.G_MISS_CHAR) THEN
176: FND_MESSAGE.set_name('AHL','AHL_UC_REV_NULL');
177: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
178: FND_MSG_PUB.add;
179: --dbms_output.put_line('Revision is null');
180: ELSE
181: OPEN mtl_item_revisions_csr(p_inventory_id,p_organization_id, p_revision);
180: ELSE
181: OPEN mtl_item_revisions_csr(p_inventory_id,p_organization_id, p_revision);
182: FETCH mtl_item_revisions_csr INTO l_junk;
183: IF (mtl_item_revisions_csr%NOTFOUND) THEN
184: FND_MESSAGE.set_name('AHL','AHL_UC_REV_INVALID');
185: FND_MESSAGE.set_token('REV',p_revision);
186: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
187: FND_MSG_PUB.add;
188: --dbms_output.put_line('Revision does not exist in master');
181: OPEN mtl_item_revisions_csr(p_inventory_id,p_organization_id, p_revision);
182: FETCH mtl_item_revisions_csr INTO l_junk;
183: IF (mtl_item_revisions_csr%NOTFOUND) THEN
184: FND_MESSAGE.set_name('AHL','AHL_UC_REV_INVALID');
185: FND_MESSAGE.set_token('REV',p_revision);
186: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
187: FND_MSG_PUB.add;
188: --dbms_output.put_line('Revision does not exist in master');
189: END IF;
182: FETCH mtl_item_revisions_csr INTO l_junk;
183: IF (mtl_item_revisions_csr%NOTFOUND) THEN
184: FND_MESSAGE.set_name('AHL','AHL_UC_REV_INVALID');
185: FND_MESSAGE.set_token('REV',p_revision);
186: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
187: FND_MSG_PUB.add;
188: --dbms_output.put_line('Revision does not exist in master');
189: END IF;
190: CLOSE mtl_item_revisions_csr;
189: END IF;
190: CLOSE mtl_item_revisions_csr;
191: END IF;
192: ELSIF (p_revision IS NOT NULL) AND (p_revision <> FND_API.G_MISS_CHAR) THEN
193: FND_MESSAGE.set_name('AHL','AHL_UC_REV_NOTNULL');
194: --FND_MESSAGE.set_token('REV',p_revision);
195: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
196: FND_MSG_PUB.add;
197: --dbms_output.put_line('Revision is not null. Revision not required.');
190: CLOSE mtl_item_revisions_csr;
191: END IF;
192: ELSIF (p_revision IS NOT NULL) AND (p_revision <> FND_API.G_MISS_CHAR) THEN
193: FND_MESSAGE.set_name('AHL','AHL_UC_REV_NOTNULL');
194: --FND_MESSAGE.set_token('REV',p_revision);
195: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
196: FND_MSG_PUB.add;
197: --dbms_output.put_line('Revision is not null. Revision not required.');
198: END IF; /* for revision_qty_control_code */
191: END IF;
192: ELSIF (p_revision IS NOT NULL) AND (p_revision <> FND_API.G_MISS_CHAR) THEN
193: FND_MESSAGE.set_name('AHL','AHL_UC_REV_NOTNULL');
194: --FND_MESSAGE.set_token('REV',p_revision);
195: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
196: FND_MSG_PUB.add;
197: --dbms_output.put_line('Revision is not null. Revision not required.');
198: END IF; /* for revision_qty_control_code */
199: END validate_revision;
205:
206: BEGIN
207: IF (p_serial_number_control IN (2,5,6)) THEN
208: IF (p_serialnum_tag_code IS NULL OR p_serialnum_tag_code = FND_API.G_MISS_CHAR) THEN
209: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_NULL');
210: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
211: FND_MSG_PUB.add;
212: ELSE
213: IF NOT(AHL_UTIL_MC_PKG.validate_Lookup_Code('AHL_SERIALNUMBER_TAG',p_serialnum_tag_code)) THEN
206: BEGIN
207: IF (p_serial_number_control IN (2,5,6)) THEN
208: IF (p_serialnum_tag_code IS NULL OR p_serialnum_tag_code = FND_API.G_MISS_CHAR) THEN
209: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_NULL');
210: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
211: FND_MSG_PUB.add;
212: ELSE
213: IF NOT(AHL_UTIL_MC_PKG.validate_Lookup_Code('AHL_SERIALNUMBER_TAG',p_serialnum_tag_code)) THEN
214:
211: FND_MSG_PUB.add;
212: ELSE
213: IF NOT(AHL_UTIL_MC_PKG.validate_Lookup_Code('AHL_SERIALNUMBER_TAG',p_serialnum_tag_code)) THEN
214:
215: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_INVALID');
216: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
217: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
218: FND_MSG_PUB.add;
219: --dbms_output.put_line('Serial Tag code is invalid.');
212: ELSE
213: IF NOT(AHL_UTIL_MC_PKG.validate_Lookup_Code('AHL_SERIALNUMBER_TAG',p_serialnum_tag_code)) THEN
214:
215: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_INVALID');
216: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
217: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
218: FND_MSG_PUB.add;
219: --dbms_output.put_line('Serial Tag code is invalid.');
220: END IF;
213: IF NOT(AHL_UTIL_MC_PKG.validate_Lookup_Code('AHL_SERIALNUMBER_TAG',p_serialnum_tag_code)) THEN
214:
215: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_INVALID');
216: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
217: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
218: FND_MSG_PUB.add;
219: --dbms_output.put_line('Serial Tag code is invalid.');
220: END IF;
221: END IF;
220: END IF;
221: END IF;
222: ELSE
223: IF (p_serialnum_tag_code IS NOT NULL AND p_serialnum_tag_code <> FND_API.G_MISS_CHAR) THEN
224: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_NOTNULL');
225: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
226: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
227: FND_MSG_PUB.add;
228: --dbms_output.put_line('Serial Tag code is invalid.');
221: END IF;
222: ELSE
223: IF (p_serialnum_tag_code IS NOT NULL AND p_serialnum_tag_code <> FND_API.G_MISS_CHAR) THEN
224: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_NOTNULL');
225: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
226: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
227: FND_MSG_PUB.add;
228: --dbms_output.put_line('Serial Tag code is invalid.');
229: END IF;
222: ELSE
223: IF (p_serialnum_tag_code IS NOT NULL AND p_serialnum_tag_code <> FND_API.G_MISS_CHAR) THEN
224: FND_MESSAGE.set_name('AHL','AHL_UC_SERIALTAG_NOTNULL');
225: FND_MESSAGE.set_token('TAG',p_serialnum_tag_code);
226: FND_MESSAGE.set_token('INV_ITEM',p_concatenated_segments);
227: FND_MSG_PUB.add;
228: --dbms_output.put_line('Serial Tag code is invalid.');
229: END IF;
230: END IF; /* p_serial_number_control */
262: BEGIN
263: IF (p_inventory_id IS NULL) OR (p_inventory_id = FND_API.G_MISS_NUM)
264: OR (p_organization_id IS NULL) OR (p_organization_id = FND_API.G_MISS_NUM)
265: THEN
266: FND_MESSAGE.set_name('AHL','AHL_UC_INVITEM_NULL');
267: FND_MESSAGE.set_token('POSN_REF',p_position_ref_meaning);
268: FND_MSG_PUB.add;
269: --dbms_output.put_line('Inventory Item is null');
270: RETURN;
263: IF (p_inventory_id IS NULL) OR (p_inventory_id = FND_API.G_MISS_NUM)
264: OR (p_organization_id IS NULL) OR (p_organization_id = FND_API.G_MISS_NUM)
265: THEN
266: FND_MESSAGE.set_name('AHL','AHL_UC_INVITEM_NULL');
267: FND_MESSAGE.set_token('POSN_REF',p_position_ref_meaning);
268: FND_MSG_PUB.add;
269: --dbms_output.put_line('Inventory Item is null');
270: RETURN;
271: END IF;
277: l_revision_qty_control_code,
278: l_comms_nl_trackable_flag;
279: IF (mtl_system_items_csr%NOTFOUND) THEN
280: CLOSE mtl_system_items_csr;
281: FND_MESSAGE.set_name('AHL','AHL_UC_INVITEM_INVALID');
282: FND_MESSAGE.set_token('POSN_REF',p_position_ref_meaning);
283: FND_MSG_PUB.add;
284: x_concatenated_segments := null;
285: --dbms_output.put_line('Inventory item does not exist in Master');
278: l_comms_nl_trackable_flag;
279: IF (mtl_system_items_csr%NOTFOUND) THEN
280: CLOSE mtl_system_items_csr;
281: FND_MESSAGE.set_name('AHL','AHL_UC_INVITEM_INVALID');
282: FND_MESSAGE.set_token('POSN_REF',p_position_ref_meaning);
283: FND_MSG_PUB.add;
284: x_concatenated_segments := null;
285: --dbms_output.put_line('Inventory item does not exist in Master');
286: RETURN;
286: RETURN;
287: END IF;
288: CLOSE mtl_system_items_csr;
289: IF upper(nvl(l_comms_nl_trackable_flag,'N')) = 'N' THEN
290: FND_MESSAGE.set_name('AHL','AHL_MC_INV_TRACK');
291: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
292: FND_MSG_PUB.add;
293: --dbms_output.put_line('Inventory item does not exist in Master');
294: END IF;
287: END IF;
288: CLOSE mtl_system_items_csr;
289: IF upper(nvl(l_comms_nl_trackable_flag,'N')) = 'N' THEN
290: FND_MESSAGE.set_name('AHL','AHL_MC_INV_TRACK');
291: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
292: FND_MSG_PUB.add;
293: --dbms_output.put_line('Inventory item does not exist in Master');
294: END IF;
295: -- Validate quantity .
444: END IF;
445:
446: --Validate input parameters p_prod_user_flag
447: IF (upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N') THEN
448: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
449: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
450: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
451: FND_MSG_PUB.add;
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445:
446: --Validate input parameters p_prod_user_flag
447: IF (upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N') THEN
448: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
449: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
450: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
451: FND_MSG_PUB.add;
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
446: --Validate input parameters p_prod_user_flag
447: IF (upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N') THEN
448: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
449: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
450: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
451: FND_MSG_PUB.add;
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: --Validate input parameters p_csi_ii_ovn
452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: --Validate input parameters p_csi_ii_ovn
455: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
456: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
457: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
458: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
459: FND_MSG_PUB.add;
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
453: END IF;
454: --Validate input parameters p_csi_ii_ovn
455: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
456: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
457: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
458: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
459: FND_MSG_PUB.add;
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
454: --Validate input parameters p_csi_ii_ovn
455: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
456: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
457: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
458: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
459: FND_MSG_PUB.add;
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462: --Validate input parameter p_uc_header_id, its two status
462: --Validate input parameter p_uc_header_id, its two status
463: OPEN check_uc_header;
464: FETCH check_uc_header INTO l_check_uc_header;
465: IF check_uc_header%NOTFOUND THEN
466: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
467: FND_MESSAGE.set_token('NAME', 'uc_header_id');
468: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
469: FND_MSG_PUB.add;
470: CLOSE check_uc_header;
463: OPEN check_uc_header;
464: FETCH check_uc_header INTO l_check_uc_header;
465: IF check_uc_header%NOTFOUND THEN
466: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
467: FND_MESSAGE.set_token('NAME', 'uc_header_id');
468: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
469: FND_MSG_PUB.add;
470: CLOSE check_uc_header;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
464: FETCH check_uc_header INTO l_check_uc_header;
465: IF check_uc_header%NOTFOUND THEN
466: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
467: FND_MESSAGE.set_token('NAME', 'uc_header_id');
468: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
469: FND_MSG_PUB.add;
470: CLOSE check_uc_header;
471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
472: ELSE
472: ELSE
473:
474: -- ACL :: Changes for R12
475: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
476: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
477: FND_MSG_PUB.add;
478: CLOSE check_uc_header;
479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
480: END IF;
486: l_root_active_uc_status_code,
487: l_root_uc_ovn);
488: IF (p_prod_user_flag = 'Y' AND --For production user, no need to confirm either one of the statuses is not APPROVAL_PENDING
489: l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE')) THEN
490: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_NOT_ACTIVE' );
491: FND_MSG_PUB.add;
492: CLOSE check_uc_header;
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF (p_prod_user_flag = 'N' AND
493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF (p_prod_user_flag = 'N' AND
495: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
496: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
497: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
498: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
499: FND_MSG_PUB.add;
500: CLOSE check_uc_header;
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
494: ELSIF (p_prod_user_flag = 'N' AND
495: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
496: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
497: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
498: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
499: FND_MSG_PUB.add;
500: CLOSE check_uc_header;
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: ELSE
511: l_subject_id := l_get_uc_descendant.subject_id;
512: EXIT WHEN l_subject_id = p_instance_id;
513: END LOOP;
514: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id)THEN
515: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
516: FND_MESSAGE.set_token('NAME', 'instance_id');
517: FND_MESSAGE.set_token('VALUE', p_instance_id);
518: FND_MSG_PUB.add;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: EXIT WHEN l_subject_id = p_instance_id;
513: END LOOP;
514: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id)THEN
515: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
516: FND_MESSAGE.set_token('NAME', 'instance_id');
517: FND_MESSAGE.set_token('VALUE', p_instance_id);
518: FND_MSG_PUB.add;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: --Ensure no current user makes change to the same csi_ii_relationships record
513: END LOOP;
514: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id)THEN
515: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID');
516: FND_MESSAGE.set_token('NAME', 'instance_id');
517: FND_MESSAGE.set_token('VALUE', p_instance_id);
518: FND_MSG_PUB.add;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: --Ensure no current user makes change to the same csi_ii_relationships record
521: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
518: FND_MSG_PUB.add;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: --Ensure no current user makes change to the same csi_ii_relationships record
521: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
522: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
523: FND_MSG_PUB.add;
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: END IF;
526:
529: OPEN get_instance_date(p_instance_id);
530: FETCH get_instance_date INTO l_end_date;
531: CLOSE get_instance_date;
532: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
533: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_EXPIRED');
534: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
535: FND_MSG_PUB.add;
536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
537: END IF;
530: FETCH get_instance_date INTO l_end_date;
531: CLOSE get_instance_date;
532: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
533: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_EXPIRED');
534: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
535: FND_MSG_PUB.add;
536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
537: END IF;
538:
580: last_update_login = FND_GLOBAL.login_id
581: WHERE unit_config_header_id = l_root_uc_header_id
582: AND object_version_number = l_root_uc_ovn;
583: IF SQL%ROWCOUNT = 0 THEN
584: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
585: FND_MSG_PUB.add;
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588: ELSIF (l_root_uc_status_code = 'INCOMPLETE' AND
596: last_update_login = FND_GLOBAL.login_id
597: WHERE unit_config_header_id = l_root_uc_header_id
598: AND object_version_number = l_root_uc_ovn;
599: IF SQL%ROWCOUNT = 0 THEN
600: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
601: FND_MSG_PUB.add;
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604: ELSIF l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE', 'DRAFT') THEN
610: last_update_login = FND_GLOBAL.login_id
611: WHERE unit_config_header_id = l_root_uc_header_id
612: AND object_version_number = l_root_uc_ovn;
613: IF SQL%ROWCOUNT = 0 THEN
614: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
615: FND_MSG_PUB.add;
616: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
617: END IF;
618: END IF;
626: last_update_login = FND_GLOBAL.login_id
627: WHERE unit_config_header_id = l_root_uc_header_id
628: AND object_version_number = l_root_uc_ovn;
629: IF SQL%ROWCOUNT = 0 THEN
630: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
631: FND_MSG_PUB.add;
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634: END IF;
891: END IF;
892:
893: --Validate input parameters p_prod_user_flag
894: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
895: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
896: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
897: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
898: FND_MSG_PUB.add;
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
892:
893: --Validate input parameters p_prod_user_flag
894: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
895: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
896: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
897: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
898: FND_MSG_PUB.add;
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: END IF;
893: --Validate input parameters p_prod_user_flag
894: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
895: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
896: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
897: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
898: FND_MSG_PUB.add;
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: END IF;
901:
900: END IF;
901:
902: --Validate input parameters p_csi_ii_ovn
903: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
904: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
905: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
906: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
907: FND_MSG_PUB.add;
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
901:
902: --Validate input parameters p_csi_ii_ovn
903: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
904: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
905: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
906: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
907: FND_MSG_PUB.add;
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
902: --Validate input parameters p_csi_ii_ovn
903: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
904: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
905: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
906: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
907: FND_MSG_PUB.add;
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910: --Validate input parameter p_uc_header_id, its two statuses
910: --Validate input parameter p_uc_header_id, its two statuses
911: OPEN check_uc_header;
912: FETCH check_uc_header INTO l_check_uc_header;
913: IF check_uc_header%NOTFOUND THEN
914: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
915: FND_MESSAGE.set_token('NAME', 'uc_header_id');
916: FND_MESSAGE.set_token('NAME', p_uc_header_id);
917: FND_MSG_PUB.add;
918: CLOSE check_uc_header;
911: OPEN check_uc_header;
912: FETCH check_uc_header INTO l_check_uc_header;
913: IF check_uc_header%NOTFOUND THEN
914: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
915: FND_MESSAGE.set_token('NAME', 'uc_header_id');
916: FND_MESSAGE.set_token('NAME', p_uc_header_id);
917: FND_MSG_PUB.add;
918: CLOSE check_uc_header;
919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: FETCH check_uc_header INTO l_check_uc_header;
913: IF check_uc_header%NOTFOUND THEN
914: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
915: FND_MESSAGE.set_token('NAME', 'uc_header_id');
916: FND_MESSAGE.set_token('NAME', p_uc_header_id);
917: FND_MSG_PUB.add;
918: CLOSE check_uc_header;
919: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
920: ELSE
920: ELSE
921:
922: -- ACL :: Changes for R12
923: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
924: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
925: FND_MSG_PUB.add;
926: CLOSE check_uc_header;
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: END IF;
934: l_root_active_uc_status_code,
935: l_root_uc_ovn);
936: IF (p_prod_user_flag = 'Y' AND --For production user, no need to confirm either one of the statuses is not APPROVAL_PENDING
937: l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE')) THEN
938: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_NOT_ACTIVE' );
939: FND_MSG_PUB.add;
940: CLOSE check_uc_header;
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: ELSIF (p_prod_user_flag = 'N' AND
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: ELSIF (p_prod_user_flag = 'N' AND
943: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
944: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
945: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
946: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
947: FND_MSG_PUB.add;
948: CLOSE check_uc_header;
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: ELSIF (p_prod_user_flag = 'N' AND
943: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
944: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
945: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
946: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
947: FND_MSG_PUB.add;
948: CLOSE check_uc_header;
949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
950: ELSE
962: END LOOP;
963: --Ensure the instance is installed in this UC but it could be an extra node(l_position_referece=null)
964:
965: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id) THEN
966: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID' );
967: FND_MESSAGE.set_token('NAME', 'instance_id');
968: FND_MESSAGE.set_token('VALUE', p_instance_id);
969: FND_MSG_PUB.add;
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
963: --Ensure the instance is installed in this UC but it could be an extra node(l_position_referece=null)
964:
965: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id) THEN
966: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID' );
967: FND_MESSAGE.set_token('NAME', 'instance_id');
968: FND_MESSAGE.set_token('VALUE', p_instance_id);
969: FND_MSG_PUB.add;
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: --Ensure no current user makes change to the same csi_ii_relationships record
964:
965: IF (p_instance_id IS NULL OR l_subject_id IS NULL OR l_subject_id <> p_instance_id) THEN
966: FND_MESSAGE.set_name( 'AHL','AHL_UC_API_PARAMETER_INVALID' );
967: FND_MESSAGE.set_token('NAME', 'instance_id');
968: FND_MESSAGE.set_token('VALUE', p_instance_id);
969: FND_MSG_PUB.add;
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: --Ensure no current user makes change to the same csi_ii_relationships record
972: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
969: FND_MSG_PUB.add;
970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
971: --Ensure no current user makes change to the same csi_ii_relationships record
972: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
973: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
974: FND_MSG_PUB.add;
975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
976: END IF;
977:
1016: OPEN get_csi_obj_ver_num(l_subject_id);
1017: FETCH get_csi_obj_ver_num INTO l_dummy;
1018: IF (get_csi_obj_ver_num%NOTFOUND) THEN
1019: CLOSE get_csi_obj_ver_num;
1020: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_DELETED');
1021: FND_MSG_PUB.add;
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSE
1024: CLOSE get_csi_obj_ver_num;
1084: --Copy the change to UC history table
1085: ahl_util_uc_pkg.copy_uc_header_to_history(l_sub_uc_header_id, l_return_status);
1086: --IF history copy failed, then don't raise exception, just add the messageto the message stack
1087: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1089: FND_MSG_PUB.add;
1090: END IF;
1091: ELSE --Non subunit top node
1092: OPEN check_instance_non_leaf(p_instance_id);
1096: FOR l_get_1st_level_subunit IN get_1st_level_subunits(p_instance_id) LOOP
1097: OPEN get_uc_header_id(l_get_1st_level_subunit.subject_id);
1098: FETCH get_uc_header_id INTO l_sub_uc_header_id;
1099: IF get_uc_header_id%NOTFOUND THEN
1100: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_INVALID');
1101: FND_MESSAGE.set_token('INSTANCE', l_get_1st_level_subunit.subject_id);
1102: FND_MSG_PUB.add;
1103: END IF;
1104: CLOSE get_uc_header_id;
1097: OPEN get_uc_header_id(l_get_1st_level_subunit.subject_id);
1098: FETCH get_uc_header_id INTO l_sub_uc_header_id;
1099: IF get_uc_header_id%NOTFOUND THEN
1100: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_INVALID');
1101: FND_MESSAGE.set_token('INSTANCE', l_get_1st_level_subunit.subject_id);
1102: FND_MSG_PUB.add;
1103: END IF;
1104: CLOSE get_uc_header_id;
1105:
1119: --Copy the change to UC history table
1120: ahl_util_uc_pkg.copy_uc_header_to_history(l_sub_uc_header_id, l_return_status);
1121: --IF history copy failed, then don't raise exception, just add the messae to the message stack
1122: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1123: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
1124: FND_MSG_PUB.add;
1125: END IF;
1126: END LOOP;
1127: END IF;
1133: NOT ahl_util_uc_pkg.extra_node(p_instance_id, l_root_instance_id)) THEN
1134: OPEN get_position_necessity(l_position_reference);
1135: FETCH get_position_necessity INTO l_position_necessity;
1136: IF get_position_necessity%NOTFOUND THEN
1137: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSTION_INVALID' );
1138: FND_MESSAGE.set_token('POSITION', l_position_reference);
1139: FND_MSG_PUB.add;
1140: CLOSE get_position_necessity;
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1134: OPEN get_position_necessity(l_position_reference);
1135: FETCH get_position_necessity INTO l_position_necessity;
1136: IF get_position_necessity%NOTFOUND THEN
1137: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSTION_INVALID' );
1138: FND_MESSAGE.set_token('POSITION', l_position_reference);
1139: FND_MSG_PUB.add;
1140: CLOSE get_position_necessity;
1141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1142: ELSE
1159: last_update_login = FND_GLOBAL.login_id
1160: WHERE unit_config_header_id = l_root_uc_header_id
1161: AND object_version_number = l_root_uc_ovn;
1162: IF SQL%ROWCOUNT = 0 THEN
1163: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
1164: FND_MSG_PUB.add;
1165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1167: ELSIF (l_root_uc_status_code IN ('COMPLETE', 'INCOMPLETE') AND
1177: last_update_login = FND_GLOBAL.login_id
1178: WHERE unit_config_header_id = l_root_uc_header_id
1179: AND object_version_number = l_root_uc_ovn;
1180: IF SQL%ROWCOUNT = 0 THEN
1181: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
1182: FND_MSG_PUB.add;
1183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1184: END IF;
1185: ELSIF l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE', 'DRAFT') THEN
1193: last_update_login = FND_GLOBAL.login_id
1194: WHERE unit_config_header_id = l_root_uc_header_id
1195: AND object_version_number = l_root_uc_ovn;
1196: IF SQL%ROWCOUNT = 0 THEN
1197: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
1198: FND_MSG_PUB.add;
1199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1200: END IF;
1201: END IF;
1209: last_update_login = FND_GLOBAL.login_id
1210: WHERE unit_config_header_id = l_root_uc_header_id
1211: AND object_version_number = l_root_uc_ovn;
1212: IF SQL%ROWCOUNT = 0 THEN
1213: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
1214: FND_MSG_PUB.add;
1215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1216: END IF;
1217: END IF;
1412: END IF;
1413:
1414: --Validate input parameters p_prod_user_flag
1415: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
1416: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1417: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
1418: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
1419: FND_MSG_PUB.add;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413:
1414: --Validate input parameters p_prod_user_flag
1415: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
1416: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1417: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
1418: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
1419: FND_MSG_PUB.add;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: END IF;
1414: --Validate input parameters p_prod_user_flag
1415: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
1416: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1417: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
1418: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
1419: FND_MSG_PUB.add;
1420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1421: END IF;
1422: --Validate input parameter p_uc_header_id, its two statuses
1422: --Validate input parameter p_uc_header_id, its two statuses
1423: OPEN check_uc_header;
1424: FETCH check_uc_header INTO l_check_uc_header;
1425: IF check_uc_header%NOTFOUND THEN
1426: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1427: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1428: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1429: FND_MSG_PUB.add;
1430: CLOSE check_uc_header;
1423: OPEN check_uc_header;
1424: FETCH check_uc_header INTO l_check_uc_header;
1425: IF check_uc_header%NOTFOUND THEN
1426: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1427: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1428: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1429: FND_MSG_PUB.add;
1430: CLOSE check_uc_header;
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1424: FETCH check_uc_header INTO l_check_uc_header;
1425: IF check_uc_header%NOTFOUND THEN
1426: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
1427: FND_MESSAGE.set_token('NAME', 'uc_header_id');
1428: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
1429: FND_MSG_PUB.add;
1430: CLOSE check_uc_header;
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: ELSE
1439: END IF;
1440:
1441: -- ACL :: Changes for R12
1442: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
1443: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
1444: FND_MSG_PUB.add;
1445: CLOSE check_uc_header;
1446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1447: END IF;
1453: l_root_active_uc_status_code,
1454: l_root_uc_ovn);
1455: IF (p_prod_user_flag = 'Y' AND --For production user, no need to confirm either one of the statuses is not APPROVAL_PENDING
1456: l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE')) THEN
1457: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_NOT_ACTIVE' );
1458: FND_MSG_PUB.add;
1459: CLOSE check_uc_header;
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF (p_prod_user_flag = 'N' AND
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF (p_prod_user_flag = 'N' AND
1462: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
1463: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
1464: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
1465: FND_MESSAGE.set_token( 'UC_HEADER_ID', l_root_uc_header_id);
1466: FND_MSG_PUB.add;
1467: CLOSE check_uc_header;
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: ELSIF (p_prod_user_flag = 'N' AND
1462: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
1463: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
1464: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
1465: FND_MESSAGE.set_token( 'UC_HEADER_ID', l_root_uc_header_id);
1466: FND_MSG_PUB.add;
1467: CLOSE check_uc_header;
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: ELSE
1484: IF (l_object_id <> p_uc_instance_rec.instance_id AND
1485: (l_subject_id <> p_uc_instance_rec.instance_id OR
1486: l_subject_id IS NULL)) THEN
1487: --Do we allow an extra node's attributes to be changed? Yes
1488: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
1489: FND_MESSAGE.set_token('INSTANCE', p_uc_instance_rec.instance_id);
1490: FND_MSG_PUB.add;
1491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1492: END IF;
1485: (l_subject_id <> p_uc_instance_rec.instance_id OR
1486: l_subject_id IS NULL)) THEN
1487: --Do we allow an extra node's attributes to be changed? Yes
1488: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
1489: FND_MESSAGE.set_token('INSTANCE', p_uc_instance_rec.instance_id);
1490: FND_MSG_PUB.add;
1491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1492: END IF;
1493:
1496: OPEN get_instance_date(p_uc_instance_rec.instance_id);
1497: FETCH get_instance_date INTO l_end_date;
1498: CLOSE get_instance_date;
1499: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
1500: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_EXPIRED');
1501: FND_MESSAGE.set_token('INSTANCE', p_uc_instance_rec.instance_id);
1502: FND_MSG_PUB.add;
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1497: FETCH get_instance_date INTO l_end_date;
1498: CLOSE get_instance_date;
1499: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
1500: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_EXPIRED');
1501: FND_MESSAGE.set_token('INSTANCE', p_uc_instance_rec.instance_id);
1502: FND_MSG_PUB.add;
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END IF;
1505:
1572: l_uc_instance_rec.sn_tag_meaning,
1573: l_lookup_code,
1574: l_return_val);
1575: IF NOT(l_return_val) THEN
1576: FND_MESSAGE.set_name('AHL','AHL_UC_TAGMEANING_INVALID');
1577: FND_MESSAGE.set_token('TAG',l_uc_instance_rec.sn_tag_meaning);
1578: FND_MSG_PUB.add;
1579: ELSE
1580: l_uc_instance_rec.sn_tag_code := l_lookup_code;
1573: l_lookup_code,
1574: l_return_val);
1575: IF NOT(l_return_val) THEN
1576: FND_MESSAGE.set_name('AHL','AHL_UC_TAGMEANING_INVALID');
1577: FND_MESSAGE.set_token('TAG',l_uc_instance_rec.sn_tag_meaning);
1578: FND_MSG_PUB.add;
1579: ELSE
1580: l_uc_instance_rec.sn_tag_code := l_lookup_code;
1581: END IF;
1587: IF ((l_uc_instance_rec.inventory_item_id <> FND_API.G_MISS_NUM AND
1588: l_uc_instance_rec.inventory_item_id <> l_old_uc_instance_rec.inventory_item_id) OR
1589: (l_uc_instance_rec.inventory_org_id <> FND_API.G_MISS_NUM AND
1590: l_uc_instance_rec.inventory_org_id <> l_old_uc_instance_rec.inventory_org_id)) THEN
1591: FND_MESSAGE.Set_Name('AHL','AHL_COM_KEY_NOUPDATE');
1592: FND_MSG_PUB.ADD;
1593: --dbms_output.put_line('Cannot update key values');
1594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1595: END IF;
1784:
1785: --mpothuku added on 13-Jul-2007 to fix the Bug 4337259
1786: IF(l_old_uc_instance_rec.sn_tag_code is not NULL AND l_old_uc_instance_rec.sn_tag_code IN ('ACTUAL','TEMPORARY')) THEN
1787: IF(l_uc_instance_rec.sn_tag_code is not NULL AND l_uc_instance_rec.sn_tag_code = 'INVENTORY') THEN
1788: FND_MESSAGE.Set_Name('AHL','AHL_UC_SER_TG_EDIT_INVEN');
1789: FND_MSG_PUB.ADD;
1790: END IF;
1791: END IF;
1792: --mpothuku End
1826: /*
1827: IF (l_uc_instance_rec.install_date IS NOT NULL AND
1828: l_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
1829: IF (l_uc_instance_rec.install_date > SYSDATE) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UC_INSTDATE_INVALID');
1831: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.install_date);
1832: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1833: FND_MSG_PUB.ADD;
1834: --dbms_output.put_line('Installation date invalid.');
1827: IF (l_uc_instance_rec.install_date IS NOT NULL AND
1828: l_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
1829: IF (l_uc_instance_rec.install_date > SYSDATE) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UC_INSTDATE_INVALID');
1831: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.install_date);
1832: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1833: FND_MSG_PUB.ADD;
1834: --dbms_output.put_line('Installation date invalid.');
1835: END IF;
1828: l_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
1829: IF (l_uc_instance_rec.install_date > SYSDATE) THEN
1830: FND_MESSAGE.Set_Name('AHL','AHL_UC_INSTDATE_INVALID');
1831: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.install_date);
1832: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1833: FND_MSG_PUB.ADD;
1834: --dbms_output.put_line('Installation date invalid.');
1835: END IF;
1836: END IF;
1838:
1839: --Validate mfg_date if not null.
1840: IF (l_uc_instance_rec.mfg_date IS NOT NULL AND l_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
1841: IF (l_uc_instance_rec.mfg_date > SYSDATE) THEN
1842: FND_MESSAGE.Set_Name('AHL','AHL_UC_MFGDATE_INVALID');
1843: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.mfg_date);
1844: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1845: FND_MSG_PUB.ADD;
1846: --dbms_output.put_line('Mfg date invalid.');
1839: --Validate mfg_date if not null.
1840: IF (l_uc_instance_rec.mfg_date IS NOT NULL AND l_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
1841: IF (l_uc_instance_rec.mfg_date > SYSDATE) THEN
1842: FND_MESSAGE.Set_Name('AHL','AHL_UC_MFGDATE_INVALID');
1843: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.mfg_date);
1844: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1845: FND_MSG_PUB.ADD;
1846: --dbms_output.put_line('Mfg date invalid.');
1847: END IF;
1840: IF (l_uc_instance_rec.mfg_date IS NOT NULL AND l_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
1841: IF (l_uc_instance_rec.mfg_date > SYSDATE) THEN
1842: FND_MESSAGE.Set_Name('AHL','AHL_UC_MFGDATE_INVALID');
1843: FND_MESSAGE.Set_Token('DATE',l_uc_instance_rec.mfg_date);
1844: FND_MESSAGE.Set_Token('INV_ITEM',l_concatenated_segments);
1845: FND_MSG_PUB.ADD;
1846: --dbms_output.put_line('Mfg date invalid.');
1847: END IF;
1848: END IF;
1889: IF (l_uc_instance_rec.sn_tag_code IS NOT NULL) THEN
1890: -- create extended attributes.
1891: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM', l_attribute_id,l_return_val);
1892: IF NOT(l_return_val) THEN
1893: FND_MESSAGE.Set_Name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
1894: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
1895: FND_MSG_PUB.ADD;
1896: --dbms_output.put_line('Attribute code for TEMP_SERIAL_NUM not found');
1897: ELSE
1890: -- create extended attributes.
1891: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM', l_attribute_id,l_return_val);
1892: IF NOT(l_return_val) THEN
1893: FND_MESSAGE.Set_Name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
1894: FND_MESSAGE.Set_Token('CODE', 'AHL_TEMP_SERIAL_NUM');
1895: FND_MSG_PUB.ADD;
1896: --dbms_output.put_line('Attribute code for TEMP_SERIAL_NUM not found');
1897: ELSE
1898: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
1921: l_mfg_date_rec_found := 'Y';
1922: END IF;
1923: EXCEPTION
1924: WHEN OTHERS THEN
1925: FND_MESSAGE.Set_Name('AHL','AHL_UC_MFGDATE_INVALID');
1926: FND_MSG_PUB.ADD;
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END;
1929: --dbms_output.put_line('after get mfg_date');
1947: ELSIF (l_mfg_date_rec_found = 'N' ) THEN
1948: IF (l_uc_instance_rec.mfg_date IS NOT NULL) THEN
1949: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_MFG_DATE', l_attribute_id, l_return_val);
1950: IF NOT(l_return_val) THEN
1951: FND_MESSAGE.Set_Name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
1952: FND_MESSAGE.Set_Token('CODE', 'AHL_MFG_DATE');
1953: FND_MSG_PUB.ADD;
1954: --dbms_output.put_line('Attribute code for AHL_MFG_DATE not found');
1955: ELSE
1948: IF (l_uc_instance_rec.mfg_date IS NOT NULL) THEN
1949: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_MFG_DATE', l_attribute_id, l_return_val);
1950: IF NOT(l_return_val) THEN
1951: FND_MESSAGE.Set_Name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
1952: FND_MESSAGE.Set_Token('CODE', 'AHL_MFG_DATE');
1953: FND_MSG_PUB.ADD;
1954: --dbms_output.put_line('Attribute code for AHL_MFG_DATE not found');
1955: ELSE
1956: l_csi_extend_attrib_rec1.attribute_id := l_attribute_id;
2114: last_update_login = FND_GLOBAL.login_id
2115: WHERE unit_config_header_id = l_root_uc_header_id
2116: AND object_version_number = l_root_uc_ovn;
2117: IF SQL%ROWCOUNT = 0 THEN
2118: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
2119: FND_MSG_PUB.add;
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSIF (l_root_uc_status_code = 'INCOMPLETE' AND
2131: last_update_login = FND_GLOBAL.login_id
2132: WHERE unit_config_header_id = l_root_uc_header_id
2133: AND object_version_number = l_root_uc_ovn;
2134: IF SQL%ROWCOUNT = 0 THEN
2135: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
2136: FND_MSG_PUB.add;
2137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2138: END IF;
2139: ELSIF (l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE', 'DRAFT')) THEN
2147: last_update_login = FND_GLOBAL.login_id
2148: WHERE unit_config_header_id = l_root_uc_header_id
2149: AND object_version_number = l_root_uc_ovn;
2150: IF SQL%ROWCOUNT = 0 THEN
2151: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
2152: FND_MSG_PUB.add;
2153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2154: END IF;
2155: END IF;
2451: END IF;
2452:
2453: --Validate input parameters p_prod_user_flag
2454: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
2455: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2456: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
2457: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
2458: FND_MSG_PUB.add;
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452:
2453: --Validate input parameters p_prod_user_flag
2454: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
2455: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2456: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
2457: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
2458: FND_MSG_PUB.add;
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2453: --Validate input parameters p_prod_user_flag
2454: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
2455: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2456: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
2457: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
2458: FND_MSG_PUB.add;
2459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: --Validate input parameter p_uc_header_id, its two statuses
2461: --Validate input parameter p_uc_header_id, its two statuses
2462: OPEN check_uc_header;
2463: FETCH check_uc_header INTO l_check_uc_header;
2464: IF check_uc_header%NOTFOUND THEN
2465: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2466: FND_MESSAGE.set_token('NAME', 'uc_header_id');
2467: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
2468: FND_MSG_PUB.add;
2469: CLOSE check_uc_header;
2462: OPEN check_uc_header;
2463: FETCH check_uc_header INTO l_check_uc_header;
2464: IF check_uc_header%NOTFOUND THEN
2465: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2466: FND_MESSAGE.set_token('NAME', 'uc_header_id');
2467: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
2468: FND_MSG_PUB.add;
2469: CLOSE check_uc_header;
2470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2463: FETCH check_uc_header INTO l_check_uc_header;
2464: IF check_uc_header%NOTFOUND THEN
2465: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
2466: FND_MESSAGE.set_token('NAME', 'uc_header_id');
2467: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
2468: FND_MSG_PUB.add;
2469: CLOSE check_uc_header;
2470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2471: ELSE
2471: ELSE
2472:
2473: -- ACL :: Changes for R12
2474: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
2475: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
2476: FND_MSG_PUB.add;
2477: CLOSE check_uc_header;
2478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2479: END IF;
2485: l_root_active_uc_status_code,
2486: l_root_uc_ovn);
2487: IF (p_prod_user_flag = 'Y' AND --For production user, no need to confirm either one of the statuses is not APPROVAL_PENDING
2488: l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE')) THEN
2489: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_NOT_ACTIVE' );
2490: FND_MSG_PUB.add;
2491: CLOSE check_uc_header;
2492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2493: ELSIF (p_prod_user_flag = 'N' AND
2492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2493: ELSIF (p_prod_user_flag = 'N' AND
2494: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
2495: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
2496: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
2497: FND_MESSAGE.set_token( 'UC_HEADER_ID', l_root_uc_header_id);
2498: FND_MSG_PUB.add;
2499: CLOSE check_uc_header;
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2493: ELSIF (p_prod_user_flag = 'N' AND
2494: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
2495: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
2496: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
2497: FND_MESSAGE.set_token( 'UC_HEADER_ID', l_root_uc_header_id);
2498: FND_MSG_PUB.add;
2499: CLOSE check_uc_header;
2500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2501: ELSE
2524: p_parent_instance_id IS NULL OR
2525: l_subject_id IS NULL OR
2526: l_parent_relationship_id IS NULL) THEN
2527: --Do we allow an extra node's attributes to be changed?
2528: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
2529: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
2530: FND_MSG_PUB.add;
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2525: l_subject_id IS NULL OR
2526: l_parent_relationship_id IS NULL) THEN
2527: --Do we allow an extra node's attributes to be changed?
2528: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
2529: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
2530: FND_MSG_PUB.add;
2531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2533: END IF;
2535: --Then validate p_x_uc_instance_rec.relationship_id can be child of l_parent_relationship_id
2536: OPEN check_parent_relationship(p_x_uc_instance_rec.relationship_id, l_parent_relationship_id);
2537: FETCH check_parent_relationship INTO l_dummy_char;
2538: IF check_parent_relationship%NOTFOUND THEN
2539: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
2540: FND_MESSAGE.set_token('CHILD', p_x_uc_instance_rec.relationship_id);
2541: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
2542: FND_MSG_PUB.add;
2543: CLOSE check_parent_relationship;
2536: OPEN check_parent_relationship(p_x_uc_instance_rec.relationship_id, l_parent_relationship_id);
2537: FETCH check_parent_relationship INTO l_dummy_char;
2538: IF check_parent_relationship%NOTFOUND THEN
2539: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
2540: FND_MESSAGE.set_token('CHILD', p_x_uc_instance_rec.relationship_id);
2541: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
2542: FND_MSG_PUB.add;
2543: CLOSE check_parent_relationship;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2537: FETCH check_parent_relationship INTO l_dummy_char;
2538: IF check_parent_relationship%NOTFOUND THEN
2539: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
2540: FND_MESSAGE.set_token('CHILD', p_x_uc_instance_rec.relationship_id);
2541: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
2542: FND_MSG_PUB.add;
2543: CLOSE check_parent_relationship;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: ELSE
2549: --Make sure position p_x_uc_instance_rec.relationship_id is empty
2550: OPEN check_position_empty(p_parent_instance_id, p_x_uc_instance_rec.relationship_id);
2551: FETCH check_position_empty INTO l_dummy;
2552: IF check_position_empty%FOUND THEN
2553: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INSTALLED' );
2554: FND_MESSAGE.set_token('POSITION', p_x_uc_instance_rec.relationship_id);
2555: FND_MSG_PUB.add;
2556: CLOSE check_position_empty;
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2550: OPEN check_position_empty(p_parent_instance_id, p_x_uc_instance_rec.relationship_id);
2551: FETCH check_position_empty INTO l_dummy;
2552: IF check_position_empty%FOUND THEN
2553: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INSTALLED' );
2554: FND_MESSAGE.set_token('POSITION', p_x_uc_instance_rec.relationship_id);
2555: FND_MSG_PUB.add;
2556: CLOSE check_position_empty;
2557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2558: ELSE
2560: END IF;
2561: --When creating the new instances, the "From Inventory" Serial Tag should not be used anymore.
2562: --mpothuku added on 13-Jul-2007 to fix the Bug 4337259
2563: IF(p_x_uc_instance_rec.sn_tag_code is not null AND p_x_uc_instance_rec.sn_tag_code = 'INVENTORY') THEN
2564: FND_MESSAGE.set_name( 'AHL','AHL_UC_SER_TG_CR_INVEN' );
2565: FND_MSG_PUB.add;
2566: END IF;
2567: --mpothuku End
2568:
2597: p_x_sub_uc_rec.uc_name IS NULL) OR
2598: p_x_sub_uc_rec.uc_name IS NOT NULL AND (p_x_sub_uc_rec.mc_revision IS NULL OR
2599: p_x_sub_uc_rec.mc_name IS NULL))
2600: THEN
2601: FND_MESSAGE.set_name('AHL','AHL_UC_SUB_UNIT_INFO_MISSING');
2602: FND_MSG_PUB.add;
2603: RAISE FND_API.G_EXC_ERROR;
2604: END IF;
2605:
2607: IF p_x_sub_uc_rec.uc_name IS NOT NULL THEN
2608: OPEN check_uc_name_unique(p_x_sub_uc_rec.uc_name);
2609: FETCH check_uc_name_unique INTO l_dummy_char;
2610: IF check_uc_name_unique%FOUND THEN
2611: FND_MESSAGE.set_name('AHL','AHL_UC_NAME_DUPLICATE');
2612: FND_MESSAGE.set_token('NAME', p_x_sub_uc_rec.uc_name);
2613: FND_MSG_PUB.add;
2614: CLOSE check_uc_name_unique;
2615: RAISE FND_API.G_EXC_ERROR;
2608: OPEN check_uc_name_unique(p_x_sub_uc_rec.uc_name);
2609: FETCH check_uc_name_unique INTO l_dummy_char;
2610: IF check_uc_name_unique%FOUND THEN
2611: FND_MESSAGE.set_name('AHL','AHL_UC_NAME_DUPLICATE');
2612: FND_MESSAGE.set_token('NAME', p_x_sub_uc_rec.uc_name);
2613: FND_MSG_PUB.add;
2614: CLOSE check_uc_name_unique;
2615: RAISE FND_API.G_EXC_ERROR;
2616: ELSE
2624: p_x_sub_uc_rec.mc_revision,
2625: p_x_uc_instance_rec.relationship_id);
2626: FETCH get_sub_mc_header INTO l_sub_mc_header_id, l_top_relationship_id;
2627: IF get_sub_mc_header%NOTFOUND THEN
2628: FND_MESSAGE.set_name('AHL','AHL_UC_SUB_MC_INVALID');
2629: FND_MESSAGE.set_token('NAME', p_x_sub_uc_rec.mc_name);
2630: FND_MESSAGE.set_token('REVISION', p_x_sub_uc_rec.mc_revision);
2631: FND_MSG_PUB.add;
2632: CLOSE get_sub_mc_header;
2625: p_x_uc_instance_rec.relationship_id);
2626: FETCH get_sub_mc_header INTO l_sub_mc_header_id, l_top_relationship_id;
2627: IF get_sub_mc_header%NOTFOUND THEN
2628: FND_MESSAGE.set_name('AHL','AHL_UC_SUB_MC_INVALID');
2629: FND_MESSAGE.set_token('NAME', p_x_sub_uc_rec.mc_name);
2630: FND_MESSAGE.set_token('REVISION', p_x_sub_uc_rec.mc_revision);
2631: FND_MSG_PUB.add;
2632: CLOSE get_sub_mc_header;
2633: RAISE FND_API.G_EXC_ERROR;
2626: FETCH get_sub_mc_header INTO l_sub_mc_header_id, l_top_relationship_id;
2627: IF get_sub_mc_header%NOTFOUND THEN
2628: FND_MESSAGE.set_name('AHL','AHL_UC_SUB_MC_INVALID');
2629: FND_MESSAGE.set_token('NAME', p_x_sub_uc_rec.mc_name);
2630: FND_MESSAGE.set_token('REVISION', p_x_sub_uc_rec.mc_revision);
2631: FND_MSG_PUB.add;
2632: CLOSE get_sub_mc_header;
2633: RAISE FND_API.G_EXC_ERROR;
2634: ELSE
2666: --Validate manufacturing date.
2667: IF (p_x_uc_instance_rec.mfg_date IS NOT NULL AND
2668: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
2669: IF (p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
2670: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
2671: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
2672: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
2673: FND_MSG_PUB.add;
2674: --dbms_output.put_line('Mfg date invalid.');
2667: IF (p_x_uc_instance_rec.mfg_date IS NOT NULL AND
2668: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
2669: IF (p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
2670: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
2671: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
2672: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
2673: FND_MSG_PUB.add;
2674: --dbms_output.put_line('Mfg date invalid.');
2675: END IF;
2668: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
2669: IF (p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
2670: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
2671: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
2672: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
2673: FND_MSG_PUB.add;
2674: --dbms_output.put_line('Mfg date invalid.');
2675: END IF;
2676: END IF;
2679: --Keep the installation date validation only for production user (04/21/2004)
2680: IF (p_x_uc_instance_rec.install_date IS NOT NULL AND
2681: p_x_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
2682: IF (p_prod_user_flag = 'Y' AND trunc(p_x_uc_instance_rec.install_date) > trunc(SYSDATE)) THEN
2683: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
2684: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.install_date);
2685: FND_MESSAGE.set_token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2686: FND_MSG_PUB.add;
2687: --dbms_output.put_line('Installation date invalid.');
2680: IF (p_x_uc_instance_rec.install_date IS NOT NULL AND
2681: p_x_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
2682: IF (p_prod_user_flag = 'Y' AND trunc(p_x_uc_instance_rec.install_date) > trunc(SYSDATE)) THEN
2683: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
2684: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.install_date);
2685: FND_MESSAGE.set_token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2686: FND_MSG_PUB.add;
2687: --dbms_output.put_line('Installation date invalid.');
2688: END IF;
2681: p_x_uc_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
2682: IF (p_prod_user_flag = 'Y' AND trunc(p_x_uc_instance_rec.install_date) > trunc(SYSDATE)) THEN
2683: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
2684: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.install_date);
2685: FND_MESSAGE.set_token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2686: FND_MSG_PUB.add;
2687: --dbms_output.put_line('Installation date invalid.');
2688: END IF;
2689: END IF;
2693: OPEN csi_item_instance_csr(p_parent_instance_id);
2694: FETCH csi_item_instance_csr INTO l_uc_owner_loc_rec;
2695: IF (csi_item_instance_csr%NOTFOUND) THEN
2696: CLOSE csi_item_instance_csr;
2697: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
2698: FND_MESSAGE.set_token('CSII',p_parent_instance_id);
2699: FND_MESSAGE.Set_Token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2700: FND_MSG_PUB.add;
2701: --dbms_output.put_line('Top node item instance does not exist.');
2694: FETCH csi_item_instance_csr INTO l_uc_owner_loc_rec;
2695: IF (csi_item_instance_csr%NOTFOUND) THEN
2696: CLOSE csi_item_instance_csr;
2697: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
2698: FND_MESSAGE.set_token('CSII',p_parent_instance_id);
2699: FND_MESSAGE.Set_Token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2700: FND_MSG_PUB.add;
2701: --dbms_output.put_line('Top node item instance does not exist.');
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2695: IF (csi_item_instance_csr%NOTFOUND) THEN
2696: CLOSE csi_item_instance_csr;
2697: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
2698: FND_MESSAGE.set_token('CSII',p_parent_instance_id);
2699: FND_MESSAGE.Set_Token('POSN_REF',p_x_uc_instance_rec.relationship_id);
2700: FND_MSG_PUB.add;
2701: --dbms_output.put_line('Top node item instance does not exist.');
2702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2703: END IF;
2901: IF (p_x_uc_instance_rec.mfg_date IS NOT NULL AND
2902: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
2903: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_MFG_DATE',l_attribute_id, l_return_val);
2904: IF NOT(l_return_val) THEN
2905: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
2906: FND_MESSAGE.set_token('CODE', 'AHL_MFG_DATE');
2907: FND_MSG_PUB.add;
2908: --dbms_output.put_line('Attribute code for AHL_MFG_DATE not found');
2909: ELSE
2902: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
2903: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_MFG_DATE',l_attribute_id, l_return_val);
2904: IF NOT(l_return_val) THEN
2905: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
2906: FND_MESSAGE.set_token('CODE', 'AHL_MFG_DATE');
2907: FND_MSG_PUB.add;
2908: --dbms_output.put_line('Attribute code for AHL_MFG_DATE not found');
2909: ELSE
2910: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
2918: p_x_uc_instance_rec.serial_number <> FND_API.G_MISS_CHAR) THEN
2919: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
2920:
2921: IF NOT(l_return_val) THEN
2922: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
2923: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
2924: FND_MSG_PUB.add;
2925: --dbms_output.put_line('Attribute code for TEMP_SERIAL_NUM not found');
2926: ELSE
2919: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
2920:
2921: IF NOT(l_return_val) THEN
2922: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
2923: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
2924: FND_MSG_PUB.add;
2925: --dbms_output.put_line('Attribute code for TEMP_SERIAL_NUM not found');
2926: ELSE
2927: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
3003: --Before installing the new instance, make sure its operating unit is exactly the same as that
3004: --of the root instance.
3005: l_new_instance_ou := get_operating_unit(l_new_instance_id);
3006: IF l_root_instance_ou IS NULL THEN
3007: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3008: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3009: FND_MSG_PUB.add;
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: ELSIF l_new_instance_ou IS NULL THEN
3004: --of the root instance.
3005: l_new_instance_ou := get_operating_unit(l_new_instance_id);
3006: IF l_root_instance_ou IS NULL THEN
3007: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3008: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3009: FND_MSG_PUB.add;
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: ELSIF l_new_instance_ou IS NULL THEN
3012: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3008: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3009: FND_MSG_PUB.add;
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: ELSIF l_new_instance_ou IS NULL THEN
3012: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3013: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3014: FND_MSG_PUB.add;
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
3009: FND_MSG_PUB.add;
3010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3011: ELSIF l_new_instance_ou IS NULL THEN
3012: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3013: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3014: FND_MSG_PUB.add;
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
3017: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3013: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3014: FND_MSG_PUB.add;
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
3017: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3018: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3019: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3020: FND_MSG_PUB.add;
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3014: FND_MSG_PUB.add;
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
3017: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3018: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3019: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3020: FND_MSG_PUB.add;
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: END IF;
3015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3016: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
3017: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3018: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
3019: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3020: FND_MSG_PUB.add;
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: END IF;
3023:
3100: ahl_util_uc_pkg.copy_uc_header_to_history(p_x_sub_uc_rec.uc_header_id, l_return_status);
3101:
3102: --IF history copy failed, then don't raise exception, just add the message to the message stack
3103: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3104: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
3105: FND_MSG_PUB.add;
3106: END IF;
3107:
3108: END IF;
3134: OPEN get_interchange_type(p_x_uc_instance_rec.instance_id, p_x_uc_instance_rec.relationship_id);
3135: END IF;
3136: FETCH get_interchange_type INTO l_interchange_type_code, l_interchange_reason;
3137: IF get_interchange_type%NOTFOUND THEN
3138: FND_MESSAGE.set_name('AHL', 'AHL_UC_ITEM_INTERCHANGE_MISS');
3139: FND_MESSAGE.set_token('INSTANCE', p_x_uc_instance_rec.instance_id);
3140: FND_MSG_PUB.add;
3141: CLOSE get_interchange_type;
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3135: END IF;
3136: FETCH get_interchange_type INTO l_interchange_type_code, l_interchange_reason;
3137: IF get_interchange_type%NOTFOUND THEN
3138: FND_MESSAGE.set_name('AHL', 'AHL_UC_ITEM_INTERCHANGE_MISS');
3139: FND_MESSAGE.set_token('INSTANCE', p_x_uc_instance_rec.instance_id);
3140: FND_MSG_PUB.add;
3141: CLOSE get_interchange_type;
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: ELSIF l_interchange_type_code = '1-WAY INTERCHANGEABLE' THEN
3140: FND_MSG_PUB.add;
3141: CLOSE get_interchange_type;
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: ELSIF l_interchange_type_code = '1-WAY INTERCHANGEABLE' THEN
3144: FND_MESSAGE.set_name('AHL', 'AHL_UC_1WAY_ITEM_INSTALLED');
3145: SELECT f.meaning INTO l_position_ref_meaning
3146: FROM ahl_mc_relationships a,
3147: fnd_lookups f
3148: WHERE a.relationship_id = p_x_uc_instance_rec.relationship_id
3150: AND f.lookup_type (+) = 'AHL_POSITION_REFERENCE' ;
3151: --Here always use p_x_uc_instance_rec.relationship_id instead of l_top_relationship_id because
3152: --UC tree UI always displays the parent leaf relationship_id instead of sub-uc top relationship_id
3153: --when it comes to the sub-uc.
3154: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
3155: FND_MESSAGE.set_token('REASON', l_interchange_reason);
3156: --Here the message is not added to the global message stack;
3157: IF x_warning_msg_tbl.count > 0 THEN
3158: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
3151: --Here always use p_x_uc_instance_rec.relationship_id instead of l_top_relationship_id because
3152: --UC tree UI always displays the parent leaf relationship_id instead of sub-uc top relationship_id
3153: --when it comes to the sub-uc.
3154: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
3155: FND_MESSAGE.set_token('REASON', l_interchange_reason);
3156: --Here the message is not added to the global message stack;
3157: IF x_warning_msg_tbl.count > 0 THEN
3158: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
3159: ELSE
3154: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
3155: FND_MESSAGE.set_token('REASON', l_interchange_reason);
3156: --Here the message is not added to the global message stack;
3157: IF x_warning_msg_tbl.count > 0 THEN
3158: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
3159: ELSE
3160: x_warning_msg_tbl(0) := FND_MESSAGE.get;
3161: END IF;
3162: END IF;
3156: --Here the message is not added to the global message stack;
3157: IF x_warning_msg_tbl.count > 0 THEN
3158: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
3159: ELSE
3160: x_warning_msg_tbl(0) := FND_MESSAGE.get;
3161: END IF;
3162: END IF;
3163: CLOSE get_interchange_type;
3164:
3179: last_update_login = FND_GLOBAL.login_id
3180: WHERE unit_config_header_id = l_root_uc_header_id
3181: AND object_version_number = l_root_uc_ovn;
3182: IF SQL%ROWCOUNT = 0 THEN
3183: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
3184: FND_MSG_PUB.add;
3185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3186: END IF;
3187: ELSIF (l_root_uc_status_code IN ('COMPLETE', 'INCOMPLETE') AND
3197: last_update_login = FND_GLOBAL.login_id
3198: WHERE unit_config_header_id = l_root_uc_header_id
3199: AND object_version_number = l_root_uc_ovn;
3200: IF SQL%ROWCOUNT = 0 THEN
3201: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
3202: FND_MSG_PUB.add;
3203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3204: END IF;
3205: ELSIF (l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE', 'DRAFT')) THEN
3219: last_update_login = FND_GLOBAL.login_id
3220: WHERE unit_config_header_id = l_root_uc_header_id
3221: AND object_version_number = l_root_uc_ovn;
3222: IF SQL%ROWCOUNT = 0 THEN
3223: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
3224: FND_MSG_PUB.add;
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227: END IF;
3236: last_update_login = FND_GLOBAL.login_id
3237: WHERE unit_config_header_id = l_root_uc_header_id
3238: AND object_version_number = l_root_uc_ovn;
3239: IF SQL%ROWCOUNT = 0 THEN
3240: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
3241: FND_MSG_PUB.add;
3242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3243: END IF;
3244: END IF;
3651: END IF;
3652:
3653: --Validate input parameters p_prod_user_flag
3654: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
3655: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3656: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
3657: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
3658: FND_MSG_PUB.add;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3652:
3653: --Validate input parameters p_prod_user_flag
3654: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
3655: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3656: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
3657: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
3658: FND_MSG_PUB.add;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3653: --Validate input parameters p_prod_user_flag
3654: IF upper(p_prod_user_flag) <> 'Y' AND upper(p_prod_user_flag) <> 'N' THEN
3655: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3656: FND_MESSAGE.set_token('NAME', 'prod_user_flag');
3657: FND_MESSAGE.set_token('VALUE', p_prod_user_flag);
3658: FND_MSG_PUB.add;
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3662: --Validate input parameter p_uc_header_id, its two statuses
3663: OPEN check_uc_header;
3664: FETCH check_uc_header INTO l_check_uc_header;
3665: IF check_uc_header%NOTFOUND THEN
3666: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3667: FND_MESSAGE.set_token('NAME', 'uc_header_id');
3668: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
3669: FND_MSG_PUB.add;
3670: CLOSE check_uc_header;
3663: OPEN check_uc_header;
3664: FETCH check_uc_header INTO l_check_uc_header;
3665: IF check_uc_header%NOTFOUND THEN
3666: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3667: FND_MESSAGE.set_token('NAME', 'uc_header_id');
3668: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
3669: FND_MSG_PUB.add;
3670: CLOSE check_uc_header;
3671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3664: FETCH check_uc_header INTO l_check_uc_header;
3665: IF check_uc_header%NOTFOUND THEN
3666: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
3667: FND_MESSAGE.set_token('NAME', 'uc_header_id');
3668: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
3669: FND_MSG_PUB.add;
3670: CLOSE check_uc_header;
3671: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3672: ELSE
3672: ELSE
3673:
3674: -- ACL :: Changes for R12
3675: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => p_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
3676: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
3677: FND_MSG_PUB.add;
3678: CLOSE check_uc_header;
3679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3680: END IF;
3686: l_root_active_uc_status_code,
3687: l_root_uc_ovn);
3688: IF (p_prod_user_flag = 'Y' AND --For production user, no need to confirm either one of the statuses is not APPROVAL_PENDING
3689: l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE')) THEN
3690: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_NOT_ACTIVE' );
3691: FND_MSG_PUB.add;
3692: CLOSE check_uc_header;
3693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3694: ELSIF (p_prod_user_flag = 'N' AND
3693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3694: ELSIF (p_prod_user_flag = 'N' AND
3695: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
3696: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
3697: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
3698: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
3699: FND_MSG_PUB.add;
3700: CLOSE check_uc_header;
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3694: ELSIF (p_prod_user_flag = 'N' AND
3695: (l_root_uc_status_code = 'APPROVAL_PENDING' OR
3696: l_root_active_uc_status_code = 'APPROVAL_PENDING')) THEN
3697: FND_MESSAGE.set_name( 'AHL','AHL_UC_STATUS_PENDING' );
3698: FND_MESSAGE.set_token('UC_HEADER_ID', l_root_uc_header_id);
3699: FND_MSG_PUB.add;
3700: CLOSE check_uc_header;
3701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3702: ELSE
3725: p_parent_instance_id IS NULL OR
3726: l_subject_id IS NULL OR
3727: l_parent_relationship_id IS NULL) THEN
3728: --We don't allow installing child instance to an extra node.
3729: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
3730: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
3731: FND_MSG_PUB.add;
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3726: l_subject_id IS NULL OR
3727: l_parent_relationship_id IS NULL) THEN
3728: --We don't allow installing child instance to an extra node.
3729: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
3730: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
3731: FND_MSG_PUB.add;
3732: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733: END IF;
3734: END IF;
3735: --Then validate p_relationship_id can be child of l_parent_relationship_id
3736: OPEN check_parent_relationship(p_relationship_id, l_parent_relationship_id);
3737: FETCH check_parent_relationship INTO l_dummy;
3738: IF check_parent_relationship%NOTFOUND THEN
3739: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
3740: FND_MESSAGE.set_token('CHILD', p_relationship_id);
3741: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
3742: FND_MSG_PUB.add;
3743: CLOSE check_parent_relationship;
3736: OPEN check_parent_relationship(p_relationship_id, l_parent_relationship_id);
3737: FETCH check_parent_relationship INTO l_dummy;
3738: IF check_parent_relationship%NOTFOUND THEN
3739: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
3740: FND_MESSAGE.set_token('CHILD', p_relationship_id);
3741: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
3742: FND_MSG_PUB.add;
3743: CLOSE check_parent_relationship;
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3737: FETCH check_parent_relationship INTO l_dummy;
3738: IF check_parent_relationship%NOTFOUND THEN
3739: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_MISMATCH' );
3740: FND_MESSAGE.set_token('CHILD', p_relationship_id);
3741: FND_MESSAGE.set_token('PARENT', l_parent_relationship_id);
3742: FND_MSG_PUB.add;
3743: CLOSE check_parent_relationship;
3744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3745: ELSE
3748: --Make sure position p_relationship_id is empty
3749: OPEN check_position_empty(p_parent_instance_id, p_relationship_id);
3750: FETCH check_position_empty INTO l_dummy;
3751: IF check_position_empty%FOUND THEN
3752: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INSTALLED' );
3753: FND_MESSAGE.set_token('POSITION', p_relationship_id);
3754: FND_MSG_PUB.add;
3755: CLOSE check_position_empty;
3756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3749: OPEN check_position_empty(p_parent_instance_id, p_relationship_id);
3750: FETCH check_position_empty INTO l_dummy;
3751: IF check_position_empty%FOUND THEN
3752: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INSTALLED' );
3753: FND_MESSAGE.set_token('POSITION', p_relationship_id);
3754: FND_MSG_PUB.add;
3755: CLOSE check_position_empty;
3756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3757: ELSE
3763: OPEN csi_item_instance_csr(p_instance_id);
3764: FETCH csi_item_instance_csr INTO l_instance_rec;
3765: IF (csi_item_instance_csr%NOTFOUND) THEN
3766: CLOSE csi_item_instance_csr;
3767: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
3768: FND_MESSAGE.set_token('CSII',p_instance_id);
3769: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3770: FND_MSG_PUB.add;
3771: --dbms_output.put_line('CSI item instance ID does not exist.');
3764: FETCH csi_item_instance_csr INTO l_instance_rec;
3765: IF (csi_item_instance_csr%NOTFOUND) THEN
3766: CLOSE csi_item_instance_csr;
3767: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
3768: FND_MESSAGE.set_token('CSII',p_instance_id);
3769: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3770: FND_MSG_PUB.add;
3771: --dbms_output.put_line('CSI item instance ID does not exist.');
3772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3765: IF (csi_item_instance_csr%NOTFOUND) THEN
3766: CLOSE csi_item_instance_csr;
3767: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
3768: FND_MESSAGE.set_token('CSII',p_instance_id);
3769: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3770: FND_MSG_PUB.add;
3771: --dbms_output.put_line('CSI item instance ID does not exist.');
3772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3773: END IF;
3778: OPEN check_instance_installed(p_instance_id);
3779: FETCH check_instance_installed INTO l_dummy_char;
3780: IF (check_instance_installed%FOUND) THEN
3781: CLOSE check_instance_installed;
3782: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_INSTALLED');
3783: FND_MESSAGE.set_token('INSTANCE',p_instance_id);
3784: FND_MSG_PUB.add;
3785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3786: END IF;
3779: FETCH check_instance_installed INTO l_dummy_char;
3780: IF (check_instance_installed%FOUND) THEN
3781: CLOSE check_instance_installed;
3782: FND_MESSAGE.set_name('AHL','AHL_UC_INSTANCE_INSTALLED');
3783: FND_MESSAGE.set_token('INSTANCE',p_instance_id);
3784: FND_MSG_PUB.add;
3785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3786: END IF;
3787: CLOSE check_instance_installed;
3790: --Check object_version_number of the instance
3791: /* IF (p_uc_instance_rec.object_version_number <> l_csi_inst_rec.object_version
3792: _number) THEN
3793: CLOSE csi_item_instance_csr;
3794: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
3795: FND_MSG_PUB.add;
3796: --dbms_output.put_line('Item Instance id object version changed');
3797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3798: END IF;
3798: END IF;
3799: */
3800: --Validate the status of the instance
3801: IF (l_instance_rec.location_type_code IN ('PO','IN-TRANSIT','PROJECT','INVENTORY')) THEN
3802: FND_MESSAGE.set_name('AHL','AHL_UC_INST_STATUS_INVALID');
3803: AHL_UTIL_UC_PKG.convert_to_csimeaning('CSI_INST_LOCATION_SOURCE_CODE',
3804: l_instance_rec.location_type_code,
3805: l_meaning,l_return_val);
3806: IF NOT(l_return_val) THEN
3805: l_meaning,l_return_val);
3806: IF NOT(l_return_val) THEN
3807: l_meaning := l_instance_rec.location_type_code;
3808: END IF;
3809: FND_MESSAGE.set_token('LOCATION',l_meaning);
3810: FND_MSG_PUB.add;
3811: --dbms_output.put_line('Item Instance location is not valid');
3812: END IF;
3813:
3831: --Keep the installation date validation only for production user(04/21/2004).
3832: IF (l_instance_rec.install_date IS NOT NULL AND
3833: l_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
3834: IF (p_prod_user_flag = 'Y' AND trunc(l_instance_rec.install_date) > trunc(SYSDATE)) THEN
3835: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
3836: FND_MESSAGE.set_token('DATE',l_instance_rec.install_date);
3837: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3838: FND_MSG_PUB.add;
3839: --dbms_output.put_line('Installation date invalid.');
3832: IF (l_instance_rec.install_date IS NOT NULL AND
3833: l_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
3834: IF (p_prod_user_flag = 'Y' AND trunc(l_instance_rec.install_date) > trunc(SYSDATE)) THEN
3835: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
3836: FND_MESSAGE.set_token('DATE',l_instance_rec.install_date);
3837: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3838: FND_MSG_PUB.add;
3839: --dbms_output.put_line('Installation date invalid.');
3840: END IF;
3833: l_instance_rec.install_date <> FND_API.G_MISS_DATE) THEN
3834: IF (p_prod_user_flag = 'Y' AND trunc(l_instance_rec.install_date) > trunc(SYSDATE)) THEN
3835: FND_MESSAGE.set_name('AHL','AHL_UC_INSTDATE_INVALID');
3836: FND_MESSAGE.set_token('DATE',l_instance_rec.install_date);
3837: FND_MESSAGE.set_token('POSN_REF',p_relationship_id);
3838: FND_MSG_PUB.add;
3839: --dbms_output.put_line('Installation date invalid.');
3840: END IF;
3841: END IF;
3849: --Before installing the existing instance, make sure its operating unit is exactly the same as that
3850: --of the root instance.
3851: l_instance_ou := get_operating_unit(p_instance_id);
3852: IF l_root_instance_ou IS NULL THEN
3853: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3854: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3855: FND_MSG_PUB.add;
3856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3857: ELSIF l_instance_ou IS NULL THEN
3850: --of the root instance.
3851: l_instance_ou := get_operating_unit(p_instance_id);
3852: IF l_root_instance_ou IS NULL THEN
3853: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3854: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3855: FND_MSG_PUB.add;
3856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3857: ELSIF l_instance_ou IS NULL THEN
3858: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3854: FND_MESSAGE.set_token('INSTANCE', l_root_instance_id);
3855: FND_MSG_PUB.add;
3856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3857: ELSIF l_instance_ou IS NULL THEN
3858: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3859: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3860: FND_MSG_PUB.add;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: ELSIF l_root_instance_ou <> l_instance_ou THEN
3855: FND_MSG_PUB.add;
3856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3857: ELSIF l_instance_ou IS NULL THEN
3858: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
3859: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3860: FND_MSG_PUB.add;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: ELSIF l_root_instance_ou <> l_instance_ou THEN
3863: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3859: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3860: FND_MSG_PUB.add;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: ELSIF l_root_instance_ou <> l_instance_ou THEN
3863: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3864: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3865: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3866: FND_MSG_PUB.add;
3867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3860: FND_MSG_PUB.add;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: ELSIF l_root_instance_ou <> l_instance_ou THEN
3863: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3864: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3865: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3866: FND_MSG_PUB.add;
3867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3868: END IF;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: ELSIF l_root_instance_ou <> l_instance_ou THEN
3863: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
3864: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3865: FND_MESSAGE.set_token('ROOT_INSTANCE', l_root_instance_id);
3866: FND_MSG_PUB.add;
3867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3868: END IF;
3869:
3873: FETCH get_uc_header INTO l_sub_uc_header_id, l_mc_header_id;
3874: IF get_uc_header%FOUND THEN
3875: -- ACL :: R12 Changes
3876: IF (ahl_util_uc_pkg.IS_UNIT_QUARANTINED(p_unit_header_id => l_sub_uc_header_id , p_instance_id => null) = FND_API.G_TRUE) THEN
3877: FND_MESSAGE.set_name( 'AHL','AHL_UC_INVALID_Q_ACTION' );
3878: FND_MSG_PUB.add;
3879: CLOSE check_uc_header;
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: END IF;
3889: EXIT;
3890: END IF;
3891: END LOOP;
3892: IF NOT l_subunit THEN
3893: FND_MESSAGE.set_name('AHL','AHL_UC_SUBUNIT_MISMATCH');
3894: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3895: FND_MESSAGE.set_token('POSITION', p_relationship_id);
3896: FND_MSG_PUB.add;
3897: CLOSE get_uc_header;
3890: END IF;
3891: END LOOP;
3892: IF NOT l_subunit THEN
3893: FND_MESSAGE.set_name('AHL','AHL_UC_SUBUNIT_MISMATCH');
3894: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3895: FND_MESSAGE.set_token('POSITION', p_relationship_id);
3896: FND_MSG_PUB.add;
3897: CLOSE get_uc_header;
3898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3891: END LOOP;
3892: IF NOT l_subunit THEN
3893: FND_MESSAGE.set_name('AHL','AHL_UC_SUBUNIT_MISMATCH');
3894: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
3895: FND_MESSAGE.set_token('POSITION', p_relationship_id);
3896: FND_MSG_PUB.add;
3897: CLOSE get_uc_header;
3898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3899: END IF;
3974: --mfg_searil_numbers, otherwise it is 'TEMPORARY'
3975: OPEN get_serial_number(p_instance_id);
3976: FETCH get_serial_number INTO l_serial_number, l_mfg_serial_number_flag;
3977: IF get_serial_number%NOTFOUND THEN
3978: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
3979: FND_MESSAGE.set_token('CSII', p_instance_id);
3980: FND_MSG_PUB.add;
3981: RAISE FND_API.G_EXC_ERROR;
3982: CLOSE get_serial_number;
3975: OPEN get_serial_number(p_instance_id);
3976: FETCH get_serial_number INTO l_serial_number, l_mfg_serial_number_flag;
3977: IF get_serial_number%NOTFOUND THEN
3978: FND_MESSAGE.set_name('AHL', 'AHL_UC_CSII_INVALID');
3979: FND_MESSAGE.set_token('CSII', p_instance_id);
3980: FND_MSG_PUB.add;
3981: RAISE FND_API.G_EXC_ERROR;
3982: CLOSE get_serial_number;
3983: ELSE
4005: --mpothuku End
4006: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM', l_attribute_id, l_return_val);
4007:
4008: IF NOT(l_return_val) THEN
4009: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
4010: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
4011: FND_MSG_PUB.add;
4012: ELSE
4013: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
4006: AHL_Util_UC_Pkg.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM', l_attribute_id, l_return_val);
4007:
4008: IF NOT(l_return_val) THEN
4009: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
4010: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
4011: FND_MSG_PUB.add;
4012: ELSE
4013: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
4014: l_csi_extend_attrib_rec.attribute_value := l_serial_number_tag;
4045: END IF;
4046:
4047: --Validate input parameters p_csi_ii_ovn
4048: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4049: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4050: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4051: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4052: FND_MSG_PUB.add;
4053: CLOSE check_extra_node;
4046:
4047: --Validate input parameters p_csi_ii_ovn
4048: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4049: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4050: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4051: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4052: FND_MSG_PUB.add;
4053: CLOSE check_extra_node;
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4047: --Validate input parameters p_csi_ii_ovn
4048: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4049: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4050: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4051: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4052: FND_MSG_PUB.add;
4053: CLOSE check_extra_node;
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
4052: FND_MSG_PUB.add;
4053: CLOSE check_extra_node;
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
4056: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4057: FND_MSG_PUB.add;
4058: CLOSE check_extra_node;
4059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4060: END IF;
4088: END IF;
4089:
4090: -- Validate input parameters p_csi_ii_ovn
4091: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4092: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4093: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4094: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4095: FND_MSG_PUB.add;
4096: CLOSE check_unasgnd_extra_node_csr;
4089:
4090: -- Validate input parameters p_csi_ii_ovn
4091: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4092: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4093: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4094: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4095: FND_MSG_PUB.add;
4096: CLOSE check_unasgnd_extra_node_csr;
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4090: -- Validate input parameters p_csi_ii_ovn
4091: IF (p_csi_ii_ovn IS NULL OR p_csi_ii_ovn <= 0 ) THEN
4092: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
4093: FND_MESSAGE.set_token('NAME', 'csi_ii_ovn');
4094: FND_MESSAGE.set_token('VALUE', p_csi_ii_ovn);
4095: FND_MSG_PUB.add;
4096: CLOSE check_unasgnd_extra_node_csr;
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
4095: FND_MSG_PUB.add;
4096: CLOSE check_unasgnd_extra_node_csr;
4097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4098: ELSIF l_object_version_number <> p_csi_ii_ovn THEN
4099: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4100: FND_MSG_PUB.add;
4101: CLOSE check_unasgnd_extra_node_csr;
4102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4103: END IF;
4207: --Copy the change to history table
4208: ahl_util_uc_pkg.copy_uc_header_to_history(l_sub_uc_header_id, l_return_status);
4209: --IF history copy failed, then don't raise exception, just add the message to the message stack
4210: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4211: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
4212: FND_MSG_PUB.add;
4213: END IF;
4214: ELSIF l_instance_type = 'B' THEN --this instance is a branch node
4215: ahl_util_uc_pkg.get_parent_uc_header(p_instance_id,
4228:
4229: OPEN get_uc_header(l_get_1st_level_subunit.subject_id);
4230: FETCH get_uc_header INTO l_sub_uc_header_id, l_mc_header_id;
4231: IF get_uc_header%NOTFOUND THEN
4232: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_NOT_IN_UC');
4233: FND_MESSAGE.set_token('INSTANCE', l_get_1st_level_subunit.subject_id);
4234: FND_MSG_PUB.add;
4235: CLOSE get_uc_header;
4236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4229: OPEN get_uc_header(l_get_1st_level_subunit.subject_id);
4230: FETCH get_uc_header INTO l_sub_uc_header_id, l_mc_header_id;
4231: IF get_uc_header%NOTFOUND THEN
4232: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_NOT_IN_UC');
4233: FND_MESSAGE.set_token('INSTANCE', l_get_1st_level_subunit.subject_id);
4234: FND_MSG_PUB.add;
4235: CLOSE get_uc_header;
4236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4237: ELSE
4242: ahl_util_uc_pkg.copy_uc_header_to_history(l_sub_uc_header_id, l_return_status);
4243: --IF history copy failed, then don't raise exception, just add the messageto the message stack
4244:
4245: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4246: FND_MESSAGE.set_name('AHL', 'AHL_UC_HISTORY_COPY_FAILED');
4247: FND_MSG_PUB.add;
4248: END IF;
4249: END LOOP;
4250: END IF;
4276: IF l_instance_type <> 'S' THEN
4277: OPEN get_interchange_type(p_instance_id, p_relationship_id);
4278: FETCH get_interchange_type INTO l_interchange_type_code, l_interchange_reason;
4279: IF get_interchange_type%NOTFOUND THEN
4280: FND_MESSAGE.set_name('AHL', 'AHL_UC_ITEM_INTERCHANGE_MISS');
4281: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
4282: FND_MSG_PUB.add;
4283: CLOSE get_interchange_type;
4284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4277: OPEN get_interchange_type(p_instance_id, p_relationship_id);
4278: FETCH get_interchange_type INTO l_interchange_type_code, l_interchange_reason;
4279: IF get_interchange_type%NOTFOUND THEN
4280: FND_MESSAGE.set_name('AHL', 'AHL_UC_ITEM_INTERCHANGE_MISS');
4281: FND_MESSAGE.set_token('INSTANCE', p_instance_id);
4282: FND_MSG_PUB.add;
4283: CLOSE get_interchange_type;
4284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4285: ELSIF l_interchange_type_code = '1-WAY INTERCHANGEABLE' THEN
4282: FND_MSG_PUB.add;
4283: CLOSE get_interchange_type;
4284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4285: ELSIF l_interchange_type_code = '1-WAY INTERCHANGEABLE' THEN
4286: FND_MESSAGE.set_name('AHL', 'AHL_UC_1WAY_ITEM_INSTALLED');
4287: SELECT f.meaning INTO l_position_ref_meaning
4288: FROM ahl_mc_relationships a,
4289: fnd_lookups f
4290: WHERE a.relationship_id = p_relationship_id
4289: fnd_lookups f
4290: WHERE a.relationship_id = p_relationship_id
4291: AND f.lookup_code (+) = A.position_ref_code
4292: AND f.lookup_type (+) = 'AHL_POSITION_REFERENCE' ;
4293: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
4294: FND_MESSAGE.set_token('REASON', l_interchange_reason);
4295: --Here the message is not added to the global message stack;
4296: IF x_warning_msg_tbl.count > 0 THEN
4297: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
4290: WHERE a.relationship_id = p_relationship_id
4291: AND f.lookup_code (+) = A.position_ref_code
4292: AND f.lookup_type (+) = 'AHL_POSITION_REFERENCE' ;
4293: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
4294: FND_MESSAGE.set_token('REASON', l_interchange_reason);
4295: --Here the message is not added to the global message stack;
4296: IF x_warning_msg_tbl.count > 0 THEN
4297: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
4298: ELSE
4293: FND_MESSAGE.set_token('POSITION', l_position_ref_meaning);
4294: FND_MESSAGE.set_token('REASON', l_interchange_reason);
4295: --Here the message is not added to the global message stack;
4296: IF x_warning_msg_tbl.count > 0 THEN
4297: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
4298: ELSE
4299: x_warning_msg_tbl(0) := FND_MESSAGE.get;
4300: END IF;
4301: END IF;
4295: --Here the message is not added to the global message stack;
4296: IF x_warning_msg_tbl.count > 0 THEN
4297: x_warning_msg_tbl(x_warning_msg_tbl.last + 1) := FND_MESSAGE.get;
4298: ELSE
4299: x_warning_msg_tbl(0) := FND_MESSAGE.get;
4300: END IF;
4301: END IF;
4302: CLOSE get_interchange_type;
4303: END IF;
4318: last_update_login = FND_GLOBAL.login_id
4319: WHERE unit_config_header_id = l_root_uc_header_id
4320: AND object_version_number = l_root_uc_ovn;
4321: IF SQL%ROWCOUNT = 0 THEN
4322: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4323: FND_MSG_PUB.add;
4324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4325: END IF;
4326: ELSIF (l_root_uc_status_code IN ('COMPLETE', 'INCOMPLETE') AND
4336: last_update_login = FND_GLOBAL.login_id
4337: WHERE unit_config_header_id = l_root_uc_header_id
4338: AND object_version_number = l_root_uc_ovn;
4339: IF SQL%ROWCOUNT = 0 THEN
4340: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4341: FND_MSG_PUB.add;
4342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4343: END IF;
4344: ELSIF l_root_uc_status_code NOT IN ('COMPLETE', 'INCOMPLETE', 'DRAFT') THEN
4358: last_update_login = FND_GLOBAL.login_id
4359: WHERE unit_config_header_id = l_root_uc_header_id
4360: AND object_version_number = l_root_uc_ovn;
4361: IF SQL%ROWCOUNT = 0 THEN
4362: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4363: FND_MSG_PUB.add;
4364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4365: END IF;
4366: END IF;
4375: last_update_login = FND_GLOBAL.login_id
4376: WHERE unit_config_header_id = l_root_uc_header_id
4377: AND object_version_number = l_root_uc_ovn;
4378: IF SQL%ROWCOUNT = 0 THEN
4379: FND_MESSAGE.set_name( 'AHL','AHL_COM_RECORD_CHANGED' );
4380: FND_MSG_PUB.add;
4381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4382: END IF;
4383: END IF;
4526: --the one of the new_instance_id. All the other validations will be made in the
4527: --other two called APIs.
4528: OPEN check_relationship_id(p_old_instance_id, p_relationship_id);
4529: IF check_relationship_id%NOTFOUND THEN
4530: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_NOT_SAME' );
4531: FND_MESSAGE.set_token('POSITION', p_relationship_id);
4532: FND_MSG_PUB.add;
4533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4534: END IF;
4527: --other two called APIs.
4528: OPEN check_relationship_id(p_old_instance_id, p_relationship_id);
4529: IF check_relationship_id%NOTFOUND THEN
4530: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_NOT_SAME' );
4531: FND_MESSAGE.set_token('POSITION', p_relationship_id);
4532: FND_MSG_PUB.add;
4533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4534: END IF;
4535:
5167: --------------------------------------
5168: -- Work Order id is mandatory parmater. Throw error if its not passed.
5169: IF p_workorder_id IS NULL THEN
5170: -- Workorder is mandatory. Throw an error.
5171: FND_MESSAGE.set_name( 'AHL','AHL_COM_PARAM_MISSING' );-- check the message name here.
5172: FND_MSG_PUB.add;
5173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5174: END IF;
5175:
5179: CLOSE c_get_visit_details;
5180:
5181: -- 1.a validation corresponding to Work Order
5182: IF l_visit_details_rec.wip_entity_id IS NULL THEN
5183: FND_MESSAGE.set_name( 'AHL','AHL_UC_WORKORDER_INVALID' );
5184: FND_MESSAGE.set_token('WORKORDER', p_workorder_id);
5185: FND_MSG_PUB.add;
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5180:
5181: -- 1.a validation corresponding to Work Order
5182: IF l_visit_details_rec.wip_entity_id IS NULL THEN
5183: FND_MESSAGE.set_name( 'AHL','AHL_UC_WORKORDER_INVALID' );
5184: FND_MESSAGE.set_token('WORKORDER', p_workorder_id);
5185: FND_MSG_PUB.add;
5186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5187: END IF;
5188:
5208: FETCH check_relationship_id INTO l_relationship_id;
5209: CLOSE check_relationship_id;
5210:
5211: IF l_relationship_id IS NULL THEN
5212: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INVALID' );
5213: FND_MESSAGE.set_token('POSITION', p_relationship_id);
5214: FND_MSG_PUB.add;
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5209: CLOSE check_relationship_id;
5210:
5211: IF l_relationship_id IS NULL THEN
5212: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INVALID' );
5213: FND_MESSAGE.set_token('POSITION', p_relationship_id);
5214: FND_MSG_PUB.add;
5215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5216: END IF;
5217:
5904:
5905: OPEN check_relationship_id;
5906: FETCH check_relationship_id INTO l_relationship_id;
5907: IF check_relationship_id%NOTFOUND THEN
5908: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INVALID' );
5909: FND_MESSAGE.set_token('POSITION', p_relationship_id);
5910: FND_MSG_PUB.add;
5911: CLOSE check_relationship_id;
5912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5905: OPEN check_relationship_id;
5906: FETCH check_relationship_id INTO l_relationship_id;
5907: IF check_relationship_id%NOTFOUND THEN
5908: FND_MESSAGE.set_name( 'AHL','AHL_UC_POSITION_INVALID' );
5909: FND_MESSAGE.set_token('POSITION', p_relationship_id);
5910: FND_MSG_PUB.add;
5911: CLOSE check_relationship_id;
5912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5913: ELSE
5918: IF p_workorder_id IS NOT NULL THEN
5919: OPEN get_wip_entity_id(p_workorder_id);
5920: FETCH get_wip_entity_id INTO l_wip_entity_id;
5921: IF get_wip_entity_id%NOTFOUND THEN
5922: FND_MESSAGE.set_name( 'AHL','AHL_UC_WORKORDER_INVALID' );
5923: FND_MESSAGE.set_token('WORKORDER', p_workorder_id);
5924: FND_MSG_PUB.add;
5925: CLOSE get_wip_entity_id;
5926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5919: OPEN get_wip_entity_id(p_workorder_id);
5920: FETCH get_wip_entity_id INTO l_wip_entity_id;
5921: IF get_wip_entity_id%NOTFOUND THEN
5922: FND_MESSAGE.set_name( 'AHL','AHL_UC_WORKORDER_INVALID' );
5923: FND_MESSAGE.set_token('WORKORDER', p_workorder_id);
5924: FND_MSG_PUB.add;
5925: CLOSE get_wip_entity_id;
5926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5927: ELSE
5936: IF p_parent_instance_id IS NOT NULL THEN
5937: OPEN check_parent_instance(p_parent_instance_id);
5938: FETCH check_parent_instance INTO l_dummy_char;
5939: IF check_parent_instance%NOTFOUND THEN
5940: FND_MESSAGE.set_name( 'AHL','AHL_UC_PARENT_INST_INVALID' );
5941: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
5942: FND_MSG_PUB.add;
5943: CLOSE check_parent_instance;
5944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5937: OPEN check_parent_instance(p_parent_instance_id);
5938: FETCH check_parent_instance INTO l_dummy_char;
5939: IF check_parent_instance%NOTFOUND THEN
5940: FND_MESSAGE.set_name( 'AHL','AHL_UC_PARENT_INST_INVALID' );
5941: FND_MESSAGE.set_token('INSTANCE', p_parent_instance_id);
5942: FND_MSG_PUB.add;
5943: CLOSE check_parent_instance;
5944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5945: ELSE
5960:
5961: OPEN get_uc_status(l_top_instance_id);
5962: FETCH get_uc_status INTO l_top_uc_status;
5963: IF get_uc_status%NOTFOUND THEN
5964: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
5965: FND_MESSAGE.set_token('INSTANCE', l_top_instance_id);
5966: FND_MSG_PUB.add;
5967: CLOSE get_uc_status;
5968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5961: OPEN get_uc_status(l_top_instance_id);
5962: FETCH get_uc_status INTO l_top_uc_status;
5963: IF get_uc_status%NOTFOUND THEN
5964: FND_MESSAGE.set_name( 'AHL','AHL_UC_INSTANCE_NOT_IN_UC' );
5965: FND_MESSAGE.set_token('INSTANCE', l_top_instance_id);
5966: FND_MSG_PUB.add;
5967: CLOSE get_uc_status;
5968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5969: ELSE
6305:
6306: IF check_uc_header_csr%NOTFOUND THEN
6307: CLOSE check_uc_header_csr;
6308: -- p_uc_header_id in invalid
6309: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
6310: FND_MESSAGE.set_token('NAME', 'uc_header_id');
6311: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
6312: FND_MSG_PUB.add;
6313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6306: IF check_uc_header_csr%NOTFOUND THEN
6307: CLOSE check_uc_header_csr;
6308: -- p_uc_header_id in invalid
6309: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
6310: FND_MESSAGE.set_token('NAME', 'uc_header_id');
6311: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
6312: FND_MSG_PUB.add;
6313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6314: ELSIF (l_check_uc_header_rec.unit_config_status_code = 'APPROVAL_PENDING' OR
6307: CLOSE check_uc_header_csr;
6308: -- p_uc_header_id in invalid
6309: FND_MESSAGE.set_name('AHL','AHL_UC_API_PARAMETER_INVALID');
6310: FND_MESSAGE.set_token('NAME', 'uc_header_id');
6311: FND_MESSAGE.set_token('VALUE', p_uc_header_id);
6312: FND_MSG_PUB.add;
6313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6314: ELSIF (l_check_uc_header_rec.unit_config_status_code = 'APPROVAL_PENDING' OR
6315: l_check_uc_header_rec.active_uc_status_code = 'APPROVAL_PENDING') THEN
6314: ELSIF (l_check_uc_header_rec.unit_config_status_code = 'APPROVAL_PENDING' OR
6315: l_check_uc_header_rec.active_uc_status_code = 'APPROVAL_PENDING') THEN
6316: CLOSE check_uc_header_csr;
6317: -- UC status is not editable
6318: FND_MESSAGE.set_name('AHL','AHL_UC_STATUS_PENDING');
6319: FND_MESSAGE.set_token('UC_HEADER_ID', l_check_uc_header_rec.unit_config_header_id);
6320: FND_MSG_PUB.add;
6321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6322: ELSIF (l_check_uc_header_rec.parent_uc_header_id IS NOT NULL) THEN
6315: l_check_uc_header_rec.active_uc_status_code = 'APPROVAL_PENDING') THEN
6316: CLOSE check_uc_header_csr;
6317: -- UC status is not editable
6318: FND_MESSAGE.set_name('AHL','AHL_UC_STATUS_PENDING');
6319: FND_MESSAGE.set_token('UC_HEADER_ID', l_check_uc_header_rec.unit_config_header_id);
6320: FND_MSG_PUB.add;
6321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6322: ELSIF (l_check_uc_header_rec.parent_uc_header_id IS NOT NULL) THEN
6323: CLOSE check_uc_header_csr;
6321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6322: ELSIF (l_check_uc_header_rec.parent_uc_header_id IS NOT NULL) THEN
6323: CLOSE check_uc_header_csr;
6324: -- UC is installed sub config
6325: FND_MESSAGE.set_name('AHL','AHL_UC_INST_SUB_CONFIG');
6326: FND_MESSAGE.set_token('UC_HEADER_ID', l_check_uc_header_rec.unit_config_header_id);
6327: FND_MSG_PUB.add;
6328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6329: ELSE
6322: ELSIF (l_check_uc_header_rec.parent_uc_header_id IS NOT NULL) THEN
6323: CLOSE check_uc_header_csr;
6324: -- UC is installed sub config
6325: FND_MESSAGE.set_name('AHL','AHL_UC_INST_SUB_CONFIG');
6326: FND_MESSAGE.set_token('UC_HEADER_ID', l_check_uc_header_rec.unit_config_header_id);
6327: FND_MSG_PUB.add;
6328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6329: ELSE
6330: CLOSE check_uc_header_csr;
6340: OPEN get_instance_date(l_parent_instance_id);
6341: FETCH get_instance_date INTO l_end_date;
6342: CLOSE get_instance_date;
6343: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
6344: FND_MESSAGE.set_name('AHL','AHL_UC_STATUS_EXPIRED');
6345: FND_MESSAGE.set_token('UC_NAME', l_check_uc_header_rec.unit_config_header_id);
6346: FND_MSG_PUB.add;
6347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6348: END IF;
6341: FETCH get_instance_date INTO l_end_date;
6342: CLOSE get_instance_date;
6343: IF TRUNC(NVL(l_end_date, SYSDATE+1)) <= TRUNC(SYSDATE) THEN
6344: FND_MESSAGE.set_name('AHL','AHL_UC_STATUS_EXPIRED');
6345: FND_MESSAGE.set_token('UC_NAME', l_check_uc_header_rec.unit_config_header_id);
6346: FND_MSG_PUB.add;
6347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6348: END IF;
6349:
6348: END IF;
6349:
6350: -- When creating the new instances, the "From Inventory" Serial Tag should not be used anymore.
6351: IF(p_x_uc_instance_rec.sn_tag_code IS NOT NULL AND p_x_uc_instance_rec.sn_tag_code = 'INVENTORY') THEN
6352: FND_MESSAGE.set_name( 'AHL','AHL_UC_SER_TG_CR_INVEN' );
6353: FND_MSG_PUB.add;
6354: RAISE FND_API.G_EXC_ERROR;
6355: END IF;
6356:
6386: IF (p_x_uc_instance_rec.mfg_date IS NOT NULL AND
6387: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE AND
6388: p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
6389: -- mfg_date is invalid
6390: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
6391: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
6392: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
6393: FND_MSG_PUB.add;
6394: END IF;
6387: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE AND
6388: p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
6389: -- mfg_date is invalid
6390: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
6391: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
6392: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
6393: FND_MSG_PUB.add;
6394: END IF;
6395:
6388: p_x_uc_instance_rec.mfg_date > SYSDATE) THEN
6389: -- mfg_date is invalid
6390: FND_MESSAGE.set_name('AHL','AHL_UC_MFGDATE_INVALID');
6391: FND_MESSAGE.set_token('DATE',p_x_uc_instance_rec.mfg_date);
6392: FND_MESSAGE.set_token('INV_ITEM',l_concatenated_segments);
6393: FND_MSG_PUB.add;
6394: END IF;
6395:
6396: -- Build CSI records and call API
6400:
6401: IF (csi_item_instance_csr%NOTFOUND) THEN
6402: CLOSE csi_item_instance_csr;
6403: -- parent instance is invalid
6404: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
6405: FND_MESSAGE.set_token('CSII',l_parent_instance_id);
6406: FND_MSG_PUB.add;
6407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6408: END IF;
6401: IF (csi_item_instance_csr%NOTFOUND) THEN
6402: CLOSE csi_item_instance_csr;
6403: -- parent instance is invalid
6404: FND_MESSAGE.set_name('AHL','AHL_UC_CSII_INVALID');
6405: FND_MESSAGE.set_token('CSII',l_parent_instance_id);
6406: FND_MSG_PUB.add;
6407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6408: END IF;
6409:
6451: p_x_uc_instance_rec.mfg_date <> FND_API.G_MISS_DATE) THEN
6452: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_MFG_DATE',l_attribute_id, l_return_val);
6453:
6454: IF NOT(l_return_val) THEN
6455: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
6456: FND_MESSAGE.set_token('CODE', 'AHL_MFG_DATE');
6457: FND_MSG_PUB.add;
6458: ELSE
6459: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
6452: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_MFG_DATE',l_attribute_id, l_return_val);
6453:
6454: IF NOT(l_return_val) THEN
6455: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
6456: FND_MESSAGE.set_token('CODE', 'AHL_MFG_DATE');
6457: FND_MSG_PUB.add;
6458: ELSE
6459: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
6460: l_csi_extend_attrib_rec.attribute_value := to_char(p_x_uc_instance_rec.mfg_date, 'DD/MM/YYYY');
6467: p_x_uc_instance_rec.serial_number <> FND_API.G_MISS_CHAR) THEN
6468: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
6469:
6470: IF NOT(l_return_val) THEN
6471: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
6472: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
6473: FND_MSG_PUB.add;
6474: ELSE
6475: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
6468: AHL_UTIL_UC_PKG.getcsi_attribute_id('AHL_TEMP_SERIAL_NUM',l_attribute_id, l_return_val);
6469:
6470: IF NOT(l_return_val) THEN
6471: FND_MESSAGE.set_name('AHL','AHL_UC_ATTRIB_CODE_MISSING');
6472: FND_MESSAGE.set_token('CODE', 'AHL_TEMP_SERIAL_NUM');
6473: FND_MSG_PUB.add;
6474: ELSE
6475: l_csi_extend_attrib_rec.attribute_id := l_attribute_id;
6476: l_csi_extend_attrib_rec.attribute_value := p_x_uc_instance_rec.sn_tag_code;
6560: -- of the root instance
6561: l_new_instance_ou := get_operating_unit(l_new_instance_id);
6562:
6563: IF l_root_instance_ou IS NULL THEN
6564: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
6565: FND_MESSAGE.set_token('INSTANCE', l_parent_instance_id);
6566: FND_MSG_PUB.add;
6567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6568: ELSIF l_new_instance_ou IS NULL THEN
6561: l_new_instance_ou := get_operating_unit(l_new_instance_id);
6562:
6563: IF l_root_instance_ou IS NULL THEN
6564: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
6565: FND_MESSAGE.set_token('INSTANCE', l_parent_instance_id);
6566: FND_MSG_PUB.add;
6567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6568: ELSIF l_new_instance_ou IS NULL THEN
6569: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
6565: FND_MESSAGE.set_token('INSTANCE', l_parent_instance_id);
6566: FND_MSG_PUB.add;
6567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6568: ELSIF l_new_instance_ou IS NULL THEN
6569: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
6570: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6573: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
6566: FND_MSG_PUB.add;
6567: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6568: ELSIF l_new_instance_ou IS NULL THEN
6569: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_NULL');
6570: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6573: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
6574: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
6570: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6573: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
6574: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
6575: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6576: FND_MESSAGE.set_token('ROOT_INSTANCE', l_parent_instance_id);
6577: FND_MSG_PUB.add;
6578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6571: FND_MSG_PUB.add;
6572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6573: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
6574: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
6575: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6576: FND_MESSAGE.set_token('ROOT_INSTANCE', l_parent_instance_id);
6577: FND_MSG_PUB.add;
6578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6579: END IF;
6572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6573: ELSIF l_root_instance_ou <> l_new_instance_ou THEN
6574: FND_MESSAGE.set_name('AHL', 'AHL_UC_INSTANCE_OU_UNMATCH');
6575: FND_MESSAGE.set_token('INSTANCE', l_new_instance_id);
6576: FND_MESSAGE.set_token('ROOT_INSTANCE', l_parent_instance_id);
6577: FND_MSG_PUB.add;
6578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6579: END IF;
6580:
6911: -- Get the relationship_id from the Schedule Mtl Requirement
6912: OPEN get_asm_req_details_csr;
6913: FETCH get_asm_req_details_csr INTO l_asm_details_rec;
6914: IF get_asm_req_details_csr%NOTFOUND THEN
6915: FND_MESSAGE.SET_NAME('AHL', 'AHL_LTP_MAT_ID_INVALID');
6916: FND_MSG_PUB.add;
6917: CLOSE get_asm_req_details_csr;
6918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6919: ELSE
6923: -- Validate the relationship_id
6924: OPEN check_relationship_id(l_asm_details_rec.relationship_id);
6925: FETCH check_relationship_id INTO l_relationship_id, l_mc_header_id;
6926: IF check_relationship_id%NOTFOUND THEN
6927: FND_MESSAGE.set_name('AHL', 'AHL_UC_POSITION_INVALID');
6928: FND_MESSAGE.set_token('POSITION', l_asm_details_rec.relationship_id);
6929: FND_MSG_PUB.add;
6930: CLOSE check_relationship_id;
6931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6924: OPEN check_relationship_id(l_asm_details_rec.relationship_id);
6925: FETCH check_relationship_id INTO l_relationship_id, l_mc_header_id;
6926: IF check_relationship_id%NOTFOUND THEN
6927: FND_MESSAGE.set_name('AHL', 'AHL_UC_POSITION_INVALID');
6928: FND_MESSAGE.set_token('POSITION', l_asm_details_rec.relationship_id);
6929: FND_MSG_PUB.add;
6930: CLOSE check_relationship_id;
6931: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6932: ELSE
6937: IF p_inventory_item_id IS NOT NULL THEN
6938: OPEN check_inv_item_id;
6939: FETCH check_inv_item_id INTO l_dummy_char;
6940: IF check_inv_item_id%NOTFOUND THEN
6941: FND_MESSAGE.set_name('AHL','AHL_OSP_INVALID_INV_ITEM');
6942: FND_MSG_PUB.add;
6943: CLOSE check_inv_item_id;
6944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6945: ELSE