[Home] [Help]
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: -- RETURN l_return_value;
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: -- RETURN l_return_value;
100: EXCEPTION
169: SELECT instance_number
170: INTO l_instance_number
171: FROM csi_item_instances
172: WHERE instance_number=p_instance_number;
173: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
174: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
175: FND_MSG_PUB.Add;
176: l_return_value := FALSE;
177: EXCEPTION
170: INTO l_instance_number
171: FROM csi_item_instances
172: WHERE instance_number=p_instance_number;
173: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
174: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
175: FND_MSG_PUB.Add;
176: l_return_value := FALSE;
177: EXCEPTION
178: WHEN NO_DATA_FOUND THEN
177: EXCEPTION
178: WHEN NO_DATA_FOUND THEN
179: l_return_value := TRUE;
180: WHEN TOO_MANY_ROWS THEN
181: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
182: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
183: FND_MSG_PUB.Add;
184: l_return_value := FALSE;
185: END;
178: WHEN NO_DATA_FOUND THEN
179: l_return_value := TRUE;
180: WHEN TOO_MANY_ROWS THEN
181: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
182: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
183: FND_MSG_PUB.Add;
184: l_return_value := FALSE;
185: END;
186: -- End addition for eam integration
187: -- Start commentation for eam integration
188: /*
189: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
190: IF ( p_stack_err_msg = TRUE ) THEN
191: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
192: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
193: FND_MSG_PUB.Add;
194: l_return_value := FALSE;
195: END IF;
188: /*
189: IF (to_char(p_item_instance_id) <> p_instance_number) THEN
190: IF ( p_stack_err_msg = TRUE ) THEN
191: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
192: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
193: FND_MSG_PUB.Add;
194: l_return_value := FALSE;
195: END IF;
196: END IF;
206: INTO l_instance_number
207: FROM csi_item_instances
208: WHERE instance_number = p_instance_number
209: AND instance_id <> p_item_instance_id;
210: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
211: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
212: FND_MSG_PUB.Add;
213: l_return_value := FALSE;
214: EXCEPTION
207: FROM csi_item_instances
208: WHERE instance_number = p_instance_number
209: AND instance_id <> p_item_instance_id;
210: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
211: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
212: FND_MSG_PUB.Add;
213: l_return_value := FALSE;
214: EXCEPTION
215: WHEN NO_DATA_FOUND THEN
214: EXCEPTION
215: WHEN NO_DATA_FOUND THEN
216: l_return_value := TRUE;
217: WHEN TOO_MANY_ROWS THEN
218: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
219: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
220: FND_MSG_PUB.Add;
221: l_return_value := FALSE;
222: END;
215: WHEN NO_DATA_FOUND THEN
216: l_return_value := TRUE;
217: WHEN TOO_MANY_ROWS THEN
218: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_NUM');
219: FND_MESSAGE.SET_TOKEN('INSTANCE_NUMBER',p_instance_number);
220: FND_MSG_PUB.Add;
221: l_return_value := FALSE;
222: END;
223: -- End addition for eam integration
264: If p_trackable_flag <> FND_API.G_MISS_CHAR then
265: if nvl(p_trackable_flag,'N') <> 'Y' then
266: l_return_value := FALSE;
267: IF (p_stack_err_msg = TRUE) THEN
268: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
269: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
270: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
271: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
272:
265: if nvl(p_trackable_flag,'N') <> 'Y' then
266: l_return_value := FALSE;
267: IF (p_stack_err_msg = TRUE) THEN
268: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
269: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
270: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
271: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
272:
273: FND_MSG_PUB.Add;
266: l_return_value := FALSE;
267: IF (p_stack_err_msg = TRUE) THEN
268: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
269: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
270: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
271: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
272:
273: FND_MSG_PUB.Add;
274: END IF;
267: IF (p_stack_err_msg = TRUE) THEN
268: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
269: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
270: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
271: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
272:
273: FND_MSG_PUB.Add;
274: END IF;
275: else
287: l_return_value := TRUE;
288: ELSE
289: l_return_value := FALSE;
290: IF (p_stack_err_msg = TRUE) THEN
291: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
292: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
293: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
294: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
295: FND_MSG_PUB.Add;
288: ELSE
289: l_return_value := FALSE;
290: IF (p_stack_err_msg = TRUE) THEN
291: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
292: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
293: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
294: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
295: FND_MSG_PUB.Add;
296: END IF;
289: l_return_value := FALSE;
290: IF (p_stack_err_msg = TRUE) THEN
291: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
292: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
293: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
294: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
295: FND_MSG_PUB.Add;
296: END IF;
297: END IF;
290: IF (p_stack_err_msg = TRUE) THEN
291: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
292: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
293: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
294: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
295: FND_MSG_PUB.Add;
296: END IF;
297: END IF;
298:
299:
300: ELSE
301: l_return_value := FALSE;
302: IF (p_stack_err_msg = TRUE) THEN
303: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
304: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
305: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
306: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
307: FND_MSG_PUB.Add;
300: ELSE
301: l_return_value := FALSE;
302: IF (p_stack_err_msg = TRUE) THEN
303: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
304: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
305: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
306: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
307: FND_MSG_PUB.Add;
308: End IF;
301: l_return_value := FALSE;
302: IF (p_stack_err_msg = TRUE) THEN
303: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
304: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
305: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
306: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
307: FND_MSG_PUB.Add;
308: End IF;
309: END IF;
302: IF (p_stack_err_msg = TRUE) THEN
303: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_TRACKABLE');
304: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description) ;
305: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
306: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_org_id);
307: FND_MSG_PUB.Add;
308: End IF;
309: END IF;
310:
423: (p_revision = FND_API.G_MISS_CHAR)) THEN
424: IF (p_creation_complete_flag = 'Y') THEN
425: l_return_value := FALSE;
426: IF ( l_stack_err_msg = TRUE ) THEN
427: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
428: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
429: FND_MSG_PUB.Add;
430: END IF;
431: ELSE
424: IF (p_creation_complete_flag = 'Y') THEN
425: l_return_value := FALSE;
426: IF ( l_stack_err_msg = TRUE ) THEN
427: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
428: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
429: FND_MSG_PUB.Add;
430: END IF;
431: ELSE
432: p_creation_complete_flag := 'N';
445: EXCEPTION
446: WHEN NO_DATA_FOUND THEN
447: l_return_value := FALSE;
448: IF ( l_stack_err_msg = TRUE ) THEN
449: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
450: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
451: FND_MSG_PUB.Add;
452: END IF;
453: END;
446: WHEN NO_DATA_FOUND THEN
447: l_return_value := FALSE;
448: IF ( l_stack_err_msg = TRUE ) THEN
449: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
450: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
451: FND_MSG_PUB.Add;
452: END IF;
453: END;
454: END IF;
466: EXCEPTION
467: WHEN NO_DATA_FOUND THEN
468: l_return_value := FALSE;
469: IF ( l_stack_err_msg = TRUE ) THEN
470: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
471: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
472: FND_MSG_PUB.Add;
473: END IF;
474: END;
467: WHEN NO_DATA_FOUND THEN
468: l_return_value := FALSE;
469: IF ( l_stack_err_msg = TRUE ) THEN
470: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
471: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
472: FND_MSG_PUB.Add;
473: END IF;
474: END;
475: ELSE
478:
479: END IF;
480: ELSE
481: l_return_value := FALSE;
482: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
483: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
485: FND_MSG_PUB.Add;
486: END IF;
479: END IF;
480: ELSE
481: l_return_value := FALSE;
482: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
483: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
485: FND_MSG_PUB.Add;
486: END IF;
487: END Validate_Revision;
480: ELSE
481: l_return_value := FALSE;
482: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
483: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
484: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
485: FND_MSG_PUB.Add;
486: END IF;
487: END Validate_Revision;
488:
529: IF ((p_revision IS NULL) OR
530: (p_revision = FND_API.G_MISS_CHAR)) THEN
531: l_return_value := FALSE;
532: IF ( l_stack_err_msg = TRUE ) THEN
533: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
534: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
535: FND_MSG_PUB.Add;
536: END IF;
537: ELSE
530: (p_revision = FND_API.G_MISS_CHAR)) THEN
531: l_return_value := FALSE;
532: IF ( l_stack_err_msg = TRUE ) THEN
533: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
534: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
535: FND_MSG_PUB.Add;
536: END IF;
537: ELSE
538: BEGIN
546: EXCEPTION
547: WHEN NO_DATA_FOUND THEN
548: l_return_value := FALSE;
549: IF ( l_stack_err_msg = TRUE ) THEN
550: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
551: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
552: FND_MSG_PUB.Add;
553: END IF;
554: END;
547: WHEN NO_DATA_FOUND THEN
548: l_return_value := FALSE;
549: IF ( l_stack_err_msg = TRUE ) THEN
550: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
551: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
552: FND_MSG_PUB.Add;
553: END IF;
554: END;
555: END IF;
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: l_return_value := FALSE;
570: IF ( l_stack_err_msg = TRUE ) THEN
571: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
572: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
573: FND_MSG_PUB.Add;
574: END IF;
575: END;
568: WHEN NO_DATA_FOUND THEN
569: l_return_value := FALSE;
570: IF ( l_stack_err_msg = TRUE ) THEN
571: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REVISION');
572: FND_MESSAGE.SET_TOKEN('INVENTORY_REVISION',p_revision);
573: FND_MSG_PUB.Add;
574: END IF;
575: END;
576: ELSE
578: END IF;
579: END IF;
580: ELSE
581: l_return_value := FALSE;
582: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
583: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
585: FND_MSG_PUB.Add;
586: END IF;
579: END IF;
580: ELSE
581: l_return_value := FALSE;
582: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
583: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
585: FND_MSG_PUB.Add;
586: END IF;
587: END Update_Revision;
580: ELSE
581: l_return_value := FALSE;
582: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
583: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
584: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
585: FND_MSG_PUB.Add;
586: END IF;
587: END Update_Revision;
588:
722: WHERE organization_id = p_inv_org_id;
723: EXCEPTION
724: WHEN no_data_found THEN
725: l_return_value := FALSE;
726: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
727: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
728: fnd_msg_pub.add;
729: RAISE comp_error;
730: END;
723: EXCEPTION
724: WHEN no_data_found THEN
725: l_return_value := FALSE;
726: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
727: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
728: fnd_msg_pub.add;
729: RAISE comp_error;
730: END;
731: --
845: );
846: p_gen_object_id := l_object_id;
847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: l_return_value := FALSE;
849: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
850: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
851: FND_MSG_PUB.ADD;
852: RAISE comp_error;
853: ELSE
846: p_gen_object_id := l_object_id;
847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: l_return_value := FALSE;
849: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_UPD_SERIAL');
850: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.updateserial');
851: FND_MSG_PUB.ADD;
852: RAISE comp_error;
853: ELSE
854: l_return_value := TRUE;
896: -- If l_temp has a value then the uniqueness within Models and Inventory Items is violated.
897: -- Hence error out.
898: IF l_temp IS NOT NULL THEN
899: l_return_value := FALSE;
900: fnd_message.set_name('CSI','CSI_SER_CASE4');
901: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
902: fnd_msg_pub.add;
903: RAISE comp_error;
904: END IF;
897: -- Hence error out.
898: IF l_temp IS NOT NULL THEN
899: l_return_value := FALSE;
900: fnd_message.set_name('CSI','CSI_SER_CASE4');
901: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
902: fnd_msg_pub.add;
903: RAISE comp_error;
904: END IF;
905: END IF; -- base model exists
924: l_item_id := null;
925: WHEN TOO_MANY_ROWS THEN
926: l_temp := 'x';
927: l_return_value := FALSE;
928: fnd_message.set_name('CSI','CSI_SER_CASE2');
929: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
930: fnd_msg_pub.add;
931: RAISE comp_error;
932: END;
925: WHEN TOO_MANY_ROWS THEN
926: l_temp := 'x';
927: l_return_value := FALSE;
928: fnd_message.set_name('CSI','CSI_SER_CASE2');
929: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
930: fnd_msg_pub.add;
931: RAISE comp_error;
932: END;
933: --
934: IF l_item_id IS NOT NULL THEN
935: l_temp := 'x';
936: IF l_item_id <> p_inv_item_id THEN
937: l_return_value := FALSE;
938: fnd_message.set_name('CSI','CSI_SER_CASE2');
939: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
940: fnd_msg_pub.add;
941: RAISE comp_error;
942: ELSE
935: l_temp := 'x';
936: IF l_item_id <> p_inv_item_id THEN
937: l_return_value := FALSE;
938: fnd_message.set_name('CSI','CSI_SER_CASE2');
939: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
940: fnd_msg_pub.add;
941: RAISE comp_error;
942: ELSE
943: RAISE Process_next;
962: END;
963: --
964: IF l_temp IS NOT NULL THEN
965: l_return_value := FALSE;
966: fnd_message.set_name('CSI','CSI_SER_CASE3');
967: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
968: fnd_msg_pub.add;
969: RAISE comp_error;
970: END IF;
963: --
964: IF l_temp IS NOT NULL THEN
965: l_return_value := FALSE;
966: fnd_message.set_name('CSI','CSI_SER_CASE3');
967: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
968: fnd_msg_pub.add;
969: RAISE comp_error;
970: END IF;
971: END IF; --l_return_value
984: l_item_id := null;
985: WHEN TOO_MANY_ROWS THEN
986: l_temp := 'x';
987: l_return_value := FALSE;
988: fnd_message.set_name('CSI','CSI_SER_CASE3');
989: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
990: fnd_msg_pub.add;
991: RAISE comp_error;
992: END;
985: WHEN TOO_MANY_ROWS THEN
986: l_temp := 'x';
987: l_return_value := FALSE;
988: fnd_message.set_name('CSI','CSI_SER_CASE3');
989: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
990: fnd_msg_pub.add;
991: RAISE comp_error;
992: END;
993: --
994: IF l_item_id IS NOT NULL THEN
995: l_temp := 'x';
996: IF l_item_id <> p_inv_item_id THEN
997: l_return_value := FALSE;
998: fnd_message.set_name('CSI','CSI_SER_CASE3');
999: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1000: fnd_msg_pub.add;
1001: RAISE comp_error;
1002: ELSE
995: l_temp := 'x';
996: IF l_item_id <> p_inv_item_id THEN
997: l_return_value := FALSE;
998: fnd_message.set_name('CSI','CSI_SER_CASE3');
999: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1000: fnd_msg_pub.add;
1001: RAISE comp_error;
1002: ELSE
1003: RAISE Process_next;
1057:
1058: p_gen_object_id := l_object_id;
1059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1060: l_return_value := FALSE;
1061: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1062: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1063: FND_MSG_PUB.ADD;
1064: ELSE
1065: l_return_value := TRUE;
1058: p_gen_object_id := l_object_id;
1059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1060: l_return_value := FALSE;
1061: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_SERIAL');
1062: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_serial_number_pub.insertserial');
1063: FND_MSG_PUB.ADD;
1064: ELSE
1065: l_return_value := TRUE;
1066: p_ins_flag := FND_API.G_TRUE;
1140: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
1141: IF (p_creation_complete_flag = 'Y') THEN
1142: l_return_value := FALSE;
1143: IF (p_stack_err_msg = TRUE) THEN
1144: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1145: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1146: FND_MSG_PUB.Add;
1147: END IF;
1148: ELSE
1141: IF (p_creation_complete_flag = 'Y') THEN
1142: l_return_value := FALSE;
1143: IF (p_stack_err_msg = TRUE) THEN
1144: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
1145: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1146: FND_MSG_PUB.Add;
1147: END IF;
1148: ELSE
1149: p_creation_complete_flag := 'N';
1182: END IF;
1183: IF l_found IS NULL
1184: THEN
1185: l_return_value := FALSE;
1186: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1187: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1188: FND_MSG_PUB.Add;
1189: END IF;
1190: ELSE
1183: IF l_found IS NULL
1184: THEN
1185: l_return_value := FALSE;
1186: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
1187: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
1188: FND_MSG_PUB.Add;
1189: END IF;
1190: ELSE
1191: l_return_value := TRUE;
1193: END IF;
1194: END IF;
1195: ELSE
1196: l_return_value := FALSE;
1197: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1198: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1199: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1200: FND_MSG_PUB.Add;
1201: END IF;
1194: END IF;
1195: ELSE
1196: l_return_value := FALSE;
1197: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1198: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1199: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1200: FND_MSG_PUB.Add;
1201: END IF;
1202:
1195: ELSE
1196: l_return_value := FALSE;
1197: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1198: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1199: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1200: FND_MSG_PUB.Add;
1201: END IF;
1202:
1203: IF l_return_value = TRUE AND
1211: ,l_return_value => l_return_value
1212: ,p_instance_id => p_instance_id
1213: );
1214: IF l_return_value = FALSE THEN
1215: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
1216: fnd_msg_pub.add;
1217: END IF;
1218: END IF;
1219:
1265: WHERE organization_id = p_inv_org_id;
1266: EXCEPTION
1267: WHEN no_data_found THEN
1268: l_return_value := FALSE;
1269: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1270: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1271: fnd_msg_pub.add;
1272: RAISE comp_error;
1273: END;
1266: EXCEPTION
1267: WHEN no_data_found THEN
1268: l_return_value := FALSE;
1269: fnd_message.set_name('CSI','CSI_NO_ORG_SET');
1270: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1271: fnd_msg_pub.add;
1272: RAISE comp_error;
1273: END;
1274: --
1288: l_temp := null;
1289: END;
1290: IF l_temp IS NOT NULL THEN
1291: l_return_value := FALSE;
1292: fnd_message.set_name('CSI','CSI_SER_CASE1');
1293: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1294: fnd_msg_pub.add;
1295: RAISE comp_error;
1296: END IF;
1289: END;
1290: IF l_temp IS NOT NULL THEN
1291: l_return_value := FALSE;
1292: fnd_message.set_name('CSI','CSI_SER_CASE1');
1293: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1294: fnd_msg_pub.add;
1295: RAISE comp_error;
1296: END IF;
1297: --
1322: END LOOP;
1323: --
1324: IF l_temp IS NOT NULL THEN
1325: l_return_value := FALSE;
1326: fnd_message.set_name('CSI','CSI_SER_CASE4');
1327: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1328: fnd_msg_pub.add;
1329: RAISE comp_error;
1330: END IF;
1323: --
1324: IF l_temp IS NOT NULL THEN
1325: l_return_value := FALSE;
1326: fnd_message.set_name('CSI','CSI_SER_CASE4');
1327: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1328: fnd_msg_pub.add;
1329: RAISE comp_error;
1330: END IF;
1331: END IF; -- Base Model check
1351: END;
1352: --
1353: IF l_temp IS NOT NULL THEN
1354: l_return_value := FALSE;
1355: fnd_message.set_name('CSI','CSI_SER_CASE2');
1356: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1357: fnd_msg_pub.add;
1358: RAISE comp_error;
1359: END IF;
1352: --
1353: IF l_temp IS NOT NULL THEN
1354: l_return_value := FALSE;
1355: fnd_message.set_name('CSI','CSI_SER_CASE2');
1356: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1357: fnd_msg_pub.add;
1358: RAISE comp_error;
1359: END IF;
1360: --
1370: WHEN NO_DATA_FOUND THEN
1371: l_item_id := null;
1372: WHEN TOO_MANY_ROWS THEN
1373: l_return_value := FALSE;
1374: fnd_message.set_name('CSI','CSI_SER_CASE2');
1375: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1376: fnd_msg_pub.add;
1377: RAISE comp_error;
1378: END;
1371: l_item_id := null;
1372: WHEN TOO_MANY_ROWS THEN
1373: l_return_value := FALSE;
1374: fnd_message.set_name('CSI','CSI_SER_CASE2');
1375: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1376: fnd_msg_pub.add;
1377: RAISE comp_error;
1378: END;
1379: --
1379: --
1380: IF l_item_id IS NOT NULL THEN
1381: IF l_item_id <> p_inv_item_id THEN
1382: l_return_value := FALSE;
1383: fnd_message.set_name('CSI','CSI_SER_CASE2');
1384: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1385: fnd_msg_pub.add;
1386: RAISE comp_error;
1387: END IF;
1380: IF l_item_id IS NOT NULL THEN
1381: IF l_item_id <> p_inv_item_id THEN
1382: l_return_value := FALSE;
1383: fnd_message.set_name('CSI','CSI_SER_CASE2');
1384: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1385: fnd_msg_pub.add;
1386: RAISE comp_error;
1387: END IF;
1388: END IF;
1407: END;
1408: --
1409: IF l_temp IS NOT NULL THEN
1410: l_return_value := FALSE;
1411: fnd_message.set_name('CSI','CSI_SER_CASE3');
1412: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1413: fnd_msg_pub.add;
1414: RAISE comp_error;
1415: END IF;
1408: --
1409: IF l_temp IS NOT NULL THEN
1410: l_return_value := FALSE;
1411: fnd_message.set_name('CSI','CSI_SER_CASE3');
1412: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1413: fnd_msg_pub.add;
1414: RAISE comp_error;
1415: END IF;
1416: END IF; --l_return_value
1432: END;
1433: --
1434: IF l_temp IS NOT NULL THEN
1435: l_return_value := FALSE;
1436: fnd_message.set_name('CSI','CSI_SER_CASE3');
1437: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1438: fnd_msg_pub.add;
1439: RAISE comp_error;
1440: END IF;
1433: --
1434: IF l_temp IS NOT NULL THEN
1435: l_return_value := FALSE;
1436: fnd_message.set_name('CSI','CSI_SER_CASE3');
1437: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1438: fnd_msg_pub.add;
1439: RAISE comp_error;
1440: END IF;
1441: --
1449: WHEN NO_DATA_FOUND THEN
1450: l_item_id := null;
1451: WHEN TOO_MANY_ROWS THEN
1452: l_return_value := FALSE;
1453: fnd_message.set_name('CSI','CSI_SER_CASE3');
1454: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1455: fnd_msg_pub.add;
1456: RAISE comp_error;
1457: END;
1450: l_item_id := null;
1451: WHEN TOO_MANY_ROWS THEN
1452: l_return_value := FALSE;
1453: fnd_message.set_name('CSI','CSI_SER_CASE3');
1454: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1455: fnd_msg_pub.add;
1456: RAISE comp_error;
1457: END;
1458: --
1458: --
1459: IF l_item_id IS NOT NULL THEN
1460: IF l_item_id <> p_inv_item_id THEN
1461: l_return_value := FALSE;
1462: fnd_message.set_name('CSI','CSI_SER_CASE3');
1463: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1464: fnd_msg_pub.add;
1465: RAISE comp_error;
1466: END IF;
1459: IF l_item_id IS NOT NULL THEN
1460: IF l_item_id <> p_inv_item_id THEN
1461: l_return_value := FALSE;
1462: fnd_message.set_name('CSI','CSI_SER_CASE3');
1463: fnd_message.set_token('SERIAL_NUMBER',p_serial_number);
1464: fnd_msg_pub.add;
1465: RAISE comp_error;
1466: END IF;
1467: END IF;
1520: WHERE organization_id = p_inv_org_id;
1521: EXCEPTION
1522: WHEN NO_DATA_FOUND THEN
1523: l_return_value := FALSE;
1524: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1525: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1526: fnd_msg_pub.add;
1527: RAISE comp_error;
1528: END;
1521: EXCEPTION
1522: WHEN NO_DATA_FOUND THEN
1523: l_return_value := FALSE;
1524: fnd_message.set_name('CSI','CSI_NO_LOT_ORG_SET');
1525: fnd_message.set_token('ORGANIZATION_ID',p_inv_org_id);
1526: fnd_msg_pub.add;
1527: RAISE comp_error;
1528: END;
1529: --
1542: p_inventory_item_id => p_inv_item_id,
1543: p_lot_uniqueness => l_lot_type,
1544: p_auto_lot_number => p_lot_number )
1545: THEN
1546: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1547: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1548: fnd_msg_pub.add;
1549: RAISE comp_error;
1550: ELSE
1543: p_lot_uniqueness => l_lot_type,
1544: p_auto_lot_number => p_lot_number )
1545: THEN
1546: fnd_message.set_name('CSI','CSI_LOT_CASE1');
1547: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1548: fnd_msg_pub.add;
1549: RAISE comp_error;
1550: ELSE
1551: -- Check for the fundamental uniqueness in Install Base
1564: END;
1565: --
1566: IF l_temp IS NOT NULL
1567: THEN
1568: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1569: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END IF;
1565: --
1566: IF l_temp IS NOT NULL
1567: THEN
1568: fnd_message.set_name('CSI','CSI_LOT_CASE2');
1569: fnd_message.set_token('LOT_NUMBER',p_lot_number);
1570: fnd_msg_pub.add;
1571: RAISE comp_error;
1572: END IF;
1573: END IF; -- validate_unique_lot
1615: x_msg_count => l_msg_count,
1616: x_msg_data => l_msg_data);
1617:
1618: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1619: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1620: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1621: FND_MSG_PUB.ADD;
1622: RAISE comp_error;
1623: ELSE
1616: x_msg_data => l_msg_data);
1617:
1618: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1619: FND_MESSAGE.Set_Name('CSI', 'CSI_API_INVALID_INV_LOT_NUM');
1620: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from inv_lot_api_pub.InsertLot Procedure');
1621: FND_MSG_PUB.ADD;
1622: RAISE comp_error;
1623: ELSE
1624: l_return_value := TRUE;
1683: THEN
1684: IF (p_creation_complete_flag = 'Y')
1685: THEN
1686: l_return_value := FALSE;
1687: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1688: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1689: FND_MSG_PUB.Add;
1690: ELSE
1691: p_creation_complete_flag := 'N';
1684: IF (p_creation_complete_flag = 'Y')
1685: THEN
1686: l_return_value := FALSE;
1687: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOT_NUM');
1688: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1689: FND_MSG_PUB.Add;
1690: ELSE
1691: p_creation_complete_flag := 'N';
1692: l_return_value := TRUE;
1700: IF ((p_lot_number IS NOT NULL) AND
1701: (p_lot_number <> FND_API.G_MISS_CHAR))
1702: THEN
1703: l_return_value := FALSE;
1704: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1705: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1706: FND_MSG_PUB.Add;
1707: ELSE
1708: l_return_value := TRUE;
1701: (p_lot_number <> FND_API.G_MISS_CHAR))
1702: THEN
1703: l_return_value := FALSE;
1704: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_LOT_CONTROLLED');
1705: FND_MESSAGE.SET_TOKEN('LOT_NUMBER',p_lot_number);
1706: FND_MSG_PUB.Add;
1707: ELSE
1708: l_return_value := TRUE;
1709: END IF;
1711: END IF;
1712: --
1713: ELSE
1714: l_return_value := FALSE;
1715: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1716: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1717: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1718: FND_MSG_PUB.Add;
1719: END IF;
1712: --
1713: ELSE
1714: l_return_value := FALSE;
1715: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1716: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1717: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1718: FND_MSG_PUB.Add;
1719: END IF;
1720: --
1713: ELSE
1714: l_return_value := FALSE;
1715: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
1716: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
1717: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
1718: FND_MSG_PUB.Add;
1719: END IF;
1720: --
1721: END Validate_Lot_Number;
1760: THEN
1761: IF p_quantity <> 1 THEN
1762: l_return_value := FALSE;
1763: IF (p_stack_err_msg = TRUE) THEN
1764: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1765: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1766: FND_MSG_PUB.Add;
1767: END IF;
1768: END IF;
1761: IF p_quantity <> 1 THEN
1762: l_return_value := FALSE;
1763: IF (p_stack_err_msg = TRUE) THEN
1764: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
1765: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1766: FND_MSG_PUB.Add;
1767: END IF;
1768: END IF;
1769: ELSE
1792: l_return_value := TRUE;
1793: ELSE
1794: l_return_value := FALSE;
1795: IF (p_stack_err_msg = TRUE) THEN
1796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1797: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1798: FND_MSG_PUB.Add;
1799: END IF;
1800: END IF;
1793: ELSE
1794: l_return_value := FALSE;
1795: IF (p_stack_err_msg = TRUE) THEN
1796: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1797: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1798: FND_MSG_PUB.Add;
1799: END IF;
1800: END IF;
1801: ELSE -- Non-WIP Issue transactions
1800: END IF;
1801: ELSE -- Non-WIP Issue transactions
1802: l_return_value := FALSE;
1803: IF (p_stack_err_msg = TRUE) THEN
1804: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1805: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1806: FND_MSG_PUB.Add;
1807: END IF;
1808: END IF;
1801: ELSE -- Non-WIP Issue transactions
1802: l_return_value := FALSE;
1803: IF (p_stack_err_msg = TRUE) THEN
1804: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
1805: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1806: FND_MSG_PUB.Add;
1807: END IF;
1808: END IF;
1809: ELSE -- Qty is driven (+)ve
1826: --
1827: IF SQL%FOUND THEN
1828: l_return_value := FALSE;
1829: IF (p_stack_err_msg = TRUE) THEN
1830: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1831: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1832: FND_MSG_PUB.Add;
1833: END IF;
1834: END IF;
1827: IF SQL%FOUND THEN
1828: l_return_value := FALSE;
1829: IF (p_stack_err_msg = TRUE) THEN
1830: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
1831: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1832: FND_MSG_PUB.Add;
1833: END IF;
1834: END IF;
1835: EXCEPTION
1840: p_flag ='CREATE'
1841: THEN
1842: l_return_value := FALSE;
1843: IF (p_stack_err_msg = TRUE) THEN
1844: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1845: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1846: FND_MSG_PUB.Add;
1847: END IF;
1848: END IF;
1841: THEN
1842: l_return_value := FALSE;
1843: IF (p_stack_err_msg = TRUE) THEN
1844: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ZERO_QTY');
1845: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
1846: FND_MSG_PUB.Add;
1847: END IF;
1848: END IF;
1849: END IF;
1960: AND nvl (end_date_active, sysdate+1) > sysdate;
1961:
1962: EXCEPTION
1963: WHEN OTHERS THEN
1964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
1965: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1966: FND_MSG_PUB.Add;
1967: l_return_value := FALSE;
1968: END;
1961:
1962: EXCEPTION
1963: WHEN OTHERS THEN
1964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NO_PRIMARY_UOM_CODE');
1965: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1966: FND_MSG_PUB.Add;
1967: l_return_value := FALSE;
1968: END;
1969: -- if primary uom code exists, then check whether it is same as the uom code passed
1988: END IF;
1989: END IF;
1990: ELSE
1991: -- raise exception if uom class is invalid
1992: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
1993: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1994: FND_MSG_PUB.Add;
1995: l_return_value := FALSE;
1996: END IF;
1989: END IF;
1990: ELSE
1991: -- raise exception if uom class is invalid
1992: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_UOM_CLASS');
1993: FND_MESSAGE.SET_TOKEN('UNIT_OF_MEASURE',p_uom_code);
1994: FND_MSG_PUB.Add;
1995: l_return_value := FALSE;
1996: END IF;
1997: END IF;
2028: EXCEPTION
2029: WHEN NO_DATA_FOUND THEN
2030: l_return_value := FALSE;
2031: IF ( l_stack_err_msg = TRUE ) THEN
2032: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2033: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2034: FND_MSG_PUB.Add;
2035: END IF;
2036: END;
2029: WHEN NO_DATA_FOUND THEN
2030: l_return_value := FALSE;
2031: IF ( l_stack_err_msg = TRUE ) THEN
2032: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_CONDITION');
2033: FND_MESSAGE.SET_TOKEN('INSTANCE_CONDITION_ID',p_instance_condition_id);
2034: FND_MSG_PUB.Add;
2035: END IF;
2036: END;
2037: END IF;
2060: (p_instance_status_id = FND_API.G_MISS_NUM))THEN
2061: IF (p_creation_complete_flag = 'Y') THEN
2062: l_return_value := FALSE;
2063: IF ( l_stack_err_msg = TRUE ) THEN
2064: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2065: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2066: FND_MSG_PUB.Add;
2067: END IF;
2068: ELSE
2061: IF (p_creation_complete_flag = 'Y') THEN
2062: l_return_value := FALSE;
2063: IF ( l_stack_err_msg = TRUE ) THEN
2064: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2065: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2066: FND_MSG_PUB.Add;
2067: END IF;
2068: ELSE
2069: p_creation_complete_flag := 'N';
2080: EXCEPTION
2081: WHEN NO_DATA_FOUND THEN
2082: l_return_value := FALSE;
2083: IF ( l_stack_err_msg = TRUE ) THEN
2084: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2085: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2081: WHEN NO_DATA_FOUND THEN
2082: l_return_value := FALSE;
2083: IF ( l_stack_err_msg = TRUE ) THEN
2084: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INST_STATUS');
2085: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status_id);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2089: END;
2109: IF ((p_end_date IS NOT NULL) AND (p_end_date = FND_API.G_MISS_DATE)) THEN
2110:
2111: IF p_start_date > p_end_date THEN
2112: l_return_value := FALSE;
2113: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2114: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2115: FND_MSG_PUB.Add;
2116:
2117: ELSIF p_end_date < SYSDATE THEN
2110:
2111: IF p_start_date > p_end_date THEN
2112: l_return_value := FALSE;
2113: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2114: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2115: FND_MSG_PUB.Add;
2116:
2117: ELSIF p_end_date < SYSDATE THEN
2118: l_return_value := FALSE;
2115: FND_MSG_PUB.Add;
2116:
2117: ELSIF p_end_date < SYSDATE THEN
2118: l_return_value := FALSE;
2119: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2120: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2121: FND_MSG_PUB.Add;
2122: ELSE l_return_value := TRUE;
2123: END IF;
2116:
2117: ELSIF p_end_date < SYSDATE THEN
2118: l_return_value := FALSE;
2119: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_START_DATE');
2120: FND_MESSAGE.SET_TOKEN('START_DATE_ACTIVE',p_start_date);
2121: FND_MSG_PUB.Add;
2122: ELSE l_return_value := TRUE;
2123: END IF;
2124:
2149: IF ((p_end_date IS NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
2150:
2151: IF p_start_date > p_end_date THEN
2152: l_return_value := FALSE;
2153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2154: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2155: FND_MSG_PUB.Add;
2156:
2157: ELSIF p_end_date < SYSDATE THEN
2150:
2151: IF p_start_date > p_end_date THEN
2152: l_return_value := FALSE;
2153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2154: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2155: FND_MSG_PUB.Add;
2156:
2157: ELSIF p_end_date < SYSDATE THEN
2158: l_return_value := FALSE;
2155: FND_MSG_PUB.Add;
2156:
2157: ELSIF p_end_date < SYSDATE THEN
2158: l_return_value := FALSE;
2159: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2160: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2161: FND_MSG_PUB.Add;
2162:
2163: ELSE l_return_value := TRUE;
2156:
2157: ELSIF p_end_date < SYSDATE THEN
2158: l_return_value := FALSE;
2159: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
2160: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'dd-mm-yy hh24:mm:ss'));
2161: FND_MSG_PUB.Add;
2162:
2163: ELSE l_return_value := TRUE;
2164: End IF;
2203: l_return_value := TRUE;
2204: EXCEPTION
2205: WHEN NO_DATA_FOUND THEN
2206: IF ( p_stack_err_msg = TRUE ) THEN
2207: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2208: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2209: FND_MSG_PUB.Add;
2210: END IF;
2211: l_return_value := FALSE;
2204: EXCEPTION
2205: WHEN NO_DATA_FOUND THEN
2206: IF ( p_stack_err_msg = TRUE ) THEN
2207: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SYSTEM_ID');
2208: FND_MESSAGE.SET_TOKEN('SYSTEM_ID',p_system_id);
2209: FND_MSG_PUB.Add;
2210: END IF;
2211: l_return_value := FALSE;
2212: END;
2247:
2248: EXCEPTION
2249: WHEN NO_DATA_FOUND THEN
2250: IF ( p_stack_err_msg = TRUE ) THEN
2251: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2252: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2253: FND_MSG_PUB.Add;
2254: END IF;
2255: l_return_value := FALSE;
2248: EXCEPTION
2249: WHEN NO_DATA_FOUND THEN
2250: IF ( p_stack_err_msg = TRUE ) THEN
2251: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_TYPE');
2252: FND_MESSAGE.SET_TOKEN('INSTANCE_TYPE_CODE',p_instance_type_code);
2253: FND_MSG_PUB.Add;
2254: END IF;
2255: l_return_value := FALSE;
2256: END;
2291:
2292: EXCEPTION
2293: WHEN NO_DATA_FOUND THEN
2294: IF ( p_stack_err_msg = TRUE ) THEN
2295: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2296: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2297: FND_MSG_PUB.Add;
2298: END IF;
2299: l_return_value := FALSE;
2292: EXCEPTION
2293: WHEN NO_DATA_FOUND THEN
2294: IF ( p_stack_err_msg = TRUE ) THEN
2295: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_USAGE_CODE');
2296: FND_MESSAGE.SET_TOKEN('INSTANCE_USAGE_CODE',p_inst_usage_code);
2297: FND_MSG_PUB.Add;
2298: END IF;
2299: l_return_value := FALSE;
2300: END;
2333: l_return_value := TRUE;
2334:
2335: EXCEPTION
2336: WHEN NO_DATA_FOUND THEN
2337: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2338: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2339: FND_MSG_PUB.Add;
2340: l_return_value := FALSE;
2341: END;
2334:
2335: EXCEPTION
2336: WHEN NO_DATA_FOUND THEN
2337: FND_MESSAGE.SET_NAME('CSI','CSI_OPERATIONAL_STATUS_CODE');
2338: FND_MESSAGE.SET_TOKEN('OPERATIONAL_STATUS_CODE',p_operational_status);
2339: FND_MSG_PUB.Add;
2340: l_return_value := FALSE;
2341: END;
2342: END IF;
2370: l_return_value := TRUE;
2371:
2372: EXCEPTION
2373: WHEN NO_DATA_FOUND THEN
2374: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2375: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2376: FND_MSG_PUB.Add;
2377: l_return_value := FALSE;
2378: END;
2371:
2372: EXCEPTION
2373: WHEN NO_DATA_FOUND THEN
2374: FND_MESSAGE.SET_NAME('CSI','CSI_INVALID_CURRENCY_CODE');
2375: FND_MESSAGE.SET_TOKEN('CURRENCY_CODE',p_currency_code);
2376: FND_MSG_PUB.Add;
2377: l_return_value := FALSE;
2378: END;
2379: END IF;
2402: IF NVL(l_change_allowed,'Y')='Y'
2403: THEN
2404: l_return_value := TRUE;
2405: ELSE
2406: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2407: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2408: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2409: FND_MSG_PUB.Add;
2410: l_return_value := FALSE;
2403: THEN
2404: l_return_value := TRUE;
2405: ELSE
2406: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2407: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2408: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2409: FND_MSG_PUB.Add;
2410: l_return_value := FALSE;
2411: END IF;
2404: l_return_value := TRUE;
2405: ELSE
2406: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2407: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2408: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2409: FND_MSG_PUB.Add;
2410: l_return_value := FALSE;
2411: END IF;
2412: EXCEPTION
2410: l_return_value := FALSE;
2411: END IF;
2412: EXCEPTION
2413: WHEN NO_DATA_FOUND THEN
2414: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2415: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2417: FND_MSG_PUB.Add;
2418: l_return_value := FALSE;
2411: END IF;
2412: EXCEPTION
2413: WHEN NO_DATA_FOUND THEN
2414: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2415: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2417: FND_MSG_PUB.Add;
2418: l_return_value := FALSE;
2419: END;
2412: EXCEPTION
2413: WHEN NO_DATA_FOUND THEN
2414: FND_MESSAGE.SET_NAME('CSI','CSI_NO_STATUS_CHANGE');
2415: FND_MESSAGE.SET_TOKEN('CURRENT_STATUS',p_current_status);
2416: FND_MESSAGE.SET_TOKEN('INSTANCE_STATUS_ID',p_instance_status);
2417: FND_MSG_PUB.Add;
2418: l_return_value := FALSE;
2419: END;
2420: RETURN l_return_value;
2497: -- AND b.party_source_table = p_party_rec.party_source_table
2498: -- AND b.relationship_type_code = 'OWNER';
2499:
2500: l_return_value := FALSE;
2501: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2502: FND_MSG_PUB.ADD;
2503:
2504: EXCEPTION
2505: WHEN NO_DATA_FOUND THEN
2504: EXCEPTION
2505: WHEN NO_DATA_FOUND THEN
2506: l_return_value := TRUE;
2507: WHEN TOO_MANY_ROWS THEN
2508: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2509: FND_MSG_PUB.ADD;
2510: l_return_value := FALSE;
2511: WHEN OTHERS THEN
2512: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2508: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_NOT_UNIQUE');
2509: FND_MSG_PUB.ADD;
2510: l_return_value := FALSE;
2511: WHEN OTHERS THEN
2512: FND_MESSAGE.SET_NAME('CSI','CSI_API_OWNER_OTHERS_EXCEPTION');
2513: FND_MSG_PUB.ADD;
2514: l_return_value := FALSE;
2515: END;
2516: END IF; -- end if for inventory check
2556: l_return_value:= TRUE;
2557: EXCEPTION
2558: WHEN NO_DATA_FOUND THEN
2559: IF ( p_stack_err_msg = TRUE ) THEN
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2561: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2562: FND_MSG_PUB.Add;
2563: END IF;
2564: l_return_value := FALSE;
2557: EXCEPTION
2558: WHEN NO_DATA_FOUND THEN
2559: IF ( p_stack_err_msg = TRUE ) THEN
2560: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
2561: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_loc_source_table);
2562: FND_MSG_PUB.Add;
2563: END IF;
2564: l_return_value := FALSE;
2565: END;
3274: FROM dual;
3275: RETURN l_csi_item_instance_h_id;
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3279: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3280: FND_MSG_PUB.Add;
3281:
3282: END get_csi_item_instance_h_id;
3275: RETURN l_csi_item_instance_h_id;
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_INST_H_ID');
3279: FND_MESSAGE.SET_TOKEN('INSTANCE_HISTORY_ID',l_csi_item_instance_h_id);
3280: FND_MSG_PUB.Add;
3281:
3282: END get_csi_item_instance_h_id;
3283:
3404: IF ((p_serial_number IS NULL) OR
3405: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
3406: l_return_value := FALSE;
3407: IF (p_stack_err_msg = TRUE) THEN
3408: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3409: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3410: FND_MSG_PUB.Add;
3411: END IF;
3412: ELSE
3405: (p_serial_number = FND_API.G_MISS_CHAR)) THEN
3406: l_return_value := FALSE;
3407: IF (p_stack_err_msg = TRUE) THEN
3408: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_SERIAL_NUM');
3409: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3410: FND_MSG_PUB.Add;
3411: END IF;
3412: ELSE
3413: l_return_value := TRUE;
3448: END IF;
3449: IF l_found IS NULL
3450: THEN
3451: l_return_value := FALSE;
3452: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3453: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3454: FND_MSG_PUB.Add;
3455: END IF;
3456: ELSE
3449: IF l_found IS NULL
3450: THEN
3451: l_return_value := FALSE;
3452: FND_MESSAGE.SET_NAME('CSI','CSI_API_NOT_SER_CONTROLLED');
3453: FND_MESSAGE.SET_TOKEN('SERIAL_NUMBER',p_serial_number);
3454: FND_MSG_PUB.Add;
3455: END IF;
3456: ELSE
3457: l_return_value := TRUE;
3459: END IF;
3460: END IF;
3461: ELSE
3462: l_return_value := FALSE;
3463: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3464: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3465: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3466: FND_MSG_PUB.Add;
3467: END IF;
3460: END IF;
3461: ELSE
3462: l_return_value := FALSE;
3463: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3464: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3465: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3466: FND_MSG_PUB.Add;
3467: END IF;
3468: --
3461: ELSE
3462: l_return_value := FALSE;
3463: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM'); -- Item does not exist in the inventory organization provided
3464: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inv_item_id);
3465: FND_MESSAGE.SET_TOKEN('INVENTORY_ORGANIZATION_ID',p_inv_org_id);
3466: FND_MSG_PUB.Add;
3467: END IF;
3468: --
3469: IF l_return_value = TRUE
3475: ,p_instance_id => p_instance_id
3476: ,l_return_value => l_return_value
3477: );
3478: IF l_return_value = FALSE THEN
3479: fnd_message.set_name('CSI','CSI_FAIL_UNIQUENESS');
3480: fnd_msg_pub.add;
3481: END IF;
3482: END IF;
3483: END Validate_srl_num_for_Inst_Upd;
3516: THEN
3517: IF p_quantity <> 1 THEN
3518: l_return_value := FALSE;
3519: IF (p_stack_err_msg = TRUE) THEN
3520: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3521: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3522: FND_MSG_PUB.Add;
3523: END IF;
3524: END IF;
3517: IF p_quantity <> 1 THEN
3518: l_return_value := FALSE;
3519: IF (p_stack_err_msg = TRUE) THEN
3520: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');
3521: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3522: FND_MSG_PUB.Add;
3523: END IF;
3524: END IF;
3525: ELSE
3531: l_return_value := TRUE;
3532: ELSE
3533: l_return_value := FALSE;
3534: IF (p_stack_err_msg = TRUE) THEN
3535: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3536: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3537: FND_MSG_PUB.Add;
3538: END IF;
3539: END IF;
3532: ELSE
3533: l_return_value := FALSE;
3534: IF (p_stack_err_msg = TRUE) THEN
3535: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_NEGATIVE_QTY');
3536: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3537: FND_MSG_PUB.Add;
3538: END IF;
3539: END IF;
3540: END IF;
3547: WHERE object_id = p_instance_id;
3548: IF SQL%FOUND THEN
3549: l_return_value := FALSE;
3550: IF (p_stack_err_msg = TRUE) THEN
3551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3552: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3553: FND_MSG_PUB.Add;
3554: END IF;
3555: END IF;
3548: IF SQL%FOUND THEN
3549: l_return_value := FALSE;
3550: IF (p_stack_err_msg = TRUE) THEN
3551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_REL_QTY');
3552: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3553: FND_MSG_PUB.Add;
3554: END IF;
3555: END IF;
3556: EXCEPTION
3558: l_return_value := TRUE;
3559: WHEN TOO_MANY_ROWS THEN
3560: l_return_value := FALSE;
3561: IF (p_stack_err_msg = TRUE) THEN
3562: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3563: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3564: FND_MSG_PUB.Add;
3565: END IF;
3566: END;
3559: WHEN TOO_MANY_ROWS THEN
3560: l_return_value := FALSE;
3561: IF (p_stack_err_msg = TRUE) THEN
3562: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_QUANTITY');--check with faisal
3563: FND_MESSAGE.SET_TOKEN('QUANTITY',p_quantity);
3564: FND_MSG_PUB.Add;
3565: END IF;
3566: END;
3567: END IF;
3668: EXCEPTION
3669: WHEN NO_DATA_FOUND THEN
3670: l_return_value := FALSE;
3671: IF ( p_stack_err_msg = TRUE ) THEN
3672: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3673: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3674: FND_MSG_PUB.Add;
3675: END IF;
3676: END;
3669: WHEN NO_DATA_FOUND THEN
3670: l_return_value := FALSE;
3671: IF ( p_stack_err_msg = TRUE ) THEN
3672: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE_ID');
3673: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
3674: FND_MSG_PUB.Add;
3675: END IF;
3676: END;
3677: RETURN l_return_value;
3708: OPEN c1;
3709: FETCH c1 INTO l_instance_end_date ,l_instance_start_date;
3710: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3711: l_return_value := FALSE;
3712: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3713: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3714: FND_MSG_PUB.Add;
3715: RETURN l_return_value;
3716: 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'));
3709: FETCH c1 INTO l_instance_end_date ,l_instance_start_date;
3710: IF trunc(p_end_date) < trunc(l_instance_start_date) THEN
3711: l_return_value := FALSE;
3712: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_END_DATE');
3713: FND_MESSAGE.SET_TOKEN('END_DATE_ACTIVE',to_char(p_end_date,'DD-MON-YYYY HH24:MI:SS'));
3714: FND_MSG_PUB.Add;
3715: RETURN l_return_value;
3716: 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'));
3717: csi_gen_utility_pvt.put_line('value of sysdate:'||to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
3736: 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'));
3737: 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'));
3738: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3739: l_return_value := FALSE;
3740: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3741: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3742: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3743: FND_MSG_PUB.ADD;
3744: RETURN l_return_value;
3737: 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'));
3738: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3739: l_return_value := FALSE;
3740: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3741: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3742: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3743: FND_MSG_PUB.ADD;
3744: RETURN l_return_value;
3745: END IF;
3738: csi_gen_utility_pvt.put_line('value of instance_id in ITEM_VLD_PVT, if there are any txns:'||p_instance_id);
3739: l_return_value := FALSE;
3740: FND_MESSAGE.Set_Name('CSI', 'CSI_PARENT_HAS_TXN');
3741: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id );
3742: FND_MESSAGE.SET_TOKEN('TXN_DATE',to_char(l_txn_date, 'DD-MON-YYYY HH24:MI:SS'));
3743: FND_MSG_PUB.ADD;
3744: RETURN l_return_value;
3745: END IF;
3746: END IF;
3902:
3903: EXCEPTION
3904: WHEN NO_DATA_FOUND THEN
3905: IF ( p_stack_err_msg = TRUE ) THEN
3906: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3907: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3908: FND_MSG_PUB.Add;
3909: END IF;
3910: RETURN FALSE;
3903: EXCEPTION
3904: WHEN NO_DATA_FOUND THEN
3905: IF ( p_stack_err_msg = TRUE ) THEN
3906: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INSTANCE');
3907: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_item_instance_id);
3908: FND_MSG_PUB.Add;
3909: END IF;
3910: RETURN FALSE;
3911:
3931: RETURN TRUE;
3932: EXCEPTION
3933: WHEN NO_DATA_FOUND THEN
3934: IF ( p_stack_err_msg = TRUE ) THEN
3935: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
3936: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
3937: FND_MSG_PUB.Add;
3938: END IF;
3939: RETURN FALSE;
3932: EXCEPTION
3933: WHEN NO_DATA_FOUND THEN
3934: IF ( p_stack_err_msg = TRUE ) THEN
3935: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ATTRIBUTE_ID');
3936: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_ID',p_ATTRIBUTE_ID);
3937: FND_MSG_PUB.Add;
3938: END IF;
3939: RETURN FALSE;
3940:
3960: OR (p_INVENTORY_ITEM_ID = FND_API.G_MISS_NUM)
3961: OR (p_INVENTORY_ITEM_ID IS NULL))
3962: THEN
3963: IF ( p_stack_err_msg = TRUE ) THEN
3964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
3965: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3966: FND_MSG_PUB.Add;
3967: END IF;
3968: RETURN FALSE;
3961: OR (p_INVENTORY_ITEM_ID IS NULL))
3962: THEN
3963: IF ( p_stack_err_msg = TRUE ) THEN
3964: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
3965: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3966: FND_MSG_PUB.Add;
3967: END IF;
3968: RETURN FALSE;
3969: END IF;
3977: RETURN TRUE;
3978: EXCEPTION
3979: WHEN NO_DATA_FOUND THEN
3980: IF ( p_stack_err_msg = TRUE ) THEN
3981: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
3982: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3983: FND_MSG_PUB.Add;
3984: END IF;
3985: RETURN FALSE;
3978: EXCEPTION
3979: WHEN NO_DATA_FOUND THEN
3980: IF ( p_stack_err_msg = TRUE ) THEN
3981: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_ITEM_ORG');
3982: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
3983: FND_MSG_PUB.Add;
3984: END IF;
3985: RETURN FALSE;
3986:
4005: OR (p_INVENTORY_ITEM_ID = FND_API.G_MISS_NUM)
4006: OR (p_INVENTORY_ITEM_ID IS NULL))
4007: THEN
4008: IF ( p_stack_err_msg = TRUE ) THEN
4009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4010: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4011: FND_MSG_PUB.Add;
4012: END IF;
4013: RETURN FALSE;
4006: OR (p_INVENTORY_ITEM_ID IS NULL))
4007: THEN
4008: IF ( p_stack_err_msg = TRUE ) THEN
4009: FND_MESSAGE.SET_NAME('CSI','CSI_API_NULL_ITEM_ORG');
4010: FND_MESSAGE.SET_TOKEN('ITEM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4011: FND_MSG_PUB.Add;
4012: END IF;
4013: RETURN FALSE;
4014: END IF;
4023: RETURN TRUE;
4024: EXCEPTION
4025: WHEN NO_DATA_FOUND THEN
4026: IF ( p_stack_err_msg = TRUE ) THEN
4027: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4028: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4029: FND_MSG_PUB.Add;
4030: END IF;
4031: RETURN FALSE;
4024: EXCEPTION
4025: WHEN NO_DATA_FOUND THEN
4026: IF ( p_stack_err_msg = TRUE ) THEN
4027: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_BOM_ORG');
4028: FND_MESSAGE.SET_TOKEN('BOM_ORG_ID',p_INVENTORY_ITEM_ID||' ' ||p_ORGANIZATION_ID);
4029: FND_MSG_PUB.Add;
4030: END IF;
4031: RETURN FALSE;
4032:
4085: and ((active_end_date is null) or (active_end_date > sysdate))
4086: and relationship_type_code = 'COMPONENT-OF'
4087: and rownum < 2;
4088: IF ( p_stack_err_msg = TRUE ) THEN
4089: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4090: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4091: FND_MSG_PUB.Add;
4092: END IF;
4093: RETURN TRUE;
4086: and relationship_type_code = 'COMPONENT-OF'
4087: and rownum < 2;
4088: IF ( p_stack_err_msg = TRUE ) THEN
4089: FND_MESSAGE.SET_NAME('CSI','CSI_CONFIG_EXPLODED');
4090: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_instance_id);
4091: FND_MSG_PUB.Add;
4092: END IF;
4093: RETURN TRUE;
4094:
4124: BEGIN
4125: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
4126: IF p_start_date > p_end_date THEN
4127: l_return_value := FALSE;
4128: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4129: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4130: FND_MSG_PUB.Add;
4131: RETURN l_return_value;
4132: END IF;
4125: IF ((p_end_date is NOT NULL) AND (p_end_date <> FND_API.G_MISS_DATE))THEN
4126: IF p_start_date > p_end_date THEN
4127: l_return_value := FALSE;
4128: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4129: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4130: FND_MSG_PUB.Add;
4131: RETURN l_return_value;
4132: END IF;
4133: END IF;
4136: FETCH c1 INTO l_instance_start_date,l_instance_end_date;
4137: IF c1%NOTFOUND THEN
4138: l_return_value := FALSE;
4139: IF ( p_stack_err_msg = TRUE ) THEN
4140: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4141: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4142: FND_MSG_PUB.Add;
4143: END IF;
4144: CLOSE c1;
4137: IF c1%NOTFOUND THEN
4138: l_return_value := FALSE;
4139: IF ( p_stack_err_msg = TRUE ) THEN
4140: FND_MESSAGE.SET_NAME('CSI','CSI_API_INST_START_DATE');
4141: FND_MESSAGE.SET_NAME('ENTITY','VERSION LABEL');
4142: FND_MSG_PUB.Add;
4143: END IF;
4144: CLOSE c1;
4145: RETURN l_return_value;
4149: OR ((l_instance_end_date IS NOT NULL) AND (p_start_date > l_instance_end_date))
4150: OR (p_start_date > SYSDATE)) THEN
4151: l_return_value := FALSE;
4152: IF ( p_stack_err_msg = TRUE ) THEN
4153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4154: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4155: FND_MSG_PUB.Add;
4156: END IF;
4157: END IF;
4150: OR (p_start_date > SYSDATE)) THEN
4151: l_return_value := FALSE;
4152: IF ( p_stack_err_msg = TRUE ) THEN
4153: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_START_DATE');
4154: FND_MESSAGE.SET_TOKEN('ACTIVE_START_DATE',p_start_date);
4155: FND_MSG_PUB.Add;
4156: END IF;
4157: END IF;
4158: RETURN l_return_value;
4186: BEGIN
4187: IF p_end_date is NOT NULL THEN
4188: IF p_end_date < sysdate THEN
4189: l_return_value := FALSE;
4190: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4191: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4192: FND_MSG_PUB.Add;
4193: RETURN l_return_value;
4194: END IF;
4187: IF p_end_date is NOT NULL THEN
4188: IF p_end_date < sysdate THEN
4189: l_return_value := FALSE;
4190: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4191: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4192: FND_MSG_PUB.Add;
4193: RETURN l_return_value;
4194: END IF;
4195: END IF;
4201: IF ((p_end_date > l_instance_end_date) OR
4202: (p_end_date < l_instance_start_date))THEN
4203: l_return_value := FALSE;
4204: IF ( p_stack_err_msg = TRUE ) THEN
4205: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4206: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4207: FND_MSG_PUB.Add;
4208: END IF;
4209: END IF;
4202: (p_end_date < l_instance_start_date))THEN
4203: l_return_value := FALSE;
4204: IF ( p_stack_err_msg = TRUE ) THEN
4205: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVAL_VER_END_DATE');
4206: FND_MESSAGE.SET_TOKEN('ACTIVE_END_DATE',p_end_date);
4207: FND_MSG_PUB.Add;
4208: END IF;
4209: END IF;
4210: END IF;
4229: csi_gen_utility_pvt.populate_install_param_rec;
4230: END IF;
4231: --
4232: IF csi_datastructures_pub.g_install_param_rec.fetch_flag = 'N' THEN
4233: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
4234: FND_MSG_PUB.ADD;
4235: l_return_value := FALSE;
4236: RETURN l_return_value;
4237: END IF;
4246: -- Added the following code for R12
4247: IF ((p_location_source_table IS NULL) OR (p_location_source_table = FND_API.G_MISS_CHAR) OR
4248: (p_location_id IS NULL) OR (p_location_id = FND_API.G_MISS_NUM) )
4249: THEN
4250: FND_MESSAGE.SET_NAME('CSI','CSI_API_LOCATION_NOT_VALID');
4251: FND_MSG_PUB.ADD;
4252: l_return_value := FALSE;
4253: RETURN l_return_value;
4254: END IF;
4264:
4265: EXCEPTION
4266: WHEN NO_DATA_FOUND THEN
4267: l_return_value := FALSE;
4268: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4269: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4270: FND_MSG_PUB.Add;
4271: RETURN l_return_value;
4272: END;
4265: EXCEPTION
4266: WHEN NO_DATA_FOUND THEN
4267: l_return_value := FALSE;
4268: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4269: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4270: FND_MSG_PUB.Add;
4271: RETURN l_return_value;
4272: END;
4273: -- End addition of code for R12
4280: WHERE party_site_id = p_location_id;
4281: l_return_value := TRUE;
4282: EXCEPTION
4283: WHEN NO_DATA_FOUND THEN
4284: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_LOC_ID');
4285: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4286: FND_MSG_PUB.Add;
4287: l_return_value := FALSE;
4288: RETURN l_return_value;
4281: l_return_value := TRUE;
4282: EXCEPTION
4283: WHEN NO_DATA_FOUND THEN
4284: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PARTY_LOC_ID');
4285: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4286: FND_MSG_PUB.Add;
4287: l_return_value := FALSE;
4288: RETURN l_return_value;
4289: END;
4295: WHERE location_id = p_location_id;
4296: l_return_value :=TRUE;
4297: EXCEPTION
4298: WHEN NO_DATA_FOUND THEN
4299: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_LOC_ID');
4300: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4301: FND_MSG_PUB.Add;
4302: l_return_value :=FALSE;
4303: RETURN l_return_value;
4296: l_return_value :=TRUE;
4297: EXCEPTION
4298: WHEN NO_DATA_FOUND THEN
4299: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_HZ_LOC_ID');
4300: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4301: FND_MSG_PUB.Add;
4302: l_return_value :=FALSE;
4303: RETURN l_return_value;
4304: END;
4310: WHERE vendor_site_id = p_location_id;
4311: l_return_value := TRUE;
4312: EXCEPTION
4313: WHEN NO_DATA_FOUND THEN
4314: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4315: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4316: FND_MSG_PUB.Add;
4317: l_return_value := FALSE;
4318: RETURN l_return_value;
4311: l_return_value := TRUE;
4312: EXCEPTION
4313: WHEN NO_DATA_FOUND THEN
4314: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_VEND_LOC_ID');
4315: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4316: FND_MSG_PUB.Add;
4317: l_return_value := FALSE;
4318: RETURN l_return_value;
4319: END;
4326: l_return_value := TRUE;
4327: EXCEPTION
4328: WHEN NO_DATA_FOUND THEN
4329: l_return_value := FALSE;
4330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4331: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4332: FND_MSG_PUB.Add;
4333: RETURN l_return_value;
4334: END;
4327: EXCEPTION
4328: WHEN NO_DATA_FOUND THEN
4329: l_return_value := FALSE;
4330: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOCATION');
4331: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4332: FND_MSG_PUB.Add;
4333: RETURN l_return_value;
4334: END;
4335: ELSIF (p_location_source_table = 'PROJECT') THEN
4350: WHERE location_id = p_location_id;
4351: l_return_value :=TRUE;
4352: EXCEPTION
4353: WHEN NO_DATA_FOUND THEN
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4356: FND_MSG_PUB.Add;
4357: l_return_value := FALSE;
4358: RETURN l_return_value;
4351: l_return_value :=TRUE;
4352: EXCEPTION
4353: WHEN NO_DATA_FOUND THEN
4354: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_LOC_ID');
4355: FND_MESSAGE.SET_TOKEN('LOCATION_ID',p_location_id);
4356: FND_MSG_PUB.Add;
4357: l_return_value := FALSE;
4358: RETURN l_return_value;
4359: END;
4366: WHERE location_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_INT_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_INT_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_INT_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_INT_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;
4389: RETURN l_return_value;
4390: END;
4391: ELSE
4392: l_return_value := FALSE;
4393: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4394: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4395: FND_MSG_PUB.Add;
4396: END IF;
4397: RETURN l_return_value;
4390: END;
4391: ELSE
4392: l_return_value := FALSE;
4393: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_SOURCE');
4394: FND_MESSAGE.SET_TOKEN('LOCATION_SOURCE_TABLE',p_location_source_table);
4395: FND_MSG_PUB.Add;
4396: END IF;
4397: RETURN l_return_value;
4398: END Is_Valid_Location_ID;
4431: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4432: l_return_value:= TRUE;
4433: ELSE
4434: l_return_value:= FALSE;
4435: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4436: FND_MSG_PUB.Add;
4437: RETURN l_return_value;
4438: END IF;
4439: END IF;
4450: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4451: l_return_value:= TRUE;
4452: ELSE
4453: l_return_value:= FALSE;
4454: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4455: FND_MSG_PUB.Add;
4456: RETURN l_return_value;
4457: END IF;
4458: -----------
4468: AND task_id = p_task_id;
4469: EXCEPTION
4470: WHEN NO_DATA_FOUND THEN
4471: l_return_value:= FALSE;
4472: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4473: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4474: FND_MSG_PUB.Add;
4475: RETURN l_return_value;
4476: END;
4469: EXCEPTION
4470: WHEN NO_DATA_FOUND THEN
4471: l_return_value:= FALSE;
4472: FND_MESSAGE.SET_NAME('CSI','CSI_API_INV_PROJ_LOC_ID');
4473: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4474: FND_MSG_PUB.Add;
4475: RETURN l_return_value;
4476: END;
4477: ELSE
4475: RETURN l_return_value;
4476: END;
4477: ELSE
4478: l_return_value:= FALSE;
4479: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4480: FND_MSG_PUB.Add;
4481: RETURN l_return_value;
4482: END IF; -- usage code = 'INSTALLED'
4483: END IF; -- Project id , task id provided
4496: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4497: l_return_value:= TRUE;
4498: ELSE
4499: l_return_value:= FALSE;
4500: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4501: FND_MSG_PUB.Add;
4502: RETURN l_return_value;
4503: END IF;
4504: END IF;
4519: l_return_value := TRUE;
4520:
4521: EXCEPTION
4522: WHEN NO_DATA_FOUND THEN
4523: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4524: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4525: FND_MSG_PUB.Add;
4526: l_return_value := FALSE;
4527: RETURN l_return_value;
4520:
4521: EXCEPTION
4522: WHEN NO_DATA_FOUND THEN
4523: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4524: FND_MESSAGE.SET_TOKEN('SUBINVENTORY',p_subinventory);
4525: FND_MSG_PUB.Add;
4526: l_return_value := FALSE;
4527: RETURN l_return_value;
4528: END;
4538: --
4539: l_return_value := TRUE;
4540: EXCEPTION
4541: WHEN NO_DATA_FOUND THEN
4542: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4543: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4544: FND_MSG_PUB.Add;
4545: l_return_value := FALSE;
4546: RETURN l_return_value;
4539: l_return_value := TRUE;
4540: EXCEPTION
4541: WHEN NO_DATA_FOUND THEN
4542: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INV_LOC_ID');
4543: FND_MESSAGE.SET_TOKEN('LOCATOR_ID',p_locator_id);
4544: FND_MSG_PUB.Add;
4545: l_return_value := FALSE;
4546: RETURN l_return_value;
4547: END;
4547: END;
4548: END IF;
4549: ELSE
4550: l_return_value := FALSE;
4551: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INVENTORY_LOC');
4552: FND_MSG_PUB.Add;
4553: RETURN l_return_value;
4554: END IF;
4555: END IF;
4562: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4563: l_return_value:= TRUE;
4564: ELSE
4565: l_return_value:= FALSE;
4566: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4567: FND_MSG_PUB.Add;
4568: RETURN l_return_value;
4569: END IF;
4570: END IF; -- INVENTORY
4581: ((p_wip_job_id IS NULL) OR (p_wip_job_id = FND_API.G_MISS_NUM)) THEN
4582: l_return_value:= TRUE;
4583: ELSE
4584: l_return_value:= FALSE;
4585: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4586: FND_MSG_PUB.Add;
4587: RETURN l_return_value;
4588: END IF;
4589: END IF;
4604: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4605: l_return_value:= TRUE;
4606: ELSE
4607: l_return_value:= FALSE;
4608: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4609: FND_MSG_PUB.Add;
4610: RETURN l_return_value;
4611: END IF;
4612:
4612:
4613: EXCEPTION
4614: WHEN NO_DATA_FOUND THEN
4615: l_return_value:= FALSE;
4616: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4617: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4618: FND_MSG_PUB.Add;
4619: RETURN l_return_value;
4620: END;
4613: EXCEPTION
4614: WHEN NO_DATA_FOUND THEN
4615: l_return_value:= FALSE;
4616: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_WIP_JOB_ID');
4617: FND_MESSAGE.SET_TOKEN('WIP_JOB_ID',p_wip_job_id);
4618: FND_MSG_PUB.Add;
4619: RETURN l_return_value;
4620: END;
4621: --
4636: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4637: l_return_value:= TRUE;
4638: ELSE
4639: l_return_value:= FALSE;
4640: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4641: FND_MSG_PUB.Add;
4642: RETURN l_return_value;
4643: END IF;
4644:
4644:
4645: EXCEPTION
4646: WHEN NO_DATA_FOUND THEN
4647: l_return_value:= FALSE;
4648: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4649: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4650: FND_MSG_PUB.Add;
4651: RETURN l_return_value;
4652: END;
4645: EXCEPTION
4646: WHEN NO_DATA_FOUND THEN
4647: l_return_value:= FALSE;
4648: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PROJ_LOC_ID');
4649: FND_MESSAGE.SET_TOKEN('PROJECT_ID',p_project_id||'-'||p_task_id);
4650: FND_MSG_PUB.Add;
4651: RETURN l_return_value;
4652: END;
4653:
4667: ((p_locator_id IS NULL) OR (p_locator_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:
4675:
4676: EXCEPTION
4677: WHEN NO_DATA_FOUND THEN
4678: l_return_value:= FALSE;
4679: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4680: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4681: FND_MSG_PUB.Add;
4682: RETURN l_return_value;
4683: END;
4676: EXCEPTION
4677: WHEN NO_DATA_FOUND THEN
4678: l_return_value:= FALSE;
4679: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_INT_ORDER_ID');
4680: FND_MESSAGE.SET_TOKEN('IN_TRANSIT_ID',p_sales_ord_line_id);
4681: FND_MSG_PUB.Add;
4682: RETURN l_return_value;
4683: END;
4684: --
4698: ((p_locator_id IS NULL) OR (p_locator_id = FND_API.G_MISS_NUM)) THEN
4699: l_return_value:= TRUE;
4700: ELSE
4701: l_return_value:= FALSE;
4702: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_LOC_PARAMS');
4703: FND_MSG_PUB.Add;
4704: FND_MSG_PUB.Add;
4705: RETURN l_return_value;
4706: END IF;
4706: END IF;
4707: EXCEPTION
4708: WHEN NO_DATA_FOUND THEN
4709: l_return_value:= FALSE;
4710: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4711: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4712: FND_MSG_PUB.Add;
4713: RETURN l_return_value;
4714: END;
4707: EXCEPTION
4708: WHEN NO_DATA_FOUND THEN
4709: l_return_value:= FALSE;
4710: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_PO_LOC_ID');
4711: FND_MESSAGE.SET_TOKEN('PO_LINE_ID',p_po_line_id);
4712: FND_MSG_PUB.Add;
4713: RETURN l_return_value;
4714: END;
4715: END IF;
5022: l_txn_seq_start_date := nvl(csi_datastructures_pub.g_install_param_rec.txn_seq_start_date,
5023: csi_datastructures_pub.g_install_param_rec.freeze_date);
5024:
5025: IF l_txn_seq_start_date IS NULL THEN
5026: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5027: FND_MSG_PUB.ADD;
5028: raise fnd_api.g_exc_error;
5029: END IF;
5030:
5109: THEN
5110: IF p_mode = 'CREATE' THEN
5111: IF l_pending_txn_tbl.count > 0 THEN
5112: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5113: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5114: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5115: fnd_msg_pub.add;
5116: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5117: raise fnd_api.g_exc_error;
5110: IF p_mode = 'CREATE' THEN
5111: IF l_pending_txn_tbl.count > 0 THEN
5112: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transaction_id) THEN
5113: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5114: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5115: fnd_msg_pub.add;
5116: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5117: raise fnd_api.g_exc_error;
5118: END IF;
5117: raise fnd_api.g_exc_error;
5118: END IF;
5119: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5120: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5121: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5122: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5123: fnd_msg_pub.add;
5124: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5125: RAISE fnd_api.g_exc_error;
5118: END IF;
5119: IF l_mtl_txn_tbl(l_ind).transfer_transaction_id is not null THEN
5120: IF l_pending_txn_tbl.exists(l_mtl_txn_tbl(l_ind).transfer_transaction_id) THEN
5121: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5122: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transfer_transaction_id);
5123: fnd_msg_pub.add;
5124: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transfer_transaction_id;
5125: RAISE fnd_api.g_exc_error;
5126: END IF;
5158:
5159: IF (l_err_mtl_txn_date <> FND_API.G_MISS_DATE
5160: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5161: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5162: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5163: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5164: fnd_msg_pub.add;
5165: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5166: RAISE fnd_api.g_exc_error;
5159: IF (l_err_mtl_txn_date <> FND_API.G_MISS_DATE
5160: AND l_err_mtl_txn_date <= l_cur_mtl_txn_date)
5161: OR (l_err_mtl_txn_date = FND_API.G_MISS_DATE) THEN
5162: fnd_message.set_name('CSI','CSI_ERROR_PRIOR_TXN');
5163: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5164: fnd_msg_pub.add;
5165: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5166: RAISE fnd_api.g_exc_error;
5167: END IF;
5177: WHERE inv_material_transaction_id in (l_mtl_txn_tbl(l_ind).transaction_id, l_xfer_mtl_txn_id)
5178: AND rownum = 1;
5179: EXCEPTION
5180: WHEN no_data_found THEN
5181: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5182: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5183: fnd_msg_pub.add;
5184: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5185: RAISE fnd_api.g_exc_error;
5178: AND rownum = 1;
5179: EXCEPTION
5180: WHEN no_data_found THEN
5181: fnd_message.set_name('CSI','CSI_PENDING_PRIOR_TXN');
5182: fnd_message.set_token('MAT_TXN_ID',l_mtl_txn_tbl(l_ind).transaction_id);
5183: fnd_msg_pub.add;
5184: p_prior_txn_id := l_mtl_txn_tbl(l_ind).transaction_id;
5185: RAISE fnd_api.g_exc_error;
5186: END;
5222: Exception
5223: when no_data_found then
5224: null;
5225: End;
5226: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5227: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5228: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5229: FND_MSG_PUB.Add;
5230: RAISE fnd_api.g_exc_error;
5223: when no_data_found then
5224: null;
5225: End;
5226: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5227: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5228: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5229: FND_MSG_PUB.Add;
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5224: null;
5225: End;
5226: FND_MESSAGE.SET_NAME('CSI','CSI_ERROR_INST_DETAILS');
5227: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',l_order_number);
5228: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
5229: FND_MSG_PUB.Add;
5230: RAISE fnd_api.g_exc_error;
5231: END IF;
5232: END IF; -- Item-srl# not null check
5558:
5559:
5560: IF l_validation_status <> 0 THEN
5561: l_return_status := FND_API.G_RET_STS_ERROR;
5562: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5563: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5564: FND_MSG_PUB.ADD;
5565: END IF;
5566:
5559:
5560: IF l_validation_status <> 0 THEN
5561: l_return_status := FND_API.G_RET_STS_ERROR;
5562: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5563: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, validation_status is: '||l_validation_status);
5564: FND_MSG_PUB.ADD;
5565: END IF;
5566:
5567: IF (l_html_pieces.COUNT <= 0) THEN
5565: END IF;
5566:
5567: IF (l_html_pieces.COUNT <= 0) THEN
5568: l_return_status := FND_API.G_RET_STS_ERROR;
5569: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5570: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5571: FND_MSG_PUB.ADD;
5572: END IF;
5573:
5566:
5567: IF (l_html_pieces.COUNT <= 0) THEN
5568: l_return_status := FND_API.G_RET_STS_ERROR;
5569: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5570: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, html_pieces count is <= 0' );
5571: FND_MSG_PUB.ADD;
5572: END IF;
5573:
5574:
5796: IF nvl(l_valid_config, 'false') = 'false'
5797: OR l_exit = 'error'
5798: THEN
5799: l_return_status:=FND_API.G_RET_STS_ERROR;
5800: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5801: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
5802: FND_MSG_PUB.ADD;
5803: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
5804: END IF;
5797: OR l_exit = 'error'
5798: THEN
5799: l_return_status:=FND_API.G_RET_STS_ERROR;
5800: FND_MESSAGE.Set_Name('CSI', 'CSI_BATCH_VALIDATE');
5801: FND_MESSAGE.Set_token('ERR_TEXT' , 'Error returned from cz_network_api_pub.Validate, from Parse_output_xml ' );
5802: FND_MSG_PUB.ADD;
5803: csi_gen_utility_pvt.put_line('Configuration is invalid/incomplete');
5804: END IF;
5805: */
5885: BEGIN
5886:
5887: FOR tld_rec IN tld_cur
5888: LOOP
5889: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
5890: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
5891: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
5892: fnd_msg_pub.add;
5893: RAISE fnd_api.g_exc_error;
5886:
5887: FOR tld_rec IN tld_cur
5888: LOOP
5889: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
5890: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
5891: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
5892: fnd_msg_pub.add;
5893: RAISE fnd_api.g_exc_error;
5894: END LOOP;
5887: FOR tld_rec IN tld_cur
5888: LOOP
5889: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_TLD');
5890: fnd_message.set_token('SRC_TBL', tld_rec.source_transaction_table);
5891: fnd_message.set_token('SRC_ID', tld_rec.source_transaction_id);
5892: fnd_msg_pub.add;
5893: RAISE fnd_api.g_exc_error;
5894: END LOOP;
5895:
5894: END LOOP;
5895:
5896: FOR oi_rec IN oi_cur
5897: LOOP
5898: fnd_message.set_name('CSI','CSI_SRL_PENDING_IN_OI');
5899: fnd_msg_pub.add;
5900: RAISE fnd_api.g_exc_error;
5901: END LOOP;
5902:
5967: --
5968: IF p_instance_rec.location_type_code IN
5969: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
5970: THEN
5971: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
5972: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
5973: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
5974: fnd_msg_pub.add;
5975: RAISE fnd_api.g_exc_error;
5968: IF p_instance_rec.location_type_code IN
5969: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
5970: THEN
5971: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
5972: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
5973: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
5974: fnd_msg_pub.add;
5975: RAISE fnd_api.g_exc_error;
5976: END IF;
5969: ('INVENTORY', 'IN_TRANSIT', 'PROJECT', 'PO') --Removed INTERNAL_SITE for bug 5168249
5970: THEN
5971: fnd_message.set_name('CSI', 'CSI_SRL_IN_INT_CANNOT_UPD');
5972: fnd_message.set_token('INST_NUM', p_instance_rec.instance_number);
5973: fnd_message.set_token('LOC_TYPE_CODE', p_instance_rec.location_type_code);
5974: fnd_msg_pub.add;
5975: RAISE fnd_api.g_exc_error;
5976: END IF;
5977: END IF;
5983: IF p_txn_rec.transaction_type_id <> 205 THEN --Added condition and uncommented the code for bug 6965008
5984: -- check for existence in mut and error
5985: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
5986: LOOP
5987: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
5988: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
5989: fnd_msg_pub.add;
5990: RAISE fnd_api.g_exc_error;
5991: END LOOP;
5984: -- check for existence in mut and error
5985: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,p_old_serial_number,-9999)
5986: LOOP
5987: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_TXN_CANNOT_UPD');
5988: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
5989: fnd_msg_pub.add;
5990: RAISE fnd_api.g_exc_error;
5991: END LOOP;
5992:
6013: and wdj.maintenance_object_source = 1
6014: and ROWNUM = 1;
6015: --
6016: IF l_rec_count > 0 THEN
6017: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6018: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6019: fnd_msg_pub.add;
6020: RAISE fnd_api.g_exc_error;
6021: END IF;
6014: and ROWNUM = 1;
6015: --
6016: IF l_rec_count > 0 THEN
6017: fnd_message.set_name('CSI', 'CSI_OLD_SRL_HAS_EAM_CANNOT_UPD');
6018: fnd_message.set_token('SERIAL_NUM', p_old_serial_number);
6019: fnd_msg_pub.add;
6020: RAISE fnd_api.g_exc_error;
6021: END IF;
6022: END IF;
6030: AND serial_number = p_old_serial_number;
6031:
6032: --start of code fix for 6176621
6033: IF l_current_status <> 4 THEN
6034: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6035: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6036: fnd_msg_pub.add;
6037: RAISE fnd_api.g_exc_error;
6038: END IF;
6031:
6032: --start of code fix for 6176621
6033: IF l_current_status <> 4 THEN
6034: fnd_message.set_name('CSI', 'CSI_SRL_IN_USE_CANNOT_UPD');
6035: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6036: fnd_msg_pub.add;
6037: RAISE fnd_api.g_exc_error;
6038: END IF;
6039: --code fix end for 6176621
6039: --code fix end for 6176621
6040: --
6041: FOR mog_rec IN mog_cur(l_gen_object_id)
6042: LOOP
6043: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6044: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6045: fnd_msg_pub.add;
6046: RAISE fnd_api.g_exc_error;
6047: END LOOP;
6040: --
6041: FOR mog_rec IN mog_cur(l_gen_object_id)
6042: LOOP
6043: fnd_message.set_name('CSI', 'CSI_SRL_IN_MOG_CANNOT_UPD');
6044: fnd_message.set_token('SERIAL_NUM',p_old_serial_number);
6045: fnd_msg_pub.add;
6046: RAISE fnd_api.g_exc_error;
6047: END LOOP;
6048:
6073: FOR all_txn_rec IN all_txn_cur(p_instance_rec.inventory_item_id,
6074: p_instance_rec.serial_number,
6075: l_current_txn_id)
6076: LOOP
6077: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6078: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6079: fnd_msg_pub.add;
6080: RAISE fnd_api.g_exc_error;
6081: END LOOP;
6074: p_instance_rec.serial_number,
6075: l_current_txn_id)
6076: LOOP
6077: fnd_message.set_name('CSI', 'CSI_SRL_HAS_TXN_CANNOT_UPD');
6078: fnd_message.set_token('SERIAL_NUM', p_instance_rec.serial_number);
6079: fnd_msg_pub.add;
6080: RAISE fnd_api.g_exc_error;
6081: END LOOP;
6082: END IF;
6080: RAISE fnd_api.g_exc_error;
6081: END LOOP;
6082: END IF;
6083: ----uncommented code for 6965008
6084: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6085: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6086: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6087: fnd_msg_pub.add;
6088: --
6081: END LOOP;
6082: END IF;
6083: ----uncommented code for 6965008
6084: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6085: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6086: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6087: fnd_msg_pub.add;
6088: --
6089: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6082: END IF;
6083: ----uncommented code for 6965008
6084: fnd_message.set_name('CSI', 'CSI_SERIAL_UPD_WARNING');
6085: fnd_message.set_token('CURRENT_SERIAL', p_old_serial_number);
6086: fnd_message.set_token('NEW_SERIAL', p_instance_rec.serial_number);
6087: fnd_msg_pub.add;
6088: --
6089: -- Warning Status should be handled by Public API based ont Serial Number Update Event
6090: -- x_return_status := 'W';
6171: l_txn_seq_start_date := csi_datastructures_pub.g_install_param_rec.freeze_date;
6172: END IF;
6173:
6174: IF l_txn_seq_start_date is null THEN
6175: fnd_message.set_name('CSI','CSI_API_UNINSTALLED_PARAMETER');
6176: fnd_msg_pub.add;
6177: raise fnd_api.g_exc_error;
6178: END IF;
6179: