[Home] [Help]
32: PROCEDURE log_msg(p_msg_text IN VARCHAR2);
33:
34: /* Global variables */
35: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
36: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
37: -- msg level threshhold gobal
38: -- variable.
39: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
40: -- to decide to log a debug msg.
35: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
36: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
37: -- msg level threshhold gobal
38: -- variable.
39: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
40: -- to decide to log a debug msg.
41:
42:
43: /* +==========================================================================+
79:
80: BEGIN
81:
82: IF FND_API.to_boolean(p_init_msg_list) THEN
83: FND_MSG_PUB.Initialize;
84: END IF;
85:
86: -- Standard call to check for call compatibility.
87: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
111: , p_line_rec_tbl => l_line_rec_tbl
112: , p_lot_rec_tbl => l_lot_rec_tbl
113: );
114:
115: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
116: log_msg('return code from Validate_transfer. return status is '||x_return_status);
117: END IF;
118:
119: IF (x_return_status = FND_API.G_RET_STS_ERROR) 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;
157: END IF;
160: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162: END IF;
163:
164: FND_MSG_PUB.Count_AND_GET
165: (p_count => x_msg_count, p_data => x_msg_data);
166:
167:
168: EXCEPTION
169:
170: WHEN FND_API.G_EXC_ERROR THEN
171: --empty the quantity tree cache
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: FND_MSG_PUB.Count_AND_GET
174: (p_count => x_msg_count, p_data => x_msg_data);
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: --empty the quantity tree cache
175:
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
177: --empty the quantity tree cache
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179: FND_MSG_PUB.Count_AND_GET
180: (p_count => x_msg_count, p_data => x_msg_data);
181:
182: WHEN OTHERS THEN
183: --empty the quantity tree cache
181:
182: WHEN OTHERS THEN
183: --empty the quantity tree cache
184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: FND_MSG_PUB.Count_AND_GET
186: (p_count => x_msg_count, p_data => x_msg_data);
187:
188: END Create_transfer_pvt;
189:
335:
336: BEGIN
337:
338: IF FND_API.to_boolean(p_init_msg_list) THEN
339: FND_MSG_PUB.Initialize;
340: END IF;
341:
342: SAVEPOINT validate_transfer;
343:
353:
354: --this call will set up the profiles needed by the create lot engine
355: --and transaction engine in OPM.
356: IF (NOT GMIGUTL.SETUP(FND_GLOBAL.USER_NAME)) THEN
357: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
358: log_msg('Failed call to GMIGUTL.SETUP');
359: END IF;
360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
361: END IF;
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:
371: --check for the WMS installation in FND_PRODUCT_INSTALLATION
375: ELSE
376: WMS_INSTALLED := 'FALSE';
377: END IF;
378:
379: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
380: log_msg('Begin validation of header record');
381: END IF;
382:
383: -- Validate the orgn_code.
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);
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:
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
411: OPEN Cur_transfer_no_exists(p_hdr_rec.transfer_number,p_hdr_rec.orgn_code) ;
411: OPEN Cur_transfer_no_exists(p_hdr_rec.transfer_number,p_hdr_rec.orgn_code) ;
412: FETCH Cur_transfer_no_exists INTO l_count;
413: CLOSE Cur_transfer_no_exists;
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);
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;
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:
435: --Validate the transaction type in ODM.
441: l_odm_txn_type_rec.transaction_type_id := 32;
442: END IF;
443:
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);
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:
454: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
450: FND_MSG_PUB.Add;
451: RAISE FND_API.G_EXC_ERROR;
452: END IF;
453:
454: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
455: log_msg('End validation of header record');
456: END IF;
457:
458:
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:
469: FOR i in 1..p_line_rec_tbl.count LOOP --{
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
468:
469: FOR i in 1..p_line_rec_tbl.count LOOP --{
470: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
471: log_msg('Begin validation of Line record '||to_char(p_line_rec_tbl(i).line_no));
472: END IF;
473:
474: BEGIN
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
484: log_msg('Line number '||to_char(p_line_rec_tbl(i).line_no)||' present in more than one line');
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
484: log_msg('Line number '||to_char(p_line_rec_tbl(i).line_no)||' present in more than one line');
485: END IF;
486:
487: END IF;
491: --validating item in ODM.
492: l_org.organization_id := p_line_rec_tbl(i).odm_inv_organization_id;
493:
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;
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:
503: /* All lines need an item. Make sure we have one which can be used */
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
514: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
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;
520:
526:
527: --Validate the item in ODM
528: l_item.inventory_item_id := p_line_rec_tbl(i).odm_item_id;
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;
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:
547: IF (l_item.revision_qty_control_code = 1) THEN
548: p_line_rec_tbl(i).odm_item_revision := NULL;
549: ELSIF (l_item.revision_qty_control_code = 2) THEN
550: --Validate the item revision in ODM
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;
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
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;
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:
569: SELECT count(1)
574: AND revision = p_line_rec_tbl(i).odm_item_revision
575: AND implementation_date IS NOT NULL;
576:
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;
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;
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:
596: /* **************************************************************
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:
607: --Get uom_code for OPM item's primary UOM
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:
618: --Get uom_code for OPM item's secondary UOM
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:
631: --lets see if the OPM warehouse is valid
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:
642: --lets validate the ODM subinventory
664: ,p_item => l_item
665: ,p_acct_txn => p_hdr_rec.transfer_type
666: ) = inv_validate.F
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;
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:
676: --need to call overloaded INV_Validate.validatelocator depending on whether the
686: AND (l_item.location_control_code = 1)
687: )
688: ) THEN
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;
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
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;
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:
707:
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;
722:
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;
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:
742: --Lets validate the transaction date in OPM
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');
756: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
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:
762: --lets us validate the transaction date for discrete
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');
782: FND_MSG_PUB.Add;
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:
786: IF (INV_TRANS_DATE_OPTION = 3) THEN
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
794: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
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');
810: FND_MSG_PUB.Add;
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
814: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
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:
820: --Validate the discrete reason id
820: --Validate the discrete reason id
821: --Entering the discrete reason id is optional.
822: IF (p_line_rec_tbl(i).odm_reason_id IS NOT NULL) THEN
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;
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;
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');
841: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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');
846: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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:
851: --lets validate the UOM .
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:
865: /* Jalaj Srivastava Bug 3812701 */
871:
872: /* Jalaj Srivastava Bug 3812701 */
873: /* Validate odm_quantity_uom_code in discrete */
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;
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:
883: --Lets Validate the locations in OPM
884: IF ( (x_ic_whse_mst_row.loct_ctl = 0)
885: OR (x_ic_item_mst_row.loct_ctl = 0)
886: ) THEN
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);
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;
899: ELSIF ( (x_ic_whse_mst_row.loct_ctl = 1)
905: AND location = p_line_rec_tbl(i).opm_location
906: AND location <> GMIGUTL.IC$DEFAULT_LOCT;
907:
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);
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)
920: OR (x_ic_item_mst_row.loct_ctl = 2)
926: AND location <> GMIGUTL.IC$DEFAULT_LOCT;
927:
928: --we could have non validated locations in OPM when transfer is from discrete to process.
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);
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:
941: END IF;
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;
954:
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:
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:
979: l_check_qty := l_check_qty + p_lot_rec_tbl(k).quantity;
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
994: p_line_rec_tbl(i).lot_level := 0;
1012: --We need to capture this as ODM may change the transaction qty at lot level
1013: --to conform to rules defined in MTL.
1014: FOR j in 1..p_lot_rec_tbl.count LOOP
1015: BEGIN
1016: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1017: log_msg('Begin validation of lot. lot record no '||to_char(j));
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;
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);
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:
1035: --transfer is from process to discrete
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;
1047:
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
1057: log_msg('Start validating OPM lot when transfer type is 0');
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
1057: log_msg('Start validating OPM lot when transfer type is 0');
1058: END IF;
1059:
1060: BEGIN
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;
1075:
1102: p_line_rec_tbl(i).quantity_um,
1103: x_ic_item_mst_row.item_um,
1104: 0
1105: );
1106: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1107: log_msg('After calling GMICUOM.uom_conversion to get opm_primary_quantity when transfer type is 0. return val is '||l_return_val);
1108: END IF;
1109: IF(l_return_val >= 0) THEN
1110: p_lot_rec_tbl(j).opm_primary_quantity := l_return_val;
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)
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
1151: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
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:
1158: --lets check the deviation between OPM primary and secondary if secondary is passed
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:
1174: l_return_val := GMICUOM.uom_conversion
1179: p_line_rec_tbl(i).quantity_um,
1180: x_ic_item_mst_row.item_um2,
1181: 0
1182: );
1183: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1184: log_msg('After calling GMICUOM.uom_conversion to get quantity2 when transfer type is 0. return val is '||l_return_val);
1185: END IF;
1186:
1187: IF(l_return_val >= 0) 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;
1218: END IF;
1219: END IF;
1220: ELSIF (x_ic_item_mst_row.dualum_ind = 0) THEN
1221: p_lot_rec_tbl(j).quantity2 := NULL;
1222: END IF;
1223:
1224: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1225: log_msg('Transfer type is 0. checking if the OPM lot already exists in discrete');
1226: END IF;
1227:
1228: --Lets see if the OPM lot already exists in discrete
1238: p_item => l_item
1239: ) = inv_validate.F) THEN
1240:
1241:
1242: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1243: log_msg('ODM lot does not previously exist when transfer type is 0');
1244: END IF;
1245:
1246: IF (l_item.shelf_life_code = 1) THEN
1249: p_lot_rec_tbl(j).odm_lot_expiration_date := p_lot_rec_tbl(j).opm_lot_expiration_date;
1250: END IF;
1251: END IF;--}
1252:
1253: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1254: log_msg('Transfer type is 0. End of check whether the OPM lot already exists in discrete');
1255: END IF;
1256:
1257: --OPM is migrating all lot specific conversions to discrete as is
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:
1273: END IF;--}
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:
1287: END IF;--}
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:
1301: END IF;--}
1324:
1325: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1326: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1327: ELSE
1328: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1329: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');
1330: END IF;
1331: END IF;
1332:
1345: x_ic_item_mst_row.item_um,
1346: 0
1347: );
1348:
1349: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1350: log_msg('After calling GMICUOM.uom_conversion to get opm_primary_quantity when transfer type is 1. return val is '||l_return_val);
1351: END IF;
1352:
1353: IF(l_return_val >= 0) 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;
1384:
1385: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
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:
1396: l_return_val := GMICUOM.uom_conversion
1402: x_ic_item_mst_row.item_um2,
1403: 0
1404: );
1405:
1406: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1407: log_msg('After calling GMICUOM.uom_conversion to get quantity2 when transfer type is 1. return val is '||l_return_val);
1408: END IF;
1409:
1410: IF(l_return_val >= 0) 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;
1441:
1442: END IF;
1463: END IF;
1464:
1465: END IF ;
1466: --}
1467: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1468: log_msg('Ending validation of lot.lot record no '||to_char(j));
1469: END IF;
1470:
1471: END;
1569: ,v_business_class_cat_id => gl_business_class_cat_id --Bug#4114621
1570: ,v_product_line_cat_id => gl_product_line_cat_id --Bug#4114621
1571: );
1572:
1573: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1574: log_msg('After call to gmf_get_mappings.get_account_mappings ');
1575: END IF;
1576: --now lets get the ccid (same as ODM charge acct id)
1577: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1573: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1574: log_msg('After call to gmf_get_mappings.get_account_mappings ');
1575: END IF;
1576: --now lets get the ccid (same as ODM charge acct id)
1577: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1578: log_msg('Before call to gmf_validate_account.get_accu_acct_ids ');
1579: END IF;
1580:
1581: --get ccid which is the same as odm_charge_account_id
1592: x_status => x_return_status,
1593: x_errmsg => x_msg_data
1594: );
1595:
1596: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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
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:
1607: END;
1607: END;
1608: END LOOP; -- this for the lines.
1609: --}
1610:
1611: FND_MSG_PUB.Count_AND_GET
1612: (p_count => x_msg_count, p_data => x_msg_data);
1613:
1614: EXCEPTION
1615:
1615:
1616: WHEN FND_API.G_EXC_ERROR THEN
1617: ROLLBACK to validate_transfer;
1618: x_return_status := FND_API.G_RET_STS_ERROR;
1619: FND_MSG_PUB.Count_AND_GET
1620: (p_count => x_msg_count, p_data => x_msg_data);
1621:
1622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1623: ROLLBACK to validate_transfer;
1621:
1622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1623: ROLLBACK to validate_transfer;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: FND_MSG_PUB.Count_AND_GET
1626: (p_count => x_msg_count, p_data => x_msg_data);
1627:
1628: WHEN OTHERS THEN
1629: ROLLBACK to validate_transfer;
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);
1639:
1640:
1641: END Validate_transfer;
1692:
1693: BEGIN
1694:
1695: IF FND_API.to_boolean(p_init_msg_list) THEN
1696: FND_MSG_PUB.Initialize;
1697: END IF;
1698:
1699: SAVEPOINT create_transfer;
1700:
1718: , p_doc_type => 'DXFR'
1719: , p_orgn_code => p_hdr_rec.orgn_code
1720: );
1721:
1722: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1723: log_msg('After calling GMIVDBX.Get_doc_no.return status is '||x_return_status);
1724: END IF;
1725:
1726: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
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:
1742: --lets insert the header record.
1753: , p_hdr_rec => p_hdr_rec
1754: , x_hdr_row => x_hdr_row
1755: );
1756:
1757: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1758: log_msg('After calling GMIVDBX.header_insert.return status is '||x_return_status);
1759: END IF;
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1766:
1767: --now we will insert the lines and the lots.
1768: FOR i in 1..p_line_rec_tbl.count LOOP --{
1769: BEGIN
1770: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1771: log_msg('Constructing record for posting line no '||to_char(i));
1772: END IF;
1773: --lot could be sepcified at the lot level or the line level.
1774: --we are ready to insert records in gmi_discrete_transfer_lines
1785: , p_line_rec => p_line_rec_tbl(i)
1786: , x_line_row => x_line_row_tbl(i)
1787: );
1788:
1789: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1790: log_msg('After call to procedure GMIVDBX.line_insert return status is '||x_return_status);
1791: END IF;
1792: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1793: RAISE FND_API.G_EXC_ERROR;
1802: FOR j in 1..p_lot_rec_tbl.count LOOP --{
1803: --{
1804: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN
1805:
1806: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1807: log_msg('Constructing record for posting line no '||to_char(i)||' and lot record '||to_char(j));
1808: END IF;
1809:
1810: --OK lets insert records in gmi_transfer_lots.
1821: , p_lot_rec => p_lot_rec_tbl(j)
1822: , x_lot_row => x_lot_row_tbl(j)
1823: );
1824:
1825: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1826: log_msg('After call to procedure GMIVDBX.lot_insert return status is '||x_return_status);
1827: END IF;
1828: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1836: END LOOP;--} --LOOP for lots with lot specified at the lot level.
1837:
1838: END IF; --}
1839:
1840: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1841: log_msg('Calling GMIVTDX.create_txn_update_balances for posting line no '||to_char(i));
1842: END IF;
1843:
1844: --below procedure is called once for each line
1857: , p_transfer_id => x_hdr_row.transfer_id
1858: , p_line_id => x_line_row_tbl(i).line_id
1859: , x_transaction_header_id => p_hdr_rec.transaction_header_id
1860: );
1861: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1862: log_msg('After call to procedure GMIVTDX.create_txn_update_balances.return status is '||x_return_status);
1863: END IF;
1864: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1865: RAISE FND_API.G_EXC_ERROR;
1881: ,p_process_trx => fnd_api.g_true
1882: ,p_atomic => fnd_api.g_true
1883: ,p_business_flow_code => NULL
1884: );
1885: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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
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:
1896: --everything is good. set costed flag to yes in mmt
1918: END IF;
1919: --rlnagara 2 Material Status Migration ME end.
1920:
1921:
1922: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1923: log_msg('After update to mmt.costed_flag');
1924: END IF;
1925:
1926:
1923: log_msg('After update to mmt.costed_flag');
1924: END IF;
1925:
1926:
1927: FND_MSG_PUB.Count_AND_GET
1928: (p_count => x_msg_count, p_data => x_msg_data);
1929:
1930:
1931: EXCEPTION
1932:
1933: WHEN FND_API.G_EXC_ERROR THEN
1934: ROLLBACK to create_transfer;
1935: x_return_status := FND_API.G_RET_STS_ERROR;
1936: FND_MSG_PUB.Count_AND_GET
1937: (p_count => x_msg_count, p_data => x_msg_data);
1938:
1939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1940: ROLLBACK to create_transfer;
1938:
1939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1940: ROLLBACK to create_transfer;
1941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1942: FND_MSG_PUB.Count_AND_GET
1943: (p_count => x_msg_count, p_data => x_msg_data);
1944:
1945: WHEN OTHERS THEN
1946: ROLLBACK to create_transfer;
1944:
1945: WHEN OTHERS THEN
1946: ROLLBACK to create_transfer;
1947: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1948: FND_MSG_PUB.Count_AND_GET
1949: (p_count => x_msg_count, p_data => x_msg_data);
1950:
1951: END construct_post_records;
1952:
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:
1962: END GMIVDX;