[Home] [Help]
30: PROCEDURE log_msg(p_msg_text IN VARCHAR2);
31:
32: /* Global variables */
33: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
34: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
35: -- msg level threshhold gobal
36: -- variable.
37: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
38: -- to decide to log a debug msg.
33: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
34: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
35: -- msg level threshhold gobal
36: -- variable.
37: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
38: -- to decide to log a debug msg.
39:
40:
41: /* +==========================================================================+
77:
78: BEGIN
79:
80: IF FND_API.to_boolean(p_init_msg_list) THEN
81: FND_MSG_PUB.Initialize;
82: END IF;
83:
84: -- Standard call to check for call compatibility.
85: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
109: , p_line_rec_tbl => l_line_rec_tbl
110: , p_lot_rec_tbl => l_lot_rec_tbl
111: );
112:
113: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
114: log_msg('return code from Validate_transfer. return status is '||x_return_status);
115: END IF;
116:
117: IF (x_return_status = FND_API.G_RET_STS_ERROR) 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;
155: END IF;
158: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161:
162: FND_MSG_PUB.Count_AND_GET
163: (p_count => x_msg_count, p_data => x_msg_data);
164:
165:
166: EXCEPTION
167:
168: WHEN FND_API.G_EXC_ERROR THEN
169: --empty the quantity tree cache
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: FND_MSG_PUB.Count_AND_GET
172: (p_count => x_msg_count, p_data => x_msg_data);
173:
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: --empty the quantity tree cache
173:
174: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
175: --empty the quantity tree cache
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: FND_MSG_PUB.Count_AND_GET
178: (p_count => x_msg_count, p_data => x_msg_data);
179:
180: WHEN OTHERS THEN
181: --empty the quantity tree cache
179:
180: WHEN OTHERS THEN
181: --empty the quantity tree cache
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183: FND_MSG_PUB.Count_AND_GET
184: (p_count => x_msg_count, p_data => x_msg_data);
185:
186: END Create_transfer_pvt;
187:
328:
329: BEGIN
330:
331: IF FND_API.to_boolean(p_init_msg_list) THEN
332: FND_MSG_PUB.Initialize;
333: END IF;
334:
335: SAVEPOINT validate_transfer;
336:
346:
347: --this call will set up the profiles needed by the create lot engine
348: --and transaction engine in OPM.
349: IF (NOT GMIGUTL.SETUP(FND_GLOBAL.USER_NAME)) THEN
350: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
351: log_msg('Failed call to GMIGUTL.SETUP');
352: END IF;
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
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:
364: --check for the WMS installation in FND_PRODUCT_INSTALLATION
368: ELSE
369: WMS_INSTALLED := 'FALSE';
370: END IF;
371:
372: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
373: log_msg('Begin validation of header record');
374: END IF;
375:
376: -- Validate the orgn_code.
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);
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:
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
404: OPEN Cur_transfer_no_exists(p_hdr_rec.transfer_number,p_hdr_rec.orgn_code) ;
404: OPEN Cur_transfer_no_exists(p_hdr_rec.transfer_number,p_hdr_rec.orgn_code) ;
405: FETCH Cur_transfer_no_exists INTO l_count;
406: CLOSE Cur_transfer_no_exists;
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);
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;
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:
428: --Validate the transaction type in ODM.
434: l_odm_txn_type_rec.transaction_type_id := 32;
435: END IF;
436:
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);
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:
447: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
443: FND_MSG_PUB.Add;
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446:
447: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
448: log_msg('End validation of header record');
449: END IF;
450:
451:
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:
462: FOR i in 1..p_line_rec_tbl.count LOOP --{
459: RAISE FND_API.G_EXC_ERROR;
460: END IF;
461:
462: FOR i in 1..p_line_rec_tbl.count LOOP --{
463: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
464: log_msg('Begin validation of Line record '||to_char(p_line_rec_tbl(i).line_no));
465: END IF;
466:
467: BEGIN
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
477: log_msg('Line number '||to_char(p_line_rec_tbl(i).line_no)||' present in more than one line');
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
477: log_msg('Line number '||to_char(p_line_rec_tbl(i).line_no)||' present in more than one line');
478: END IF;
479:
480: END IF;
484: --validating item in ODM.
485: l_org.organization_id := p_line_rec_tbl(i).odm_inv_organization_id;
486:
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;
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:
496: /* All lines need an item. Make sure we have one which can be used */
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
507: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_OPM_ITEM_ID_NOT_FOUND');
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;
513:
519:
520: --Validate the item in ODM
521: l_item.inventory_item_id := p_line_rec_tbl(i).odm_item_id;
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;
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:
540: IF (l_item.revision_qty_control_code = 1) THEN
541: p_line_rec_tbl(i).odm_item_revision := NULL;
542: ELSIF (l_item.revision_qty_control_code = 2) THEN
543: --Validate the item revision in ODM
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;
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
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;
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:
562: SELECT count(1)
567: AND revision = p_line_rec_tbl(i).odm_item_revision
568: AND implementation_date IS NOT NULL;
569:
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;
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;
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:
589: /* **************************************************************
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:
600: --Get uom_code for OPM item's primary UOM
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:
611: --Get uom_code for OPM item's secondary UOM
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:
624: --lets see if the OPM warehouse is valid
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:
635: --lets validate the ODM subinventory
657: ,p_item => l_item
658: ,p_acct_txn => p_hdr_rec.transfer_type
659: ) = inv_validate.F
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;
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:
669: --need to call overloaded INV_Validate.validatelocator depending on whether the
679: AND (l_item.location_control_code = 1)
680: )
681: ) THEN
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;
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
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;
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:
700:
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;
715:
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;
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:
735: --Lets validate the transaction date in OPM
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');
749: FND_MESSAGE.SET_TOKEN('ITEM_NO' , x_ic_item_mst_row.item_no);
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:
755: --lets us validate the transaction date for discrete
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');
775: FND_MSG_PUB.Add;
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:
779: IF (INV_TRANS_DATE_OPTION = 3) THEN
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
787: IF ( NOT INV_OPEN_PAST_PERIOD) THEN
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');
803: FND_MSG_PUB.Add;
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
807: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
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:
813: --Validate the discrete reason id
813: --Validate the discrete reason id
814: --Entering the discrete reason id is optional.
815: IF (p_line_rec_tbl(i).odm_reason_id IS NOT NULL) THEN
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;
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;
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');
834: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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');
839: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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:
844: --lets validate the UOM .
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:
858: /* Jalaj Srivastava Bug 3812701 */
864:
865: /* Jalaj Srivastava Bug 3812701 */
866: /* Validate odm_quantity_uom_code in discrete */
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;
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:
876: --Lets Validate the locations in OPM
877: IF ( (x_ic_whse_mst_row.loct_ctl = 0)
878: OR (x_ic_item_mst_row.loct_ctl = 0)
879: ) THEN
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);
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;
892: ELSIF ( (x_ic_whse_mst_row.loct_ctl = 1)
898: AND location = p_line_rec_tbl(i).opm_location
899: AND location <> GMIGUTL.IC$DEFAULT_LOCT;
900:
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);
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)
913: OR (x_ic_item_mst_row.loct_ctl = 2)
919: AND location <> GMIGUTL.IC$DEFAULT_LOCT;
920:
921: --we could have non validated locations in OPM when transfer is from discrete to process.
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);
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:
934: END IF;
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;
947:
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:
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:
972: l_check_qty := l_check_qty + p_lot_rec_tbl(k).quantity;
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
987: p_line_rec_tbl(i).lot_level := 0;
1005: --We need to capture this as ODM may change the transaction qty at lot level
1006: --to conform to rules defined in MTL.
1007: FOR j in 1..p_lot_rec_tbl.count LOOP
1008: BEGIN
1009: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1010: log_msg('Begin validation of lot. lot record no '||to_char(j));
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;
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);
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:
1028: --transfer is from process to discrete
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;
1040:
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
1050: log_msg('Start validating OPM lot when transfer type is 0');
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
1050: log_msg('Start validating OPM lot when transfer type is 0');
1051: END IF;
1052:
1053: BEGIN
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;
1068:
1095: p_line_rec_tbl(i).quantity_um,
1096: x_ic_item_mst_row.item_um,
1097: 0
1098: );
1099: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1100: log_msg('After calling GMICUOM.uom_conversion to get opm_primary_quantity when transfer type is 0. return val is '||l_return_val);
1101: END IF;
1102: IF(l_return_val >= 0) THEN
1103: p_lot_rec_tbl(j).opm_primary_quantity := l_return_val;
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)
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
1144: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_CANNOT_GET_ONHAND');
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:
1151: --lets check the deviation between OPM primary and secondary if secondary is passed
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:
1167: l_return_val := GMICUOM.uom_conversion
1172: p_line_rec_tbl(i).quantity_um,
1173: x_ic_item_mst_row.item_um2,
1174: 0
1175: );
1176: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1177: log_msg('After calling GMICUOM.uom_conversion to get quantity2 when transfer type is 0. return val is '||l_return_val);
1178: END IF;
1179:
1180: IF(l_return_val >= 0) 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;
1211: END IF;
1212: END IF;
1213: ELSIF (x_ic_item_mst_row.dualum_ind = 0) THEN
1214: p_lot_rec_tbl(j).quantity2 := NULL;
1215: END IF;
1216:
1217: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1218: log_msg('Transfer type is 0. checking if the OPM lot already exists in discrete');
1219: END IF;
1220:
1221: --Lets see if the OPM lot already exists in discrete
1231: p_item => l_item
1232: ) = inv_validate.F) THEN
1233:
1234:
1235: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1236: log_msg('ODM lot does not previously exist when transfer type is 0');
1237: END IF;
1238:
1239: IF (l_item.shelf_life_code = 1) THEN
1242: p_lot_rec_tbl(j).odm_lot_expiration_date := p_lot_rec_tbl(j).opm_lot_expiration_date;
1243: END IF;
1244: END IF;--}
1245:
1246: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1247: log_msg('Transfer type is 0. End of check whether the OPM lot already exists in discrete');
1248: END IF;
1249:
1250: --OPM is migrating all lot specific conversions to discrete as is
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:
1266: END IF;--}
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:
1280: END IF;--}
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:
1294: END IF;--}
1317:
1318: IF GMIVDBL.ic_loct_inv_select(x_ic_loct_inv_row, x_ic_loct_inv_row) THEN
1319: p_lot_rec_tbl(j).opm_lot_status := x_ic_loct_inv_row.lot_status;
1320: ELSE
1321: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1322: log_msg('Failed call to GMIVDBL.ic_loct_inv_select when transfer type is 1. Not an error.');
1323: END IF;
1324: END IF;
1325:
1338: x_ic_item_mst_row.item_um,
1339: 0
1340: );
1341:
1342: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1343: log_msg('After calling GMICUOM.uom_conversion to get opm_primary_quantity when transfer type is 1. return val is '||l_return_val);
1344: END IF;
1345:
1346: IF(l_return_val >= 0) 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;
1377:
1378: IF (x_ic_item_mst_row.dualum_ind > 0) THEN
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:
1389: l_return_val := GMICUOM.uom_conversion
1395: x_ic_item_mst_row.item_um2,
1396: 0
1397: );
1398:
1399: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1400: log_msg('After calling GMICUOM.uom_conversion to get quantity2 when transfer type is 1. return val is '||l_return_val);
1401: END IF;
1402:
1403: IF(l_return_val >= 0) 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;
1434:
1435: END IF;
1456: END IF;
1457:
1458: END IF ;
1459: --}
1460: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1461: log_msg('Ending validation of lot.lot record no '||to_char(j));
1462: END IF;
1463:
1464: END;
1562: ,v_business_class_cat_id => gl_business_class_cat_id --Bug#4114621
1563: ,v_product_line_cat_id => gl_product_line_cat_id --Bug#4114621
1564: );
1565:
1566: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1567: log_msg('After call to gmf_get_mappings.get_account_mappings ');
1568: END IF;
1569: --now lets get the ccid (same as ODM charge acct id)
1570: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1566: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1567: log_msg('After call to gmf_get_mappings.get_account_mappings ');
1568: END IF;
1569: --now lets get the ccid (same as ODM charge acct id)
1570: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1571: log_msg('Before call to gmf_validate_account.get_accu_acct_ids ');
1572: END IF;
1573:
1574: --get ccid which is the same as odm_charge_account_id
1585: x_status => x_return_status,
1586: x_errmsg => x_msg_data
1587: );
1588:
1589: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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
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:
1600: END;
1600: END;
1601: END LOOP; -- this for the lines.
1602: --}
1603:
1604: FND_MSG_PUB.Count_AND_GET
1605: (p_count => x_msg_count, p_data => x_msg_data);
1606:
1607: EXCEPTION
1608:
1608:
1609: WHEN FND_API.G_EXC_ERROR THEN
1610: ROLLBACK to validate_transfer;
1611: x_return_status := FND_API.G_RET_STS_ERROR;
1612: FND_MSG_PUB.Count_AND_GET
1613: (p_count => x_msg_count, p_data => x_msg_data);
1614:
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: ROLLBACK to validate_transfer;
1614:
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1616: ROLLBACK to validate_transfer;
1617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1618: FND_MSG_PUB.Count_AND_GET
1619: (p_count => x_msg_count, p_data => x_msg_data);
1620:
1621: WHEN OTHERS THEN
1622: ROLLBACK to validate_transfer;
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);
1632:
1633:
1634: END Validate_transfer;
1685:
1686: BEGIN
1687:
1688: IF FND_API.to_boolean(p_init_msg_list) THEN
1689: FND_MSG_PUB.Initialize;
1690: END IF;
1691:
1692: SAVEPOINT create_transfer;
1693:
1711: , p_doc_type => 'DXFR'
1712: , p_orgn_code => p_hdr_rec.orgn_code
1713: );
1714:
1715: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1716: log_msg('After calling GMIVDBX.Get_doc_no.return status is '||x_return_status);
1717: END IF;
1718:
1719: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
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:
1735: --lets insert the header record.
1746: , p_hdr_rec => p_hdr_rec
1747: , x_hdr_row => x_hdr_row
1748: );
1749:
1750: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1751: log_msg('After calling GMIVDBX.header_insert.return status is '||x_return_status);
1752: END IF;
1753:
1754: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1759:
1760: --now we will insert the lines and the lots.
1761: FOR i in 1..p_line_rec_tbl.count LOOP --{
1762: BEGIN
1763: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1764: log_msg('Constructing record for posting line no '||to_char(i));
1765: END IF;
1766: --lot could be sepcified at the lot level or the line level.
1767: --we are ready to insert records in gmi_discrete_transfer_lines
1778: , p_line_rec => p_line_rec_tbl(i)
1779: , x_line_row => x_line_row_tbl(i)
1780: );
1781:
1782: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1783: log_msg('After call to procedure GMIVDBX.line_insert return status is '||x_return_status);
1784: END IF;
1785: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1786: RAISE FND_API.G_EXC_ERROR;
1795: FOR j in 1..p_lot_rec_tbl.count LOOP --{
1796: --{
1797: IF (p_lot_rec_tbl(j).line_no = p_line_rec_tbl(i).line_no) THEN
1798:
1799: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1800: log_msg('Constructing record for posting line no '||to_char(i)||' and lot record '||to_char(j));
1801: END IF;
1802:
1803: --OK lets insert records in gmi_transfer_lots.
1814: , p_lot_rec => p_lot_rec_tbl(j)
1815: , x_lot_row => x_lot_row_tbl(j)
1816: );
1817:
1818: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1819: log_msg('After call to procedure GMIVDBX.lot_insert return status is '||x_return_status);
1820: END IF;
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1829: END LOOP;--} --LOOP for lots with lot specified at the lot level.
1830:
1831: END IF; --}
1832:
1833: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1834: log_msg('Calling GMIVTDX.create_txn_update_balances for posting line no '||to_char(i));
1835: END IF;
1836:
1837: --below procedure is called once for each line
1850: , p_transfer_id => x_hdr_row.transfer_id
1851: , p_line_id => x_line_row_tbl(i).line_id
1852: , x_transaction_header_id => p_hdr_rec.transaction_header_id
1853: );
1854: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1855: log_msg('After call to procedure GMIVTDX.create_txn_update_balances.return status is '||x_return_status);
1856: END IF;
1857: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1858: RAISE FND_API.G_EXC_ERROR;
1874: ,p_process_trx => fnd_api.g_true
1875: ,p_atomic => fnd_api.g_true
1876: ,p_business_flow_code => NULL
1877: );
1878: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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
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:
1889: --everything is good. set costed flag to yes in mmt
1911: END IF;
1912: --rlnagara 2 Material Status Migration ME end.
1913:
1914:
1915: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
1916: log_msg('After update to mmt.costed_flag');
1917: END IF;
1918:
1919:
1916: log_msg('After update to mmt.costed_flag');
1917: END IF;
1918:
1919:
1920: FND_MSG_PUB.Count_AND_GET
1921: (p_count => x_msg_count, p_data => x_msg_data);
1922:
1923:
1924: EXCEPTION
1925:
1926: WHEN FND_API.G_EXC_ERROR THEN
1927: ROLLBACK to create_transfer;
1928: x_return_status := FND_API.G_RET_STS_ERROR;
1929: FND_MSG_PUB.Count_AND_GET
1930: (p_count => x_msg_count, p_data => x_msg_data);
1931:
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: ROLLBACK to create_transfer;
1931:
1932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1933: ROLLBACK to create_transfer;
1934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1935: FND_MSG_PUB.Count_AND_GET
1936: (p_count => x_msg_count, p_data => x_msg_data);
1937:
1938: WHEN OTHERS THEN
1939: ROLLBACK to create_transfer;
1937:
1938: WHEN OTHERS THEN
1939: ROLLBACK to create_transfer;
1940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_AND_GET
1942: (p_count => x_msg_count, p_data => x_msg_data);
1943:
1944: END construct_post_records;
1945:
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:
1955: END GMIVDX;