151: x_return_status := 'S';
152: EXCEPTION
153: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: FND_MESSAGE.SET_NAME('GR',
156: 'GR_API_VERSION_ERROR');
157: FND_MESSAGE.SET_TOKEN('VERSION',
158: p_api_version,
159: FALSE);
153: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_ERROR;
155: FND_MESSAGE.SET_NAME('GR',
156: 'GR_API_VERSION_ERROR');
157: FND_MESSAGE.SET_TOKEN('VERSION',
158: p_api_version,
159: FALSE);
160: X_msg_data := FND_MESSAGE.GET;
161: FND_FILE.PUT(FND_FILE.LOG,'API version error');
156: 'GR_API_VERSION_ERROR');
157: FND_MESSAGE.SET_TOKEN('VERSION',
158: p_api_version,
159: FALSE);
160: X_msg_data := FND_MESSAGE.GET;
161: FND_FILE.PUT(FND_FILE.LOG,'API version error');
162: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
163: WHEN ITEM_ID_IS_NULL THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
163: WHEN ITEM_ID_IS_NULL THEN
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: x_error_code := APP_EXCEPTION.Get_Code;
166:
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_ITEM_ID_NULL');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: p_item_id,
171: FALSE);
165: x_error_code := APP_EXCEPTION.Get_Code;
166:
167: FND_MESSAGE.SET_NAME('GR',
168: 'GR_ITEM_ID_NULL');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: p_item_id,
171: FALSE);
172: X_msg_data := FND_MESSAGE.GET;
173: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
168: 'GR_ITEM_ID_NULL');
169: FND_MESSAGE.SET_TOKEN('CODE',
170: p_item_id,
171: FALSE);
172: X_msg_data := FND_MESSAGE.GET;
173: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
174: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
175: WHEN OTHERS THEN
176: x_return_status := 'U';
175: WHEN OTHERS THEN
176: x_return_status := 'U';
177: x_error_code := SQLCODE;
178: l_msg_data := SUBSTR(SQLERRM, 1, 200);
179: FND_MESSAGE.SET_NAME('GR',
180: 'GR_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('TEXT',
182: l_msg_data,
183: FALSE);
177: x_error_code := SQLCODE;
178: l_msg_data := SUBSTR(SQLERRM, 1, 200);
179: FND_MESSAGE.SET_NAME('GR',
180: 'GR_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('TEXT',
182: l_msg_data,
183: FALSE);
184: x_msg_data := FND_MESSAGE.Get;
185:
180: 'GR_UNEXPECTED_ERROR');
181: FND_MESSAGE.SET_TOKEN('TEXT',
182: l_msg_data,
183: FALSE);
184: x_msg_data := FND_MESSAGE.Get;
185:
186: END INITIATE_PROCESS_ITEM_CHNG;
187:
188: /*===========================================================================
361: x_return_status := 'S';
362: EXCEPTION
363: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: FND_MESSAGE.SET_NAME('GR',
366: 'GR_API_VERSION_ERROR');
367: FND_MESSAGE.SET_TOKEN('VERSION',
368: p_api_version,
369: FALSE);
363: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: FND_MESSAGE.SET_NAME('GR',
366: 'GR_API_VERSION_ERROR');
367: FND_MESSAGE.SET_TOKEN('VERSION',
368: p_api_version,
369: FALSE);
370: X_msg_data := FND_MESSAGE.GET;
371: FND_FILE.PUT(FND_FILE.LOG,'API version error');
366: 'GR_API_VERSION_ERROR');
367: FND_MESSAGE.SET_TOKEN('VERSION',
368: p_api_version,
369: FALSE);
370: X_msg_data := FND_MESSAGE.GET;
371: FND_FILE.PUT(FND_FILE.LOG,'API version error');
372: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
373: WHEN ITEM_ID_IS_NULL THEN
374: x_return_status := FND_API.G_RET_STS_ERROR;
373: WHEN ITEM_ID_IS_NULL THEN
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: x_error_code := APP_EXCEPTION.Get_Code;
376:
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ITEM_ID_NULL');
379: FND_MESSAGE.SET_TOKEN('CODE',
380: p_item_id,
381: FALSE);
375: x_error_code := APP_EXCEPTION.Get_Code;
376:
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ITEM_ID_NULL');
379: FND_MESSAGE.SET_TOKEN('CODE',
380: p_item_id,
381: FALSE);
382: X_msg_data := FND_MESSAGE.GET;
383: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
378: 'GR_ITEM_ID_NULL');
379: FND_MESSAGE.SET_TOKEN('CODE',
380: p_item_id,
381: FALSE);
382: X_msg_data := FND_MESSAGE.GET;
383: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
384: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
385: WHEN FORMULA_ID_IS_NULL THEN
386: x_return_status := FND_API.G_RET_STS_ERROR;
385: WHEN FORMULA_ID_IS_NULL THEN
386: x_return_status := FND_API.G_RET_STS_ERROR;
387: x_error_code := APP_EXCEPTION.Get_Code;
388:
389: FND_MESSAGE.SET_NAME('GR',
390: 'GR_FORMULA_ID_NULL');
391: FND_MESSAGE.SET_TOKEN('CODE',
392: p_formula_no,
393: FALSE);
387: x_error_code := APP_EXCEPTION.Get_Code;
388:
389: FND_MESSAGE.SET_NAME('GR',
390: 'GR_FORMULA_ID_NULL');
391: FND_MESSAGE.SET_TOKEN('CODE',
392: p_formula_no,
393: FALSE);
394: X_msg_data := FND_MESSAGE.GET;
395: FND_FILE.PUT(FND_FILE.LOG,'Formula Id is null');
390: 'GR_FORMULA_ID_NULL');
391: FND_MESSAGE.SET_TOKEN('CODE',
392: p_formula_no,
393: FALSE);
394: X_msg_data := FND_MESSAGE.GET;
395: FND_FILE.PUT(FND_FILE.LOG,'Formula Id is null');
396: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
397: WHEN OTHERS THEN
398: x_return_status := 'U';
397: WHEN OTHERS THEN
398: x_return_status := 'U';
399: x_error_code := SQLCODE;
400: l_msg_data := SUBSTR(SQLERRM, 1, 200);
401: FND_MESSAGE.SET_NAME('GR',
402: 'GR_UNEXPECTED_ERROR');
403: FND_MESSAGE.SET_TOKEN('TEXT',
404: l_msg_data,
405: FALSE);
399: x_error_code := SQLCODE;
400: l_msg_data := SUBSTR(SQLERRM, 1, 200);
401: FND_MESSAGE.SET_NAME('GR',
402: 'GR_UNEXPECTED_ERROR');
403: FND_MESSAGE.SET_TOKEN('TEXT',
404: l_msg_data,
405: FALSE);
406: x_msg_data := FND_MESSAGE.Get;
407:
402: 'GR_UNEXPECTED_ERROR');
403: FND_MESSAGE.SET_TOKEN('TEXT',
404: l_msg_data,
405: FALSE);
406: x_msg_data := FND_MESSAGE.Get;
407:
408: END INITIATE_PROCESS_FORMULA_CHNG;
409:
410: /*===========================================================================
581: x_return_status := 'S';
582: EXCEPTION
583: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_ERROR;
585: FND_MESSAGE.SET_NAME('GR',
586: 'GR_API_VERSION_ERROR');
587: FND_MESSAGE.SET_TOKEN('VERSION',
588: p_api_version,
589: FALSE);
583: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
584: x_return_status := FND_API.G_RET_STS_ERROR;
585: FND_MESSAGE.SET_NAME('GR',
586: 'GR_API_VERSION_ERROR');
587: FND_MESSAGE.SET_TOKEN('VERSION',
588: p_api_version,
589: FALSE);
590: X_msg_data := FND_MESSAGE.GET;
591: FND_FILE.PUT(FND_FILE.LOG,'API version error');
586: 'GR_API_VERSION_ERROR');
587: FND_MESSAGE.SET_TOKEN('VERSION',
588: p_api_version,
589: FALSE);
590: X_msg_data := FND_MESSAGE.GET;
591: FND_FILE.PUT(FND_FILE.LOG,'API version error');
592: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
593: WHEN ITEM_ID_IS_NULL THEN
594: x_return_status := FND_API.G_RET_STS_ERROR;
593: WHEN ITEM_ID_IS_NULL THEN
594: x_return_status := FND_API.G_RET_STS_ERROR;
595: x_error_code := APP_EXCEPTION.Get_Code;
596:
597: FND_MESSAGE.SET_NAME('GR',
598: 'GR_ITEM_ID_NULL');
599: FND_MESSAGE.SET_TOKEN('CODE',
600: p_item_id,
601: FALSE);
595: x_error_code := APP_EXCEPTION.Get_Code;
596:
597: FND_MESSAGE.SET_NAME('GR',
598: 'GR_ITEM_ID_NULL');
599: FND_MESSAGE.SET_TOKEN('CODE',
600: p_item_id,
601: FALSE);
602: X_msg_data := FND_MESSAGE.GET;
603: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
598: 'GR_ITEM_ID_NULL');
599: FND_MESSAGE.SET_TOKEN('CODE',
600: p_item_id,
601: FALSE);
602: X_msg_data := FND_MESSAGE.GET;
603: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
604: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
605: WHEN SO_NUMBER_IS_NULL THEN
606: x_return_status := FND_API.G_RET_STS_ERROR;
605: WHEN SO_NUMBER_IS_NULL THEN
606: x_return_status := FND_API.G_RET_STS_ERROR;
607: x_error_code := APP_EXCEPTION.Get_Code;
608:
609: FND_MESSAGE.SET_NAME('GR',
610: 'GR_SO_NUMBER_IS_NULL');
611: FND_MESSAGE.SET_TOKEN('CODE',
612: p_sales_order_no,
613: FALSE);
607: x_error_code := APP_EXCEPTION.Get_Code;
608:
609: FND_MESSAGE.SET_NAME('GR',
610: 'GR_SO_NUMBER_IS_NULL');
611: FND_MESSAGE.SET_TOKEN('CODE',
612: p_sales_order_no,
613: FALSE);
614: X_msg_data := FND_MESSAGE.GET;
615: FND_FILE.PUT(FND_FILE.LOG,'Sales Order Number is null');
610: 'GR_SO_NUMBER_IS_NULL');
611: FND_MESSAGE.SET_TOKEN('CODE',
612: p_sales_order_no,
613: FALSE);
614: X_msg_data := FND_MESSAGE.GET;
615: FND_FILE.PUT(FND_FILE.LOG,'Sales Order Number is null');
616: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
617: WHEN OTHERS THEN
618: x_return_status := 'U';
617: WHEN OTHERS THEN
618: x_return_status := 'U';
619: x_error_code := SQLCODE;
620: l_msg_data := SUBSTR(SQLERRM, 1, 200);
621: FND_MESSAGE.SET_NAME('GR',
622: 'GR_UNEXPECTED_ERROR');
623: FND_MESSAGE.SET_TOKEN('TEXT',
624: l_msg_data,
625: FALSE);
619: x_error_code := SQLCODE;
620: l_msg_data := SUBSTR(SQLERRM, 1, 200);
621: FND_MESSAGE.SET_NAME('GR',
622: 'GR_UNEXPECTED_ERROR');
623: FND_MESSAGE.SET_TOKEN('TEXT',
624: l_msg_data,
625: FALSE);
626: x_msg_data := FND_MESSAGE.Get;
627:
622: 'GR_UNEXPECTED_ERROR');
623: FND_MESSAGE.SET_TOKEN('TEXT',
624: l_msg_data,
625: FALSE);
626: x_msg_data := FND_MESSAGE.Get;
627:
628: END INITIATE_PROCESS_SALES_ORDER;
629:
630: /*===========================================================================
823: x_return_status := 'S';
824: EXCEPTION
825: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
826: x_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MESSAGE.SET_NAME('GR',
828: 'GR_API_VERSION_ERROR');
829: FND_MESSAGE.SET_TOKEN('VERSION',
830: p_api_version,
831: FALSE);
825: WHEN INCOMPATIBLE_API_VERSION_ERROR THEN
826: x_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MESSAGE.SET_NAME('GR',
828: 'GR_API_VERSION_ERROR');
829: FND_MESSAGE.SET_TOKEN('VERSION',
830: p_api_version,
831: FALSE);
832: X_msg_data := FND_MESSAGE.GET;
833: FND_FILE.PUT(FND_FILE.LOG,'API version error');
828: 'GR_API_VERSION_ERROR');
829: FND_MESSAGE.SET_TOKEN('VERSION',
830: p_api_version,
831: FALSE);
832: X_msg_data := FND_MESSAGE.GET;
833: FND_FILE.PUT(FND_FILE.LOG,'API version error');
834: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
835: WHEN ITEM_ID_IS_NULL THEN
836: x_return_status := FND_API.G_RET_STS_ERROR;
835: WHEN ITEM_ID_IS_NULL THEN
836: x_return_status := FND_API.G_RET_STS_ERROR;
837: x_error_code := APP_EXCEPTION.Get_Code;
838:
839: FND_MESSAGE.SET_NAME('GR',
840: 'GR_ITEM_ID_NULL');
841: FND_MESSAGE.SET_TOKEN('CODE',
842: p_tech_data_id,
843: FALSE);
837: x_error_code := APP_EXCEPTION.Get_Code;
838:
839: FND_MESSAGE.SET_NAME('GR',
840: 'GR_ITEM_ID_NULL');
841: FND_MESSAGE.SET_TOKEN('CODE',
842: p_tech_data_id,
843: FALSE);
844: X_msg_data := FND_MESSAGE.GET;
845: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
840: 'GR_ITEM_ID_NULL');
841: FND_MESSAGE.SET_TOKEN('CODE',
842: p_tech_data_id,
843: FALSE);
844: X_msg_data := FND_MESSAGE.GET;
845: FND_FILE.PUT(FND_FILE.LOG,'Item Id is null');
846: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
847: WHEN TECH_DATA_ID_IS_NULL THEN
848: x_return_status := FND_API.G_RET_STS_ERROR;
847: WHEN TECH_DATA_ID_IS_NULL THEN
848: x_return_status := FND_API.G_RET_STS_ERROR;
849: x_error_code := APP_EXCEPTION.Get_Code;
850:
851: FND_MESSAGE.SET_NAME('GR',
852: 'GR_TECH_DATA_ID_NULL');
853: FND_MESSAGE.SET_TOKEN('CODE',
854: p_tech_data_id,
855: FALSE);
849: x_error_code := APP_EXCEPTION.Get_Code;
850:
851: FND_MESSAGE.SET_NAME('GR',
852: 'GR_TECH_DATA_ID_NULL');
853: FND_MESSAGE.SET_TOKEN('CODE',
854: p_tech_data_id,
855: FALSE);
856: X_msg_data := FND_MESSAGE.GET;
857: FND_FILE.PUT(FND_FILE.LOG,'Technical Data Id is null');
852: 'GR_TECH_DATA_ID_NULL');
853: FND_MESSAGE.SET_TOKEN('CODE',
854: p_tech_data_id,
855: FALSE);
856: X_msg_data := FND_MESSAGE.GET;
857: FND_FILE.PUT(FND_FILE.LOG,'Technical Data Id is null');
858: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
859: WHEN OTHERS THEN
860: x_return_status := 'U';
859: WHEN OTHERS THEN
860: x_return_status := 'U';
861: x_error_code := SQLCODE;
862: l_msg_data := SUBSTR(SQLERRM, 1, 200);
863: FND_MESSAGE.SET_NAME('GR',
864: 'GR_UNEXPECTED_ERROR');
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
861: x_error_code := SQLCODE;
862: l_msg_data := SUBSTR(SQLERRM, 1, 200);
863: FND_MESSAGE.SET_NAME('GR',
864: 'GR_UNEXPECTED_ERROR');
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
868: x_msg_data := FND_MESSAGE.Get;
869: END INITIATE_PROCESS_TECH_CHNG;
864: 'GR_UNEXPECTED_ERROR');
865: FND_MESSAGE.SET_TOKEN('TEXT',
866: l_msg_data,
867: FALSE);
868: x_msg_data := FND_MESSAGE.Get;
869: END INITIATE_PROCESS_TECH_CHNG;
870:
871: END GR_WF_UTIL_PUB;