20: p_api_name IN VARCHAR2
21: ) IS
22: BEGIN
23: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
24: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
25: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
26: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
27: FND_MSG_PUB.Add;
28: RAISE FND_API.G_EXC_ERROR;
21: ) IS
22: BEGIN
23: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
24: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
25: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
26: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
27: FND_MSG_PUB.Add;
28: RAISE FND_API.G_EXC_ERROR;
29: END IF;
22: BEGIN
23: IF (NVL(p_number,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM) THEN
24: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
25: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
26: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
27: FND_MSG_PUB.Add;
28: RAISE FND_API.G_EXC_ERROR;
29: END IF;
30: END Check_Reqd_Param_num;
41: p_api_name IN VARCHAR2
42: ) IS
43: BEGIN
44: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
45: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
46: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
47: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
48: FND_MSG_PUB.Add;
49: RAISE FND_API.G_EXC_ERROR;
42: ) IS
43: BEGIN
44: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
45: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
46: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
47: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
48: FND_MSG_PUB.Add;
49: RAISE FND_API.G_EXC_ERROR;
50: END IF;
43: BEGIN
44: IF (NVL(p_variable,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR) THEN
45: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
46: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
47: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
48: FND_MSG_PUB.Add;
49: RAISE FND_API.G_EXC_ERROR;
50: END IF;
51: END Check_Reqd_Param_char;
62: p_api_name IN VARCHAR2
63: ) IS
64: BEGIN
65: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
66: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
67: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
68: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
69: FND_MSG_PUB.Add;
70: RAISE FND_API.G_EXC_ERROR;
63: ) IS
64: BEGIN
65: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
66: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
67: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
68: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
69: FND_MSG_PUB.Add;
70: RAISE FND_API.G_EXC_ERROR;
71: END IF;
64: BEGIN
65: IF (NVL(p_date,FND_API.G_MISS_DATE) = FND_API.G_MISS_DATE) THEN
66: FND_MESSAGE.SET_NAME('CSI','CSI_API_REQD_PARAM_MISSING');
67: FND_MESSAGE.SET_TOKEN('API_NAME',p_api_name);
68: FND_MESSAGE.SET_TOKEN('MISSING_PARAM',p_param_name);
69: FND_MSG_PUB.Add;
70: RAISE FND_API.G_EXC_ERROR;
71: END IF;
72: END Check_Reqd_Param_date;
90: WHERE instance_id = p_item_instance_id
91: OR instance_number = l_instance_number;
92: l_return_value := TRUE;
93: IF ( p_stack_err_msg = TRUE ) THEN
94: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_EXISTS');
95: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
96: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_item_instance_id);
97: FND_MSG_PUB.Add;
98: END IF;
91: OR instance_number = l_instance_number;
92: l_return_value := TRUE;
93: IF ( p_stack_err_msg = TRUE ) THEN
94: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_EXISTS');
95: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
96: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_item_instance_id);
97: FND_MSG_PUB.Add;
98: END IF;
99: -- Bug 9744517 (FP 9691025)
92: l_return_value := TRUE;
93: IF ( p_stack_err_msg = TRUE ) THEN
94: FND_MESSAGE.SET_NAME('CSI','CSI_API_INSTANCE_EXISTS');
95: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
96: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_item_instance_id);
97: FND_MSG_PUB.Add;
98: END IF;
99: -- Bug 9744517 (FP 9691025)
100: RETURN l_return_value;
170: SELECT instance_number
171: INTO l_instance_number
172: FROM csi_item_instances
173: WHERE instance_number=p_instance_number;
174: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
175: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
176: FND_MSG_PUB.Add;
177: l_return_value := FALSE;
178: EXCEPTION
171: INTO l_instance_number
172: FROM csi_item_instances
173: WHERE instance_number=p_instance_number;
174: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
175: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
176: FND_MSG_PUB.Add;
177: l_return_value := FALSE;
178: EXCEPTION
179: WHEN NO_DATA_FOUND THEN
178: EXCEPTION
179: WHEN NO_DATA_FOUND THEN
180: l_return_value := TRUE;
181: WHEN TOO_MANY_ROWS THEN
182: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
183: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
184: FND_MSG_PUB.Add;
185: l_return_value := FALSE;
186: END;
179: WHEN NO_DATA_FOUND THEN
180: l_return_value := TRUE;
181: WHEN TOO_MANY_ROWS THEN
182: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
183: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
184: FND_MSG_PUB.Add;
185: l_return_value := FALSE;
186: END;
187: -- End addition for eam integration
188: -- Start commentation for eam integration
189: /*
190: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
191: IF ( p_stack_err_msg = TRUE ) THEN
192: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
193: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
194: FND_MSG_PUB.Add;
195: l_return_value := FALSE;
196: END IF;
189: /*
190: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
191: IF ( p_stack_err_msg = TRUE ) THEN
192: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
193: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
194: FND_MSG_PUB.Add;
195: l_return_value := FALSE;
196: END IF;
197: END IF;
207: INTO l_instance_number
208: FROM csi_item_instances
209: WHERE instance_number = p_instance_number
210: AND instance_id <> p_item_instance_id;
211: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
212: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
213: FND_MSG_PUB.Add;
214: l_return_value := FALSE;
215: EXCEPTION
208: FROM csi_item_instances
209: WHERE instance_number = p_instance_number
210: AND instance_id <> p_item_instance_id;
211: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
212: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
213: FND_MSG_PUB.Add;
214: l_return_value := FALSE;
215: EXCEPTION
216: WHEN NO_DATA_FOUND THEN
215: EXCEPTION
216: WHEN NO_DATA_FOUND THEN
217: l_return_value := TRUE;
218: WHEN TOO_MANY_ROWS THEN
219: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
220: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
221: FND_MSG_PUB.Add;
222: l_return_value := FALSE;
223: END;
216: WHEN NO_DATA_FOUND THEN
217: l_return_value := TRUE;
218: WHEN TOO_MANY_ROWS THEN
219: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
220: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
221: FND_MSG_PUB.Add;
222: l_return_value := FALSE;
223: END;
224: -- End addition for eam integration
265: If p_trackable_flag <> FND_API.G_MISS_CHAR then
266: if nvl(p_trackable_flag,'N') <> 'Y' then
267: l_return_value := FALSE;
268: IF (p_stack_err_msg = TRUE) THEN
269: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
270: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
272: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
273:
266: if nvl(p_trackable_flag,'N') <> 'Y' then
267: l_return_value := FALSE;
268: IF (p_stack_err_msg = TRUE) THEN
269: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
270: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
272: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
273:
274: FND_MSG_PUB.Add;
267: l_return_value := FALSE;
268: IF (p_stack_err_msg = TRUE) THEN
269: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
270: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
272: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
273:
274: FND_MSG_PUB.Add;
275: END IF;
268: IF (p_stack_err_msg = TRUE) THEN
269: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
270: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
272: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
273:
274: FND_MSG_PUB.Add;
275: END IF;
276: else
288: l_return_value := TRUE;
289: ELSE
290: l_return_value := FALSE;
291: IF (p_stack_err_msg = TRUE) THEN
292: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
293: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
294: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
295: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
296: FND_MSG_PUB.Add;
289: ELSE
290: l_return_value := FALSE;
291: IF (p_stack_err_msg = TRUE) THEN
292: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
293: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
294: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
295: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
296: FND_MSG_PUB.Add;
297: END IF;
290: l_return_value := FALSE;
291: IF (p_stack_err_msg = TRUE) THEN
292: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
293: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
294: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
295: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
296: FND_MSG_PUB.Add;
297: END IF;
298: END IF;
291: IF (p_stack_err_msg = TRUE) THEN
292: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
293: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
294: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
295: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
296: FND_MSG_PUB.Add;
297: END IF;
298: END IF;
299:
300:
301: ELSE
302: l_return_value := FALSE;
303: IF (p_stack_err_msg = TRUE) THEN
304: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
305: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
306: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
307: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
308: FND_MSG_PUB.Add;
301: ELSE
302: l_return_value := FALSE;
303: IF (p_stack_err_msg = TRUE) THEN
304: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
305: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
306: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
307: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
308: FND_MSG_PUB.Add;
309: End IF;
302: l_return_value := FALSE;
303: IF (p_stack_err_msg = TRUE) THEN
304: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
305: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
306: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
307: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
308: FND_MSG_PUB.Add;
309: End IF;
310: END IF;
303: IF (p_stack_err_msg = TRUE) THEN
304: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
305: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
306: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
307: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
308: FND_MSG_PUB.Add;
309: End IF;
310: END IF;
311:
424: (p_revision = FND_API.G_MISS_CHAR)) THEN
425: IF (p_creation_complete_flag = 'Y') THEN
426: l_return_value := FALSE;
427: IF ( l_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
429: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
430: FND_MSG_PUB.Add;
431: END IF;
432: ELSE
425: IF (p_creation_complete_flag = 'Y') THEN
426: l_return_value := FALSE;
427: IF ( l_stack_err_msg = TRUE ) THEN
428: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
429: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
430: FND_MSG_PUB.Add;
431: END IF;
432: ELSE
433: p_creation_complete_flag := 'N';
446: EXCEPTION
447: WHEN NO_DATA_FOUND THEN
448: l_return_value := FALSE;
449: IF ( l_stack_err_msg = TRUE ) THEN
450: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
451: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
452: FND_MSG_PUB.Add;
453: END IF;
454: END;
447: WHEN NO_DATA_FOUND THEN
448: l_return_value := FALSE;
449: IF ( l_stack_err_msg = TRUE ) THEN
450: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
451: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
452: FND_MSG_PUB.Add;
453: END IF;
454: END;
455: END IF;
467: EXCEPTION
468: WHEN NO_DATA_FOUND THEN
469: l_return_value := FALSE;
470: IF ( l_stack_err_msg = TRUE ) THEN
471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
472: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
473: FND_MSG_PUB.Add;
474: END IF;
475: END;
468: WHEN NO_DATA_FOUND THEN
469: l_return_value := FALSE;
470: IF ( l_stack_err_msg = TRUE ) THEN
471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
472: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
473: FND_MSG_PUB.Add;
474: END IF;
475: END;
476: ELSE
479:
480: END IF;
481: ELSE
482: l_return_value := FALSE;
483: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
485: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
486: FND_MSG_PUB.Add;
487: END IF;
480: END IF;
481: ELSE
482: l_return_value := FALSE;
483: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
485: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
486: FND_MSG_PUB.Add;
487: END IF;
488: END Validate_Revision;
481: ELSE
482: l_return_value := FALSE;
483: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
485: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
486: FND_MSG_PUB.Add;
487: END IF;
488: END Validate_Revision;
489:
530: IF ((p_revision IS NULL) OR
531: (p_revision = FND_API.G_MISS_CHAR)) THEN
532: l_return_value := FALSE;
533: IF ( l_stack_err_msg = TRUE ) THEN
534: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
535: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
536: FND_MSG_PUB.Add;
537: END IF;
538: ELSE
531: (p_revision = FND_API.G_MISS_CHAR)) THEN
532: l_return_value := FALSE;
533: IF ( l_stack_err_msg = TRUE ) THEN
534: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
535: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
536: FND_MSG_PUB.Add;
537: END IF;
538: ELSE
539: BEGIN
547: EXCEPTION
548: WHEN NO_DATA_FOUND THEN
549: l_return_value := FALSE;
550: IF ( l_stack_err_msg = TRUE ) THEN
551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
552: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
553: FND_MSG_PUB.Add;
554: END IF;
555: END;
548: WHEN NO_DATA_FOUND THEN
549: l_return_value := FALSE;
550: IF ( l_stack_err_msg = TRUE ) THEN
551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
552: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
553: FND_MSG_PUB.Add;
554: END IF;
555: END;
556: END IF;
568: EXCEPTION
569: WHEN NO_DATA_FOUND THEN
570: l_return_value := FALSE;
571: IF ( l_stack_err_msg = TRUE ) THEN
572: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
573: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
574: FND_MSG_PUB.Add;
575: END IF;
576: END;
569: WHEN NO_DATA_FOUND THEN
570: l_return_value := FALSE;
571: IF ( l_stack_err_msg = TRUE ) THEN
572: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
573: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
574: FND_MSG_PUB.Add;
575: END IF;
576: END;
577: ELSE
579: END IF;
580: END IF;
581: ELSE
582: l_return_value := FALSE;
583: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
585: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
586: FND_MSG_PUB.Add;
587: END IF;
580: END IF;
581: ELSE
582: l_return_value := FALSE;
583: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
585: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
586: FND_MSG_PUB.Add;
587: END IF;
588: END Update_Revision;
581: ELSE
582: l_return_value := FALSE;
583: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
585: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
586: FND_MSG_PUB.Add;
587: END IF;
588: END Update_Revision;
589:
723: WHERE organization_id = p_inv_org_id;
724: EXCEPTION
725: WHEN no_data_found THEN
726: l_return_value := FALSE;
727: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
728: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
729: fnd_msg_pub.add;
730: RAISE comp_error;
731: END;
724: EXCEPTION
725: WHEN no_data_found THEN
726: l_return_value := FALSE;
727: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
728: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
729: fnd_msg_pub.add;
730: RAISE comp_error;
731: END;
732: --
846: );
847: p_gen_object_id := l_object_id;
848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
849: l_return_value := FALSE;
850: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
851: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
852: FND_MSG_PUB.ADD;
853: RAISE comp_error;
854: ELSE
847: p_gen_object_id := l_object_id;
848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
849: l_return_value := FALSE;
850: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
851: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
852: FND_MSG_PUB.ADD;
853: RAISE comp_error;
854: ELSE
855: l_return_value := TRUE;
897: -- If l_temp has a value then the uniqueness within Models and Inventory Items is violated.
898: -- Hence error out.
899: IF l_temp IS NOT NULL THEN
900: l_return_value := FALSE;
901: fnd_message.set_name('CSI','CSI_SER_CASE4');
902: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
903: fnd_msg_pub.add;
904: RAISE comp_error;
905: END IF;
898: -- Hence error out.
899: IF l_temp IS NOT NULL THEN
900: l_return_value := FALSE;
901: fnd_message.set_name('CSI','CSI_SER_CASE4');
902: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
903: fnd_msg_pub.add;
904: RAISE comp_error;
905: END IF;
906: END IF; -- base model exists
925: l_item_id := null;
926: WHEN TOO_MANY_ROWS THEN
927: l_temp := 'x';
928: l_return_value := FALSE;
929: fnd_message.set_name('CSI','CSI_SER_CASE2');
930: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
931: fnd_msg_pub.add;
932: RAISE comp_error;
933: END;
926: WHEN TOO_MANY_ROWS THEN
927: l_temp := 'x';
928: l_return_value := FALSE;
929: fnd_message.set_name('CSI','CSI_SER_CASE2');
930: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
931: fnd_msg_pub.add;
932: RAISE comp_error;
933: END;
934: --
935: IF l_item_id IS NOT NULL THEN
936: l_temp := 'x';
937: IF l_item_id <> p_inv_item_id THEN
938: l_return_value := FALSE;
939: fnd_message.set_name('CSI','CSI_SER_CASE2');
940: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
941: fnd_msg_pub.add;
942: RAISE comp_error;
943: ELSE
936: l_temp := 'x';
937: IF l_item_id <> p_inv_item_id THEN
938: l_return_value := FALSE;
939: fnd_message.set_name('CSI','CSI_SER_CASE2');
940: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
941: fnd_msg_pub.add;
942: RAISE comp_error;
943: ELSE
944: RAISE Process_next;
963: END;
964: --
965: IF l_temp IS NOT NULL THEN
966: l_return_value := FALSE;
967: fnd_message.set_name('CSI','CSI_SER_CASE3');
968: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
969: fnd_msg_pub.add;
970: RAISE comp_error;
971: END IF;
964: --
965: IF l_temp IS NOT NULL THEN
966: l_return_value := FALSE;
967: fnd_message.set_name('CSI','CSI_SER_CASE3');
968: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
969: fnd_msg_pub.add;
970: RAISE comp_error;
971: END IF;
972: END IF; --l_return_value
985: l_item_id := null;
986: WHEN TOO_MANY_ROWS THEN
987: l_temp := 'x';
988: l_return_value := FALSE;
989: fnd_message.set_name('CSI','CSI_SER_CASE3');
990: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
991: fnd_msg_pub.add;
992: RAISE comp_error;
993: END;
986: WHEN TOO_MANY_ROWS THEN
987: l_temp := 'x';
988: l_return_value := FALSE;
989: fnd_message.set_name('CSI','CSI_SER_CASE3');
990: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
991: fnd_msg_pub.add;
992: RAISE comp_error;
993: END;
994: --
995: IF l_item_id IS NOT NULL THEN
996: l_temp := 'x';
997: IF l_item_id <> p_inv_item_id THEN
998: l_return_value := FALSE;
999: fnd_message.set_name('CSI','CSI_SER_CASE3');
1000: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1001: fnd_msg_pub.add;
1002: RAISE comp_error;
1003: ELSE
996: l_temp := 'x';
997: IF l_item_id <> p_inv_item_id THEN
998: l_return_value := FALSE;
999: fnd_message.set_name('CSI','CSI_SER_CASE3');
1000: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1001: fnd_msg_pub.add;
1002: RAISE comp_error;
1003: ELSE
1004: RAISE Process_next;
1058:
1059: p_gen_object_id := l_object_id;
1060: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1061: l_return_value := FALSE;
1062: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1063: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1064: FND_MSG_PUB.ADD;
1065: ELSE
1066: l_return_value := TRUE;
1059: p_gen_object_id := l_object_id;
1060: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1061: l_return_value := FALSE;
1062: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1063: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1064: FND_MSG_PUB.ADD;
1065: ELSE
1066: l_return_value := TRUE;
1067: p_ins_flag := FND_API.G_TRUE;
1164: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
1165: IF (p_creation_complete_flag = 'Y') THEN
1166: l_return_value := FALSE;
1167: IF (p_stack_err_msg = TRUE) THEN
1168: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1169: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1170: FND_MSG_PUB.Add;
1171: END IF;
1172: ELSE
1165: IF (p_creation_complete_flag = 'Y') THEN
1166: l_return_value := FALSE;
1167: IF (p_stack_err_msg = TRUE) THEN
1168: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1169: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1170: FND_MSG_PUB.Add;
1171: END IF;
1172: ELSE
1173: p_creation_complete_flag := 'N';
1207: END IF;
1208: IF l_found IS NULL
1209: THEN
1210: l_return_value := FALSE;
1211: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1212: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1213: FND_MSG_PUB.Add;
1214: END IF;
1215: ELSE
1208: IF l_found IS NULL
1209: THEN
1210: l_return_value := FALSE;
1211: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1212: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1213: FND_MSG_PUB.Add;
1214: END IF;
1215: ELSE
1216: l_return_value := TRUE;
1218: END IF;
1219: END IF;
1220: ELSE
1221: l_return_value := FALSE;
1222: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1223: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1224: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1225: FND_MSG_PUB.Add;
1226: END IF;
1219: END IF;
1220: ELSE
1221: l_return_value := FALSE;
1222: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1223: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1224: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1225: FND_MSG_PUB.Add;
1226: END IF;
1227:
1220: ELSE
1221: l_return_value := FALSE;
1222: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1223: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1224: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1225: FND_MSG_PUB.Add;
1226: END IF;
1227:
1228: IF l_return_value = TRUE AND
1237: ,p_instance_id => p_instance_id
1238: );
1239: --Commented out code for bug 7657438, no need to raise more than one error message
1240: /*IF l_return_value = FALSE THEN
1241: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
1242: fnd_msg_pub.add;
1243: END IF;*/
1244: END IF;
1245:
1295: WHERE organization_id = p_inv_org_id;
1296: EXCEPTION
1297: WHEN no_data_found THEN
1298: l_return_value := FALSE;
1299: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1300: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1301: fnd_msg_pub.add;
1302: RAISE comp_error;
1303: END;
1296: EXCEPTION
1297: WHEN no_data_found THEN
1298: l_return_value := FALSE;
1299: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1300: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1301: fnd_msg_pub.add;
1302: RAISE comp_error;
1303: END;
1304: --
1318: l_temp := null;
1319: END;
1320: IF l_temp IS NOT NULL THEN
1321: l_return_value := FALSE;
1322: fnd_message.set_name('CSI','CSI_SER_CASE1');
1323: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1324: fnd_msg_pub.add;
1325: RAISE comp_error;
1326: END IF;
1319: END;
1320: IF l_temp IS NOT NULL THEN
1321: l_return_value := FALSE;
1322: fnd_message.set_name('CSI','CSI_SER_CASE1');
1323: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1324: fnd_msg_pub.add;
1325: RAISE comp_error;
1326: END IF;
1327: --
1366: -- END LOOP; --Modified for bug 12952143 end
1367: --
1368: IF l_temp IS NOT NULL THEN
1369: l_return_value := FALSE;
1370: fnd_message.set_name('CSI','CSI_SER_CASE4');
1371: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1372: fnd_msg_pub.add;
1373: RAISE comp_error;
1374: END IF;
1367: --
1368: IF l_temp IS NOT NULL THEN
1369: l_return_value := FALSE;
1370: fnd_message.set_name('CSI','CSI_SER_CASE4');
1371: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1372: fnd_msg_pub.add;
1373: RAISE comp_error;
1374: END IF;
1375: END IF; -- Base Model check
1395: END;
1396: --
1397: IF l_temp IS NOT NULL THEN
1398: l_return_value := FALSE;
1399: fnd_message.set_name('CSI','CSI_SER_CASE2');
1400: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1401: fnd_msg_pub.add;
1402: RAISE comp_error;
1403: END IF;
1396: --
1397: IF l_temp IS NOT NULL THEN
1398: l_return_value := FALSE;
1399: fnd_message.set_name('CSI','CSI_SER_CASE2');
1400: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1401: fnd_msg_pub.add;
1402: RAISE comp_error;
1403: END IF;
1404: --
1414: WHEN NO_DATA_FOUND THEN
1415: l_item_id := null;
1416: WHEN TOO_MANY_ROWS THEN
1417: l_return_value := FALSE;
1418: fnd_message.set_name('CSI','CSI_SER_CASE2');
1419: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1420: fnd_msg_pub.add;
1421: RAISE comp_error;
1422: END;
1415: l_item_id := null;
1416: WHEN TOO_MANY_ROWS THEN
1417: l_return_value := FALSE;
1418: fnd_message.set_name('CSI','CSI_SER_CASE2');
1419: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1420: fnd_msg_pub.add;
1421: RAISE comp_error;
1422: END;
1423: --
1423: --
1424: IF l_item_id IS NOT NULL THEN
1425: IF l_item_id <> p_inv_item_id THEN
1426: l_return_value := FALSE;
1427: fnd_message.set_name('CSI','CSI_SER_CASE2');
1428: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1429: fnd_msg_pub.add;
1430: RAISE comp_error;
1431: END IF;
1424: IF l_item_id IS NOT NULL THEN
1425: IF l_item_id <> p_inv_item_id THEN
1426: l_return_value := FALSE;
1427: fnd_message.set_name('CSI','CSI_SER_CASE2');
1428: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1429: fnd_msg_pub.add;
1430: RAISE comp_error;
1431: END IF;
1432: END IF;
1451: END;
1452: --
1453: IF l_temp IS NOT NULL THEN
1454: l_return_value := FALSE;
1455: fnd_message.set_name('CSI','CSI_SER_CASE3');
1456: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1457: fnd_msg_pub.add;
1458: RAISE comp_error;
1459: END IF;
1452: --
1453: IF l_temp IS NOT NULL THEN
1454: l_return_value := FALSE;
1455: fnd_message.set_name('CSI','CSI_SER_CASE3');
1456: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1457: fnd_msg_pub.add;
1458: RAISE comp_error;
1459: END IF;
1460: END IF; --l_return_value
1476: END;
1477: --
1478: IF l_temp IS NOT NULL THEN
1479: l_return_value := FALSE;
1480: fnd_message.set_name('CSI','CSI_SER_CASE3');
1481: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1482: fnd_msg_pub.add;
1483: RAISE comp_error;
1484: END IF;
1477: --
1478: IF l_temp IS NOT NULL THEN
1479: l_return_value := FALSE;
1480: fnd_message.set_name('CSI','CSI_SER_CASE3');
1481: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1482: fnd_msg_pub.add;
1483: RAISE comp_error;
1484: END IF;
1485: --
1493: WHEN NO_DATA_FOUND THEN
1494: l_item_id := null;
1495: WHEN TOO_MANY_ROWS THEN
1496: l_return_value := FALSE;
1497: fnd_message.set_name('CSI','CSI_SER_CASE3');
1498: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1499: fnd_msg_pub.add;
1500: RAISE comp_error;
1501: END;
1494: l_item_id := null;
1495: WHEN TOO_MANY_ROWS THEN
1496: l_return_value := FALSE;
1497: fnd_message.set_name('CSI','CSI_SER_CASE3');
1498: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1499: fnd_msg_pub.add;
1500: RAISE comp_error;
1501: END;
1502: --
1502: --
1503: IF l_item_id IS NOT NULL THEN
1504: IF l_item_id <> p_inv_item_id THEN
1505: l_return_value := FALSE;
1506: fnd_message.set_name('CSI','CSI_SER_CASE3');
1507: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1508: fnd_msg_pub.add;
1509: RAISE comp_error;
1510: END IF;
1503: IF l_item_id IS NOT NULL THEN
1504: IF l_item_id <> p_inv_item_id THEN
1505: l_return_value := FALSE;
1506: fnd_message.set_name('CSI','CSI_SER_CASE3');
1507: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1508: fnd_msg_pub.add;
1509: RAISE comp_error;
1510: END IF;
1511: END IF;
1564: WHERE organization_id = p_inv_org_id;
1565: EXCEPTION
1566: WHEN NO_DATA_FOUND THEN
1567: l_return_value := FALSE;
1568: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1569: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END;
1565: EXCEPTION
1566: WHEN NO_DATA_FOUND THEN
1567: l_return_value := FALSE;
1568: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1569: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END;
1573: --
1586: p_inventory_item_id => p_inv_item_id,
1587: p_lot_uniqueness => l_lot_type,
1588: p_auto_lot_number => p_lot_number )
1589: THEN
1590: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1591: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1592: fnd_msg_pub.add;
1593: RAISE comp_error;
1594: ELSE
1587: p_lot_uniqueness => l_lot_type,
1588: p_auto_lot_number => p_lot_number )
1589: THEN
1590: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1591: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1592: fnd_msg_pub.add;
1593: RAISE comp_error;
1594: ELSE
1595: -- Check for the fundamental uniqueness in Install Base
1608: END;
1609: --
1610: IF l_temp IS NOT NULL
1611: THEN
1612: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1613: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1614: fnd_msg_pub.add;
1615: RAISE comp_error;
1616: END IF;
1609: --
1610: IF l_temp IS NOT NULL
1611: THEN
1612: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1613: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1614: fnd_msg_pub.add;
1615: RAISE comp_error;
1616: END IF;
1617: END IF; -- validate_unique_lot
1659: x_msg_count => l_msg_count,
1660: x_msg_data => l_msg_data);
1661:
1662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1663: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1664: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1665: FND_MSG_PUB.ADD;
1666: RAISE comp_error;
1667: ELSE
1660: x_msg_data => l_msg_data);
1661:
1662: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1663: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1664: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1665: FND_MSG_PUB.ADD;
1666: RAISE comp_error;
1667: ELSE
1668: l_return_value := TRUE;
1728: THEN
1729: IF (p_creation_complete_flag = 'Y')
1730: THEN
1731: l_return_value := FALSE;
1732: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1733: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1734: FND_MSG_PUB.Add;
1735: ELSE
1736: p_creation_complete_flag := 'N';
1729: IF (p_creation_complete_flag = 'Y')
1730: THEN
1731: l_return_value := FALSE;
1732: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1733: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1734: FND_MSG_PUB.Add;
1735: ELSE
1736: p_creation_complete_flag := 'N';
1737: l_return_value := TRUE;
1745: IF ((p_lot_number IS NOT NULL) AND
1746: (p_lot_number <> FND_API.G_MISS_CHAR))
1747: THEN
1748: l_return_value := FALSE;
1749: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1750: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1751: FND_MSG_PUB.Add;
1752: ELSE
1753: l_return_value := TRUE;
1746: (p_lot_number <> FND_API.G_MISS_CHAR))
1747: THEN
1748: l_return_value := FALSE;
1749: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1750: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1751: FND_MSG_PUB.Add;
1752: ELSE
1753: l_return_value := TRUE;
1754: END IF;
1756: END IF;
1757: --
1758: ELSE
1759: l_return_value := FALSE;
1760: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1761: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1762: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1763: FND_MSG_PUB.Add;
1764: END IF;
1757: --
1758: ELSE
1759: l_return_value := FALSE;
1760: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1761: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1762: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1763: FND_MSG_PUB.Add;
1764: END IF;
1765: --
1758: ELSE
1759: l_return_value := FALSE;
1760: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1761: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1762: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1763: FND_MSG_PUB.Add;
1764: END IF;
1765: --
1766: END Validate_Lot_Number;
1805: THEN
1806: IF p_quantity <> 1 THEN
1807: l_return_value := FALSE;
1808: IF (p_stack_err_msg = TRUE) THEN
1809: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1810: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1811: FND_MSG_PUB.Add;
1812: END IF;
1813: END IF;
1806: IF p_quantity <> 1 THEN
1807: l_return_value := FALSE;
1808: IF (p_stack_err_msg = TRUE) THEN
1809: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1810: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1811: FND_MSG_PUB.Add;
1812: END IF;
1813: END IF;
1814: ELSE
1837: l_return_value := TRUE;
1838: ELSE
1839: l_return_value := FALSE;
1840: IF (p_stack_err_msg = TRUE) THEN
1841: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1842: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1843: FND_MSG_PUB.Add;
1844: END IF;
1845: END IF;
1838: ELSE
1839: l_return_value := FALSE;
1840: IF (p_stack_err_msg = TRUE) THEN
1841: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1842: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1843: FND_MSG_PUB.Add;
1844: END IF;
1845: END IF;
1846: ELSE -- Non-WIP Issue transactions
1845: END IF;
1846: ELSE -- Non-WIP Issue transactions
1847: l_return_value := FALSE;
1848: IF (p_stack_err_msg = TRUE) THEN
1849: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1850: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1851: FND_MSG_PUB.Add;
1852: END IF;
1853: END IF;
1846: ELSE -- Non-WIP Issue transactions
1847: l_return_value := FALSE;
1848: IF (p_stack_err_msg = TRUE) THEN
1849: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1850: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1851: FND_MSG_PUB.Add;
1852: END IF;
1853: END IF;
1854: ELSE -- Qty is driven (+)ve
1871: --
1872: IF SQL%FOUND THEN
1873: l_return_value := FALSE;
1874: IF (p_stack_err_msg = TRUE) THEN
1875: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1876: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1877: FND_MSG_PUB.Add;
1878: END IF;
1879: END IF;
1872: IF SQL%FOUND THEN
1873: l_return_value := FALSE;
1874: IF (p_stack_err_msg = TRUE) THEN
1875: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1876: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1877: FND_MSG_PUB.Add;
1878: END IF;
1879: END IF;
1880: EXCEPTION
1885: p_flag ='CREATE'
1886: THEN
1887: l_return_value := FALSE;
1888: IF (p_stack_err_msg = TRUE) THEN
1889: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1890: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1891: FND_MSG_PUB.Add;
1892: END IF;
1893: END IF;
1886: THEN
1887: l_return_value := FALSE;
1888: IF (p_stack_err_msg = TRUE) THEN
1889: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1890: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1891: FND_MSG_PUB.Add;
1892: END IF;
1893: END IF;
1894: END IF;
2005: AND nvl (end_date_active, sysdate+1) > sysdate;
2006:
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
2010: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2011: FND_MSG_PUB.Add;
2012: l_return_value := FALSE;
2013: END;
2006:
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
2010: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2011: FND_MSG_PUB.Add;
2012: l_return_value := FALSE;
2013: END;
2014: -- if primary uom code exists, then check whether it is same as the uom code passed
2033: END IF;
2034: END IF;
2035: ELSE
2036: -- raise exception if uom class is invalid
2037: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
2038: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2039: FND_MSG_PUB.Add;
2040: l_return_value := FALSE;
2041: END IF;
2034: END IF;
2035: ELSE
2036: -- raise exception if uom class is invalid
2037: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
2038: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
2039: FND_MSG_PUB.Add;
2040: l_return_value := FALSE;
2041: END IF;
2042: END IF;
2073: EXCEPTION
2074: WHEN NO_DATA_FOUND THEN
2075: l_return_value := FALSE;
2076: IF ( l_stack_err_msg = TRUE ) THEN
2077: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2078: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2079: FND_MSG_PUB.Add;
2080: END IF;
2081: END;
2074: WHEN NO_DATA_FOUND THEN
2075: l_return_value := FALSE;
2076: IF ( l_stack_err_msg = TRUE ) THEN
2077: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2078: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2079: FND_MSG_PUB.Add;
2080: END IF;
2081: END;
2082: END IF;
2105: (p_instance_status_id = FND_API.G_MISS_NUM))THEN
2106: IF (p_creation_complete_flag = 'Y') THEN
2107: l_return_value := FALSE;
2108: IF ( l_stack_err_msg = TRUE ) THEN
2109: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2110: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2111: FND_MSG_PUB.Add;
2112: END IF;
2113: ELSE
2106: IF (p_creation_complete_flag = 'Y') THEN
2107: l_return_value := FALSE;
2108: IF ( l_stack_err_msg = TRUE ) THEN
2109: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2110: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2111: FND_MSG_PUB.Add;
2112: END IF;
2113: ELSE
2114: p_creation_complete_flag := 'N';
2125: EXCEPTION
2126: WHEN NO_DATA_FOUND THEN
2127: l_return_value := FALSE;
2128: IF ( l_stack_err_msg = TRUE ) THEN
2129: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2130: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2131: FND_MSG_PUB.Add;
2132: END IF;
2133:
2126: WHEN NO_DATA_FOUND THEN
2127: l_return_value := FALSE;
2128: IF ( l_stack_err_msg = TRUE ) THEN
2129: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2130: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2131: FND_MSG_PUB.Add;
2132: END IF;
2133:
2134: END;
2154: IF ((p_end_date IS NOT NULL) AND (p_end_date = FND_API.G_MISS_DATE)) THEN
2155:
2156: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2157: l_return_value := FALSE;
2158: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2159: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2160: FND_MSG_PUB.Add;
2161:
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2155:
2156: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2157: l_return_value := FALSE;
2158: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2159: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2160: FND_MSG_PUB.Add;
2161:
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2163: l_return_value := FALSE;
2160: FND_MSG_PUB.Add;
2161:
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2163: l_return_value := FALSE;
2164: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2165: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2166: FND_MSG_PUB.Add;
2167: ELSE l_return_value := TRUE;
2168: END IF;
2161:
2162: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2163: l_return_value := FALSE;
2164: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2165: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2166: FND_MSG_PUB.Add;
2167: ELSE l_return_value := TRUE;
2168: END IF;
2169:
2194: IF ((p_end_date IS NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
2195:
2196: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2197: l_return_value := FALSE;
2198: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2199: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2200: FND_MSG_PUB.Add;
2201:
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2195:
2196: IF to_date(p_start_date,'DD-MM-YY HH24:MI') > to_date(p_end_date,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2197: l_return_value := FALSE;
2198: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2199: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2200: FND_MSG_PUB.Add;
2201:
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2203: l_return_value := FALSE;
2200: FND_MSG_PUB.Add;
2201:
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2203: l_return_value := FALSE;
2204: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2205: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2206: FND_MSG_PUB.Add;
2207:
2208: ELSE l_return_value := TRUE;
2201:
2202: ELSIF to_date(p_end_date,'DD-MM-YY HH24:MI') < to_date(SYSDATE,'DD-MM-YY HH24:MI') THEN -- Bug 8586745
2203: l_return_value := FALSE;
2204: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2205: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2206: FND_MSG_PUB.Add;
2207:
2208: ELSE l_return_value := TRUE;
2209: End IF;
2248: l_return_value := TRUE;
2249: EXCEPTION
2250: WHEN NO_DATA_FOUND THEN
2251: IF ( p_stack_err_msg = TRUE ) THEN
2252: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2253: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2254: FND_MSG_PUB.Add;
2255: END IF;
2256: l_return_value := FALSE;
2249: EXCEPTION
2250: WHEN NO_DATA_FOUND THEN
2251: IF ( p_stack_err_msg = TRUE ) THEN
2252: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2253: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2254: FND_MSG_PUB.Add;
2255: END IF;
2256: l_return_value := FALSE;
2257: END;
2292:
2293: EXCEPTION
2294: WHEN NO_DATA_FOUND THEN
2295: IF ( p_stack_err_msg = TRUE ) THEN
2296: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2297: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2298: FND_MSG_PUB.Add;
2299: END IF;
2300: l_return_value := FALSE;
2293: EXCEPTION
2294: WHEN NO_DATA_FOUND THEN
2295: IF ( p_stack_err_msg = TRUE ) THEN
2296: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2297: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2298: FND_MSG_PUB.Add;
2299: END IF;
2300: l_return_value := FALSE;
2301: END;
2336:
2337: EXCEPTION
2338: WHEN NO_DATA_FOUND THEN
2339: IF ( p_stack_err_msg = TRUE ) THEN
2340: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2341: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2342: FND_MSG_PUB.Add;
2343: END IF;
2344: l_return_value := FALSE;
2337: EXCEPTION
2338: WHEN NO_DATA_FOUND THEN
2339: IF ( p_stack_err_msg = TRUE ) THEN
2340: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2341: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2342: FND_MSG_PUB.Add;
2343: END IF;
2344: l_return_value := FALSE;
2345: END;
2378: l_return_value := TRUE;
2379:
2380: EXCEPTION
2381: WHEN NO_DATA_FOUND THEN
2382: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2383: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2384: FND_MSG_PUB.Add;
2385: l_return_value := FALSE;
2386: END;
2379:
2380: EXCEPTION
2381: WHEN NO_DATA_FOUND THEN
2382: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2383: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2384: FND_MSG_PUB.Add;
2385: l_return_value := FALSE;
2386: END;
2387: END IF;
2415: l_return_value := TRUE;
2416:
2417: EXCEPTION
2418: WHEN NO_DATA_FOUND THEN
2419: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2420: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2421: FND_MSG_PUB.Add;
2422: l_return_value := FALSE;
2423: END;
2416:
2417: EXCEPTION
2418: WHEN NO_DATA_FOUND THEN
2419: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2420: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2421: FND_MSG_PUB.Add;
2422: l_return_value := FALSE;
2423: END;
2424: END IF;
2447: IF NVL(l_change_allowed,'Y')='Y'
2448: THEN
2449: l_return_value := TRUE;
2450: ELSE
2451: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2452: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2453: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2454: FND_MSG_PUB.Add;
2455: l_return_value := FALSE;
2448: THEN
2449: l_return_value := TRUE;
2450: ELSE
2451: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2452: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2453: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2454: FND_MSG_PUB.Add;
2455: l_return_value := FALSE;
2456: END IF;
2449: l_return_value := TRUE;
2450: ELSE
2451: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2452: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2453: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2454: FND_MSG_PUB.Add;
2455: l_return_value := FALSE;
2456: END IF;
2457: EXCEPTION
2455: l_return_value := FALSE;
2456: END IF;
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2460: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2461: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2462: FND_MSG_PUB.Add;
2463: l_return_value := FALSE;
2456: END IF;
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2460: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2461: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2462: FND_MSG_PUB.Add;
2463: l_return_value := FALSE;
2464: END;
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2460: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2461: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2462: FND_MSG_PUB.Add;
2463: l_return_value := FALSE;
2464: END;
2465: RETURN l_return_value;
2549: -- AND b.party_source_table = p_party_rec.party_source_table
2550: -- AND b.relationship_type_code = 'OWNER';
2551:
2552: l_return_value := FALSE;
2553: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2554: FND_MSG_PUB.ADD;
2555:
2556: EXCEPTION
2557: WHEN NO_DATA_FOUND THEN
2556: EXCEPTION
2557: WHEN NO_DATA_FOUND THEN
2558: l_return_value := TRUE;
2559: WHEN TOO_MANY_ROWS THEN
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2561: FND_MSG_PUB.ADD;
2562: l_return_value := FALSE;
2563: WHEN OTHERS THEN
2564: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2561: FND_MSG_PUB.ADD;
2562: l_return_value := FALSE;
2563: WHEN OTHERS THEN
2564: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2565: FND_MSG_PUB.ADD;
2566: l_return_value := FALSE;
2567: END;
2568: END IF; -- end if for inventory check
2608: l_return_value:= TRUE;
2609: EXCEPTION
2610: WHEN NO_DATA_FOUND THEN
2611: IF ( p_stack_err_msg = TRUE ) THEN
2612: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2613: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2614: FND_MSG_PUB.Add;
2615: END IF;
2616: l_return_value := FALSE;
2609: EXCEPTION
2610: WHEN NO_DATA_FOUND THEN
2611: IF ( p_stack_err_msg = TRUE ) THEN
2612: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2613: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2614: FND_MSG_PUB.Add;
2615: END IF;
2616: l_return_value := FALSE;
2617: END;
3326: FROM dual;
3327: RETURN l_csi_item_instance_h_id;
3328: EXCEPTION
3329: WHEN OTHERS THEN
3330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3331: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3332: FND_MSG_PUB.Add;
3333:
3334: END get_csi_item_instance_h_id;
3327: RETURN l_csi_item_instance_h_id;
3328: EXCEPTION
3329: WHEN OTHERS THEN
3330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3331: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3332: FND_MSG_PUB.Add;
3333:
3334: END get_csi_item_instance_h_id;
3335:
3481: IF ((p_serial_number IS NULL) OR
3482: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
3483: l_return_value := FALSE;
3484: IF (p_stack_err_msg = TRUE) THEN
3485: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3486: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3487: FND_MSG_PUB.Add;
3488: END IF;
3489: ELSE
3482: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
3483: l_return_value := FALSE;
3484: IF (p_stack_err_msg = TRUE) THEN
3485: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3486: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3487: FND_MSG_PUB.Add;
3488: END IF;
3489: ELSE
3490: l_return_value := TRUE;
3526: END IF;
3527: IF l_found IS NULL
3528: THEN
3529: l_return_value := FALSE;
3530: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3531: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3532: FND_MSG_PUB.Add;
3533: END IF;
3534: ELSE
3527: IF l_found IS NULL
3528: THEN
3529: l_return_value := FALSE;
3530: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3531: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3532: FND_MSG_PUB.Add;
3533: END IF;
3534: ELSE
3535: l_return_value := TRUE;
3537: END IF;
3538: END IF;
3539: ELSE
3540: l_return_value := FALSE;
3541: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3542: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3543: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3544: FND_MSG_PUB.Add;
3545: END IF;
3538: END IF;
3539: ELSE
3540: l_return_value := FALSE;
3541: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3542: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3543: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3544: FND_MSG_PUB.Add;
3545: END IF;
3546: --
3539: ELSE
3540: l_return_value := FALSE;
3541: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3542: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3543: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3544: FND_MSG_PUB.Add;
3545: END IF;
3546: --
3547: IF l_return_value = TRUE
3554: ,l_return_value => l_return_value
3555: );
3556: --Commented out code for bug 7657438, no need to raise more than one error message
3557: /*IF l_return_value = FALSE THEN
3558: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
3559: fnd_msg_pub.add;
3560: END IF;*/
3561: END IF;
3562: END Validate_srl_num_for_Inst_Upd;
3595: THEN
3596: IF p_quantity <> 1 THEN
3597: l_return_value := FALSE;
3598: IF (p_stack_err_msg = TRUE) THEN
3599: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3600: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3601: FND_MSG_PUB.Add;
3602: END IF;
3603: END IF;
3596: IF p_quantity <> 1 THEN
3597: l_return_value := FALSE;
3598: IF (p_stack_err_msg = TRUE) THEN
3599: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3600: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3601: FND_MSG_PUB.Add;
3602: END IF;
3603: END IF;
3604: ELSE
3610: l_return_value := TRUE;
3611: ELSE
3612: l_return_value := FALSE;
3613: IF (p_stack_err_msg = TRUE) THEN
3614: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3615: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3616: FND_MSG_PUB.Add;
3617: END IF;
3618: END IF;
3611: ELSE
3612: l_return_value := FALSE;
3613: IF (p_stack_err_msg = TRUE) THEN
3614: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3615: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3616: FND_MSG_PUB.Add;
3617: END IF;
3618: END IF;
3619: END IF;
3626: WHERE object_id = p_instance_id;
3627: IF SQL%FOUND THEN
3628: l_return_value := FALSE;
3629: IF (p_stack_err_msg = TRUE) THEN
3630: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3631: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3632: FND_MSG_PUB.Add;
3633: END IF;
3634: END IF;
3627: IF SQL%FOUND THEN
3628: l_return_value := FALSE;
3629: IF (p_stack_err_msg = TRUE) THEN
3630: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3631: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3632: FND_MSG_PUB.Add;
3633: END IF;
3634: END IF;
3635: EXCEPTION
3637: l_return_value := TRUE;
3638: WHEN TOO_MANY_ROWS THEN
3639: l_return_value := FALSE;
3640: IF (p_stack_err_msg = TRUE) THEN
3641: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3642: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3643: FND_MSG_PUB.Add;
3644: END IF;
3645: END;
3638: WHEN TOO_MANY_ROWS THEN
3639: l_return_value := FALSE;
3640: IF (p_stack_err_msg = TRUE) THEN
3641: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3642: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3643: FND_MSG_PUB.Add;
3644: END IF;
3645: END;
3646: END IF;
3747: EXCEPTION
3748: WHEN NO_DATA_FOUND THEN
3749: l_return_value := FALSE;
3750: IF ( p_stack_err_msg = TRUE ) THEN
3751: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3752: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3753: FND_MSG_PUB.Add;
3754: END IF;
3755: END;
3748: WHEN NO_DATA_FOUND THEN
3749: l_return_value := FALSE;
3750: IF ( p_stack_err_msg = TRUE ) THEN
3751: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3752: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3753: FND_MSG_PUB.Add;
3754: END IF;
3755: END;
3756: RETURN l_return_value;
3788: OPEN c1;
3789: FETCH c1 INTO l_instance_end_date ,l_instance_start_date;
3790: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3791: l_return_value := FALSE;
3792: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3793: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3794: FND_MSG_PUB.Add;
3795: RETURN l_return_value;
3796: csi_gen_utility_pvt.put_line('value of end date in ITEM_VLD_PVT before check for p_end_date < sysdate:'||to_char(p_end_date, 'DD-MON-YYYY HH24:MI:SS'));
3789: FETCH c1 INTO l_instance_end_date ,l_instance_start_date;
3790: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3791: l_return_value := FALSE;
3792: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3793: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3794: FND_MSG_PUB.Add;
3795: RETURN l_return_value;
3796: csi_gen_utility_pvt.put_line('value of end date in ITEM_VLD_PVT before check for p_end_date < sysdate:'||to_char(p_end_date, 'DD-MON-YYYY HH24:MI:SS'));
3797: csi_gen_utility_pvt.put_line('value of sysdate:'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3818: csi_gen_utility_pvt.put_line('value of end date in ITEM_VLD_PVT if there are any txns:'||to_char(p_end_date, 'DD-MON-YYYY HH24:MI:SS'));
3819: csi_gen_utility_pvt.put_line('value of MAX(source_transaction_date) in ITEM_VLD_PVT if there are any txns:'||to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3820: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3821: l_return_value := FALSE;
3822: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3823: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3824: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3825: FND_MSG_PUB.ADD;
3826: RETURN l_return_value;
3819: csi_gen_utility_pvt.put_line('value of MAX(source_transaction_date) in ITEM_VLD_PVT if there are any txns:'||to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3820: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3821: l_return_value := FALSE;
3822: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3823: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3824: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3825: FND_MSG_PUB.ADD;
3826: RETURN l_return_value;
3827: END IF;
3820: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3821: l_return_value := FALSE;
3822: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3823: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3824: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3825: FND_MSG_PUB.ADD;
3826: RETURN l_return_value;
3827: END IF;
3828: END IF;
3986:
3987: EXCEPTION
3988: WHEN NO_DATA_FOUND THEN
3989: IF ( p_stack_err_msg = TRUE ) THEN
3990: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3991: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3992: FND_MSG_PUB.Add;
3993: END IF;
3994: RETURN FALSE;
3987: EXCEPTION
3988: WHEN NO_DATA_FOUND THEN
3989: IF ( p_stack_err_msg = TRUE ) THEN
3990: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3991: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3992: FND_MSG_PUB.Add;
3993: END IF;
3994: RETURN FALSE;
3995:
4015: RETURN TRUE;
4016: EXCEPTION
4017: WHEN NO_DATA_FOUND THEN
4018: IF ( p_stack_err_msg = TRUE ) THEN
4019: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
4020: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
4021: FND_MSG_PUB.Add;
4022: END IF;
4023: RETURN FALSE;
4016: EXCEPTION
4017: WHEN NO_DATA_FOUND THEN
4018: IF ( p_stack_err_msg = TRUE ) THEN
4019: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
4020: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
4021: FND_MSG_PUB.Add;
4022: END IF;
4023: RETURN FALSE;
4024:
4044: OR (p_INVENTORY_ITEM_ID = FND_API.G_MISS_NUM)
4045: OR (p_INVENTORY_ITEM_ID IS NULL))
4046: THEN
4047: IF ( p_stack_err_msg = TRUE ) THEN
4048: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4049: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4050: FND_MSG_PUB.Add;
4051: END IF;
4052: RETURN FALSE;
4045: OR (p_INVENTORY_ITEM_ID IS NULL))
4046: THEN
4047: IF ( p_stack_err_msg = TRUE ) THEN
4048: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4049: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4050: FND_MSG_PUB.Add;
4051: END IF;
4052: RETURN FALSE;
4053: END IF;
4061: RETURN TRUE;
4062: EXCEPTION
4063: WHEN NO_DATA_FOUND THEN
4064: IF ( p_stack_err_msg = TRUE ) THEN
4065: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
4066: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4067: FND_MSG_PUB.Add;
4068: END IF;
4069: RETURN FALSE;
4062: EXCEPTION
4063: WHEN NO_DATA_FOUND THEN
4064: IF ( p_stack_err_msg = TRUE ) THEN
4065: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
4066: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4067: FND_MSG_PUB.Add;
4068: END IF;
4069: RETURN FALSE;
4070:
4089: OR (p_INVENTORY_ITEM_ID = FND_API.G_MISS_NUM)
4090: OR (p_INVENTORY_ITEM_ID IS NULL))
4091: THEN
4092: IF ( p_stack_err_msg = TRUE ) THEN
4093: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4094: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4095: FND_MSG_PUB.Add;
4096: END IF;
4097: RETURN FALSE;
4090: OR (p_INVENTORY_ITEM_ID IS NULL))
4091: THEN
4092: IF ( p_stack_err_msg = TRUE ) THEN
4093: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4094: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4095: FND_MSG_PUB.Add;
4096: END IF;
4097: RETURN FALSE;
4098: END IF;
4107: RETURN TRUE;
4108: EXCEPTION
4109: WHEN NO_DATA_FOUND THEN
4110: IF ( p_stack_err_msg = TRUE ) THEN
4111: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4112: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4113: FND_MSG_PUB.Add;
4114: END IF;
4115: RETURN FALSE;
4108: EXCEPTION
4109: WHEN NO_DATA_FOUND THEN
4110: IF ( p_stack_err_msg = TRUE ) THEN
4111: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4112: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4113: FND_MSG_PUB.Add;
4114: END IF;
4115: RETURN FALSE;
4116:
4169: and ((active_end_date is null) or (active_end_date > sysdate))
4170: and relationship_type_code = 'COMPONENT-OF'
4171: and rownum < 2;
4172: IF ( p_stack_err_msg = TRUE ) THEN
4173: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4174: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4175: FND_MSG_PUB.Add;
4176: END IF;
4177: RETURN TRUE;
4170: and relationship_type_code = 'COMPONENT-OF'
4171: and rownum < 2;
4172: IF ( p_stack_err_msg = TRUE ) THEN
4173: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4174: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4175: FND_MSG_PUB.Add;
4176: END IF;
4177: RETURN TRUE;
4178:
4209: BEGIN
4210: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
4211: IF To_Date(p_start_date,'DD-MM-RRRR HH24:MI') > To_Date(p_end_date,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4212: l_return_value := FALSE;
4213: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4214: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4215: FND_MSG_PUB.Add;
4216: RETURN l_return_value;
4217: END IF;
4210: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
4211: IF To_Date(p_start_date,'DD-MM-RRRR HH24:MI') > To_Date(p_end_date,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4212: l_return_value := FALSE;
4213: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4214: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4215: FND_MSG_PUB.Add;
4216: RETURN l_return_value;
4217: END IF;
4218: END IF;
4221: FETCH c1 INTO l_instance_start_date,l_instance_end_date;
4222: IF c1%NOTFOUND THEN
4223: l_return_value := FALSE;
4224: IF ( p_stack_err_msg = TRUE ) THEN
4225: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4226: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4227: FND_MSG_PUB.Add;
4228: END IF;
4229: CLOSE c1;
4222: IF c1%NOTFOUND THEN
4223: l_return_value := FALSE;
4224: IF ( p_stack_err_msg = TRUE ) THEN
4225: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4226: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4227: FND_MSG_PUB.Add;
4228: END IF;
4229: CLOSE c1;
4230: RETURN l_return_value;
4234: OR ((l_instance_end_date IS NOT NULL) AND (p_start_date > l_instance_end_date))
4235: OR (p_start_date > SYSDATE)) THEN
4236: l_return_value := FALSE;
4237: IF ( p_stack_err_msg = TRUE ) THEN
4238: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4239: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4240: FND_MSG_PUB.Add;
4241: END IF;
4242: END IF;
4235: OR (p_start_date > SYSDATE)) THEN
4236: l_return_value := FALSE;
4237: IF ( p_stack_err_msg = TRUE ) THEN
4238: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4239: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4240: FND_MSG_PUB.Add;
4241: END IF;
4242: END IF;
4243: RETURN l_return_value;
4272: BEGIN
4273: IF p_end_date is NOT NULL THEN
4274: IF To_Date(p_end_date,'DD-MM-RRRR HH24:MI') < To_Date(sysdate,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4275: l_return_value := FALSE;
4276: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4277: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4278: FND_MSG_PUB.Add;
4279: RETURN l_return_value;
4280: END IF;
4273: IF p_end_date is NOT NULL THEN
4274: IF To_Date(p_end_date,'DD-MM-RRRR HH24:MI') < To_Date(sysdate,'DD-MM-RRRR HH24:MI') THEN -- Bug 8586745
4275: l_return_value := FALSE;
4276: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4277: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4278: FND_MSG_PUB.Add;
4279: RETURN l_return_value;
4280: END IF;
4281: END IF;
4287: IF ((p_end_date > l_instance_end_date) OR
4288: (p_end_date < l_instance_start_date))THEN
4289: l_return_value := FALSE;
4290: IF ( p_stack_err_msg = TRUE ) THEN
4291: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4292: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4293: FND_MSG_PUB.Add;
4294: END IF;
4295: END IF;
4288: (p_end_date < l_instance_start_date))THEN
4289: l_return_value := FALSE;
4290: IF ( p_stack_err_msg = TRUE ) THEN
4291: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4292: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4293: FND_MSG_PUB.Add;
4294: END IF;
4295: END IF;
4296: END IF;
4315: csi_gen_utility_pvt.populate_install_param_rec;
4316: END IF;
4317: --
4318: IF csi_datastructures_pub.g_install_param_rec.fetch_flag = 'N' THEN
4319: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
4320: FND_MSG_PUB.ADD;
4321: l_return_value := FALSE;
4322: RETURN l_return_value;
4323: END IF;
4332: -- Added the following code for R12
4333: IF ((p_location_source_table IS NULL) OR (p_location_source_table = FND_API.G_MISS_CHAR) OR
4334: (p_location_id IS NULL) OR (p_location_id = FND_API.G_MISS_NUM) )
4335: THEN
4336: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
4337: FND_MSG_PUB.ADD;
4338: l_return_value := FALSE;
4339: RETURN l_return_value;
4340: END IF;
4350:
4351: EXCEPTION
4352: WHEN NO_DATA_FOUND THEN
4353: l_return_value := FALSE;
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4356: FND_MSG_PUB.Add;
4357: RETURN l_return_value;
4358: END;
4351: EXCEPTION
4352: WHEN NO_DATA_FOUND THEN
4353: l_return_value := FALSE;
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4356: FND_MSG_PUB.Add;
4357: RETURN l_return_value;
4358: END;
4359: -- End addition of code for R12
4366: WHERE party_site_id = p_location_id;
4367: l_return_value := TRUE;
4368: EXCEPTION
4369: WHEN NO_DATA_FOUND THEN
4370: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_LOC_ID');
4371: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4372: FND_MSG_PUB.Add;
4373: l_return_value := FALSE;
4374: RETURN l_return_value;
4367: l_return_value := TRUE;
4368: EXCEPTION
4369: WHEN NO_DATA_FOUND THEN
4370: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_LOC_ID');
4371: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4372: FND_MSG_PUB.Add;
4373: l_return_value := FALSE;
4374: RETURN l_return_value;
4375: END;
4381: WHERE location_id = p_location_id;
4382: l_return_value :=TRUE;
4383: EXCEPTION
4384: WHEN NO_DATA_FOUND THEN
4385: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_LOC_ID');
4386: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4387: FND_MSG_PUB.Add;
4388: l_return_value :=FALSE;
4389: RETURN l_return_value;
4382: l_return_value :=TRUE;
4383: EXCEPTION
4384: WHEN NO_DATA_FOUND THEN
4385: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_LOC_ID');
4386: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4387: FND_MSG_PUB.Add;
4388: l_return_value :=FALSE;
4389: RETURN l_return_value;
4390: END;
4396: WHERE vendor_site_id = p_location_id;
4397: l_return_value := TRUE;
4398: EXCEPTION
4399: WHEN NO_DATA_FOUND THEN
4400: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4401: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4402: FND_MSG_PUB.Add;
4403: l_return_value := FALSE;
4404: RETURN l_return_value;
4397: l_return_value := TRUE;
4398: EXCEPTION
4399: WHEN NO_DATA_FOUND THEN
4400: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4401: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4402: FND_MSG_PUB.Add;
4403: l_return_value := FALSE;
4404: RETURN l_return_value;
4405: END;
4412: l_return_value := TRUE;
4413: EXCEPTION
4414: WHEN NO_DATA_FOUND THEN
4415: l_return_value := FALSE;
4416: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4417: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4418: FND_MSG_PUB.Add;
4419: RETURN l_return_value;
4420: END;
4413: EXCEPTION
4414: WHEN NO_DATA_FOUND THEN
4415: l_return_value := FALSE;
4416: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4417: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4418: FND_MSG_PUB.Add;
4419: RETURN l_return_value;
4420: END;
4421: ELSIF (p_location_source_table = 'PROJECT') THEN
4436: WHERE location_id = p_location_id;
4437: l_return_value :=TRUE;
4438: EXCEPTION
4439: WHEN NO_DATA_FOUND THEN
4440: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4441: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4442: FND_MSG_PUB.Add;
4443: l_return_value := FALSE;
4444: RETURN l_return_value;
4437: l_return_value :=TRUE;
4438: EXCEPTION
4439: WHEN NO_DATA_FOUND THEN
4440: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4441: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4442: FND_MSG_PUB.Add;
4443: l_return_value := FALSE;
4444: RETURN l_return_value;
4445: END;
4452: WHERE location_id = p_location_id;
4453: l_return_value := TRUE;
4454: EXCEPTION
4455: WHEN NO_DATA_FOUND THEN
4456: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4457: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4458: FND_MSG_PUB.Add;
4459: l_return_value := FALSE;
4460: RETURN l_return_value;
4453: l_return_value := TRUE;
4454: EXCEPTION
4455: WHEN NO_DATA_FOUND THEN
4456: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4457: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4458: FND_MSG_PUB.Add;
4459: l_return_value := FALSE;
4460: RETURN l_return_value;
4461: END;
4467: WHERE location_id = p_location_id;
4468: l_return_value := TRUE;
4469: EXCEPTION
4470: WHEN NO_DATA_FOUND THEN
4471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4472: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4473: FND_MSG_PUB.Add;
4474: l_return_value := FALSE;
4475: RETURN l_return_value;
4468: l_return_value := TRUE;
4469: EXCEPTION
4470: WHEN NO_DATA_FOUND THEN
4471: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4472: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4473: FND_MSG_PUB.Add;
4474: l_return_value := FALSE;
4475: RETURN l_return_value;
4476: END;
4475: RETURN l_return_value;
4476: END;
4477: ELSE
4478: l_return_value := FALSE;
4479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4480: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4481: FND_MSG_PUB.Add;
4482: END IF;
4483: RETURN l_return_value;
4476: END;
4477: ELSE
4478: l_return_value := FALSE;
4479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4480: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4481: FND_MSG_PUB.Add;
4482: END IF;
4483: RETURN l_return_value;
4484: END Is_Valid_Location_ID;
4517: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4518: l_return_value:= TRUE;
4519: ELSE
4520: l_return_value:= FALSE;
4521: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4522: FND_MSG_PUB.Add;
4523: RETURN l_return_value;
4524: END IF;
4525: END IF;
4536: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4537: l_return_value:= TRUE;
4538: ELSE
4539: l_return_value:= FALSE;
4540: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4541: FND_MSG_PUB.Add;
4542: RETURN l_return_value;
4543: END IF;
4544: -----------
4554: AND task_id = p_task_id;
4555: EXCEPTION
4556: WHEN NO_DATA_FOUND THEN
4557: l_return_value:= FALSE;
4558: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4559: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4560: FND_MSG_PUB.Add;
4561: RETURN l_return_value;
4562: END;
4555: EXCEPTION
4556: WHEN NO_DATA_FOUND THEN
4557: l_return_value:= FALSE;
4558: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4559: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4560: FND_MSG_PUB.Add;
4561: RETURN l_return_value;
4562: END;
4563: ELSE
4561: RETURN l_return_value;
4562: END;
4563: ELSE
4564: l_return_value:= FALSE;
4565: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4566: FND_MSG_PUB.Add;
4567: RETURN l_return_value;
4568: END IF; -- usage code = 'INSTALLED'
4569: END IF; -- Project id , task id provided
4582: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4583: l_return_value:= TRUE;
4584: ELSE
4585: l_return_value:= FALSE;
4586: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4587: FND_MSG_PUB.Add;
4588: RETURN l_return_value;
4589: END IF;
4590: END IF;
4605: l_return_value := TRUE;
4606:
4607: EXCEPTION
4608: WHEN NO_DATA_FOUND THEN
4609: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4610: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4611: FND_MSG_PUB.Add;
4612: l_return_value := FALSE;
4613: RETURN l_return_value;
4606:
4607: EXCEPTION
4608: WHEN NO_DATA_FOUND THEN
4609: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4610: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4611: FND_MSG_PUB.Add;
4612: l_return_value := FALSE;
4613: RETURN l_return_value;
4614: END;
4624: --
4625: l_return_value := TRUE;
4626: EXCEPTION
4627: WHEN NO_DATA_FOUND THEN
4628: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4629: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4630: FND_MSG_PUB.Add;
4631: l_return_value := FALSE;
4632: RETURN l_return_value;
4625: l_return_value := TRUE;
4626: EXCEPTION
4627: WHEN NO_DATA_FOUND THEN
4628: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4629: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4630: FND_MSG_PUB.Add;
4631: l_return_value := FALSE;
4632: RETURN l_return_value;
4633: END;
4633: END;
4634: END IF;
4635: ELSE
4636: l_return_value := FALSE;
4637: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INVENTORY_LOC');
4638: FND_MSG_PUB.Add;
4639: RETURN l_return_value;
4640: END IF;
4641: END IF;
4648: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4649: l_return_value:= TRUE;
4650: ELSE
4651: l_return_value:= FALSE;
4652: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4653: FND_MSG_PUB.Add;
4654: RETURN l_return_value;
4655: END IF;
4656: END IF; -- INVENTORY
4667: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4668: l_return_value:= TRUE;
4669: ELSE
4670: l_return_value:= FALSE;
4671: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4672: FND_MSG_PUB.Add;
4673: RETURN l_return_value;
4674: END IF;
4675: END IF;
4690: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4691: l_return_value:= TRUE;
4692: ELSE
4693: l_return_value:= FALSE;
4694: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4695: FND_MSG_PUB.Add;
4696: RETURN l_return_value;
4697: END IF;
4698:
4698:
4699: EXCEPTION
4700: WHEN NO_DATA_FOUND THEN
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4703: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END;
4699: EXCEPTION
4700: WHEN NO_DATA_FOUND THEN
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4703: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END;
4707: --
4722: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4723: l_return_value:= TRUE;
4724: ELSE
4725: l_return_value:= FALSE;
4726: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4727: FND_MSG_PUB.Add;
4728: RETURN l_return_value;
4729: END IF;
4730:
4730:
4731: EXCEPTION
4732: WHEN NO_DATA_FOUND THEN
4733: l_return_value:= FALSE;
4734: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4735: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4736: FND_MSG_PUB.Add;
4737: RETURN l_return_value;
4738: END;
4731: EXCEPTION
4732: WHEN NO_DATA_FOUND THEN
4733: l_return_value:= FALSE;
4734: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4735: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4736: FND_MSG_PUB.Add;
4737: RETURN l_return_value;
4738: END;
4739:
4753: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4754: l_return_value:= TRUE;
4755: ELSE
4756: l_return_value:= FALSE;
4757: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4758: FND_MSG_PUB.Add;
4759: RETURN l_return_value;
4760: END IF;
4761:
4761:
4762: EXCEPTION
4763: WHEN NO_DATA_FOUND THEN
4764: l_return_value:= FALSE;
4765: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4766: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4767: FND_MSG_PUB.Add;
4768: RETURN l_return_value;
4769: END;
4762: EXCEPTION
4763: WHEN NO_DATA_FOUND THEN
4764: l_return_value:= FALSE;
4765: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4766: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4767: FND_MSG_PUB.Add;
4768: RETURN l_return_value;
4769: END;
4770: --
4784: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4785: l_return_value:= TRUE;
4786: ELSE
4787: l_return_value:= FALSE;
4788: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4789: FND_MSG_PUB.Add;
4790: FND_MSG_PUB.Add;
4791: RETURN l_return_value;
4792: END IF;
4792: END IF;
4793: EXCEPTION
4794: WHEN NO_DATA_FOUND THEN
4795: l_return_value:= FALSE;
4796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4797: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4798: FND_MSG_PUB.Add;
4799: RETURN l_return_value;
4800: END;
4793: EXCEPTION
4794: WHEN NO_DATA_FOUND THEN
4795: l_return_value:= FALSE;
4796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4797: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4798: FND_MSG_PUB.Add;
4799: RETURN l_return_value;
4800: END;
4801: END IF;
5193: l_txn_seq_start_date := nvl(csi_datastructures_pub.g_install_param_rec.txn_seq_start_date,
5194: csi_datastructures_pub.g_install_param_rec.freeze_date);
5195:
5196: IF l_txn_seq_start_date IS NULL THEN
5197: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5198: FND_MSG_PUB.ADD;
5199: raise fnd_api.g_exc_error;
5200: END IF;
5201:
5352: THEN
5353: IF p_mode = 'CREATE' THEN
5354: IF l_pending_txn_tbl.count > 0 THEN
5355: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5356: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5357: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5358: fnd_msg_pub.add;
5359: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5360: raise fnd_api.g_exc_error;
5353: IF p_mode = 'CREATE' THEN
5354: IF l_pending_txn_tbl.count > 0 THEN
5355: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5356: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5357: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5358: fnd_msg_pub.add;
5359: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5360: raise fnd_api.g_exc_error;
5361: END IF;
5360: raise fnd_api.g_exc_error;
5361: END IF;
5362: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5363: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5364: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5365: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5366: fnd_msg_pub.add;
5367: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5368: RAISE fnd_api.g_exc_error;
5361: END IF;
5362: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5363: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5364: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5365: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5366: fnd_msg_pub.add;
5367: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5368: RAISE fnd_api.g_exc_error;
5369: END IF;
5401:
5402: IF (l_err_mtl_txn_date <> FND_API.G_MISS_DATE
5403: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5404: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5405: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5406: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5407: fnd_msg_pub.add;
5408: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5409: RAISE fnd_api.g_exc_error;
5402: IF (l_err_mtl_txn_date <> FND_API.G_MISS_DATE
5403: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5404: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5405: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5406: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5407: fnd_msg_pub.add;
5408: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5409: RAISE fnd_api.g_exc_error;
5410: END IF;
5430:
5431: end if;
5432: EXCEPTION
5433: WHEN no_data_found THEN
5434: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5435: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5436: fnd_msg_pub.add;
5437: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5438: RAISE fnd_api.g_exc_error;
5431: end if;
5432: EXCEPTION
5433: WHEN no_data_found THEN
5434: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5435: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5436: fnd_msg_pub.add;
5437: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5438: RAISE fnd_api.g_exc_error;
5439: END;
5475: Exception
5476: when no_data_found then
5477: null;
5478: End;
5479: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5480: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5481: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5482: FND_MSG_PUB.Add;
5483: RAISE fnd_api.g_exc_error;
5476: when no_data_found then
5477: null;
5478: End;
5479: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5480: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5481: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5482: FND_MSG_PUB.Add;
5483: RAISE fnd_api.g_exc_error;
5484: END IF;
5477: null;
5478: End;
5479: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5480: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5481: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5482: FND_MSG_PUB.Add;
5483: RAISE fnd_api.g_exc_error;
5484: END IF;
5485: END IF; -- Item-srl# not null check
5811:
5812:
5813: IF l_validation_status <> 0 THEN
5814: l_return_status := FND_API.G_RET_STS_ERROR;
5815: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5816: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5817: FND_MSG_PUB.ADD;
5818: END IF;
5819:
5812:
5813: IF l_validation_status <> 0 THEN
5814: l_return_status := FND_API.G_RET_STS_ERROR;
5815: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5816: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5817: FND_MSG_PUB.ADD;
5818: END IF;
5819:
5820: IF (l_html_pieces.COUNT <= 0) THEN
5818: END IF;
5819:
5820: IF (l_html_pieces.COUNT <= 0) THEN
5821: l_return_status := FND_API.G_RET_STS_ERROR;
5822: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5823: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5824: FND_MSG_PUB.ADD;
5825: END IF;
5826:
5819:
5820: IF (l_html_pieces.COUNT <= 0) THEN
5821: l_return_status := FND_API.G_RET_STS_ERROR;
5822: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5823: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5824: FND_MSG_PUB.ADD;
5825: END IF;
5826:
5827:
6049: IF nvl(l_valid_config, 'false') = 'false'
6050: OR l_exit = 'error'
6051: THEN
6052: l_return_status:=FND_API.G_RET_STS_ERROR;
6053: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
6054: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
6055: FND_MSG_PUB.ADD;
6056: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
6057: END IF;
6050: OR l_exit = 'error'
6051: THEN
6052: l_return_status:=FND_API.G_RET_STS_ERROR;
6053: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
6054: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
6055: FND_MSG_PUB.ADD;
6056: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
6057: END IF;
6058: */
6152: IF l_oe_line_status = 'CANCELLED' THEN
6153: -- OE line cancelled, so proceed with checking next OE line
6154: NULL;
6155: ELSE
6156: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6157: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6158: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6159: fnd_msg_pub.add;
6160: RAISE fnd_api.g_exc_error;
6153: -- OE line cancelled, so proceed with checking next OE line
6154: NULL;
6155: ELSE
6156: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6157: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6158: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6159: fnd_msg_pub.add;
6160: RAISE fnd_api.g_exc_error;
6161: END IF;
6154: NULL;
6155: ELSE
6156: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6157: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6158: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6159: fnd_msg_pub.add;
6160: RAISE fnd_api.g_exc_error;
6161: END IF;
6162: EXCEPTION
6160: RAISE fnd_api.g_exc_error;
6161: END IF;
6162: EXCEPTION
6163: WHEN OTHERS THEN
6164: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6165: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6166: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6167: fnd_msg_pub.add;
6168: RAISE fnd_api.g_exc_error;
6161: END IF;
6162: EXCEPTION
6163: WHEN OTHERS THEN
6164: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6165: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6166: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6167: fnd_msg_pub.add;
6168: RAISE fnd_api.g_exc_error;
6169: END;
6162: EXCEPTION
6163: WHEN OTHERS THEN
6164: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6165: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6166: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6167: fnd_msg_pub.add;
6168: RAISE fnd_api.g_exc_error;
6169: END;
6170: -- End of Bug#12599234
6168: RAISE fnd_api.g_exc_error;
6169: END;
6170: -- End of Bug#12599234
6171: ELSE
6172: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6173: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6174: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6175: fnd_msg_pub.add;
6176: RAISE fnd_api.g_exc_error;
6169: END;
6170: -- End of Bug#12599234
6171: ELSE
6172: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6173: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6174: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6175: fnd_msg_pub.add;
6176: RAISE fnd_api.g_exc_error;
6177: END IF;
6170: -- End of Bug#12599234
6171: ELSE
6172: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
6173: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
6174: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
6175: fnd_msg_pub.add;
6176: RAISE fnd_api.g_exc_error;
6177: END IF;
6178: END LOOP;
6178: END LOOP;
6179:
6180: FOR oi_rec IN oi_cur
6181: LOOP
6182: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_OI');
6183: fnd_msg_pub.add;
6184: RAISE fnd_api.g_exc_error;
6185: END LOOP;
6186:
6251: --
6252: IF p_instance_rec.location_type_code IN
6253: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
6254: THEN
6255: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
6256: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
6257: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
6258: fnd_msg_pub.add;
6259: RAISE fnd_api.g_exc_error;
6252: IF p_instance_rec.location_type_code IN
6253: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
6254: THEN
6255: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
6256: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
6257: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
6258: fnd_msg_pub.add;
6259: RAISE fnd_api.g_exc_error;
6260: END IF;
6253: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
6254: THEN
6255: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
6256: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
6257: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
6258: fnd_msg_pub.add;
6259: RAISE fnd_api.g_exc_error;
6260: END IF;
6261: END IF;
6267: IF p_txn_rec.transaction_type_id not in (205,127,10082) THEN --Added condition and uncommented the code for bug 6965008
6268: -- check for existence in mut and error
6269: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
6270: LOOP
6271: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
6272: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6273: fnd_msg_pub.add;
6274: RAISE fnd_api.g_exc_error;
6275: END LOOP;
6268: -- check for existence in mut and error
6269: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
6270: LOOP
6271: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
6272: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6273: fnd_msg_pub.add;
6274: RAISE fnd_api.g_exc_error;
6275: END LOOP;
6276:
6297: and wdj.maintenance_object_source = 1
6298: and ROWNUM = 1;
6299: --
6300: IF l_rec_count > 0 THEN
6301: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6302: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6303: fnd_msg_pub.add;
6304: RAISE fnd_api.g_exc_error;
6305: END IF;
6298: and ROWNUM = 1;
6299: --
6300: IF l_rec_count > 0 THEN
6301: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6302: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6303: fnd_msg_pub.add;
6304: RAISE fnd_api.g_exc_error;
6305: END IF;
6306: END IF;
6314: AND serial_number = p_old_serial_number;
6315:
6316: --start of code fix for 6176621
6317: IF l_current_status <> 4 THEN
6318: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6319: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6320: fnd_msg_pub.add;
6321: RAISE fnd_api.g_exc_error;
6322: END IF;
6315:
6316: --start of code fix for 6176621
6317: IF l_current_status <> 4 THEN
6318: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6319: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6320: fnd_msg_pub.add;
6321: RAISE fnd_api.g_exc_error;
6322: END IF;
6323: --code fix end for 6176621
6323: --code fix end for 6176621
6324: --
6325: FOR mog_rec IN mog_cur(l_gen_object_id)
6326: LOOP
6327: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6328: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6329: fnd_msg_pub.add;
6330: RAISE fnd_api.g_exc_error;
6331: END LOOP;
6324: --
6325: FOR mog_rec IN mog_cur(l_gen_object_id)
6326: LOOP
6327: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6328: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6329: fnd_msg_pub.add;
6330: RAISE fnd_api.g_exc_error;
6331: END LOOP;
6332:
6357: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,
6358: p_instance_rec.serial_number,
6359: l_current_txn_id)
6360: LOOP
6361: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6362: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6363: fnd_msg_pub.add;
6364: RAISE fnd_api.g_exc_error;
6365: END LOOP;
6358: p_instance_rec.serial_number,
6359: l_current_txn_id)
6360: LOOP
6361: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6362: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6363: fnd_msg_pub.add;
6364: RAISE fnd_api.g_exc_error;
6365: END LOOP;
6366: END IF;
6364: RAISE fnd_api.g_exc_error;
6365: END LOOP;
6366: END IF;
6367: ----uncommented code for 6965008
6368: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6369: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6370: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6371: fnd_msg_pub.add;
6372: --
6365: END LOOP;
6366: END IF;
6367: ----uncommented code for 6965008
6368: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6369: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6370: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6371: fnd_msg_pub.add;
6372: --
6373: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6366: END IF;
6367: ----uncommented code for 6965008
6368: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6369: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6370: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6371: fnd_msg_pub.add;
6372: --
6373: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6374: -- x_return_status := 'W';
6458: l_txn_seq_start_date := csi_datastructures_pub.g_install_param_rec.freeze_date;
6459: END IF;
6460:
6461: IF l_txn_seq_start_date is null THEN
6462: fnd_message.set_name('CSI','CSI_API_UNINSTALLED_PARAMETER');
6463: fnd_msg_pub.add;
6464: raise fnd_api.g_exc_error;
6465: END IF;
6466:
6518: WHERE transaction_id = l_mtl_txn_id;
6519: -- Added for bug 8549651 (FP of 8507649)
6520: EXCEPTION
6521: WHEN NO_DATA_FOUND THEN
6522: fnd_message.set_name('CSI','CSI_API_NOT_LOT_CONTROLLED');
6523: fnd_msg_pub.add;
6524: END;
6525: -- End bug 8549651 (FP of 8507649)
6526: