[Home] [Help]
144: );
145:
146: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
147: x_transaction_set_id := l_hdr_rec.transaction_header_id;
148: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
149: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
150: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
151: FND_MSG_PUB.Add;
152:
145:
146: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
147: x_transaction_set_id := l_hdr_rec.transaction_header_id;
148: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
149: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
150: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
151: FND_MSG_PUB.Add;
152:
153: IF FND_API.to_boolean(p_commit) THEN
146: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
147: x_transaction_set_id := l_hdr_rec.transaction_header_id;
148: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
149: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
150: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
151: FND_MSG_PUB.Add;
152:
153: IF FND_API.to_boolean(p_commit) THEN
154: COMMIT WORK;
354: END IF;
355:
356: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
357: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
358: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
359: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','TRANSACTION_DATE');
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
355:
356: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
357: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
358: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
359: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','TRANSACTION_DATE');
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
374: END IF;
375:
376: -- Validate the orgn_code.
377: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
378: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
379: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
380: FND_MSG_PUB.Add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
375:
376: -- Validate the orgn_code.
377: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
378: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
379: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
380: FND_MSG_PUB.Add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383:
384: OPEN Cur_get_assigment_type(p_hdr_rec.orgn_code);
385: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
386: IF (Cur_get_assigment_type%NOTFOUND) THEN
387: CLOSE Cur_get_assigment_type;
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
389: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
385: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
386: IF (Cur_get_assigment_type%NOTFOUND) THEN
387: CLOSE Cur_get_assigment_type;
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
389: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393: CLOSE Cur_get_assigment_type;
394:
395: --For manual doc numbering, transfer no needs to be specified.
396: IF (p_hdr_rec.assignment_type = 1) THEN
397: IF (p_hdr_rec.transfer_number IS NULL) THEN
398: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_NULL_TRANSFER_NO');
399: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
400: FND_MSG_PUB.Add;
401: RAISE FND_API.G_EXC_ERROR;
402: ELSIF (p_hdr_rec.transfer_number IS NOT NULL) THEN
395: --For manual doc numbering, transfer no needs to be specified.
396: IF (p_hdr_rec.assignment_type = 1) THEN
397: IF (p_hdr_rec.transfer_number IS NULL) THEN
398: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_NULL_TRANSFER_NO');
399: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
400: FND_MSG_PUB.Add;
401: RAISE FND_API.G_EXC_ERROR;
402: ELSIF (p_hdr_rec.transfer_number IS NOT NULL) THEN
403: --check if the transfer no doesnt exist already
407: IF (l_count > 0) THEN
408: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
409: log_msg('Manual document numbering. This transfer no is in use already');
410: END IF;
411: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
412: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
413: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
414: FND_MSG_PUB.Add;
415: RAISE FND_API.G_EXC_ERROR;
408: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
409: log_msg('Manual document numbering. This transfer no is in use already');
410: END IF;
411: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
412: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
413: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
414: FND_MSG_PUB.Add;
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
409: log_msg('Manual document numbering. This transfer no is in use already');
410: END IF;
411: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
412: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
413: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
414: FND_MSG_PUB.Add;
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417: END IF;
418: END IF;
419:
420: --validate the transfer type
421: IF (p_hdr_rec.transfer_type NOT IN (0,1)) THEN
422: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_TRANSFER_TYPE');
423: FND_MESSAGE.SET_TOKEN('TRANSFER_TYPE',p_hdr_rec.transfer_type);
424: FND_MSG_PUB.Add;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
419:
420: --validate the transfer type
421: IF (p_hdr_rec.transfer_type NOT IN (0,1)) THEN
422: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_TRANSFER_TYPE');
423: FND_MESSAGE.SET_TOKEN('TRANSFER_TYPE',p_hdr_rec.transfer_type);
424: FND_MSG_PUB.Add;
425: RAISE FND_API.G_EXC_ERROR;
426: END IF;
427:
437: IF (inv_validate.transaction_type (l_odm_txn_type_rec) = inv_validate.F) THEN
438: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
439: log_msg('Failed call to inv_validate.transaction_type.');
440: END IF;
441: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
442: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
443: FND_MSG_PUB.Add;
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
438: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
439: log_msg('Failed call to inv_validate.transaction_type.');
440: END IF;
441: FND_MESSAGE.SET_NAME('INV','INV_INVALID_ATTRIBUTE');
442: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',FND_MESSAGE.GET_STRING('INV','TRANSACTION'),FALSE);
443: FND_MSG_PUB.Add;
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
453:
454: /* All transaction types need an item. Make sure we have */
455: /* one which can be used */
456: IF (p_line_rec_tbl.count = 0) THEN
457: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_LINES');
458: FND_MSG_PUB.Add;
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461:
467: BEGIN
468: --line no should be unique for this transfer.
469: FOR z in 1..p_line_rec_tbl.count LOOP --{
470: IF (z <> i) AND (p_line_rec_tbl(z).line_no = p_line_rec_tbl(i).line_no) THEN
471: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SAME_LINE_NO');
472: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
473: FND_MSG_PUB.Add;
474: RAISE FND_API.G_EXC_ERROR;
475:
468: --line no should be unique for this transfer.
469: FOR z in 1..p_line_rec_tbl.count LOOP --{
470: IF (z <> i) AND (p_line_rec_tbl(z).line_no = p_line_rec_tbl(i).line_no) THEN
471: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SAME_LINE_NO');
472: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
473: FND_MSG_PUB.Add;
474: RAISE FND_API.G_EXC_ERROR;
475:
476: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
487: IF (INV_Validate.Organization(l_org) = inv_validate.F) THEN
488: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
489: log_msg('failed call to INV_Validate.Organization');
490: END IF;
491: FND_MESSAGE.SET_NAME('INV','INV_INT_ORGCODE');
492: FND_MSG_PUB.Add;
493: RAISE FND_API.G_EXC_ERROR;
494: END IF;
495:
497: x_ic_item_mst_row.item_no := NULL;
498: x_ic_item_mst_row.item_id := p_line_rec_tbl(i).opm_item_id;
499: IF ( GMIVDBL.ic_item_mst_select(x_ic_item_mst_row, x_ic_item_mst_row) ) THEN
500: IF (x_ic_item_mst_row.noninv_ind = 1) THEN
501: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
502: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
503: FND_MSG_PUB.Add;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
498: x_ic_item_mst_row.item_id := p_line_rec_tbl(i).opm_item_id;
499: IF ( GMIVDBL.ic_item_mst_select(x_ic_item_mst_row, x_ic_item_mst_row) ) THEN
500: IF (x_ic_item_mst_row.noninv_ind = 1) THEN
501: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
502: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
503: FND_MSG_PUB.Add;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506: ELSE
503: FND_MSG_PUB.Add;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506: ELSE
507: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
509: FND_MSG_PUB.Add;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
504: RAISE FND_API.G_EXC_ERROR;
505: END IF;
506: ELSE
507: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
508: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
509: FND_MSG_PUB.Add;
510: RAISE FND_API.G_EXC_ERROR;
511: END IF;
512: p_line_rec_tbl(i).opm_item_no := x_ic_item_mst_row.item_no;
522: IF (inv_validate.Inventory_Item (l_item, l_org) = inv_validate.F) THEN
523: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
524: log_msg('failed call to inv_validate.Inventory_Item');
525: END IF;
526: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_ITEM');
527: FND_MSG_PUB.Add;
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530:
531: IF ( (nvl(l_item.INVENTORY_ITEM_FLAG,'N') ='N')
532: OR (nvl(l_item.MTL_TRANSACTIONS_ENABLED_FLAG,'N') = 'N')
533: OR (nvl(l_item.SERIAL_NUMBER_CONTROL_CODE,1) <> 1)
534: ) THEN
535: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_ITEM');
536: FND_MSG_PUB.Add;
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539:
544: IF (p_line_rec_tbl(i).odm_item_revision IS NULL) THEN
545: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
546: log_msg('For revision controlled item revision is null');
547: END IF;
548: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
549: FND_MSG_PUB.Add;
550: RAISE FND_API.G_EXC_ERROR;
551: END IF;
552:
553: IF (inv_validate.revision (p_line_rec_tbl(i).odm_item_revision, l_org, l_item) = inv_validate.F) THEN
554: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
555: log_msg('failed call to inv_validate.revision');
556: END IF;
557: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
558: FND_MSG_PUB.Add;
559: RAISE FND_API.G_EXC_ERROR;
560: END IF;
561:
570: IF (l_count = 0) THEN
571: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
572: log_msg('For revision controlled item revision implementation date is null');
573: END IF;
574: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
575: FND_MSG_PUB.Add;
576: RAISE FND_API.G_EXC_ERROR;
577: END IF;
578:
579: END IF;
580:
581: --We should be dealing with the same item in OPM/ODM
582: IF (l_item.segment1 <> x_ic_item_mst_row.item_no) THEN
583: FND_MESSAGE.SET_NAME ('GMI','GMI_DXFR_DIFF_ITEM');
584: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
585: FND_MSG_PUB.Add;
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
580:
581: --We should be dealing with the same item in OPM/ODM
582: IF (l_item.segment1 <> x_ic_item_mst_row.item_no) THEN
583: FND_MESSAGE.SET_NAME ('GMI','GMI_DXFR_DIFF_ITEM');
584: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
585: FND_MSG_PUB.Add;
586: RAISE FND_API.G_EXC_ERROR;
587: END IF;
588:
590: Item should be either lot controlled both in opm/discrete or not
591: lot controlled both in opm/discrete.
592: ************************************************************** */
593: IF (l_item.lot_control_code <> x_ic_item_mst_row.lot_ctl + 1) THEN
594: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_LOT_CONTROL');
595: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
591: lot controlled both in opm/discrete.
592: ************************************************************** */
593: IF (l_item.lot_control_code <> x_ic_item_mst_row.lot_ctl + 1) THEN
594: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_LOT_CONTROL');
595: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
596: FND_MSG_PUB.Add;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599:
602: FETCH Cur_get_uom_code INTO l_opm_item_primary_uom_code;
603: CLOSE Cur_get_uom_code;
604:
605: IF (l_item.primary_uom_code <> l_opm_item_primary_uom_code) THEN
606: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_PRIM_UOM');
607: FND_MSG_PUB.Add;
608: RAISE FND_API.G_EXC_ERROR;
609: END IF;
610:
615: CLOSE Cur_get_uom_code;
616: END IF;
617:
618: IF ( nvl(l_item.secondary_uom_code,' ') <> nvl(l_opm_item_secondary_uom_code,' ') ) THEN
619: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SEC_UOM');
620: FND_MSG_PUB.Add;
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623:
625: x_ic_whse_mst_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
626: IF ( GMIVDBL.ic_whse_mst_select(x_ic_whse_mst_row, x_ic_whse_mst_row) ) THEN
627: NULL;
628: ELSE
629: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_WHSE_CODE_NOT_FOUND');
630: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
631: FND_MSG_PUB.Add;
632: RAISE FND_API.G_EXC_ERROR;
633: END IF;
626: IF ( GMIVDBL.ic_whse_mst_select(x_ic_whse_mst_row, x_ic_whse_mst_row) ) THEN
627: NULL;
628: ELSE
629: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_WHSE_CODE_NOT_FOUND');
630: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
631: FND_MSG_PUB.Add;
632: RAISE FND_API.G_EXC_ERROR;
633: END IF;
634:
660: ) THEN
661: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
662: log_msg('failed call to INV_Validate.from_subinventory');
663: END IF;
664: FND_MESSAGE.SET_NAME('INV','INV_INVALID_SUBINV');
665: FND_MSG_PUB.Add;
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668:
682: IF (p_line_rec_tbl(i).odm_locator_id IS NOT NULL) THEN
683: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
684: log_msg('ODM locator id is not required as org/sub/item combination is non location controlled');
685: END IF;
686: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
687: FND_MSG_PUB.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690: ELSE
691: IF (p_line_rec_tbl(i).odm_locator_id IS NULL) THEN
692: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
693: log_msg('ODM locator id is required as org/sub/item combination is location controlled');
694: END IF;
695: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
696: FND_MSG_PUB.ADD;
697: RAISE FND_API.G_EXC_ERROR;
698: END IF;
699:
705: OPEN Cur_get_opm_fiscal_details(p_line_rec_tbl(i).opm_whse_code);
706: FETCH Cur_get_opm_fiscal_details INTO l_get_opm_fiscal_details_row;
707: IF (Cur_get_opm_fiscal_details%NOTFOUND) THEN
708: CLOSE Cur_get_opm_fiscal_details;
709: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_NO_FISCAL_POLICY');
710: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
711: FND_MSG_PUB.Add;
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
706: FETCH Cur_get_opm_fiscal_details INTO l_get_opm_fiscal_details_row;
707: IF (Cur_get_opm_fiscal_details%NOTFOUND) THEN
708: CLOSE Cur_get_opm_fiscal_details;
709: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_NO_FISCAL_POLICY');
710: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
711: FND_MSG_PUB.Add;
712: RAISE FND_API.G_EXC_ERROR;
713: END IF;
714: CLOSE Cur_get_opm_fiscal_details;
717: OPEN Cur_get_odm_fiscal_details(p_line_rec_tbl(i).odm_inv_organization_id);
718: FETCH Cur_get_odm_fiscal_details INTO l_get_odm_fiscal_details_row;
719: IF (Cur_get_odm_fiscal_details%NOTFOUND) THEN
720: CLOSE Cur_get_odm_fiscal_details;
721: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_NO_FISCAL_POLICY');
722: FND_MSG_PUB.Add;
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: CLOSE Cur_get_odm_fiscal_details;
725: CLOSE Cur_get_odm_fiscal_details;
726:
727: --sets of books should be same for inventory organization and opm warehouse
728: IF (l_get_opm_fiscal_details_row.sob_id <> l_get_odm_fiscal_details_row.sob_id) THEN
729: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SOB');
730: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
731: FND_MSG_PUB.Add;
732: RAISE FND_API.G_EXC_ERROR;
733: END IF;
726:
727: --sets of books should be same for inventory organization and opm warehouse
728: IF (l_get_opm_fiscal_details_row.sob_id <> l_get_odm_fiscal_details_row.sob_id) THEN
729: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_DIFF_SOB');
730: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
731: FND_MSG_PUB.Add;
732: RAISE FND_API.G_EXC_ERROR;
733: END IF;
734:
738: , p_hdr_rec.orgn_code
739: , p_line_rec_tbl(i).opm_whse_code
740: );
741: IF (l_return_val <> 0) THEN
742: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
743: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
744: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
739: , p_line_rec_tbl(i).opm_whse_code
740: );
741: IF (l_return_val <> 0) THEN
742: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
743: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
744: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
740: );
741: IF (l_return_val <> 0) THEN
742: FND_MESSAGE.SET_NAME('GMI','IC_API_TXN_POST_CLOSED');
743: FND_MESSAGE.SET_TOKEN('WAREH', p_line_rec_tbl(i).opm_whse_code);
744: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
748: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
744: FND_MESSAGE.SET_TOKEN('DATE', p_hdr_rec.trans_date);
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
748: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
749: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
750: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
751: FND_MSG_PUB.Add;
752: RAISE FND_API.G_EXC_ERROR;
745: FND_MSG_PUB.Add;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
748: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
749: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
750: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
751: FND_MSG_PUB.Add;
752: RAISE FND_API.G_EXC_ERROR;
753: END IF;
746: RAISE FND_API.G_EXC_ERROR;
747: ELSIF (p_hdr_rec.trans_date > SYSDATE) THEN
748: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
749: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
750: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
751: FND_MSG_PUB.Add;
752: RAISE FND_API.G_EXC_ERROR;
753: END IF;
754:
766: INV_OPEN_PAST_PERIOD
767: );
768:
769: IF (p_line_rec_tbl(i).odm_period_id = 0) THEN
770: FND_MESSAGE.SET_NAME('INV','INV_NO_OPEN_PERIOD');
771: FND_MSG_PUB.Add;
772: RAISE FND_API.G_EXC_ERROR;
773: ELSIF (p_line_rec_tbl(i).odm_period_id = -1) THEN
774: FND_MESSAGE.SET_NAME('INV', 'INV_RETRIEVE_PERIOD');
770: FND_MESSAGE.SET_NAME('INV','INV_NO_OPEN_PERIOD');
771: FND_MSG_PUB.Add;
772: RAISE FND_API.G_EXC_ERROR;
773: ELSIF (p_line_rec_tbl(i).odm_period_id = -1) THEN
774: FND_MESSAGE.SET_NAME('INV', 'INV_RETRIEVE_PERIOD');
775: FND_MSG_PUB.Add;
776: RAISE FND_API.G_EXC_ERROR;
777: END IF;
778:
777: END IF;
778:
779: IF (INV_TRANS_DATE_OPTION = 3) THEN
780: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
781: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
782: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
783: FND_MSG_PUB.Add;
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
778:
779: IF (INV_TRANS_DATE_OPTION = 3) THEN
780: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
781: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
782: FND_MESSAGE.SET_TOKEN('ENTITY',p_hdr_rec.trans_date,TRUE);
783: FND_MSG_PUB.Add;
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
786: ELSIF (INV_TRANS_DATE_OPTION = 4) THEN
784: RAISE FND_API.G_EXC_ERROR;
785: END IF;
786: ELSIF (INV_TRANS_DATE_OPTION = 4) 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: END IF;
792: END IF;
785: END IF;
786: ELSIF (INV_TRANS_DATE_OPTION = 4) 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: END IF;
792: END IF;
793:
794: --validate the reason code for the transfer
795: x_sy_reas_cds_row.reason_code := p_line_rec_tbl(i).opm_reason_code;
796: IF GMIVDBL.sy_reas_cds_select(x_sy_reas_cds_row, x_sy_reas_cds_row) THEN
797: IF (x_sy_reas_cds_row.reason_type = 1 AND p_hdr_rec.transfer_type = 0) THEN
798: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEINCREASE');
799: FND_MSG_PUB.Add;
800: RAISE FND_API.G_EXC_ERROR;
801: ELSIF (x_sy_reas_cds_row.reason_type = 2 AND p_hdr_rec.transfer_type = 1) THEN
802: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEDECREASE');
798: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEINCREASE');
799: FND_MSG_PUB.Add;
800: RAISE FND_API.G_EXC_ERROR;
801: ELSIF (x_sy_reas_cds_row.reason_type = 2 AND p_hdr_rec.transfer_type = 1) THEN
802: FND_MESSAGE.SET_NAME('GMI','IC_REASONTYPEDECREASE');
803: FND_MSG_PUB.Add;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: ELSE
803: FND_MSG_PUB.Add;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: ELSE
807: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
808: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
809: FND_MSG_PUB.Add;
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: ELSE
807: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
808: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
809: FND_MSG_PUB.Add;
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
816: IF (INV_Validate.Reason(p_line_rec_tbl(i).odm_reason_id) = inv_validate.F) THEN
817: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
818: log_msg('failed call to INV_Validate.Reason');
819: END IF;
820: FND_MESSAGE.SET_NAME('INV','INV_INT_REACODE');
821: FND_MSG_PUB.Add;
822: RAISE FND_API.G_EXC_ERROR;
823: END IF;
824: END IF;
824: END IF;
825:
826: --For transfers the quantity should be positive
827: IF (p_line_rec_tbl(i).quantity IS NULL) THEN
828: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY');
829: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
830: FND_MSG_PUB.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
825:
826: --For transfers the quantity should be positive
827: IF (p_line_rec_tbl(i).quantity IS NULL) THEN
828: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY');
829: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
830: FND_MSG_PUB.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
833: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
829: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
830: FND_MSG_PUB.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
833: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
834: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
835: FND_MSG_PUB.Add;
836: RAISE FND_API.G_EXC_ERROR;
837: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
830: FND_MSG_PUB.Add;
831: RAISE FND_API.G_EXC_ERROR;
832: ELSIF (p_line_rec_tbl(i).quantity < 0) THEN
833: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_QTY_NOT_NEG');
834: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
835: FND_MSG_PUB.Add;
836: RAISE FND_API.G_EXC_ERROR;
837: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
838: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
834: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
835: FND_MSG_PUB.Add;
836: RAISE FND_API.G_EXC_ERROR;
837: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
838: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
839: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
840: FND_MSG_PUB.Add;
841: RAISE FND_API.G_EXC_ERROR;
842: END IF;
835: FND_MSG_PUB.Add;
836: RAISE FND_API.G_EXC_ERROR;
837: ELSIF (p_line_rec_tbl(i).quantity = 0) THEN
838: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ZERO_QTY');
839: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
840: FND_MSG_PUB.Add;
841: RAISE FND_API.G_EXC_ERROR;
842: END IF;
843:
847: IF ( (p_line_rec_tbl(i).quantity_um <> x_ic_item_mst_row.item_um)
848: AND (NOT GMA_VALID_GRP.Validate_um(p_line_rec_tbl(i).quantity_um))
849: ) THEN
850:
851: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
852: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
853: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
854: FND_MSG_PUB.Add;
855: RAISE FND_API.G_EXC_ERROR;
848: AND (NOT GMA_VALID_GRP.Validate_um(p_line_rec_tbl(i).quantity_um))
849: ) THEN
850:
851: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
852: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
853: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
854: FND_MSG_PUB.Add;
855: RAISE FND_API.G_EXC_ERROR;
856: END IF;
849: ) THEN
850:
851: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
852: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
853: FND_MESSAGE.SET_TOKEN('UOM',p_line_rec_tbl(i).quantity_um);
854: FND_MSG_PUB.Add;
855: RAISE FND_API.G_EXC_ERROR;
856: END IF;
857:
867: IF (inv_validate.uom(p_line_rec_tbl(i).odm_quantity_uom_code,l_org,l_item) = inv_validate.F) THEN
868: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
869: log_msg('failed call to inv_validate.uom');
870: END IF;
871: FND_MESSAGE.SET_NAME('INV','INV-NO ITEM UOM');
872: FND_MSG_PUB.Add;
873: RAISE FND_API.G_EXC_ERROR;
874: END IF;
875:
880: IF (nvl(p_line_rec_tbl(i).opm_location,GMIGUTL.IC$DEFAULT_LOCT) <> GMIGUTL.IC$DEFAULT_LOCT) THEN
881: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
882: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
883: END IF;
884: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
885: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
886: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
887: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
888: FND_MSG_PUB.Add;
881: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
882: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
883: END IF;
884: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
885: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
886: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
887: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
888: FND_MSG_PUB.Add;
889: RAISE FND_API.G_EXC_ERROR;
882: log_msg('Failed while validating OPM location. Item and/or warehouse are not location controlled');
883: END IF;
884: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
885: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
886: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
887: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
888: FND_MSG_PUB.Add;
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
883: END IF;
884: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
885: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
886: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
887: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
888: FND_MSG_PUB.Add;
889: RAISE FND_API.G_EXC_ERROR;
890: END IF;
891: p_line_rec_tbl(i).opm_location := GMIGUTL.IC$DEFAULT_LOCT;
901: IF (l_count = 0) THEN
902: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
903: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
904: END IF;
905: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
906: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
907: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
908: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
909: FND_MSG_PUB.Add;
902: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
903: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
904: END IF;
905: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
906: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
907: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
908: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
909: FND_MSG_PUB.Add;
910: RAISE FND_API.G_EXC_ERROR;
903: log_msg('Failed while validating OPM location. Item and warehouse are validated location controlled');
904: END IF;
905: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
906: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
907: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
908: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
909: FND_MSG_PUB.Add;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
904: END IF;
905: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
906: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
907: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
908: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
909: FND_MSG_PUB.Add;
910: RAISE FND_API.G_EXC_ERROR;
911: END IF;
912: ELSIF ( (x_ic_whse_mst_row.loct_ctl = 2)
922: IF (l_count = 0) AND (p_hdr_rec.transfer_type = 0) THEN
923: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
924: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
925: END IF;
926: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
927: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
928: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
929: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
930: FND_MSG_PUB.Add;
923: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
924: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
925: END IF;
926: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
927: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
928: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
929: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
930: FND_MSG_PUB.Add;
931: RAISE FND_API.G_EXC_ERROR;
924: log_msg('Failed while validating OPM location. Item and/or warehouse are non validated location controlled');
925: END IF;
926: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
927: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
928: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
929: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
930: FND_MSG_PUB.Add;
931: RAISE FND_API.G_EXC_ERROR;
932: END IF;
925: END IF;
926: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOCATION');
927: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
928: FND_MESSAGE.SET_TOKEN('LOCATION',p_line_rec_tbl(i).opm_location);
929: FND_MESSAGE.SET_TOKEN('WHSE_CODE',p_line_rec_tbl(i).opm_whse_code);
930: FND_MSG_PUB.Add;
931: RAISE FND_API.G_EXC_ERROR;
932: END IF;
933:
938: IF ( (l_org.primary_cost_method NOT IN ('2', '5', '6') )
939: OR (l_item.inventory_asset_flag <> 'Y')
940: OR (l_sub.asset_inventory <> 1)
941: ) THEN
942: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_COST_SHOULD_BE_NULL');
943: FND_MSG_PUB.Add;
944: RAISE FND_API.G_EXC_ERROR;
945: END IF;
946: END IF;
953: IF (p_lot_rec_tbl(k).line_no = p_line_rec_tbl(i).line_no) THEN
954: --If lot is specified at line level then it cannot be specified at lot level.
955: --for non lot controlled items default lot could be specified only at the line level.
956: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
957: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_RECORD_NOT_NEEDED');
958: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
959: FND_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
954: --If lot is specified at line level then it cannot be specified at lot level.
955: --for non lot controlled items default lot could be specified only at the line level.
956: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
957: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_RECORD_NOT_NEEDED');
958: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
959: FND_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962:
962:
963: IF ( (p_line_rec_tbl(i).opm_lot_id IS NOT NULL)
964: OR (p_line_rec_tbl(i).odm_lot_number IS NOT NULL)
965: ) THEN
966: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_LOT_RECORDS');
967: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
968: FND_MSG_PUB.Add;
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
963: IF ( (p_line_rec_tbl(i).opm_lot_id IS NOT NULL)
964: OR (p_line_rec_tbl(i).odm_lot_number IS NOT NULL)
965: ) THEN
966: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INVALID_LOT_RECORDS');
967: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
968: FND_MSG_PUB.Add;
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
977: END LOOP;
978: IF (l_lot_count > 0) THEN
979: p_line_rec_tbl(i).lot_level := 1;
980: IF (p_line_rec_tbl(i).quantity <> l_check_qty) THEN
981: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LINE_LOT_QTY_DIFF');
982: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
983: FND_MSG_PUB.Add;
984: RAISE FND_API.G_EXC_ERROR;
985: END IF;
978: IF (l_lot_count > 0) THEN
979: p_line_rec_tbl(i).lot_level := 1;
980: IF (p_line_rec_tbl(i).quantity <> l_check_qty) THEN
981: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LINE_LOT_QTY_DIFF');
982: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
983: FND_MSG_PUB.Add;
984: RAISE FND_API.G_EXC_ERROR;
985: END IF;
986: ELSIF (l_lot_count = 0) THEN
1011: END IF;
1012: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN --{
1013:
1014: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1015: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1016: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1017: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1018: FND_MSG_PUB.Add;
1019: RAISE FND_API.G_EXC_ERROR;
1012: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN --{
1013:
1014: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1015: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1016: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1017: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1018: FND_MSG_PUB.Add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1013:
1014: IF (p_lot_rec_tbl(j).quantity < 0) THEN
1015: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_QTY_NOT_NEG');
1016: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1017: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1018: FND_MSG_PUB.Add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1021: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1017: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1018: FND_MSG_PUB.Add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1021: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1022: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1023: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1024: FND_MSG_PUB.Add;
1025: RAISE FND_API.G_EXC_ERROR;
1018: FND_MSG_PUB.Add;
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1021: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1022: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1023: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1024: FND_MSG_PUB.Add;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1019: RAISE FND_API.G_EXC_ERROR;
1020: ELSIF (p_lot_rec_tbl(j).quantity = 0) THEN
1021: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_ZERO_QTY');
1022: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1023: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1024: FND_MSG_PUB.Add;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1029: --{
1030: IF (p_hdr_rec.transfer_type = 0) THEN
1031: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1032: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1033: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1034: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1035: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1036: FND_MSG_PUB.Add;
1037: RAISE FND_API.G_EXC_ERROR;
1030: IF (p_hdr_rec.transfer_type = 0) THEN
1031: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1032: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1033: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1034: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1035: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1036: FND_MSG_PUB.Add;
1037: RAISE FND_API.G_EXC_ERROR;
1038:
1031: IF (x_ic_item_mst_row.lot_ctl = 0) THEN
1032: IF (p_lot_rec_tbl(j).opm_lot_id <> 0) THEN
1033: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_NOT_DEFAULT');
1034: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1035: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1036: FND_MSG_PUB.Add;
1037: RAISE FND_API.G_EXC_ERROR;
1038:
1039: END IF;
1039: END IF;
1040:
1041: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1042: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1043: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1044: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1045: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1046: FND_MSG_PUB.Add;
1047: RAISE FND_API.G_EXC_ERROR;
1040:
1041: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1042: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1043: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1044: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1045: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1046: FND_MSG_PUB.Add;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1041: ELSIF (x_ic_item_mst_row.lot_ctl = 1) THEN
1042: IF (p_lot_rec_tbl(j).opm_lot_id = 0) THEN
1043: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_LOT_IS_DEFAULT');
1044: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1045: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1046: FND_MSG_PUB.Add;
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1057: AND lot_id = p_lot_rec_tbl(j).opm_lot_id;
1058:
1059: EXCEPTION
1060: WHEN NO_DATA_FOUND THEN
1061: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1062: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1063: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1064: FND_MSG_PUB.Add;
1065: RAISE FND_API.G_EXC_ERROR;
1058:
1059: EXCEPTION
1060: WHEN NO_DATA_FOUND THEN
1061: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1062: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1063: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1064: FND_MSG_PUB.Add;
1065: RAISE FND_API.G_EXC_ERROR;
1066:
1059: EXCEPTION
1060: WHEN NO_DATA_FOUND THEN
1061: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_LOT_NOT_FOUND');
1062: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1063: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1064: FND_MSG_PUB.Add;
1065: RAISE FND_API.G_EXC_ERROR;
1066:
1067: END;
1104: END IF;
1105:
1106: IF (l_return_val < 0) THEN
1107: IF (l_return_val = -1) THEN
1108: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1109: ELSIF (l_return_val = -3) THEN
1110: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1111: ELSIF (l_return_val = -4) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1106: IF (l_return_val < 0) THEN
1107: IF (l_return_val = -1) THEN
1108: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1109: ELSIF (l_return_val = -3) THEN
1110: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1111: ELSIF (l_return_val = -4) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: ELSIF (l_return_val = -5) THEN
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1108: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1109: ELSIF (l_return_val = -3) THEN
1110: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1111: ELSIF (l_return_val = -4) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: ELSIF (l_return_val = -5) THEN
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1110: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1111: ELSIF (l_return_val = -4) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: ELSIF (l_return_val = -5) THEN
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: ELSIF (l_return_val = -6) THEN
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1111: ELSIF (l_return_val = -4) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: ELSIF (l_return_val = -5) THEN
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: ELSIF (l_return_val = -6) THEN
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1119: ELSIF (l_return_val = -7) THEN
1112: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1113: ELSIF (l_return_val = -5) THEN
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: ELSIF (l_return_val = -6) THEN
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1119: ELSIF (l_return_val = -7) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1114: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1115: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: ELSIF (l_return_val = -6) THEN
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1119: ELSIF (l_return_val = -7) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: ELSIF (l_return_val = -10) THEN
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1116: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1117: ELSIF (l_return_val = -6) THEN
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1119: ELSIF (l_return_val = -7) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: ELSIF (l_return_val = -10) THEN
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1118: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1119: ELSIF (l_return_val = -7) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: ELSIF (l_return_val = -10) THEN
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: ELSIF (l_return_val = -11) THEN
1126: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1119: ELSIF (l_return_val = -7) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: ELSIF (l_return_val = -10) THEN
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: ELSIF (l_return_val = -11) THEN
1126: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1127: ELSIF (l_return_val < -11) THEN
1120: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1121: ELSIF (l_return_val = -10) THEN
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: ELSIF (l_return_val = -11) THEN
1126: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1127: ELSIF (l_return_val < -11) THEN
1128: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1122: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1123: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: ELSIF (l_return_val = -11) THEN
1126: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1127: ELSIF (l_return_val < -11) THEN
1128: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1129: END IF;
1130: FND_MSG_PUB.ADD;
1124: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1125: ELSIF (l_return_val = -11) THEN
1126: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1127: ELSIF (l_return_val < -11) THEN
1128: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1129: END IF;
1130: FND_MSG_PUB.ADD;
1131: RAISE FND_API.G_EXC_ERROR;
1132: END IF;
1133:
1134: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1136: ) THEN
1137: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1138: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1139: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1140: FND_MSG_PUB.Add;
1141: RAISE FND_API.G_EXC_ERROR;
1134: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1136: ) THEN
1137: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1138: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1139: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1140: FND_MSG_PUB.Add;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
1136: ) THEN
1137: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_INDIVISIBLE_LOT');
1138: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1139: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
1140: FND_MSG_PUB.Add;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1143: ELSE
1140: FND_MSG_PUB.Add;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1143: ELSE
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
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: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1143: ELSE
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
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: END IF;
1143: ELSE
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
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:
1156: ELSE
1157: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1158:
1159: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1160: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1161: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1162: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1163: FND_MSG_PUB.Add;
1164: RAISE FND_API.G_EXC_ERROR;
1157: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1158:
1159: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1160: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1161: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1162: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1163: FND_MSG_PUB.Add;
1164: RAISE FND_API.G_EXC_ERROR;
1165: END IF;
1158:
1159: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1160: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1161: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1162: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1163: FND_MSG_PUB.Add;
1164: RAISE FND_API.G_EXC_ERROR;
1165: END IF;
1166:
1182: END IF;
1183:
1184: IF (l_return_val < 0) THEN
1185: IF (l_return_val = -1) THEN
1186: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1187: ELSIF (l_return_val = -3) THEN
1188: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1189: ELSIF (l_return_val = -4) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1184: IF (l_return_val < 0) THEN
1185: IF (l_return_val = -1) THEN
1186: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1187: ELSIF (l_return_val = -3) THEN
1188: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1189: ELSIF (l_return_val = -4) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: ELSIF (l_return_val = -5) THEN
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1186: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1187: ELSIF (l_return_val = -3) THEN
1188: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1189: ELSIF (l_return_val = -4) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: ELSIF (l_return_val = -5) THEN
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1188: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1189: ELSIF (l_return_val = -4) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: ELSIF (l_return_val = -5) THEN
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: ELSIF (l_return_val = -6) THEN
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1189: ELSIF (l_return_val = -4) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: ELSIF (l_return_val = -5) THEN
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: ELSIF (l_return_val = -6) THEN
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1197: ELSIF (l_return_val = -7) THEN
1190: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1191: ELSIF (l_return_val = -5) THEN
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: ELSIF (l_return_val = -6) THEN
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1197: ELSIF (l_return_val = -7) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1192: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1193: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: ELSIF (l_return_val = -6) THEN
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1197: ELSIF (l_return_val = -7) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: ELSIF (l_return_val = -10) THEN
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1194: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1195: ELSIF (l_return_val = -6) THEN
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1197: ELSIF (l_return_val = -7) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: ELSIF (l_return_val = -10) THEN
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1196: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1197: ELSIF (l_return_val = -7) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: ELSIF (l_return_val = -10) THEN
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: ELSIF (l_return_val = -11) THEN
1204: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1197: ELSIF (l_return_val = -7) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: ELSIF (l_return_val = -10) THEN
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: ELSIF (l_return_val = -11) THEN
1204: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1205: ELSIF (l_return_val < -11) THEN
1198: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1199: ELSIF (l_return_val = -10) THEN
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: ELSIF (l_return_val = -11) THEN
1204: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1205: ELSIF (l_return_val < -11) THEN
1206: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1200: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1201: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: ELSIF (l_return_val = -11) THEN
1204: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1205: ELSIF (l_return_val < -11) THEN
1206: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1207: END IF;
1208: FND_MSG_PUB.ADD;
1202: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1203: ELSIF (l_return_val = -11) THEN
1204: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1205: ELSIF (l_return_val < -11) THEN
1206: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1207: END IF;
1208: FND_MSG_PUB.ADD;
1209: RAISE FND_API.G_EXC_ERROR;
1210: END IF;
1257:
1258: IF ( ( l_item.indivisible_flag = 'Y' )
1259: AND ( Round(p_lot_rec_tbl(j).odm_primary_quantity,(38-1)) <> TRUNC(p_lot_rec_tbl(j).odm_primary_quantity))
1260: ) then
1261: FND_MESSAGE.SET_NAME('INV', 'DIVISIBILITY_VIOLATION');
1262: FND_MSG_PUB.Add;
1263: RAISE FND_API.G_EXC_ERROR ;
1264: END IF;
1265:
1269: --lets validate the ODM Lot number
1270: --{
1271: IF (l_item.lot_control_code = 1) THEN
1272: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1273: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1274: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1275: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1276: FND_MSG_PUB.Add;
1277: RAISE FND_API.G_EXC_ERROR;
1270: --{
1271: IF (l_item.lot_control_code = 1) THEN
1272: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1273: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1274: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1275: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1276: FND_MSG_PUB.Add;
1277: RAISE FND_API.G_EXC_ERROR;
1278: END IF;
1271: IF (l_item.lot_control_code = 1) THEN
1272: IF (p_lot_rec_tbl(j).odm_lot_number IS NOT NULL) THEN
1273: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NOT_NULL');
1274: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1275: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1276: FND_MSG_PUB.Add;
1277: RAISE FND_API.G_EXC_ERROR;
1278: END IF;
1279:
1283: --{
1284: IF (l_item.lot_control_code = 2) THEN
1285:
1286: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1287: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1288: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1289: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1290: FND_MSG_PUB.Add;
1291: RAISE FND_API.G_EXC_ERROR;
1284: IF (l_item.lot_control_code = 2) THEN
1285:
1286: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1287: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1288: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1289: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1290: FND_MSG_PUB.Add;
1291: RAISE FND_API.G_EXC_ERROR;
1292: END IF;
1285:
1286: IF (p_lot_rec_tbl(j).odm_lot_number IS NULL) THEN
1287: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_ODM_LOT_IS_NULL');
1288: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1289: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1290: FND_MSG_PUB.Add;
1291: RAISE FND_API.G_EXC_ERROR;
1292: END IF;
1293:
1348: END IF;
1349:
1350: IF (l_return_val < 0) THEN
1351: IF (l_return_val = -1) THEN
1352: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1353: ELSIF (l_return_val = -3) THEN
1354: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1355: ELSIF (l_return_val = -4) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1350: IF (l_return_val < 0) THEN
1351: IF (l_return_val = -1) THEN
1352: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1353: ELSIF (l_return_val = -3) THEN
1354: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1355: ELSIF (l_return_val = -4) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: ELSIF (l_return_val = -5) THEN
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1352: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1353: ELSIF (l_return_val = -3) THEN
1354: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1355: ELSIF (l_return_val = -4) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: ELSIF (l_return_val = -5) THEN
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1354: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1355: ELSIF (l_return_val = -4) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: ELSIF (l_return_val = -5) THEN
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: ELSIF (l_return_val = -6) THEN
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1355: ELSIF (l_return_val = -4) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: ELSIF (l_return_val = -5) THEN
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: ELSIF (l_return_val = -6) THEN
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1363: ELSIF (l_return_val = -7) THEN
1356: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1357: ELSIF (l_return_val = -5) THEN
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: ELSIF (l_return_val = -6) THEN
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1363: ELSIF (l_return_val = -7) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1358: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1359: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: ELSIF (l_return_val = -6) THEN
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1363: ELSIF (l_return_val = -7) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: ELSIF (l_return_val = -10) THEN
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1360: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1361: ELSIF (l_return_val = -6) THEN
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1363: ELSIF (l_return_val = -7) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: ELSIF (l_return_val = -10) THEN
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1362: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1363: ELSIF (l_return_val = -7) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: ELSIF (l_return_val = -10) THEN
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: ELSIF (l_return_val = -11) THEN
1370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1363: ELSIF (l_return_val = -7) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: ELSIF (l_return_val = -10) THEN
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: ELSIF (l_return_val = -11) THEN
1370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1371: ELSIF (l_return_val < -11) THEN
1364: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1365: ELSIF (l_return_val = -10) THEN
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: ELSIF (l_return_val = -11) THEN
1370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1371: ELSIF (l_return_val < -11) THEN
1372: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1366: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1367: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: ELSIF (l_return_val = -11) THEN
1370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1371: ELSIF (l_return_val < -11) THEN
1372: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1373: END IF;
1374: FND_MSG_PUB.ADD;
1368: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um);
1369: ELSIF (l_return_val = -11) THEN
1370: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1371: ELSIF (l_return_val < -11) THEN
1372: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1373: END IF;
1374: FND_MSG_PUB.ADD;
1375: RAISE FND_API.G_EXC_ERROR;
1376: END IF;
1378: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
1379: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1380:
1381: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1383: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1384: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1385: FND_MSG_PUB.Add;
1386: RAISE FND_API.G_EXC_ERROR;
1379: IF (p_lot_rec_tbl(j).quantity2 IS NULL) THEN
1380:
1381: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1383: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1384: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1385: FND_MSG_PUB.Add;
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1380:
1381: IF (x_ic_item_mst_row.dualum_ind = 3) THEN
1382: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NULL_QTY2');
1383: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
1384: FND_MESSAGE.SET_TOKEN('ITEM_NO',x_ic_item_mst_row.item_no);
1385: FND_MSG_PUB.Add;
1386: RAISE FND_API.G_EXC_ERROR;
1387: END IF;
1388:
1405: END IF;
1406:
1407: IF (l_return_val < 0) THEN
1408: IF (l_return_val = -1) THEN
1409: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1410: ELSIF (l_return_val = -3) THEN
1411: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1412: ELSIF (l_return_val = -4) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1407: IF (l_return_val < 0) THEN
1408: IF (l_return_val = -1) THEN
1409: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1410: ELSIF (l_return_val = -3) THEN
1411: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1412: ELSIF (l_return_val = -4) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: ELSIF (l_return_val = -5) THEN
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1409: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_PACKAGE_ERR');
1410: ELSIF (l_return_val = -3) THEN
1411: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1412: ELSIF (l_return_val = -4) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: ELSIF (l_return_val = -5) THEN
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1411: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURUMTYPE_ERR');
1412: ELSIF (l_return_val = -4) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: ELSIF (l_return_val = -5) THEN
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: ELSIF (l_return_val = -6) THEN
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1412: ELSIF (l_return_val = -4) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: ELSIF (l_return_val = -5) THEN
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: ELSIF (l_return_val = -6) THEN
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1420: ELSIF (l_return_val = -7) THEN
1413: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NEWUMTYPE_ERR');
1414: ELSIF (l_return_val = -5) THEN
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: ELSIF (l_return_val = -6) THEN
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1420: ELSIF (l_return_val = -7) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1415: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1416: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: ELSIF (l_return_val = -6) THEN
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1420: ELSIF (l_return_val = -7) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: ELSIF (l_return_val = -10) THEN
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1417: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1418: ELSIF (l_return_val = -6) THEN
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1420: ELSIF (l_return_val = -7) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: ELSIF (l_return_val = -10) THEN
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1419: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUMTYPE_ERR');
1420: ELSIF (l_return_val = -7) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: ELSIF (l_return_val = -10) THEN
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: ELSIF (l_return_val = -11) THEN
1427: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1420: ELSIF (l_return_val = -7) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: ELSIF (l_return_val = -10) THEN
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: ELSIF (l_return_val = -11) THEN
1427: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1428: ELSIF (l_return_val < -11) THEN
1421: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_CURFACTOR_ERR');
1422: ELSIF (l_return_val = -10) THEN
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: ELSIF (l_return_val = -11) THEN
1427: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1428: ELSIF (l_return_val < -11) THEN
1429: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1423: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_INVUOMTYPE_ERR2');
1424: FND_MESSAGE.set_token('FROMUOM',p_line_rec_tbl(i).quantity_um);
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: ELSIF (l_return_val = -11) THEN
1427: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1428: ELSIF (l_return_val < -11) THEN
1429: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1430: END IF;
1431: FND_MSG_PUB.ADD;
1425: FND_MESSAGE.set_token('TOUOM',x_ic_item_mst_row.item_um2);
1426: ELSIF (l_return_val = -11) THEN
1427: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_NOITEMID_ERR');
1428: ELSIF (l_return_val < -11) THEN
1429: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1430: END IF;
1431: FND_MSG_PUB.ADD;
1432: RAISE FND_API.G_EXC_ERROR;
1433: END IF;
1590: log_msg('After call to gmf_validate_account.validate_segments. return status is ' ||x_return_status);
1591: END IF;
1592:
1593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1594: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1595: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1596: FND_MSG_PUB.Add;
1597: RAISE FND_API.G_EXC_ERROR;
1598: END IF;
1591: END IF;
1592:
1593: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1594: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1595: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1596: FND_MSG_PUB.Add;
1597: RAISE FND_API.G_EXC_ERROR;
1598: END IF;
1599:
1621: WHEN OTHERS THEN
1622: ROLLBACK to validate_transfer;
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: IF (SQLCODE IS NOT NULL) THEN
1625: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1626: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1627: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1628: END IF;
1629:
1622: ROLLBACK to validate_transfer;
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: IF (SQLCODE IS NOT NULL) THEN
1625: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1626: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1627: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1628: END IF;
1629:
1630: FND_MSG_PUB.Count_AND_GET
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: IF (SQLCODE IS NOT NULL) THEN
1625: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1626: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1627: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1628: END IF;
1629:
1630: FND_MSG_PUB.Count_AND_GET
1631: (p_count => x_msg_count, p_data => x_msg_data);
1724:
1725: END IF;
1726:
1727: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1728: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1729: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1730: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1731: FND_MSG_PUB.Add;
1732: RAISE FND_API.G_EXC_ERROR;
1725: END IF;
1726:
1727: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1728: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1729: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1730: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1731: FND_MSG_PUB.Add;
1732: RAISE FND_API.G_EXC_ERROR;
1733: END IF;
1726:
1727: IF (NVL(p_hdr_rec.transfer_number, ' ') = ' ') THEN
1728: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
1729: FND_MESSAGE.SET_TOKEN('DOC_TYPE','DXFR');
1730: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
1731: FND_MSG_PUB.Add;
1732: RAISE FND_API.G_EXC_ERROR;
1733: END IF;
1734:
1879: log_msg('After call to procedure INV_LPN_TRX_PUB.PROCESS_LPN_TRX .return val is '||l_return_val);
1880: END IF;
1881:
1882: IF (l_return_val <> 0) THEN
1883: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1884: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1885: FND_MSG_PUB.Add;
1886: RAISE FND_API.G_EXC_ERROR;
1887: END IF;
1880: END IF;
1881:
1882: IF (l_return_val <> 0) THEN
1883: FND_MESSAGE.SET_NAME ('GMI','GMI_SET_STRING');
1884: FND_MESSAGE.SET_TOKEN('STRING', substrb(x_msg_data,1,240));
1885: FND_MSG_PUB.Add;
1886: RAISE FND_API.G_EXC_ERROR;
1887: END IF;
1888:
1945:
1946: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
1947: BEGIN
1948:
1949: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
1950: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
1951: FND_MSG_PUB.Add;
1952:
1953: END log_msg ;
1946: PROCEDURE log_msg(p_msg_text IN VARCHAR2) IS
1947: BEGIN
1948:
1949: FND_MESSAGE.SET_NAME('GMI','GMI_DEBUG_API');
1950: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
1951: FND_MSG_PUB.Add;
1952:
1953: END log_msg ;
1954: