95: -- Initialize API return status to success
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97: l_msg_data := 'Update event successfully raised';
98:
99: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
100: FND_MESSAGE.SET_TOKEN('EVENT','Update');
101: x_msg_data := FND_MESSAGE.GET;
102:
103: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97: l_msg_data := 'Update event successfully raised';
98:
99: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
100: FND_MESSAGE.SET_TOKEN('EVENT','Update');
101: x_msg_data := FND_MESSAGE.GET;
102:
103: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
104:
97: l_msg_data := 'Update event successfully raised';
98:
99: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
100: FND_MESSAGE.SET_TOKEN('EVENT','Update');
101: x_msg_data := FND_MESSAGE.GET;
102:
103: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
104:
105: IF (l_Debug_Level <= 1) THEN
152: WHEN OTHERS THEN
153: l_error_code := SQLCODE;
154: l_error_msg := SQLERRM;
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
157: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
153: l_error_code := SQLCODE;
154: l_error_msg := SQLERRM;
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
157: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
161: cln_debug_pub.Add('Unexpected Error:' || l_error_code || ':' || l_error_msg, 6);
154: l_error_msg := SQLERRM;
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
157: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
161: cln_debug_pub.Add('Unexpected Error:' || l_error_code || ':' || l_error_msg, 6);
162: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 2);
155: x_return_status := FND_API.G_RET_STS_ERROR ;
156: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
157: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
158: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
159: x_msg_data := FND_MESSAGE.GET;
160: IF (l_Debug_Level <= 6) THEN
161: cln_debug_pub.Add('Unexpected Error:' || l_error_code || ':' || l_error_msg, 6);
162: cln_debug_pub.Add('----------- ERROR :EXITING RAISE_UPDATE_EVENT ------------', 2);
163: END IF;
209: -- Initialize API return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_msg_data := 'Add Messages successfully raised';
212:
213: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
214: FND_MESSAGE.SET_TOKEN('EVENT','Add Messages');
215: x_msg_data := FND_MESSAGE.GET;
216:
217:
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_msg_data := 'Add Messages successfully raised';
212:
213: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
214: FND_MESSAGE.SET_TOKEN('EVENT','Add Messages');
215: x_msg_data := FND_MESSAGE.GET;
216:
217:
218: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
211: l_msg_data := 'Add Messages successfully raised';
212:
213: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
214: FND_MESSAGE.SET_TOKEN('EVENT','Add Messages');
215: x_msg_data := FND_MESSAGE.GET;
216:
217:
218: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
219:
268: WHEN OTHERS THEN
269: l_error_code := SQLCODE;
270: l_error_msg := SQLERRM;
271: x_return_status :=FND_API.G_RET_STS_ERROR ;
272: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
269: l_error_code := SQLCODE;
270: l_error_msg := SQLERRM;
271: x_return_status :=FND_API.G_RET_STS_ERROR ;
272: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
277: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 4);
270: l_error_msg := SQLERRM;
271: x_return_status :=FND_API.G_RET_STS_ERROR ;
272: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
277: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 4);
278: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
271: x_return_status :=FND_API.G_RET_STS_ERROR ;
272: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
273: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
274: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
275: x_msg_data :=FND_MESSAGE.GET;
276: IF (l_Debug_Level <= 2) THEN
277: cln_debug_pub.Add('Error:' || l_error_code || ':' || l_error_msg, 4);
278: cln_debug_pub.Add('--------- ERROR :EXITING RAISE_ADD_MSG_EVENT -------------', 2);
279: END IF;
397: p_sender_component => p_sender_component,
398: x_update_reqd => l_update_reqd);
399:
400: IF (x_return_status <> 'S') THEN
401: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
402: x_msg_data := FND_MESSAGE.GET;
403: l_msg_data :='Failed to verify the required criteria for updating/creating.collaboration';
404: x_coll_id :=null;
405: x_cln_required :='FALSE';
398: x_update_reqd => l_update_reqd);
399:
400: IF (x_return_status <> 'S') THEN
401: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
402: x_msg_data := FND_MESSAGE.GET;
403: l_msg_data :='Failed to verify the required criteria for updating/creating.collaboration';
404: x_coll_id :=null;
405: x_cln_required :='FALSE';
406: RAISE FND_API.G_EXC_ERROR;
423: IF p_ref_id IS NULL THEN
424: IF (l_Debug_Level <= 1) THEN
425: cln_debug_pub.Add('Application Reference ID is null',1);
426: END IF;
427: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_NULL');
428: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
429: x_coll_id := null;
430: x_msg_data := FND_MESSAGE.GET;
431: l_msg_data :='Application reference ID is null';
424: IF (l_Debug_Level <= 1) THEN
425: cln_debug_pub.Add('Application Reference ID is null',1);
426: END IF;
427: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_NULL');
428: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
429: x_coll_id := null;
430: x_msg_data := FND_MESSAGE.GET;
431: l_msg_data :='Application reference ID is null';
432: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427: FND_MESSAGE.SET_NAME('CLN','CLN_CH_PARAM_NULL');
428: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
429: x_coll_id := null;
430: x_msg_data := FND_MESSAGE.GET;
431: l_msg_data :='Application reference ID is null';
432: RAISE FND_API.G_EXC_ERROR;
433: END IF;
434:
442: FROM CLN_COLL_HIST_HDR
443: WHERE APPLICATION_REFERENCE_ID = p_ref_id;
444: EXCEPTION
445: WHEN NO_DATA_FOUND THEN
446: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REFID_NOT_FOUND');
447: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
448: FND_MESSAGE.SET_TOKEN('REFID',p_ref_id);
449: x_msg_data := FND_MESSAGE.GET;
450: x_coll_id := null;
443: WHERE APPLICATION_REFERENCE_ID = p_ref_id;
444: EXCEPTION
445: WHEN NO_DATA_FOUND THEN
446: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REFID_NOT_FOUND');
447: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
448: FND_MESSAGE.SET_TOKEN('REFID',p_ref_id);
449: x_msg_data := FND_MESSAGE.GET;
450: x_coll_id := null;
451: l_msg_data :='Collaboration Not Found For Application reference ID :'||p_ref_id;
444: EXCEPTION
445: WHEN NO_DATA_FOUND THEN
446: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REFID_NOT_FOUND');
447: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
448: FND_MESSAGE.SET_TOKEN('REFID',p_ref_id);
449: x_msg_data := FND_MESSAGE.GET;
450: x_coll_id := null;
451: l_msg_data :='Collaboration Not Found For Application reference ID :'||p_ref_id;
452: RAISE FND_API.G_EXC_ERROR;
445: WHEN NO_DATA_FOUND THEN
446: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REFID_NOT_FOUND');
447: FND_MESSAGE.SET_TOKEN('PARAM','Application reference ID');
448: FND_MESSAGE.SET_TOKEN('REFID',p_ref_id);
449: x_msg_data := FND_MESSAGE.GET;
450: x_coll_id := null;
451: l_msg_data :='Collaboration Not Found For Application reference ID :'||p_ref_id;
452: RAISE FND_API.G_EXC_ERROR;
453: END;
523:
524: IF (x_collaboration_type <> 'ACKNOWLEDGE_PO') THEN
525: BEGIN
526: IF((p_ackcode_header = 1) and (x_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
527: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
528: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
529: x_msg_data :=FND_MESSAGE.GET;
530: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
531: RAISE FND_API.G_EXC_ERROR;
524: IF (x_collaboration_type <> 'ACKNOWLEDGE_PO') THEN
525: BEGIN
526: IF((p_ackcode_header = 1) and (x_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
527: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
528: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
529: x_msg_data :=FND_MESSAGE.GET;
530: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
525: BEGIN
526: IF((p_ackcode_header = 1) and (x_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
527: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
528: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
529: x_msg_data :=FND_MESSAGE.GET;
530: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
531: RAISE FND_API.G_EXC_ERROR;
532: END IF;
533:
537:
538: EXCEPTION
539: WHEN NO_DATA_FOUND THEN
540: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
541: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
542: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
543: FND_MESSAGE.SET_TOKEN('CODE',l_action);
544: x_msg_data := FND_MESSAGE.GET;
545: RAISE FND_API.G_EXC_ERROR;
538: EXCEPTION
539: WHEN NO_DATA_FOUND THEN
540: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
541: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
542: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
543: FND_MESSAGE.SET_TOKEN('CODE',l_action);
544: x_msg_data := FND_MESSAGE.GET;
545: RAISE FND_API.G_EXC_ERROR;
546: END;
539: WHEN NO_DATA_FOUND THEN
540: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
541: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
542: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
543: FND_MESSAGE.SET_TOKEN('CODE',l_action);
544: x_msg_data := FND_MESSAGE.GET;
545: RAISE FND_API.G_EXC_ERROR;
546: END;
547: ELSE
540: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
541: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
542: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
543: FND_MESSAGE.SET_TOKEN('CODE',l_action);
544: x_msg_data := FND_MESSAGE.GET;
545: RAISE FND_API.G_EXC_ERROR;
546: END;
547: ELSE
548: l_action := 'Acknowledge PO';
682: EXCEPTION
683:
684: WHEN FND_API.G_EXC_ERROR THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
683:
684: WHEN FND_API.G_EXC_ERROR THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
691: x_msg_data := FND_MESSAGE.GET;
684: WHEN FND_API.G_EXC_ERROR THEN
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
691: x_msg_data := FND_MESSAGE.GET;
692: x_call_po_apis := 'NO';
685: x_return_status := FND_API.G_RET_STS_ERROR ;
686: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
691: x_msg_data := FND_MESSAGE.GET;
692: x_call_po_apis := 'NO';
693:
686: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
691: x_msg_data := FND_MESSAGE.GET;
692: x_call_po_apis := 'NO';
693:
694: IF (l_Debug_Level <= 5) THEN
687: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
688: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
689: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
690: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
691: x_msg_data := FND_MESSAGE.GET;
692: x_call_po_apis := 'NO';
693:
694: IF (l_Debug_Level <= 5) THEN
695: cln_debug_pub.Add(l_msg_data,4);
700: WHEN OTHERS THEN
701: l_error_code :=SQLCODE;
702: l_error_msg :=SQLERRM;
703: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
706: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
701: l_error_code :=SQLCODE;
702: l_error_msg :=SQLERRM;
703: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
706: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
702: l_error_msg :=SQLERRM;
703: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
706: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
703: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
704: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
706: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
706: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
707: x_msg_data :=FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
708: x_call_po_apis := 'NO';
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
709:
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
717: IF (l_Debug_Level <= 5) THEN
710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
717: IF (l_Debug_Level <= 5) THEN
718: cln_debug_pub.Add(l_msg_data,6);
711: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
712: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
713: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
714: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
715: x_msg_data := FND_MESSAGE.GET;
716: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
717: IF (l_Debug_Level <= 5) THEN
718: cln_debug_pub.Add(l_msg_data,6);
719: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
1120: l_msg_data := 'Error in RAISE_ADD_MSG_EVENT API';
1121: RAISE FND_API.G_EXC_ERROR;
1122: END IF;
1123:
1124: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
1125: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1126: x_msg_data := FND_MESSAGE.GET;
1127: END IF;
1128:
1121: RAISE FND_API.G_EXC_ERROR;
1122: END IF;
1123:
1124: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
1125: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1126: x_msg_data := FND_MESSAGE.GET;
1127: END IF;
1128:
1129: --p_msg_dtl_screen := NULL;
1122: END IF;
1123:
1124: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
1125: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1126: x_msg_data := FND_MESSAGE.GET;
1127: END IF;
1128:
1129: --p_msg_dtl_screen := NULL;
1130: p_msg_txt_lines := NULL;
1141: EXCEPTION
1142:
1143: WHEN FND_API.G_EXC_ERROR THEN
1144: x_return_status := FND_API.G_RET_STS_ERROR ;
1145: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1142:
1143: WHEN FND_API.G_EXC_ERROR THEN
1144: x_return_status := FND_API.G_RET_STS_ERROR ;
1145: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1143: WHEN FND_API.G_EXC_ERROR THEN
1144: x_return_status := FND_API.G_RET_STS_ERROR ;
1145: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1144: x_return_status := FND_API.G_RET_STS_ERROR ;
1145: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1152: cln_debug_pub.Add(l_msg_data,4);
1145: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1152: cln_debug_pub.Add(l_msg_data,4);
1153: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1146: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1147: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1148: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1149: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1150: x_msg_data := FND_MESSAGE.GET;
1151: IF (l_Debug_Level <= 5) THEN
1152: cln_debug_pub.Add(l_msg_data,4);
1153: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1154: END IF;
1167: WHEN OTHERS THEN
1168: l_error_code :=SQLCODE;
1169: l_error_msg :=SQLERRM;
1170: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1171: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1172: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1173: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1168: l_error_code :=SQLCODE;
1169: l_error_msg :=SQLERRM;
1170: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1171: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1172: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1173: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1176: IF (l_Debug_Level <= 5) THEN
1169: l_error_msg :=SQLERRM;
1170: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1171: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1172: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1173: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1176: IF (l_Debug_Level <= 5) THEN
1177: cln_debug_pub.Add(l_msg_data,6);
1170: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1171: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1172: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1173: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1174: x_msg_data :=FND_MESSAGE.GET;
1175: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
1176: IF (l_Debug_Level <= 5) THEN
1177: cln_debug_pub.Add(l_msg_data,6);
1178: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
1341: WHEN OTHERS THEN
1342: l_error_code :=SQLCODE;
1343: l_error_msg :=SQLERRM;
1344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1345: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1346: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1347: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1342: l_error_code :=SQLCODE;
1343: l_error_msg :=SQLERRM;
1344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1345: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1346: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1347: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1350: IF (l_Debug_Level <= 5) THEN
1343: l_error_msg :=SQLERRM;
1344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1345: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1346: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1347: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1350: IF (l_Debug_Level <= 5) THEN
1351: cln_debug_pub.Add(l_msg_data,5);
1344: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1345: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1346: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1347: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1348: x_msg_data :=FND_MESSAGE.GET;
1349: l_msg_data :='Unexpected Error in LOAD_CHANGES -'||l_error_code||' : '||l_error_msg;
1350: IF (l_Debug_Level <= 5) THEN
1351: cln_debug_pub.Add(l_msg_data,5);
1352: cln_debug_pub.Add('------- ERROR :Exiting LOAD_CHANGES API --------- ',2);
1427: -- if collaboration id is null, then skip this API.
1428: IF (l_Debug_Level <= 1) THEN
1429: cln_debug_pub.Add('------ERROR status------',1);
1430: END IF;
1431: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ERROR_PO_UPDATION');
1432: FND_MESSAGE.SET_TOKEN('POID',p_po_number);
1433: l_error_msg := FND_MESSAGE.GET;
1434: l_error_msg := l_error_msg || '--- Detail Error:' ||x_msg_data;
1435: x_notification_code := 'ACKPO_04';
1428: IF (l_Debug_Level <= 1) THEN
1429: cln_debug_pub.Add('------ERROR status------',1);
1430: END IF;
1431: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ERROR_PO_UPDATION');
1432: FND_MESSAGE.SET_TOKEN('POID',p_po_number);
1433: l_error_msg := FND_MESSAGE.GET;
1434: l_error_msg := l_error_msg || '--- Detail Error:' ||x_msg_data;
1435: x_notification_code := 'ACKPO_04';
1436: x_notification_status := 'ERROR';
1429: cln_debug_pub.Add('------ERROR status------',1);
1430: END IF;
1431: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ERROR_PO_UPDATION');
1432: FND_MESSAGE.SET_TOKEN('POID',p_po_number);
1433: l_error_msg := FND_MESSAGE.GET;
1434: l_error_msg := l_error_msg || '--- Detail Error:' ||x_msg_data;
1435: x_notification_code := 'ACKPO_04';
1436: x_notification_status := 'ERROR';
1437: x_return_status_tp := '99';
1499: WHEN OTHERS THEN
1500: l_error_code :=SQLCODE;
1501: l_error_msg :=SQLERRM;
1502: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1503: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1504: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1505: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1500: l_error_code :=SQLCODE;
1501: l_error_msg :=SQLERRM;
1502: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1503: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1504: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1505: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1508: IF (l_Debug_Level <= 5) THEN
1501: l_error_msg :=SQLERRM;
1502: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1503: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1504: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1505: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1508: IF (l_Debug_Level <= 5) THEN
1509: cln_debug_pub.Add(l_msg_data,6);
1502: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1503: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1504: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1505: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1506: x_msg_data :=FND_MESSAGE.GET;
1507: l_msg_data :='Unexpected Error in ACKPO_ERROR_HANDLER -'||l_error_code||' : '||l_error_msg;
1508: IF (l_Debug_Level <= 5) THEN
1509: cln_debug_pub.Add(l_msg_data,6);
1510: cln_debug_pub.Add('------- ERROR :Exiting ACKPO_ERROR_HANDLER API --------- ',2);
1624: p_sender_component => p_sender_component,
1625: x_update_reqd => l_update_reqd);
1626:
1627: IF (x_return_status <> 'S') THEN
1628: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
1629: x_msg_data := FND_MESSAGE.GET;
1630: l_msg_data :='Failed to verify the required criteria for updating/creating.collaboration';
1631: -- x_coll_id :=null;
1632: x_cln_required :='FALSE';
1625: x_update_reqd => l_update_reqd);
1626:
1627: IF (x_return_status <> 'S') THEN
1628: FND_MESSAGE.SET_NAME('CLN','CLN_CH_REQD_CRITERIA_FAIL');
1629: x_msg_data := FND_MESSAGE.GET;
1630: l_msg_data :='Failed to verify the required criteria for updating/creating.collaboration';
1631: -- x_coll_id :=null;
1632: x_cln_required :='FALSE';
1633: RAISE FND_API.G_EXC_ERROR;
1706:
1707: IF (p_collaboration_type <> 'ACKNOWLEDGE_PO') THEN
1708: BEGIN
1709: IF((p_ackcode_header = 1) and (p_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
1710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
1711: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
1712: x_msg_data :=FND_MESSAGE.GET;
1713: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
1714: RAISE FND_API.G_EXC_ERROR;
1707: IF (p_collaboration_type <> 'ACKNOWLEDGE_PO') THEN
1708: BEGIN
1709: IF((p_ackcode_header = 1) and (p_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
1710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
1711: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
1712: x_msg_data :=FND_MESSAGE.GET;
1713: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1708: BEGIN
1709: IF((p_ackcode_header = 1) and (p_collaboration_type <> 'ORDER')) OR (p_ackcode_header not in (0,1,2,3)) THEN
1710: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_INVALID_TAG_VALUE');
1711: FND_MESSAGE.SET_TOKEN('TAG','ACKHEADER/ACKCODE');
1712: x_msg_data :=FND_MESSAGE.GET;
1713: l_msg_data :='Invalid value for ACKHEADER/ACKCODE tag.';
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716:
1720:
1721: EXCEPTION
1722: WHEN NO_DATA_FOUND THEN
1723: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
1724: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
1725: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
1726: FND_MESSAGE.SET_TOKEN('CODE',l_action);
1727: x_msg_data := FND_MESSAGE.GET;
1728: RAISE FND_API.G_EXC_ERROR;
1721: EXCEPTION
1722: WHEN NO_DATA_FOUND THEN
1723: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
1724: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
1725: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
1726: FND_MESSAGE.SET_TOKEN('CODE',l_action);
1727: x_msg_data := FND_MESSAGE.GET;
1728: RAISE FND_API.G_EXC_ERROR;
1729: END;
1722: WHEN NO_DATA_FOUND THEN
1723: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
1724: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
1725: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
1726: FND_MESSAGE.SET_TOKEN('CODE',l_action);
1727: x_msg_data := FND_MESSAGE.GET;
1728: RAISE FND_API.G_EXC_ERROR;
1729: END;
1730: ELSE
1723: l_msg_data := 'Collaboration Type not found for the lookup_code as ORDER and lookup_type as CLN_COLLABORATION_TYPE ';
1724: FND_MESSAGE.SET_NAME('CLN','CLN_CH_COLLABORATION_TYPE_NOT');
1725: FND_MESSAGE.SET_TOKEN('TYPE','CLN_COLLABORATION_TYPE');
1726: FND_MESSAGE.SET_TOKEN('CODE',l_action);
1727: x_msg_data := FND_MESSAGE.GET;
1728: RAISE FND_API.G_EXC_ERROR;
1729: END;
1730: ELSE
1731: l_action := 'Acknowledge PO';
1865: EXCEPTION
1866:
1867: WHEN FND_API.G_EXC_ERROR THEN
1868: x_return_status := FND_API.G_RET_STS_ERROR ;
1869: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1866:
1867: WHEN FND_API.G_EXC_ERROR THEN
1868: x_return_status := FND_API.G_RET_STS_ERROR ;
1869: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1874: x_msg_data := FND_MESSAGE.GET;
1867: WHEN FND_API.G_EXC_ERROR THEN
1868: x_return_status := FND_API.G_RET_STS_ERROR ;
1869: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1874: x_msg_data := FND_MESSAGE.GET;
1875: x_call_po_apis := 'NO';
1868: x_return_status := FND_API.G_RET_STS_ERROR ;
1869: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1874: x_msg_data := FND_MESSAGE.GET;
1875: x_call_po_apis := 'NO';
1876:
1869: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1874: x_msg_data := FND_MESSAGE.GET;
1875: x_call_po_apis := 'NO';
1876:
1877: IF (l_Debug_Level <= 5) THEN
1870: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1871: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1872: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1873: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1874: x_msg_data := FND_MESSAGE.GET;
1875: x_call_po_apis := 'NO';
1876:
1877: IF (l_Debug_Level <= 5) THEN
1878: cln_debug_pub.Add(l_msg_data,4);
1883: WHEN OTHERS THEN
1884: l_error_code :=SQLCODE;
1885: l_error_msg :=SQLERRM;
1886: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1888: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1889: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1884: l_error_code :=SQLCODE;
1885: l_error_msg :=SQLERRM;
1886: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1888: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1889: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1885: l_error_msg :=SQLERRM;
1886: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1888: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1889: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1886: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
1887: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
1888: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
1889: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1889: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1890: x_msg_data :=FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1891: x_call_po_apis := 'NO';
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1892:
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1900: IF (l_Debug_Level <= 5) THEN
1893: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1900: IF (l_Debug_Level <= 5) THEN
1901: cln_debug_pub.Add(l_msg_data,6);
1894: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
1895: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
1896: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
1897: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
1898: x_msg_data := FND_MESSAGE.GET;
1899: l_msg_data :='Unexpected Error -'||l_error_code||' : '||l_error_msg;
1900: IF (l_Debug_Level <= 5) THEN
1901: cln_debug_pub.Add(l_msg_data,6);
1902: cln_debug_pub.Add('---- ERROR :Exiting PROCESS_HEADER API ----- ', 2);
2304: l_msg_data := 'Error in RAISE_ADD_MSG_EVENT API';
2305: RAISE FND_API.G_EXC_ERROR;
2306: END IF;
2307:
2308: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
2309: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2310: x_msg_data := FND_MESSAGE.GET;
2311: END IF;
2312:
2305: RAISE FND_API.G_EXC_ERROR;
2306: END IF;
2307:
2308: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
2309: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2310: x_msg_data := FND_MESSAGE.GET;
2311: END IF;
2312:
2313: --p_msg_dtl_screen := NULL;
2306: END IF;
2307:
2308: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_CONSUMED');
2309: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2310: x_msg_data := FND_MESSAGE.GET;
2311: END IF;
2312:
2313: --p_msg_dtl_screen := NULL;
2314: p_msg_txt_lines := NULL;
2325: EXCEPTION
2326:
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR ;
2329: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2326:
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR ;
2329: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR ;
2329: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR ;
2329: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2336: cln_debug_pub.Add(l_msg_data,4);
2329: FND_MESSAGE.SET_NAME('CLN','CLN_CH_ACKPO_ERROR');
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2336: cln_debug_pub.Add(l_msg_data,4);
2337: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2330: FND_MESSAGE.SET_TOKEN('PONUM',p_po_number);
2331: FND_MESSAGE.SET_TOKEN('RELNUM',p_release_number);
2332: FND_MESSAGE.SET_TOKEN('REVNUM',p_revision_number);
2333: FND_MESSAGE.SET_TOKEN('MSG',x_msg_data);
2334: x_msg_data := FND_MESSAGE.GET;
2335: IF (l_Debug_Level <= 5) THEN
2336: cln_debug_pub.Add(l_msg_data,4);
2337: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2338: END IF;
2351: WHEN OTHERS THEN
2352: l_error_code :=SQLCODE;
2353: l_error_msg :=SQLERRM;
2354: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2355: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2356: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2357: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2352: l_error_code :=SQLCODE;
2353: l_error_msg :=SQLERRM;
2354: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2355: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2356: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2357: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2360: IF (l_Debug_Level <= 5) THEN
2353: l_error_msg :=SQLERRM;
2354: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2355: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2356: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2357: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2360: IF (l_Debug_Level <= 5) THEN
2361: cln_debug_pub.Add(l_msg_data,6);
2354: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2355: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2356: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2357: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2358: x_msg_data :=FND_MESSAGE.GET;
2359: l_msg_data :='Unexpected Error in PROCESS_HEADER_LINES -'||l_error_code||' : '||l_error_msg;
2360: IF (l_Debug_Level <= 5) THEN
2361: cln_debug_pub.Add(l_msg_data,6);
2362: cln_debug_pub.Add('------- ERROR :Exiting PROCESS_HEADER_LINES API --------- ',2);
2514: WHEN OTHERS THEN
2515: l_error_code :=SQLCODE;
2516: l_error_msg :=SQLERRM;
2517: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2518: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2519: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2520: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2515: l_error_code :=SQLCODE;
2516: l_error_msg :=SQLERRM;
2517: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2518: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2519: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2520: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2523: IF (l_Debug_Level <= 5) THEN
2516: l_error_msg :=SQLERRM;
2517: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2518: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2519: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2520: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2523: IF (l_Debug_Level <= 5) THEN
2524: cln_debug_pub.Add(l_msg_data,6);
2517: x_return_status :=FND_API.G_RET_STS_UNEXP_ERROR ;
2518: FND_MESSAGE.SET_NAME('CLN','CLN_CH_UNEXPECTED_ERROR');
2519: FND_MESSAGE.SET_TOKEN('ERRORCODE',l_error_code);
2520: FND_MESSAGE.SET_TOKEN('ERRORMSG',l_error_msg);
2521: x_msg_data :=FND_MESSAGE.GET;
2522: l_msg_data :='Unexpected Error in UPDATE_COLL_FOR_HDR_ONLY_MSG -'||l_error_code||' : '||l_error_msg;
2523: IF (l_Debug_Level <= 5) THEN
2524: cln_debug_pub.Add(l_msg_data,6);
2525: cln_debug_pub.Add('------- ERROR :Exiting UPDATE_COLL_FOR_HDR_ONLY_MSG API --------- ',2);