178: -- ELSE
179: -- lv_wi_id := NULL;
180: -- FOR lv_wi_rec in lc_wi LOOP
181: -- IF lv_wi_id IS NOT NULL THEN
182: -- FND_MESSAGE.SET_NAME('XDP', 'XDP_CANNOT_DETERMINE_WI_VER');
183: -- FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
184: -- APP_EXCEPTION.RAISE_EXCEPTION;
185: -- exit;
186: -- END IF;
179: -- lv_wi_id := NULL;
180: -- FOR lv_wi_rec in lc_wi LOOP
181: -- IF lv_wi_id IS NOT NULL THEN
182: -- FND_MESSAGE.SET_NAME('XDP', 'XDP_CANNOT_DETERMINE_WI_VER');
183: -- FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
184: -- APP_EXCEPTION.RAISE_EXCEPTION;
185: -- exit;
186: -- END IF;
187: -- lv_wi_id := lv_wi_rec.workitem_id;
186: -- END IF;
187: -- lv_wi_id := lv_wi_rec.workitem_id;
188: -- END LOOP;
189: -- IF lv_wi_id IS NULL THEN
190: -- FND_MESSAGE.SET_NAME('XDP', 'XDP_UNKNOWN_WI');
191: -- FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
192: -- APP_EXCEPTION.RAISE_EXCEPTION;
193: -- END IF;
194: -- END IF;
187: -- lv_wi_id := lv_wi_rec.workitem_id;
188: -- END LOOP;
189: -- IF lv_wi_id IS NULL THEN
190: -- FND_MESSAGE.SET_NAME('XDP', 'XDP_UNKNOWN_WI');
191: -- FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
192: -- APP_EXCEPTION.RAISE_EXCEPTION;
193: -- END IF;
194: -- END IF;
195: --
196:
197: --see that WI Name and WI Version are supplied to the API.
198: IF (p_workitem_name IS NULL) OR
199: (p_workitem_version IS NULL) THEN
200: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NAME_VER_NOT_GIVEN');
201: APP_EXCEPTION.RAISE_EXCEPTION;
202: END IF;
203:
204: --WI Name and WI version are given. Get the WI details.
215: WHERE workitem_name = p_workitem_name
216: AND version = p_workitem_version;
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NAME_VER_NOT_EXIST');
220: FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
221: FND_MESSAGE.SET_TOKEN('WI_VERSION', p_workitem_version);
222: APP_EXCEPTION.RAISE_EXCEPTION;
223: -- OTHERS will be caught by the calling API; Add_WI_toLine, the public version.
216: AND version = p_workitem_version;
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NAME_VER_NOT_EXIST');
220: FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
221: FND_MESSAGE.SET_TOKEN('WI_VERSION', p_workitem_version);
222: APP_EXCEPTION.RAISE_EXCEPTION;
223: -- OTHERS will be caught by the calling API; Add_WI_toLine, the public version.
224: END;
217: EXCEPTION
218: WHEN NO_DATA_FOUND THEN
219: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NAME_VER_NOT_EXIST');
220: FND_MESSAGE.SET_TOKEN('WORK_ITEM_NAME', p_workitem_name);
221: FND_MESSAGE.SET_TOKEN('WI_VERSION', p_workitem_version);
222: APP_EXCEPTION.RAISE_EXCEPTION;
223: -- OTHERS will be caught by the calling API; Add_WI_toLine, the public version.
224: END;
225: --
434: exception
435: when resource_busy then
436: rollback to lv_order_tag;
437: return_code := -191274;
438: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_ERROR');
439: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
440: error_description := FND_MESSAGE.GET;
441: return;
442: when no_data_found then
435: when resource_busy then
436: rollback to lv_order_tag;
437: return_code := -191274;
438: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_ERROR');
439: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
440: error_description := FND_MESSAGE.GET;
441: return;
442: when no_data_found then
443: null;
436: rollback to lv_order_tag;
437: return_code := -191274;
438: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_ERROR');
439: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
440: error_description := FND_MESSAGE.GET;
441: return;
442: when no_data_found then
443: null;
444: when others then
443: null;
444: when others then
445: rollback to lv_order_tag;
446: return_code := -191266;
447: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
448: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
449: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
450: error_description := FND_MESSAGE.GET;
451: return;
444: when others then
445: rollback to lv_order_tag;
446: return_code := -191266;
447: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
448: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
449: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
450: error_description := FND_MESSAGE.GET;
451: return;
452: end;
445: rollback to lv_order_tag;
446: return_code := -191266;
447: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
448: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
449: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
450: error_description := FND_MESSAGE.GET;
451: return;
452: end;
453:
446: return_code := -191266;
447: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
448: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
449: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
450: error_description := FND_MESSAGE.GET;
451: return;
452: end;
453:
454: begin
460: exception
461: when resource_busy then
462: rollback to lv_order_tag;
463: return_code := -191275;
464: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_PENDING_ERROR');
465: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
466: error_description := FND_MESSAGE.GET;
467: return;
468: when no_data_found then
461: when resource_busy then
462: rollback to lv_order_tag;
463: return_code := -191275;
464: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_PENDING_ERROR');
465: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
466: error_description := FND_MESSAGE.GET;
467: return;
468: when no_data_found then
469: null;
462: rollback to lv_order_tag;
463: return_code := -191275;
464: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LOCK_PENDING_ERROR');
465: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
466: error_description := FND_MESSAGE.GET;
467: return;
468: when no_data_found then
469: null;
470: when others then
469: null;
470: when others then
471: rollback to lv_order_tag;
472: return_code := -191266;
473: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
474: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
475: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
476: error_description := FND_MESSAGE.GET;
477: return;
470: when others then
471: rollback to lv_order_tag;
472: return_code := -191266;
473: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
474: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
475: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
476: error_description := FND_MESSAGE.GET;
477: return;
478: end;
471: rollback to lv_order_tag;
472: return_code := -191266;
473: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
474: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
475: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
476: error_description := FND_MESSAGE.GET;
477: return;
478: end;
479:
472: return_code := -191266;
473: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
474: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
475: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
476: error_description := FND_MESSAGE.GET;
477: return;
478: end;
479:
480: begin
486: exception
487: when resource_busy or no_data_found then
488: rollback to lv_order_tag;
489: return_code := SQLCODE;
490: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_PROCESS_ERROR');
491: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
492: error_description := FND_MESSAGE.GET;
493: return;
494: when others then
487: when resource_busy or no_data_found then
488: rollback to lv_order_tag;
489: return_code := SQLCODE;
490: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_PROCESS_ERROR');
491: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
492: error_description := FND_MESSAGE.GET;
493: return;
494: when others then
495: rollback to lv_order_tag;
488: rollback to lv_order_tag;
489: return_code := SQLCODE;
490: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_PROCESS_ERROR');
491: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
492: error_description := FND_MESSAGE.GET;
493: return;
494: when others then
495: rollback to lv_order_tag;
496: return_code := -191266;
493: return;
494: when others then
495: rollback to lv_order_tag;
496: return_code := -191266;
497: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
498: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
499: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
500: error_description := FND_MESSAGE.GET;
501: return;
494: when others then
495: rollback to lv_order_tag;
496: return_code := -191266;
497: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
498: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
499: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
500: error_description := FND_MESSAGE.GET;
501: return;
502: end;
495: rollback to lv_order_tag;
496: return_code := -191266;
497: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
498: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
499: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
500: error_description := FND_MESSAGE.GET;
501: return;
502: end;
503: */
496: return_code := -191266;
497: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
498: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
499: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
500: error_description := FND_MESSAGE.GET;
501: return;
502: end;
503: */
504:
505: EXCEPTION
506: WHEN NO_DATA_FOUND THEN
507: -- rollback to lv_order_tag;
508: return_code := SQLCODE;
509: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
510: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
511: error_description := FND_MESSAGE.GET;
512: WHEN OTHERS THEN
513: -- rollback to lv_order_tag;
506: WHEN NO_DATA_FOUND THEN
507: -- rollback to lv_order_tag;
508: return_code := SQLCODE;
509: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
510: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
511: error_description := FND_MESSAGE.GET;
512: WHEN OTHERS THEN
513: -- rollback to lv_order_tag;
514: return_code := -191266;
507: -- rollback to lv_order_tag;
508: return_code := SQLCODE;
509: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
510: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
511: error_description := FND_MESSAGE.GET;
512: WHEN OTHERS THEN
513: -- rollback to lv_order_tag;
514: return_code := -191266;
515: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
511: error_description := FND_MESSAGE.GET;
512: WHEN OTHERS THEN
513: -- rollback to lv_order_tag;
514: return_code := -191266;
515: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
516: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
517: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
518: error_description := FND_MESSAGE.GET;
519:
512: WHEN OTHERS THEN
513: -- rollback to lv_order_tag;
514: return_code := -191266;
515: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
516: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
517: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
518: error_description := FND_MESSAGE.GET;
519:
520: END LOCK_ORDERQ;
513: -- rollback to lv_order_tag;
514: return_code := -191266;
515: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
516: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
517: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
518: error_description := FND_MESSAGE.GET;
519:
520: END LOCK_ORDERQ;
521:
514: return_code := -191266;
515: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
516: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
517: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
518: error_description := FND_MESSAGE.GET;
519:
520: END LOCK_ORDERQ;
521:
522:
544:
545: if lv_state IN ('CANCELED','ABORTED') Then
546: rollback to lv_order_tag;
547: return_code := -191310;
548: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_CANCEL');
549: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
550: error_description := FND_MESSAGE.GET;
551: return;
552: elsif lv_state not in ('IN PROGRESS') then
545: if lv_state IN ('CANCELED','ABORTED') Then
546: rollback to lv_order_tag;
547: return_code := -191310;
548: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_CANCEL');
549: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
550: error_description := FND_MESSAGE.GET;
551: return;
552: elsif lv_state not in ('IN PROGRESS') then
553: rollback to lv_order_tag;
546: rollback to lv_order_tag;
547: return_code := -191310;
548: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_CANCEL');
549: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
550: error_description := FND_MESSAGE.GET;
551: return;
552: elsif lv_state not in ('IN PROGRESS') then
553: rollback to lv_order_tag;
554: return_code := -191311;
551: return;
552: elsif lv_state not in ('IN PROGRESS') then
553: rollback to lv_order_tag;
554: return_code := -191311;
555: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_PROCESS');
556: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
557: error_description := FND_MESSAGE.GET;
558: return;
559: else
552: elsif lv_state not in ('IN PROGRESS') then
553: rollback to lv_order_tag;
554: return_code := -191311;
555: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_PROCESS');
556: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
557: error_description := FND_MESSAGE.GET;
558: return;
559: else
560: LOCK_ORDERQ(
553: rollback to lv_order_tag;
554: return_code := -191311;
555: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_STATE_PROCESS');
556: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
557: error_description := FND_MESSAGE.GET;
558: return;
559: else
560: LOCK_ORDERQ(
561: p_sdp_order_id => p_sdp_order_id,
578: EXCEPTION
579: WHEN NO_DATA_FOUND THEN
580: rollback to lv_order_tag2;
581: return_code := SQLCODE;
582: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LI_NOTEXISTS');
583: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
584: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
585: error_description := FND_MESSAGE.GET;
586:
579: WHEN NO_DATA_FOUND THEN
580: rollback to lv_order_tag2;
581: return_code := SQLCODE;
582: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LI_NOTEXISTS');
583: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
584: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
585: error_description := FND_MESSAGE.GET;
586:
587: WHEN OTHERS THEN
580: rollback to lv_order_tag2;
581: return_code := SQLCODE;
582: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LI_NOTEXISTS');
583: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
584: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
585: error_description := FND_MESSAGE.GET;
586:
587: WHEN OTHERS THEN
588: rollback to lv_order_tag2;
581: return_code := SQLCODE;
582: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LI_NOTEXISTS');
583: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
584: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_line_item_id);
585: error_description := FND_MESSAGE.GET;
586:
587: WHEN OTHERS THEN
588: rollback to lv_order_tag2;
589: return_code := -191266;
586:
587: WHEN OTHERS THEN
588: rollback to lv_order_tag2;
589: return_code := -191266;
590: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
591: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
592: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
593: error_description := FND_MESSAGE.GET;
594: END Cancel_line;
587: WHEN OTHERS THEN
588: rollback to lv_order_tag2;
589: return_code := -191266;
590: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
591: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
592: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
593: error_description := FND_MESSAGE.GET;
594: END Cancel_line;
595:
588: rollback to lv_order_tag2;
589: return_code := -191266;
590: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
591: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
592: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
593: error_description := FND_MESSAGE.GET;
594: END Cancel_line;
595:
596: /*
589: return_code := -191266;
590: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
591: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
592: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
593: error_description := FND_MESSAGE.GET;
594: END Cancel_line;
595:
596: /*
597: Cancel a workitem item from a given order
617: order_id = p_sdp_order_id;
618:
619: if lv_state IN ('CANCELED','ABORTED') Then
620: return_code := -191312;
621: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_CANCEL');
622: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
623: error_description := FND_MESSAGE.GET;
624: return;
625: elsif lv_state not in ('IN PROGRESS') then
618:
619: if lv_state IN ('CANCELED','ABORTED') Then
620: return_code := -191312;
621: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_CANCEL');
622: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
623: error_description := FND_MESSAGE.GET;
624: return;
625: elsif lv_state not in ('IN PROGRESS') then
626: return_code := -191313;
619: if lv_state IN ('CANCELED','ABORTED') Then
620: return_code := -191312;
621: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_CANCEL');
622: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
623: error_description := FND_MESSAGE.GET;
624: return;
625: elsif lv_state not in ('IN PROGRESS') then
626: return_code := -191313;
627: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_PROCESS');
623: error_description := FND_MESSAGE.GET;
624: return;
625: elsif lv_state not in ('IN PROGRESS') then
626: return_code := -191313;
627: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_PROCESS');
628: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
629: error_description := FND_MESSAGE.GET;
630: return;
631: return;
624: return;
625: elsif lv_state not in ('IN PROGRESS') then
626: return_code := -191313;
627: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_PROCESS');
628: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
629: error_description := FND_MESSAGE.GET;
630: return;
631: return;
632: else
625: elsif lv_state not in ('IN PROGRESS') then
626: return_code := -191313;
627: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_STATE_PROCESS');
628: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
629: error_description := FND_MESSAGE.GET;
630: return;
631: return;
632: else
633:
656: exception
657: when resource_busy or no_data_found then
658: rollback to lv_order_tag2;
659: return_code := -191281;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_ERROR');
661: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
662: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
663: error_description := FND_MESSAGE.GET;
664: return;
657: when resource_busy or no_data_found then
658: rollback to lv_order_tag2;
659: return_code := -191281;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_ERROR');
661: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
662: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
663: error_description := FND_MESSAGE.GET;
664: return;
665: return;
658: rollback to lv_order_tag2;
659: return_code := -191281;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_ERROR');
661: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
662: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
663: error_description := FND_MESSAGE.GET;
664: return;
665: return;
666: when others then
659: return_code := -191281;
660: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_ERROR');
661: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
662: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
663: error_description := FND_MESSAGE.GET;
664: return;
665: return;
666: when others then
667: rollback to lv_order_tag2;
665: return;
666: when others then
667: rollback to lv_order_tag2;
668: return_code := -191266;
669: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
670: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
671: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
672: error_description := FND_MESSAGE.GET;
673: return;
666: when others then
667: rollback to lv_order_tag2;
668: return_code := -191266;
669: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
670: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
671: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
672: error_description := FND_MESSAGE.GET;
673: return;
674: end;
667: rollback to lv_order_tag2;
668: return_code := -191266;
669: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
670: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
671: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
672: error_description := FND_MESSAGE.GET;
673: return;
674: end;
675: ELSE
668: return_code := -191266;
669: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
670: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
671: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
672: error_description := FND_MESSAGE.GET;
673: return;
674: end;
675: ELSE
676: return;
680: EXCEPTION
681: WHEN NO_DATA_FOUND THEN
682: rollback to lv_order_tag2;
683: return_code := SQLCODE;
684: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_NOTEXISTS');
685: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
686: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
687: error_description := FND_MESSAGE.GET;
688:
681: WHEN NO_DATA_FOUND THEN
682: rollback to lv_order_tag2;
683: return_code := SQLCODE;
684: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_NOTEXISTS');
685: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
686: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
687: error_description := FND_MESSAGE.GET;
688:
689: WHEN OTHERS THEN
682: rollback to lv_order_tag2;
683: return_code := SQLCODE;
684: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_NOTEXISTS');
685: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
686: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
687: error_description := FND_MESSAGE.GET;
688:
689: WHEN OTHERS THEN
690: rollback to lv_order_tag2;
683: return_code := SQLCODE;
684: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_WI_NOTEXISTS');
685: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
686: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_workitem_instance_id);
687: error_description := FND_MESSAGE.GET;
688:
689: WHEN OTHERS THEN
690: rollback to lv_order_tag2;
691: return_code := -191266;
688:
689: WHEN OTHERS THEN
690: rollback to lv_order_tag2;
691: return_code := -191266;
692: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
693: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
694: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
695: error_description := FND_MESSAGE.GET;
696: END Cancel_Workitem;
689: WHEN OTHERS THEN
690: rollback to lv_order_tag2;
691: return_code := -191266;
692: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
693: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
694: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
695: error_description := FND_MESSAGE.GET;
696: END Cancel_Workitem;
697:
690: rollback to lv_order_tag2;
691: return_code := -191266;
692: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
693: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
694: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
695: error_description := FND_MESSAGE.GET;
696: END Cancel_Workitem;
697:
698:
691: return_code := -191266;
692: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
693: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
694: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
695: error_description := FND_MESSAGE.GET;
696: END Cancel_Workitem;
697:
698:
699: /*******************************************************************
748: p_order_relationship = XDP_TYPES.COMES_BEFORE
749: THEN
750: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
751: return_code := -191283;
752: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
753: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
754: error_description := FND_MESSAGE.GET;
755: return;
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
749: THEN
750: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
751: return_code := -191283;
752: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
753: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
754: error_description := FND_MESSAGE.GET;
755: return;
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
757: return_code := -191284;
750: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
751: return_code := -191283;
752: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
753: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
754: error_description := FND_MESSAGE.GET;
755: return;
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
757: return_code := -191284;
758: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
754: error_description := FND_MESSAGE.GET;
755: return;
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
757: return_code := -191284;
758: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
759: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
760: error_description := FND_MESSAGE.GET;
761: return;
762: ELSIF lv_curr_state IN ('STANDBY') AND
755: return;
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
757: return_code := -191284;
758: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
759: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
760: error_description := FND_MESSAGE.GET;
761: return;
762: ELSIF lv_curr_state IN ('STANDBY') AND
763: lv_rel_state IN ('STANDBY')
756: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
757: return_code := -191284;
758: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
759: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
760: error_description := FND_MESSAGE.GET;
761: return;
762: ELSIF lv_curr_state IN ('STANDBY') AND
763: lv_rel_state IN ('STANDBY')
764: THEN
961:
962: null;
963: ELSE
964: return_code := -191300;
965: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
966: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
967: error_description := FND_MESSAGE.GET;
968: return;
969: END IF;
962: null;
963: ELSE
964: return_code := -191300;
965: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
966: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
967: error_description := FND_MESSAGE.GET;
968: return;
969: END IF;
970:
963: ELSE
964: return_code := -191300;
965: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
966: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
967: error_description := FND_MESSAGE.GET;
968: return;
969: END IF;
970:
971: ELSIF p_order_relationship = XDP_TYPES.COMES_AFTER THEN
970:
971: ELSIF p_order_relationship = XDP_TYPES.COMES_AFTER THEN
972: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
973: return_code := -191283;
974: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
975: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
976: error_description := FND_MESSAGE.GET;
977: return;
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
971: ELSIF p_order_relationship = XDP_TYPES.COMES_AFTER THEN
972: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
973: return_code := -191283;
974: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
975: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
976: error_description := FND_MESSAGE.GET;
977: return;
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
979: return_code := -191284;
972: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
973: return_code := -191283;
974: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_ERROR');
975: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
976: error_description := FND_MESSAGE.GET;
977: return;
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
979: return_code := -191284;
980: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
976: error_description := FND_MESSAGE.GET;
977: return;
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
979: return_code := -191284;
980: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
981: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
982: error_description := FND_MESSAGE.GET;
983: return;
984: ELSIF lv_curr_state IN ('STANDBY') AND
977: return;
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
979: return_code := -191284;
980: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
981: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
982: error_description := FND_MESSAGE.GET;
983: return;
984: ELSIF lv_curr_state IN ('STANDBY') AND
985: lv_rel_state IN ('STANDBY')
978: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
979: return_code := -191284;
980: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_REL_RELATION_ERROR');
981: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_related_sdp_order_id);
982: error_description := FND_MESSAGE.GET;
983: return;
984: ELSIF lv_curr_state IN ('STANDBY') AND
985: lv_rel_state IN ('STANDBY')
986: THEN
1175:
1176: null;
1177: ELSE
1178: return_code := -191300;
1179: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
1180: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
1181: error_description := FND_MESSAGE.GET;
1182: return;
1183: END IF;
1176: null;
1177: ELSE
1178: return_code := -191300;
1179: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
1180: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
1181: error_description := FND_MESSAGE.GET;
1182: return;
1183: END IF;
1184:
1177: ELSE
1178: return_code := -191300;
1179: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_RELATION_PROCESS');
1180: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_curr_sdp_order_id);
1181: error_description := FND_MESSAGE.GET;
1182: return;
1183: END IF;
1184:
1185: null;
1235: END IF;
1236:
1237: ELSE
1238: return_code := -191285;
1239: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORDER_RELATION');
1240: error_description := FND_MESSAGE.GET;
1241: return;
1242: END IF;
1243:
1236:
1237: ELSE
1238: return_code := -191285;
1239: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORDER_RELATION');
1240: error_description := FND_MESSAGE.GET;
1241: return;
1242: END IF;
1243:
1244: EXCEPTION
1243:
1244: EXCEPTION
1245: WHEN OTHERS THEN
1246: return_code := -191266;
1247: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1248: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1249: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1250: error_description := FND_MESSAGE.GET;
1251: END Set_Order_Relationships;
1244: EXCEPTION
1245: WHEN OTHERS THEN
1246: return_code := -191266;
1247: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1248: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1249: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1250: error_description := FND_MESSAGE.GET;
1251: END Set_Order_Relationships;
1252:
1245: WHEN OTHERS THEN
1246: return_code := -191266;
1247: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1248: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1249: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1250: error_description := FND_MESSAGE.GET;
1251: END Set_Order_Relationships;
1252:
1253:
1246: return_code := -191266;
1247: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1248: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1249: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1250: error_description := FND_MESSAGE.GET;
1251: END Set_Order_Relationships;
1252:
1253:
1254: /*
1291:
1292: IF p_wi_relationship = XDP_TYPES.MERGED_INTO THEN
1293: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1294: return_code := -191286;
1295: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_ERROR');
1296: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1297: error_description := FND_MESSAGE.GET;
1298: return;
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1292: IF p_wi_relationship = XDP_TYPES.MERGED_INTO THEN
1293: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1294: return_code := -191286;
1295: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_ERROR');
1296: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1297: error_description := FND_MESSAGE.GET;
1298: return;
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1300: return_code := -191287;
1293: IF lv_curr_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1294: return_code := -191286;
1295: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_ERROR');
1296: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1297: error_description := FND_MESSAGE.GET;
1298: return;
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1300: return_code := -191287;
1301: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_REL_RELATION_ERROR');
1297: error_description := FND_MESSAGE.GET;
1298: return;
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1300: return_code := -191287;
1301: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_REL_RELATION_ERROR');
1302: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1303: error_description := FND_MESSAGE.GET;
1304: return;
1305: ELSIF lv_curr_state = 'STANDBY' AND
1298: return;
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1300: return_code := -191287;
1301: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_REL_RELATION_ERROR');
1302: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1303: error_description := FND_MESSAGE.GET;
1304: return;
1305: ELSIF lv_curr_state = 'STANDBY' AND
1306: lv_rel_state = 'STANDBY'
1299: ELSIF lv_rel_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1300: return_code := -191287;
1301: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_REL_RELATION_ERROR');
1302: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1303: error_description := FND_MESSAGE.GET;
1304: return;
1305: ELSIF lv_curr_state = 'STANDBY' AND
1306: lv_rel_state = 'STANDBY'
1307: THEN
1388: return;
1389: END IF;
1390: ELSIF lv_curr_state = 'IN PROGRESS' THEN
1391: return_code := -191301;
1392: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1393: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1394: error_description := FND_MESSAGE.GET;
1395: return;
1396:
1389: END IF;
1390: ELSIF lv_curr_state = 'IN PROGRESS' THEN
1391: return_code := -191301;
1392: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1393: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1394: error_description := FND_MESSAGE.GET;
1395: return;
1396:
1397: ELSIF lv_rel_state = 'IN PROGRESS' THEN
1390: ELSIF lv_curr_state = 'IN PROGRESS' THEN
1391: return_code := -191301;
1392: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1393: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_curr_wi_instance_id);
1394: error_description := FND_MESSAGE.GET;
1395: return;
1396:
1397: ELSIF lv_rel_state = 'IN PROGRESS' THEN
1398: return_code := -191301;
1395: return;
1396:
1397: ELSIF lv_rel_state = 'IN PROGRESS' THEN
1398: return_code := -191301;
1399: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1400: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1401: error_description := FND_MESSAGE.GET;
1402: return;
1403:
1396:
1397: ELSIF lv_rel_state = 'IN PROGRESS' THEN
1398: return_code := -191301;
1399: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1400: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1401: error_description := FND_MESSAGE.GET;
1402: return;
1403:
1404: ELSE
1397: ELSIF lv_rel_state = 'IN PROGRESS' THEN
1398: return_code := -191301;
1399: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1400: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1401: error_description := FND_MESSAGE.GET;
1402: return;
1403:
1404: ELSE
1405: return_code := -191301;
1402: return;
1403:
1404: ELSE
1405: return_code := -191301;
1406: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1407: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1408: error_description := FND_MESSAGE.GET;
1409: return;
1410: END IF;
1403:
1404: ELSE
1405: return_code := -191301;
1406: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1407: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1408: error_description := FND_MESSAGE.GET;
1409: return;
1410: END IF;
1411: ELSE
1404: ELSE
1405: return_code := -191301;
1406: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RELATION_PROCESS');
1407: FND_MESSAGE.SET_TOKEN('WORK_ITEM_ID', p_related_wi_instance_id);
1408: error_description := FND_MESSAGE.GET;
1409: return;
1410: END IF;
1411: ELSE
1412: return_code := -191288;
1409: return;
1410: END IF;
1411: ELSE
1412: return_code := -191288;
1413: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_WI_RELATION');
1414: FND_MESSAGE.SET_TOKEN('WI_RELATIONSHIP', p_wi_relationship);
1415: error_description := FND_MESSAGE.GET;
1416: return;
1417:
1410: END IF;
1411: ELSE
1412: return_code := -191288;
1413: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_WI_RELATION');
1414: FND_MESSAGE.SET_TOKEN('WI_RELATIONSHIP', p_wi_relationship);
1415: error_description := FND_MESSAGE.GET;
1416: return;
1417:
1418: END IF;
1411: ELSE
1412: return_code := -191288;
1413: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_WI_RELATION');
1414: FND_MESSAGE.SET_TOKEN('WI_RELATIONSHIP', p_wi_relationship);
1415: error_description := FND_MESSAGE.GET;
1416: return;
1417:
1418: END IF;
1419:
1421: EXCEPTION
1422: WHEN OTHERS THEN
1423: rollback to lv_wi_tag;
1424: return_code := -191266;
1425: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1426: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1427: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1428: error_description := FND_MESSAGE.GET;
1429: END Set_Workitem_Relationships;
1422: WHEN OTHERS THEN
1423: rollback to lv_wi_tag;
1424: return_code := -191266;
1425: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1426: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1427: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1428: error_description := FND_MESSAGE.GET;
1429: END Set_Workitem_Relationships;
1430:
1423: rollback to lv_wi_tag;
1424: return_code := -191266;
1425: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1426: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1427: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1428: error_description := FND_MESSAGE.GET;
1429: END Set_Workitem_Relationships;
1430:
1431:
1424: return_code := -191266;
1425: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1426: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1427: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1428: error_description := FND_MESSAGE.GET;
1429: END Set_Workitem_Relationships;
1430:
1431:
1432:
1707: END IF;
1708:
1709: IF lv_order_flag = FALSE AND lv_line_flag = FALSE THEN
1710: return_code := 0;
1711: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1712: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$ORDER');
1713: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE');
1714: error_description := FND_MESSAGE.GET;
1715: return;
1708:
1709: IF lv_order_flag = FALSE AND lv_line_flag = FALSE THEN
1710: return_code := 0;
1711: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1712: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$ORDER');
1713: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE');
1714: error_description := FND_MESSAGE.GET;
1715: return;
1716: END IF;
1709: IF lv_order_flag = FALSE AND lv_line_flag = FALSE THEN
1710: return_code := 0;
1711: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1712: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$ORDER');
1713: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE');
1714: error_description := FND_MESSAGE.GET;
1715: return;
1716: END IF;
1717:
1710: return_code := 0;
1711: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1712: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$ORDER');
1713: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE');
1714: error_description := FND_MESSAGE.GET;
1715: return;
1716: END IF;
1717:
1718: p_where := lv_where;
1718: p_where := lv_where;
1719:
1720: IF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1721: return_code := 0;
1722: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1723: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1724: error_description := FND_MESSAGE.GET;
1725: return;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1719:
1720: IF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1721: return_code := 0;
1722: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1723: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1724: error_description := FND_MESSAGE.GET;
1725: return;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1727: return_code := 0;
1720: IF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1721: return_code := 0;
1722: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1723: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1724: error_description := FND_MESSAGE.GET;
1725: return;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1727: return_code := 0;
1728: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1724: error_description := FND_MESSAGE.GET;
1725: return;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1727: return_code := 0;
1728: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1729: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1730: error_description := FND_MESSAGE.GET;
1731: return;
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1725: return;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1727: return_code := 0;
1728: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1729: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1730: error_description := FND_MESSAGE.GET;
1731: return;
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1733: return_code := 0;
1726: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1727: return_code := 0;
1728: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1729: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1730: error_description := FND_MESSAGE.GET;
1731: return;
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1733: return_code := 0;
1734: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1730: error_description := FND_MESSAGE.GET;
1731: return;
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1733: return_code := 0;
1734: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1735: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1736: error_description := FND_MESSAGE.GET;
1737: return;
1738: END IF;
1731: return;
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1733: return_code := 0;
1734: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1735: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1736: error_description := FND_MESSAGE.GET;
1737: return;
1738: END IF;
1739:
1732: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1733: return_code := 0;
1734: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1735: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1736: error_description := FND_MESSAGE.GET;
1737: return;
1738: END IF;
1739:
1740: IF lv_order_flag = TRUE and lv_line_flag = TRUE THEN
1780:
1781: EXCEPTION
1782: WHEN OTHERS THEN
1783: return_code := -191266;
1784: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1785: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1786: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1787: error_description := FND_MESSAGE.GET;
1788: END Find_Orders;
1781: EXCEPTION
1782: WHEN OTHERS THEN
1783: return_code := -191266;
1784: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1785: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1786: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1787: error_description := FND_MESSAGE.GET;
1788: END Find_Orders;
1789:
1782: WHEN OTHERS THEN
1783: return_code := -191266;
1784: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1785: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1786: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1787: error_description := FND_MESSAGE.GET;
1788: END Find_Orders;
1789:
1790:
1783: return_code := -191266;
1784: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1785: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1786: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1787: error_description := FND_MESSAGE.GET;
1788: END Find_Orders;
1789:
1790:
1791: /*
1840: END IF;
1841:
1842: IF lv_line_flag = FALSE AND lv_param_flag = FALSE THEN
1843: return_code := 0;
1844: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1845: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$LINE');
1846: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE_PARAM');
1847: error_description := FND_MESSAGE.GET;
1848: return;
1841:
1842: IF lv_line_flag = FALSE AND lv_param_flag = FALSE THEN
1843: return_code := 0;
1844: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1845: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$LINE');
1846: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE_PARAM');
1847: error_description := FND_MESSAGE.GET;
1848: return;
1849: END IF;
1842: IF lv_line_flag = FALSE AND lv_param_flag = FALSE THEN
1843: return_code := 0;
1844: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1845: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$LINE');
1846: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE_PARAM');
1847: error_description := FND_MESSAGE.GET;
1848: return;
1849: END IF;
1850:
1843: return_code := 0;
1844: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1845: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$LINE');
1846: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$LINE_PARAM');
1847: error_description := FND_MESSAGE.GET;
1848: return;
1849: END IF;
1850:
1851: p_where := lv_where;
1851: p_where := lv_where;
1852:
1853: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1854: return_code := 0;
1855: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1856: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1857: error_description := FND_MESSAGE.GET;
1858: return;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1852:
1853: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1854: return_code := 0;
1855: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1856: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1857: error_description := FND_MESSAGE.GET;
1858: return;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1860: return_code := 0;
1853: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1854: return_code := 0;
1855: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1856: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1857: error_description := FND_MESSAGE.GET;
1858: return;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1860: return_code := 0;
1861: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1857: error_description := FND_MESSAGE.GET;
1858: return;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1860: return_code := 0;
1861: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1862: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1863: error_description := FND_MESSAGE.GET;
1864: return;
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1858: return;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1860: return_code := 0;
1861: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1862: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1863: error_description := FND_MESSAGE.GET;
1864: return;
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1866: return_code := 0;
1859: ELSIF INSTR(UPPER(p_where),'$WORKITEM.') <> 0 THEN
1860: return_code := 0;
1861: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1862: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WORKITEM');
1863: error_description := FND_MESSAGE.GET;
1864: return;
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1866: return_code := 0;
1867: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1863: error_description := FND_MESSAGE.GET;
1864: return;
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1866: return_code := 0;
1867: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1868: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1869: error_description := FND_MESSAGE.GET;
1870: return;
1871: END IF;
1864: return;
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1866: return_code := 0;
1867: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1868: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1869: error_description := FND_MESSAGE.GET;
1870: return;
1871: END IF;
1872:
1865: ELSIF INSTR(UPPER(p_where),'$WI_PARAM.') <> 0 THEN
1866: return_code := 0;
1867: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1868: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$WI_PARAM');
1869: error_description := FND_MESSAGE.GET;
1870: return;
1871: END IF;
1872:
1873: lv_plsql := 'SELECT DISTINCT OLM.LINE_ITEM_ID FROM '||
1902:
1903: EXCEPTION
1904: WHEN OTHERS THEN
1905: return_code := -191266;
1906: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1907: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1908: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1909: error_description := FND_MESSAGE.GET;
1910: END Find_Lines;
1903: EXCEPTION
1904: WHEN OTHERS THEN
1905: return_code := -191266;
1906: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1907: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1908: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1909: error_description := FND_MESSAGE.GET;
1910: END Find_Lines;
1911:
1904: WHEN OTHERS THEN
1905: return_code := -191266;
1906: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1907: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1908: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1909: error_description := FND_MESSAGE.GET;
1910: END Find_Lines;
1911:
1912:
1905: return_code := -191266;
1906: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
1907: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
1908: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
1909: error_description := FND_MESSAGE.GET;
1910: END Find_Lines;
1911:
1912:
1913: /*
1963: END IF;
1964:
1965: IF lv_wi_flag = FALSE AND lv_param_flag = FALSE THEN
1966: return_code := 0;
1967: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1968: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$WORKITEM');
1969: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$WI_PARAM');
1970: error_description := FND_MESSAGE.GET;
1971: return;
1964:
1965: IF lv_wi_flag = FALSE AND lv_param_flag = FALSE THEN
1966: return_code := 0;
1967: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1968: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$WORKITEM');
1969: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$WI_PARAM');
1970: error_description := FND_MESSAGE.GET;
1971: return;
1972: END IF;
1965: IF lv_wi_flag = FALSE AND lv_param_flag = FALSE THEN
1966: return_code := 0;
1967: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1968: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$WORKITEM');
1969: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$WI_PARAM');
1970: error_description := FND_MESSAGE.GET;
1971: return;
1972: END IF;
1973:
1966: return_code := 0;
1967: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_CRITERIA_ERROR');
1968: FND_MESSAGE.SET_TOKEN('ERROR_STRING1', '$WORKITEM');
1969: FND_MESSAGE.SET_TOKEN('ERROR_STRING2','$WI_PARAM');
1970: error_description := FND_MESSAGE.GET;
1971: return;
1972: END IF;
1973:
1974: p_where := lv_where;
1974: p_where := lv_where;
1975:
1976: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1977: return_code := 0;
1978: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1979: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1980: error_description := FND_MESSAGE.GET;
1981: return;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1975:
1976: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1977: return_code := 0;
1978: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1979: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1980: error_description := FND_MESSAGE.GET;
1981: return;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1983: return_code := 0;
1976: IF INSTR(UPPER(p_where),'$ORDER.') <> 0 THEN
1977: return_code := 0;
1978: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1979: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$ORDER');
1980: error_description := FND_MESSAGE.GET;
1981: return;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1983: return_code := 0;
1984: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1980: error_description := FND_MESSAGE.GET;
1981: return;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1983: return_code := 0;
1984: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1985: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE');
1986: error_description := FND_MESSAGE.GET;
1987: return;
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1981: return;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1983: return_code := 0;
1984: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1985: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE');
1986: error_description := FND_MESSAGE.GET;
1987: return;
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1989: return_code := 0;
1982: ELSIF INSTR(UPPER(p_where),'$LINE.') <> 0 THEN
1983: return_code := 0;
1984: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1985: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE');
1986: error_description := FND_MESSAGE.GET;
1987: return;
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1989: return_code := 0;
1990: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1986: error_description := FND_MESSAGE.GET;
1987: return;
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1989: return_code := 0;
1990: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1991: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1992: error_description := FND_MESSAGE.GET;
1993: return;
1994: END IF;
1987: return;
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1989: return_code := 0;
1990: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1991: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1992: error_description := FND_MESSAGE.GET;
1993: return;
1994: END IF;
1995:
1988: ELSIF INSTR(UPPER(p_where),'$LINE_PARAM.') <> 0 THEN
1989: return_code := 0;
1990: FND_MESSAGE.SET_NAME('XDP', 'XDP_MACRO_CONTEXT_ERROR');
1991: FND_MESSAGE.SET_TOKEN('ERROR_STRING', '$LINE_PARAM');
1992: error_description := FND_MESSAGE.GET;
1993: return;
1994: END IF;
1995:
1996: lv_plsql := 'SELECT DISTINCT FWT.WORKITEM_INSTANCE_ID FROM '||
2025:
2026: EXCEPTION
2027: WHEN OTHERS THEN
2028: return_code := -191266;
2029: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2030: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2031: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2032: error_description := FND_MESSAGE.GET;
2033: END Find_Workitems;
2026: EXCEPTION
2027: WHEN OTHERS THEN
2028: return_code := -191266;
2029: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2030: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2031: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2032: error_description := FND_MESSAGE.GET;
2033: END Find_Workitems;
2034:
2027: WHEN OTHERS THEN
2028: return_code := -191266;
2029: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2030: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2031: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2032: error_description := FND_MESSAGE.GET;
2033: END Find_Workitems;
2034:
2035:
2028: return_code := -191266;
2029: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2030: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2031: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2032: error_description := FND_MESSAGE.GET;
2033: END Find_Workitems;
2034:
2035:
2036: /*
2079: END IF;
2080: ELSE
2081: return_code := -191291;
2082: error_description := 'Error: Invalid copy mode.';
2083: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_COPY_MODE');
2084: error_description := FND_MESSAGE.GET;
2085: return;
2086: END IF;
2087:
2080: ELSE
2081: return_code := -191291;
2082: error_description := 'Error: Invalid copy mode.';
2083: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_COPY_MODE');
2084: error_description := FND_MESSAGE.GET;
2085: return;
2086: END IF;
2087:
2088: lv_index := p_order_line_list.LAST;
2111: END LOOP;
2112:
2113: IF lv_src_found = FALSE then
2114: return_code := -191292;
2115: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_NOTIN_ORDER');
2116: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_src_line_item_id);
2117: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_src_sdp_order_id);
2118: error_description := FND_MESSAGE.GET;
2119: return;
2112:
2113: IF lv_src_found = FALSE then
2114: return_code := -191292;
2115: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_NOTIN_ORDER');
2116: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_src_line_item_id);
2117: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_src_sdp_order_id);
2118: error_description := FND_MESSAGE.GET;
2119: return;
2120: End if;
2113: IF lv_src_found = FALSE then
2114: return_code := -191292;
2115: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_NOTIN_ORDER');
2116: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_src_line_item_id);
2117: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_src_sdp_order_id);
2118: error_description := FND_MESSAGE.GET;
2119: return;
2120: End if;
2121:
2114: return_code := -191292;
2115: FND_MESSAGE.SET_NAME('XDP', 'XDP_LI_NOTIN_ORDER');
2116: FND_MESSAGE.SET_TOKEN('LINE_ITEM_ID', p_src_line_item_id);
2117: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_src_sdp_order_id);
2118: error_description := FND_MESSAGE.GET;
2119: return;
2120: End if;
2121:
2122: lv_index := p_line_parameter_list.LAST;
2139:
2140: EXCEPTION
2141: WHEN OTHERS THEN
2142: return_code := -191266;
2143: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2144: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2145: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2146: error_description := FND_MESSAGE.GET;
2147: END Copy_Line;
2140: EXCEPTION
2141: WHEN OTHERS THEN
2142: return_code := -191266;
2143: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2144: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2145: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2146: error_description := FND_MESSAGE.GET;
2147: END Copy_Line;
2148:
2141: WHEN OTHERS THEN
2142: return_code := -191266;
2143: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2144: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2145: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2146: error_description := FND_MESSAGE.GET;
2147: END Copy_Line;
2148:
2149: --
2142: return_code := -191266;
2143: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2144: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2145: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2146: error_description := FND_MESSAGE.GET;
2147: END Copy_Line;
2148:
2149: --
2150: -- Find and replace order header attribute on the where block
2319: if lv_loc2 = 0 then
2320: lv_loc2 := LENGTH(p_replace_block);
2321: end if;
2322: return_code := -191293;
2323: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_HEADER_ERROR');
2324: FND_MESSAGE.SET_TOKEN('HEADER_ATTR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2325: error_description := FND_MESSAGE.GET;
2326: return;
2327: END IF;
2320: lv_loc2 := LENGTH(p_replace_block);
2321: end if;
2322: return_code := -191293;
2323: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_HEADER_ERROR');
2324: FND_MESSAGE.SET_TOKEN('HEADER_ATTR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2325: error_description := FND_MESSAGE.GET;
2326: return;
2327: END IF;
2328:
2321: end if;
2322: return_code := -191293;
2323: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_HEADER_ERROR');
2324: FND_MESSAGE.SET_TOKEN('HEADER_ATTR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2325: error_description := FND_MESSAGE.GET;
2326: return;
2327: END IF;
2328:
2329:
2329:
2330: EXCEPTION
2331: WHEN OTHERS THEN
2332: return_code := -191266;
2333: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2334: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2335: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2336: error_description := FND_MESSAGE.GET;
2337: END Find_Replace_Ord_Header;
2330: EXCEPTION
2331: WHEN OTHERS THEN
2332: return_code := -191266;
2333: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2334: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2335: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2336: error_description := FND_MESSAGE.GET;
2337: END Find_Replace_Ord_Header;
2338:
2331: WHEN OTHERS THEN
2332: return_code := -191266;
2333: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2334: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2335: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2336: error_description := FND_MESSAGE.GET;
2337: END Find_Replace_Ord_Header;
2338:
2339: --
2332: return_code := -191266;
2333: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2334: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2335: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2336: error_description := FND_MESSAGE.GET;
2337: END Find_Replace_Ord_Header;
2338:
2339: --
2340: -- Find and replace order Line attribute on the where block
2496: if lv_loc2 = 0 then
2497: lv_loc2 := LENGTH(p_replace_block);
2498: end if;
2499: return_code := -191294;
2500: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LINE_ATTR_ERROR');
2501: FND_MESSAGE.SET_TOKEN('ERROR_STR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2502: error_description := FND_MESSAGE.GET;
2503: return;
2504: END IF;
2497: lv_loc2 := LENGTH(p_replace_block);
2498: end if;
2499: return_code := -191294;
2500: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LINE_ATTR_ERROR');
2501: FND_MESSAGE.SET_TOKEN('ERROR_STR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2502: error_description := FND_MESSAGE.GET;
2503: return;
2504: END IF;
2505:
2498: end if;
2499: return_code := -191294;
2500: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LINE_ATTR_ERROR');
2501: FND_MESSAGE.SET_TOKEN('ERROR_STR', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2502: error_description := FND_MESSAGE.GET;
2503: return;
2504: END IF;
2505:
2506: EXCEPTION
2505:
2506: EXCEPTION
2507: WHEN OTHERS THEN
2508: return_code := -191266;
2509: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2510: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2511: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2512: error_description := FND_MESSAGE.GET;
2513: END Find_Replace_Line;
2506: EXCEPTION
2507: WHEN OTHERS THEN
2508: return_code := -191266;
2509: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2510: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2511: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2512: error_description := FND_MESSAGE.GET;
2513: END Find_Replace_Line;
2514:
2507: WHEN OTHERS THEN
2508: return_code := -191266;
2509: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2510: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2511: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2512: error_description := FND_MESSAGE.GET;
2513: END Find_Replace_Line;
2514:
2515:
2508: return_code := -191266;
2509: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2510: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2511: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2512: error_description := FND_MESSAGE.GET;
2513: END Find_Replace_Line;
2514:
2515:
2516: --
2540: while lv_loc > 0 loop
2541: lv_loc2 := INSTR(UPPER(p_replace_block),'$',lv_loc,1);
2542: IF lv_loc2 = 0 THEN
2543: return_code := -191295;
2544: FND_MESSAGE.SET_NAME('XDP', 'XDP_LINEPARAM_MACRO_ERROR');
2545: error_description := FND_MESSAGE.GET;
2546: return;
2547: ELSE
2548: lv_loc := INSTR(UPPER(p_replace_block),'OA_GETLINEPARAM',lv_loc2);
2541: lv_loc2 := INSTR(UPPER(p_replace_block),'$',lv_loc,1);
2542: IF lv_loc2 = 0 THEN
2543: return_code := -191295;
2544: FND_MESSAGE.SET_NAME('XDP', 'XDP_LINEPARAM_MACRO_ERROR');
2545: error_description := FND_MESSAGE.GET;
2546: return;
2547: ELSE
2548: lv_loc := INSTR(UPPER(p_replace_block),'OA_GETLINEPARAM',lv_loc2);
2549: lv_tmp_str1 := SUBSTR(p_replace_block,1,lv_loc2 - 1);
2556: END IF;
2557: EXCEPTION
2558: WHEN OTHERS THEN
2559: return_code := -191266;
2560: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2561: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2562: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2563: error_description := FND_MESSAGE.GET;
2564: END Find_Replace_Line_Param;
2557: EXCEPTION
2558: WHEN OTHERS THEN
2559: return_code := -191266;
2560: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2561: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2562: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2563: error_description := FND_MESSAGE.GET;
2564: END Find_Replace_Line_Param;
2565:
2558: WHEN OTHERS THEN
2559: return_code := -191266;
2560: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2561: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2562: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2563: error_description := FND_MESSAGE.GET;
2564: END Find_Replace_Line_Param;
2565:
2566:
2559: return_code := -191266;
2560: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2561: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2562: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2563: error_description := FND_MESSAGE.GET;
2564: END Find_Replace_Line_Param;
2565:
2566:
2567: --
2640: END IF;
2641:
2642: IF INSTR(UPPER(p_replace_block),'$WORKITEM.ERROR_DESCRIPTION$') > 0 THEN
2643: return_code := -191296;
2644: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_WI_ERROR');
2645: error_description := FND_MESSAGE.GET;
2646: END IF;
2647:
2648: lv_loc := INSTR(UPPER(p_replace_block),'$WORKITEM.');
2641:
2642: IF INSTR(UPPER(p_replace_block),'$WORKITEM.ERROR_DESCRIPTION$') > 0 THEN
2643: return_code := -191296;
2644: FND_MESSAGE.SET_NAME('XDP', 'XDP_SEARCH_WI_ERROR');
2645: error_description := FND_MESSAGE.GET;
2646: END IF;
2647:
2648: lv_loc := INSTR(UPPER(p_replace_block),'$WORKITEM.');
2649: IF lv_loc > 0 THEN
2651: if lv_loc2 = 0 then
2652: lv_loc2 := LENGTH(p_replace_block);
2653: end if;
2654: return_code := -191297;
2655: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RECORD_ATTR_ERROR');
2656: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2657: error_description := FND_MESSAGE.GET;
2658: return;
2659: END IF;
2652: lv_loc2 := LENGTH(p_replace_block);
2653: end if;
2654: return_code := -191297;
2655: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RECORD_ATTR_ERROR');
2656: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2657: error_description := FND_MESSAGE.GET;
2658: return;
2659: END IF;
2660:
2653: end if;
2654: return_code := -191297;
2655: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_RECORD_ATTR_ERROR');
2656: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SUBSTR(p_replace_block, lv_loc,lv_loc2- lv_loc + 1));
2657: error_description := FND_MESSAGE.GET;
2658: return;
2659: END IF;
2660:
2661: EXCEPTION
2660:
2661: EXCEPTION
2662: WHEN OTHERS THEN
2663: return_code := -191266;
2664: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2665: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2666: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2667: error_description := FND_MESSAGE.GET;
2668: END Find_Replace_WI;
2661: EXCEPTION
2662: WHEN OTHERS THEN
2663: return_code := -191266;
2664: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2665: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2666: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2667: error_description := FND_MESSAGE.GET;
2668: END Find_Replace_WI;
2669:
2662: WHEN OTHERS THEN
2663: return_code := -191266;
2664: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2665: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2666: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2667: error_description := FND_MESSAGE.GET;
2668: END Find_Replace_WI;
2669:
2670:
2663: return_code := -191266;
2664: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2665: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2666: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2667: error_description := FND_MESSAGE.GET;
2668: END Find_Replace_WI;
2669:
2670:
2671: --
2695: while lv_loc > 0 loop
2696: lv_loc2 := INSTR(UPPER(p_replace_block),'$',lv_loc,1);
2697: IF lv_loc2 = 0 THEN
2698: return_code := -191298;
2699: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_PARAM_MACRO_ERROR');
2700: error_description := FND_MESSAGE.GET;
2701: return;
2702: ELSE
2703: lv_loc := INSTR(UPPER(p_replace_block),'OA_GETWIPARAM',lv_loc2);
2696: lv_loc2 := INSTR(UPPER(p_replace_block),'$',lv_loc,1);
2697: IF lv_loc2 = 0 THEN
2698: return_code := -191298;
2699: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_PARAM_MACRO_ERROR');
2700: error_description := FND_MESSAGE.GET;
2701: return;
2702: ELSE
2703: lv_loc := INSTR(UPPER(p_replace_block),'OA_GETWIPARAM',lv_loc2);
2704: lv_tmp_str1 := SUBSTR(p_replace_block,1,lv_loc2 - 1);
2712:
2713: EXCEPTION
2714: WHEN OTHERS THEN
2715: return_code := -191266;
2716: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2717: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2718: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2719: error_description := FND_MESSAGE.GET;
2720: END Find_Replace_WI_Param;
2713: EXCEPTION
2714: WHEN OTHERS THEN
2715: return_code := -191266;
2716: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2717: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2718: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2719: error_description := FND_MESSAGE.GET;
2720: END Find_Replace_WI_Param;
2721:
2714: WHEN OTHERS THEN
2715: return_code := -191266;
2716: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2717: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2718: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2719: error_description := FND_MESSAGE.GET;
2720: END Find_Replace_WI_Param;
2721:
2722: -- Added procedure to dynamically execute
2715: return_code := -191266;
2716: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
2717: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPOAUTB');
2718: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
2719: error_description := FND_MESSAGE.GET;
2720: END Find_Replace_WI_Param;
2721:
2722: -- Added procedure to dynamically execute
2723: -- user defined procedure for validation of Workitem.