[Home] [Help]
53: | |
54: +==========================================================================+ */
55: PROCEDURE Create_transfer_pvt
56: ( p_api_version IN NUMBER
57: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
58: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
59: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
60: , x_return_status OUT NOCOPY VARCHAR2
61: , x_msg_count OUT NOCOPY NUMBER
54: +==========================================================================+ */
55: PROCEDURE Create_transfer_pvt
56: ( p_api_version IN NUMBER
57: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
58: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
59: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
60: , x_return_status OUT NOCOPY VARCHAR2
61: , x_msg_count OUT NOCOPY NUMBER
62: , x_msg_data OUT NOCOPY VARCHAR2
55: PROCEDURE Create_transfer_pvt
56: ( p_api_version IN NUMBER
57: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
58: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
59: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
60: , x_return_status OUT NOCOPY VARCHAR2
61: , x_msg_count OUT NOCOPY NUMBER
62: , x_msg_data OUT NOCOPY VARCHAR2
63: , p_hdr_rec IN hdr_type
76: l_lot_rec_tbl GMIVDX.lot_type_tbl;
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.
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 ,
86: p_api_version ,
87: l_api_name ,
88: G_PKG_NAME ) THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
85: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
86: p_api_version ,
87: l_api_name ,
88: G_PKG_NAME ) THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91:
92: x_return_status :=FND_API.G_RET_STS_SUCCESS;
93:
88: G_PKG_NAME ) THEN
89: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
90: END IF;
91:
92: x_return_status :=FND_API.G_RET_STS_SUCCESS;
93:
94: l_hdr_rec := p_hdr_rec;
95: l_line_rec_tbl := p_line_rec_tbl;
96: l_lot_rec_tbl := p_lot_rec_tbl;
98: --Validate the transfer
99: Validate_transfer
100: (
101: p_api_version => p_api_version
102: , p_init_msg_list => FND_API.G_FALSE
103: , p_commit => FND_API.G_FALSE
104: , p_validation_level => p_validation_level
105: , x_return_status => x_return_status
106: , x_msg_count => x_msg_count
99: Validate_transfer
100: (
101: p_api_version => p_api_version
102: , p_init_msg_list => FND_API.G_FALSE
103: , p_commit => FND_API.G_FALSE
104: , p_validation_level => p_validation_level
105: , x_return_status => x_return_status
106: , x_msg_count => x_msg_count
107: , x_msg_data => x_msg_data
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
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
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
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
115: END IF;
116:
117: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: --if the validation of header, lines and lots is successful then
116:
117: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
118: RAISE FND_API.G_EXC_ERROR;
119: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
121: END IF;
122:
123: --if the validation of header, lines and lots is successful then
124: --lets construct and post records to gmi_discrete_transfers, gmi_discrete_transfers |
128:
129: construct_post_records
130: (
131: p_api_version => p_api_version
132: , p_init_msg_list => FND_API.G_FALSE
133: , p_commit => FND_API.G_FALSE
134: , p_validation_level => p_validation_level
135: , x_return_status => x_return_status
136: , x_msg_count => x_msg_count
129: construct_post_records
130: (
131: p_api_version => p_api_version
132: , p_init_msg_list => FND_API.G_FALSE
133: , p_commit => FND_API.G_FALSE
134: , p_validation_level => p_validation_level
135: , x_return_status => x_return_status
136: , x_msg_count => x_msg_count
137: , x_msg_data => x_msg_data
142: , x_line_row_tbl => x_line_row_tbl
143: , x_lot_row_tbl => x_lot_row_tbl
144: );
145:
146: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
147: x_transaction_set_id := l_hdr_rec.transaction_header_id;
148: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_TXN_POSTED');
149: FND_MESSAGE.SET_TOKEN('ORGN_CODE' ,x_hdr_row.orgn_code);
150: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',x_hdr_row.transfer_number);
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;
156: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR;
152:
153: IF FND_API.to_boolean(p_commit) THEN
154: COMMIT WORK;
155: END IF;
156: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR;
158: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
153: IF FND_API.to_boolean(p_commit) THEN
154: COMMIT WORK;
155: END IF;
156: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR;
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:
154: COMMIT WORK;
155: END IF;
156: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR;
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
155: END IF;
156: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
157: RAISE FND_API.G_EXC_ERROR;
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);
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
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
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);
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
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
178: (p_count => x_msg_count, p_data => x_msg_data);
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;
209: | GL Business Class and GL Product Line. |
210: +==========================================================================+ */
211: PROCEDURE Validate_transfer
212: ( p_api_version IN NUMBER
213: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
214: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
215: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
216: , x_return_status OUT NOCOPY VARCHAR2
217: , x_msg_count OUT NOCOPY NUMBER
210: +==========================================================================+ */
211: PROCEDURE Validate_transfer
212: ( p_api_version IN NUMBER
213: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
214: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
215: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
216: , x_return_status OUT NOCOPY VARCHAR2
217: , x_msg_count OUT NOCOPY NUMBER
218: , x_msg_data OUT NOCOPY VARCHAR2
211: PROCEDURE Validate_transfer
212: ( p_api_version IN NUMBER
213: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
214: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
215: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
216: , x_return_status OUT NOCOPY VARCHAR2
217: , x_msg_count OUT NOCOPY NUMBER
218: , x_msg_data OUT NOCOPY VARCHAR2
219: , p_hdr_rec IN OUT NOCOPY hdr_type
327: --End Supriya Malluru Bug#4114621
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;
334:
335: SAVEPOINT validate_transfer;
336:
337: -- Standard call to check for call compatibility.
338: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
339: p_api_version ,
340: l_api_name ,
341: G_PKG_NAME ) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
338: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
339: p_api_version ,
340: l_api_name ,
341: G_PKG_NAME ) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344:
345: x_return_status :=FND_API.G_RET_STS_SUCCESS;
346:
341: G_PKG_NAME ) THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344:
345: x_return_status :=FND_API.G_RET_STS_SUCCESS;
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
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;
355:
356: INV_TRANS_DATE_OPTION := FND_PROFILE.Value('TRANSACTION_DATE');
357: IF (INV_TRANS_DATE_OPTION IS NULL) THEN
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
365: --this is used for checking material status for subinventory and locators.
377: IF NOT GMA_VALID_GRP.Validate_orgn_code(p_hdr_rec.orgn_code) THEN
378: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
379: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
380: FND_MSG_PUB.Add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383:
384: OPEN Cur_get_assigment_type(p_hdr_rec.orgn_code);
385: FETCH Cur_get_assigment_type INTO p_hdr_rec.assignment_type, p_hdr_rec.co_code;
387: CLOSE Cur_get_assigment_type;
388: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_NO_DCMNT_NMBRNG');
389: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393: CLOSE Cur_get_assigment_type;
394:
395: --For manual doc numbering, transfer no needs to be specified.
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) ;
405: FETCH Cur_transfer_no_exists INTO l_count;
411: FND_MESSAGE.SET_NAME ('GMI', 'GMI_DXFR_TRANSFER_NO_INVALID');
412: FND_MESSAGE.SET_TOKEN('ORGN_CODE',p_hdr_rec.orgn_code);
413: FND_MESSAGE.SET_TOKEN('TRANSFER_NO',p_hdr_rec.transfer_number);
414: FND_MSG_PUB.Add;
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417: END IF;
418: END IF;
419:
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.
429: --If transfer is Process to Discrete then the transaction type for ODM is MISC Receipt (42)
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
448: log_msg('End validation of header record');
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 --{
463: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
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');
478: END IF;
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 */
497: x_ic_item_mst_row.item_no := NULL;
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');
508: FND_MESSAGE.SET_TOKEN('ITEM_ID',p_line_rec_tbl(i).opm_item_id);
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:
514: IF (x_ic_item_mst_row.lot_ctl = 0) 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;
546: log_msg('For revision controlled item revision is null');
547: END IF;
548: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
549: FND_MSG_PUB.Add;
550: RAISE FND_API.G_EXC_ERROR;
551: END IF;
552:
553: IF (inv_validate.revision (p_line_rec_tbl(i).odm_item_revision, l_org, l_item) = inv_validate.F) THEN
554: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
555: log_msg('failed call to inv_validate.revision');
556: END IF;
557: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
558: FND_MSG_PUB.Add;
559: RAISE FND_API.G_EXC_ERROR;
560: END IF;
561:
562: SELECT count(1)
563: INTO l_count
572: log_msg('For revision controlled item revision implementation date is null');
573: END IF;
574: FND_MESSAGE.SET_NAME('INV', 'INV_INT_REVCODE');
575: FND_MSG_PUB.Add;
576: RAISE FND_API.G_EXC_ERROR;
577: END IF;
578:
579: END IF;
580:
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: /* **************************************************************
590: Item should be either lot controlled both in opm/discrete or not
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
601: OPEN Cur_get_uom_code(x_ic_item_mst_row.item_um);
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
612: IF (x_ic_item_mst_row.item_um2 IS NOT NULL) THEN
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
625: x_ic_whse_mst_row.whse_code := p_line_rec_tbl(i).opm_whse_code;
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
636: --when transfer is process to discrete then the FROM subinventory is the default
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
670: --item is restricted locator controlled
684: log_msg('ODM locator id is not required as org/sub/item combination is non location controlled');
685: END IF;
686: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
687: FND_MSG_PUB.ADD;
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690: ELSE
691: IF (p_line_rec_tbl(i).odm_locator_id IS NULL) THEN
692: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN
693: log_msg('ODM locator id is required as org/sub/item combination is location controlled');
694: END IF;
695: FND_MESSAGE.SET_NAME('INV','INV_INT_LOCCODE');
696: FND_MSG_PUB.ADD;
697: RAISE FND_API.G_EXC_ERROR;
698: END IF;
699:
700:
701: END IF;--}
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:
716: --Get ODM sob
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
736: l_return_val := GMICCAL.trans_date_validate
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);
750: FND_MESSAGE.SET_TOKEN('TRANS_DATE', p_hdr_rec.trans_date);
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
756: -- Check if past date is allowed...
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;
776: RAISE FND_API.G_EXC_ERROR;
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
780: IF ( NOT INV_OPEN_PAST_PERIOD) 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
788: FND_MESSAGE.SET_NAME('INV','INV_NO_PAST_PERIOD');
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;
804: RAISE FND_API.G_EXC_ERROR;
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');
808: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_line_rec_tbl(i).opm_reason_code);
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
814: --Entering the discrete reason id is optional.
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);
835: FND_MSG_PUB.Add;
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);
840: FND_MSG_PUB.Add;
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 .
845: --UOM should be same for lines and associated lot records
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 */
859: /* Get uom_code for this um from sy_uoms_mst */
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)
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)
893: AND (x_ic_item_mst_row.loct_ctl = 1)
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)
914: ) THEN
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;
935:
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:
948: --Quantity at line level should be the same as the sum of quantities
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;
973: l_lot_count := l_lot_count + 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;
988: -- we will also assign a default lot_type record so that validations for lot can take place
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);
1023: FND_MESSAGE.SET_TOKEN('LOT_ID',p_lot_rec_tbl(j).opm_lot_id);
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
1029: --{
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:
1041: ELSIF (x_ic_item_mst_row.lot_ctl = 1) 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');
1051: END IF;
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:
1069: END IF;
1127: ELSIF (l_return_val < -11) THEN
1128: FND_MESSAGE.set_name('GMI', 'IC_UOMCV_FATAL_ERR');
1129: END IF;
1130: FND_MSG_PUB.ADD;
1131: RAISE FND_API.G_EXC_ERROR;
1132: END IF;
1133:
1134: IF ( (x_ic_item_mst_row.lot_indivisible = 1)
1135: AND (x_ic_loct_inv_row.loct_onhand <> p_lot_rec_tbl(j).opm_primary_quantity)
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');
1145: FND_MESSAGE.SET_TOKEN('LINE_NO',p_line_rec_tbl(i).line_no);
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
1152: --if it is not passed we calculate the secondary qty.
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
1168: (
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
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;--}
1267: --transfer is from discrete to process
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;--}
1281:
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;--}
1295:
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
1379: IF (p_lot_rec_tbl(j).quantity2 IS NULL) 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
1390: (
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;
1436: ELSIF (x_ic_item_mst_row.dualum_ind = 0) THEN
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
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;
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;
1601: END LOOP; -- this for the lines.
1605: (p_count => x_msg_count, p_data => x_msg_data);
1606:
1607: EXCEPTION
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);
1607: EXCEPTION
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
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;
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);
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;
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
1619: (p_count => x_msg_count, p_data => x_msg_data);
1620:
1621: WHEN OTHERS THEN
1622: ROLLBACK to validate_transfer;
1623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: IF (SQLCODE IS NOT NULL) THEN
1625: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
1626: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
1627: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM(SQLCODE));
1659: +==========================================================================+ */
1660:
1661: PROCEDURE construct_post_records
1662: ( p_api_version IN NUMBER
1663: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1664: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1665: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1666: , x_return_status OUT NOCOPY VARCHAR2
1667: , x_msg_count OUT NOCOPY NUMBER
1660:
1661: PROCEDURE construct_post_records
1662: ( p_api_version IN NUMBER
1663: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1664: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1665: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1666: , x_return_status OUT NOCOPY VARCHAR2
1667: , x_msg_count OUT NOCOPY NUMBER
1668: , x_msg_data OUT NOCOPY VARCHAR2
1661: PROCEDURE construct_post_records
1662: ( p_api_version IN NUMBER
1663: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
1664: , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
1665: , p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
1666: , x_return_status OUT NOCOPY VARCHAR2
1667: , x_msg_count OUT NOCOPY NUMBER
1668: , x_msg_data OUT NOCOPY VARCHAR2
1669: , p_hdr_rec IN OUT NOCOPY hdr_type
1684: l_lot_sts VARCHAR2(10);
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;
1691:
1692: SAVEPOINT create_transfer;
1693:
1694: -- Standard call to check for call compatibility.
1695: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1696: p_api_version ,
1697: l_api_name ,
1698: G_PKG_NAME ) THEN
1699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1695: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1696: p_api_version ,
1697: l_api_name ,
1698: G_PKG_NAME ) THEN
1699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1700: END IF;
1701: x_return_status :=FND_API.G_RET_STS_SUCCESS;
1702:
1703: --lets prepare the header record.
1697: l_api_name ,
1698: G_PKG_NAME ) THEN
1699: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1700: END IF;
1701: x_return_status :=FND_API.G_RET_STS_SUCCESS;
1702:
1703: --lets prepare the header record.
1704: IF (p_hdr_rec.assignment_type = 2) THEN
1705: --automatic numbering
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
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
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
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724:
1717: END IF;
1718:
1719: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724:
1725: END IF;
1718:
1719: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1720: RAISE FND_API.G_EXC_ERROR;
1721: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1723: END IF;
1724:
1725: END IF;
1726:
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.
1736:
1736:
1737: GMIVDBX.header_insert
1738: (
1739: p_api_version => p_api_version
1740: , p_init_msg_list => FND_API.G_FALSE
1741: , p_commit => FND_API.G_FALSE
1742: , p_validation_level => p_validation_level
1743: , x_return_status => x_return_status
1744: , x_msg_count => x_msg_count
1737: GMIVDBX.header_insert
1738: (
1739: p_api_version => p_api_version
1740: , p_init_msg_list => FND_API.G_FALSE
1741: , p_commit => FND_API.G_FALSE
1742: , p_validation_level => p_validation_level
1743: , x_return_status => x_return_status
1744: , x_msg_count => x_msg_count
1745: , x_msg_data => x_msg_data
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
1755: RAISE FND_API.G_EXC_ERROR;
1756: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1758: END IF;
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
1755: RAISE FND_API.G_EXC_ERROR;
1756: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1758: END IF;
1759:
1752: END IF;
1753:
1754: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1755: RAISE FND_API.G_EXC_ERROR;
1756: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1758: END IF;
1759:
1760: --now we will insert the lines and the lots.
1753:
1754: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1755: RAISE FND_API.G_EXC_ERROR;
1756: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1758: END IF;
1759:
1760: --now we will insert the lines and the lots.
1761: FOR i in 1..p_line_rec_tbl.count LOOP --{
1767: --we are ready to insert records in gmi_discrete_transfer_lines
1768: GMIVDBX.line_insert
1769: (
1770: p_api_version => p_api_version
1771: , p_init_msg_list => FND_API.G_FALSE
1772: , p_commit => FND_API.G_FALSE
1773: , p_validation_level => p_validation_level
1774: , x_return_status => x_return_status
1775: , x_msg_count => x_msg_count
1768: GMIVDBX.line_insert
1769: (
1770: p_api_version => p_api_version
1771: , p_init_msg_list => FND_API.G_FALSE
1772: , p_commit => FND_API.G_FALSE
1773: , p_validation_level => p_validation_level
1774: , x_return_status => x_return_status
1775: , x_msg_count => x_msg_count
1776: , x_msg_data => x_msg_data
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;
1787: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END IF;
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;
1787: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END IF;
1790:
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;
1787: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END IF;
1790:
1791:
1784: END IF;
1785: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1786: RAISE FND_API.G_EXC_ERROR;
1787: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END IF;
1790:
1791:
1792: --{
1803: --OK lets insert records in gmi_transfer_lots.
1804: GMIVDBX.lot_insert
1805: (
1806: p_api_version => p_api_version
1807: , p_init_msg_list => FND_API.G_FALSE
1808: , p_commit => FND_API.G_FALSE
1809: , p_validation_level => p_validation_level
1810: , x_return_status => x_return_status
1811: , x_msg_count => x_msg_count
1804: GMIVDBX.lot_insert
1805: (
1806: p_api_version => p_api_version
1807: , p_init_msg_list => FND_API.G_FALSE
1808: , p_commit => FND_API.G_FALSE
1809: , p_validation_level => p_validation_level
1810: , x_return_status => x_return_status
1811: , x_msg_count => x_msg_count
1812: , x_msg_data => x_msg_data
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;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
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;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
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;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: END IF;--}
1820: END IF;
1821: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: END IF;--}
1828:
1840: --for subsequent lines
1841: GMIVTDX.create_txn_update_balances
1842: (
1843: p_api_version => p_api_version
1844: , p_init_msg_list => FND_API.G_FALSE
1845: , p_commit => FND_API.G_FALSE
1846: , p_validation_level => p_validation_level
1847: , x_return_status => x_return_status
1848: , x_msg_count => x_msg_count
1841: GMIVTDX.create_txn_update_balances
1842: (
1843: p_api_version => p_api_version
1844: , p_init_msg_list => FND_API.G_FALSE
1845: , p_commit => FND_API.G_FALSE
1846: , p_validation_level => p_validation_level
1847: , x_return_status => x_return_status
1848: , x_msg_count => x_msg_count
1849: , x_msg_data => x_msg_data
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;
1859: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;
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;
1859: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;
1862: END;--Line block
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;
1859: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;
1862: END;--Line block
1863:
1856: END IF;
1857: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1858: RAISE FND_API.G_EXC_ERROR;
1859: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1861: END IF;
1862: END;--Line block
1863:
1864: END LOOP;--} --LOOP for line
1867: -- all the records have been inserted in mmtt and mmlt
1868: l_return_val := INV_LPN_TRX_PUB.PROCESS_LPN_TRX
1869: (
1870: p_trx_hdr_id => p_hdr_rec.transaction_header_id
1871: ,p_commit => fnd_api.g_false
1872: ,x_proc_msg => x_msg_data
1873: ,p_proc_mode => 1 /* Online Processing */
1874: ,p_process_trx => fnd_api.g_true
1875: ,p_atomic => fnd_api.g_true
1870: p_trx_hdr_id => p_hdr_rec.transaction_header_id
1871: ,p_commit => fnd_api.g_false
1872: ,x_proc_msg => x_msg_data
1873: ,p_proc_mode => 1 /* Online Processing */
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
1871: ,p_commit => fnd_api.g_false
1872: ,x_proc_msg => x_msg_data
1873: ,p_proc_mode => 1 /* Online Processing */
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);
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
1890: update mtl_material_transactions
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);
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
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;
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);
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;
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
1936: (p_count => x_msg_count, p_data => x_msg_data);
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;