[Home] [Help]
55: | |
56: +==========================================================================+ */
57: PROCEDURE Create_transfer_pvt
58: ( p_api_version IN NUMBER
59: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
60: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
61: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
62: , x_return_status OUT NOCOPY VARCHAR2
63: , x_msg_count OUT NOCOPY NUMBER
56: +==========================================================================+ */
57: PROCEDURE Create_transfer_pvt
58: ( p_api_version IN NUMBER
59: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
60: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
61: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
62: , x_return_status OUT NOCOPY VARCHAR2
63: , x_msg_count OUT NOCOPY NUMBER
64: , x_msg_data OUT NOCOPY VARCHAR2
57: PROCEDURE Create_transfer_pvt
58: ( p_api_version IN NUMBER
59: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
60: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
61: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
62: , x_return_status OUT NOCOPY VARCHAR2
63: , x_msg_count OUT NOCOPY NUMBER
64: , x_msg_data OUT NOCOPY VARCHAR2
65: , p_hdr_rec IN hdr_type
78: l_lot_rec_tbl GMIVDX.lot_type_tbl;
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.
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 ,
88: p_api_version ,
89: l_api_name ,
90: G_PKG_NAME ) THEN
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
87: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
88: p_api_version ,
89: l_api_name ,
90: G_PKG_NAME ) THEN
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: x_return_status :=FND_API.G_RET_STS_SUCCESS;
95:
90: G_PKG_NAME ) THEN
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93:
94: x_return_status :=FND_API.G_RET_STS_SUCCESS;
95:
96: l_hdr_rec := p_hdr_rec;
97: l_line_rec_tbl := p_line_rec_tbl;
98: l_lot_rec_tbl := p_lot_rec_tbl;
100: --Validate the transfer
101: Validate_transfer
102: (
103: p_api_version => p_api_version
104: , p_init_msg_list => FND_API.G_FALSE
105: , p_commit => FND_API.G_FALSE
106: , p_validation_level => p_validation_level
107: , x_return_status => x_return_status
108: , x_msg_count => x_msg_count
101: Validate_transfer
102: (
103: p_api_version => p_api_version
104: , p_init_msg_list => FND_API.G_FALSE
105: , p_commit => FND_API.G_FALSE
106: , p_validation_level => p_validation_level
107: , x_return_status => x_return_status
108: , x_msg_count => x_msg_count
109: , x_msg_data => x_msg_data
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
120: RAISE FND_API.G_EXC_ERROR;
121: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
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
120: RAISE FND_API.G_EXC_ERROR;
121: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124:
117: END IF;
118:
119: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
120: RAISE FND_API.G_EXC_ERROR;
121: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124:
125: --if the validation of header, lines and lots is successful then
118:
119: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
120: RAISE FND_API.G_EXC_ERROR;
121: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
123: END IF;
124:
125: --if the validation of header, lines and lots is successful then
126: --lets construct and post records to gmi_discrete_transfers, gmi_discrete_transfers |
130:
131: construct_post_records
132: (
133: p_api_version => p_api_version
134: , p_init_msg_list => FND_API.G_FALSE
135: , p_commit => FND_API.G_FALSE
136: , p_validation_level => p_validation_level
137: , x_return_status => x_return_status
138: , x_msg_count => x_msg_count
131: construct_post_records
132: (
133: p_api_version => p_api_version
134: , p_init_msg_list => FND_API.G_FALSE
135: , p_commit => FND_API.G_FALSE
136: , p_validation_level => p_validation_level
137: , x_return_status => x_return_status
138: , x_msg_count => x_msg_count
139: , x_msg_data => x_msg_data
144: , x_line_row_tbl => x_line_row_tbl
145: , x_lot_row_tbl => x_lot_row_tbl
146: );
147:
148: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
149: x_transaction_set_id := l_hdr_rec.transaction_header_id;
150: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
151: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
152: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
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;
158: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
159: RAISE FND_API.G_EXC_ERROR;
154:
155: IF FND_API.to_boolean(p_commit) THEN
156: COMMIT WORK;
157: END IF;
158: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
159: RAISE FND_API.G_EXC_ERROR;
160: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162: END IF;
155: IF FND_API.to_boolean(p_commit) THEN
156: COMMIT WORK;
157: END IF;
158: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
159: RAISE FND_API.G_EXC_ERROR;
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:
156: COMMIT WORK;
157: END IF;
158: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
159: RAISE FND_API.G_EXC_ERROR;
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
157: END IF;
158: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
159: RAISE FND_API.G_EXC_ERROR;
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);
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
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
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);
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
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
180: (p_count => x_msg_count, p_data => x_msg_data);
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;
216:
217: +==========================================================================+ */
218: PROCEDURE Validate_transfer
219: ( p_api_version IN NUMBER
220: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
221: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
222: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
223: , x_return_status OUT NOCOPY VARCHAR2
224: , x_msg_count OUT NOCOPY NUMBER
217: +==========================================================================+ */
218: PROCEDURE Validate_transfer
219: ( p_api_version IN NUMBER
220: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
221: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
222: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
223: , x_return_status OUT NOCOPY VARCHAR2
224: , x_msg_count OUT NOCOPY NUMBER
225: , x_msg_data OUT NOCOPY VARCHAR2
218: PROCEDURE Validate_transfer
219: ( p_api_version IN NUMBER
220: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
221: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
222: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
223: , x_return_status OUT NOCOPY VARCHAR2
224: , x_msg_count OUT NOCOPY NUMBER
225: , x_msg_data OUT NOCOPY VARCHAR2
226: , p_hdr_rec IN OUT NOCOPY hdr_type
334: --End Supriya Malluru Bug#4114621
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;
341:
342: SAVEPOINT validate_transfer;
343:
344: -- Standard call to check for call compatibility.
345: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
346: p_api_version ,
347: l_api_name ,
348: G_PKG_NAME ) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
345: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
346: p_api_version ,
347: l_api_name ,
348: G_PKG_NAME ) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351:
352: x_return_status :=FND_API.G_RET_STS_SUCCESS;
353:
348: G_PKG_NAME ) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350: END IF;
351:
352: x_return_status :=FND_API.G_RET_STS_SUCCESS;
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
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;
362:
363: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
364: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
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
372: --this is used for checking material status for subinventory and locators.
384: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
385: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
386: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
387: FND_MSG_PUB.Add;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391: OPEN Cur_get_assigment_type(p_hdr_rec.orgn_code);
392: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
394: CLOSE Cur_get_assigment_type;
395: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
396: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
397: FND_MSG_PUB.Add;
398: RAISE FND_API.G_EXC_ERROR;
399: END IF;
400: CLOSE Cur_get_assigment_type;
401:
402: --For manual doc numbering, transfer no needs to be specified.
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) ;
412: FETCH Cur_transfer_no_exists INTO l_count;
418: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
419: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
420: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: END IF;
425: END IF;
426:
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.
436: --If transfer is Process to Discrete then the transaction type for ODM is MISC Receipt (42)
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
455: log_msg('End validation of header record');
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 --{
470: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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');
485: END IF;
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 */
504: x_ic_item_mst_row.item_no := NULL;
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');
515: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
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:
521: IF (x_ic_item_mst_row.lot_ctl = 0) 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;
553: log_msg('For revision controlled item revision is null');
554: END IF;
555: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
556: FND_MSG_PUB.Add;
557: RAISE FND_API.G_EXC_ERROR;
558: END IF;
559:
560: IF (inv_validate.revision (p_line_rec_tbl(i).odm_item_revision, l_org, l_item) = inv_validate.F) THEN
561: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
562: log_msg('failed call to inv_validate.revision');
563: END IF;
564: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
565: FND_MSG_PUB.Add;
566: RAISE FND_API.G_EXC_ERROR;
567: END IF;
568:
569: SELECT count(1)
570: INTO l_count
579: log_msg('For revision controlled item revision implementation date is null');
580: END IF;
581: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
582: FND_MSG_PUB.Add;
583: RAISE FND_API.G_EXC_ERROR;
584: END IF;
585:
586: END IF;
587:
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: /* **************************************************************
597: Item should be either lot controlled both in opm/discrete or not
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
608: OPEN Cur_get_uom_code(x_ic_item_mst_row.item_um);
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
619: IF (x_ic_item_mst_row.item_um2 IS NOT NULL) THEN
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
632: x_ic_whse_mst_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
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
643: --when transfer is process to discrete then the FROM subinventory is the default
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
677: --item is restricted locator controlled
691: log_msg('ODM locator id is not required as org/sub/item combination is non location controlled');
692: END IF;
693: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
694: FND_MSG_PUB.ADD;
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697: ELSE
698: IF (p_line_rec_tbl(i).odm_locator_id IS NULL) THEN
699: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
700: log_msg('ODM locator id is required as org/sub/item combination is location controlled');
701: END IF;
702: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
703: FND_MSG_PUB.ADD;
704: RAISE FND_API.G_EXC_ERROR;
705: END IF;
706:
707:
708: END IF;--}
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:
723: --Get ODM sob
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
743: l_return_val := GMICCAL.trans_date_validate
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);
757: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
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
763: -- Check if past date is allowed...
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;
783: RAISE FND_API.G_EXC_ERROR;
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
787: IF ( NOT INV_OPEN_PAST_PERIOD) 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
795: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
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;
811: RAISE FND_API.G_EXC_ERROR;
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');
815: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
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
821: --Entering the discrete reason id is optional.
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);
842: FND_MSG_PUB.Add;
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);
847: FND_MSG_PUB.Add;
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 .
852: --UOM should be same for lines and associated lot records
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 */
866: /* Get uom_code for this um from sy_uoms_mst */
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)
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)
900: AND (x_ic_item_mst_row.loct_ctl = 1)
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)
921: ) THEN
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;
942:
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:
955: --Quantity at line level should be the same as the sum of quantities
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;
980: l_lot_count := l_lot_count + 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;
995: -- we will also assign a default lot_type record so that validations for lot can take place
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);
1030: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
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
1036: --{
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:
1048: ELSIF (x_ic_item_mst_row.lot_ctl = 1) 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');
1058: END IF;
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:
1076: END IF;
1134: ELSIF (l_return_val < -11) THEN
1135: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1136: END IF;
1137: FND_MSG_PUB.ADD;
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140:
1141: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1142: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
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');
1152: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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
1159: --if it is not passed we calculate the secondary qty.
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
1175: (
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
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;--}
1274: --transfer is from discrete to process
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;--}
1288:
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;--}
1302:
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
1386: IF (p_lot_rec_tbl(j).quantity2 IS NULL) 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
1397: (
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;
1443: ELSIF (x_ic_item_mst_row.dualum_ind = 0) THEN
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
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;
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;
1608: END LOOP; -- this for the lines.
1612: (p_count => x_msg_count, p_data => x_msg_data);
1613:
1614: EXCEPTION
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);
1614: EXCEPTION
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
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;
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);
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;
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
1626: (p_count => x_msg_count, p_data => x_msg_data);
1627:
1628: WHEN OTHERS THEN
1629: ROLLBACK to validate_transfer;
1630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1631: IF (SQLCODE IS NOT NULL) THEN
1632: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1633: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1634: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1666: +==========================================================================+ */
1667:
1668: PROCEDURE construct_post_records
1669: ( p_api_version IN NUMBER
1670: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1671: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1672: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1673: , x_return_status OUT NOCOPY VARCHAR2
1674: , x_msg_count OUT NOCOPY NUMBER
1667:
1668: PROCEDURE construct_post_records
1669: ( p_api_version IN NUMBER
1670: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1671: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1672: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1673: , x_return_status OUT NOCOPY VARCHAR2
1674: , x_msg_count OUT NOCOPY NUMBER
1675: , x_msg_data OUT NOCOPY VARCHAR2
1668: PROCEDURE construct_post_records
1669: ( p_api_version IN NUMBER
1670: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1671: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1672: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1673: , x_return_status OUT NOCOPY VARCHAR2
1674: , x_msg_count OUT NOCOPY NUMBER
1675: , x_msg_data OUT NOCOPY VARCHAR2
1676: , p_hdr_rec IN OUT NOCOPY hdr_type
1691: l_lot_sts VARCHAR2(10);
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;
1698:
1699: SAVEPOINT create_transfer;
1700:
1701: -- Standard call to check for call compatibility.
1702: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1703: p_api_version ,
1704: l_api_name ,
1705: G_PKG_NAME ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1703: p_api_version ,
1704: l_api_name ,
1705: G_PKG_NAME ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708: x_return_status :=FND_API.G_RET_STS_SUCCESS;
1709:
1710: --lets prepare the header record.
1704: l_api_name ,
1705: G_PKG_NAME ) THEN
1706: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1707: END IF;
1708: x_return_status :=FND_API.G_RET_STS_SUCCESS;
1709:
1710: --lets prepare the header record.
1711: IF (p_hdr_rec.assignment_type = 2) THEN
1712: --automatic numbering
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
1727: RAISE FND_API.G_EXC_ERROR;
1728: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
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
1727: RAISE FND_API.G_EXC_ERROR;
1728: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1724: END IF;
1725:
1726: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1727: RAISE FND_API.G_EXC_ERROR;
1728: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1732: END IF;
1725:
1726: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1727: RAISE FND_API.G_EXC_ERROR;
1728: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1730: END IF;
1731:
1732: END IF;
1733:
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.
1743:
1743:
1744: GMIVDBX.header_insert
1745: (
1746: p_api_version => p_api_version
1747: , p_init_msg_list => FND_API.G_FALSE
1748: , p_commit => FND_API.G_FALSE
1749: , p_validation_level => p_validation_level
1750: , x_return_status => x_return_status
1751: , x_msg_count => x_msg_count
1744: GMIVDBX.header_insert
1745: (
1746: p_api_version => p_api_version
1747: , p_init_msg_list => FND_API.G_FALSE
1748: , p_commit => FND_API.G_FALSE
1749: , p_validation_level => p_validation_level
1750: , x_return_status => x_return_status
1751: , x_msg_count => x_msg_count
1752: , x_msg_data => x_msg_data
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
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
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
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1759: END IF;
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: --now we will insert the lines and the lots.
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: --now we will insert the lines and the lots.
1768: FOR i in 1..p_line_rec_tbl.count LOOP --{
1774: --we are ready to insert records in gmi_discrete_transfer_lines
1775: GMIVDBX.line_insert
1776: (
1777: p_api_version => p_api_version
1778: , p_init_msg_list => FND_API.G_FALSE
1779: , p_commit => FND_API.G_FALSE
1780: , p_validation_level => p_validation_level
1781: , x_return_status => x_return_status
1782: , x_msg_count => x_msg_count
1775: GMIVDBX.line_insert
1776: (
1777: p_api_version => p_api_version
1778: , p_init_msg_list => FND_API.G_FALSE
1779: , p_commit => FND_API.G_FALSE
1780: , p_validation_level => p_validation_level
1781: , x_return_status => x_return_status
1782: , x_msg_count => x_msg_count
1783: , x_msg_data => x_msg_data
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;
1794: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1796: END IF;
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;
1794: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1796: END IF;
1797:
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;
1794: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1796: END IF;
1797:
1798:
1791: END IF;
1792: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1793: RAISE FND_API.G_EXC_ERROR;
1794: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1796: END IF;
1797:
1798:
1799: --{
1810: --OK lets insert records in gmi_transfer_lots.
1811: GMIVDBX.lot_insert
1812: (
1813: p_api_version => p_api_version
1814: , p_init_msg_list => FND_API.G_FALSE
1815: , p_commit => FND_API.G_FALSE
1816: , p_validation_level => p_validation_level
1817: , x_return_status => x_return_status
1818: , x_msg_count => x_msg_count
1811: GMIVDBX.lot_insert
1812: (
1813: p_api_version => p_api_version
1814: , p_init_msg_list => FND_API.G_FALSE
1815: , p_commit => FND_API.G_FALSE
1816: , p_validation_level => p_validation_level
1817: , x_return_status => x_return_status
1818: , x_msg_count => x_msg_count
1819: , x_msg_data => x_msg_data
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;
1830: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
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;
1830: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
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;
1830: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: END IF;--}
1827: END IF;
1828: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1829: RAISE FND_API.G_EXC_ERROR;
1830: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1832: END IF;
1833:
1834: END IF;--}
1835:
1847: --for subsequent lines
1848: GMIVTDX.create_txn_update_balances
1849: (
1850: p_api_version => p_api_version
1851: , p_init_msg_list => FND_API.G_FALSE
1852: , p_commit => FND_API.G_FALSE
1853: , p_validation_level => p_validation_level
1854: , x_return_status => x_return_status
1855: , x_msg_count => x_msg_count
1848: GMIVTDX.create_txn_update_balances
1849: (
1850: p_api_version => p_api_version
1851: , p_init_msg_list => FND_API.G_FALSE
1852: , p_commit => FND_API.G_FALSE
1853: , p_validation_level => p_validation_level
1854: , x_return_status => x_return_status
1855: , x_msg_count => x_msg_count
1856: , x_msg_data => x_msg_data
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;
1866: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
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;
1866: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869: END;--Line block
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;
1866: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869: END;--Line block
1870:
1863: END IF;
1864: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1865: RAISE FND_API.G_EXC_ERROR;
1866: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869: END;--Line block
1870:
1871: END LOOP;--} --LOOP for line
1874: -- all the records have been inserted in mmtt and mmlt
1875: l_return_val := INV_LPN_TRX_PUB.PROCESS_LPN_TRX
1876: (
1877: p_trx_hdr_id => p_hdr_rec.transaction_header_id
1878: ,p_commit => fnd_api.g_false
1879: ,x_proc_msg => x_msg_data
1880: ,p_proc_mode => 1 /* Online Processing */
1881: ,p_process_trx => fnd_api.g_true
1882: ,p_atomic => fnd_api.g_true
1877: p_trx_hdr_id => p_hdr_rec.transaction_header_id
1878: ,p_commit => fnd_api.g_false
1879: ,x_proc_msg => x_msg_data
1880: ,p_proc_mode => 1 /* Online Processing */
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
1878: ,p_commit => fnd_api.g_false
1879: ,x_proc_msg => x_msg_data
1880: ,p_proc_mode => 1 /* Online Processing */
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);
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
1897: update mtl_material_transactions
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);
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
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;
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);
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;
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
1943: (p_count => x_msg_count, p_data => x_msg_data);
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;