[Home] [Help]
146: );
147:
148: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
149: x_transaction_set_id := l_hdr_rec.transaction_header_id;
150: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
151: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
152: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
153: FND_MSG_PUB.Add;
154:
147:
148: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
149: x_transaction_set_id := l_hdr_rec.transaction_header_id;
150: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
151: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
152: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
153: FND_MSG_PUB.Add;
154:
155: IF FND_API.to_boolean(p_commit) THEN
148: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
149: x_transaction_set_id := l_hdr_rec.transaction_header_id;
150: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
151: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
152: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
153: FND_MSG_PUB.Add;
154:
155: IF FND_API.to_boolean(p_commit) THEN
156: COMMIT WORK;
361: END IF;
362:
363: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
364: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
365: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
366: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','TRANSACTION_DATE');
367: FND_MSG_PUB.Add;
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
362:
363: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
364: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
365: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
366: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','TRANSACTION_DATE');
367: FND_MSG_PUB.Add;
368: RAISE FND_API.G_EXC_ERROR;
369: END IF;
370:
381: END IF;
382:
383: -- Validate the orgn_code.
384: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
385: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
386: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
387: FND_MSG_PUB.Add;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
382:
383: -- Validate the orgn_code.
384: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
385: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
386: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
387: FND_MSG_PUB.Add;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391: OPEN Cur_get_assigment_type(p_hdr_rec.orgn_code);
392: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
393: IF (Cur_get_assigment_type%NOTFOUND) THEN
394: CLOSE Cur_get_assigment_type;
395: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
396: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
397: FND_MSG_PUB.Add;
398: RAISE FND_API.G_EXC_ERROR;
399: END IF;
392: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
393: IF (Cur_get_assigment_type%NOTFOUND) THEN
394: CLOSE Cur_get_assigment_type;
395: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
396: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
397: FND_MSG_PUB.Add;
398: RAISE FND_API.G_EXC_ERROR;
399: END IF;
400: CLOSE Cur_get_assigment_type;
401:
402: --For manual doc numbering, transfer no needs to be specified.
403: IF (p_hdr_rec.assignment_type = 1) THEN
404: IF (p_hdr_rec.transfer_number IS NULL) THEN
405: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_NULL_TRANSFER_NO');
406: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
407: FND_MSG_PUB.Add;
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (p_hdr_rec.transfer_number IS NOT NULL) THEN
402: --For manual doc numbering, transfer no needs to be specified.
403: IF (p_hdr_rec.assignment_type = 1) THEN
404: IF (p_hdr_rec.transfer_number IS NULL) THEN
405: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_NULL_TRANSFER_NO');
406: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
407: FND_MSG_PUB.Add;
408: RAISE FND_API.G_EXC_ERROR;
409: ELSIF (p_hdr_rec.transfer_number IS NOT NULL) THEN
410: --check if the transfer no doesnt exist already
414: IF (l_count > 0) THEN
415: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
416: log_msg('Manual document numbering. This transfer no is in use already');
417: END IF;
418: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
419: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
420: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
415: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
416: log_msg('Manual document numbering. This transfer no is in use already');
417: END IF;
418: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
419: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
420: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
416: log_msg('Manual document numbering. This transfer no is in use already');
417: END IF;
418: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
419: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
420: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: END IF;
425: END IF;
426:
427: --validate the transfer type
428: IF (p_hdr_rec.transfer_type NOT IN (0,1)) THEN
429: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_TRANSFER_TYPE');
430: FND_MESSAGE.SET_TOKEN('TRANSFER_TYPE',p_hdr_rec.transfer_type);
431: FND_MSG_PUB.Add;
432: RAISE FND_API.G_EXC_ERROR;
433: END IF;
426:
427: --validate the transfer type
428: IF (p_hdr_rec.transfer_type NOT IN (0,1)) THEN
429: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_TRANSFER_TYPE');
430: FND_MESSAGE.SET_TOKEN('TRANSFER_TYPE',p_hdr_rec.transfer_type);
431: FND_MSG_PUB.Add;
432: RAISE FND_API.G_EXC_ERROR;
433: END IF;
434:
444: IF (inv_validate.transaction_type (l_odm_txn_type_rec) = inv_validate.F) THEN
445: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
446: log_msg('Failed call to inv_validate.transaction_type.');
447: END IF;
448: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
449: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
450: FND_MSG_PUB.Add;
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
445: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
446: log_msg('Failed call to inv_validate.transaction_type.');
447: END IF;
448: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
449: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
450: FND_MSG_PUB.Add;
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
460:
461: /* All transaction types need an item. Make sure we have */
462: /* one which can be used */
463: IF (p_line_rec_tbl.count = 0) THEN
464: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_LINES');
465: FND_MSG_PUB.Add;
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468:
474: BEGIN
475: --line no should be unique for this transfer.
476: FOR z in 1..p_line_rec_tbl.count LOOP --{
477: IF (z <> i) AND (p_line_rec_tbl(z).line_no = p_line_rec_tbl(i).line_no) THEN
478: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SAME_LINE_NO');
479: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
480: FND_MSG_PUB.Add;
481: RAISE FND_API.G_EXC_ERROR;
482:
475: --line no should be unique for this transfer.
476: FOR z in 1..p_line_rec_tbl.count LOOP --{
477: IF (z <> i) AND (p_line_rec_tbl(z).line_no = p_line_rec_tbl(i).line_no) THEN
478: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SAME_LINE_NO');
479: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
480: FND_MSG_PUB.Add;
481: RAISE FND_API.G_EXC_ERROR;
482:
483: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
494: IF (INV_Validate.Organization(l_org) = inv_validate.F) THEN
495: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
496: log_msg('failed call to INV_Validate.Organization');
497: END IF;
498: FND_MESSAGE.SET_NAME('INV','INV_INT_ORGCODE');
499: FND_MSG_PUB.Add;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
504: x_ic_item_mst_row.item_no := NULL;
505: x_ic_item_mst_row.item_id := p_line_rec_tbl(i).opm_item_id;
506: IF ( GMIVDBL.ic_item_mst_select(x_ic_item_mst_row, x_ic_item_mst_row) ) THEN
507: IF (x_ic_item_mst_row.noninv_ind = 1) THEN
508: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
509: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
510: FND_MSG_PUB.Add;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
505: x_ic_item_mst_row.item_id := p_line_rec_tbl(i).opm_item_id;
506: IF ( GMIVDBL.ic_item_mst_select(x_ic_item_mst_row, x_ic_item_mst_row) ) THEN
507: IF (x_ic_item_mst_row.noninv_ind = 1) THEN
508: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
509: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
510: FND_MSG_PUB.Add;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: ELSE
510: FND_MSG_PUB.Add;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: ELSE
514: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
515: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
516: FND_MSG_PUB.Add;
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513: ELSE
514: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
515: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
516: FND_MSG_PUB.Add;
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519: p_line_rec_tbl(i).opm_item_no := x_ic_item_mst_row.item_no;
529: IF (inv_validate.Inventory_Item (l_item, l_org) = inv_validate.F) THEN
530: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
531: log_msg('failed call to inv_validate.Inventory_Item');
532: END IF;
533: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_ITEM');
534: FND_MSG_PUB.Add;
535: RAISE FND_API.G_EXC_ERROR;
536: END IF;
537:
538: IF ( (nvl(l_item.INVENTORY_ITEM_FLAG,'N') ='N')
539: OR (nvl(l_item.MTL_TRANSACTIONS_ENABLED_FLAG,'N') = 'N')
540: OR (nvl(l_item.SERIAL_NUMBER_CONTROL_CODE,1) <> 1)
541: ) THEN
542: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_ITEM');
543: FND_MSG_PUB.Add;
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546:
551: IF (p_line_rec_tbl(i).odm_item_revision IS NULL) THEN
552: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
553: log_msg('For revision controlled item revision is null');
554: END IF;
555: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
556: FND_MSG_PUB.Add;
557: RAISE FND_API.G_EXC_ERROR;
558: END IF;
559:
560: IF (inv_validate.revision (p_line_rec_tbl(i).odm_item_revision, l_org, l_item) = inv_validate.F) THEN
561: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
562: log_msg('failed call to inv_validate.revision');
563: END IF;
564: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
565: FND_MSG_PUB.Add;
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568:
577: IF (l_count = 0) THEN
578: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
579: log_msg('For revision controlled item revision implementation date is null');
580: END IF;
581: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
582: FND_MSG_PUB.Add;
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: END IF;
587:
588: --We should be dealing with the same item in OPM/ODM
589: IF (l_item.segment1 <> x_ic_item_mst_row.item_no) THEN
590: FND_MESSAGE.SET_NAME ('GMI','GMI_DXFR_DIFF_ITEM');
591: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR;
594: END IF;
587:
588: --We should be dealing with the same item in OPM/ODM
589: IF (l_item.segment1 <> x_ic_item_mst_row.item_no) THEN
590: FND_MESSAGE.SET_NAME ('GMI','GMI_DXFR_DIFF_ITEM');
591: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
592: FND_MSG_PUB.Add;
593: RAISE FND_API.G_EXC_ERROR;
594: END IF;
595:
597: Item should be either lot controlled both in opm/discrete or not
598: lot controlled both in opm/discrete.
599: ************************************************************** */
600: IF (l_item.lot_control_code <> x_ic_item_mst_row.lot_ctl + 1) THEN
601: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_LOT_CONTROL');
602: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
603: FND_MSG_PUB.Add;
604: RAISE FND_API.G_EXC_ERROR;
605: END IF;
598: lot controlled both in opm/discrete.
599: ************************************************************** */
600: IF (l_item.lot_control_code <> x_ic_item_mst_row.lot_ctl + 1) THEN
601: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_LOT_CONTROL');
602: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
603: FND_MSG_PUB.Add;
604: RAISE FND_API.G_EXC_ERROR;
605: END IF;
606:
609: FETCH Cur_get_uom_code INTO l_opm_item_primary_uom_code;
610: CLOSE Cur_get_uom_code;
611:
612: IF (l_item.primary_uom_code <> l_opm_item_primary_uom_code) THEN
613: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_PRIM_UOM');
614: FND_MSG_PUB.Add;
615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617:
622: CLOSE Cur_get_uom_code;
623: END IF;
624:
625: IF ( nvl(l_item.secondary_uom_code,' ') <> nvl(l_opm_item_secondary_uom_code,' ') ) THEN
626: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SEC_UOM');
627: FND_MSG_PUB.Add;
628: RAISE FND_API.G_EXC_ERROR;
629: END IF;
630:
632: x_ic_whse_mst_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
633: IF ( GMIVDBL.ic_whse_mst_select(x_ic_whse_mst_row, x_ic_whse_mst_row) ) THEN
634: NULL;
635: ELSE
636: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_WHSE_CODE_NOT_FOUND');
637: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
638: FND_MSG_PUB.Add;
639: RAISE FND_API.G_EXC_ERROR;
640: END IF;
633: IF ( GMIVDBL.ic_whse_mst_select(x_ic_whse_mst_row, x_ic_whse_mst_row) ) THEN
634: NULL;
635: ELSE
636: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_WHSE_CODE_NOT_FOUND');
637: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
638: FND_MSG_PUB.Add;
639: RAISE FND_API.G_EXC_ERROR;
640: END IF;
641:
667: ) THEN
668: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
669: log_msg('failed call to INV_Validate.from_subinventory');
670: END IF;
671: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SUBINV');
672: FND_MSG_PUB.Add;
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
675:
689: IF (p_line_rec_tbl(i).odm_locator_id IS NOT NULL) THEN
690: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
691: log_msg('ODM locator id is not required as org/sub/item combination is non location controlled');
692: END IF;
693: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
694: FND_MSG_PUB.ADD;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697: ELSE
698: IF (p_line_rec_tbl(i).odm_locator_id IS NULL) THEN
699: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
700: log_msg('ODM locator id is required as org/sub/item combination is location controlled');
701: END IF;
702: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
703: FND_MSG_PUB.ADD;
704: RAISE FND_API.G_EXC_ERROR;
705: END IF;
706:
712: OPEN Cur_get_opm_fiscal_details(p_line_rec_tbl(i).opm_whse_code);
713: FETCH Cur_get_opm_fiscal_details INTO l_get_opm_fiscal_details_row;
714: IF (Cur_get_opm_fiscal_details%NOTFOUND) THEN
715: CLOSE Cur_get_opm_fiscal_details;
716: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_NO_FISCAL_POLICY');
717: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
718: FND_MSG_PUB.Add;
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
713: FETCH Cur_get_opm_fiscal_details INTO l_get_opm_fiscal_details_row;
714: IF (Cur_get_opm_fiscal_details%NOTFOUND) THEN
715: CLOSE Cur_get_opm_fiscal_details;
716: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_NO_FISCAL_POLICY');
717: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
718: FND_MSG_PUB.Add;
719: RAISE FND_API.G_EXC_ERROR;
720: END IF;
721: CLOSE Cur_get_opm_fiscal_details;
724: OPEN Cur_get_odm_fiscal_details(p_line_rec_tbl(i).odm_inv_organization_id);
725: FETCH Cur_get_odm_fiscal_details INTO l_get_odm_fiscal_details_row;
726: IF (Cur_get_odm_fiscal_details%NOTFOUND) THEN
727: CLOSE Cur_get_odm_fiscal_details;
728: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_NO_FISCAL_POLICY');
729: FND_MSG_PUB.Add;
730: RAISE FND_API.G_EXC_ERROR;
731: END IF;
732: CLOSE Cur_get_odm_fiscal_details;
732: CLOSE Cur_get_odm_fiscal_details;
733:
734: --sets of books should be same for inventory organization and opm warehouse
735: IF (l_get_opm_fiscal_details_row.sob_id <> l_get_odm_fiscal_details_row.sob_id) THEN
736: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SOB');
737: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
738: FND_MSG_PUB.Add;
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
733:
734: --sets of books should be same for inventory organization and opm warehouse
735: IF (l_get_opm_fiscal_details_row.sob_id <> l_get_odm_fiscal_details_row.sob_id) THEN
736: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SOB');
737: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
738: FND_MSG_PUB.Add;
739: RAISE FND_API.G_EXC_ERROR;
740: END IF;
741:
745: , p_hdr_rec.orgn_code
746: , p_line_rec_tbl(i).opm_whse_code
747: );
748: IF (l_return_val <> 0) THEN
749: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
750: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
751: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
752: FND_MSG_PUB.Add;
753: RAISE FND_API.G_EXC_ERROR;
746: , p_line_rec_tbl(i).opm_whse_code
747: );
748: IF (l_return_val <> 0) THEN
749: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
750: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
751: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
752: FND_MSG_PUB.Add;
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
747: );
748: IF (l_return_val <> 0) THEN
749: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
750: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
751: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
752: FND_MSG_PUB.Add;
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
755: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
751: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
752: FND_MSG_PUB.Add;
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
755: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
756: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
757: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
758: FND_MSG_PUB.Add;
759: RAISE FND_API.G_EXC_ERROR;
752: FND_MSG_PUB.Add;
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
755: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
756: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
757: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
758: FND_MSG_PUB.Add;
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
753: RAISE FND_API.G_EXC_ERROR;
754: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
755: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
756: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
757: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
758: FND_MSG_PUB.Add;
759: RAISE FND_API.G_EXC_ERROR;
760: END IF;
761:
773: INV_OPEN_PAST_PERIOD
774: );
775:
776: IF (p_line_rec_tbl(i).odm_period_id = 0) THEN
777: FND_MESSAGE.SET_NAME('INV','INV_NO_OPEN_PERIOD');
778: FND_MSG_PUB.Add;
779: RAISE FND_API.G_EXC_ERROR;
780: ELSIF (p_line_rec_tbl(i).odm_period_id = -1) THEN
781: FND_MESSAGE.SET_NAME('INV', 'INV_RETRIEVE_PERIOD');
777: FND_MESSAGE.SET_NAME('INV','INV_NO_OPEN_PERIOD');
778: FND_MSG_PUB.Add;
779: RAISE FND_API.G_EXC_ERROR;
780: ELSIF (p_line_rec_tbl(i).odm_period_id = -1) THEN
781: FND_MESSAGE.SET_NAME('INV', 'INV_RETRIEVE_PERIOD');
782: FND_MSG_PUB.Add;
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
784: END IF;
785:
786: IF (INV_TRANS_DATE_OPTION = 3) THEN
787: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
788: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
789: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
790: FND_MSG_PUB.Add;
791: RAISE FND_API.G_EXC_ERROR;
792: END IF;
785:
786: IF (INV_TRANS_DATE_OPTION = 3) THEN
787: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
788: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
789: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
790: FND_MSG_PUB.Add;
791: RAISE FND_API.G_EXC_ERROR;
792: END IF;
793: ELSIF (INV_TRANS_DATE_OPTION = 4) THEN
791: RAISE FND_API.G_EXC_ERROR;
792: END IF;
793: ELSIF (INV_TRANS_DATE_OPTION = 4) THEN
794: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
795: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
796: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
797: FND_MSG_PUB.Add;
798: END IF;
799: END IF;
792: END IF;
793: ELSIF (INV_TRANS_DATE_OPTION = 4) THEN
794: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
795: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
796: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
797: FND_MSG_PUB.Add;
798: END IF;
799: END IF;
800:
801: --validate the reason code for the transfer
802: x_sy_reas_cds_row.reason_code := p_line_rec_tbl(i).opm_reason_code;
803: IF GMIVDBL.sy_reas_cds_select(x_sy_reas_cds_row, x_sy_reas_cds_row) THEN
804: IF (x_sy_reas_cds_row.reason_type = 1 AND p_hdr_rec.transfer_type = 0) THEN
805: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEINCREASE');
806: FND_MSG_PUB.Add;
807: RAISE FND_API.G_EXC_ERROR;
808: ELSIF (x_sy_reas_cds_row.reason_type = 2 AND p_hdr_rec.transfer_type = 1) THEN
809: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEDECREASE');
805: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEINCREASE');
806: FND_MSG_PUB.Add;
807: RAISE FND_API.G_EXC_ERROR;
808: ELSIF (x_sy_reas_cds_row.reason_type = 2 AND p_hdr_rec.transfer_type = 1) THEN
809: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEDECREASE');
810: FND_MSG_PUB.Add;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF;
813: ELSE
810: FND_MSG_PUB.Add;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF;
813: ELSE
814: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
815: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
816: FND_MSG_PUB.Add;
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
811: RAISE FND_API.G_EXC_ERROR;
812: END IF;
813: ELSE
814: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
815: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
816: FND_MSG_PUB.Add;
817: RAISE FND_API.G_EXC_ERROR;
818: END IF;
819:
823: IF (INV_Validate.Reason(p_line_rec_tbl(i).odm_reason_id) = inv_validate.F) THEN
824: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
825: log_msg('failed call to INV_Validate.Reason');
826: END IF;
827: FND_MESSAGE.SET_NAME('INV','INV_INT_REACODE');
828: FND_MSG_PUB.Add;
829: RAISE FND_API.G_EXC_ERROR;
830: END IF;
831: END IF;
831: END IF;
832:
833: --For transfers the quantity should be positive
834: IF (p_line_rec_tbl(i).quantity IS NULL) THEN
835: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY');
836: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
837: FND_MSG_PUB.Add;
838: RAISE FND_API.G_EXC_ERROR;
839: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
832:
833: --For transfers the quantity should be positive
834: IF (p_line_rec_tbl(i).quantity IS NULL) THEN
835: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY');
836: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
837: FND_MSG_PUB.Add;
838: RAISE FND_API.G_EXC_ERROR;
839: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
840: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
836: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
837: FND_MSG_PUB.Add;
838: RAISE FND_API.G_EXC_ERROR;
839: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
840: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
841: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
842: FND_MSG_PUB.Add;
843: RAISE FND_API.G_EXC_ERROR;
844: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
837: FND_MSG_PUB.Add;
838: RAISE FND_API.G_EXC_ERROR;
839: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
840: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
841: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
842: FND_MSG_PUB.Add;
843: RAISE FND_API.G_EXC_ERROR;
844: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
845: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
841: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
842: FND_MSG_PUB.Add;
843: RAISE FND_API.G_EXC_ERROR;
844: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
845: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
846: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
847: FND_MSG_PUB.Add;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
842: FND_MSG_PUB.Add;
843: RAISE FND_API.G_EXC_ERROR;
844: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
845: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
846: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
847: FND_MSG_PUB.Add;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850:
854: IF ( (p_line_rec_tbl(i).quantity_um <> x_ic_item_mst_row.item_um)
855: AND (NOT GMA_VALID_GRP.Validate_um(p_line_rec_tbl(i).quantity_um))
856: ) THEN
857:
858: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
859: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
860: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_ERROR;
855: AND (NOT GMA_VALID_GRP.Validate_um(p_line_rec_tbl(i).quantity_um))
856: ) THEN
857:
858: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
859: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
860: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
856: ) THEN
857:
858: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
859: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
860: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
861: FND_MSG_PUB.Add;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
874: IF (inv_validate.uom(p_line_rec_tbl(i).odm_quantity_uom_code,l_org,l_item) = inv_validate.F) THEN
875: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
876: log_msg('failed call to inv_validate.uom');
877: END IF;
878: FND_MESSAGE.SET_NAME('INV','INV-NO ITEM UOM');
879: FND_MSG_PUB.Add;
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882:
887: IF (nvl(p_line_rec_tbl(i).opm_location,GMIGUTL.IC$DEFAULT_LOCT) <> GMIGUTL.IC$DEFAULT_LOCT) THEN
888: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
889: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
890: END IF;
891: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
892: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
893: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
894: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
895: FND_MSG_PUB.Add;
888: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
889: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
890: END IF;
891: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
892: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
893: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
894: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
895: FND_MSG_PUB.Add;
896: RAISE FND_API.G_EXC_ERROR;
889: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
890: END IF;
891: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
892: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
893: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
894: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
895: FND_MSG_PUB.Add;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
890: END IF;
891: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
892: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
893: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
894: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
895: FND_MSG_PUB.Add;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: p_line_rec_tbl(i).opm_location := GMIGUTL.IC$DEFAULT_LOCT;
908: IF (l_count = 0) THEN
909: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
910: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
911: END IF;
912: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
913: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
914: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
915: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
916: FND_MSG_PUB.Add;
909: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
910: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
911: END IF;
912: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
913: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
914: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
915: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
916: FND_MSG_PUB.Add;
917: RAISE FND_API.G_EXC_ERROR;
910: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
911: END IF;
912: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
913: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
914: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
915: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
916: FND_MSG_PUB.Add;
917: RAISE FND_API.G_EXC_ERROR;
918: END IF;
911: END IF;
912: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
913: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
914: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
915: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
916: FND_MSG_PUB.Add;
917: RAISE FND_API.G_EXC_ERROR;
918: END IF;
919: ELSIF ( (x_ic_whse_mst_row.loct_ctl = 2)
929: IF (l_count = 0) AND (p_hdr_rec.transfer_type = 0) THEN
930: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
931: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
932: END IF;
933: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
934: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
936: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
937: FND_MSG_PUB.Add;
930: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
931: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
932: END IF;
933: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
934: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
936: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
937: FND_MSG_PUB.Add;
938: RAISE FND_API.G_EXC_ERROR;
931: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
932: END IF;
933: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
934: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
936: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
937: FND_MSG_PUB.Add;
938: RAISE FND_API.G_EXC_ERROR;
939: END IF;
932: END IF;
933: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
934: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
935: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
936: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
937: FND_MSG_PUB.Add;
938: RAISE FND_API.G_EXC_ERROR;
939: END IF;
940:
945: IF ( (l_org.primary_cost_method NOT IN ('2', '5', '6') )
946: OR (l_item.inventory_asset_flag <> 'Y')
947: OR (l_sub.asset_inventory <> 1)
948: ) THEN
949: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_COST_SHOULD_BE_NULL');
950: FND_MSG_PUB.Add;
951: RAISE FND_API.G_EXC_ERROR;
952: END IF;
953: END IF;
960: IF (p_lot_rec_tbl(k).line_no = p_line_rec_tbl(i).line_no) THEN
961: --If lot is specified at line level then it cannot be specified at lot level.
962: --for non lot controlled items default lot could be specified only at the line level.
963: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
964: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_RECORD_NOT_NEEDED');
965: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
966: FND_MSG_PUB.Add;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
961: --If lot is specified at line level then it cannot be specified at lot level.
962: --for non lot controlled items default lot could be specified only at the line level.
963: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
964: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_RECORD_NOT_NEEDED');
965: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
966: FND_MSG_PUB.Add;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
969:
969:
970: IF ( (p_line_rec_tbl(i).opm_lot_id IS NOT NULL)
971: OR (p_line_rec_tbl(i).odm_lot_number IS NOT NULL)
972: ) THEN
973: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_LOT_RECORDS');
974: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
975: FND_MSG_PUB.Add;
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
970: IF ( (p_line_rec_tbl(i).opm_lot_id IS NOT NULL)
971: OR (p_line_rec_tbl(i).odm_lot_number IS NOT NULL)
972: ) THEN
973: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_LOT_RECORDS');
974: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
975: FND_MSG_PUB.Add;
976: RAISE FND_API.G_EXC_ERROR;
977: END IF;
978:
984: END LOOP;
985: IF (l_lot_count > 0) THEN
986: p_line_rec_tbl(i).lot_level := 1;
987: IF (p_line_rec_tbl(i).quantity <> l_check_qty) THEN
988: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LINE_LOT_QTY_DIFF');
989: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
990: FND_MSG_PUB.Add;
991: RAISE FND_API.G_EXC_ERROR;
992: END IF;
985: IF (l_lot_count > 0) THEN
986: p_line_rec_tbl(i).lot_level := 1;
987: IF (p_line_rec_tbl(i).quantity <> l_check_qty) THEN
988: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LINE_LOT_QTY_DIFF');
989: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
990: FND_MSG_PUB.Add;
991: RAISE FND_API.G_EXC_ERROR;
992: END IF;
993: ELSIF (l_lot_count = 0) THEN
1018: END IF;
1019: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN --{
1020:
1021: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1022: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1023: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1024: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1025: FND_MSG_PUB.Add;
1026: RAISE FND_API.G_EXC_ERROR;
1019: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN --{
1020:
1021: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1022: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1023: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1024: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1025: FND_MSG_PUB.Add;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1020:
1021: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1022: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1023: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1024: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1025: FND_MSG_PUB.Add;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1028: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1024: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1025: FND_MSG_PUB.Add;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1028: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1029: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1030: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1031: FND_MSG_PUB.Add;
1032: RAISE FND_API.G_EXC_ERROR;
1025: FND_MSG_PUB.Add;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1028: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1029: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1030: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1031: FND_MSG_PUB.Add;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1026: RAISE FND_API.G_EXC_ERROR;
1027: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1028: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1029: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1030: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1031: FND_MSG_PUB.Add;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034:
1036: --{
1037: IF (p_hdr_rec.transfer_type = 0) THEN
1038: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1039: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1040: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1041: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1042: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1043: FND_MSG_PUB.Add;
1044: RAISE FND_API.G_EXC_ERROR;
1037: IF (p_hdr_rec.transfer_type = 0) THEN
1038: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1039: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1040: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1041: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1042: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1043: FND_MSG_PUB.Add;
1044: RAISE FND_API.G_EXC_ERROR;
1045:
1038: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1039: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1040: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1041: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1042: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1043: FND_MSG_PUB.Add;
1044: RAISE FND_API.G_EXC_ERROR;
1045:
1046: END IF;
1046: END IF;
1047:
1048: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1049: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1050: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1051: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1052: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1053: FND_MSG_PUB.Add;
1054: RAISE FND_API.G_EXC_ERROR;
1047:
1048: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1049: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1050: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1051: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1052: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1053: FND_MSG_PUB.Add;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1048: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1049: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1050: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1051: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1052: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1053: FND_MSG_PUB.Add;
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1056: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1064: AND lot_id = p_lot_rec_tbl(j).opm_lot_id;
1065:
1066: EXCEPTION
1067: WHEN NO_DATA_FOUND THEN
1068: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1069: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1070: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1071: FND_MSG_PUB.Add;
1072: RAISE FND_API.G_EXC_ERROR;
1065:
1066: EXCEPTION
1067: WHEN NO_DATA_FOUND THEN
1068: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1069: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1070: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1071: FND_MSG_PUB.Add;
1072: RAISE FND_API.G_EXC_ERROR;
1073:
1066: EXCEPTION
1067: WHEN NO_DATA_FOUND THEN
1068: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1069: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1070: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1071: FND_MSG_PUB.Add;
1072: RAISE FND_API.G_EXC_ERROR;
1073:
1074: END;
1111: END IF;
1112:
1113: IF (l_return_val < 0) THEN
1114: IF (l_return_val = -1) THEN
1115: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1116: ELSIF (l_return_val = -3) THEN
1117: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1118: ELSIF (l_return_val = -4) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: IF (l_return_val < 0) THEN
1114: IF (l_return_val = -1) THEN
1115: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1116: ELSIF (l_return_val = -3) THEN
1117: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1118: ELSIF (l_return_val = -4) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1120: ELSIF (l_return_val = -5) THEN
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1116: ELSIF (l_return_val = -3) THEN
1117: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1118: ELSIF (l_return_val = -4) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1120: ELSIF (l_return_val = -5) THEN
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1122: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1118: ELSIF (l_return_val = -4) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1120: ELSIF (l_return_val = -5) THEN
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1122: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1124: ELSIF (l_return_val = -6) THEN
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1118: ELSIF (l_return_val = -4) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1120: ELSIF (l_return_val = -5) THEN
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1122: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1124: ELSIF (l_return_val = -6) THEN
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1126: ELSIF (l_return_val = -7) THEN
1119: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1120: ELSIF (l_return_val = -5) THEN
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1122: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1124: ELSIF (l_return_val = -6) THEN
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1126: ELSIF (l_return_val = -7) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1122: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1124: ELSIF (l_return_val = -6) THEN
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1126: ELSIF (l_return_val = -7) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1128: ELSIF (l_return_val = -10) THEN
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1124: ELSIF (l_return_val = -6) THEN
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1126: ELSIF (l_return_val = -7) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1128: ELSIF (l_return_val = -10) THEN
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1130: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1126: ELSIF (l_return_val = -7) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1128: ELSIF (l_return_val = -10) THEN
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1130: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1132: ELSIF (l_return_val = -11) THEN
1133: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1126: ELSIF (l_return_val = -7) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1128: ELSIF (l_return_val = -10) THEN
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1130: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1132: ELSIF (l_return_val = -11) THEN
1133: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1134: ELSIF (l_return_val < -11) THEN
1127: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1128: ELSIF (l_return_val = -10) THEN
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1130: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1132: ELSIF (l_return_val = -11) THEN
1133: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1134: ELSIF (l_return_val < -11) THEN
1135: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1129: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1130: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1132: ELSIF (l_return_val = -11) THEN
1133: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1134: ELSIF (l_return_val < -11) THEN
1135: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1136: END IF;
1137: FND_MSG_PUB.ADD;
1131: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1132: ELSIF (l_return_val = -11) THEN
1133: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1134: ELSIF (l_return_val < -11) THEN
1135: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1136: END IF;
1137: FND_MSG_PUB.ADD;
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140:
1141: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1142: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1143: ) THEN
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1145: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1146: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1141: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1142: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1143: ) THEN
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1145: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1146: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1142: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1143: ) THEN
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1145: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1146: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: ELSE
1147: FND_MSG_PUB.Add;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: ELSE
1151: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
1152: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1153: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1154: FND_MSG_PUB.Add;
1155: RAISE FND_API.G_EXC_ERROR;
1148: RAISE FND_API.G_EXC_ERROR;
1149: END IF;
1150: ELSE
1151: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
1152: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1153: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1154: FND_MSG_PUB.Add;
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;--}
1149: END IF;
1150: ELSE
1151: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
1152: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1153: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1154: FND_MSG_PUB.Add;
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;--}
1157:
1163: ELSE
1164: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1165:
1166: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1167: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1168: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1169: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1170: FND_MSG_PUB.Add;
1171: RAISE FND_API.G_EXC_ERROR;
1164: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1165:
1166: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1167: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1168: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1169: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1170: FND_MSG_PUB.Add;
1171: RAISE FND_API.G_EXC_ERROR;
1172: END IF;
1165:
1166: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1167: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1168: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1169: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1170: FND_MSG_PUB.Add;
1171: RAISE FND_API.G_EXC_ERROR;
1172: END IF;
1173:
1189: END IF;
1190:
1191: IF (l_return_val < 0) THEN
1192: IF (l_return_val = -1) THEN
1193: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1194: ELSIF (l_return_val = -3) THEN
1195: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1196: ELSIF (l_return_val = -4) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: IF (l_return_val < 0) THEN
1192: IF (l_return_val = -1) THEN
1193: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1194: ELSIF (l_return_val = -3) THEN
1195: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1196: ELSIF (l_return_val = -4) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1198: ELSIF (l_return_val = -5) THEN
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1194: ELSIF (l_return_val = -3) THEN
1195: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1196: ELSIF (l_return_val = -4) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1198: ELSIF (l_return_val = -5) THEN
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1200: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1196: ELSIF (l_return_val = -4) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1198: ELSIF (l_return_val = -5) THEN
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1200: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1202: ELSIF (l_return_val = -6) THEN
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1196: ELSIF (l_return_val = -4) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1198: ELSIF (l_return_val = -5) THEN
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1200: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1202: ELSIF (l_return_val = -6) THEN
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1204: ELSIF (l_return_val = -7) THEN
1197: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1198: ELSIF (l_return_val = -5) THEN
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1200: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1202: ELSIF (l_return_val = -6) THEN
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1204: ELSIF (l_return_val = -7) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1200: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1202: ELSIF (l_return_val = -6) THEN
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1204: ELSIF (l_return_val = -7) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1206: ELSIF (l_return_val = -10) THEN
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1202: ELSIF (l_return_val = -6) THEN
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1204: ELSIF (l_return_val = -7) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1206: ELSIF (l_return_val = -10) THEN
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1208: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1204: ELSIF (l_return_val = -7) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1206: ELSIF (l_return_val = -10) THEN
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1208: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1210: ELSIF (l_return_val = -11) THEN
1211: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1204: ELSIF (l_return_val = -7) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1206: ELSIF (l_return_val = -10) THEN
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1208: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1210: ELSIF (l_return_val = -11) THEN
1211: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1212: ELSIF (l_return_val < -11) THEN
1205: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1206: ELSIF (l_return_val = -10) THEN
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1208: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1210: ELSIF (l_return_val = -11) THEN
1211: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1212: ELSIF (l_return_val < -11) THEN
1213: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1207: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1208: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1210: ELSIF (l_return_val = -11) THEN
1211: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1212: ELSIF (l_return_val < -11) THEN
1213: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1214: END IF;
1215: FND_MSG_PUB.ADD;
1209: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1210: ELSIF (l_return_val = -11) THEN
1211: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1212: ELSIF (l_return_val < -11) THEN
1213: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1214: END IF;
1215: FND_MSG_PUB.ADD;
1216: RAISE FND_API.G_EXC_ERROR;
1217: END IF;
1264:
1265: IF ( ( l_item.indivisible_flag = 'Y' )
1266: AND ( Round(p_lot_rec_tbl(j).odm_primary_quantity,(38-1)) <> TRUNC(p_lot_rec_tbl(j).odm_primary_quantity))
1267: ) then
1268: FND_MESSAGE.SET_NAME('INV', 'DIVISIBILITY_VIOLATION');
1269: FND_MSG_PUB.Add;
1270: RAISE FND_API.G_EXC_ERROR ;
1271: END IF;
1272:
1276: --lets validate the ODM Lot number
1277: --{
1278: IF (l_item.lot_control_code = 1) THEN
1279: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1280: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1281: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1282: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1283: FND_MSG_PUB.Add;
1284: RAISE FND_API.G_EXC_ERROR;
1277: --{
1278: IF (l_item.lot_control_code = 1) THEN
1279: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1280: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1281: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1282: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1283: FND_MSG_PUB.Add;
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1278: IF (l_item.lot_control_code = 1) THEN
1279: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1280: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1281: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1282: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1283: FND_MSG_PUB.Add;
1284: RAISE FND_API.G_EXC_ERROR;
1285: END IF;
1286:
1290: --{
1291: IF (l_item.lot_control_code = 2) THEN
1292:
1293: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1294: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1295: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1296: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1297: FND_MSG_PUB.Add;
1298: RAISE FND_API.G_EXC_ERROR;
1291: IF (l_item.lot_control_code = 2) THEN
1292:
1293: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1294: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1295: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1296: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1297: FND_MSG_PUB.Add;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1292:
1293: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1294: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1295: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1296: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1297: FND_MSG_PUB.Add;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300:
1355: END IF;
1356:
1357: IF (l_return_val < 0) THEN
1358: IF (l_return_val = -1) THEN
1359: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1360: ELSIF (l_return_val = -3) THEN
1361: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1362: ELSIF (l_return_val = -4) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: IF (l_return_val < 0) THEN
1358: IF (l_return_val = -1) THEN
1359: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1360: ELSIF (l_return_val = -3) THEN
1361: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1362: ELSIF (l_return_val = -4) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1364: ELSIF (l_return_val = -5) THEN
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1360: ELSIF (l_return_val = -3) THEN
1361: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1362: ELSIF (l_return_val = -4) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1364: ELSIF (l_return_val = -5) THEN
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1366: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1362: ELSIF (l_return_val = -4) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1364: ELSIF (l_return_val = -5) THEN
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1366: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1368: ELSIF (l_return_val = -6) THEN
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1362: ELSIF (l_return_val = -4) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1364: ELSIF (l_return_val = -5) THEN
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1366: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1368: ELSIF (l_return_val = -6) THEN
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1370: ELSIF (l_return_val = -7) THEN
1363: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1364: ELSIF (l_return_val = -5) THEN
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1366: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1368: ELSIF (l_return_val = -6) THEN
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1370: ELSIF (l_return_val = -7) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1366: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1368: ELSIF (l_return_val = -6) THEN
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1370: ELSIF (l_return_val = -7) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1372: ELSIF (l_return_val = -10) THEN
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1368: ELSIF (l_return_val = -6) THEN
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1370: ELSIF (l_return_val = -7) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1372: ELSIF (l_return_val = -10) THEN
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1374: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1370: ELSIF (l_return_val = -7) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1372: ELSIF (l_return_val = -10) THEN
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1374: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1376: ELSIF (l_return_val = -11) THEN
1377: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1370: ELSIF (l_return_val = -7) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1372: ELSIF (l_return_val = -10) THEN
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1374: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1376: ELSIF (l_return_val = -11) THEN
1377: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1378: ELSIF (l_return_val < -11) THEN
1371: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1372: ELSIF (l_return_val = -10) THEN
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1374: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1376: ELSIF (l_return_val = -11) THEN
1377: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1378: ELSIF (l_return_val < -11) THEN
1379: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1373: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1374: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1376: ELSIF (l_return_val = -11) THEN
1377: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1378: ELSIF (l_return_val < -11) THEN
1379: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1380: END IF;
1381: FND_MSG_PUB.ADD;
1375: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1376: ELSIF (l_return_val = -11) THEN
1377: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1378: ELSIF (l_return_val < -11) THEN
1379: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1380: END IF;
1381: FND_MSG_PUB.ADD;
1382: RAISE FND_API.G_EXC_ERROR;
1383: END IF;
1385: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
1386: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1387:
1388: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1389: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1390: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1391: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1392: FND_MSG_PUB.Add;
1393: RAISE FND_API.G_EXC_ERROR;
1386: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1387:
1388: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1389: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1390: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1391: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1392: FND_MSG_PUB.Add;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1387:
1388: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1389: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1390: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1391: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1392: FND_MSG_PUB.Add;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1412: END IF;
1413:
1414: IF (l_return_val < 0) THEN
1415: IF (l_return_val = -1) THEN
1416: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1417: ELSIF (l_return_val = -3) THEN
1418: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1419: ELSIF (l_return_val = -4) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: IF (l_return_val < 0) THEN
1415: IF (l_return_val = -1) THEN
1416: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1417: ELSIF (l_return_val = -3) THEN
1418: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1419: ELSIF (l_return_val = -4) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1421: ELSIF (l_return_val = -5) THEN
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1417: ELSIF (l_return_val = -3) THEN
1418: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1419: ELSIF (l_return_val = -4) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1421: ELSIF (l_return_val = -5) THEN
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1423: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1419: ELSIF (l_return_val = -4) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1421: ELSIF (l_return_val = -5) THEN
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1423: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1425: ELSIF (l_return_val = -6) THEN
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1419: ELSIF (l_return_val = -4) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1421: ELSIF (l_return_val = -5) THEN
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1423: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1425: ELSIF (l_return_val = -6) THEN
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1427: ELSIF (l_return_val = -7) THEN
1420: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1421: ELSIF (l_return_val = -5) THEN
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1423: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1425: ELSIF (l_return_val = -6) THEN
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1427: ELSIF (l_return_val = -7) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1423: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1425: ELSIF (l_return_val = -6) THEN
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1427: ELSIF (l_return_val = -7) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1429: ELSIF (l_return_val = -10) THEN
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1425: ELSIF (l_return_val = -6) THEN
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1427: ELSIF (l_return_val = -7) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1429: ELSIF (l_return_val = -10) THEN
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1431: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1427: ELSIF (l_return_val = -7) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1429: ELSIF (l_return_val = -10) THEN
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1431: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1433: ELSIF (l_return_val = -11) THEN
1434: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1427: ELSIF (l_return_val = -7) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1429: ELSIF (l_return_val = -10) THEN
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1431: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1433: ELSIF (l_return_val = -11) THEN
1434: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1435: ELSIF (l_return_val < -11) THEN
1428: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1429: ELSIF (l_return_val = -10) THEN
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1431: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1433: ELSIF (l_return_val = -11) THEN
1434: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1435: ELSIF (l_return_val < -11) THEN
1436: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1430: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1431: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1433: ELSIF (l_return_val = -11) THEN
1434: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1435: ELSIF (l_return_val < -11) THEN
1436: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1437: END IF;
1438: FND_MSG_PUB.ADD;
1432: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1433: ELSIF (l_return_val = -11) THEN
1434: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1435: ELSIF (l_return_val < -11) THEN
1436: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1437: END IF;
1438: FND_MSG_PUB.ADD;
1439: RAISE FND_API.G_EXC_ERROR;
1440: END IF;
1597: log_msg('After call to gmf_validate_account.validate_segments. return status is ' ||x_return_status);
1598: END IF;
1599:
1600: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1601: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1602: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1603: FND_MSG_PUB.Add;
1604: RAISE FND_API.G_EXC_ERROR;
1605: END IF;
1598: END IF;
1599:
1600: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1601: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1602: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1603: FND_MSG_PUB.Add;
1604: RAISE FND_API.G_EXC_ERROR;
1605: END IF;
1606:
1628: WHEN OTHERS THEN
1629: ROLLBACK to validate_transfer;
1630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1631: IF (SQLCODE IS NOT NULL) THEN
1632: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1633: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1634: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1635: END IF;
1636:
1629: ROLLBACK to validate_transfer;
1630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1631: IF (SQLCODE IS NOT NULL) THEN
1632: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1633: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1634: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1635: END IF;
1636:
1637: FND_MSG_PUB.Count_AND_GET
1630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1631: IF (SQLCODE IS NOT NULL) THEN
1632: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1633: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1634: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1635: END IF;
1636:
1637: FND_MSG_PUB.Count_AND_GET
1638: (p_count => x_msg_count, p_data => x_msg_data);
1731:
1732: END IF;
1733:
1734: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1735: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1736: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1737: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1738: FND_MSG_PUB.Add;
1739: RAISE FND_API.G_EXC_ERROR;
1732: END IF;
1733:
1734: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1735: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1736: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1737: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1738: FND_MSG_PUB.Add;
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1733:
1734: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1735: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1736: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1737: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1738: FND_MSG_PUB.Add;
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1741:
1886: log_msg('After call to procedure INV_LPN_TRX_PUB.PROCESS_LPN_TRX .return val is '||l_return_val);
1887: END IF;
1888:
1889: IF (l_return_val <> 0) THEN
1890: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1891: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1892: FND_MSG_PUB.Add;
1893: RAISE FND_API.G_EXC_ERROR;
1894: END IF;
1887: END IF;
1888:
1889: IF (l_return_val <> 0) THEN
1890: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1891: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1892: FND_MSG_PUB.Add;
1893: RAISE FND_API.G_EXC_ERROR;
1894: END IF;
1895:
1952:
1953: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
1954: BEGIN
1955:
1956: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
1957: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
1958: FND_MSG_PUB.Add;
1959:
1960: END log_msg ;
1953: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
1954: BEGIN
1955:
1956: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
1957: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
1958: FND_MSG_PUB.Add;
1959:
1960: END log_msg ;
1961: